home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 155 / 155.d81 / ft.paratrooper (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  42 lines
  1. 1400 dv=peek(186):ifdv<8thendv=8
  2. 1410 poke53272,31:poke53280,6:poke53281,6
  3. 1420 print"[147]              [208][193][210][193][212][210][207][207][208][197][210] "
  4. 1430 poke214,22:print:print"              [173][192][192][192][192][192][192][192][192][192][189] "
  5. 1461 data0,129,0,1,129,128,3,60
  6. 1462 data192,6,86,96,6,187,96,6
  7. 1463 data70,96,6,60,96,3,153,192
  8. 1464 data1,195,128,0,219,0,0,219
  9. 1465 data0,0,90,0,0,24,0,0
  10. 1466 data195,0,1,255,128,1,195,128
  11. 1467 data3,129,192,3,129,192,1,129
  12. 1468 data128,1,195,128,7,195,224,0
  13. 1469 data0,0,0,0,0,0,0,0
  14. 1470 data0,0,0,0,0,0,0,0
  15. 1471 data0,0,0,24,0,0,126,0
  16. 1472 data0,255,0,1,255,128,3,255
  17. 1473 data192,15,255,240,31,129,248,60
  18. 1474 data0,60,56,0,28,48,0,12
  19. 1475 data8,0,16,4,0,32,2,0
  20. 1476 data64,1,0,128,0,129,0,255
  21. 1478 sl=15680:forj=sltosl+126:readk:pokej,k:next
  22. 1500 poke53280,6:poke53281,6
  23. 1540 poke53248,160:poke53250,160:poke53277,3:poke53287,7:poke53288,1
  24. 1560 poke53269,3
  25. 1565 poke2040,245:poke2041,246
  26. 1570 fory=0to193:poke53251,y:poke53249,y+20:next
  27. 1575 forj=1to600:next
  28. 1580 poke2040,11:poke2041,11
  29. 1585 fory=193to240:poke53251,y:poke53249,y:next
  30. 1590 poke214,23:print:print"[159]   [208]ress [211][208][193][195][197]/[198][201][210][197] to go to [205]enu."
  31. 1592 zz=0
  32. 1596 zz=zz+1:ifzz>100then1500
  33. 1598 j=peek(56320):geta$:ifa$<>" "andj>111then1596
  34. 1600 :
  35. 1605 poke53269,0
  36. 1610 print"[147]"
  37. 1615 print"new"
  38. 1620 print"load"chr$(34)"ft.menu"chr$(34)","dv
  39. 1625 print"run"
  40. 1630 print"":poke631,13:poke632,13:poke633,13:poke198,3:end
  41. 10000 d=peek(186):n$="ft.paratrooper":open15,d,15,"s0:"+n$:close15:saven$,d:end
  42.