home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / DISK-O-RAMA (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  10KB  |  359 lines
  1. 10 POKE53280,0:POKE53281,0:POKE646,11
  2. 11 CR$=CHR$(13):V=0:DF$=""
  3. 12 FL=200
  4. 13 DIMTN$(FL),ID$(FL),DN$(FL)
  5. 14 PRINTCHR$(142)
  6. 15 OPEN15,8,15
  7. 16 BL$(1)="[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][201]
  8. 17 BL$(2)[178]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  9. 18 BL$(3)="[158][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  10. 20 GOTO1000
  11. 80 RF$=DF$:PRINT"[147]"
  12. 81 PRINTSPC(6)"ENTER THE NAME OF THE FILE "
  13. 82 PRINTSPC(12);"TO WORK ON:"
  14. 83 IFX$="1"THENV=0
  15. 84 IFV=1THENPRINTSPC(6);"OR HIT RETURN FOR SAME FILE"
  16. 85 PRINTSPC(10);:INPUT"[155][145]";DF$
  17. 86 IFDF$=RF$ANDV=1THEN132
  18. 87 V=1
  19. 88 IFX$="1"THENV=0
  20. 89 IFLEN(DF$)>16THENGOSUB965
  21. 90 IFX$="1"THENN=0:FORZ=1TON:TN$(Z)="":NEXT:GOTO790
  22. 100 PRINTSPC(15)"LOADING...."
  23. 102 OPEN2,8,2,"0:"+DF$+",S,R"
  24. 103 GOSUB500
  25. 104 INPUT#2,N
  26. 105 GOSUB500
  27. 107 FORI=1TON
  28. 110 INPUT#2,TN$(I)
  29. 112 NEXT
  30. 120 GOSUB500
  31. 130 CLOSE2
  32. 131 IFX$="1"THENV=0
  33. 132 IFX$="2"THEN600
  34. 133 IFX$="3"THENDC=0:GOTO790
  35. 135 IFX$="4"THENED=0:GOTO699
  36. 136 IFX$="5"THEN790
  37. 200 PRINTSPC(15)"SAVING...."
  38. 205 OPEN2,8,2,"@0:"+DF$+",S,W"
  39. 210 GOSUB500
  40. 211 PRINT#2,N
  41. 212 GOSUB500
  42. 215 FORI=1TON
  43. 220 PRINT#2,TN$(I)
  44. 225 NEXTI
  45. 230 GOSUB500
  46. 240 CLOSE2
  47. 242 IFN=200THEN900
  48. 250 IFX$="1"THEN600
  49. 251 IFX$="3"ORX$="2"ORX$="5"THENGOTO1100
  50. 252 IFX$="4"THEN600
  51. 253 IFED=1THEN1100
  52. 260 GP=N:PRINTSPC(15)"SORTING...[145][145]"
  53. 263 GP=INT(GP/2):IFGP=0THENRETURN
  54. 265 F=0
  55. 267 FORJ=1TO(N-GP)
  56. 269 IFTN$(J)<TN$(J+GP)THEN275
  57. 271 T$=TN$(J):TN$(J)=TN$(J+GP):TN$(J+GP)=T$
  58. 275 NEXT
  59. 277 GOTO263
  60. 280 RETURN
  61. 300 LD$=""
  62. 301 PRINT"[145]    ENTER THE ID TO CHANGE/DELETE      "
  63. 302 PRINT"HIT <RETURN> IF NONE         [157][157][157][157][157][157][157][157][157][152]";:INPUTLD$
  64. 303 IFLD$=""THEN1100
  65. 304 FORI=1TON
  66. 305 IFLEFT$(TN$(I),2)=LD$THEN320
  67. 307 NEXT
  68. 320 PRINT"[147]IS THIS THE DISK TO CHANGE?[149]"
  69. 321 PRINT""SPC(6)BL$(1)
  70. 322 PRINTSPC(6)"[149][221]                            [221]"
  71. 325 PRINTSPC(6)"[145][149][221]    "LEFT$(TN$(I),2)"     "MID$(TN$(I),3)
  72. 327 PRINTSPC(6)BL$(2)
  73. 329 GETA$:IFA$=""THEN329
  74. 330 IFA$="Y"THEN333
  75. 331 IFA$="N"THEN700
  76. 332 GOTO330
  77. 333 PRINTSPC(6)""BL$(1):PRINTSPC(6)"[221] MAKE ENTRIES EVEN IF NAME  [221]"
  78. 335 PRINTSPC(6)"[221] OR ID IS TO BE THE SAME    [221]"
  79. 336 PRINTSPC(6)"[221] IF DELETING, USE 'DELETED' [221]"
  80. 337 PRINTSPC(6)"[221] AS THE NAME AND EDIT LATER [221]"
  81. 339 PRINTSPC(6)BL$(2)
  82. 340 PRINT"CHANGE "LEFT$(TN$(I),2)" TO   ";:INPUT"[157][157][157]";QW$
  83. 341 IFQW$=LEFT$(TN$(I),2)THENSI=SI+1
  84. 342 IFQW$=""THEN380
  85. 345 IFLEN(QW$)>2THENGOSUB780:GOTO320
  86. 350 INPUT"NEW DISK NAME";QE$
  87. 352 IFQE$=""THENGOSUB940:GOTO320
  88. 353 IFLEN(QE$)>16THEN960
  89. 355 TN$(I)=QW$+QE$
  90. 356 ED=1
  91. 357 IFSI>0THENSI=0:GOTO200
  92. 358 GOSUB260:PRINT"":GOSUB260:PRINT"[156]":GOSUB260:PRINT"":GOSUB260:GOTO200
  93. 368 GOSUB260:PRINT"":GOSUB260:PRINT"[156]":GOSUB260:PRINT"":GOSUB260
  94. 370 GOTO200
  95. 380 PRINT"[147]YOU DIDN'T ENTER A NEW ID !!!"
  96. 381 PRINT"      DO YOU WANT TO TRY AGAIN????"
  97. 383 PRINT"                 Y/N"
  98. 385 GETA$:IFA$=""THEN385
  99. 386 IFA$<>"Y"THEN1100
  100. 387 GOTO320
  101. 400 PRINT""SPC(15)"[149][155]**[149]MENU[155]**[152]"
  102. 401 PRINTSPC(6)"[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][201]"
  103. 402 PRINTSPC(6)"[221]                         [221]"
  104. 404 PRINTSPC(6)"[221] 1. CREATE A NEW FILE    [221]"
  105. 406 PRINTSPC(6)"[221]                         [221]"
  106. 408 PRINTSPC(6)"[221] 2. READ FILE/CHECK AN ID[221]"
  107. 410 PRINTSPC(6)"[221]                         [221]"
  108. 412 PRINTSPC(6)"[221] 3. ADD  A  DISK         [221]"
  109. 414 PRINTSPC(6)"[221]                         [221]"
  110. 416 PRINTSPC(6)"[221] 4. EDIT/DELETE ID/NAME  [221]"
  111. 418 PRINTSPC(6)"[221]                         [221]"
  112. 420 PRINTSPC(6)"[221] 5. FORMAT AND ADD A DISK[221]"
  113. 422 PRINTSPC(6)"[221]                         [221]"
  114. 424 PRINTSPC(6)"[221] 6. END THE PROGRAM      [221]"
  115. 426 PRINTSPC(6)"[221]                         [221]"
  116. 428 PRINTSPC(6)"[221] 7. HOW DO I USE THIS?   [221]"
  117. 430 PRINTSPC(6)"[221]                         [221]"
  118. 432 PRINTSPC(6)"[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][203]"
  119. 433 PRINTSPC(12)"        ":PRINTSPC(12)"             "
  120. 434 PRINTSPC(12)"CHOOSE A NUMBER"
  121. 435 PRINTSPC(12)"[149][163][163][183][183][183][183][184][184][183][183][183][183][163][163][163]"
  122. 450 GETX$:IFX$=""THEN450
  123. 451 IFX$="6"THEN1000
  124. 452 IFX$="7"THEN1200
  125. 453 IFX$<"1"ORX$>"7"THEN450
  126. 454 GOTO80
  127. 456 GOTO450
  128. 500 INPUT#15,EN,EM$,ET,ES
  129. 510 IFEN=62THENPRINT" THAT FILE DOESN'T EXIST,TRY AGAIN":FORA=1TO2000:NEXT:GOTO1100
  130. 512 IFEN>0THENPRINTEN,EM$,ET,ES:STOP
  131. 520 RETURN
  132. 550 PRINTSPC(7)"[155]THAT ID HAS NOT BEEN USED!!"
  133. 553 FORZ=1TO750:NEXT
  134. 554 IFY$="C"THEN816
  135. 555 IFX$="3"THENRETURN
  136. 600 PRINT"[147][155]THERE ARE "N" DISKS IN THIS FILE"
  137. 602 PRINT"DO YOU WISH TO:"
  138. 605 PRINT""SPC(14)"[149]V[146][155]IEW IT?"
  139. 607 PRINT""SPC(16)"OR "
  140. 609 PRINT""SPC(14)"[149]C[146][155]HECK IT?"
  141. 614 PRINTSPC(16)"(V/C)
  142. 618 [161]Y$:[139]Y$[178]""[167]618
  143. 619 [139]Y$[178]"V"[167]699
  144. 620 [139]Y$[178]"C"[167]790
  145. 621 [137]618
  146. 699 B[178]0
  147. 700 [153]"LOAD"
  148. 701 [153][166]14)"**SYS"DF$"**":[153]"LIST   CONTAINS THE FOLLOWINGSYS"N"LISTDISKS:
  149. 702 PRINT"[154]ID  NAME"TAB(20)"ID  NAME"
  150. 703 PRINT"[150][183][183]  [183][183][183][183]"TAB(20)"[183][183]  [183][183][183][183]":IFB=33THENRETURN
  151. 705 FORI=1TON
  152. 707 B=B+1:IFB=33THENGOSUB730
  153. 708 IFB=17THENPRINT"":GOSUB750
  154. 709 IFB>17THENGOSUB750
  155. 710 PC$(1)="[151]":PC$(2)="[152]":PC$(3)=""
  156. 711 C=1:D=2
  157. 713 IFMID$(TN$(I),3)="DELETED"THENC=3:D=3
  158. 714 IFB<17THENPRINTPC$(C)LEFT$(TN$(I),2)" "PC$(D)MID$(TN$(I),3)
  159. 715 NEXTI
  160. 716 PRINT"[151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  161. 717 PRINTSPC(7)"LIST COMPLETE, HIT <RETURN>"
  162. 719 GETE$:IFE$=""THEN719
  163. 720 IFE$=CHR$(13)THEN725
  164. 721 GOTO719
  165. 722 IFED=1THEN1100
  166. 725 IFX$="4"THEN300
  167. 726 IFX$<>"4"THEN1100
  168. 730 PRINT""SPC(12)"HIT RETURN"
  169. 731 PRINT"[158][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  170. 733 GETS$:IFS$=""THEN733
  171. 735 IFS$=CHR$(13)THENGOSUB700:B=1:RETURN
  172. 737 GOTO733
  173. 750 IFMID$(TN$(I),3)="DELETED"THENC=3:D=3
  174. 751 PRINTSPC(19)"[158][182]"PC$(C)LEFT$(TN$(I),2)" "PC$(D)MID$(TN$(I),3)
  175. 756 RETURN
  176. 757 IFE$=CHR$(13)THENB=0:GOTO700
  177. 758 GOTO751
  178. 760 FORK=1TON
  179. 763 IFLEFT$(TN$(K),2)=KD$THENFD$=TN$(K):GOTO832
  180. 765 NEXT
  181. 767 GOTO550
  182. 780 PRINT"[147]"SPC(13)"  FLUBBED!!!![146]":FORA=1TO800:NEXT:GOTO950
  183. 790 IFX$="1"THENW$="CREATING FILE"
  184. 793 IFX$="5"THENW$="FORMAT A DISK"
  185. 795 IFX$="3"THENW$="ADDING A DISK"
  186. 796 IFY$="C"THENW$="CHECKING DISK"
  187. 800 PRINT"[147]"SPC(12)"[158][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  188. 801 [153][166]12)"(null) "W$" (null)"
  189. 802 [153][166]12)"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
  190. 803 [153]""[166]12)DF$"  FILE"
  191. 804 [153][166]12)[200](BL$(3),[195](DF$)[170]7)
  192. 805 KD$[178]"":[133]"OPENDISK ID: ";KD$
  193. 807 [139][195](KD$)[179][177]2[167][141]780:[137]790
  194. 808 [139]Y$[178]"C"[167]760
  195. 809 [141]853
  196. 810 DN$(N)[178]"":[133]"OPENDISK NAME: ";DN$(N)
  197. 811 [139][195](DN$(N))[177]16[167]960
  198. 812 [139]DN$(N)[178]""[167][141]940:[137]790
  199. 813 TN$(N)[178]ID$(N)[170]DN$(N)
  200. 815 [139]X$[178]"5"[167]ZA[178]0:[137]862
  201. 816 [139]Y$[178]"C"[167][153]"CHECK ANOTHER?":[137]820
  202. 819 [153]"ENTER ANOTHER?"
  203. 820 [161]R$:[139]R$[178]""[167]820
  204. 821 [139]R$[178]"Y"[167]790
  205. 822 [139]R$[178]"N"[175]Y$[178]"C"[167]1100
  206. 823 [139]R$[178]"N"[167][141]260:[153]"":[141]260:[153]"":[141]260:[153]"":[141]260
  207. 824 [137]200
  208. 827 [137]820
  209. 831 [142]
  210. 832 [153]"LOADLISTTHAT ID, VERIFY"KD$"WAITLIST , HAS BEEN USED"
  211. 833 [153]"FOR A DISK NAMED:"
  212. 835 [153][163]11)"VERIFY"[202](FD$,3)
  213. 836 [139]Y$[178]"C"[167][137]816
  214. 842 [153]"LISTDO YOU WANT TO USE IT ANYWAY?"
  215. 843 [153]"YWAITLISTES, USE IT.
  216. 844 PRINT"N[146][155]O, ENTER ANOTHER ID":PRINT"Q[146][155]UIT TO MENU"
  217. 845 GETY$:IFY$=""THEN845
  218. 846 IFY$="Y"THENZA=1:RETURN
  219. 847 IFY$="N"THENKD$="":UD=0:GOTO790
  220. 848 IFY$="Q"THENUD=0:GOTO1100
  221. 849 GOTO845
  222. 853 FORK=1TON
  223. 854 IFLEFT$(TN$(K),2)=KD$THENFD$=TN$(K):UD=1
  224. 855 NEXT
  225. 856 IFUD=1THENGOSUB832
  226. 858 N=N+1:IFN=200THENGOSUB260:PRINT"[159]":GOSUB260:PRINT"":GOSUB260:PRINT"[158]":GOSUB
  227. 859 ID$(N)=KD$
  228. 860 RETURN
  229. 862 PRINT"[147][158]"SPC(6)BL$(1)
  230. 864 PRINTSPC(6)"[158][221]                            [221]"
  231. 865 PRINTSPC(6)"[145][158][221]    "LEFT$(TN$(I),2)"     "MID$(TN$(I),3)
  232. 866 PRINTSPC(6)BL$(2)
  233. 867 PRINT""SPC(10)"[154]FORMAT THIS DISK??"
  234. 871 GETY$:IFY$=""THEN871
  235. 872 IFY$="N"THEN1100
  236. 875 IFY$<>"Y"THEN871
  237. 878 PRINT"[147]WARNING!!!! [158]  WARNING!!!!   WARNING!!!!"
  238. 879 PRINT""
  239. 880 PRINT"[158]WARNING!!!!   WARNING!!!!   [158]WARNING!!!!"
  240. 881 PRINT"[155]YOU ARE ABOUT TO FORMAT THIS DISK!"
  241. 882 PRINT""LEFT$(TN$(N),2)"     "MID$(TN$(N),3)
  242. 883 PRINT"[155]DO YOU HAVE THE RIGHT DISK IN THE DRIVE?"
  243. 884 PRINTSPC(15)"[Y/N]"
  244. 885 GETY$:IFY$=""THEN885
  245. 886 IFY$="N"THEN890
  246. 887 IFY$="Y"THEN892
  247. 888 GOTO885
  248. 890 PRINT"[158] PUT IT IN THEN!!!"
  249. 891 FORA=1TO1500:NEXT:GOTO862
  250. 892 PRINT"[149]FORMATTING....":PRINTSPC(15)"[151]"LEFT$(TN$(N),2)"--"MID$(TN$(N),3)
  251. 893 ID$=LEFT$(TN$(N),2):DN$=MID$(TN$(N),3)
  252. 894 OPEN2,8,15:PRINT#2,"N0:"+DN$+","+ID$:CLOSE2
  253. 895 GOSUB500
  254. 896 PRINT"[147] PUT FILE DISK IN DRIVE AND HIT RETURN"
  255. 897 GETE$:IFE$=""THEN897
  256. 898 IFE$=CHR$(13)THENGOSUB260:PRINT"":GOSUB260:PRINT"":GOSUB260:PRINT"":GOSUB260:GOTO200
  257. 899 GOTO897
  258. 900 PRINT"[147]":POKE53281,15:POKE53280,0:POKE646,0
  259. 910 PRINT""SPC(10)"THIS FILE IS FULL!!!!"
  260. 915 PRINT""SPC(11)"YOU NEED  TO START"
  261. 916 PRINT""SPC(14)"ANOTHER ONE !!"
  262. 917 PRINT""SPC(12)"HIT 1[146] AT THE MENU"
  263. 920 FORA=1TO5000:NEXT
  264. 922 POKE53281,0:POKE646,15
  265. 925 GOTO1100
  266. 940 PRINT"[147]"SPC(10)"C'MON..YOU NEED A NAME !!!"
  267. 941 FORA=1TO2000:NEXT:RETURN
  268. 950 PRINT"[158]"SPC(10)"NEED 2 CHARACTERS  !!!"
  269. 952 FORA=1TO2000:NEXT:RETURN
  270. 960 PRINT"[147][158]LIMIT OF 16 CHARACTERS  !!!"
  271. 962 FORA=1TO2000:NEXT
  272. 963 ID$(N)="":DN$(N)="":N=N-1
  273. 964 GOTO790
  274. 965 PRINT"[147][158]LIMIT OF 16 CHARACTERS  !!!"
  275. 966 FORA=1TO2000:NEXT
  276. 967 GOTO80
  277. 970 PRINT"[149]"ID$(I),DN$(I)
  278. 972 PRINT"IS THIS THE DISK"
  279. 973 GETY$:IFY$=""THEN973
  280. 974 IFY$="N"THEN700
  281. 975 ID$(F)="":DN$(F)=""
  282. 976 FORI=1TO(N-1)
  283. 977 ID$(N)=ID$(I):DN$(N)=DN$(I)
  284. 978 NEXT
  285. 984 GOTO200
  286. 1000 PRINT"[147][151][176][192][192][192][192][192][192][192][192][174]"SPC(15)"[176][192][192][192][192][192][192][192][192][174]"
  287. 1002 PRINT"[221][213][192][192][192][192][192][192][201][221]"SPC(15)"[221][213][192][192][192][192][192][192][201][221]"
  288. 1003 PRINT"[221][202][192][192][192][192][192][192][203][221]"SPC(15)"[221][202][192][192][192][192][192][192][203][221]"
  289. 1004 PRINT"[221]   [213][201]   [221]"SPC(15)"[221]   [213][201]   [221]"
  290. 1005 PRINT"[221]   [202][203]   [221]"SPC(15)"[221]   [202][203]   [221]"
  291. 1007 PRINT"[221]   [182][161]   [221]"SPC(15)"[221]   [182][161]   [221]"
  292. 1009 PRINT"[221]   [182][161]   [221]"SPC(15)"[221]   [182][161]   [221]"
  293. 1015 PRINT"[173][192][192][192][192][192][192][192][192][189]"SPC(15)"[173][192][192][192][192][192][192][192][192][189]"
  294. 1020 PRINT"[151][176][192][192][192][192][192][192][192][192][174]"SPC(15)"[176][192][192][192][192][192][192][192][192][174]"
  295. 1022 PRINT"[221][213][192][192][192][192][192][192][201][221]"SPC(15)"[221][213][192][192][192][192][192][192][201][221]"
  296. 1023 PRINT"[221][202][192][192][192][192][192][192][203][221]"SPC(15)"[221][202][192][192][192][192][192][192][203][221]"
  297. 1024 PRINT"[221]   [213][201]   [221]"SPC(15)"[221]   [213][201]   [221]"
  298. 1025 PRINT"[221]   [202][203]   [221]"SPC(15)"[221]   [202][203]   [221]"
  299. 1027 PRINT"[221]   [182][161]   [221]"SPC(15)"[221]   [182][161]   [221]"
  300. 1029 PRINT"[221]   [182][161]   [221]"SPC(15)"[221]   [182][161]   [221]"
  301. 1035 PRINT"[173][192][192][192][192][192][192][192][192][189]"SPC(15)"[173][192][192][192][192][192][192][192][192][189]"
  302. 1045 PRINT"[149]"
  303. 1050 PRINTSPC(12)"[176][195][201] [195][178][195] [213][195][201] [178] [213]"
  304. 1051 PRINTSPC(12)"[221] [221]  [221]  [202][195][201] [171][178][203]"
  305. 1052 PRINTSPC(12)"[173][195][203] [195][177][195] [202][195][203] [177][173][195]"
  306. 1054 PRINT""SPC(12)"      [213][195][201]"
  307. 1056 PRINTSPC(12)"   [192][192] [221] [221] [192][192] "
  308. 1058 PRINTSPC(12)"      [202][195][203]"
  309. 1060 PRINT""SPC(12)"[149][176][195][201] [213][195][201] [213][178][201] [213][195][201]"
  310. 1062 PRINTSPC(12)"[171][178][203] [171][195][179] [221][221][221] [171][195][179]"
  311. 1064 PRINTSPC(12)"[177][202][189] [177] [177] [177] [177] [177] [177]"
  312. 1066 PRINTSPC(18)"BY"
  313. 1067 PRINTSPC(14)"[152]DON SEARLES"
  314. 1068 PRINTSPC(14)"[149] JULY 1992"
  315. 1070 FORA=1TO3000:NEXT
  316. 1075 IFX$="6"THENCLOSE15:PRINT"[147]":END
  317. 1080 GOTO400
  318. 1100 Y$="":PRINTCHR$(142)
  319. 1101 PRINT"[147][149]  [205]                                 [206]"
  320. 1102 PRINT"   [205]                               [206]"
  321. 1104 PRINT"    [205]                             [206]"
  322. 1106 PRINT"     [205]                           [206]"
  323. 1108 PRINT"      [205]                         [206]"
  324. 1110 PRINT"       [205]                       [206]"
  325. 1112 PRINT"        [205]                     [206]"
  326. 1130 PRINT"      [206]                         [205]"
  327. 1132 PRINT"     [206]                           [205]"
  328. 1134 PRINT"    [206]                             [205]"
  329. 1136 PRINT"   [206]                               [205]"
  330. 1138 PRINT"  [206]       [155]**[149]               [155]**[149]       [205]"
  331. 1140 PRINT" [206]        [163][163][163][163][183][183][183][183][184][184][184][183][183][183][183][163][163][163][163]        [205]"
  332. 1150 GOTO400
  333. 1200 PRINTCHR$(14)
  334. 1201 PRINT"[147][149]**************[158][196][201][211][203][192][207][192][210][193][205][193][149]***************[155]"
  335. 1202 PRINT"[145]             [149] [163][163][163][163][183][183][183][163][163][163][163][155]"
  336. 1205 PRINT"[212]HIS IS A SMALL PROGRAM [201] DEVISED TO CHECK";
  337. 1210 PRINT" IF [201] HAD USED A DISK [201][196] BEFORE [201]  FORMATED IT.
  338. 1215 [153]"(null)OU MUST FIRST CREATE A FILE THEN ADDTHE RIGHT$STR$S TO IT. (null)HE FILES ";
  339. 1220 [153]"CAN BE WHAT AREON THEM, LIKE GAMES, UTILITIES, ETC.    (null)HIS ALLOWS THE ";
  340. 1225 [153]"USE OF THE SAME RIGHT$STR$ FOR  DIFFERENT TYPES OF DISKS.(01 CAN BE USEDFOR A";
  341. 1230 [153]" GAME AND UTILITY DISK.)"
  342. 1235 [153]"VALACH FILE YOU CREATE CAN HOLD UP TO  200 DISKS. MID$UST CREATE AS MANY";
  343. 1240 [153]" FILES":[153]"AS YOU NEED.
  344. 1245 PRINT"[212]HE FILES CAN BE EDITED AND ADDED TO. [215]HEN FORMATTING";
  345. 1247 PRINT" NEW DISKS, THE FILE IS  UPDATED."
  346. 1270 PRINT"[149][192][192][192][192][192][192][192][192][192][192][192][192][192][192][152][200][201][212][160][193][160][203][197][217][149][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  347. 1271 PRINT"             [149] [163][163][163][183][183][183][163][163][163][155]"
  348. 1275 GETY$:IFY$=""THEN1275
  349. 1280 GOTO1300
  350. 1300 PRINT"[147][149]**************[158][196][201][211][203][192][207][192][210][193][205][193][149]***************[155]"
  351. 1301 PRINT"[145]             [149] [163][163][163][163][183][183][183][163][163][163][163][155]"
  352. 1305 PRINT"[215]HEN YOU WANT TO DELETE A  DISK,     CHANGE THE NAME TO '[196][197][204][197][212][197][196][155]'";
  353. 1307 PRINT" THEN EDIT  THAT ENTRY WHEN ADDING A NEW DISK."
  354. 1310 PRINT"[204]ET ME KNOW IF YOU LIKE IT!!"
  355. 1320 PRINT"[149][192][192][192][192][192][192][192][192][192][192][192][192][192][192][152][200][201][212][160][193][160][203][197][217][149][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  356. 1322 PRINT"             [149] [163][163][163][183][183][183][163][163][163][155]"
  357. 1323 GETY$:IFY$=""THEN1323
  358. 1325 GOTO1100
  359.