home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 14 Text / 14-Text.zip / RB3731.ZIP / GRAPHIC.BAS < prev    next >
BASIC Source File  |  1992-04-17  |  2KB  |  32 lines
  1. '*********************************************************
  2. '*  Program name: GRAPHIC.BAS                            *
  3. '*  Created     : 05/14/90                               *
  4. '*  Revised     :                                        *
  5. '*  Author      : Bernd Westphal                         *
  6. '*  Purpose     : Draw some graphics                     *
  7. '*                for VDM clipboard lab session          *
  8. '*  Compiler    : IBM BASIC Compiler/2 V1.00             *
  9. '*  Compile     : BASCOM GRAPHIC /O;                     *
  10. '*  Link        : LINK GRAPHIC;                          *
  11. '*  Input param : none                                   *
  12. '*********************************************************
  13.  
  14.          SCREEN 2                           ' select 640 x 200 graphics mode
  15.          CLS                                ' clear the screen
  16.          FOR X=1 TO 640 STEP 10
  17.             LINE (320,199)-(X,0)            ' draw some lines
  18.          NEXT
  19.  
  20.          FOR X=1 TO 640 STEP 10
  21.             LINE (320,0)-(X,199)            ' draw some lines
  22.          NEXT
  23.  
  24.          LOCATE 12,31                       ' position the cursor
  25.          PRINT SPACE$(21)                   ' print 21 blanks
  26.          LOCATE 13,31                       ' position the cursor
  27.          PRINT " IBM ITSC Boca Raton "      ' print some text
  28.          LOCATE 14,31                       ' position the cursor
  29.          PRINT SPACE$(21)                   ' print 21 blanks
  30.          kb$ = INPUT$(1)                    ' check for keystroke
  31.          SYSTEM                             ' return to DOS
  32.