home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 143
/
143side1.d64
/
b.packmeister
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-30
|
2KB
|
39 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$="[208] [193][160][195] [203] [205] [197] [201] [211] [212] [197] [210]":au$="by[202]eff [202]ones":f$="text packer"
62040 print"[176][178][178][178][178][178][178][178][155][178][178][178][178][178][178][178][152][178][178][178][178][178][178][178][178][151][178][178][178][178][178][178][178][178][152][178][178][178][178][178][178][174]
62050 [153]"-(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"<
62060 print"[171][219][219][219][219][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][179]
62070 [153]"-(NULL)(NULL)(NULL)(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)<
62080 print"[171][219][219][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][219][179]
62090 [153]"-(NULL)(NULL)list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)(NULL)(NULL)<
62100 print"[171][219][155]"a$"[152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][219][219][219][179]
62110 [153]"-list"a$"print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list(NULL)(NULL)(NULL)(NULL)(NULL)<
62120 print"[155][171][219][219][219][219][219][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155][219][219][219][219][219][219][179]
62130 [153]"list-(NULL)(NULL)(NULL)(NULL)(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"<
62140 print"[155][171][219][219][219][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[219][179]
62150 [153]"list-(NULL)(NULL)(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"(NULL)(NULL)<
62160 print"[155][171][219][219][152]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[219][219][219][179]
62170 [153]"list-(NULL)print#"a$"(NULL)poke"a$"(NULL)print#"a$"(NULL)list"a$"(NULL)(NULL)(NULL)(NULL)<
62180 print"[152][171]"a$"[219][151]"a$"[219][152]"a$"[219][155]"a$"[219][219][219][219][219][179]"
62190 print"[152][171]"a$"[151]"a$"[219][152]"a$"[219][155]"a$"[219][219][219][219][219][219][179]"
62200 print"[155][173][177][177][177][177][177][177][151][177][177][177][177][177][177][177][177][152][177][177][177][177][177][177][177][177][155][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]"
62210 poke211,0:poke214,10:sys58732:x=2:gosub62230:gosub62280
62220 poke211,0:poke214,15:sys58732:x=5:gosub62230:goto62300
62230 gosub62260:print"[171][219][219][177][177][177][155][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][155]
62240 [129]i[178]1[164]x:[141]62260:[153]"-(NULL)<open waitpoke-":[130]
62250 [141]62260:[153]"-(NULL)(NULL)poke================================(NULL)":[142]
62260 [151]646,1:[139]x[177]2[167][151]646,15
62270 [142]
62280 [151]214,11:[151]211,20[171][195](p$)[173]2:[158]58732:[153]"open"p$
62290 [153][166]20[171][195](au$)[173]2)""au$:[142]
62300 [151]214,15:[151]211,0:[158]58732:
62310 [153]"open(len) 1996 mid$ & asc (NULL)ublishing, right$nc.
62320 print"[159][212]his is the copyrighted work of
62330 [153]"openmid$ & asc (NULL)ublishing, right$nc. right$t is not
62340 print"[159]shareware or public domain.
62350 [153]"open1-800-594-3370 or 1-318-221-8718
62360 fori=dvtodv:close2:open2,i,2:close2:ifstthen62380
62370 close15:open15,i,1mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmchr$