home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 146 / 146.d81 / bass.fram272 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  780b  |  63 lines
  1. 10 (NULL)sqr0:(NULL) $a000,$b000
  2. 15 'write"@0:ram272,p,w"
  3. 20 (NULL)rnd 272
  4. 30 (NULL)usr 1,1
  5. 40 deffna(q)=peek(252)*256+peek(251)
  6. 50 (NULL)1
  7. 100 (NULL)framlo
  8. 110 (NULL)*
  9. 120 (NULL)clr $0319
  10. 130 (NULL)stop #1
  11. 140 (NULL)input# (NULL)exit1
  12. 150 (NULL)/ (NULL)exit2 +2
  13. 160 (NULL)clr $0318
  14. 170 (NULL)/ (NULL)exit2 +1
  15. 180 (NULL)clr #$2e
  16. 190 (NULL)/ $0318
  17. 200 (NULL)clr #1
  18. 210 (NULL)/ $0319
  19. 220 (NULL)exit1
  20. 230 (NULL)return
  21. 240 (NULL)not
  22. 282 (NULL)hold
  23. 284 (NULL)abs 0
  24. 320 (NULL)nmi
  25. 330 (NULL)get
  26. 340 (NULL)<:(NULL)get
  27. 350 (NULL)int:(NULL)get
  28. 360 (NULL)clr (NULL)hold
  29. 370 (NULL)read (NULL)exitway
  30. 380 (NULL)clr #1
  31. 430 (NULL)/ (NULL)hold
  32. 600 (NULL)clr #$90
  33. 620 (NULL)cmd #$e0
  34. 640 (NULL)list (NULL)reu
  35. 650 (NULL)clr #$91
  36. 670 (NULL)cmd #$f0
  37. 690 (NULL)list (NULL)reu
  38. 740 (NULL)list $8000
  39. 750 (NULL)clr #$91
  40. 770 (NULL)cmd #$e0
  41. 790 (NULL)list (NULL)reu
  42. 795 (NULL)clr #0
  43. 800 (NULL)/ (NULL)hold
  44. 825 (NULL)exitway
  45. 830 (NULL)tab(:(NULL)>
  46. 840 (NULL)tab(:(NULL)or
  47. 850 (NULL)tab(
  48. 1000 (NULL)exit2
  49. 1010 (NULL)cont $fe47
  50. 1100 (NULL)reu
  51. 1102 (NULL)/ (NULL)dump1 +1
  52. 1104 (NULL)^ (NULL)dump1 +5
  53. 1110 (NULL)sys #10
  54. 1120 (NULL)lp3
  55. 1130 (NULL)clr (NULL)dump1 ,y
  56. 1140 (NULL)/ $df00,y
  57. 1150 (NULL)verify
  58. 1160 (NULL)read (NULL)lp3
  59. 2000 (NULL)dump1 (NULL)not
  60. 2010 (NULL)abs $90,0,$80,0,$e0,3,0,16,0,0
  61. 2020 (NULL)rear
  62. 55555 (NULL)2
  63.