home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 12 / 012.d81 / lif64rnd (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  696b  |  21 lines
  1. 10 w=51968:c=55296:poke53280,0:poke53281,0
  2. 20 fork=49152to49249:readm:pokek,m:next
  3. 200 fork=0to999:poke1024+k,81:pokec+k,int(rnd(1)*2):next:cc=1
  4. 210 fork=0to1133:pokew+k,0:next:cc=cc+1:ifcc>15thencc=1
  5. 220 sys49152
  6. 270 fori=1to25:forj=1to40:m=c+(i-1)*40+j-1
  7. 280 onpeek(w+i*42+j)+1goto300,300,310,290,300,300,300,300,300
  8. 290 pokem,cc:goto310
  9. 300 pokem,0
  10. 310 nextj,i:goto210
  11. 1000 data169,39,133,253,169,0,133,254,169,216
  12. 1010 data133,255,169,0,141,36,192,169,203,141
  13. 1020 data37,192,160,0,177,254,41,15,240,11
  14. 1030 data160,7,190,90,192,254,17,17,136,16
  15. 1040 data247,238,36,192,208,3,238,37,192,198
  16. 1050 data253,16,18,169,39,133,253,24,173,36
  17. 1060 data192,105,2,141,36,192,144,3,238,37
  18. 1070 data192,230,254,208,2,230,255,165,254,201
  19. 1080 data232,208,195,165,255,201,219,208,189,96
  20. 1090 data0,1,2,42,44,84,85,86
  21.