home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 2
/
Publication_02_1996_High-Tech_de_Side_A.d64
/
publication_main
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
140 lines
1 rem" publication-magsys v2.0 by zeitgeist
2 [143]"----------------------------------------
3 rem""(NULL)
11 ga=peek(186):ifa=0thena=1:load"charset*",ga,1
12 poke53272,24:dim t$(15,25),ab$(20),ab(20):jo=2:poke198,0
13 gosub50000:cp=1:an=9:l=16
14 forg=1toan:c$(g)="[190]":next
100 poke53280,0:poke53281,15:print"[147][144]"
101 m$(6)="anzeigen":m$(8)="optionen":m$(7)="alles andere"
102 m$(1)="hy und hallo !":m$(3)="zu den proggis":m$(4)="public tests"
103 m$(2)="reporter":m$(5)="hard-/software":poke53269,127
104 print"[144][208]@[213]@[194]@[204]@[201]@[195]@[193]@[212]@[201]@[207]@[206]"
105 print"p@u@b@l@i@c@a@t@i@o@n":z=cp
106 print" [169][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][170] issue #2"
107 forg=1toan-1:poke211,1:poke214,g*2+5:sys58732:print"[152]"c$(g)"[144] "m$(g):next
130 poke53248,24:poke53249,z*16+92
131 poke53250,50:poke53251,55:poke53252,37
132 poke53253,55:poke53254,130:poke53255,227:poke53257,227:poke53259,227
133 poke53256,153:poke53258,176:poke53260,200:poke53261,227
150 geta$:ifa$<>""then155
151 ifs=1thenpoke2041,226:poke2042,227:s=0
152 forg=1to99:nextg:poke2041,227:poke2042,226:s=1:forg=1to99:nextg
153 gosub30000
155 ifa$=chr$(145)andz=1thenz=9
156 ifa$=chr$(17)andz=8thenz=0
157 ifa$=chr$(145)thenz=z-1
158 ifa$=chr$(17)thenz=z+1
159 ifa$=chr$(13)thencp=z:goto170
162 poke53248,24:poke53249,z*16+92:goto150
170 poke2040,225:forg=1to120:nextg:poke2040,224:c$(z)="[191]"
171 ifz=8then1000
172 poke53265,11:z$=m$(z):goto10000
1000 m$(3)="directory":m$(4)="information":m$(5)="hauptmen]":ma=5:mx=27:my=17
1001 m$(2)="joystick #"+str$(jo):m$(1)="device #"+str$(peek(186)):gosub49000
1002 on a goto 1003,1020,1005,1012,100
1003 ifpeek(186)=8thenpoke186,9:goto1001
1004 poke186,8:goto1001
1005 ga=peek(186):print"[147]":poke53272,21:poke53269,0:open1,ga,0,"$":poke781,1
1006 sys65478:geta$,a$:e$=chr$(0)
1007 geta$,a$,h$,l$:ifstthensys65484:close1:gosub47000:goto1011
1008 printasc(h$+e$)+256*asc(l$+e$);
1009 geta$,b$:ifa$thenprinta$b$;:goto1009
1010 printa$:goto1007
1011 poke53272,24:goto100
1012 poke2047,232:poke53269,255:poke53262,180:poke53263,105:poke53276,126
1013 poke211,23:poke214,7:sys58732:print"[144][212][200][197]@[208][213][194][204][201][195][193][212][201][207][206]"
1014 printtab(23)"the@publication":printtab(23)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][151]"
1015 printtab(23)"this is the long":printtab(23)"awaited magsys"
1016 printtab(23)"v2.0 !!!":printtab(23)"no crediz -"
1017 printtab(23)"everything was":printtab(23)"simply coded"
1018 printtab(23)"by me !":gosub47000:goto100
1020 ifjo=1thenjo=2:goto1001
1021 jo=1:goto1001
10000 ifis$=z$thenq=1:s=i1:q=i2:goto20000
10001 ga=peek(186):forg=1to18:ab$(g)="":next:ab=1:open2,ga,2,"o:"+z$+"*,s,r"
10002 forg=1to18
10003 input#2,ab$(g):input#2,ab(g)
10005 nextg
10006 input#2,s
10007 input#2,a1$
10008 input#2,a2$
10009 forg1=1tos
10010 forg2=1to14
10011 input#2,t$(g2,g1)
10012 nextg2:nextg1:close2:q=1:is$=z$:i1=s:poke53265,27
11000 print"":forg=1to3:print" ";:nextg
11001 print"rubrik :[144] ";a1$
11002 print"[145]thema : [144]";a2$
20000 poke53269,126
20001 print""
20002 forg=1to16
20003 print" ";
20004 nextg:poke53265,27
20005 print" issue #2 [144][169][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][162][161][170]"
20006 poke214,23:poke211,26:sys58640:print" "
20007 print"[145][144]page [157][157][157][157][157]"q"[144] [157][157][157][157]/ [157][157][157][157]"s
20008 forg=1to14
20009 poke211,1:poke214,g+5:sys58640:print"[151]"t$(g,q):nextg
20010 geta$:ifa$=""thengosub30000
20011 ifa$=""ora$="[145]"ora$=chr$(32)ora$="+"thenifq<sthenq=q+1:goto20001
20012 ifa$="[157]"ora$=""ora$="-"thenifq>1thenq=q-1:goto20001
20013 ifa$=chr$(13)theni2=q:goto100
20014 ifa$="[133]"theng=q:goto20019
20015 ifa$="[134]"thenq=1:goto20001
20016 ifa$="[135]"thenq=s:goto20001
20017 ifa$="[136]"then20024
20018 goto20010
20019 g$="":forg=1to3:poke214,23:poke211,26:sys58640:print"nach ?[144] ";g$
20020 gosub47000:ifa$=chr$(13)theng=3:goto20022
20021 ifasc(a$)<48orasc(a$)>57then20020
20022 g$=g$+a$:next:g=val(g$):ifg>sorg<1theng=q
20023 q=g:goto20001
20024 poke214,23:poke211,26:sys58640:print"?[144] [157][157][157][157][157][157][157][157][157][157][157]";ab$(ab)
20025 gosub47000:ifa$=chr$(13)thenq=ab(ab):goto20001
20026 ifa$="[145]"ora$=""thenifab$(ab+1)<>"[160]"thenab=ab+1
20027 ifa$=""ora$="[157]"thenifab>1thenab=ab-1
20028 goto20024
30000 j=int(log(255.5-(peek(56322-jo)or224))/log(2)+2)
30001 on j goto 30002,30003,30004,30004,30003,30005
30002 return
30003 a$=chr$(145):return
30004 a$=chr$(17):return
30005 a$=chr$(13):return
47000 rem *** taste ***
47001 geta$:ifa$=""then47003
47002 return
47003 j=int(log(255.5-(peek(56322-jo)or224))/log(2)+2)
47004 ifj<>1thenreturn
47005 goto47000
48000 print"":forg=1to9
48001 print" ":nextg
48999 return
49000 gosub48000
49001 forg=1toma:poke646,11:poke214,g+my:poke211,mx:sys58640:printm$(g):nextg
49002 a=1:g=0
49003 g=g+1:ifg=15theng=0
49004 poke646,g:poke214,a+my:poke211,mx:sys58640:printm$(a)
49005 geta$:ifa$=""thengosub30000
49006 ifa$=""then49003
49007 poke646,11:poke214,a+my:poke211,mx:sys58640:printm$(a)
49008 ifa$="[145]"thenifa>1thena=a-1
49009 ifa$=""thenifa<mathena=a+1
49010 ifa$=chr$(13)then49012
49011 goto49003
49012 poke646,11:poke214,a+my:poke211,mx:sys58640:printm$(a):return
50000 rem *** sprites ***
50001 poke2046,231:poke53277,0
50002 poke2040,224:poke2041,226:poke2042,227:poke2043,228:poke2044,229
50003 poke2045,230:poke53264,2:poke53286,11:poke53285,1:poke53276,254
50004 poke53287,1:poke53288,12:poke53289,12:poke53290,12:poke53291,12
50005 poke53292,12:poke53293,12:poke53294,12:return
51000 rem
51001 rem *****************************
51002 rem * *
51003 rem * publication - magsys v2.0 *
51004 rem * was done by zeitgeist/h-t *
51005 rem * *
51006 rem *****************************
51007 rem