home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 34 / 034.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  654b  |  27 lines
  1. 2 ifs=1goto5
  2. 3 s=1
  3. 4 rem star main disk
  4. 5 ifs%>.then11
  5. 6 poke53281,0:poke53280,0:poke32768+5,.
  6. 10 ifs%=0thens%=1:load"lsboot.shp",8,1
  7. 11 ifs%=1thens%=2:load"bluplay",8,1
  8. 12 ifs%=2thens%=3:load"victory",8,1
  9. 13 ifs%=3thens%=4:load"unpacker",8,1
  10. 16 forx=1024to1034:reada:pokex+54272,0:pokex,a:next:sys1024
  11. 17 data169,228,141,8,3,169,167,141,9,3,96
  12. 190 :
  13. 195 fors=54272to54296:pokes,0:next
  14. 200 poke249,224:poke250,204:poke251,0:poke252,64:poke253,0:poke254,0
  15. 205 sys51456:sys51459:poke53280,7
  16. 210 sys50432,40960
  17. 220 poke198,.
  18. 230 geta$:j2=peek(56320)and16
  19. 240 if(a$="")and(j2)then230
  20. 600 sys50435:print"[147]";
  21. 602 sys51459:pokev+21,.:poke808,237
  22. 1000 pokev+33,.:pokev+31,.:poke53280,0
  23. 1215 poke318,0:rem set hide flag to zero
  24. 1217 poke178,0:rem set menu flag to zero
  25. 1220 load"hello connect",8
  26. 1240 end
  27.