1 REM************************************************************************** 2 REM* DISK OPERATIONS PROGRAMS - DOP * 3 REM* WRITTEN BY CHARLES O. GAUTHIER * 5 REM* FOR ALL FRUSTRATED DISK LOVERS * 6 REM************************************************************************** 10 REM********************************* 20 REM* DECLARE VARIABLES * 30 REM********************************* 40 DIM A$(150) 50 QO$=CHR$(34):K$=" " 60 K1$="R[146]UN U[146]P D[146]OWN Q[146]UIT" 70 K2$="P[146]URGE U[146]P D[146]OWN Q[146]" 80 RX=781:RY=782:RP=783:CP=65520:XS=23:YS=0:C$=CHR$(13):SD=828 90 S$(1)=" PURGE/DELETE [146]":S$(2)=" C O P Y [146]" 100 S$(3)=" RENAME DISK [146]":S$(4)=" DIRECTORY [146]" 110 S$(5)=" C H A N G E [146]":S$(6)="[144] F O R M A T [146]" 120 S$(7)=" PRINT DIRECTORY [146]":S$(8)="[144] LOAD / RUN [146]" 130 M1$=" " 140 M$="[144]---------------------------------------" 190 GOTO19000 191 REM************************************************************************ 192 REM* * 193 REM* SUBROUTINES SECTION * 194 REM* * 195 REM************************************************************************ 196 REM 197 REM******************************** 198 REM* CHECK FOR YES/NO * 199 REM******************************** 200 PRINT"[147]"SPC(240)SPC(80)TAB(10)"ARE YOU SURE":PRINTSPC(50)"YOU WANT TO" 210 PRINTTAB(8)S$(S):PRINT 220 PRINTTAB(10)"  Y [146] FOR YES 230 [153][163]10)"  N WAIT FOR NO" 240 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]240 250 [139]G$[178]"N"[167]NS[178]1 255 [142] 257 [143]******************************** 258 [143]* ASK PURGE OR DELETE * 259 [143]******************************** 260 [153]"LOAD"[166]240)[166]80)[163]10)"SELECT WHICH":[153][166]50)"YOU WANT TO DO" 265 [153][163]6)"  F1 WAIT FOR DIRECTORY PURGE 270 PRINTTAB(6)"  F3 [146] FOR 1 PROGRAM DELETE 275 [161]G$:[139]G$[179][177]"INPUT"[175]G$[179][177]"DIM"[167]275 280 [142] 297 [143]******************************** 298 [143]* DIRECTORY CHECK * 299 [143]******************************** 300 DC[178]0:[153]"LOAD"[166]240)[166]80)" DO YOU WANT A DIRECTORY FIRST" 310 [153][163]10)"  Y WAIT FOR YES 320 PRINTTAB(10)"  N [146] FOR NO" 330 GETB$:IFB$<>"Y"ANDB$<>"N"THEN330 340 IFB$="Y"THENDC=1 350 RETURN 357 REM******************************** 358 REM* PRINT BLANK LINE * 359 REM******************************** 360 PX=0:PY=23:GOSUB470:PRINTM1$:RETURN 397 REM******************************** 398 REM* PAGE TURNER * 399 REM******************************** 400 POKERX,XS:POKERY,YS:POKERP,0 410 SYS CP:IFR=1THENR=0:RETURN 420 PRINT"PRESS [144] SPACEBAR [146] TO CONTINIUE[144] [144] Q [146] QUIT" 430 GETB$:IFB$="Q"THENGOSUB600:IFGG=0THEN400 440 IFGG=1THEN670 450 IFB$<>CHR$(32)THEN430 460 RETURN 467 REM******************************** 468 REM* POSITION CURSOR * 469 REM******************************** 470 POKERX,PY:POKERY,PX:POKERP,0 480 SYS CP 490 RETURN 497 REM******************************** 498 REM* VALIDATE DISK * 499 REM******************************** 500 PRINT"[147]"SPC(240)TAB(12)"PLEASE SELECT":PRINTTAB(12)" YOUR CHOICE " 510 PRINTTAB(6)"  F1 [146] TO VALIDATE DISK 512 [153][163]13)"(THIS MAY TAKE A WHILE!)" 520 [153][163]6)"  F3 WAIT TO RETURN TO MENU 525 PRINT"A VALIDATE MERELY RE-ORGANIZES THE" 527 PRINT"DISK'S BAM (BLOCK AVAILABILITY MAP)." 530 GETG$:IFG$<>"[133]"ANDG$<>"[134]"THEN530 540 IFG$="[134]"THENRETURN 550 PRINT"  NOW VALIDATING [146]" 560 CLOSE15:OPEN15,8,15:PRINT#15,"V":CLOSE15 570 RETURN 597 REM******************************** 598 REM* QUIT Y/N * 599 REM******************************** 600 PRINT"[147] PLEASE BE SURE YOU WANT TO QUIT" 610 GG=0 620 PRINT"  F1 [146] TO QUIT" 630 PRINT"  F3 [146] TO GO BACK 640 [161]A$:[139]A$[179][177]"INPUT"[175]A$[179][177]"DIM"[167]640 650 [139]A$[178]"INPUT"[167]GG[178]1 660 [142] 670 [153][199](142):[153]"LOAD BYE FOR NOW!!!!":[147]"PAYLOAD CONNECT",8:[128] 696 [143]******************************* 697 [143]* DIRECTORY ( F4 MAIN MENU) * 699 [143]******************************* 700 [160]1:[160]15:[159]15,8,15:[159]1,8,0,"$":NF[178]0:[141]2690 702 [139]A$[179][177]"00"[167][160]15:[160]1:[142] 720 [161]#1,F$,S$ 730 [161]#1,F$,S$ 740 [161]#1,F$,S$ 750 CO[178]CO[170]1 760 F[178]0:[139]F$[179][177]""[167]F[178][198](F$) 770 [139]S$[179][177]""[167]F[178]F[170][198](S$)[172]256 780 [153][202]([196](F),2);[163]3);[199](34); 790 [161]#1,S$:[139]ST[179][177]0[167]890 800 [139]S$[179][177][199](34)[167]790 810 [161]#1,S$:[139]S$[179][177][199](34)[167][153]S$;:[137]810 820 [153][199](34);:NF[178]NF[170]1 830 [161]#1,S$:[139]S$[178][199](32)[167]830 840 [153][163]19);:T$[178]"" 850 T$[178]T$[170]S$:[161]#1,S$:[139]S$[179][177]""[167]850 860 [153][200](T$,3) 870 [139]CO[178]23[167]CO[178]0:[137]920 880 [139]ST[178]0[167]730 890 [153]"BLOCKS FREE" 900 [160] 1 910 CO[178]0:[142] 920 [153]" PRESS STOP Y WAIT FOR MORE - STOP N WAIT TO STOP"; 930 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]930 940 [139]G$[178]"N"[167][160]1:CO[178]0:PX[178]0:PY[178]23:[141]470:[153]M1$:[142] 950 [153]"LOAD":[137]880 997 [143]******************************** 998 [143]* PURGE/DELETE DISK F1 * 999 [143]******************************** 1000 S[178]1:[141]200:S[178]0:[139]NS[178]1[167]NS[178]0:[142] 1005 [141]260:[139]G$[178]"DIM"[167]1700 1010 D$[178]"0":D[178][197](D$):SP[178]1108:LS[178]17 1020 [153]"LOAD"[166]240)[166]240)" PURGE CURRENT DISK  Y WAIT OR  N WAIT" 1030 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]1030 1040 [139]G$[178]"N"[167][142] 1050 [153]"LOAD":[141]700:PX[178]24:PY[178]2:PO[178]SP 1060 [141]470 1070 [153]K$:[129]T[178]1[164]50:[130]:[141]470:[153]K2$:[129]T[178]1[164]100:[130] 1080 [161]G$:[139]G$[179][177]"P"[175]G$[179][177]"U"[175]G$[179][177]"D"[175]G$[179][177]"Q"[167]1060 1090 [139]G$[178]"Q"[167]500 1100 [139]G$[178]"U"[167][141]470:[153]K$ 1102 [139]G$[178]"U"[167][139]PY[177]2[167]PY[178]PY[171]1:PO[178]PO[171]40:[139]PY[179]0[167]PY[178]0:PO[178]SP[171]80 1110 [139]G$[178]"P"[167][141]1200:[139]D1$[178]"N"[167]1060 1120 [139]G$[178]"D"[167][141]470:[153]K$ 1122 [139]G$[178]"D"[167][139]PY[179]NF[167]PY[178]PY[170]1:PO[178]PO[170]40:[139]PY[178][177]23[167]PY[178]0:[137]1160 1130 [139]G$[178]"U"[176]G$[178]"D"[167]1060 1140 [141]470:[153]K$:PY[178]PY[170]1:PO[178]PO[170]40:[139]PY[178][177]23[167]PY[178]0:PO[178]SP:[137]1160 1150 [137]1060 1160 [141]360:[153]" CONTINUE PURGE DISK  Y WAIT OR  N WAIT " 1170 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]1170 1180 [139]G$[178]"N"[167]500 1190 [137]1050 1200 A$[178]"":B$[178]"":PP[178]PO:[129]S[178]1[164]LS 1210 A[178][194](PP):[139]A[179]32[167]P[178]A[170]64:[137]1230 1220 P[178]A 1230 A$[178][199](P):PP[178]PP[170]1:[139]A$[178][199](34)[167]S[178]LS:[137]1250 1240 B$[178]B$[170]A$:[130] 1250 R[178]1:[141]400:[153]" PURGE? WAIT "B$"  Y WAIT OR  N WAIT" 1260 [161]D1$:[139]D1$[179][177]"Y"[175]D1$[179][177]"N"[167]1260 1270 R[178]1:[141]400:[153]M1$ 1280 [139]D1$[178]"N"[167][142] 1290 [159] 1,8,15 1300 [152]1,"S:"[170]B$:B$[178]"" 1310 [160] 1:[142] 1700 [141]300:[139]DC[178]1[167][153]"LOAD":[141]700 1710 [141]360:PX[178]0:PY[178]23:[141]470 1720 [133]" DELETE WHICH PROGRAM WAIT";PN$:[139]PN$[178]""[167][142] 1730 S$(0)[178]" DELETE WAIT "[170]PN$ 1740 [141]200:[139]NS[178]1[167]NS[178]0:[142] 1750 S$(0)[178]"" 1760 [159]1,8,15:[152]1,"S:"[170]PN$:[160]1: 1770 [141]500:[142] 1997 [143]******************************* 1998 [143]* RENAME / DISK ID F3 * 1999 [143]******************************* 2000 S[178]3:[141]200:S[178]0:[139]NS[178]1[167]NS[178]0:[142] 2003 DV[178]0:SP$[178]" " 2004 M$[178]"STOP---------------------------------------" 2005 N$(1)[178]" CHANGE DISK NAME ":N$(2)[178]"" 2015 N$(3)[178]"" 2020 [153]"LOAD STOP DISK CHANGE WAIT" 2025 [153]" PLEASE SELECT YOUR CHOICE" 2030 [153]"  F1 WAIT "N$(1) 2045 [153]"  F7 WAIT  MAIN MENU " 2050 [161]CH$:[139]CH$[179][177]"INPUT"[175]CH$[179][177]"LET"[167]2050 2055 V[178]136[171][198](CH$):[139]V[178]3[167]V[178]2 2060 [139]V[178]0[167][138] 2065 [141]2305:[153]"LOAD"M$ 2070 [153][163]8)" OLD NAME/ID ":[153]DD$:[153]M$ 2100 [139]V[178]1[167]2270 2135 [141]2305 2160 [153]" PLEASE TYPE THE  16 LETTERCLOSEWAIT":[153]" NAME FOR THE DISK "; 2170 [133]NN$:[139][195](NN$)[177]16[176][195](NN$)[179]1[167][138]2003 2175 D$[178]"":T[178][195](NN$):DF[178]16[171]T:[129]FD[178]1[164]DF:D$[178]D$[170][199](32):[130]:NN$[178]NN$[170]D$ 2180 NN$[178][200](NN$,16):[139]NN$[178]""[167][138] 2185 [139]V[178]2[167]2340 2270 [153]" PLEASE TYPE THE  TWO DIGIT":[153][163]4)" OR LETTER ID"; 2275 [133]I$:[139][195](I$)[179][177]2[167]2270 2285 I$[178][200](I$,2) 2295 [137]2340 2305 A$[178]"":[143] <<<< READ CURRENT DISK NAME >>>> 2310 [160]15:[160]1:[159]1,8,2,"#":[159]15,8,15 2315 [152]15,"U1:2";0;18;0:[141]2690 2320 [152]15,"B-P:2,144":[141]2690:ND$[178]"" 2325 [129]I[178]1[164]20:[161]#1,A$:ND$[178]ND$[170]A$:[130]:ID$[178][201](ND$,2):ND$[178][200](ND$,16) 2330 DD$[178]"NAME STOP"[170]ND$[170]" ID#STOP "[170]ID$ 2335 [160]1:[152]15,"I":[160]15:[142] 2340 [141]2430 2380 [141]2305:[153]M$:[153][163]8)" NEW NAME/ID ":[153]DD$ 2390 [153]M$:[153]" WE HAVE FINISHED WITH THIS DISK" 2400 [153][163]10)"STOP TO DO ANOTHER DISK " 2405 [153][163]10)"PRESS  Y WAIT OR  N WAIT TO STOP" 2410 [161]B$:[139]B$[179][177]"Y"[175]B$[179][177]"N"[167]2410 2415 [139]B$[178]"Y"[167][138]2003 2420 [138] 2430 [160]15:[160]1:[159]1,8,2,"#":[159]15,8,15 2435 [152]15,"B-P:2,144":[141]2690:I$[178]" "[170]I$[170]" 2A ":ID$[178]" "[170]ID$[170]" 2A " 2440 [145]V[141]2485,2475,2465:[137]2455 2455 [152]15,"I":[141]2690 2460 [160]1:[152]15,"I":[160]15:[142] 2465 [152]1,NN$[170]I$:[141]2690 2470 [152]15,"U2:2";0;18;0:[141]2690:[142] 2475 [152]1,NN$[170]ID$:[141]2690 2480 [152]15,"U2:2";0;18;0:[141]2690:[142] 2485 [152]1,ND$[170]I$:[141]2690 2490 [152]15,"U2:2";0;18;0:[141]2690:[142] 2690 A$[178]"":[143] <<<<< ERROR CHANNEL >>>>>>> 2695 [132]15,A$,B$,C$,D$ 2700 [139]A$[178]"00"[167][142] 2705 [141]2730:[153]" ERROR NUMBER "A$:[153] 2710 [153]" TRACK NUMBER "C$:[153] 2715 [153]" BLOCK NUMBERSTOP "D$"":[153]:[153] 2720 [153]" DESCRIPTIONSTOP :"B$:[153]"" 2725 [152]15,"I":[160]1:[160]15:[141]400:[138] 2730 [153]"LOAD (null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)" 2735 [153]" SGN *** READ ERROR ON DISK *** +" 2740 [153]" (null)ANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDANDSQR" 2745 [142] 2997 [143]******************************* 2998 [143]* CHANGE NAME F5 * 2999 [143]******************************* 3000 S[178]5:[141]200:S[178]0:[139]NS[178]1[167]NS[178]0:[142] 3010 [153]"LOAD":[141]700:[133]" CHANGE WHICH PROGRAM WAIT";PN$ 3020 [133]" CHANGE TO WHAT NAME WAIT";NP$ 3030 S[178]0:S$(0)[178]"CMDCMDCMDCMDCMDCHANGE "[170]PN$[170]" TO "[170]NP$ 3035 [141]200:[139]NS[178]1[167]NS[178]0:S$(0)[178]"":[142] 3040 [160]1:[159] 1,8,15:[152]1,"R0:"[170]NP$[170]"=0:"[170]PN$ 3050 [160]1:[142] 3997 [143]******************************* 3998 [143]* COPIER F2 * 3999 [143]******************************* 4000 S[178]2:[141]200:S[178]0:[139]NS[178]1[167]NS[178]0:[142] 4010 [153]"LOAD PROGRAM COPIER" 4020 [153] 4030 [133]" INSERT SOURCE DISK  RETURN WAIT";A$ 4040 [153] 4050 PN$[178]"":[133]" FILE NAME ";PN$:[139]PN$[178]""[167][142] 4060 F$[178]"":[133]" FILE TYPE ( S,P,U) ";F$:[139]F$[178]""[167][142] 4070 [153] 4080 [160]2:[160]15:[159] 15,8,15 4090 [159] 2,8,2,"0:"[170]PN$[170]","[170]F$[170]",R" 4100 [141]4300:[139]RT[178]1[167]RT[178]0:[142] 4110 I[178]1:H[178]0 4120 [161]#2,A$ 4130 [139]A$[178]""[167]A$[178][199](0) 4140 A$(H)[178]A$(H)[170]A$ 4150 [139]ST[179][177]0[167][160]2:[137]4180 4160 I[178]I[170]1:[139]I[177]254[167]I[178]1:H[178]H[170]1:[153]H; 4170 [137]4120 4180 [153] 4190 [153] 4200 [133]" INSERT DESTINATION DISK  RETURN WAIT";A$ 4210 [152]15,"I" 4220 [160]2:[159]2,8,2,"@0:"[170]PN$[170]","[170]F$[170]",W" 4230 [141]4300:[139]RT[178]1[167]RT[178]0:TR[178]1:[142] 4240 [129]X[178]0[164]H 4250 [152]2,A$(X); 4260 [130]X 4270 [160]2 4280 [160]15 4290 TR[178]1:[142] 4300 [132]15,EN,EM$,ET,ES 4310 [139]EN[178]0[167][142] 4320 [153]"DISK ERROR" 4330 [153]EN;EM$;ET;ES 4340 [160] 2 4350 [160] 15 4360 [141]400:RT[178]1 4370 [142] 4997 [143]******************************* 4998 [143]* DIRECTORY F4 * 4999 [143]******************************* 5000 S[178]4:[141]200:S[178]0:[139]NS[178]1[167]NS[178]0:[142] 5010 [153]"LOAD":[141]700:[141]400:[142] 5997 [143]******************************* 5998 [143]* INIT/FORMAT F6 * 5999 [143]******************************* 6000 S[178]6:[141]200:S[178]0:[139]NS[178]1[167]NS[178]0:[142] 6010 [153]"LOADTYPE IN A DISK NAME(16 MAX.)":[133]DN$:[139][195](DN$)[177]16[167]6010 6020 [153]"TYPE IN A TWO CHARACTER IDENTIFIER":[133]TD$:[139][195](TD$)[177]2[167]6020 6030 NN$[178]DN$[170]","[170]TD$ 6040 [160]15:[159]15,8,15:[152]15,"N:"[170]NN$:[141]2690:[160]15:[142] 6997 [143]******************************* 6998 [143]* INPUT/RUN F8 * 6999 [143]******************************* 7000 S[178]8:[141]200:S[178]0:[139]NS[178]1[167]NS[178]0:[142] 7005 [153]"LOAD"[166]240)[166]80)[163]10)"SELECT ONLY ONE" 7010 [153][163]10)"  F1 WAIT INPUT RUN 7020 PRINTTAB(10)"  F3 [146] MENU RUN 7030 [161]G$:[139]G$[179][177]"INPUT"[175]G$[179][177]"DIM"[167]7030 7040 [139]G$[178]"DIM"[167]7100 7050 [141]300:[153]"LOAD":[139]DC[178]1[167]DC[178]0:[141]700 7060 [153]" PLEASE TYPE THE PROGRAM NAME":PN$[178]"" 7070 [153]" THEN PRESS  RETURN WAIT";:[133] PN$ 7080 [139]PN$[178]""[167][142] 7090 [153]"LOADLOAD"QO$PN$QO$",8,1":[151]631,19:[151]632,131:[151]198,2:[128] 7100 [153]"LOAD":[141]700 :PX[178]23:PY[178]2:SP[178]1108:LS[178]17:PO[178]SP 7110 [141]470 7120 [153]K$:[129]T[178]1[164]50:[130]:[141]470:[153]K1$:[129]T[178]1[164]100:[130] 7130 [161]G$:[139]G$[179][177]"R"[175]G$[179][177]"U"[175]G$[179][177]"D"[175]G$[179][177]"Q"[167]7110 7140 [139]G$[178]"Q"[167][142] 7150 [139]G$[178]"U"[167][141]470:[153]K$:PY[178]PY[171]1:PO[178]PO[171]40:[139]PY[179]0[167]PY[178]0:PO[178]SP[171]80 7160 [139]G$[178]"D"[167][141]470:[153]K$:PY[178]PY[170]1:PO[178]PO[170]40 7170 [139]PY[178]22[167]PY[178]0:PO[178]SP:[137]7300 7180 [139]G$[178]"R"[167]7200 7190 [137]7110 7200 A$[178]"":B$[178]"":PP[178]PO:[129]S[178]1[164]LS 7210 A[178][194](PP):[139]A[179]32[167]P[178]A[170]64:[137]7230 7220 P[178]A 7230 A$[178][199](P):PP[178]PP[170]1:[139]A$[178][199](34)[167]S[178]LS:[137]7250 7240 B$[178]B$[170]A$:[130] 7250 R[178]1:[141]400:[153]" RUN WAIT "B$"  Y WAIT OR  N WAIT" 7260 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]7260 7270 R[178]1:[141]400:[153]M1$ 7280 [139]G$[178]"N"[167]7130 7290 [139]G$[178]"Y"[167]PN$[178]B$:[137]7320 7300 [153]" PLEASE TYPE THE PROGRAM NAME":PN$[178]"" 7310 [153]" THEN PRESS  RETURN WAIT";:[133] PN$:[139]PN$[178]""[167][142] 7320 [153]"LOADLOAD"QO$PN$QO$",8,1":[151]631,19:[151]632,131:[151]198,2:[128] 18997 [143]****************************** 18998 [143]* OPENING TITLE * 18999 [143]****************************** 19000 [153] 19030 [151]53280,11:[151]53281,11 19040 [153][199](142)"LOAD" 19050 TL$(1)[178]" STOP DISK OPERATIONS 64 WAIT" 19060 TL$(2)[178]" PRINT# BASIC VERSION WAIT" 19070 T1$[178]" (null)LENLENLEN (null)LENLENRIGHT$ (null)LENLENRIGHT$ (null)LENRIGHT$(null)LENRIGHT$ (null)LENLENRIGHT$CLOSELENLEN=LENLEN" 19080 T2$[178]" (null)CLOSECLOSECLOSECLOSECLOSE(null) (null) (null)CLOSECLOSE(null)CLOSE(null) MID$(null) (null) (null) (null) (null)" 19090 T3$[178]" -LENLEN (null) (null) -LEN=(null)CLOSE(null)CLOSE (null)CLOSE-LENLEN< (null)" 19100 T4$[178]" (null)CLOSECLOSECLOSECLOSECLOSEMID$LENLEN(null) (null)CLOSE(null) CLOSE(null)CLOSE (null) (null) (null) (null)" 19110 [153]T1$:[153]T2$:[153]T3$:[153]T4$"":PK$[178][199](63) 19120 [153]" P R O G R A M M I N G":[153]" PRESENTS" 19130 [153][163]7)TL$(1)"":[153][163]7)TL$(2)"" 19140 [153][163]15)"SYS BY WAIT" 19150 [143] 19160 LT$(3)[178]" STOP PROGRAMMED BY - CHARLES GAUTHIER " 19170 [153]""LT$(3):[153]LT$(4) 19180 [141]400 19996 [143]****************************** 19997 [143]* DISK OPERATIONS * 19998 [143]* (MAIN MENU) * 19999 [143]****************************** 20000 [153]"LOAD STOP DISK OPERATIONS PROGRAM WAIT" 20005 [153]" STOP MAIN MENU WAIT" 20007 [153]""M$ 20010 [153]"  F1 WAIT TO  PURGE/DELETE WAIT DISK / PROGRAM" 20020 [153]M$ 20030 [153]"  F2 WAIT TO  COPY WAIT A PROGRAM/FILE 20040 PRINTM$ 20050 PRINT"  F3 [146] TO  RENAME [146] DISK" 20060 PRINTM$ 20070 PRINT"  F4 [146] TO  DIRECTORY [146] THIS DISK 20080 [153]M$ 20090 [153]"  F5 WAIT TO  CHANGE WAIT THE NAME OF PROGRAM" 20100 [153]M$ 20110 [153]"  F6 WAIT STOP INITIALIZE/FORMAT WAIT A DISK" 20120 [153][163]4)"SYSTHIS WILL ERASE EVERYTHING!!!WAIT" 20125 [153]M$ 20130 [153]"  F7 WAIT TO  PRINT DIRECTORY WAIT 20135 PRINTM$ 20140 PRINT"  F8 [146] TO  LOAD/RUN [146] A PROGRAM" 20143 PRINTM$ 20145 PRINT"  Q [146] TO QUIT" 20148 PRINTM$ 20150 GETG$:IFG$=""THEN20150 20155 IFG$="Q"THENGOSUB600:IFGG=0THEN20000 20160 V=ASC(G$) 20165 IFGG=1THEN670 20170 V1=141-V:IFV1<1ORV1>8THEN20150 20180 REM ONV1GOSUB F8 ,F6 ,F4 ,F2 ,F7 ,F5 ,F3 ,F1 20200 ONV1GOSUB7000,6000,5000,4000,40000,3000,2000,1000 20210 IFTR=1THENRUN 20220 GOTO20000 39997 REM******************************* 39998 REM* PRINT DIRECTORY F7 * 39999 REM*******************************R PRINTER 40000 PRINT"[147]"SPC(240)TAB(12)"PLEASE SELECT":PRINTTAB(12)"YOUR PRINTER" 40010 PRINTTAB(6)"  F1 [146] FOR REGULAR PRINTER 40020 [153][163]6)"  F3 WAIT FOR GEMINI 10X 40030 PRINTTAB(6)"  F5 [146] FOR MAIN MENU 40040 [161]S$:[139]S$[179][177]"INPUT"[175]S$[179][177]"DIM"[175]S$[179][177]"READ"[167]40040 40050 [139]S$[178]"DIM"[167]40690 40060 [139]S$[178]"READ"[167][138] 40070 [141]40630 40080 [151]53280,0:[151]53281,0:[151]646,7 40090 [153]"LOAD CLR (null)HE (null)RINCE OF (null)EGENDS PROUDLY PRESENTS 40100 PRINT"" 40110 PRINTTAB(12);"DISK DIRECTORY 40120 ES$[178][199](27):J[178][194](820) 40130 [153]" (null)YPE 2 FOR 2 COLUMNS":[153]" (null)YPE 3 FOR 3 COLUMNS" 40140 [161]G$:[139]G$[179][177]"2"[175]G$[179][177]"3"[167]40140 40150 NC[178][197](G$) 40160 [153]" (null)RESS  (null)VAL(null)(null)(null)(null) WAIT WHEN DISK IS READY" 40170 [161]CC$:[139]CC$[178]""[167]40170 40180 [139]CC$[179][177][199](13)[167]40090 40190 PN[178]4 40200 DN[178]8 40210 ES$[178][199](27) 40220 [143] BI$=ES$+CHR$(66)+CHR$(3):BI$=BI$+LI$+SP$ 40230 BI$[178]"" 40240 RS$[178]ES$[170][199](64) 40250 [134]P$(150):C$[178]"DISK NAME=":N$[178][199](0) 40260 T$[178]"--------------------------" 40270 U$[178]"==========================" 40280 [129]I[178]1[164]NC:X$[178]X$[170]T$:Y$[178]Y$[170]U$:[130]I:T$[178]X$:U$[178]Y$ 40290 [151]53272,23:[153]"LOAD":X[178]1:Z[178]1:X$[178]"" 40300 [160]4:[160]6:[159]4,PN:[159]6,DN,0,"$0" 40310 [161]#6,A$,A$,A$,A$,A$,A$ 40320 [161]#6,A$:[139]A$[178]""[167]40340 40330 X$[178]X$[170]A$:[137]40320 40340 B$[178][202](X$,21,2):A$[178][202](X$,3,16) 40350 DN$[178]C$[170][199](34)[170]A$[170][199](34)[170]B$ 40360 P$[178]"":[153]"LOAD"DN$"" 40370 [161]#6,A$,A$:[139]A$[178]""[167][160]6:[137]40410 40380 [161]#6,A$,B$:B$[178][196]([198](A$[170]N$)[170][198](B$[170]N$)[172]256)[170]" " 40390 [161]#6,A$:[139]A$[178]""[167]P$(X)[178]B$:[153]P$(X);:[141]40550:X[178]X[170]1:B$[178]"":[137]40370 40400 B$[178]B$[170]A$:[137]40390 40410 [153]:[153]" (null)RESS  (null)VAL(null)(null)(null)(null) WAIT WHEN PRINTER IS READY 40420 GETG$:IFG$<>CHR$(13)THEN40420 40430 PRINT#4:PRINT#4,U$ 40440 PRINT#4,BI$;BO$;DN$;":":PRINT#4,T$ 40450 FORB=1TONC:P$=P$+LEFT$(P$(Z),26):Z=Z+1 40460 IFZ=X-1THENPRINT#4,P$:GOTO40490 40470 NEXTB:PRINT#4,P$:P$="":IFZ=X-1THEN40490 40480 GOTO40450 40490 PRINT#4,U$:PRINT#4:PRINT" ANOTHER DISK (Y/N)?" 40500 PRINT#4,"" 40510 PRINT#4:PRINT#4,RS$:CLOSE4 40520 GETA$:IFA$="Y"THENCLOSE4:RUN40070 40530 IFA$<>"N"THEN40520 40540 RUN 40550 IFJ=1THENPRINT:RETURN 40560 REM IFMID$(P$(X),15,1)="."THENRETURN 40570 REM IFMID$(P$(X),16,1)="."THENRETURN 40580 REM IFMID$(P$(X),17,1)="."THENRETURN 40590 PRINT" Y/N [146] "; 40600 GETY$:IFY$<>"Y"ANDY$<>"N"THEN40600 40610 IFY$="N"THENP$(X)="":X=X-1 40620 PRINTY$:RETURN 40630 PRINT"[147]"SPC(240)TAB(12)"PLEASE SELECT":PRINTTAB(12)" YOUR CHOICE " 40640 PRINTTAB(6)"  F1 [146] TO EDIT EACH FILE 40650 [153][163]6)"  F3 WAIT FOR FULL DIR PRINT 40660 GETG$:IFG$<>"[133]"ANDG$<>"[134]"THEN40660 40670 J1=ASC(G$):J=135-J1:POKE820,J 40680 RETURN 40690 GOSUB40630 40700 POKE53280,0:POKE53281,0:POKE646,7 40710 PRINT"[147] [156] [212]HE [208]RINCE OF [204]EGENDS PROUDLY PRESENTS 40720 [153]" 40730 PRINTTAB(12);"DISK DIRECTORY 40740 ES$[178][199](27) 40750 J[178][194](820) 40760 LI$[178]ES$[170][199](83)[170][199](0) 40770 SP$[178]ES$[170][199](51)[170][199](10) 40780 [133]"NUMBER OF COLUMNS  2 TO 5 WAIT";NC:[139]NC[179]2[176]NC[177]5[167]40780 40790 PN[178]4 40800 DN[178]8 40810 ES$[178][199](27) 40820 BI$[178]ES$[170][199](66)[170][199](3):BI$[178]BI$[170]LI$[170]SP$ 40830 BI$[178]BI$[170]LI$[170]SP$ 40840 RS$[178]ES$[170][199](64) 40850 [134]P$(150):C$[178]"DISK NAME=":N$[178][199](0) 40860 T$[178]"---------------------------" 40870 U$[178]"===========================":U$[178]BI$[170]U$ 40880 [129]I[178]1[164]NC:X$[178]X$[170]T$:Y$[178]Y$[170]U$:[130]I:T$[178]X$:U$[178]Y$ 40890 [151]53272,23:[153]"LOAD":X[178]1:Z[178]1:X$[178]"" 40900 [160]4:[160]6:[159]4,PN:[159]6,DN,0,"$0" 40910 [161]#6,A$,A$,A$,A$,A$,A$ 40920 [161]#6,A$:[139]A$[178]""[167]40940 40930 X$[178]X$[170]A$:[137]40920 40940 B$[178][202](X$,21,2):A$[178][202](X$,3,16) 40950 DN$[178]C$[170][199](34)[170]A$[170][199](34)[170]B$ 40960 P$[178]" ":[153]"LOAD"DN$"" 40970 [161]#6,A$,A$:[139]A$[178]""[167][160]6:[137]41010 40980 [161]#6,A$,B$:B$[178][196]([198](A$[170]N$)[170][198](B$[170]N$)[172]256)[170]" " 40990 [161]#6,A$:[139]A$[178]""[167]P$(X)[178]B$:[153]P$(X);:[141]40550:X[178]X[170]1:B$[178]"":[137]40970 41000 B$[178]B$[170]A$:[137]40990 41010 [153]:[153]" (null)RESS  (null)VAL(null)(null)(null)(null) WAIT WHEN PRINTER IS READY 41020 GETG$:IFG$<>CHR$(13)THEN41020 41030 PRINT#4,BI$;U$ 41040 PRINT#4,BI$;BO$;DN$;":";LI$;P$(X-1);BF$:PRINT#4,T$ 41050 FORB=1TONC:P$=P$+LEFT$(P$(Z),26)+" ":Z=Z+1 41060 IFZ=X-1THENPRINT#4,P$:GOTO41090 41070 NEXTB:PRINT#4,P$:P$=" ":IFZ=X-1THEN41090 41080 GOTO41050 41090 PRINT#4,U$:PRINT#4:PRINT" ANOTHER DISK (Y/N)?" 41100 PRINT#4:PRINT#4,RS$:CLOSE4 41110 GETA$:IFA$="Y"THENCLOSE4:RUN 40690 41120 IFA$<>"N"THEN41110 41130 RUN