home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 246 / 246.d81 / illus.pkd / illus.080d / illus.a7ae (.txt)
Encoding:
Commodore BASIC  |  2004-01-01  |  48.6 KB  |  28 lines
  1. 5 dv=peek(186)
  2. 6 print"[147]":poke53280,0:poke53281,0:poke53272,22
  3. 7 a(0)=32:a(1)=55:a(2)=61:a(3)=64:a(4)=82:a(5)=88:a(6)=99
  4. 9 forx=0to6
  5. 10 poke251,a(x):poke252,224:poke253,204
  6. 20 sys51456
  7. 30 sys51459:poke53280,0
  8. 40 t=ti+480
  9. 50 ift>ti and peek(198)=0  then50
  10. 51 getz$:sys51459:next
  11. 65 print"[147]"
  12. 66 printtab(15)"[193][159]gain or [209][159]uit?"
  13. 67 poke198,0:wait198,1:getz$
  14. 68 ifz$="a"thenrun
  15. 69 ifz$<>"q"then65
  16. 70 goto40000
  17. 10000 n$="prop.i":open1,8,15,"s0:"+n$:close1:saven$,8:end
  18. 40000 fori=0to21:poke828+i,8+i:next
  19. 40010 ifdv<8ordv>29ordv=8then40030
  20. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  21. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  22. 40040 close2:open2,i,2:close2:ifstthen40060
  23. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  24. 40060 next:print"[147]":poke53272,23:poke186,8:end
  25. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  26. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  27. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  28.