home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 236 / 236.d81 / b.party (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2004-01-01  |  1.2 KB  |  41 lines
  1. 10 d=peek(186):ifd<8thend=8
  2. 20 gosub41000
  3. 30 a$="pp1
  4. 40 [153]"stoploada$,d":[153]"run"
  5. 41 [153][163]12)"(NULL)his program
  6. 42 printtab(05)"does not return to [204][207][193][196][211][212][193][210].
  7. 43 [153]:[153][163]10)"(NULL)ress <(NULL)> to (NULL)uit
  8. 44 printtab(06)"[193]ny other key to continue[144]"
  9. 50 poke198,0:wait198,1:getz$:ifz$="q"then40000
  10. 60 poke53280,4
  11. 70 poke198,2:poke631,13:poke632,13:end
  12. 10000 d=peek(186):n$="b.party
  13. 10001 [159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
  14. 40000 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  15. 40010 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]40030
  16. 40020 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  17. 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]
  18. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  19. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  20. 40060 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  21. 40070 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  22. 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
  23. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  24. 41000 [151]53280,0:[151]53281,0:[151]53272,22:[153]"load"
  25. 41002 [151]214,14:[153]
  26. 41004 [153][163]1)"list                                     "
  27. 41005 [129]x[178]1[164]6
  28. 41006 [153][163]1)"print#                                     "
  29. 41007 [130]
  30. 41013 [153][163]1)"poke                                     "
  31. 41020 [129]x[178]1[164]4:[135]a$:[151]214,15[170]x:[153]
  32. 41022 [153][163]19[171][195](a$)[173]2)"print#"a$
  33. 41024 [130]
  34. 41030 t[178]ti[170]60
  35. 41031 [139]t[177]ti[167]41031
  36. 41032 [153]"":[142]
  37. 41050 [131]"(NULL) atn (NULL) (NULL)close(NULL)   (NULL) right$ len (NULL) (NULL)close(NULL) val (NULL)
  38. 41051 data"by [194]rian [195]rosthwaite
  39. 41052 [131]"using (NULL)imon's peekatn(NULL)right$len
  40. 41053 data"(c) [202] & [198] [208]ublishing, [201]nc.
  41.