home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 50 / 050.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  659b  |  21 lines
  1. 1 dv=peek(186):ifdv<8thendv=8
  2. 5 poke32767,13:poke53371,0
  3. 10 poke53281,0:poke53280,0:print"[147][159]":poke53272,22:gosub1000
  4. 11 poke788,49:tq=ti:poke198,0
  5. 12 sys57812"multi ls spr",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  6. 13 sys57812"unpacker.89",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  7. 14 sys57812"intro.shp",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  8. 16 geta$:ifa$=""and(ti<tq+250)then16
  9. 17 poke251,32:poke252,224:poke253,204
  10. 18 poke53280,0:sys51456:sys51459
  11. 19 l$="12345678"
  12. 21 v=53248
  13. 40 tq=ti:j=0:poke53370,0
  14. 41 j=1-j:fori=0to7:pokev+39+i,7-6*j:next
  15. 70 geta$:ifa$=""and(ti<tq+250)then41
  16. 80 poke198,0:poke53371,0
  17. 82 pokev+21,0
  18. 90 poke157,0:load"presenter",dv
  19. 1000 poke214,11:print:printtab(12)"[204][207][193][196]ing [204][207][193][196][211][212][193][210][144]";:return
  20. 10000 d=peek(186):n$="0:star":open15,d,15,"s"+n$:close15:saven$,d:end
  21.