1 IFPEEK(49170)<>120THENLOAD"WINDOWS",8,1
10 PRINT"[147][144]";:SYS49170:SYS49346,27,23,151,4,3,100:POKE808,237
20 SYS49308,27,23,151,4,14,192:SYS49383,27,23,151,4,1,255:POKE53280,14
30 PRINT""TAB(14)"[211]UPER[215]INDOWS"
40 PRINT""TAB(6)"[195]OPYRIGHT 1992 [195][207][205][208][213][212][197] [201]NT'L"
50 PRINTTAB(10)"[193]LL RIGHTS RESERVED."
60 PRINT""TAB(6)"[208]ROGRAMMED BY [195]AMERON [203]AISER"
70 FORX=8192TO10240:POKEX,0:NEXT
80 POKE53280,15:SYS49346,27,23,151,4,15,100:SYS49308,27,23,151,4,15,192
90 SYS49383,27,23,151,4,15,255
100 POKE53280,12:SYS49346,27,23,151,4,12,100:SYS49308,27,23,151,4,12,192
110 SYS49383,27,23,151,4,12,255
120 POKE53280,11:SYS49346,27,23,151,4,11,100:SYS49308,27,23,151,4,11,192
130 SYS49383,27,23,151,4,11,255
140 POKE53280,0:SYS49346,27,23,151,4,0,100:SYS49308,27,23,151,4,0,192
150 SYS49383,27,23,151,4,0,255:FORX=1TO900:NEXT
160 PRINT"[147][152][206]ORMALLY YOU'VE GOT ONLY ONE SCREEN TO  WORK WITH."
170 FORX=10240TO12288:POKEX,0:NEXT
180 PRINT"[212]HAT'S THE IDEA BEHIND [211]UPER[215]INDOWS."
182 FORX=12288TO14336:POKEX,0:NEXT
190 PRINT"[201]T GIVES YOU THREE SEPARATE SCREENS TO  CONTROL."
200 FORX=14336TO16383:POKEX,0:NEXT
210 PRINT"[147][211]EE?";
220 SYS49308,59,29,151,4,0,230:SYS49346,27,23,151,4,0,60:GOSUB63000
230 PRINT"[147][211]CREENS CAN BE RESIZED TOO..EVEN SHRUNK!";
240 FORX=1TO84:SYS49308,59,29,151,4,0,230-X:SYS49346,27,23,151,4,0,X+60:NEXT
250 SYS49308,27,23,151,4,0,230
252 SYS49346,27,23,151,4,0,60
253 PRINT"[147][193]ND THE SCREENS ACT INDEPENDENTLY OF    EACH OTHER!"
254 FORX=1TO2500:NEXT
260 PRINT"[147][201] WON'T CHANGE.....":FORX=1TO1000:NEXT
270 PRINT"BUT I WILL!"
280 FORX=1TO100:SYS49308,27,21,151,4,11,230:SYS49308,27,23,151,4,0,230:NEXT
290 PRINT"[147][211]O MANY EFFECTS ARE POSSIBLE THAT THIS  DEMO CAN'T POSSIBLY SHOW";
300 PRINT" THEM ALL!"
310 FORX=1TO128:SYS49346,27,23,151,4,X,100:SYS49308,27,23,151,4,X+1,192
320 SYS49383,27,23,151,4,X+2,255:NEXTX:PRINT"[147]";
330 SYS49308,27,23,151,4,0,192:SYS49383,27,23,151,4,0,255:FORX=1TO1000:NEXT
340 PRINT"[208]RESS [196] TO SEE THIS DEMO AGAIN."
350 PRINT"[208]RESS [210][213][206]/[211][212][207][208]-[210][197][211][212][207][210][197] TO QUIT."
360 WAIT198,1:GETA$:IFA$<>"D"THEN360
62999 RUN
63000 FOR X=0 TO 289 STEP1.5
63010 Y=INT(90+80*SIN(X/10))
63020 CH%=X/8:RO%=Y/8
63030 LN=Y AND 7
63040 BY=8192+RO%*320+CH%*8+LN
63050 BI=7-(X AND 7)
63060 POKE BY,PEEK(BY) OR 2^BI
63064 IFX=60THENPRINT"[147][194]EST [201]'VE SEEN!":SYS49346,27,23,151,4,14,60
63065 IFX=120THENPRINT"[147][144][208]RETTY, RIGHT? ":SYS49346,27,23,151,4,4,60
63066 IFX=240THENPRINT"[147][152][194]UT THERE'S STILL MORE!":SYS49346,27,23,151,4,0,60
63067 IFX=180THENPRINT"[147][193] POWERFUL UTILITY!":SYS49346,27,23,151,4,3,60
63070 IFX=60THENPRINT"[144][201]T CAN'T BE!"
63071 IFX=60THENSYS49383,27,23,151,4,15,255
63072 IFX=120THENPRINT"[212]HIS IS AMAZING!"
63073 IFX=120THENSYS49383,27,23,151,4,2,255
63074 IFX=180THENPRINT"[159][201] THINK [201] MIGHT FAINT!"
63075 IFX=180THENSYS49383,27,23,151,4,11,255
63076 IFX=240THENSYS49383,27,23,151,4,0,255
63079 NEXT
63080 RETURN