st,--A¤ØN¸H¤I¤FI¤FN¤FMT¤N°N±N²N³N´N¶N·×NÉRÌC1¨C2¨F¤B¤C¤HASDOÓB1¤ÉÁSÓSÂFÓAÁJÊÊNÈHÌIÌT¤SEÇRÓÔJ±ÎQÑJ²CÓI±I²BÓNÆI¹AÓX·X±B³B´Bw@H–šX?KÙM çMïM @ @ @ @ @@@6A A÷MA'NWNçOdKPd@¯P @6AU@@@@ @!@"@#@ $ÈPy%ABQ&'()*+,-.@6/@01@72@3@4@5AR€6Ba˜d**SAFE REENTRY = GOTO 330›ng€;A`,*6-P:I:,$?˜,66‚-@gƒ;$?,„;$?•,…;@,†;‚,‡;‚,xM6ˆ-6‰-@#6Š-‰%‰+6‹-‰%Š36Œ-Š%Š;6-‹%‹C6Ž-‰%M A€‚-‰A $Œ11(>:A%, FILE: †–@'(|*×ÏÒÌÄ*ÇÅÏÇÒÁÐÈÙ*| RECS: %‰@( * ‘!ˆ*( FREE: P:$?'‘,&%‰ª( ( ($´J0’9Ž,“9Ž,”;A,•;A,–;A,66—-ˆ=6-6‰J˜;@%,¾%ŠŒˆK:+ˆ0ŠŽˆ%0ŒŽˆÈ= 6….C:™-ˆ%.F:A”%‹$™,"@:D,46—-‰=6….D:Ò ™ A0æ66†.NULL A@6((I) INITIALIZE A NEW FILEðR((L) LOAD A SAVED FILE?!(/(SELECT? 6)ŠšR>:š,0L*>:š,0IA0ú A@ AB 6†.!(þENTER FILE NAME %†,†48-@"B A`M 6…7‹,.†6…7B:…,%‰,..DAT*™-‰B:†,7†7™<™,4.C-@"M A`  ™ $"">:š,4L A" A,">:š,4I A`" A06›"‰A0@ A0J6 A0‹ A@6((S) SAVE CURRENT FILET((P) PRINT DATA^( (A) ADD DATAh((C) CHANGE A RECORDr((D) DELETE A RECORD|((T) SORT†—((F) LIST FILE NAMES((N) START NEW FILEš((Q) QUIT(¤( ((SELECT ® )Šš(>:š,¸">:š,4S A P" A0Â">:š,4P A0" A0Ì">:š,4A AP" A0Ö(>:š,4C6œ-‹ A€( A0à.>:š,4D6œ-Œ6-‰$ A€. A0ê">:š,4T A@" A0ô$>:š,4F*— A$ A0þ>:š,4Q)>:š,4NA0 A0 6ž-š›Ap:>:š,4N%D B+ˆNM-Š@ ( þDATA FILES:* A=‰ˆD:*.DATC6Ÿ-ˆM AX@-Œ@ .(CAN'T READ DISK DIRECTORY.3‰= A0@$b ‰€lB™-@@ - -Š@)@ B€7‰<‰,0 Apv/ - ™(€7‹<@, 6Ÿ-Ÿ%‰'‰€+  / ™€€7‰<‰,0 ApŠ8-@@#1(ÐÒÅÓÓ ÒÅÔÕÒΠÆÏÒ ÍÏÒÅ 8)Šš”5™-@#@6‰ -ˆ™'(þ+ ™5 A ž? A0Ÿ"ˆ(5(ÎÏ ÄÁÔÁ ÆÉÌÅÓ ÉΠÄÉÒÅÃÔÏÒÙ? A0¨K‰-@#>:š,0L>(ÐÒÅÓÓ ÒÅÔÕÒΠÔÏ ÃÏÎÔÉÎÕÅ K)@š²$¼— AŸ"ˆ$Ú;-@" A`—"ˆ7(HIT ENTER TO PLAY ;€äA A@( (ÌÏÁÄÉÎÇ †* AP5‰Œˆ…A—APé ‰€€0…APî/‰¡¢££!ˆ#¤;¡$£%£%‰,/6‘-+¡%‰,$£ø 6¥-‰ ‰€B:€,"ˆA $ 6ƒ7¥,.€6¥-¥%AP$ Ap"6‰A0  6¥-‰* ‰€43 6„7¥,.€B:€,"AP)6¥-¥%AP3 A>‰H 6›-‰ $R8(þ† ý NOT FOUND%6š-@p/ A€56›-ˆ8$\9 A`('(HOW MANY HEADINGS+¡9¡ ‰A`f:(((ENTER MAXIMUM HEADING LENGTH,¢:¢ ‰App* 6¡-¡&‰6-6‰6ƒ. 6„.* A@z ™-ˆ¡„( HEADING #™%‰ :€Ž; B:€,!¢1(MAXIMUM LENGTH IS ¢ . ÒÅÅÎÔÅÒ; A ˜& B:€, ¢6€7B:€,%‰,. & A ¢6ƒ7B:ƒ,%‰,.€ ™¬ 6›-ˆ $¶J A@.(IS FILE NAME - † - OK? 5)Šš@>:š,4NJ A`À—A €Ê#((HIT ÅÎÔÅÒ TO ÒÅÃÏÒÄ #€Ô7 A((ÓÁÖÉÎÇ †*‰‚ˆ…0—"ˆ7 ‰…Þ% ‰¡(‰(‰¢(‰£%6¥-‰è-B:ƒ,¥%AI# ‰ƒ7¥:š,4YJ A%@P6-ŠZ Ap~>:š,0NA ˆ 6-‰ A€’"Š*‡4A œd A@6œ-‰%( (S) SCREEN or9((P) PRINTER ? F)@šI(T>:š,4PZ6œ-Šd A¦>:š,0SA€°! A‹ARˆ!$º**? ONE RECORD›ÄR(>:A%,%ApA1-Š@"R(PRESS ÒÅÔÕÒÎ (ÅÓà FOR MENU)Î )Ššš"@'6¦-‰Ø$â**ONE RECORD TO PRINTER›ìApA$ö œ"Œ(>:A%,( ‹ ‹ÒÅÃÏÒÄ ™%‰ ‹( -ˆ¡ 5. ‹ƒ7 $¢%‰< $¢%¢,„7™$‘%‰% $£<™$‘% $£%£,2  5$**PRINT ONE FORMAT›2 6 -‰6§-ˆ6•.$”7B:”,,0626”7B:”,,.6(=6¨-A:”7 < ,,6 - %‰%¨ @56©-A:”7 < %‰,,=6 - %Š277¨A@APA`ApAA@< 6€.ƒ7©$¢%‰<©$¢%¢, A F(6€.„7™$‘%‰%©$£<™$‘%©$£%£,( A P) ª-‰©6•7B:•,%‰,.  ª) A0Z! ‹•©!‰«-Š© ‹! «d 6•. A0n 6«- x"”7«<«,0!6«-«%‰" A‚6€.”7 < %+«& ,&‰,6 -«%‰Œ6•7B:•,%‰,.€– A   ‹• $ª! A@6›-ˆ!£!ˆA€´=#(ENTER ÍÁØÉÍÕÍ ITEM LENGTH '£-£ ‰36£-ˆ= A`¾$¤;¡$£%£,6‘-+¡%‰,$£$ A@ÈG 6-%‰(9(ÒÅÃÏÒÄ ÎÕÍÂÅÒ %‰ (ÅÎÔÅÒ ! ÔÏ ÅÎÄ)<(?(G -ˆ¡Ò<(ƒ7 $¢%‰< $¢%¢, : €'€4!/6-&‰56 -¡9  <$ÜB B:€,!£8(TOO LONG. ÍÁØÉÍÕÍ SIZE IS £.ÒÅÅÎÔÅÒB Aæ& B:€, £6€7B:€,%‰,. & Að6„7B:„,%‰,.€   APú**CHANGE SUBROUTINE›T A@3(!(C) CHANGE ITEM, (K)KEEP ITEM, ORT((R) KEEP REMAINDER OF RECORD^((ÒÅÃÏÒÄ ™%‰6¬-‰"6¦-ˆ* -ˆ¡-(^(ƒ7 $¢%‰< $¢%¢, : „7™$‘%‰% $£<™$‘% $£%£, ¦"‰  A@"/ )Šš/>:š,0C*>:š,0K*>:š,0RAp, (>:š,>:š,4KA@6>:š,4R6¦-‰ A@@(ƒ7 $¢%‰< $¢%¢, : €JB B:€,!£8 TOO LONG. ÍÁØÉÍÕÍ SIZE IS £.ÒÅÅÎÔÅÒB AT& B:€, £6€7B:€,%‰,. & A ^$6„7™$‘%‰% $£<™$‘% $£%£,.€$6¬-ˆh   6¦-ˆ¬"ˆ6›-ˆr$|**DELETE SUBROUTINE›†,(ARˆ,(ÄÅÌÅÔÅ THIS RECORD? & )Šš&>:š,0Y*>:š,0NA€š) (>:š,AR‰)>:š,4NA ¤F6„7B:„,%‰,. -6„7™$‘%‰,.„7™$‘%‰%¡$£%£,5„4 <6„.F A©6„.„7‰:š,4AJ6š-‰T Aþ>:š,4D6š-Š A A€ (( SORTING... ™-ˆ&‰ 6§-™­-§%‰&šA@A`093„7­$‘%‰%¨$£<­$‘%¨$£%£,2„7§$‘%‰%¨$£<§$‘%¨$£%£,96§-­: ApD93„7­$‘%‰%¨$£<­$‘%¨$£%£,3„7§$‘%‰%¨$£<§$‘%¨$£%£,96§-­N ­X§"™AbI6¤.„7§$‘%‰<§$‘%‘,66„7§$‘%‰<§$‘%‘,.„7™$‘%‰<™$‘%‘,I6„7™$‘%‰<™$‘%‘,.¤l ™¨%( ÃÏÍÐÌÅÔÅÄ. A0"6›-ˆ%$²**SEARCH ROUTINE›¼ "6‰ A% $Æ+ 6­-ˆ6®-6 -ˆ6’8ˆ,-6‰%6¯-‰+6°-‰Ð: A@"(ÓÅÁÒÃÈ CRITERIA:%(:(0) ÒÅÃÏÒÄ NUMBERÚ< ™-ˆ¡% ™%‰) ƒ7™$¢%‰<™$¢%¢,) ™,(<(¡%Š) ÂÅÇÉÎä:-Š@""( WHICH ÆÉÅÌÄ: &™:™ ˆ)™!¡%ŠA î ™"¡%Š6’8 ,-6‰ A!pø6’8 ,-™&‰[-Š@!6(!(1) <= (2) = (3) >= :šC6“8 ,-š[“8 , ‰)“8 ,!‹A P --Š@#(ÖÁÌÕÅ:-’8 ,"6‰A!D  €B:€,!£:(TOO ÌÏÎÇ. ÍÁØÉÍÕÍ LENGTH IS £D A ` & B:€, £6€7B:€,%‰,. & A €*,6–7 $£%‰< $£%£,.€6 - %‰, !ŽA!€4 A >"  ™"™ ‰)™!%‰A!H 6™-™&‰R “8 ,"‰6®-™\ “8 ,"Š6­-™6®-™f “8 ,"‹6­-™p A z  ŠA"„_-Š@!5(!þ1) ITEM MUST MEET ÁÌÌ CONDITIONS[( þ2) ITEM MAY MEET ÁÎÙ CONDITION _¯Ž¯ ‰)¯!ŠA!€˜; A"06¦-ˆœ"Š'‹‚ˆP:1 A0; A"@¢7‹‚ˆE:AR‰' A0/0ŠŽˆ70ŒŽˆ¬+-Š@"!( SEARCHING...+ A"@¶*‹ (PRINTER NOT ON LINE* A%À 6™-­&‰±-­®6™-™%‰Ê 6²-ˆ -ˆŽÔ ’8 ,"6‰6 -Ž A$Þ6•.–7 $£%‰< $£%£,è9 B:•,!ˆ•7B:•,:AS,ÅÎÄ ÏÆ ÆÉÌÅ...ÒÅÔÕÒÎ FOR ÍÅÎÕD)ŠšG$Ø 2%(>:AS,NO ÄÁÔÁ IN ÍÅÍÏÒÙ./ A02$â ***PRINT FORMATTING›ì  A@‡4A%pö -( ÓÁÍÅ ÆÏÒÍÁÔ?)Šš *>:š,4Y-$ >:š,0NA%@ U((L) ÌÏÁÄ ÆÏÒÍÁÔ or2((C) ÃÒÅÁÔÅ ÆÏÒÍÁÔ ?)@šB(U>:š,4CA&p >:š,0LA%p A&P(  A(‡4$2 ‰Œˆ€—A&0<  ‰€€0‡A&PF 6”.P 5 ‰° -ˆ°‰€'6”7B:”,%‰,.€+  5 A&`Z /(ÆÏÒÍÁÔ ‡ ÎÏÔ ÆÏÕÎÄ( A0/6‡.d ‰ $n e 6°-ˆ6 -ˆ6”. A@G("START IN THE ÕÐÐÅÒ ÌÅÆÔ ÃÏÒÎÅÒ ANDb(WORK ÁÃÒÏÓÓ EACH LINE.e(x P( 1:ÈÅÁÄÉÎÇ(2:ÉÔÅÍ&(3:ÔÁÂ6( 4:ÎÅØÔ ÌÉÎÅC(5:ÓÔÒÉÎÇM(6:ÅÎÄP(‚ ¨¨ ‰)¨!A&Œ 6”7B:”,%‰,.=:¨,6 - %‰– 77¨A' A' A'PA'PA'A(  3 A@§-ˆ¡/ §%‰) ƒ7§$¢%‰<§$¢%¢,3 §ª 0((×ÈÉÃÈ §6§-§&‰0§ ˆ)§!¡A'0´ A'`¾ B( ÈÏ× ÍÁÎÙ §&§ ‰)§!@™8( ÏÕÔ OF ÒÁÎÇÅ.B A'PÈ 1 6€.=:§,§ @ 6€.016€7B:€,%‰,.=:§,Ò 6”7B:”,%‰,.€6 - %ŠÜ A(æ >(ÓÔÒÉÎÇ: €%6€7B:€,%‰,.!36”7B:”,%‰,.€>6 - %B:€,ð  A@ A&€ú ! A(€ A(‡4!$ ‰‚ˆ€—A(@ ‰‡  ‰P:+B:”,&‰,'AP," Y -ˆP:+B:”,&‰,'AP,6B:”,  $AP%APO(‰”7 $AP%‰