home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / d / demos301.zip / SAMPLES.ZIP / EXAM07.CTL < prev    next >
Text File  |  1993-01-07  |  973b  |  36 lines
  1. /* EXAM07.CTL
  2. - *SCR Basic input screen
  3. SET CURSOR ^C2(^T8)
  4. KEY (RIGHT) FIELD 1
  5. KEY (LEFT) FIELD -1
  6. KEY (UP) FIELD -3
  7. KEY (DOWN) FIELD 3
  8. KEY (HOME) FIELD TOP
  9. KEY (END) FIELD BOTTOM
  10. KEY @1 CALL @DISPLAY Field 1
  11. KEY @2 CALL @DISPLAY Field 2
  12. KEY @3 CALL @DISPLAY Field 3
  13. KEY @4 CALL @DISPLAY Field 4
  14. KEY @5 CALL @DISPLAY Field 5
  15. KEY @6 CALL @DISPLAY Field 6
  16. KEY @7 CALL @DISPLAY Field 7
  17. KEY @8 CALL @DISPLAY Field 8
  18. KEY @10 CALL @DISPLAY Field 10
  19. KEY @11 CALL @DISPLAY Field 11
  20. KEY @13 CALL @DISPLAY Field 13
  21. KEY @14 CALL @DISPLAY Field 14
  22. KEY @15 QUIT
  23. /.
  24.    Use the cursor keys to select a cell below:
  25.  
  26.    ^K Field 1      ^K Field 2      ^K Field 3
  27.    ^K Field 4      ^K Field 5      ^K Field 6
  28.    ^K Field 7      ^K Field 8      ^K
  29.    ^K Field 10     ^K Field 11     ^K
  30.    ^K Field 13     ^K Field 14     ^K Quit
  31. ./
  32. - @DISPLAY
  33. ECHO ^P10,10^C2You selected ^E1^ ^E2^
  34. PAUSE 2                 /* Waits for two seconds or a user keystroke
  35. POP
  36.