home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / business / hsim13.zip / REG.PRG < prev    next >
Text File  |  1993-07-09  |  500b  |  24 lines
  1. ***BEGIN reg     ***
  2. #include "zac.ch"
  3. FUNCTION REG()
  4.   * Set up variables for procedure reg
  5.   IF _zyesno("View Registration Form On Screen?")
  6.     * Execute Inserted code Print Registration form
  7.     scroll(22,0,22)
  8.     ad_browsef("REGIST.TXT")
  9.   ENDIF
  10.   IF _zyesno("Print Registration Formr")
  11.     * Execute Inserted code print screen
  12.     set console off
  13.     set device to print
  14.     ! copy REGIST.TXT prn
  15.     set device to screen
  16.     
  17.   ENDIF
  18.   RETURN(1)
  19.  
  20.  
  21. ***END reg     ***
  22.  
  23.  
  24.