Black Box 4/BlackBox.cdr/progbas/gfa.arj/GFA1/VGADEMO1.GFA

GFA-BASIC MS-DOS | 1990-12-09 | 5KB | 196 lines

GFA-BASIC MS-DOS
xalt_
yalt_
xpos_
ypos_=$P$G
COMSPEC=C:\COMMAND.COM
PATH=.;C:\;C:\DOS;C:\BATCNC
a_desktop
=SUB(_Y,20)
height
desktop
do_popup
draw_figuremove_verticM
ve_horizont//
GFA-BASIC
DemNN
 GFA-BASIC Fenster
GFA-BASIC
Demo-Program
VGA-Resolution//
demo-program
creates
GFA-BASIC
window
pop-up
menu.
Selecting
entry
pop-up
causes
drawing
figure
inside
the//
window.
pop-up
re-appears
after
pressing
right
mouse-button
'Tab'-key.
program,
position
mouse-curser
closer
the//
window
press
mouse-button
press
'Esc'-key.SCREEN
OPENW
desktop
=SUB(_X,10)
width
desktop
=SUB(_Y,20)
height
desktop
TITLEW
GFA-BASIC
Fenster
window-title
OPENW
#1,10,10,
/2,-1
window
subroutine
pop-up
menuDO
event
checkGETEVENT
event
MENU(1)=4
closer
event
MENU(1)=1
MENU(5)=$11B
'Esc'-key
pressedIF
MENU(4)=2
right
mouse-button
pressed
subroutine
pop-up
menuELSE
MENU(1)=1
MENU(5)=$F09
'Tab'-key
pressed
subroutine
pop-up
menuENDIF
LISSAJOUS|figure _1|figure _22
|figure _3|figure _4
 figure Y
 no entry selected
PROCEDURE
pop-up
subroutine
LOCAL
define
local
variables
WINDGET
outside
coordinates
window//
specified
upper
corner,
width
height
="LISSAJOUS|figure
_1|figure
entries
pop-up
+"|figure
_3|figure
_4"WIN
direct
output
desktop
=POPUP(
,ADD(
create
pop-up
right
windowWIN
direct
output
windowIF
selected
entryINFOW
figure
"+STR$(
write
info-line
figure
entry
selected
INFOW
entry
selected
write
info-line
ENDIF
RETURN
buPR!
PROCEDURE
subroutine
figure
drawingsLOCAL
define
local
variables
LOCAL
COLOR
redPBOX
0,0,9999,9999
clear
windowCOLOR
yellowSWITCH
selected
figure
figure
figure
parameters
figure
figure
parameters
figure
figure
parameterCASE
figure
figure
parameterENDSWITCH
figure
offset
figure
width/height
>>=1,
/*-------------------
drawing
algorithm
--------------*/
=ADD(ADD(
=ADD(
=ADD(ADD(
*COSQ(
=ADD(ADD(
*SINQ(
RETURN