home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 4
/
Publication_04_19xx_High-Tech_de_Side_A.d64
/
. publication! .
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
61 lines
1 rem" the publicationloader - completly lame
2 [143]"----------------------------------------
3 rem""(NULL)
4 f(1)=6:f(2)=2:f(3)=5:f(4)=7:f(5)=1:f(6)=15:poke657,128
5 ifa=0thena=1:gosub5000:ga=peek(186):gosub6000:load"charset.1*",ga,1
6 print"[147]":m=0:poke53265,27:poke53281,6:poke53280,0:poke788,52
7 fori=49152to49169:readx:pokei,x:next
8 data160,0,162,0,232,142,32,208,224,255,208,248,200,192,255,208,241,96
9 print"[147]":poke53272,24
10 printtab(10)"abcdefghijklmnopqrstu"
11 printtab(10)"[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212]"
12 printtab(10)"[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212]"
13 printtab(10)"!@#$%&'()*+,-./01234"
14 print"[158] yo ! diz is the high-tech-memberstatus"
15 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][155]":sys49152:poke53280,0
16 a$="phoenix":py=9:gosub3000:a$="lead,code,swap":gosub4000
17 a$="jak t rip":py=10:gosub3000:a$="co-lead,cover,swap":gosub4000
18 a$="ghost":py=11:gosub3000:a$="grafix":gosub4000
19 a$="ra!":py=12:gosub3000:a$="grafix":gosub4000
20 a$="tsv":py=13:gosub3000:a$="code":gosub4000
21 a$="gunhed battailon":py=14:gosub3000:a$="code,musix":gosub4000
22 a$="ath":py=15:gosub3000:a$="grafix":gosub4000
23 a$="robin hood":py=16:gosub3000:a$="publication":gosub4000
24 a$="zeitgeist":py=17:gosub3000:a$="publication,code":gosub4000:sys49152
25 poke53280,0:a$=" watch out for all fuckin' lame stuff":py=19:gosub3000
26 a$=" of high-tech,exspeccially the next":py=20:gosub3000
27 a$=" issue of publication !":py=21:gosub3000:sys49152:poke53280,0
28 a$=" now press da long one down under !":g=1
29 poke646,f(g):poke211,1:poke214,23:sys58732:printa$
30 getx$:ifx$<>""then33
31 g=g+1:ifg=7theng=1
32 goto29
33 forg=7to23:ifg/2=int(g/2)then35
34 forq=0to38:poke211,q:poke214,g:sys58732:print" ":nextq,g:goto36
35 forq=38to0step-1:poke211,q:poke214,g:sys58732:print" ":nextq,g
36 poke211,1:poke214,6:sys58732:print"[158][164][175][185][162][185][175][164][175][185][162][185][175][164][175][185][162][185][175][164][175][185][162][185][175][164] [159]the issue #4
37 [153]"list tab(usrfreusrfreusrfreusrfreusrfreusrfretab(freusrfreusrfreusrfreusrfreusrtab(stop"
38 [158]57812("sprites*"),ga,1:[151]780,0:[158]65493:[151]53265,11
40 [153]"load"[170][199](34)[170]"publication/main"[170][199](34)[170]","[170][196](ga)
41 [153]"runonononononononononononononononon"
42 [151]198,0:[129]i[178]0[164]9:[151]631[170]i,13:[130]:[151]198,10
43 [144]
100 [137]100
3000 [129]g[178]1[164]6:[151]646,f(g):[151]211,1:[151]214,py:[158]58732:[153]a$:[129]q[178]1[164]100
3001 [130]q,g:[142]
4000 [151]646,3:[129]g[178]1[164][195](a$):[151]211,17[170]g:[151]214,py:[158]58732
4001 [153][202](a$,g,1):[129]q[178]1[164]30:[130]q,g:[142]
5000 [151]53280,2:[151]53281,3:[151]646,0:[153]"load"[199](14):ga[178][194](186):g[178]0
5001 [153]" atnctual str$evice :";ga:[153]"stop (NULL)ew str$evice : ";
5002 [151]204,0:[151]56325,35:g[178]g[170]1:[151]646,f(g):[139]g[178]6[167]g[178]0
5003 [161]a$:[139]a$[178]""[167]5002
5004 x[178][197](a$):[139]x[179][177]8[175]x[179][177]9[167]5002
5005 [151]207,0:[151]204,1:[153]"cmd"x:[151]186,x:[129]g[178]1[164]200:[130]:[142]
6000 [159]1,ga,15:[160]1:[139]st[179]0[167]a$[178]"str$rive not (NULL)eady !!!":g[178]1:[137]6002
6001 [153]" stop(NULL)oading... ":[142]
6002 [151]646,f(g):[151]211,1:[151]214,5:[158]58732:[153]a$
6003 [161]x$:[139]x$[178]""[167]6005
6004 [153]"ononon":[137]6000
6005 g[178]g[170]1:[139]g[178]7[167]g[178]1
6006 [137]6002