home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 159 / 159.d81 / b.library (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  45 lines
  1. 62000 dv=peek(186):ifdv<8thendv=8
  2. 62010 print"[147]":poke53280,0:poke53281,0:poke211,0:poke214,08:sys58732
  3. 62020 a$="[219][219][219][219][219][219][219]"
  4. 62030 p$="[204] [207] [193] [196] [211] [212] [193] [210]   [204] [201] [194] [210] [193] [210] [217]":au$="[214]ersion 7 by [202]eff [202]ones"
  5. 62035 f$="library 101-x
  6. 62040 [153]"or=======list=======print#========poke========print#======^
  7. 62050 print"[171][219][219][219][219][219][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[179]
  8. 62060 [153]"-(NULL)(NULL)(NULL)(NULL)(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list<
  9. 62070 print"[171][219][219][219][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][179]
  10. 62080 [153]"-(NULL)(NULL)(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)(NULL)<
  11. 62090 print"[171][219][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][219][219][179]
  12. 62100 [153]"-(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)(NULL)(NULL)(NULL)<
  13. 62110 print"[171][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][219][219][219][219][179]
  14. 62120 [153]"list-(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)<
  15. 62130 print"[155][171][219][219][219][219][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[179]
  16. 62140 [153]"list-(NULL)(NULL)(NULL)(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"(NULL)<
  17. 62150 print"[155][171][219][219][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[219][219][179]
  18. 62160 [153]"list-(NULL)(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"(NULL)(NULL)(NULL)<
  19. 62170 print"[155][171][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[219][219][219][219][179]
  20. 62180 [153]"print#-"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"(NULL)(NULL)(NULL)(NULL)(NULL)<"
  21. 62190 [153]"print#-"a$"poke"a$"(NULL)print#"a$"(NULL)list"a$"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)<"
  22. 62200 [153]"list/>>>>>>poke>>>>>>>>print#>>>>>>>>list>>>>>>>>>>>>>>exp"
  23. 62210 [151]211,0:[151]214,10:[158]58732:x[178]2:[141]62230:[141]62280
  24. 62220 [151]211,0:[151]214,15:[158]58732:x[178]5:[141]62230:[137]62300
  25. 62230 [141]62260:[153]"-(NULL)(NULL)>>>list>>>>>>>>>>>>>>>>>>>>>>>>>>>>>list
  26. 62240 fori=1tox:gosub62260:print"[171][219][179][159]                                [146][151][171]":next
  27. 62250 gosub62260:print"[171][219][219][151][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][219]":return
  28. 62260 poke646,1:ifx>2thenpoke646,15
  29. 62270 return
  30. 62280 poke214,11:poke211,20-len(p$)/2:sys58732:print"[159]"p$
  31. 62290 printspc(20-len(au$)/2)""au$:return
  32. 62300 poke214,15:poke211,0:sys58732:
  33. 62310 print"[159]([195]) 1997 [202] & [198] [208]ublishing, [201]nc.
  34. 62320 [153]"open(NULL)his is the copyrighted work of
  35. 62330 print"[159][202] & [198] [208]ublishing, [201]nc. [201]t is not
  36. 62340 [153]"openshareware or public domain.
  37. 62350 print"[159]1-800-594-3370 or 1-318-221-8718
  38. 62360 [129]i[178]dv[164]dv:[160]2:[159]2,i,2:[160]2:[139]st[167]62380
  39. 62370 [160]15:[159]15,i,15,"r0:"[170]f$[170]"="[170]f$:[132]15,er:[160]15:[139]er[178]63[167]62390
  40. 62380 [130]:[153]""f$" not found!":[151]186,8:[128]
  41. 62390 q$[178][199](34):[151]646,[194](53281):[153]"";
  42. 62400 [153]"p(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$f$q$","i
  43. 62410 [153]"r(NULL):";:[151]631,13:[151]632,145:[151]633,145:[151]634,145
  44. 62420 [151]635,145:[151]636,13:[151]198,6
  45.