home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 242 / 242.d81 / assembly (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  360b  |  13 lines
  1. 8900 rem-----assembly------
  2. 8910 s=54272:pokes+5,9:pokes+24,15:pokes+6,144
  3. 8920 forn=1to4:readn(n,1),n(n,2):next
  4. 8930 readno,du:ifno=0thenend
  5. 8940 pokes+1,n(no,1):pokes,n(no,2):pokes+4,17:forj=1to15*du:next:pokes+4,16
  6. 8950 forj=1to50:next:goto8930
  7. 8960 data12,143,16,195,21,31,25,30
  8. 8970 data1,6,1,2,2,6,1,2,2,6,3,2
  9. 8980 data2,12,2,4,2,2,3,6,2,2,3,6
  10. 8990 data4,2,3,12,2,6,3,2,4,12,3,6
  11. 9000 data2,2,1,12,1,6,1,2,2,12,2,6
  12. 9010 data2,2,2,18,0,0
  13.