home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 228 / 228.d81 / kj.title (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  730b  |  25 lines
  1. 1 dv=peek(186):if dv<8 then dv=8
  2. 5 poke 53280,0:poke 53281,0:print chr$(142):print chr$(8)
  3. 10 sys57812"kj.sid player",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  4. 15 f$="kj.title.mus"
  5. 16 sys57812f$,dv,0:poke780,0:poke781,0:poke782,132:sys65493
  6. 20 sys57812"kj.unpacker.98",dv,0:poke780,0:poke781,128:poke782,200:sys65493
  7. 21 print"[147]":poke 214,12:poke 211,15:sys 58732
  8. 22 print "[159]loading..."
  9. 25 sys51328,"kj.title.shp",dv,224,204
  10. 30 poke 252,224:poke253,204:sys51459
  11. 35 sys49435:poke781,0:poke782,132:sys49458:poke49152,7
  12. 45 t=ti+7900:poke 198,0
  13. 50 kb=peek(198)
  14. 52 if kb<>0 goto 60
  15. 54 if t<ti then goto 60
  16. 56 goto 50
  17. 60 sys 51459:print"[147]";
  18. 100 poke49152,0:poke54276,0:poke54283,0:poke54290,0:sys49629
  19. 110 f$="kj.boot"
  20. 6000 print"[147]":poke 214,12:poke 211,15:sys 58732
  21. 6003 print "[159]loading..."
  22. 6005 print"[144]load"chr$(34)+f$+chr$(34)",dv"
  23. 6010 print"run"
  24. 6020 poke631,13:poke632,13:poke198,2:end
  25.