home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 228 / 228.d81 / view1.pkd / view1.080d / view1.a7ae (.txt)
Encoding:
Commodore BASIC  |  2003-01-01  |  48.6 KB  |  29 lines
  1. 1 dv=peek(186):ifdv<8thendv=8
  2. 5 poke32767,13:poke53371,0
  3. 6 poke65534,1:rem s-key on
  4. 7 nu=peek(828)
  5. 10 poke53281,0:poke53280,0:print"[147][159]"
  6. 15 forx=1tonu:nv=peek(828+x)
  7. 16 poke251,nv:poke252,224:poke253,204
  8. 18 poke53280,1:print"[147]":sys51456:sys51459
  9. 20 poke198,0:wait198,1:poke198,0
  10. 21 sys51459
  11. 25 next:print"[147]":poke53280,0:poke53281,0
  12. 27 print"[147]":poke214,11:print:printtab(10)"1. [214]iew [193]gain":printtab(10)"2. [210]eturn to [204][207][193][196][211][212][193][210]"
  13. 28 poke198,0:wait198,1:getz$:ifz$="1"thenrun
  14. 29 ifz$<>"2"then27
  15. 30 goto40000
  16. 999 end
  17. 10000 d=peek(186):n$="viewer1
  18. 10001 [159]1,d,15,"s0:"[170]n$:[160]1:[148]n$,d:[128]
  19. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  20. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  21. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  22. 40030 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  23. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  24. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  25. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  26. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  27. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  28. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  29.