28 lines
759 B
QBasic
28 lines
759 B
QBasic
|
'
|
|||
|
|
' *** WINDO_EX.BAS -- WINDOW statement programming example
|
|||
|
|
'
|
|||
|
|
PRINT "Press ENTER to start."
|
|||
|
|
INPUT;"",A$
|
|||
|
|
SCREEN 1 : COLOR 7 'Grey screen.
|
|||
|
|
X = 500 : Xdelta = 50
|
|||
|
|
|
|||
|
|
DO
|
|||
|
|
DO WHILE X < 525 AND X > 50
|
|||
|
|
X = X + Xdelta 'Change window size.
|
|||
|
|
CALL Zoom(X)
|
|||
|
|
FOR I = 1 TO 1000 'Delay loop.
|
|||
|
|
IF INKEY$ <> "" THEN END 'Stop if key pressed.
|
|||
|
|
NEXT
|
|||
|
|
LOOP
|
|||
|
|
X = X - Xdelta
|
|||
|
|
Xdelta = -Xdelta 'Reverse size change.
|
|||
|
|
LOOP
|
|||
|
|
|
|||
|
|
SUB Zoom(X) STATIC
|
|||
|
|
CLS
|
|||
|
|
WINDOW (-X,-X)-(X,X) 'Define new window.
|
|||
|
|
LINE (-X,-X)-(X,X),1,B 'Draw window border.
|
|||
|
|
CIRCLE (0,0),60,1,,,.5 'Draw ellipse with x-radius 60.
|
|||
|
|
PAINT (0,0),1 'Paint ellipse.
|
|||
|
|
END SUB
|
|||
|
|
|