home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / turbobas / draw.arc / SCALER.BAS < prev   
BASIC Source File  |  1987-10-14  |  476b  |  11 lines
  1. SCREEN 9                           'SCREEN 2 for CGA
  2. FOR I% = 2 TO 74 STEP 8
  3.      DRAW "BM 320,175"             'move to screen center
  4.                                    'change 175 to 100 for CGA
  5.      DRAW "S =" + VARPTR$(I%)      'set scale factor
  6.      DRAW "BM +7,5"                'move to corner where next
  7.                                    'square starts
  8.      DRAW "U10 L14 D10 R14"        'draw square
  9.      DELAY 0.5                     'wait a bit
  10. NEXT I%
  11.