home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / DOSIT54.ARC / UN (.txt) < prev   
Commodore BASIC  |  2019-04-13  |  3KB  |  83 lines
  1. 100 PRINTCHR$(14):GOSUB620:RE%=0
  2. 110 PRINT"[147][153]   [196]IRECTORY SEARCH FROM TRACK ";DI%;"[157] ,1   [146][155]"
  3. 115 PRINTTAB(4)"[159] [212]YPE   [208]ROGRAM [206]AME    [212]RK. [211]EC.[146][155]"
  4. 120 SP%=1:TR%=DI%:OPEN15,8,15,"I0
  5. 130 [159]8,8,2,"#2":FI%[178]0
  6. 140 [152]15,"U1:"2;0;TR%;SP%:[141]560
  7. 150 [129]I[178]0[164]1:[161]#8,A$:[141]530:P%(I)[178][198](A$):[130]:A[178]2:[141]550
  8. 160 [161]#8,A$:[141]530:A[178][198](A$)[175]7
  9. 170 H$[178]"":[129]I[178]0[164]1:[161]#8,A$:[141]530:L%(I)[178][198](A$):[130]
  10. 180 [129]I[178]3[164]18:[161]#8,A$:H$[178]H$[170]A$:[130]:
  11. 190 [139]H$[178]""[167]210
  12. 200 [153][163]5)KI$(A);" ";CO$;H$;[163]11)CO$;;" "L%(0);[163]33)L%(1):[139]A[178]0[167][137]380
  13. 210 FI%[178]FI%[170]1:[139]FI%[179]8[167]A[178]FI%[172]32[170]2:[141]550:[137]160
  14. 220 [139]P%(0)[178]0[167]240
  15. 230 [153][163]5)"SYS LENHANGE TRACK #";:TR%[178]P%(0):SP%[178]P%(1):FI%[178]0:[153]TR%"CMD";SP%"CMD WAITLIST"
  16. 231 [137]140
  17. 240 [160]8:[153][163]5)"PRINT STR$IRECTORY VALND LISTWAIT"
  18. 245 [139]RE%[167][153][163]5)"SYS (null)ALIDATING STR$ISK WAIT":[152]15,"V
  19. 250 GOSUB560:CLOSE15
  20. 255 PRINTTAB(5)"[153] [193]NOTHER [196]ISK?[155]"
  21. 256 GETRP$:IFRP$=""THEN256
  22. 257 IFRP$="Y"THENCLR:GOTO100
  23. 258 GOTO900
  24. 259 POKE198,2:POKE631,13:POKE632,13:END
  25. 260 REM**  RETRIEVE A FILE **
  26. 270 PRINT#15,"U1:"2;0;L%(0);L%(1):RETURN
  27. 280 D%=2:PRINTTAB(5)"[153] [212]RACK, [211]ECTOR";
  28. 290 GOSUB270:FORI=0TO1:GET#8,A$:GOSUB530:Z%(I)=ASC(A$)
  29. 300 PRINTZ%(I)"[157] ";:NEXT:PRINT:PRINTTAB(5)"[145][153] [212]RACK, [211]ECTOR";
  30. 310 IFZ%(0)=0THENPRINT:RETURN
  31. 320 PRINT#15,"B-F"0;Z%(0);Z%(1):L%(0)=Z%(0):L%(1)=Z%(1):Z%(D%)=Z%(0)
  32. 330 Z%(D%+1)=Z%(1):D%=D%+2
  33. 340 IFDS=0THEN290
  34. 350 PRINT:PRINTTAB(5)"[158] [198]ILE WILL BE OVERWRITTEN! [146][155]":X%=NOT(X%):A=FI%*32+2
  35. 360 FORI=2TOD%-4STEP2:PRINT#15,"B-F:"0;Z%(I);Z%(I+1):NEXT
  36. 370 L%(0)=TR%:L%(1)=SP%:GOSUB270:GOTO550
  37. 380 PRINTTAB(5)"[150] [213]NSCRATCH? ([217]/[206]) [146][155]"
  38. 385 GET A$:IF A$="" THEN 385
  39. 390 IF A$<>"Y"THEN210
  40. 400 X%=0:PRINTTAB(5)"[159][194]LOCKS USED..":Z%(0)=L%(0):GOSUB280:IFX%THEN210
  41. 410 PRINT"[159][201]S THIS A [208][146][159]ROGRAM, [211][146][159]EQUENTIAL, [213][146][159]SER,"
  42. 420 PRINTTAB(9)"OR [210][146][159]ELATIVE [198]ILE";
  43. 430 GET JA$:IFJA$<>"P"ANDJA$<>"S"ANDJA$<>"U"ANDJA$<>"R"THEN430
  44. 435 PRINT:PRINT
  45. 440 PRINT:IFJA$="P"THENPRINTTAB(5)"[208]ROGRAM-[146]":KI%=130:GOTO480
  46. 450 IFJA$="U"THENPRINTTAB(5)"[213]SER-[146]":KI%=131:GOTO480
  47. 460 IFJA$="R"THENPRINTTAB(5)"[210]ELATIVE-[146]":KI%=132:GOTO480
  48. 470 PRINTTAB(5)"[211]EQUENTIAL-[146]":KI%=129
  49. 480 PRINTTAB(5)"[198]ILE IS UNSCRATCHED"
  50. 490 L%(0)=TR%:L%(1)=SP%:GOSUB270
  51. 500 A=FI%*32+2:GOSUB550:PRINT#8,CHR$(KI%);
  52. 510 BL%=((D%-2)/2)+1:PRINTTAB(5)""BL%"[194]LOCKS ";
  53. 520 PRINT#15,"U2:"2;0;TR%;SP%:PRINT"[213]SED!":RE%=1:GOTO210
  54. 530 IFA$=""THENA$=CHR$(0)
  55. 540 RETURN
  56. 550 PRINT#15,"B-P:"2;A
  57. 560 INPUT#15,EN%,EM$,ET%,ES%:IFEN%=0THENRETURN
  58. 570 PRINTTAB(5)"[150] [196]ISK [197]RROR
  59. 580 [153][163]5)"DEFVALRROR LENHANNELWAIT:"EN%" "EM$","ET%","ES%
  60. 610 [142]
  61. 620 [134]P%(1),L%(1),Z%(300),KI$(4):CO$[178][199](34)
  62. 630 [129]I[178]0[164]4:[135]KI$(I):[130]
  63. 640 [131]"STR$VAL(null)WAIT","(null)VAL(null)","(null)(null)CHR$","(null)(null)(null)","(null)VAL(null)"
  64. 650 PG$[178]"PRINTLOAD    STR$ISK ASCILE (null)AVER   (null)ASCSTR$-1001/1541     WAIT":[151]53280,0:[151]53281,0
  65. 655 [153]PG$:[153][163]4)"CLR  LENITIICHR$ROUP (null)IBRARY (null)ROGRAM   WAIT"
  66. 660 [153]"SYS":[153]"(null)HIS  (null)ROGRAM  MAKES  IT  POSSIBLE  TO ";
  67. 670 [153]" UNSCRATCH SCRATCHED FILES.";
  68. 680 [153]"  RIGHT$T WILL NOT SAVE A FILE THAT HAS BEEN OVERWRITTEN!"
  69. 690 [133]"        STR$EVICE (null)O. --> 8CMDCMDCMD";DV:[139]DV[179]8[176]DV[177]14[167]DV[178]8
  70. 700 [153]"        STR$RIVE: (null)ASCSTR$-1001....1"
  71. 710 [153]"               1541........2"
  72. 720 [133]"               (null)ELECT----> 2CMDCMDCMD";DR:[139]DR[179]1[176]DR[177]2[167]DR[178]2
  73. 740 [153]"OPEN (null)RESS ATNNY (null)EY!LIST":DI%[178]18:[139]DR[178]1[167]DI%[178]39
  74. 745 [161] TD$:[139] TD$[178]"" [167] 745
  75. 750 [142]
  76. 760 [153]"ONONONON":[137]740
  77. 800 [143] ****** END OF PROGRAM ******
  78. 900 [161]WE$:[153]"ONINSERT DOSIT V4 DISK AND PRESS ANY KEY":[139]WE$[178]""[167]900
  79. 910 [136]S$[178]"DOSIT5.0"
  80. 920 [153]"LOAD"[170][199](34)[170]S$[170][199](34);:[153]",8,1ONONON"
  81. 925 [151]631,13:[151]632,82:[151]633,85:[151]634,78:[151]635,13:[151]198,5
  82. 1000 [128]
  83.