home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / QBAS / QB4GRAF.ZIP / PLOTTER.BAS < prev    next >
BASIC Source File  |  1989-05-16  |  1KB  |  58 lines
  1. ' values for keys on keypad and spacebar
  2. CONST UP = 72, DOWN = 80, LFT = 75, RGHT = 77
  3. CONST UPLFT = 71, UPRGHT = 73, DOWNLFT = 79, DOWNRGHT = 81
  4. CONST SPACEBAR = " "
  5. ' NULL$ IS FIRST CHARACTER OF THE TWO-CHARACTER INKEY$
  6. ' VALUE RETURNED FOR DIRECTION KEYS SUCH AS UP AND DOWN:
  7. NULL$ = CHR$(0)
  8.  
  9. ' PLOT$ = "" MEANS DRAW LINES; PLOT$ = "B" MEANS MOVE
  10. ' GRAPHICS CURSOR, BUT DON'T DRAW LINES:
  11. PLOT$ = ""
  12. PRINT "USE CURSOR KEYS TO DRAW LINES."
  13. PRINT "USE SPACEBAR TO TOGGLE BETWEEN DRAWING ON AND OFF."
  14. PRINT "PRESS <ENTER> TO BEGIN. PRESS <Q> TO END THE PROGRAM."
  15. DO: LOOP WHILE INKEY$ = ""
  16. CLS
  17.  
  18.  
  19. SCREEN 1
  20.  
  21. DO
  22.    SELECT CASE KEYVAL$
  23.       CASE NULL$ + CHR$(UP)
  24.         DRAW PLOT$ + "C1 U2"
  25.       CASE NULL$ + CHR$(DOWN)
  26.         DRAW PLOT$ + "C1 D2"
  27.       CASE NULL$ + CHR$(LFT)
  28.         DRAW PLOT$ + "C2 L2"
  29.       CASE NULL$ + CHR$(RGHT)
  30.         DRAW PLOT$ + "C2 R2"
  31.       CASE NULL$ + CHR$(UPLFT)
  32.         DRAW PLOT$ + "C3 H2"
  33.       CASE NULL$ + CHR$(UPRGHT)
  34.         DRAW PLOT$ + "C3 E2"
  35.       CASE NULL$ + CHR$(DOWNLFT)
  36.         DRAW PLOT$ + "C3 G2"
  37.       CASE NULL$ + CHR$(DOWNRGHT)
  38.         DRAW PLOT$ + "C3 F2"
  39.       CASE SPACEBAR
  40.         IF PLOT$ = "" THEN PLOT$ = "B " ELSE PLOT$ = ""
  41.       CASE ELSE
  42.      
  43.      
  44.       ' THE USER PRESSED A KEY OTHER THAN A PROGRAMED DRAWING;
  45.       ' KEY SO DON'T DO ANYTHING !.
  46.     END SELECT
  47.  
  48.     KEYVAL$ = INKEY$
  49.  
  50. LOOP UNTIL KEYVAL$ = "Q"
  51.  
  52. SCREEN 0, 0
  53. WIDTH 80
  54. END
  55.  
  56.  
  57.  
  58.