home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #4 / utv1n4s2.d64 / diskmate (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  2KB  |  43 lines
  1. 10 rem diskmate 64 loader
  2. 20 rem copyright (c)1987 j. perregaux
  3. 30 rem published by softdisk publishing
  4. 40 rem
  5. 50 ifld>0then70
  6. 60 poke157,0:poke53265,11:poke649,10:poke648,196:print"[147]":poke648,4:gosub170:gosub100
  7. 70 ifld=0thenld=1:load"0:diskmate.chr",8,1
  8. 80 ifld=1thenld=2:load"0:diskmate.spr",8,1
  9. 90 load"0:diskmate.exe",8
  10. 100 print"[147][153]":poke53281,1:poke53280,6:x$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":c$="[144][151][152][155][155][155][155][152][151][144][151][152][155][155][155][155][152][151][144]":d$="
  11. 110 [151]648,196:[153]"load":[151]648,4
  12. 120 [153]"";:[129]x[178]1[164][195](c$)[171]1:[153][202](c$,x,1)x$;:[130]:[153][202](c$,x,1)[200](x$,40)"cmdsaveclose
  13. 130 printleft$(d$,7)"[144][208]lease wait while [196]iskmate loads...":printleft$(d$,13)"[195]opyright ([195])1987 by [202]on [208]erregaux
  14. 140 [153][200](d$,19)"lenommodore 64 (NULL)ersion 1.0
  15. 150 printleft$(d$,25)"[208]ublished by [211]oftdisk [208]ublishing, [201]nc.
  16. 160 [151]53265,27:[142]
  17. 170 [151]53280,6:[151]53281,6:[129]x[178]0[164]88:[135]y:[151]828[170]x,y:[130]
  18. 180 [153]:[153]"load  (NULL)atn(NULL)(NULL)right$(NULL)chr$:":[153]"  tab(tab(tab(tab(tab(tab(tab(tab(
  19. 190 print"[153]  [196]iskmate 64 is designed to be a tool
  20. 200 [153]"for advanced programmers and is quite
  21. 210 print"capeable of scrambling or erasing data
  22. 220 [153]"stored on a disk. right$t is advisable, if
  23. 230 print"you wish to experiment, to use a disk
  24. 240 [153]"of no value.
  25. 250 print"  [196][207] [206][207][212] [213][211][197] [212][200][201][211] [208][210][207][199][210][193][205] [207][206] [212][200][197] [213][208][212][201][205][197]
  26. 260 [153]"str$right$(NULL)(NULL)--(NULL)(NULL)(NULL) (NULL)right$chr$left$(NULL) str$val(NULL)(NULL)(NULL)(NULL)(NULL) right$(NULL)!!!":[153][163]16)"tab(tab(tab(tab(tab(tab(tab(
  27. 270 print"[153]  [212]o be safe, you should place a piece
  28. 280 [153]"of opaque tape over the (NULL)p(NULL)ime disk's
  29. 290 print"write-protect notch. [212]hen there will be
  30. 300 [153]"no danger of accidentally erasing or
  31. 310 print"else seriously crippling your [213]p[212]ime
  32. 320 [153]"program disk.
  33. 330 print"  [208]ress ([210][197][212][213][210][206])[153] to load [196]iskmate":poke198,0
  34. 340 print"  [208]ress ([198]8)[153] for the [213]p[212]ime [205]ain [205]enu
  35. 350 [151]53265,27:[151]788,52:[151]789,234:[151]792,4:[151]793,128
  36. 360 [161]x$:[139]x$[178]""[167]360
  37. 370 [139]x$[178][199](13)[167][151]53265,11:[153]"load":[142]
  38. 380 [139]x$[178]"restore"[167][158]32772
  39. 390 [137]360
  40. 400 [131]169,8,133,2,160,0,169,4,162,192,132,251,133,252,132,253,134,254,169,216,162,196,132,195,133,196,132,247,134,248,76,123,3,169,196,133,2,160,0,169,192
  41. 410 [131]162,4,132,251,133,252,132,253,134,254,169,196,162,216,132,195,133,196,132,247,134,248,177,251,145,253,177,195,145,247,200,208,245,230,252,230,254,230
  42. 420 [131]196,230,248,165,252,197,2,208,231,96
  43.