home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 31 / 031.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  956b  |  36 lines
  1. 2 ma=40960:ifs=1goto5
  2. 3 dimnt(12,3):s=1
  3. 4 rem star main disk
  4. 5 ifs%>.then11
  5. 6 poke53281,0:poke53280,0:gosub2000:poke32768+5,.
  6. 7 print""spc(9)"[208][148][204][197][193][211][197][160][212][213][210][206][160][214][207][204][213][205][197][160][207][206]"
  7. 8 printchr$(8)"        [201]f you have a [202]oystick,"
  8. 9 print"     plug it into [195]ontrol [208]ort [212]wo."
  9. 10 ifs%=0thens%=1:load"red.title.shp",8,1
  10. 11 ifs%=1thens%=2:load"joeplay",8,1
  11. 12 ifs%=2thens%=3:load"victory",8,1
  12. 13 ifs%=3thens%=4:load"unpacker",8,1
  13. 16 forx=1024to1034:reada:pokex+54272,0:pokex,a:next:sys1024
  14. 17 data169,228,141,8,3,169,167,141,9,3,96
  15. 20 :
  16. 22 :
  17. 190 :
  18. 195 fors=54272to54296:pokes,0:next
  19. 200 poke249,224:poke250,204:poke251,0:poke252,64:poke253,0:poke254,0
  20. 205 sys51456:sys51459
  21. 210 sys50432,40960
  22. 220 ifpeek(2)<>255andpeek(198)=0andpeek(56320)<>111then220
  23. 225 ifpeek(56320)=111thensys50435:print"[147]";:goto602
  24. 600 sys50435:wait198,1:print"[147]";
  25. 602 sys51459:pokev+21,.:poke808,237
  26. 1000 pokev+33,.:pokev+31,.
  27. 1215 poke318,0:rem set hide flag to zero
  28. 1217 poke178,0:rem set menu flag to zero
  29. 1220 load"hello connect",8
  30. 1240 end
  31. 2000 print"[147]"
  32. 2005 printspc(10)"[219][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][219]"
  33. 2006 printspc(10)"[179] [204] [207][160][193][160][196][160][211][160][212][160][193][160][210] [171]"
  34. 2007 printspc(10)"[219][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][219]"
  35. 2010 return
  36.