home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 4: Phase Four / 17Bit_Phase_Four.iso / files / 3034.dms / 3034.adf / shutter_cls.AMOS / shutter_cls.amosSourceCode
Encoding:
AMOS Source Code  |  1993-02-25  |  132 b   |  7 lines
  1. Procedure _SHUTTERCLS
  2. For WB=0 To 24 : Pen 0
  3. For WBL=0 To 175 Step 25
  4. Draw 0,WB+WBL To 319,WB+WBL : Next WBL
  5. Wait 5
  6. Next WB
  7. End Proc