home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 159
/
159.d81
/
b.library
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
45 lines
62000 dv=peek(186):ifdv<8thendv=8
62010 print"[147]":poke53280,0:poke53281,0:poke211,0:poke214,08:sys58732
62020 a$="[219][219][219][219][219][219][219]"
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"
62035 f$="library 101-x
62040 [153]"or=======list=======print#========poke========print#======^
62050 print"[171][219][219][219][219][219][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[179]
62060 [153]"-(NULL)(NULL)(NULL)(NULL)(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list<
62070 print"[171][219][219][219][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][179]
62080 [153]"-(NULL)(NULL)(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)(NULL)<
62090 print"[171][219][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][219][219][179]
62100 [153]"-(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)(NULL)(NULL)(NULL)<
62110 print"[171][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][219][219][219][219][179]
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)<
62130 print"[155][171][219][219][219][219][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[179]
62140 [153]"list-(NULL)(NULL)(NULL)(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"(NULL)<
62150 print"[155][171][219][219][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[219][219][179]
62160 [153]"list-(NULL)(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"(NULL)(NULL)(NULL)<
62170 print"[155][171][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[219][219][219][219][179]
62180 [153]"print#-"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"(NULL)(NULL)(NULL)(NULL)(NULL)<"
62190 [153]"print#-"a$"poke"a$"(NULL)print#"a$"(NULL)list"a$"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)<"
62200 [153]"list/>>>>>>poke>>>>>>>>print#>>>>>>>>list>>>>>>>>>>>>>>exp"
62210 [151]211,0:[151]214,10:[158]58732:x[178]2:[141]62230:[141]62280
62220 [151]211,0:[151]214,15:[158]58732:x[178]5:[141]62230:[137]62300
62230 [141]62260:[153]"-(NULL)(NULL)>>>list>>>>>>>>>>>>>>>>>>>>>>>>>>>>>list
62240 fori=1tox:gosub62260:print"[171][219][179][159] [146][151][171]":next
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
62260 poke646,1:ifx>2thenpoke646,15
62270 return
62280 poke214,11:poke211,20-len(p$)/2:sys58732:print"[159]"p$
62290 printspc(20-len(au$)/2)""au$:return
62300 poke214,15:poke211,0:sys58732:
62310 print"[159]([195]) 1997 [202] & [198] [208]ublishing, [201]nc.
62320 [153]"open(NULL)his is the copyrighted work of
62330 print"[159][202] & [198] [208]ublishing, [201]nc. [201]t is not
62340 [153]"openshareware or public domain.
62350 print"[159]1-800-594-3370 or 1-318-221-8718
62360 [129]i[178]dv[164]dv:[160]2:[159]2,i,2:[160]2:[139]st[167]62380
62370 [160]15:[159]15,i,15,"r0:"[170]f$[170]"="[170]f$:[132]15,er:[160]15:[139]er[178]63[167]62390
62380 [130]:[153]""f$" not found!":[151]186,8:[128]
62390 q$[178][199](34):[151]646,[194](53281):[153]"";
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
62410 [153]"r(NULL):";:[151]631,13:[151]632,145:[151]633,145:[151]634,145
62420 [151]635,145:[151]636,13:[151]198,6