home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
QBAS
/
DS40BPDS.ZIP
/
ERRDEMO.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-10-24
|
1KB
|
24 lines
' $INCLUDE: 'DOORSORC.INT'
ON ERROR GOTO ErrorHandle: ' Setup error handler
PROGNAME$ = "CarrierLossError Demo" ' Door name
RELEASE$ = "1.0" ' Door version
CALL ClrScrn ' Clear the screen
CLOSE #1 ' Close the config file
CarrierLossError = Yes ' Turn the CarrierLossError feature on
CALL Send("Drop carrier within the next 30 seconds!", No, Yes, 11) ' Display text
CALL WaitASec(30) ' Wait for 30 seconds
CALL ExitDoor ' End door
ErrorHandle:
IF ERR = 255 THEN
CALL Send("Carrier drop handling is being done now.", No, Yes, 12)' Display text
RESUME ' Return control to Exitdoor to end door
END IF
' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' !! This is the ONLY time you should ever use the PRINT and END commands !!
' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
PRINT "Error occured - " + STR$(ERR) ' Display error code
END ' End program