home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 2
/
Publication_02_1996_High-Tech_de_Side_A.d64
/
publication-note
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
79 lines
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
28 print" [218]eitgeist"tab(18)"[195]ode,[205]ag-[197]ditor"
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"
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