home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 73 / 073.d81 / diskmate.basic (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  31KB  |  777 lines
  1. 5 rem you must load the ml and data files for this program before it will work
  2. 6 print"[147]this code won't work by itself.  it
  3. 7 [153]"was meant to be compiled and used with
  4. 8 print"the font and sprite files on side 3.
  5. 9 [153]"the basic source is supplied for the    inquisitive to study, not run":[144]
  6. 10 [151]53265,11:[151]53277,0:[151]53271,0:[151]53276,0:[151]204,1:[134]cs(8):qu[178]198:ky[178]653
  7. 20 [151]788,49:[151]789,234:[159]15,8,15:[152]15,"m-w"[199](106)[199](0)[199](1)[199](133):dm[178]1
  8. 30 [152]15,"u0>m9":xt[178]2:[141]7620:xt[178]0:[151]1021,0:[139]a[177]0[167][151]1021,1
  9. 40 [160]15:[151]648,196
  10. 50 [153]"load":[151]53280,6:[151]53281,6
  11. 60 [151]56576,148:[151]53264,0:[151]53272,19:[129]x[178]0[164]7
  12. 70 [151]53287[170]x,13:[151]51192[170]x,128[170]x:[130]
  13. 80 [131]48,66,144,66,248,66,48,114,144,114,248,114,48,162,144,162,127,139,152,367,379,392,607,619,632
  14. 90 [129]x[178]0[164]15:[135]y:[151]53248[170]x,y:[130]:[141]380:[129]x[178]0[164]8:[135]cs(x):[151]54272[170]1024[170]cs(x),6:[151]50176[170]cs(x),30:[130]
  15. 100 [153]"on ortantantantantantantantantantantan=tantantantantantantantantantantantan=tantantantantantantantantantantan^
  16. 110 fory=1to2:forx=1to5:print" [221]"tab(13)"[221]"tab(26)"[221]"tab(38)"[221]":next
  17. 120 print" [171][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][192][192][192][179]":next
  18. 130 forx=1to5:print" [221]"tab(13)"[221]"tab(26)"[221]"tab(38)"[221]":next
  19. 140 print" [173][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][189]
  20. 150 [153]"sqrsqrsqrsqrsqr len(NULL)(NULL)(NULL)(NULL)right$chr$left$(NULL) 1990 mid$(NULL)(NULL) (NULL)val(NULL)(NULL)valchr$atn(NULL)(NULL) sqrsqrsqrsqrcmdsavesqr
  21. 160 print"[153] [176]"left$(ln$,36)"[174]":forx=1to2:print" [221]"tab(38)"[221]":next:print" [173]"left$(ln$,36)"[189]
  22. 170 [153]"valxpanded"[163]14)"valdit str$isk"[163]27)"atnutoboot
  23. 180 print"[196]irectory"tab(14)"[196]irectory"tab(27)"[195]reator
  24. 190 [153]"valdit (NULL)oad"[163]14)"(NULL)esurrect"[163]27)"(NULL)race ascile
  25. 200 print"[193]ddress"tab(14)"[196]ead [198]ile"tab(27)"[204]inks
  26. 210 [153]"(NULL)earrange"[163]14)"valdit ascile"[163]27);:x$[178]"val(NULL)right$(NULL)
  27. 220 printx$:print"[196]irectory"tab(14)"[195]ontents"tab(27);:x$="[196][201][211][203][205][193][212][197]
  28. 230 [153]x$:[153]"print(len(NULL)(NULL)(NULL)) keys and print((NULL)val(NULL)(NULL)(NULL)(NULL)) selects":[153]"(NULL)ress print(f7) for a quick directory
  29. 240 poke53269,255:cs=0:pokequ,0:printleft$(cd$,15)tab(28)"[185][175][164][157][157][157][163][183][184]":poke53265,27
  30. 250 poke53287+cs,1:print"[153]";:ifcs=8thenprint"";
  31. 260 printleft$(cd$,15)tab(28)"[185][175][164][157][157][157][163][183][184]
  32. 270 [151]55296[170]cs(cs),[187](1)[172]16:[161]x$:[139]x$[178]""[167]270
  33. 280 [151]53287[170]cs,13:[153][200](cd$,15)[163]28)"printposandtocmdcmdcmdtab(usrfre":[151]55296[170]cs(cs),6:[139]x$[178]""[167]cs[178]cs[170]1:[139]cs[178]9[167]cs[178]0
  34. 290 [139]x$[178]"cmd"[167]cs[178]cs[171]1:[139]cs[178][171]1[167]cs[178]8
  35. 300 [139]x$[178]""[167]cs[178]cs[170]3:[139]cs[177]8[167]cs[178]cs[171]9
  36. 310 [139]x$[178]"on"[167]cs[178]cs[171]3:[139]cs[179]0[167]cs[178]cs[170]9
  37. 320 [139]x$[178][199](13)[176]x$[178]"let"[167]340
  38. 330 [137]250
  39. 340 [153]"printload":[151]53269,0:[139]x$[178]"let"[167]cs[178]0
  40. 350 [151]53264,1:[151]53248,64:[151]53249,58:[151]51192,128[170]cs
  41. 360 [151]53269,1:[139]x$[178]"let"[167]750
  42. 370 [145]cs[170]1[137]810,1850,2970,3670,4010,4710,5290,6450,7540
  43. 380 pt$[178]"print(NULL)ress ((NULL)val(NULL)(NULL)(NULL)(NULL))print ":cd$[178]"":ln$[178]"tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  44. 390 print"[147][[186][186][186][186][186][186][186][186][186][186][186][186][186][186] [196][201][211][203][205][193][212][197] [186][186][186][186][186][186][186][186][186][186][186][186][186]][157][148][186][153]
  45. 400 qu[178]198:bf[178]631:ky[178]653:qt[178]212:cr[178]646
  46. 410 [142]
  47. 420 [139][194](1021)[178]0[167][142]
  48. 430 tk[178]35:[153]"print(NULL)lease select disk format:
  49. 440 print"[153][208]ress ([210][197][212][213][210][206])[153] to ignore":print"      ([196])[153] for [196]ouble-[211]ided disk
  50. 450 [153]"      (1)print for (NULL)ide 1 (NULL)nly":[153]"      (2)print for (NULL)ide 2 (NULL)nly
  51. 460 print"      (f1)[153] for [196]iskmate [205]enu":pokequ,0
  52. 470 getx$:ifx$=""then470
  53. 480 ifx$=chr$(13)thenx$="[198][207][210][205][193][212] [196][207][197][211][206]'[212] [205][193][212][212][197][210]":goto550
  54. 490 ifx$="[133]"thenrun
  55. 500 ifx$<>"d"andx$<>"1"andx$<>"2"then470
  56. 510 open15,8,15:print#15,"u0>m1":ifx$="d"thenfm=1:x$="[196][207][213][194][204][197]-[211][201][196][197][196]":tk=70
  57. 520 ifx$="1"thenfm=2:print#15,"u0>m0":print#15,"u0>h0":x$="[211][201][196][197] 1 [207][206][204][217]
  58. 530 [139]x$[178]"2"[167]fm[178]3:[152]15,"u0>m0":[152]15,"u0>h1":x$[178]"(NULL)right$str$val 2 (NULL)(NULL)(NULL)(NULL)
  59. 540 xt=2:gosub7620:xt=0:close15:iffm=0then480
  60. 550 forx=4to10:poke781,x:sys59903:next:print""x$"[153]":return
  61. 560 open4,4,7:close4:ifst>-1thenreturn
  62. 570 print"[208][204][197][193][211][197] [212][213][210][206] [207][206] [217][207][213][210] [208][210][201][206][212][197][210][145]":getx$:ifx$="[133]"thenrun
  63. 580 goto560
  64. 590 fl$="":print"                [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:pokeqt,1:printdf$;:pokeqt,0:fl$=df$:df$=""
  65. 600 print"[153] [157][146]";:forx=1to80:getx$:ifx$<>""then630
  66. 610 next:print" [157]";:forx=1to80:getx$:ifx$<>""then630
  67. 620 next:goto600
  68. 630 ifx$=chr$(13)andfl$<>""thenprint" ":goto680
  69. 640 ifx$="[133]"thenforx=1to15:closex:next:run
  70. 650 ifx$=chr$(20)andfl$<>""thenprint"[157]  [157][157]";:fl$=left$(fl$,len(fl$)-1)
  71. 660 ifx$=chr$(13)orx$=chr$(20)orlen(fl$)=16then600
  72. 670 fl$=fl$+x$:pokeqt,1:printx$;:pokeqt,0:goto600
  73. 680 ifleft$(fl$,1)<>"$"thenreturn
  74. 690 fl$=mid$(fl$,2)
  75. 700 iflen(fl$)<4thenfl$="0"+fl$:goto700
  76. 710 iflen(fl$)>4thenfl$=mid$(fl$,2):goto710
  77. 720 d=0:forx=1to4:y=asc(fl$):y=y-48+(y>64)*7:fl$=mid$(fl$,2):d=16*d+y:next
  78. 730 fl$=str$(d):return
  79. 740 poke53269,0:print"[147]":poke648,4:print"[147]":poke56576,151:poke53272,23:return
  80. 750 clr:gosub380:print"[209]uick [196]irectory":open15,8,15,"i0":gosub7620:open1,8,0,"$
  81. 760 [161]#1,a$:[161]#1,a$:by[178]26
  82. 770 [161]#1,a$:[161]#1,a$:[161]#1,a$:bl[178][198](a$[170][199](0)):[161]#1,a$:bl[178]bl[170]256[172][198](a$[170][199](0)):n$[178]"":[129]x[178]1[164]by:[161]#1,a$:[139]st[179][177]0[167]800
  83. 780 [161]x$:[139]x$[178]""[167][153]"*** atnpeek(NULL)(NULL)(NULL) ***":[160]1:[160]15:[137]1730
  84. 790 n$[178]n$[170]a$:[130]:[153][202]([196](bl),2)" "n$:by[178]28:[139]st[178]0[167]770
  85. 800 [153][202]([196](bl),2)" "n$:[160]1:[160]15:[137]1730
  86. 810 [156]:[141]380:[153]"valxpanded str$irectory":[141]420
  87. 820 [134]fx$(7),db(1)
  88. 830 [153]"(NULL)utput to (NULL)len(NULL)valval(NULL)print or (NULL)(NULL)right$(NULL)(NULL)val(NULL)print? ((NULL)/(NULL))":[151]qu,0
  89. 840 [161]a$:[139]a$[179][177]"s"[175]a$[179][177]"p"[175]a$[179][177]"input"[167]840
  90. 850 [139]a$[178]"input"[167][138]
  91. 860 x$[178]"(NULL)len(NULL)valval(NULL)":[139]a$[178]"p"[167]x$[178]"(NULL)(NULL)right$(NULL)(NULL)val(NULL)
  92. 870 printx$:dn=3:ifa$="p"thendn=4:gosub560
  93. 880 print"[153][204]oad addresses in [200][197][216][153] or [196][197][195][201][205][193][204][153]? ([200]/[196])":pokequ,0
  94. 890 getb$:ifb$<>"h"andb$<>"d"andb$<>"[133]"then890
  95. 900 ifb$="[133]"thenrun
  96. 910 dc=0:x$="[200][197][216]":ifb$="d"thenx$="[196][197][195][201][205][193][204]":dc=1
  97. 920 printx$
  98. 930 open15,8,15,"i0":gosub7620:open3,dn,7:open2,8,6,"#":h$="0123456789abcdef":z$=chr$(0)
  99. 940 fx$(0)="[196][197][204]":fx$(1)="[211][197][209]":fx$(2)="[208][210][199]":fx$(3)="[213][211][210]":fx$(4)="[210][197][204]":fx$(5)="???":fx$(6)="???":fx$(7)="???
  100. 950 [159]1,8,5,"$0,p,r":[141]7620
  101. 960 [161]#1,a$:[139]a$[178]""[167]a$[178]z$
  102. 970 dos[178][198](a$):[161]#1,a$:[139]a$[178]""[167]a$[178]z$
  103. 980 dv[178]664:x[1