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

"           Nildram Software          "
"         Installation Program        "
""
"            SCREEN Thief             "
TELESCOPE ON
SPACE 200

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

UNPACK INSTALL.ST 0 12 31 32 14 79
JUMP.FAIL OOPS
COPY ~0\*.TXT ~1~2\ 0 12 31
COPY ~0\FILE_ID.DIZ ~1~2\ 0 12 31
EXIST ~0\FILE_ID.DIZ
JUMP.NO OUT

:PRNT_REG
WINOPEN 0 12 47
" This is a Test Drive Version of SCREEN Thief"
" Please ensure that your printer is on and"
"press <ENTER> to print the registration form"
WAIT 62 15
WINCLOSE
PRINT ~1~2\REGISTER.TXT
JUMP.FAIL REG_ERROR
PRINT ~1~2\DEALER.TXT
PRINT ~1~2\STWIN.INF
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\ST.TXT 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\ST.TXT
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
"SCREEN Thief is now installed."
""
"Press <ENTER> to continue."
WAIT 51 15
WINCLOSE
VIEW ~1~2\README.TXT 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