10 REM COPYRIGHT 1988 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 IFA=0THENA=1:POKE2,0:LOAD"WINDOW.OBJ",8,1
30 P1=49838:P2=49839:REM POKEP1,32:POKEP2,0
40 FORK=1TO5:READB(K):NEXT:DATA 32,102,214,127,215
50 POKE53280,6:POKE53281,12:PRINT"[144][147]":N=1024
60 PRINT"[147]"TAB(12)"COPYRIGHT 1988"
70 PRINTTAB(7)"COMPUTE! PUBLICATIONS, INC."
80 PRINTTAB(11)"ALL RIGHTS RESERVED"
90 FORJ=1TO25:FORK=1TO40:POKEN,122:N=N+1:NEXTK:NEXTJ
100 M$="_^ DEMO MENU__ 1) OPEN SMALL WINDOW_ 2) OPEN LARGE"
110 M$=M$+" WINDOW_ 3) CLOSE 1 WINDOW_ 4) CLOSE ALL WINDOWS_ 5) EXIT"
120 M$=M$+" DEMO__    MAKE SELECTION"
130 POKEP1,B(INT(RND(0)*5+1))
140 SYS49152,13,16,12,24,2,M$
150 POKEP1,B(INT(RND(0)*5+1))
160 GETX$:IFX$<"1"ORX$>"5"THEN160
170 PRINT"[186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186]"
180 SYS49155:REM CLOSE MENU WINDOW
190 ONASC(X$)-48GOTO200,240,280,300,340
200 IFPEEK(2)>9THENPRINT" TOO MANY WINDOWS OPEN!":SYS49155,PEEK(2):GOTO130
210 R%=RND(0)*6+2:C%=RND(0)*25+1:GOSUB360
220 SYS49152,R%,C%,10,11,X%,"_ THIS IS_ A SMALL_ WINDOW__  PRESS_ ANY KEY"
230 GOTO320
240 IFPEEK(2)>9THEN PRINT" TOO MANY WINDOWS OPEN!":SYS49155,PEEK(2):GOTO130
250 R%=RND(0)*10+2:C%=RND(0)*11+1:GOSUB360
260 SYS49152,R%,C%,12,28,X%,"___  THIS IS A LARGE WINDOW____^ PRESS ANY KEY"
270 GOTO320
280 IFPEEK(2)=0 THEN PRINT" NO WINDOWS OPEN!      ":GOTO130
290 SYS49155:GOTO130
300 IFPEEK(2)=0THEN280
310 SYS49155,PEEK(2):GOTO130
320 GETX$:IFX$=""THEN320
330 GOTO130
340 IFPEEK(2)THENSYS49155,PEEK(2)
350 FORK=1TO2000:NEXT:PRINT"[147]":END
360 X%=RND(0)*15+1:IF(PEEK(53281)AND15)=X%THEN360
370 RETURN