home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 153 / 153.d81 / u.croak (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  915b  |  32 lines
  1. 10 poke53280,0:poke53281,0:printchr$(14)
  2. 20 print"[147][158]        [213]nlimited [204]ives? ([217]/[206])"
  3. 30 getz$:ifz$=""then30
  4. 40 ifz$="y"thenpoke8784,173:goto70
  5. 50 ifz$="n"thenpoke8784,206:goto70
  6. 60 goto30
  7. 70 print" [206]ever [204]ose [196]ouble [212]ongue/[202]umps? ([217]/[206])"
  8. 80 getz$:ifz$=""then80
  9. 90 ifz$="y"thenpoke5213,169:poke5214,1:goto120
  10. 100 ifz$="n"thenpoke5213,169:poke5214,0:goto120
  11. 110 goto80
  12. 120 print"        [213]nlimited [200]earts? ([217]/[206])"
  13. 130 getz$:ifz$=""then130
  14. 140 ifz$="y"thenpoke5188,173:poke5196,173:goto170
  15. 150 ifz$="n"thenpoke5188,206:poke5196,206:goto170
  16. 160 goto130
  17. 170 print"   00=[194]lack   05=[199]reen   10=[204]gt [210]ed"
  18. 180 print"   01=[215]hite   06=[194]lue    11=[199]ray 1"
  19. 190 print"   02=[210]ed     07=[217]ellow  12=[199]ray 2"
  20. 200 print"   03=[195]yan    08=[207]range  13=[204]gt [199]reen"
  21. 210 print"   04=[208]urple  09=[194]rown   14=[204]gt [194]lue"
  22. 220 printspc(25)"15=[199]ray 3"
  23. 230 input"[158]   [194]ug [195]olor? (00-15/00=[206]ormal)";a
  24. 240 ifa<0ora>15then230
  25. 250 poke4277,169:poke4278,a
  26. 260 forx=4279to4290:readz:pokex,z:next
  27. 270 data141,44,208,141,45,208,141,46,208,234,169,00
  28. 280 input"      [211]tarting [204]evel (1-8)";s
  29. 290 ifs<1ors>8then280
  30. 300 poke10208,s-1
  31. 310 sys4096
  32.