home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 247 / 247.d81 / cover.pkd / cover.080d / cover.a7ae (.txt)
Encoding:
Commodore BASIC  |  2004-01-01  |  48.6 KB  |  11 lines
  1. 5 dv=peek(186)
  2. 6 print"[147]":poke53280,0:poke53281,0:poke53272,22
  3. 110 poke251,64:poke252,160:poke253,132
  4. 120 sys51456
  5. 130 sys51459:poke53280,14
  6. 140 t=ti+300
  7. 150 ift>tiandpeek(198)=0then150
  8. 160 getz$
  9. 170 load"presenter",dv
  10. 60000 d=peek(186):n$="cover.b":open1,d,15,"s0:"+n$:close1:saven$,d:end
  11.