home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 241 / 241.d81 / 241.pkd / 241.080d / 241.a7ae (.txt)
Encoding:
Commodore BASIC  |  2004-01-01  |  48.6 KB  |  18 lines
  1. 5 dv=peek(186)
  2. 6 print"[147]":poke53280,0:poke53281,0:poke53272,22
  3. 10 poke251,32:poke252,224:poke253,204
  4. 20 sys51456
  5. 30 sys51459:poke53280,0
  6. 40 t=ti+300
  7. 50 ift>ti and peek(198)=0  then50
  8. 51 getz$
  9. 52 poke53280,0:sys51459
  10. 53 poke251,64:poke252,224:poke253,204
  11. 54 sys51456:sys51459:poke53280,1
  12. 55 t=ti+480
  13. 56 ift>ti and peek(198)=0 then56
  14. 57 getz$
  15. 65 load"presenter",dv
  16. 70 end
  17. 10000 n$="propcov.b":open1,8,15,"s0:"+n$:close1:saven$,8:end
  18.