-5HÀÂ# º#»#|>F >!þÿÿ{ |#^É"O=0:Ÿ160,0:Ÿ161,125:¥:®(256):98 7½#0Ž: 12,10: 13,¾(220):½#0:ž(X,Z,Y):Ÿ257,Y:Y=0:A1$="" K0$=Þ:„K0$=""‰3  A=Å(K0$) 6„A=12‰12ˆ„(A=5´A=4´A=24´A=27)‰A1$=ß(A):ƒß(A+128);:•  „A=13‰• -„A=127‰„Y>0:Y=Y-1:A1$=A1$(;1,Y):ƒß(127);:3 +„A=8‰„Y>0:Y=Y-1:A1$=A1$(;1,Y):ƒß(127);:3 („(A>-1³A<32)´(A>126)‰ƒß(7+128)ß(8);:3 "ƒK0$;:A1$=A1$+K0$:Y=Y+1:„Y=X‰•ˆ3 „L=0‰Û13:3 A1$=D0$(L-1,Z):ƒA1$;:• ž(Z,Y):„Z<2‰• %¯:±1,Z:ƒ[A64 32];:±1,Z+Y:ƒ[A64 32]; $±2,Z:ƒ"NAME";:±15,Z:ƒ"TYPE";:±25,Z %ƒ"Description";:±55,Z:ƒ"Entry no."; (±12,Z+Y:ƒ"SIDE";:±24,Z+Y:ƒ"BAUD RATE"; ±35,Z+Y:ƒ"Cassette name";:ª:• #ž(Z,Z7$):±(32-À(Z7$)/2),Z:ƒZ7$;:• Gž(Z,Y,X):J=((X<0)´(X>L-1)):±1,Z+1:ƒ[A64 32];:±1,Z+Y+1:ƒ[A64 32];:„J‰• !S=¼(D0(X,6)):±55,Z+1:ƒ[I4 X+1]; $±2,Z+1:ƒD0$(S,0):±15,Z+1:ƒD0$(S,1) O±25,Z+1:ƒD0$(S,2):±12,Z+Y+1:ƒD0$(S,3):±24,Z+Y+1:ƒD0$(S,4):±35,Z+Y+1:ƒD0$(S,5) • a O=-1:100 b*’[8,"loading directory routine"]20:Ã97 cáM"basdir.m"32000 d¥:®(10000):ŒD0(150,6),M0(9) n L=0: L#1 x)¡ the JDK Ventures TAPE CATALOG program ‚·:¯ Œ±1,1:ƒ[A64 32] –$±19,1:ƒ"JDK Ventures TAPE CATALOG"  ŠI=1™9:“M0$(I):‹I ªÛ0,8:±1,1:ƒ[A64 32] ´±30,1:ƒ"MENU":ª ¾”"1 - Load tape file" È”"2 - Save tape file" Ò”"3 - Work on your file" Ü.”"4 - Sort the file into alphabetical order" æ)”"5 - Print the file to SCREEN/PRINTER" ð”"6 - Exit the program" ú”"7 - Search file" ”"8 - Edit file" ”"9 - Erase file" ŠI=1™9:±10,I+2:ƒM0$(I):‹I ",ƒ\"Press [S] to select highlighted option" ,ƒ›(7)"[E] to move bar up" 6ƒ›(7)"[X] to move bar down" @* ± 35,4:¯:ƒ" Next entry #:"[I4 L+1]" ":ª J N=3:Ÿ257,1 T±10,N+2:¯:ƒM0$(N):ª ^K0$=Þ:„K0$=""‰350 r±10,N+2:ƒM0$(N) |„K0$="E"´K0$=ß$(5):N=N-1 †„K0$="X"´K0$=ß$(24):N=N+1 „K0$="S"´K0$=ß$(13)‰440 š „N<1:N=9 ¤ „N>9:N=1 ®340 ¸8Ÿ257,0:Û24:N’460,580,780,950,1100,1320,1470,1690,1900  ·:¯:170 Ì·:¯:±1,1:ƒ[A64 32]:±27,1 Öƒ"LOAD FILE":±1,3:ƒ[A64 32] à±15,3:ƒ"FILENAME" å"±1,9:ƒ[A64 32]:±2,9:ƒ"DIRECTORY" æª:A0$="*.tpe":„O‰490 ç±1,10:L=¿(32000,0) êª:±15,4:’[6,0,0]2:„A1$=""‰• ô±2,8:ƒ"SEARCHING" þå"I",6,A1$+".TPE": #0Ž:½#6 –Z7$:„Z7$(;1,5)<>"*****"‰520 2F0$=Z7$(;11,16):L=¼(Ï(Z7$(;6,10))):„F0$<>A1$‰520 YŸ61696+L,13:ŠI=0™L-1:–Z7$,D0$(I,0),D0$(I,1),D0$(I,2),D0$(I,3),D0$(I,4),D0$(I,5),D0(I,6) 0Ÿ61696+I,9:‹I:½#0: #0:æ6:Û9:• D·:¯:±1,1:ƒ[A64 32]:±27,1 Nƒ"SAVE FILE":±1,3:ƒ[A64 32] X±15,3:ƒ"FILENAME" ]"±1,9:ƒ[A64 32]:±2,9:ƒ"DIRECTORY" ^„O‰610 _"ª:±1,10:A0$="*.tpe":U=¿(32000,0) bª:±15,4:’[6,0,0]2:„A1$=""‰• l¯:±1,8:ƒ[A64 32]:±21,8 v"ƒ"PRESS ANY KEY TO SAVE":ª:±27,9 €K0$=Þ:„K0$=""‰640 Š Ÿ61696+L,13 ”å"O",6,A1$+".TPE": #6 žƒ"*****";[I5 L];A1$ ¨ ŠI=0™L-1 ²ƒ[I5 I];","; ¼3ƒD0$(I,0);",";D0$(I,1);",";D0$(I,2);",";D0$(I,3); Æ(ƒ",";D0$(I,4);",";D0$(I,5);",";D0(I,6) Ð Ÿ61696+I,9 ÚÛ0 ä‹I îƒ"0,0,0,0,0,0,0" ø #0:æ6:Û23;23;24 •  ·:±1,1:ƒ[A64 160] ±30,1:¯:ƒ"FILE"  -’[3,2]14:’[8,3]14:±24,14:ƒ"^L - Last entry" \*’[3,2,L-1]21:’[8,3,-1]21:±55,9:ƒ[I4 L+1] f(±2,9:’[6,0,1]2:„A1$=""‰•ˆD0$(L,0)=A1$ p+±15,9:’[1,1,1]2:„A1$=""‰870ˆD0$(L,1)=A1$ z,±25,9:’[29,2,0]2:„A1$=""‰880ˆD0$(L,2)=A1$ „,±12,12:’[1,3,1]2:„A1$=""‰890ˆD0$(L,3)=A1$ Ž,±24,12:’[4,4,1]2:„A1$=""‰900ˆD0$(L,4)=A1$ ˜-±35,12:’[15,5,1]2:„A1$=""‰910ˆD0$(L,5)=A1$ ¢3L=L+1:„L>149‰±24,15:¯:ƒ"FILE AREA FULL":ª:Û 0,8:• ¬D0(L,6)=Í(L):860 ¶·:¯:±1,1:ƒ[A64 32] À±27,1:ƒ"SORT FILE" Ê„L=0´L=1‰ƒ"PTTH!":Û0,8:• Ô±1,4:ƒ[A64 32] Þ&±3,4:ƒ"PRESS ANY KEY TO START":±40,4 èƒ"CURRENT STATUS":ª ò±3,5 üK0$=Þ:„K0$=""‰1020 ±40,5:ƒ"SORTING"  ŠS=1™L-1:M=0:ŠI=1™L-S 0 „D0$(¼(D0(I-1,6)),0)<=D0$(¼(D0(I,6)),0)‰1070 $0 X1=D0(I-1,6):D0(I-1,6)=D0(I,6):D0(I,6)=X1:M=1 . ‹I:„M=0‰‹*S 1090 8 ‹ S B±40,5:ƒ"SORT FINISHED":Û0,8:• L„L=0‰•ˆ·:¯:±1,1:ƒ[A64 32] V±27,1:ƒ"PRINT FILE" `2ª:±1,4:ƒ"to [S]creen or [P]rinter or [ESC]ape?"; jK0$=Þ:„K0$=""‰1130 t„K0$=ß(27)‰• ~„K0$<>"s"³K0$<>"p"‰1130 ˆƒ" "K0$:„K0$="s"‰1290 ’‚ß(27)"-"ß(1); œ+‚›(2)"NAME"›(12)"TYPE"›(20)"Description"; ¦.‚›(53)"side"›(60)"Baud"›(65)"Cassette name"; °‚ß(27)"-"ß(0) ºŠI=0™L-1:X=¼(D0(I,6)) Ä‚›(1)D0$(X,0); ΂›(9)D0$(X,1); Ø‚›(17)D0$(X,2); â‚›(50)D0$(X,3); ì‚›(57)D0$(X,4); ö‚›(62)D0$(X,5):‹ I 2‚\ß(14)"JDK Ventures"ß(20)" Tape CATALOG v1.0":•  ŠI=0™L-1:X=¼(D0(I,6)) ?ƒD0$(X,0)D0$(X,1)" "D0$(X,2)" "D0$(X,3)D0$(X,4)" "D0$(X,5):‹I K0$=Þ:„K0$=""‰1310ˆ• (·:±1,1:ƒ[A64 160]:¯ 2±30,1:ƒ"EXIT":ª:±1,2 <‘ ¾ ·:¯:±1,1:ƒ[A64 32] È ± 26,1:ƒ"SEARCH FILE":ª Ò# ƒ\›(10)"Select search subject :" Ü ƒ ›(10)"1 - Filename" æ ƒ ›(10)"2 - File type" ð ƒ ›(10)"3 - Description" ú ƒ ›(10)"4 - Side"  ƒ ›(10)"5 - Speed (baud)"  ƒ ›(10)"6 - Cassette name"  ƒ ›(15)":-"; " K0$=Þ:„ K0$="" ‰ 1570 , „ K0$<"1"´K0$>"6"‰1570 6 ƒ" "K0$:B=¼(Ï(K0$)) @H ƒ›(10)"Enter Search string ";:Y=-(B<3):Y=Y-(B>3):’[29,0,Y]2:Z7$=A1$:ƒ E< ƒ"Results echoed to printer (Y/N)";:’[1,0,1]2:P=(A1$="Y") J8’[11,2]14:B=B-1:F=0:ŠI=0™L-1:C=¼(D0(I,6)):Z6$=D0$(C,B) T „Á(Z6$,Z7$)=0‰1660 ^> ’[11,2,I]21:„P:‚›(1);D0$(C,0);›(9);D0$(C,1);›(17);D0$(C,2); h4 „P:‚ ›(51);D0$(C,3);›(57);D0$(C,4);›(61);D0$(C,5) r= F=-1:„²(P)‰±1,15:ƒ"[MORE]";:’[1,0,1]2:„A1$=ß$(27)‰‹*I 1670 |) ‹ I:„ F=0 ‰ ƒ"Sorry, couldn't find it" † ƒ"SEARCH COMPLETED":• š, ·:¯:± 1,1:ƒ[A64 32]:± 30,1:ƒ"EDIT FILE":ª ¤?’[16," end edit,<^E> previous,<^X> next, forward"]20 ®’[3,2]14:’[7,2]14:’[11,2]14 ¸,±2,15:ƒ"Enter entry# to start edit from "; Â"’[4,0,1]2:I=¼(Ï(A1$)):I=I-1:„I‰• ñ1,15:ƒ[A64 32]; Ì4B=0:„I=L‰780ˆ’[3,2,I-1]21:’[7,2,I]21:’[11,2,I+1]21 ÖaB=-B*(B<6):Z=-(2*(B=0)+15*(B=1)+25*(B=2)+12*(B=3)+24*(B=4)+35*(B=5)):Y=-(8*(B<3)+10*(B>2)):±Z,Y ×4Z=-(6*(B=0)+(B=1)+29*(B=2)+(B=3)+4*(B=4)+15*(B=5)) ØY=-(B<2):Y=Y-(B>2):’[Z,B,Y]2 à„A1$=ß(5)‰I=I+(I>0):1740 ê„A1$=""‰B=B+1:1750 ô„A1$=ß(27)‰• þ„A1$=ß(24)‰I=I+1:1740 #D0$(¼(D0(I,6)),B)=A1$:B=B+1:1750 l·:¯:±1,1:ƒ[A64 32] v*Z7$="ERASE FILE":±(64-À(Z7$))/2,1:ƒZ7$:ª €ƒ\›(10)"1. Erase all of file" Š>ƒ›(10)"2. Erase part of file (file will require re-sorting)" ” ƒ›(10)"3. Return to main menu" žƒ\:¯:ƒ[A64 32]:ª ¨#±10,7:ƒ"Enter your selection :-"; ²K0$=Þ:„K0$=""‰1970 ¼„K0$<"1"´K0$>"3"‰1970ˆƒ" "K0$ Æ„K0$="3":2200 ЄK0$="1":L=0:D0(0,6)=0:2200 Ú'±10,10:ƒ"Enter delete parameters as:" ä(±10,11:ƒ"-N to delete from start to N" î&±10,12:ƒ"N- to delete from N to end" ø)±10,13:ƒ"N1-N2 to delete from N1 to N2"  ±10,14:ƒ"N to delete entry# N"  ±38,10:–""Z7$ )S=Á(Z7$,"-"):„S=0:X=¼(Ï(Z7$)):Y=X:2090  7Z6$=Z7$(;1,S-1):X=¼(Ï(Z6$)):Z6$=Z7$(;S+1):Y=¼(Ï(Z6$)) *„Y=0³X<>Y:L=X-1:2200 4 „Y„X=0³Y<>X‰2130 H„X<>0³Y<>0³X>0³Y<=L+1‰2160 R ŠI=Y-1™L \ V=¼(D0(I-Y,6)):W=¼(D0(I,6)) f,ŠJ=0™5:D0$(V,J)=D0$(W,J):‹J:‹I:L=L-Y:2200 p3ŠI=X-1™Y-1:V=¼(D0(I-(Y-X),6)):W=¼(D0(I,6)):ŠJ=0™5 zD0$(V,J)=D0$(W,J):‹J:‹I „ L=L-(Y-X) ŽŠI=0™L:D0(I,6)=Í(I):‹I ˜!Û16;16;20;23;0;20;23,8:·:¯:170 ÿÿtapec