home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1992 August
/
1992-08.d64
/
windowsdemo
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2022-09-20
|
3KB
|
63 lines
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