home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AD_LABL.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  1.1 KB  |  55 lines
  1. //
  2. // Module Name: AD_LABL.COD - Menu_Act = 5
  3. // Selectors  : LBL_File, Scope, For_Expr, While_Exp, LBL_Sample,
  4. //            : LBL_Dest, Flter_Cond
  5. // Description: Call LABEL FORM
  6. // Syntax     : LABEL FORM <expFN>/? [<scope>] [SAMPLE] 
  7. //                  [FOR <expL>] [WHILE <expL>]
  8. //                  [TO PRINTER] [TO FILE <expFN>]
  9. //
  10. *--  Desc: LABEL command to call {LBL_File}
  11. //
  12. {if Flter_Cond then}
  13. SET FILTER TO {Flter_Cond}
  14. GOTO TOP
  15. {endif}
  16. //
  17. {case LBL_Dest of}
  18. {0: // Printer}
  19. SET PRINT ON
  20. {1: // File}
  21. SET ALTERNATE TO {LBL_File}.prt
  22. SET ALTERNATE ON
  23. {3: // Ask at runtime}
  24. gn_pkey = 0
  25. DO PrintSet
  26. IF gn_pkey <> 27  && esc
  27.    \
  28. {endcase}
  29. //
  30. LABEL FORM {LBL_File}\
  31. { if !Scope && !For_Expr && !While_Exp then} &gc_scope. {endif}\
  32. { if Scope} {upper(Scope)} {endif}\
  33. { if For_Expr} FOR {For_Expr}{endif}\
  34. { if While_Exp} WHILE {While_Exp}{endif}\
  35. { if !LBL_Sample} SAMPLE {endif}\
  36.  
  37. {case LBL_Dest of}
  38. {0:}
  39. SET PRINT OFF
  40. {1:}
  41. CLOSE ALTERNATE
  42. {2:}
  43. WAIT
  44. {3:}
  45.    DO Cleanup
  46. ENDIF
  47. {endcase}
  48. //
  49. {if Flter_Cond then}
  50. SET FILTER TO
  51. {endif}
  52. //
  53. // EOP AD_LABL.COD
  54.  
  55.