home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 25 / 025.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  40 lines
  1. 1 ifw=0thenw=1:load"magic",8,1
  2. 2 ifs=1then5
  3. 3 s=1
  4. 4 rem star main disk
  5. 5 ifs%>.then11
  6. 6 poke53281,0:poke53280,0:gosub2000
  7. 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]"
  8. 8 printchr$(8)"        [201]f you have a [202]oystick,"
  9. 9 print"     plug it into [195]ontrol [208]ort [212]wo."
  10. 10 ifs%=0thens%=1:load"red.title.shp",8,1
  11. 11 ifs%=1thens%=2:load"joeplay",8,1
  12. 12 ifs%=2thens%=3:load"victory",8,1
  13. 13 ifs%=3thens%=4:load"unpacker",8,1
  14. 16 forx=1024to1034:reada:pokex+54272,0:pokex,a:next:sys1024
  15. 17 data169,228,141,8,3,169,167,141,9,3,96
  16. 20 :
  17. 22 :
  18. 190 :
  19. 200 poke249,224:poke250,204:poke251,0:poke252,64:poke253,0:poke254,0
  20. 205 sys51456:sys51459
  21. 210 poke251,0:poke252,160:sys49152
  22. 425 ifpeek(788)<>49andpeek(198)=0then425
  23. 600 ifpeek(198)=0thenwait198,1
  24. 602 sys49155:pokev+21,.:poke808,237
  25. 1000 sys51459:pokev+33,.:pokev+31,.
  26. 1190 print"[147]     [204]aunching [212]able of [195]ontents...";
  27. 1200 s=54272:fori=0to24:pokes+i,0:next
  28. 1205 pokes+5,240:pokes+6,253:pokes,0:pokes+1,4:pokes+23,241:pokes+24,31
  29. 1210 pokes+4,129
  30. 1215 poke597,0:rem set hide flag to zero
  31. 1220 print"[144]load"chr$(34)"presenter"chr$(34)",8":print"sys32768"
  32. 1225 print"run"
  33. 1230 poke 631,13:poke632,13:poke633,13:poke198,3
  34. 1240 end
  35. 2000 print"[147]"
  36. 2005 printspc(10)"*******************"
  37. 2006 printspc(10)"* [204] [207][160][193][160][196][160][211][160][212][160][193][160][210] *"
  38. 2007 printspc(10)"*******************"
  39. 2010 return
  40.