home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 146 / 146.d81 / bass.ramload (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  86 lines
  1. 10 (NULL)sqr0:(NULL) $a000,$b000
  2. 15 'write"@0:ramload,p,w"
  3. 20 (NULL)rnd 2072
  4. 30 (NULL)usr 1,1
  5. 40 deffna(q)=peek(252)*256+peek(251)
  6. 50 (NULL)1
  7. 100 (NULL)framload
  8. 110 (NULL)sys #5
  9. 120 (NULL)clr #$55
  10. 130 (NULL)lp1
  11. 140 (NULL)/ $df00,y
  12. 150 (NULL)verify
  13. 160 (NULL)wait #1
  14. 170 (NULL)read (NULL)lp1
  15. 180 (NULL)sys #5
  16. 190 (NULL)lp2
  17. 200 (NULL)clr $df00,y
  18. 210 (NULL)stop #$55
  19. 220 (NULL)read (NULL)nogood
  20. 230 (NULL)verify
  21. 240 (NULL)wait #1
  22. 250 (NULL)read (NULL)lp2
  23. 260 (NULL)cont (NULL)ok1
  24. 270 (NULL)nogood
  25. 280 (NULL)list (NULL)message
  26. 290 (NULL)abs 13
  27. 300 (NULL)abs "?1750 reu not detected."
  28. 310 (NULL)abs 13,0
  29. 320 (NULL)not
  30. 330 (NULL)ok1
  31. 340 (NULL)clr $df00
  32. 350 and #16
  33. 360 (NULL)input# (NULL)nogood
  34. 370 (NULL)clr #$00
  35. 380 (NULL)/ 251
  36. 390 (NULL)clr #$09
  37. 400 (NULL)/ 252
  38. 410 (NULL)clr #$10
  39. 420 (NULL)/ 253
  40. 430 (NULL)clr #$01
  41. 440 (NULL)/ 254
  42. 450 (NULL)sys #0
  43. 460 (NULL)lp3
  44. 470 (NULL)clr (251),y
  45. 480 (NULL)/ (253),y
  46. 490 (NULL)print
  47. 500 (NULL)wait #125
  48. 510 (NULL)read (NULL)lp3
  49. 520 (NULL)sys #10
  50. 530 (NULL)lp4
  51. 540 (NULL)clr (NULL)dump4 ,y
  52. 550 (NULL)/ $df00,y
  53. 560 (NULL)verify
  54. 570 (NULL)read (NULL)lp4
  55. 580 (NULL)list 272
  56. 590 (NULL)list (NULL)message
  57. 600 (NULL)abs 13
  58. 610 (NULL)abs "ramdump64 *installed*."
  59. 620 (NULL)abs 13,0
  60. 630 (NULL)not
  61. 640 (NULL)message
  62. 650 (NULL)tab(
  63. 660 (NULL)/ 251
  64. 670 (NULL)tab(
  65. 680 (NULL)/ 252
  66. 690 (NULL)lp5
  67. 700 (NULL)poke 251
  68. 710 (NULL)read fna(q)+4
  69. 720 (NULL)poke 252
  70. 730 (NULL)sys #0
  71. 740 (NULL)clr (251),y
  72. 750 (NULL)stop #0
  73. 760 (NULL)input# (NULL)done
  74. 770 (NULL)list $ffd2
  75. 780 (NULL)cont (NULL)lp5
  76. 790 (NULL)done
  77. 800 (NULL)clr 252
  78. 810 (NULL)get
  79. 820 (NULL)clr 251
  80. 830 (NULL)get
  81. 840 (NULL)not
  82. 1000 (NULL)dump4
  83. 1010 (NULL)abs 0,$90,$80,$09,0
  84. 1020 (NULL)abs $f0,3,$b0,1,0,0
  85. 55555 (NULL)2
  86.