home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
norge.freeshell.org (192.94.73.8)
/
192.94.73.8.tar
/
192.94.73.8
/
pub
/
computers
/
pcjr
/
graphics
/
PCD2-1.EXE
/
lha
/
CASE.SCR
< prev
next >
Wrap
Text File
|
1989-05-15
|
1KB
|
98 lines
;
; test of new PIX features: pop up text boxes...
;
popup (1)(8,3,45,5)
pgotoxy (1) (10,1)
text this is popup window one
;
popup (2)(10,5,45,7)
pgotoxy (2) (10,1)
text this is popup window two
;
popup (3)(10,10,60,14)
tgotoxy (15,12)
text this is window three
;
;
; testing case:
;
popup (4)(20,3,50,9)
pgotoxy (4) (5,1)
text 1 - case one
pgotoxy (4) (5,2)
text 2 - case two
pgotoxy (4) (5,3)
text 3 - case three
pgotoxy (4) (5,4)
text 4 - case four
getkey A
popdown (4)
popup (5)(20,10,50,12)
pgotoxy (5) (10,1)
case A
1 jmp caseone
2 jmp casetwo
3 jmp casethree
4 jmp casefour
endc
jmp badcases
caseone
text this is case 1
jmp endcases
casetwo
text this is case 2
jmp endcases
casethree
text this is case 3
jmp endcases
casefour
text this is case 4
jmp endcases
badcases
text bad selection
endcases
wait (5)
popdown (5)
popup (4)(20,3,50,9)
pgotoxy (4) (5,1)
text B - box
pgotoxy (4) (5,2)
text C - circle
pgotoxy (4) (5,3)
text R - rectangle
pgotoxy (4) (5,4)
text L - line
getkey A
popdown (4)
case A
B box (300,100,600,10)
C circle (300,100,300,10)
R rectangle (400,100,300,80)
L line (300,100,300,10)
endc
wait (5)
popdown (5)
wait (3)
popdown (3)
wait (3)
popdown (2)
wait (3)
popdown (1)
tgotoxy (30,12)
text Press any key to exit