home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 12 / 012.d81 / lif64inp (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  973b  |  32 lines
  1. 10 w=51968:c=55296:poke53280,0:poke53281,0
  2. 20 fork=49152to49249:readm:pokek,m:next
  3. 30 fork=0to999:poke1024+k,81:pokec+k,0:next:cc=1:k=0:s=0
  4. 40 geta$:ifa$=""thena=peek(c+k):pokec+k,not(aand1)and(aor1)
  5. 50 ifa$=chr$(42)thens=1:d=1:gosub150
  6. 60 ifa$=chr$(13)thenpokec+k,s:goto210
  7. 70 ifa$=chr$(29)thend=1:gosub150
  8. 80 ifa$=chr$(157)thend=-1:gosub150
  9. 90 ifa$=chr$(17)thend=40:gosub150
  10. 100 ifa$=chr$(145)thend=-40:gosub150
  11. 110 ifa$=chr$(32)thens=0:d=1:gosub150
  12. 120 goto40
  13. 150 pokec+k,s:k=k+d:ifk>999ork<0thenk=k-d
  14. 160 s=peek(c+k):return
  15. 210 fork=0to1133:pokew+k,0:next:cc=cc+1:ifcc>15thencc=1
  16. 220 sys49152
  17. 270 fori=1to25:forj=1to40:m=c+(i-1)*40+j-1
  18. 280 onpeek(w+i*42+j)+1goto300,300,310,290,300,300,300,300,300
  19. 290 pokem,cc:goto310
  20. 300 pokem,0
  21. 310 nextj,i:goto210
  22. 1000 data169,39,133,253,169,0,133,254,169,216
  23. 1010 data133,255,169,0,141,36,192,169,203,141
  24. 1020 data37,192,160,0,177,254,41,15,240,11
  25. 1030 data160,7,190,90,192,254,17,17,136,16
  26. 1040 data247,238,36,192,208,3,238,37,192,198
  27. 1050 data253,16,18,169,39,133,253,24,173,36
  28. 1060 data192,105,2,141,36,192,144,3,238,37
  29. 1070 data192,230,254,208,2,230,255,165,254,201
  30. 1080 data232,208,195,165,255,201,219,208,189,96
  31. 1090 data0,1,2,42,44,84,85,86
  32.