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