home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / 100UTILI / LRNBAS-3.ZIP / ADVR_EX / WINDO_EX.BAS < prev   
BASIC Source File  |  1988-11-08  |  1KB  |  35 lines
  1. ' *** WINDO_EX.BAS -- WINDOW statement programming example ***
  2. ' This program uses WINDOW in a subprogram, Zoom, to show how
  3. ' changing the window size changes the size of a figure drawn
  4. ' on the screen. As the window gets smaller, the figure appears
  5. ' larger, and vice versa.
  6. '
  7. DECLARE SUB Zoom (X)
  8. CLS    ' Clear screen
  9. PRINT "Press ENTER to start."
  10. PRINT "Press any key to halt execution."
  11. INPUT ; "", A$
  12. SCREEN 1: COLOR 7               'Grey screen.
  13. X = 500: Xdelta = 50
  14.  
  15. DO
  16.    DO WHILE X < 525 AND X > 50
  17.       X = X + Xdelta            'Change window size.
  18.       CALL Zoom(X)
  19.       FOR I = 1 TO 1000         'Delay loop.
  20.          IF INKEY$ <> "" THEN END   'Stop if key pressed.
  21.       NEXT
  22.    LOOP
  23.    X = X - Xdelta
  24.    Xdelta = -Xdelta             'Reverse size change.
  25. LOOP
  26.  
  27. SUB Zoom (X) STATIC
  28.    CLS
  29.    WINDOW (-X, -X)-(X, X)       'Define new window.
  30.    LINE (-X, -X)-(X, X), 1, B   'Draw window border.
  31.    CIRCLE (0, 0), 60, 1, , , .5 'Draw ellipse with x-radius 60.
  32.    PAINT (0, 0), 1              'Paint ellipse.
  33. END SUB
  34.  
  35.