home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1988 December
/
1988-12.d64
/
window.demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
38 lines
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