10 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC. ALL RIGHTS RESERVED
15 POKE53280,14:POKE53281,6
20 PRINT"[147][154]"TAB(13)"COPYRIGHT 1989":PRINTTAB(7)"COMPUTE! PUBLICATIONS, INC."
30 PRINTTAB(11)"ALL RIGHTS RESERVED"
40 IFA=0THENA=1:LOAD"WINDOWS.ML",8,1
50 PRINT"[147][144]":POKE53280,6:POKE53281,14
60 REM FIRST WINDOW 1 DEMO
70 SYS49152,20,3
80 SYS49164
90 SYS49158,0
100 SYS49161,10,10
110 REM DRAW BORDER
120 SYS49179,0,0,159,0:SYS49179,0,23,159,23
130 SYS49179,0,0,0,23:SYS49179,159,0,159,23
140 SYS49179,2,2,157,2:SYS49179,2,21,157,21
150 SYS49179,2,2,2,21:SYS49179,157,2,157,21
160 REM FULL SCREEN BORDER
170 FORI=1TO39
180 POKE1024+I,200
190 POKE1984+I,254
200 NEXTI
210 FORI=1TO23
220 POKE1024+40*I,216:POKE1063+40*I,235
230 NEXTI
240 REM CORNERS
250 POKE1024,196:POKE1063,215
260 POKE1984,236:POKE2023,255
270 REM DRAW WAVE
280 FORI=8TO151 STEP 3
290 SYS49170,I,12+8*SIN(I/10)*COS(I/5)
300 NEXTI
310 FORI=1TO4
320 SYS49167:FORJ=1TO200:NEXT
330 NEXTI
340 REM BOUNCE WINDOW
350 XP=10:YP=10:DX=2:DY=2
360 FORK=1TO100
370 SYS49161,XP,YP
380 XP=XP+DX:IFXP<0ORXP>20THENDX=-DX:GOTO380
390 YP=YP+DY:IFYP<0ORYP>22THENDY=-DY:GOTO390
400 NEXTK
410 FORK=1TO2000:NEXT
420 REM NEW WINDOW
430 PRINT"[147]"
440 SYS49152,10,10
450 SYS49164
460 SYS49161,0,0:SYS49161,30,0
470 SYS49161,0,15:SYS49161,30,15
480 SYS49161,15,7
490 FORI=0TO79
500 SYS49170,I,ABS(4*COS(I/5))
510 SYS49170,I,79-ABS(4*COS(I/5))
520 SYS49170,ABS(4*COS(I/5)),I
530 SYS49170,79-ABS(4*COS(I/5)),I
540 NEXTI
550 REM PUT TEXT IN WINDOWS
560 PRINT""TAB(16)"TESTING!"
570 REM BOUNCE LINE
580 FORJ=1TO2
590 FORI=8TO71 STEP 3
600 SYS49192,8,I,71,I
610 SYS49192,I,8,I,71
620 SYS49192,8,I,71,I
630 SYS49192,I,8,I,71
640 NEXTI
650 REM AND BOUNCE IT BACK
660 FORI=71TO8 STEP -3
670 SYS49192,8,I,71,I
680 SYS49192,I,8,I,71
690 SYS49192,8,I,71,I
700 SYS49192,I,8,I,71
710 NEXTI
720 NEXTJ
730 REM WINDOW 2
740 PRINT"[147]"
750 SYS49161,0,0:REM KEEP WINDOW 1
760 SYS49164
770 FORX=0TO78 STEP 4
780 SYS49179,X,0,X,79
790 SYS49179,X+1,0,X+1,79
800 NEXTX
810 FORY=0TO78 STEP 8
820 SYS49179,0,Y,79,Y:SYS49179,0,Y+1,79,Y+1
830 NEXTY
840 SYS49199,4,2
850 SYS49199+6,1
860 SYS49199+12
870 SYS49226,0,0,95,0:SYS49226,0,0,0,41
880 SYS49226,0,41,95,41:SYS49226,95,0,94,41
890 SYS49226,0,0,95,41:SYS49226,95,0,0,41
900 POKE53248+27,0
910 FORX=248TO24STEP -2
920 SYS49208,X,34+.7*X,0,0
930 NEXTX
940 FORT=1TO1500:NEXT
950 SYS49208,24,50,0,1
960 FORT=1TO1500:NEXT
970 SYS49208,24,50,1,0
980 FORT=1TO1500:NEXT
990 SYS49208,24,50,1,1
1000 SYS49208,25,50,0,0
1010 POKE53248+27,255
1020 FORT=1TO2000:NEXT:PRINT"[147]"
1030 SYS49164:SYS49155:SYS49211:SYS49202