home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 39 / 039.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  44 lines
  1. 1 ifag=1then1240
  2. 2 ifs=1goto5
  3. 3 s=1
  4. 4 :
  5. 5 ifs%>.then11
  6. 6 poke53281,0:poke53280,0:poke32768+5,.
  7. 10 ifs%=0thens%=1:load"lsboot.shp",8,1
  8. 11 ifs%=1thens%=2:load"basic player.o",8,1
  9. 12 ifs%=2thens%=3:load"m.intro",8,1
  10. 13 ifs%=3thens%=4:load"unpacker",8,1
  11. 14 ifs%=4thens%=5:load"m.instr",8,1
  12. 16 forx=1024to1034:reada:pokex+54272,0:pokex,a:next:sys1024
  13. 17 data169,228,141,8,3,169,167,141,9,3,96
  14. 190 :
  15. 195 fors=54272to54296:pokes,0:next
  16. 200 poke249,224:poke250,204:poke251,0:poke252,64:poke253,0:poke254,0
  17. 205 sys51456:sys51459:poke53280,7
  18. 210 sys8192,40960
  19. 220 ifpeek(2)<>255then220
  20. 600 sys8195:print"[147]"
  21. 602 pokev+21,.:poke808,237
  22. 1000 pokev+33,.:pokev+31,.:poke53280,3
  23. 1215 poke318,0
  24. 1217 poke178,0
  25. 1220 :
  26. 1240 :
  27. 1250 :
  28. 1260 ifag=0thenag=1:load"package.51.o",8,1
  29. 1265 bl=38921:fi=38933
  30. 1270 sysbl,50432,"joeplay"
  31. 1271 sysbl,51456,"unpacker"
  32. 1272 sysbl,35840,"sos.lnk"
  33. 1276 sysbl,40960,"romusic"
  34. 1277 sysfi,29184,35840,0
  35. 1278 sysbl,29184,"features":poke53281,1
  36. 1280 print"[147]load"chr$(34)"presenter"chr$(34)",8"
  37. 1282 print"sys38930,"chr$(34)"[208]ress a [203]ey"chr$(34)",14,23,1"
  38. 1284 print"p[207]198,0:wait198,1:p[207]631,13:poke632,13:poke633,13:p[207]198,3"
  39. 1285 print"p[207]53280,6:p[207]53281,4
  40. 1286 [153]"sys38930,"[199](34)" (NULL)orking..."[199](34)",14,23,1"
  41. 1290 [153]"poke56,114:clr:run44"
  42. 1300 [151]631,13:[151]632,13:[151]633,13:[151]634,13:[151]635,13:[151]636,13:[151]198,6
  43. 1310 [128]
  44.