1 REM" THE PUBLICATION-NOTE! BY ZEITGEIST/H-T
2 [143]"----------------------------------------
3 REM""(null)
10 GA=PEEK(186):SYS57812("SPRITES*"),8,1:POKE780,0:SYS65493:PRINT"[147]"CHR$(14)
11 POKE53281,15:POKE53280,6:POKE646,0:POKE2040,228:POKE2041,229:POKE53265,11
12 POKE2042,230:POKE2043,231:POKE53276,255:POKE53248,80:POKE53249,55
13 POKE53287,12:POKE53288,12:POKE53289,12:POKE53290,12:POKE53285,1:POKE53286,0
14 POKE53250,128:POKE53251,55:POKE53252,176:POKE53253,55:POKE53254,224
15 POKE53255,55:POKE53269,255:POKE53277,255
16 PRINT""TAB(6)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][149]"
17 PRINTTAB(8)"DONE BY [129][200][149]I[150]G[151]H-[159][212][156]ECH IN '96"
18 PRINTTAB(6)"[144][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]":POKE53265,27
19 A$="[217]O ! [196]IZ IS THE [200]IGH-[212]ECH-[205]EMBERSTATUS":PY=6:GOSUB2000
20 PRINT" [144][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]":GOSUB3000
21 PRINT" [208]HOENIX"TAB(18)"[204]EAD,[195]ODE,[211]WAP":GOSUB3000
22 PRINT" [202][193][203] [212] [210][201][208]"TAB(18)"[195]O[204]EAD,[195]OVER,[199][198][216],[211]WAP":GOSUB3000
23 PRINT" [199]HOST"TAB(18)"[199]RAFIX":GOSUB3000
24 PRINT" [210][193]!"TAB(18)"[199]RAFIX":GOSUB3000
25 PRINT" [199]UNHED BATTALION [195]ODE,[205]USIX":GOSUB3000
26 PRINT" [212][211][214]"TAB(18)"[195]ODE":GOSUB3000
27 PRINT" [210]OBIN [200]OOD"TAB(18)"[205]AG-[197]DITOR":GOSUB3000:PRINT" [218]EITGEIST";
28 PRINTTAB(18)"[195]ODE,[205]AG-[197]DITOR":PRINT" [193][212][200]"TAB(18)"[199]RAFIX"
30 A$=" [215]ATCH OUT FOR ALL FUCKIN' LAME STUFF":PY=19:GOSUB2000
31 A$="  OF [200]IGH-[212]ECH,EXSPECCIALLY THE NEXT":PY=20:GOSUB2000:GOSUB3000
32 A$="        ISSUE OF [208][159][213][156][194][204][201][158][195][129][193][150][212][151][201][152][207][153][206] [144]!":PY=21:GOSUB2000
33 A$="  [206]OW PRESS DA LONG ONE DOWN UNDER !":PY=23:GOSUB2000
34 GETA$:IFA$<>CHR$(32)THEN34
35 POKE53265,11:PRINT"[147]"TAB(6)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][149]"
36 PRINTTAB(8)"DONE BY [129][200][149]I[150]G[151]H-[159][212][156]ECH IN '96"
37 PRINTTAB(6)"[144][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]":POKE53265,27:GOSUB3000
38 PRINT" [196]AS [200]IGH-[212]ECH JETZT DIE [208][213][194][204][201][195][193][212][201][207][206]"
39 PRINT" RAUSGIBT,WERDET [201]HR JA SCHON HINLAENG-"
40 PRINT" LICH BEMERKT HABEN."
41 PRINT" [200]IER ALSO NUR NOCH EINIGE [200]INWEISE"
42 PRINT" ZUR [194]ENUTZUNG - SPRICH DER [212]ASTENBE-"
43 PRINT" LEGUNG - DES [205]AGS."
44 A$="  [206]OW PRESS DA LONG ONE DOWN UNDER !":PY=23:GOSUB2000
45 GETA$:IFA$<>CHR$(32)THEN45
46 POKE53265,11:PRINT"[147]"TAB(6)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][149]"
47 PRINTTAB(8)"DONE BY [129][200][149]I[150]G[151]H-[159][212][156]ECH IN '96"
48 PRINTTAB(6)"[144][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]":POKE53265,27:GOSUB3000
49 PRINT" [201]M [200]AUPTMENUE :"
50 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
51 PRINT" [199]ESTEUERT WIRD DIE [200]AND MIT DEN"
52 PRINT" [195]URSORTASTEN ODER DEM [202]OYSTICK.[202]OY"
53 PRINT" IST ABER NICHT ZU EMPFEHLEN,DA DAS"
54 PRINT" [197][216][212][210][197][205] LAHM IST."
55 PRINT" [201]M [212]EXT :"
56 PRINT" [163][163][163][163][163][163][163][163][163]"
57 PRINT" [196]ER [212]EXT WIRD SOLANGE IM [211]PEICHER"
58 PRINT" GEHALTEN,BIS EIN NEUER ANGEWAEHLT"
59 PRINT" WIRD."
60 A$="  [206]OW PRESS DA LONG ONE DOWN UNDER !":PY=23:GOSUB2000
61 GETA$:IFA$<>CHR$(32)THEN61
62 POKE53265,11:PRINT"[147]"TAB(6)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][149]"
63 PRINTTAB(8)"DONE BY [129][200][149]I[150]G[151]H-[159][212][156]ECH IN '96"
64 PRINTTAB(6)"[144][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]":POKE53265,27:GOSUB3000
65 PRINT" [211]EITENSWAP :"
66 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163]"
67 PRINT" + / [195]URSOR RECHTS / [211]PACE"
68 PRINT" - / [195]URSOR LINKS  / [195]OMMODORE"
69 PRINT" [198]UNKTIONSTASTEN :"
70 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
71 PRINT" [198]1 [211]PRINGE ZUR [211]EITE"
72 PRINT" [198]3 [211]PRINGE ZUM [212]EXTANFANG"
73 PRINT" [198]5 [211]PRINGE ZUM [212]EXTENDE"
74 PRINT" [198]7 [211]PRINGE ZU [193]BSATZ"
75 PRINT" [205]IT [210]ETURN WIRD DER [212]EXT VERLASSEN !"
76 A$="                       [206]OTE RESTARTS !":PY=6:GOSUB2000
77 A$="  [206]OW PRESS DA LONG ONE DOWN UNDER !":PY=23:GOSUB2000
78 GETA$:IFA$<>CHR$(32)THEN78
999 PRINT"[147]":POKE53265,11:GOTO15
2000 F(1)=0:F(2)=6:F(3)=2:F(4)=5:F(5)=7:F(6)=1
2001 FORG=1TO6:POKE211,1:POKE214,PY:SYS58732:POKE646,F(G):PRINTA$:FORQ=1TO75
2002 NEXTQ,G
2003 FORG=6TO1STEP-1:POKE211,1:POKE214,PY:SYS58732:POKE646,F(G):PRINTA$
2004 FORQ=1TO75:NEXTQ,G:RETURN
3000 FORG=1TO150:NEXTG:RETURN