home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / graphics / demos304.zip / SAMPLES.ZIP / EXAM10.CTL < prev    next >
Text File  |  1993-03-11  |  1KB  |  37 lines
  1. /* EXAM10.CTL
  2. - *001 Data-entry form
  3. @ ^UName^ "!25X" LEN=5
  4. @ ^UCompany^ "!25X"
  5. @ ^UStreet1^ "!25X" LEN=5
  6. @ ^UStreet2^ "!25X"
  7. @ ^UCity^ "!19X"
  8. @ ^UState^ "!!" LEN=2
  9. @ ^UZip^ "NNNNN-NNNN"
  10. @ ^UPhone^ "(NNN) NNN-NNNN" LEN=14
  11. @ ^USubmit^ "!" VQUIT=S QUIT=Q DEF=E TEST=%Instr%(SQE,^USubmit^) > 0
  12. IF %Upper%(^USubmit^) = Q THEN HOP Skip
  13. ASSIGN ^UName^ = %Proper%(^UName^)
  14. ASSIGN ^UCompany^ = %Proper%(^UCompany^)
  15. ASSIGN ^UStreet1^ = %Proper%(^UStreet1^)
  16. ASSIGN ^UStreet2^ = %Proper%(^UStreet2^)
  17. ASSIGN ^UCity^ = %Proper%(^UCity^)
  18. WRITE TEST.PRN "^UName^","^UCompany^","^UStreet1^","^UStreet2^","^UCity^, ^UState^ ^UZip^","^UPhone^"
  19. ECHO
  20. ECHO Entry saved.
  21. DROP Skip
  22. /.
  23.                                Address entry form
  24.  
  25.  
  26.                 User name:    ^K
  27.                 Company:      ^K
  28.                 Street:       ^K
  29.                               ^K
  30.                 City, State ZIP: ^K                    , ^K   ^K
  31.  
  32.                 Phone:        ^K
  33.  
  34.                 Submit?:      ^K   (S=submit & save, Q=quit & nosave, E=edit)
  35. ./
  36. POP
  37.