home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / graphics / demos304.zip / SAMPLES.ZIP / EXAM08.CTL < prev    next >
Text File  |  1993-03-09  |  1KB  |  38 lines
  1. /* EXAM08.CTL
  2. - *SCR Basic input screen
  3. SET CURSOR ^C2(^T8)
  4. SET MOUSE ON                       /* Turns mouse support on
  5. KEY (RIGHT) FIELD 1
  6. KEY (LEFT)  FIELD -1
  7. KEY (UP)    FIELD -3
  8. KEY (DOWN)  FIELD 3
  9. KEY (HOME)  FIELD TOP
  10. KEY (END)   FIELD BOTTOM
  11. KEY (MOUSER),(MOUSEL) SELECT       /* Says what mouse does
  12. KEY @1      CALL @DISPLAY Field 1
  13. KEY @2      CALL @DISPLAY Field 2
  14. KEY @3      CALL @DISPLAY Field 3
  15. KEY @4      CALL @DISPLAY Field 4
  16. KEY @5      CALL @DISPLAY Field 5
  17. KEY @6      CALL @DISPLAY Field 6
  18. KEY @7      CALL @DISPLAY Field 7
  19. KEY @8      CALL @DISPLAY Field 8
  20. KEY @10     CALL @DISPLAY Field 10
  21. KEY @11     CALL @DISPLAY Field 11
  22. KEY @13     CALL @DISPLAY Field 13
  23. KEY @14     CALL @DISPLAY Field 14
  24. KEY @15     QUIT
  25. /.
  26.    Use the cursor keys to select a cell below:
  27.  
  28.    ^K Field 1      ^K Field 2      ^K Field 3
  29.    ^K Field 4      ^K Field 5      ^K Field 6
  30.    ^K Field 7      ^K Field 8      ^K
  31.    ^K Field 10     ^K Field 11     ^K
  32.    ^K Field 13     ^K Field 14     ^K Quit
  33. ./
  34. - @DISPLAY
  35. ECHO ^P10,10^C2You selected %1% %2%
  36. PAUSE 2                 /* Waits for two seconds or a user keystroke
  37. POP
  38.