home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 167 / 167.d81 / u.starship (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  929b  |  30 lines
  1. 10 poke53280,0:poke53281,0:printchr$(14)
  2. 15 q=peek(16385):ifq<>114thenprint"[147][158][205]ust [204]oad & [210]un 'b.starship' [198]irst!!":stop
  3. 20 print"[147][159][211]tarship [201]nvasion [213]ltragem"
  4. 30 print"[158][213]nlimited [204]ives? ([217]/[206])"
  5. 40 getz$:ifz$=""then40
  6. 50 ifz$="y"thenpoke16670,173:goto80
  7. 60 ifz$="n"thenpoke16670,206:goto80
  8. 70 goto40
  9. 80 print"[158][213]nlimited [197]nergy? ([217]/[206])"
  10. 90 getz$:ifz$=""then90
  11. 100 ifz$="y"thenpoke21140,173:goto130
  12. 110 ifz$="n"thenpoke21140,206:goto130
  13. 120 goto90
  14. 130 input"[197]nter [211]tart [204]evel (1-255)";s
  15. 140 ifs<1ors>255then130
  16. 150 poke20346,234:poke20352,234
  17. 160 poke20354,int(s)
  18. 170 sys16384
  19. 40000 print"[147]":poke53281,0:poke53280,0
  20. 40010 u=828:fori=0to21:pokeu+i,8+i:next
  21. 40020 ifdv<8ordv>29ordv=8then40040
  22. 40030 a=peek(u):b=peek(u+dv-8):pokeu,b:pokeu+dv-8,a
  23. 40040 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  24. 40050 close2:open2,i,2:close2:ifstthen40070
  25. 40060 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40080
  26. 40070 next:print"[147]":poke53272,23:poke186,8:end
  27. 40080 q$=chr$(34):poke646,0:print"[147]":poke53272,23
  28. 40090 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  29. 40100 print"run:":poke631,13:poke632,13:poke198,2:end
  30.