64'er 1992 July/64er_Magazin_92-07_1992-12-02_Markt__Technik_de.d64/trick-scroll-ed.

Commodore BASIC | 2022-10-26 | 2KB | 21 lines

1 print"[147]";:fori=1to13:reada$:printa$;:next:fori=1to11:reada:poke1000+a,162:next:fori=0to375
2 poke49152+i,peek(1024+i):next:w=49152:sysw:p=1025:p1=1069:c=1:rem* by felix fischer'92
3 data"[166]@n[146] [208]n[146]![208][168]nf[146]b [196][165][202]) ][146]ddj][146]d[216][168][160][146]p[208][178][166][146]_n[146]ad[202]n[146]-d)[146][170]m[146]cd[160])[146]@e[187][166]"
4 data"[146]a-[146]@d][146]@d[168][160][146]([208][181][166][187][146]x)[146]([173]4[192]m[146]4[192])[146]@[173]5[192]m[146]5[192][146]x)[146]([173]7[192]m[146]7[192])[146]@[173]8[192]m[146]8"
5 data"[192]%[187][201][146]y[208][201])[146]@m[146]4[192]m[146]7[192])[146]dm[146]5[192][146] [216][193][146][160] [164][191][201]e[176][146]i[201]g[176][146]i[201]h[176][146][168][160][174][146] [208][146][160][166][146]h"
6 data" [146]@ :[191][166][146]@ [146]d)[146]a =[191])[146]@* [146]p [213][191][146] @[192][166][146]@=[146]@pm[146]@d=[146]ypm[146]@[216][168][146]x-.[192][146][169](m"
7 data".[192]-/[192][146][169]@m/[192][146]x-4[192][146][169](m4[192]-5[192][146][169]@m5[192][160][146]y[208][205])[146]@m.[192]m4[192])[146]dm/[192])[216]m5[192][146][160][166][146]@-[146]@d"
8 geta$:onabs(a$="")goto8:ifa$=""thenrb=11:pokep,32:p=p+40:y=y+1:ifp>1986thenp=1985:y=24
9 ifa$="[145]"thenrb=11:pokep,32:p=p-40:y=y-1:ifp<1024thenp=1025:y=0:data"][146]@p-[146]@[216]][146]yp[168][146]x"
10 ifa$=""thenrb=11:pokep1,32:p1=p1+1:c=c+1:ifp1>1083thenp1=1083:c=15:data"-[179][192][146][169](m[179][192]-"
11 ifa$="[157]"thenrb=11:pokep1,32:p1=p1-1:c=c-1:ifp1<1069thenp1=1068:c=0:data"[180][192][146][169]@m[180][192][146]x-"
12 ifrb=11thenrb=0:pokep,31:pokep1,30:poke54272+p,c:goto8:data"[185][192][146][169](m[185][192]-[186][192][146][169]@m[186][192][160][146]y[208][205])[146]d"
13 ifa$=""theny$="":ifpeek(53280)<>0thenpoke53280,11:data"m[180][192])[216]m[186][192])[146]@m[179][192]m[185][192][170][166][146]h :[191][166][146]@"
14 ifa$="[146]"theny$="[146]":ifpeek(53280)<>11thenpoke53280,0:data" [146]d)[146]a =[191][166][146]@ [146]pf[187]d[188])[187][166][146]2"
15 onabs(a$=chr$(133))goto19:ifa$="[147]"thenfori=1024to1991step40:pokei,32:next:goto8
16 ifa$=""thenpokep,32:p=1025:pokep,31:y=0:goto8:data" [146]p [216][191][146][160]m[146]8[192])[146][160]m[146]7[193][146] [176][192])[170]m[146]7"
17 ifa$=chr$(13)thenpoke54271+p,c:goto8:data"[193][146][160] -[192])[216]m[146]5[192]m[146]8[192][146] -[192][146][160]":data24,54,73,165
18 poke211,0:poke214,y:sys58640:printy$a$"":pokep,31:pokep1,30:poke54272+p,c:goto8:data172,192
19 sys49513:fori=7to0step-1:poke53270,i:forj=0to50:next:sys49273:ifpeek(53280)=240thennext:goto19
20 sysw:sys49320:poke53270,8:p1=1069:poke1025,32:pokep,31:c=1:goto8:data350,360,341,336,264