64'er/64ER_CD.iso/92xx/9207.d64/trick-scroll-ed.

Commodore BASIC | 1995-03-30 | 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