10 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 IFPEEK(52234)<>8THENLOAD"ML-SCROLL",8,1
30 DIMVT$(24):VT$(0)="":FORI=1TO24:VT$(I)=VT$(I-1)+"":NEXT
40 DIMA$(127):FORI=0TO123:READA$(I):IFA$(I)<>"-1"THENNEXTI
50 POKE53280,0:POKE53281,0:SYS52230
60 PRINT"[147][159]":POKE702,17:SYS52224,7,12,9,14,0,A$(6)
70 PRINT"   COPYRIGHT 1989 COMPUTE! PUB., INC."
80 PRINTTAB(11)"ALL RIGHTS RESERVED"VT$(5)
90 TX$="":FORI=1TO16:TX$=TX$+"[209]":NEXTI
100 PRINTTAB(11)""TX$
110 FORI=1TO9:PRINTTAB(11)"[209]"TAB(26)"[209]":NEXTI
120 PRINTTAB(11)TX$"[159]"
130 SYS52227:X=PEEK(2):IFXTHEN130
140 GETA$:IFA$=""THEN140
150 IFA$<"1"ORA$>"4"THEN60
160 ONVAL(A$)GOTO180,240,330,170
170 SYS52230:END
180 PRINT"[147]":POKE702,0:FORI=0TO20STEP5:FORJ=0TO30STEP10
190 SYS52224,I,J,5,10,100,A$(0)
200 NEXTJ,I
210 PRINTVT$(5)TAB(10)"[158]THEREARENOSPRITES"
220 PRINTVT$(7)TAB(15)"USEDHERE!"VT$(10)TAB(14)"PRESSANYKEY"
230 SYS52227:PRINT"[147]":GOTO50
240 POKE53280,15:POKE53281,15:PRINT"[147][144]":POKE702,0:TT$=""
250 SYS52224,12,12,1,1,150,A$(32)
260 FORI=1TO32:TT$=TT$+"@":NEXT
270 FORI=0TO12:PRINTVT$(I+1)TAB(19-I)""LEFT$(TT$,I*2+1):NEXT
280 FORI=13TO18:PRINTVT$(I)TAB(7)""LEFT$(TT$,25):NEXT
290 PRINTVT$(23)TAB(9)"PRESSANYKEYTOEXIT"
300 PRINTVT$(14)TAB(10)"PARTSOFTHESCREEN"
310 PRINTVT$(16)TAB(11)"MAYBEABACKDROP"
320 SYS52227:GOTO50
330 PRINT"[147][159]MULTIPLE WINDOWS..."VT$(23)TAB(9)"PRESS ANY KEY TO EXIT":POKE702,0
340 I=1:J=3
350 GOSUB390:SYS52224,J,I,5,10,255,A$(38)
360 J=J+2:I=I*2:IFI<20THEN350
370 SYS52227
380 GOTO50
390 PRINTVT$(J-1)TAB(I-1)"[176][192][192][192][192][192][192][192][192][192][192][174]"
400 FORIJ=1TO5:PRINTTAB(I-1)"[221]          [221]":NEXT
410 PRINTTAB(I-1)"[173][192][192][192][192][192][192][192][192][192][192][189]":RETURN
420 DATA ,,"[176][192][192][192][192][192][192][192][192][174]","[221]COMPUTE![221]","[173][192][192][192][192][192][192][192][192][189]","_"
430 DATA ,,,,,,,,,"[176][192][192][192][192][192][192][192][192][192][192][192][192][174]","[221]  OPTIONS   [221]"
440 DATA"[221]            [221]","[221] (1) DEMO1  [221]"
450 DATA"[221] (2) DEMO2  [221]","[221] (3) DEMO3  [221]"
460 DATA"[221] (4) QUIT   [221]","[221]            [221]"
470 DATA"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]",,,,,,,,"_","^","^","_"
480 DATA,,,"THERE ARE",,"** MANY **",," WINDOWS",
490 DATA" ON THIS",," SCREEN",," JUST ONE",,"  OF THE",
500 DATA" POSSIBLE",," EFFECTS",," USING...",,"  SMOOTH","SCROLLING"
510 DATA "  WINDOWS","    64",,,,,,"_","-1"