home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 30 / 030.d81 / pt2 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  528b  |  15 lines
  1. 1 print"[147]        [204]oading --- [208]lease wait."
  2. 4 ifx=0thenx=1:load"unpacker",8,1
  3. 5 ifx=1thenx=2:load"table.pic",8,1
  4. 6 vt$(1)=""
  5. 10 poke249,224:poke250,204:                 rem screen/color
  6. 20 poke251,0:poke252,64:                    rem shp buffer
  7. 30 poke253,0:poke254,0:                     rem   x-pos,y-pos
  8. 50 sys51456:    rem  unpack normal shp
  9. 60 sys51459:    rem  show screen
  10. 70 poke198,0:wait198,1:poke198,0
  11. 80 sys51459:    rem  return to normal
  12. 82 print"[147][210]eturning to the menu"
  13. 84 print"[208]lease stand by"
  14. 90 load"periodic table",8
  15.