install.fil

C++数据库系统

BACKGROUND 127
LANGUAGE ENGLISH
SHADOW ON
TELESCOPE OFF
WINOPEN 18 2 95

"           Nildram Software          "
"         Installation Program        "
""
"            ISAM Manager             "
TELESCOPE ON
SPACE 700

'select destination drive and path. Alert user if ISAM Manager already present.
DRIVE C 28 12 31 15 32 14 79
PATH \ISAMMGR 0 12 31 15 32 14 79

UNPACK INSTALL.IM 0 12 31 32 14 79
JUMP.FAIL OOPS
COPY ~0\*.DOC ~1~2\ 0 12 31
EXIST ~0\FILE_ID.DIZ
JUMP.NO OUT
COPY ~0\DESC.SDI ~1~2\ 0 12 31
COPY ~0\FILE_ID.DIZ ~1~2\ 0 12 31

:PRNT_REG
WINOPEN 0 12 47
" This is a Test Drive Version of ISAM Manager"
" Please ensure that your printer is on and"
"press <ENTER> to print the registration form"
WAIT 62 15
WINCLOSE
PRINT ~1~2\REGISTER.DOC
JUMP.FAIL REG_ERROR
JUMP INST

:REG_ERROR
WINOPEN 0 11 79
"Your printer is not responding. Possible problems:"
"  Printer is off."
"  Printer requires paper."
"  Printer not attached to LPT1."
""
"Do you wish to retry (Y/N)?"
ASK 43 17
WINCLOSE
JUMP.NO INST
JUMP PRNT_REG

'Viewing instructions
:INST
WINOPEN 0 12 31
"Would you like to view the instructions (Y/N)? "
ASK 63 13
WINCLOSE
JUMP.NO PRNT_QUEST
VIEW ~1~2\ISAMMGR.DOC 79 31

'Printing instructions
:PRNT_QUEST
WINOPEN 0 12 31
"Would you like to print the instructions (Y/N)?"
ASK 64 13
WINCLOSE
JUMP.NO OUT
:PRNT
PRINT ~1~2\ISAMMGR.DOC
JUMP.FAIL PRNT_ERROR
JUMP OUT

:PRNT_ERROR
WINOPEN 0 11 79
"Your printer is not responding. Possible problems:"
"  Printer is off."
"  Printer requires paper."
"  Printer not attached to LPT1."
""
"Do you wish to retry (Y/N)?"
ASK 43 17
WINCLOSE
JUMP.YES PRNT

:OUT
WINOPEN 0 12 31
"ISAM Manager is now installed."
""
"Press <ENTER> to continue."
WAIT 51 15
WINCLOSE
VIEW ~1~2\README.DOC 79 31
END

:OOPS
WINOPEN 0 12 79
"THE INSTALLATION PROGRAM FAILED PRIOR TO COMPLETION"
""
"Possible reasons:"
"   -- The floppy disk was removed prior to completion."
"   -- The floppy disk was damaged during shipping."
""
WINCLOSE
END