home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / utilities / Filetype.64.prg (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-09-11  |  2.4 KB  |  84 lines
  1. 100 d=0:t=18:s=1:k=0:x=0:i=0:a=0:u=0
  2. 110 v=0:a$="":dim f$(296),k(296)
  3. 120 fori=0to296:k(i)=0:next
  4. 130 ifpeek(49152)<>169thengosub660
  5. 140 print"[147][158] [195]64 [215]hole [196]isk [198]ile [212]ype [195]hanger [214]2.2 "
  6. 150 print" * [194]y [210]ussell [208]rater * [208]ublic [196]omain * ":print
  7. 160 print"[153][215]hich disk device #   [158]8[157][157][157]";
  8. 170 inputd:ifd<8ord>15thenprint"[145]";:goto160
  9. 180 print:print"[153][196]evice[158]"d"[153]is a ";
  10. 190 open15,d,15:print#15,"ui"
  11. 200 input#15,a$,a$:close15
  12. 210 print"[158]"right$(a$,4)
  13. 220 ifright$(a$,4)="1581"thent=40:s=3
  14. 230 print:print"[156][195]hange to which file type?"
  15. 240 print"[158]1[153] [211]equential":print"[158]2[153] [208]rogram":print"[158]3[153] [213]ser ([213][211][210])
  16. 250 [151]198,0:[146]198,1:[161]a$
  17. 260 k[178][197](a$):[139]k[179]1[176]k[177]3[167]250
  18. 270 [153]:[153]"clrlenhange:":[153]"sys1print atnll files":[153]"sys2print (NULL)elected files"
  19. 280 [151]198,0:[146]198,1:[161]a$
  20. 290 [139]a$[179]"1"[176]a$[177]"2"[167]280
  21. 300 [139]a$[178]"1"[167][129]i[178]1[164]296:k(i)[178]k:[130]:[137]460
  22. 310 [153]:[153]"sys(NULL)eading str$irectorysys":[153]
  23. 320 [159]2,d,0,"$":[158]49152:x[178][194](250)
  24. 330 [153]"loadclr(NULL)elect asciles to lenhange"
  25. 340 [153]"sys(NULL)print to (NULL)elect, sys(NULL)print to (NULL)kip"
  26. 350 [153]"sys^print  peekack step, sysatnprint to atnbort"
  27. 360 [153]:[129]i[178]1[164]x
  28. 370 [153]"print"f$(i)
  29. 380 [151]198,0:[146]198,1:[161]a$
  30. 390 [139]a$[178]"a"[167][153]"load":[137]630
  31. 400 [139]a$[178]"y"[167][153]"onsys"f$(i)"print":k(i)[178]k
  32. 410 [139](a$[178]"^"[176]a$[178]"on")[175]i[177]1[167][153]"on                on":i[178]i[171]1:k(i)[178]0
  33. 420 [139]a$[178]"^"[176]a$[178]"on"[167][153]"on";:[137]370
  34. 430 [130]:[129]i[178]1[164]2000:[130]:[153]"sys(NULL)kay to write new file type? ((NULL)/n)"
  35. 440 [151]198,0:[146]198,1:[161]a$
  36. 450 [139]a$[178]"n"[167]340
  37. 460 x[178]1:[159]15,d,15:[159]2,d,2,"#"
  38. 470 [153]"loadclrlenhanging...":[153]"print(NULL)rack  (NULL)ectordef"
  39. 480 [153]t"    "s
  40. 490 [152]15,"u1:";2;0;t;s
  41. 500 [152]15,"b-p:";2;0
  42. 510 [161]#2,a$:u[178][198](a$[170][199](0))
  43. 520 [161]#2,a$:v[178][198](a$[170][199](0))
  44. 530 [129]i[178]2[164]226[169]32
  45. 540 [152]15,"b-p:";2;i
  46. 550 [161]#2,a$:a[178][198](a$[170][199](0))
  47. 560 [139](a[175]128)[178]0[167]590
  48. 570 [139]k(x)[178]k[167][152]15,"b-p:";2;i:[152]2,[199](128[170]k);
  49. 580 x[178]x[170]1
  50. 590 [130]:[152]15,"u2:";2;0;t;s
  51. 600 [139]u[167]t[178]u:s[178]v:[137]480
  52. 610 [160]2:[160]15
  53. 620 [153]"printascinished!open"
  54. 630 [153]"openatnnother str$isk? (y/(NULL))"
  55. 640 [151]198,0:[146]198,1:[161]a$:[139]a$[178]"y"[167][138]
  56. 650 [128]
  57. 660 [129]i[178]49152[164]49352:[135]a:[151]i,a:[130]:[142]
  58. 670 [131] 169,0,133,250,162,2,32,198
  59. 680 [131] 255,32,207,255,32,207,255,169
  60. 690 [131] 0,133,253,169,128,133,254,165
  61. 700 [131] 47,133,251,165,48,133,252,160
  62. 710 [131] 0,177,251,201,70,240,9,200
  63. 720 [131] 208,247,230,252,208,243,240,78
  64. 730 [131] 200,208,2,230,252,177,251,201
  65. 740 [131] 128,240,2,208,228,162,9,200
  66. 750 [131] 208,2,230,252,202,208,248,152
  67. 760 [131] 24,101,251,133,251,144,2,230
  68. 770 [131] 252,160,31,32,207,255,136,208
  69. 780 [131] 250,32,207,255,166,144,208,30
  70. 790 [131] 201,34,208,245,165,253,133,176
  71. 800 [131] 165,254,133,177,160,0,32,207
  72. 810 [131] 255,201,34,240,18,145,176,200
  73. 820 [131] 208,244,230,177,208,240,32,204
  74. 830 [131] 255,169,2,32,195,255,96,132
  75. 840 [131] 155,152,24,101,176,133,176,144
  76. 850 [131] 2,230,177,160,0,165,155,145
  77. 860 [131] 251,200,165,253,145,251,200,165
  78. 870 [131] 254,145,251,200,152,24,101,251
  79. 880 [131] 133,251,144,2,230,252,165,176
  80. 890 [131] 133,253,165,177,133,254,230,250
  81. 900 [131] 32,207,255,208,251,32,207,255
  82. 910 [131] 32,207,255,32,207,255,76,89
  83. 920 [131] 192
  84.