³´dx+Š+KÂËINKEÙÑÚÆK¤×KEY¤POÓWK¤ÅMAXLEÎGÓTI2¤ÃTN¤MUS¤AG1¤AG2¤TI1¤RT¤C±C2°ART1¤ART2¤C3°TITLE1¤TITLE2¤RESEÔTASËCUÒOFÆÓÔOOÎULN1¤TAÂBLK2¤DELAÙBLK1¤FIND¤ÁF²FINÄSIZÅLN¤FILE¤DÌHD¤REEÄULN2¤VNTÂCÂAdAUA@@®@.€€ @ ô @( @ AF@gdg(èOBÈ@@ È  h  @0!ppx8ppBAR @!@"@#$š%@…&|'A™’(h)¯ *+@,Aw-A.Ì&(/¹0B™h123®45ASAVE"D:TAPEFILE"›c A ™d€AUf 6-F:€,A( ‚%ƒhE2„A@…%€AU/2„„„„;"@B6†.E$j! 6-%‡6†.ˆ7<,6-&‡!$È 6‰-„6Š.Ê ‚@:†,A&6‰-‰%‡Ì"@)"‹$Î+@:†,"A&*‰!„#6Š7‰<‰,. +6‰-‰&‡Ð@:†,A&6Š7‰<‰,.†Ò ‰"„ $EraseNot›Ô ‰!„(†Ö ‰"Œ A™$Ø %ƒç Bè A@Ž¤' 6-‡'GetDataFromDisk/ReadIntoAY*›¸ 6.=:,Â! A0!A%@Ì@‘Ö@’à@“ê@”ô@ŽF6•7<,.‘"6–-+&‡,$@ %‡06—-–%@;6˜7–<—,.’F6™7–<—,.“M6–-+&‡,$@0%‡%6š-–%@)06›7–<š,.”;6œ7–<š,.ŽC6-%‡M A &  6ž-„$`  6-‡MusicTypeSearch**›t "•7<,4† A2" A$p~ "‹ $ˆ ? 6-%‡!B:•,(8( Search completed...ý < ‚?$’ A$ ¦  Ÿ ¡"¢6¡-… AF° AH ADŸ£ $€ FindDataArrayRead**›”  6.=:,•4$ž F6‘.•7<,"6–-+&‡,$@ %‡06—-–%@;6’.˜7–<—,F6“.™7–<—,¨ >6–-+&‡,$@0%‡%6š-–%@)06”.›7–<š,;6Ž.œ7–<š,>$¬ FindTapeByNumber**›® -@"@"(¤7‡<¢,¶ U A5P6-„((-@ @!=(What number? C6Œ-¢G U‰"„A5À ! 6-A:Š,! ‡)!B:•,A5PÊ   A2 A$p$Þ [ ¥¢%¢+(Number() not on file.3¥¢$¢N( Highest is #B:•,! W(¦[ §è   $tWordFind**›v%-@@"%(¤7‡<@,~]-@@!(¨(-…%…@!9( Find what? E6Œ-@I O6©.Š]‰"„A7† ©4 $ˆª-B:©,‡6‡Š/©7B:©,-‡@(®H -@@ (SIDE 2R"-‡@"(Artist/Group :\-‡@(Title :f-‡@(®p8-ƒ@8($ Ð  Print  Å  Edit  ÅÓà Escape¶$ÀDisplayUsingFormat***›Ô-@ƒ( Þ-@5ƒ( ‘è-@@(’ò-@ @(”ü-@@(“-@ @(Ž ¡!ƒ $ ¡"„ AD6¡-‡$*¡-@(@  ( * AD‘$$ˆ "„ $IntoArrays*›’/ 6-B:•,!%‡ª-%‡+6•7ª<ª,.?/ ªœ46•7<,.‘6-&‡&6–-$@ %‡46—-–%@¦6˜7–<—,.¨’46’.¨°6™7–<—,.¨“46“.¨º6˜7–<–%B:’,&‡,.’Ä6™7–<–%B:“,&‡,.“Î!6–-$@0%‡!6š-–%@)Ø6›7–<š,.¦”46”.¦â6œ7–<š,.¦Ž46Ž.¦ì6›7–<–%B:”,&‡,.”ö6œ7–<–%B:Ž,&‡,.Ž   $P%%GetArrayDataForOutputToDsk/Scn*›Z 6-‡n 6.=:,•4$xF6‘.•7<,"6–-+&‡,$@ %‡06—-–%@;6’.˜7–<—,F6“.™7–<—,–K6–-+&‡,$@0%‡%6š-–%@)06”.›7–<š,;6Ž.œ7–<š,Až"„K AE  ž"‡ ATª "‹ AS@´  B:•,6-%‡ AR0Ü$OutputToDisk***› ATp"(@‘,(@’6(@“@(@”J(@ŽT$^G6ª-F:A•,ª"Ab0-@@ @( DISK FULL!D §G$ÔPrint Labels 10pt *›ÞA Ac6®.>:@E,& B*3®A3 TAPE# ä3®3SIDE 13è3’ Artist/Group3ò-3” 3®3SIDE 23-3“ Artist/Group/3 3Ž3®3’“!3” # %3Ž)3®,3/3 B8   $œR-@@!.(ýPrinter not active!2 §D-@@!H(¨R AapUsedByEntry**›š-@ƒ( $®-@5ƒ( $¸ -@@(  $ -@ @(  $Ì -@@(  $Ö -@ @(  $X$$DiskControl-DataLoad-InOpen **›l* ApP*@@¯v 6•. AŠ@”   $@DataSave-OutputOpen***›T* A€p*@@¯^ ARr A€`@|$†7 +@µ&ƒAR% A€€) §-+„7 A€P86ª-F:A•,-ƒ¢%…5(@ DISK ERROR:ª8$š@ A€€9(@ CORRECT & press a key...= ‚@%l FindMenu***›v , A‰@‚@&( ,6¡-¢€ ( MUSIC TYPES” ( B Bluesž #( C Country#( L Classical¨ (E Easy listening² (F Funk(J JazzÆ (R Rock(S SoulÐ (M Misc.Ú (Press Key To Findä ( W Word Findî V(# Number Find"@‚„)( 1( ®9¥…%…C A‰€G ‚S†4 )"‹V$!%†43)†4# A5% Aƒ ! †4w A7 Aƒ!0@:†,!@–&6†.>:@:†,&@2,0 A$ ! Aƒ#.-¢%¢@ +(Select your Action. .$#oµ&ƒAr36°-F:A`,%F:Aa,$AVG°%@@p[°%@@d(} ±l( ®o$(# A‰MainMenu***›2#oo(/ This program lets you make a disk file of (1-­3) music tapes and print a label for each tape.<#¥@(ACTIONSF#@‚¢%ƒ( P#%%(®7‡<¢, Read all files.Z###( L Load Data from Disk.d#""( E Enter Data in file.n#&&( S Save Data to Disk file.x#( F Find a tape.Œ## 6ª-„@‚„ A‰€# ‚ #) †4 6ª-‡6ž-„6¡-„)6²-@ª# †4l6ª-ƒ6ž-‡´# †4e6ª-@¾# †4s6ª-@6ž-‡È## †4f6ª-@6ž-„#6¡-„Ò#(ª AÜ#//ªARApA@A€Aƒæ#6²- Að# Ÿ *EDIT*›ú#C-„@<(( Edit which field?  Í usic or  ±­´  C(œœ$ 6ª-„ ‚Ÿ£$ †4m A˜@6ª-‡$ †41 A˜6ª-‡"$ †42 A™6ª-‡,$ †43 A™06ª-‡6$ †44 A™P6ª-‡@$ "‹ $J$(ªA’ T$ A™p†4yA’^$ ²"‡Ÿ  AFh$$ä%›î% A˜"‹)4 $ó%( A—6-A:,( ‡)!­A—ô%5 B:•,%‡ A26¡-„( AH2 A’5$ø%B A˜@ A˜! A™+ A™05 A™P? A™pB$H&GetDataFromPerson**›R&+ Ah6Œ-¢ 6.Š+‰"„A˜\&$p&- Ah0 ‚6‘.†-†4W)†4wA˜@z&3‘3>:@–,*‘2>:A#,36‘.>:@:‘,&@2,˜&''‘2>:@e,)‘3>:@,A˜@™& (‘ $¢&-@¢%…(¤¬&1 Ah@6Œ-@  #6’.Š1‰"„A™­&$¶&-@ @ (³À&1 AhP6Œ-@0 #6”.Š1‰"„A™ Á&$Ê&-@@(¤Ô&1 Ah`6Œ-@  #6“.Š1‰"„A™@Õ&$Þ&-@ @(³è&1 Ahp6Œ-@0 #6Ž.Š1‰"„A™`é&$ò&D A™-ƒ@ 5(Make any changes (Y/N)9 ‚A†4yD$ü&  AP$'(2„‚@…6ª-‡#‡%2„„„„($' A™ª-‡$ƒ ª$'$$DeclareConstants-ClearStrings*›'·6‚-A6‡-@'6ƒ-@36„-?6¥-@…K6€-AdW6Ÿ-AR]6£-„c6 -‡o6§-A™’{6-B‡6-A“6¢-@Ÿ6…-@«6‹-@(·6µ-A$'s +@µ&‡AW'µA45µ%ƒA4W6°-F:A`,%AV$F:Aa,k°%@ @sµ&ƒ„.'F -…ƒ#(@ tape file ii+-„…%‡F(@ by Tom Roscoe8'‰‰’;@ ,“;@ ,”;@0,Ž;@0,;@,‘;@,¨;@ ,¦;@0,¤;@ ,³;@0,®;@@,Š;@0,B'R<±;@(,ˆ;A(,†;@,©;@,¯;@,R6¯.D1:TAPEFILE.DATL'JJ6ˆ.@lj: k+*o pu i-=v c bxz4 36 521 .n m/ r ey twq9 07~8<>fhd gsaV'[[6ˆ7@e<A(,.@LJ: K\^O PU I_|V C BXZ$ #& %'![ ]N M? R EY TWQ( )' @<>FHD GSA`'Q6¦.>:@2,!6¦7@),.¦*6¦7ƒ,.¦96³.>:@,H6³7@),.³Q6³7ƒ,.³j'E6¨.¦7‡<@ ,%6¤.³7‡<@ ,;6±. TAPE FILE IIE Bt'?'6­-P:+I:,&A,'A,3­!A?6­-A~'>>˜;­$@ ,™;­$@ ,›;­$@0,œ;­$@0,•;­,ˆ'+ 6›. 6›7­$@0,.›%6›7ƒ,.›+6œ.›’'"6˜.›7@<­$@ ,"6™.˜Ø' Bâ'6®.>:@, B$ä'6®7@7,.®6®7ƒ,.®$–(FileExists?IfNot,MakeOne!›—(IfCan'tReadorMake,Report,›˜(ThenWaitForPerson,Retry!› (* B *@@¯ª(@ BP´(5 A€@5@@¯Ò(S@‚„6ž-‡!-‡@B(@LOADING DISK FILES L ApP+„S$•*Input$:AG1$,AG2$:Artist›–* TI1$,TI2$:Titles,TN$:tape#›—*MUS$:Music type-BLK1,2$:›˜*blanks,Clear $DataArea›š*""RT$=MusicTypeArray, typePos=››*TASK=1 V-disk, 3/4 Find›œ*""S=0 screen titles print flag›*C=tape# counter,C1/20/30›ž*""C*RecLenght offset in arrays›Ÿ*INKEY$ Simulation @LN100› *KEY$ is KEY lookup ARRAY›¡*!!GOSUB INKEY returns with K$›¢*!!& value of K, Make$ @ LN200›RÐòïçòáí Öáòéáâìåó Ìéóôåò›Rz%6´-F:A0,%F:A1,$AVIª-´F:A2,%AV$F:A3,R6-F:ª,^!A`l6-&A(t(>:,z6-„R! @6)!@!6-‹%…R (>:, ª}  Áî ïòéçéîáì   ›} ÔÁÐÅÆÉÌÅ ÐÒÏÇ® ›} âù Ôïí Òïóãïå  ›}  Öåòóéïî  ÉÉ   ›} Öº±° Áðòéì ¸µ  › }Comments:213-635-3817›€ D:TAPEFILE