home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 1 / 001.d81 / bamap (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  53 lines
  1. 100 rem ********************************
  2. 101 rem *  view bam for c-64 diskette  *
  3. 102 rem ********************************
  4. 103 print"[147]view bam 64[146] insert disk then press a key":poke53281,.:poke198,.
  5. 104 geta$:ifa$=""then104
  6. 105 open15,8,15
  7. 110 print#15,"i0":nu$="                   ":z4=1:nc$="[146]":z$=chr$(.)
  8. 120 open2,8,2,"#
  9. 130 y$[178]"
  10. 140 x$="
  11. 150 [150] [165]s(z) [178] 2[174](s[171][181](s[173]8)[172]8) [175] (sb([181](s[173]8)))
  12. 160 [152]15,"ua:2 0 18 0
  13. 170 print#15,"b-p:2 1
  14. 180 [153]"load";
  15. 190 y[178]22:x[178]1:[141]430
  16. 200 [129]i[178].[164]20:[153]:[153]"onon"[201]([196](i),2);:[130]
  17. 210 [161]#2,a$,a$,a$
  18. 240 ts[178].
  19. 250 [129]t[178]1[164]35:[141]450
  20. 260 y[178]22:x[178]t[170]3:[141]430:[141]540:[130]
  21. 270 [137]340
  22. 300 [129]t[178]18[164]35
  23. 310 [141]450
  24. 320 y[178]22:x[178]t[170]3:[141]430:[141]540:[130]
  25. 340 [153]""[200](y$,24);
  26. 350 [152]15,"b-p";2;144
  27. 360 n$[178]"":[129]i[178]1[164]20:[161]#2,a$:n$[178]n$[170]a$:[130]
  28. 370 [153]" "n$" "ts[171]17;"blocks free"
  29. 400 [133]"another diskette  ncmdcmdcmd";a$
  30. 410 [139]a$[178]"y"[167][138]
  31. 420 [139]a$[179][177]"y"[167][160]15:[160]2:[137] 63000
  32. 430 [153][200](y$,y)[200](x$,x)"cmd";
  33. 440 [142]
  34. 450 [161]#2,sc$:sc[178][198]([201]([199](.)[170]sc$,1))
  35. 460 ts[178]ts[170]sc
  36. 470 [129]z[178].[164]2:[161]#2,a$:sb(z)[178][198](a$[170]z$):[130]:[142]
  37. 540 [139]t[178]18[167][153]"cont";
  38. 545 [153]"cmd"[201]([196](t),1)"oncmd"[200]([201](" "[170][196](t),2),1)"cmdon";
  39. 550 [143]  printt"   "sc"  "sb(.)" "sb(1)" "sb(2)=z$
  40. 570 [129]s[178].[164]20
  41. 580 [139]t[179]18[167]630
  42. 590 [139]t[177]30[175]s[177]16[167]s[178]20:[137]660
  43. 600 [139]t[177]24[175]s[177]17[167]s[178]20:[137]660
  44. 620 [139]t[177]17[175]s[177]18[167]s[178]20:[137]660
  45. 630 [153]"";
  46. 635 [139][165]s(s)[178].[175]t[178]18[167][153]"def ";:[137]660
  47. 640 [139][165]s(s)[178].[167][153]" ";:[137]660
  48. 645 [139]t[178]18[167][153]"print ";:[137]660
  49. 650 [153]" ";
  50. 660 [153]"oncmdwait";:[130]:[142]
  51. 63000 [153]"loadload"[199](34)"payload"[199](34)",8":[153]"run"
  52. 63001 [151]631,13:[151]632,13:[151]198,2
  53.