home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64utils / dirfiler (.txt) < prev    next >
Commodore BASIC  |  1989-01-04  |  6KB  |  213 lines
  1. 10 N$="ZZ":POKE53281,0:POKE53280,0:NR=214:NC=211:KB=198:POKE808,225
  2. 15 GOSUB2000
  3. 20 GOTO470
  4. 30 POKENR,1:PRINT:PRINT"[159]ARE YOU SURE? (Y/N)"
  5. 40 POKEKB,0
  6. 50 GETK$:IFK$=""THEN50
  7. 60 POKEKB,0:RETURN
  8. 70 GOSUB100:POKENR,1:PRINT:PRINT"[159]*** WORKING ****    ":RETURN
  9. 80 POKENR,1:PRINT"[159]":PRINTMID$(M$,4,16):RETURN
  10. 90 M$="":POKENR,1:PRINT:PRINT"                              ":GOSUB120:RETURN
  11. 100 POKENR,RL+2:PRINT:PRINTTAB(CL*20);"[158]"MID$(N$(RL+(I+1)*CL+D-1),4,16)
  12. 110 RETURN
  13. 120 POKENR,R+2:PRINT:PRINTTAB(C*20);"[159]";MID$(N$(R+(I+1)*C+D-1),4,16)
  14. 130 RETURN
  15. 140 PRINT"[147][158]"HE$;
  16. 150 IFD>1THENPOKENC,21:PRINT" P = PRIOR SCREEN "
  17. 160 IFD=<N-40THENPOKENC,21:PRINT" N = NEXT SCREEN  "
  18. 170 I=INT((N-D-1)/2+.5):IFI>19THENI=19
  19. 180 GOSUB80:POKENR,3:PRINT"[158]"
  20. 190 FORX=DTOD+I
  21. 200 PRINTMID$(N$(X),4,16)",";
  22. 210 PRINTT$(ASC(N$(X))ANDNOT248);
  23. 220 IF(ASC(N$(X))AND64)=64THENPRINT"<";
  24. 230 IFASC(N$(X+I+1)+CHR$(0))=0THEN280
  25. 240 PRINTTAB(20);MID$(N$(X+I+1),4,16)",";
  26. 250 PRINTT$(ASC(N$(X+I+1))ANDNOT248);
  27. 260 IF(ASC(N$(X+I+1))AND64)=64THENPRINT"<";
  28. 270 PRINT
  29. 280 NEXT:IFR>I+1THENR=I+1
  30. 285 IFR<1THENR=1
  31. 290 GOSUB120:RETURN
  32. 300 GOSUB40:CL=C:RL=R
  33. 310 IFK$=CHR$(13)ORK$="[133]"ORK$="-"ORK$=","ORK$=" "ORK$=""THENRETURN
  34. 313 IFK$="R"THENRETURN
  35. 315 IFK$="[136]"THENRETURN
  36. 317 IFK$="[134]"THENRETURN
  37. 320 IFK$=""THENR=1:C=0
  38. 330 IFK$=""ORK$="[157]"THENC=NOTCAND1
  39. 340 IFK$=""ORK$="[145]"THENR=(R+1+2*(K$>""))
  40. 350 IFC>N-1THENR=1:C=0
  41. 360 IFR>I+1THENR=1
  42. 370 IFR<1THENR=I+1
  43. 380 IFN$(R+(I+1)*C+D-1)=""THEN330
  44. 390 IF(CL<>C)OR(RL<>R)THENGOSUB100:GOSUB120
  45. 400 IFK$="P"ANDD>1THEND=D-40:GOSUB140
  46. 410 IFK$="N"ANDD=<N-40THEND=D+40:GOSUB140
  47. 420 GOTO300
  48. 430 POKENR,7:PRINT:PRINT"   [158]ARE YOU SURE? (Y/N)    "
  49. 440 GOSUB40:IFK$="Y"THEN1440
  50. 450 IFK$=""THEN440
  51. 460 RETURN
  52. 470 PRINT"[147][159][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  53. 480 [153]"PEEK     SYSDIRECTORY FILEROPEN      PEEK"
  54. 490 [153]"PEEK                          PEEK"
  55. 500 [153]"PEEK SYSINSERT DISKETTE IN DRIVEOPEN PEEK"
  56. 510 [153]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  57. 520 FORX=1TO6:N$=N$+N$:NEXT
  58. 530 N$=MID$(N$,2):N$=N$+N$
  59. 540 FORX=828TO861
  60. 550 READY:POKEX,Y:NEXT
  61. 560 FORX=1TO30:Z$=Z$+CHR$(0):NEXT
  62. 570 DIMN$(144),S(18),T$(4):D=1:N=0:F=0:B=1:R=1:C=0
  63. 575 DIMB%(144)
  64. 580 FORX=0TO17:READY:S(X)=Y:NEXT
  65. 590 T$(1)="S":T$(2)="P":T$(3)="U":T$(4)="R"
  66. 600 LN$=CHR$(130)+CHR$(18)+CHR$(18)+"----------------"+LEFT$(Z$,11)
  67. 610 PRINT"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  68. 620 PRINT"[194] [158]PRESS RETURN[146] TO CONTINUE[159] [194]"
  69. 630 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  70. 640 GOSUB40:IFK$=""THENGOSUB430
  71. 650 POKENR,7:PRINT:PRINT"    [158]READING DISK NAME     "
  72. 660 OPEN15,8,15,"I0":OPEN1,8,3,"$"
  73. 670 SYS828:INPUT#15,EN$,EM$:IFEN$="00"THEN710
  74. 680 POKENR,7:PRINT
  75. 690 PRINT"   [158]DISK READ ERROR # "EN$"  "
  76. 700 PRINT:GOTO1480
  77. 710 HE$=MID$(N$,143,16)+","+MID$(N$,161,2)
  78. 720 POKENR,3:PRINT:PRINT"   "HE$"    "
  79. 730 POKENR,7:PRINT:PRINT"    READING ENTRY #"N"  "
  80. 740 SYS828:FORX=1TO254STEP32:Y=ASC(MID$(N$,X,1))AND127
  81. 750 IFY=0THEN770
  82. 760 N=N+1:N$(N)=MID$(N$,X,30)
  83. 770 POKENR,7:PRINT:POKENC,20:PRINTN
  84. 780 NEXT
  85. 790 IFST=0THEN730
  86. 800 PRINT"[145]    TOTAL ENTRIES ="
  87. 810 FORX=1TO1500:NEXT
  88. 820 CLOSE1
  89. 825 IFN=0THENPRINT"[147]":GOTO1410
  90. 830 M$="":GOSUB140
  91. 840 GOSUB300:F=R+(I+1)*C+D-1
  92. 850 IFK$="-"THEN990
  93. 860 IFK$=" "ANDN>1THEN1040
  94. 870 IFK$=","THEN1120
  95. 875 IFK$="R"THEN1600
  96. 880 IFK$=""THEN1190
  97. 890 IFK$="[133]"THEN1230
  98. 895 IFK$="[134]"THEN1700
  99. 897 IFK$="[136]"THENGOSUB2000:GOSUB140:GOTO840
  100. 900 M$=N$(F):GOSUB80
  101. 910 GOSUB300:T=R+(I+1)*C+D-1
  102. 920 IFF=T-1ORF=TTHENGOSUB90:GOTO840
  103. 930 GOSUB70
  104. 940 IFF>TTHENV=-1
  105. 950 IFF<TTHENV=1:T=T-1
  106. 960 N$(F)=N$(F+V):F=F+V:IFF<>TTHEN960
  107. 970 N$(T)=M$
  108. 980 GOTO830
  109. 990 IFN<144THEN997
  110. 995 POKENR,1:PRINT:PRINT"[159]TOO MANY FILES":FORX=1TO2000:NEXT:GOSUB90:GOTO840
  111. 997 GOSUB70:B=0
  112. 1000 N=N+1:FORX=NTOF+1STEP-1
  113. 1010 N$(X)=N$(X-1):NEXT
  114. 1020 N$(F)=LN$
  115. 1030 GOTO830
  116. 1040 GOSUB30:IFK$<>"Y"THENGOSUB90:GOTO840
  117. 1050 GOSUB70:B=0
  118. 1060 N=N-1:FORX=FTON
  119. 1070 N$(X)=N$(X+1):NEXT
  120. 1080 N$(N+1)=""
  121. 1090 IFN<C+1THENC=0
  122. 1100 IFF=N+1THENR=R+(R>1)
  123. 1105 IFD>NTHEND=D-40
  124. 1110 GOTO830
  125. 1120 A=ASC(N$(F))
  126. 1130 IFA=130THENA=194:GOTO1150
  127. 1140 IFA=194THENA=130
  128. 1150 N$(F)=CHR$(A)+RIGHT$(N$(F),29)
  129. 1160 POKENR,RL+2:PRINT:PRINTTAB(CL*20+18);
  130. 1170 PRINT"[158]"CHR$(-60*(A=194));CHR$(-32*(A=130))
  131. 1180 GOTO840
  132. 1190 GOSUB100
  133. 1200 GOSUB30:IFK$="Y"THEN1410
  134. 1210 IFK$=""THEN1200
  135. 1220 GOSUB90:GOTO840
  136. 1230 GOSUB100:GOSUB30:IFK$<>"Y"THENGOSUB90:GOTO840
  137. 1240 POKENR,1:PRINT:PRINT"[159]WRITING DIRECTORY  "
  138. 1250 IFN/8=INT(N/8)THEN1270
  139. 1260 N=N+1:N$(N)=Z$:GOTO1250
  140. 1270 S=0:T=18:S(N/8+.5)=255:N=1:OPEN2,8,2,"#"
  141. 1280 IFS(S+1)=255THENT=0
  142. 1290 PRINT#15,"B-P";2;0
  143. 1300 PRINT#2,CHR$(T);CHR$(S(S+1));:P=2
  144. 1310 FORX=NTON+7:PRINT#15,"B-P";2;P
  145. 1320 PRINT#2,N$(X);:P=P+32:NEXT:N=X
  146. 1330 PRINT#15,"U2";2;0;18;S(S):INPUT#15,EN$,EM$:IFEN$="00"THEN1370
  147. 1340 POKENR,1:PRINT
  148. 1350 PRINT"[159] DISK WRITE ERROR # "EN$
  149. 1360 FORT=1TO2000:NEXT:GOTO1440
  150. 1370 S=S+1:IFS(S)<>255GOTO1280
  151. 1380 IFBTHEN1410
  152. 1390 PRINT#2,CHR$(0);CHR$(255);Z$:PRINT#15,"U2";2;0;18;18
  153. 1400 POKENR,1:PRINT:PRINT"[159]VALIDATING BAM    ":PRINT#15,"V0"
  154. 1410 CLOSE2:PRINT#15,"I0":CLOSE15
  155. 1420 POKENR,1:PRINT:PRINT"[159]ANOTHER DISK? (Y/N)"
  156. 1430 GOSUB40:IFK$="Y"THENRUN
  157. 1440 PRINT"[147]":POKENR,7:PRINT
  158. 1450 PRINT"[159][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  159. 1460 PRINT"[194]    [158]PROGRAM TERMINATED    [159][194]"
  160. 1470 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  161. 1480 CLOSE1:CLOSE2:CLOSE15
  162. 1490 SYS65418
  163. 1495 END
  164. 1500 DATA160,2,177,45,153,137,0,200,192,6,208,246,162
  165. 1510 DATA1,32,198,255,32,228,255,164,142,145,140,200
  166. 1520 DATA132,142,196,139,208,242,76,204,255
  167. 1530 DATA1,4,7,10,13,16,2,5,8,11,14,17,3,6,9,12,15,18
  168. 1600 NN$="":POKENR,1:PRINT:INPUT"[159]NEW NAME ";NN$:GOSUB90:IFNN$=""THEN830
  169. 1610 NN$=LEFT$(NN$,16):GOSUB70
  170. 1620 IFLEN(NN$)<16THENNN$=NN$+CHR$(160):GOTO1620
  171. 1630 DU=0:FORX=1TON:IFNN$=MID$(N$(X),4,16)THENDU=1:X=N
  172. 1640 NEXT:IFDU=0THEN1670
  173. 1650 POKENR,1:PRINT:PRINT"[159]DUPLICATE NAME "NN$:FORX=1TO2000:NEXT:GOTO830
  174. 1670 M$=N$(F):N$(F)=LEFT$(M$,3)+NN$+RIGHT$(M$,LEN(M$)-19):GOTO830
  175. 1700 POKENR,1:PRINT:PRINT"[159]TURN PRINTER ON - PRESS RETURN"
  176. 1710 GOSUB40:IFK$=""THENGOSUB90:GOTO840
  177. 1715 IFK$<>CHR$(13)THEN1710
  178. 1720 GOSUB90:OPEN4,4:IFST<>0THEN1700
  179. 1730 POKENR,1:PRINT:PRINT"[159]LINE UP PAPER AND PRESS RETURN"
  180. 1740 GOSUB40:IFK$=""THEN1790
  181. 1745 IFK$<>CHR$(13)THEN1740
  182. 1750 GOSUB90:GOSUB70:B%(0)=664:FORX=1TON
  183. 1752 B%(X)=ASC(MID$(N$(X),30,1))*256+ASC(MID$(N$(X),29,1)):B%(0)=B%(0)-B%(X)
  184. 1754 NEXT:PRINT#4,CHR$(15);CHR$(145);HE$;" ";N;"FILES";B%(0);"FREE":PRINT#4
  185. 1760 FORX=1TO30:X$="":FORY=1TO4
  186. 1765 W=(Y-1)*30+X:IFW>NTHEN1780
  187. 1767 W$=STR$(B%(W)):W$=RIGHT$(W$,LEN(W$)-1)
  188. 1769 IFLEN(W$)<4THENW$=W$+" ":GOTO1769
  189. 1770 X$=X$+W$+MID$(N$(W),4,16)
  190. 1780 NEXTY:PRINT#4,X$:NEXTX:PRINT#4
  191. 1790 CLOSE4:GOSUB90:GOTO840
  192. 2000 PRINT"[147][159]";
  193. 2010 PRINT" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  194. 2020 PRINT" [194]      [158]DIRECTORY FILER COMMANDS[159]      [194]":GOSUB4010
  195. 2040 PRINT" [194]   [158]N     NEXT SCREEN OF FILES[159]       [194]"
  196. 2050 PRINT" [194]   [158]P     PREVIOUS SCREEN OF FILES[159]   [194]":GOSUB4010
  197. 2060 PRINT" [194]   [158]-     INSERT DIVIDER ABOVE FILE[159]  [194]"
  198. 2070 PRINT" [194]   [158]R     RENAME THIS FILE[159]           [194]"
  199. 2075 PRINT" [194]   [158],     LOCK/UNLOCK THIS FILE[159]      [194]":GOSUB4010
  200. 2080 PRINT" [194] [158]<CRSR>  MOVE CURSOR[159]                [194]"
  201. 2090 PRINT" [194] [158]<HOME>  MOVE CURSOR TO TOP[159]         [194]"
  202. 3000 PRINT" [194] [158]<STOP>  ABORT CURRENT DIRECTORY[159]    [194]":GOSUB4010
  203. 3020 PRINT" [194] [158]<RETN>  MOVE FILE/BEFORE THIS FILE[159] [194]":GOSUB4010
  204. 3030 PRINT" [194] [158]<SPACE> DELETE THIS FILE[159]           [194]":GOSUB4010
  205. 3035 PRINT" [194] [158]<F1>    REWRITE THE DIRECTORY[159]      [194]"
  206. 3040 PRINT" [194] [158]<F3>    PRINT FORMATTED DIRECTORY[159]  [194]"
  207. 3043 PRINT" [194] [158]<F7>    DISPLAY THIS HELP SCREEN  [146][159] [194]":GOSUB4010
  208. 3045 PRINT" [194]       [158]PRESS RETURN[146] TO CONTINUE[159]     [194]"
  209. 3050 PRINT" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  210. 3090 GOSUB40:IFK$<>CHR$(13)THEN3090
  211. 4000 RETURN
  212. 4010 PRINT" [194]                                    [194]":RETURN
  213.