Category : BASIC Source Code
Archive   : DOORPCH.ZIP
Filename : DOORPCH.END
'* DOORPCH.END Version 3.5 for PCBOARD 14.0 + Doors *
'* By Clint Labarthe, Terry Shockley *
'* Harold Thomson *
'* Copyright (C), 1987, 1988, 1989 All Rights Reserved *
'* It MUST be "$INCLUDEd" at the END of your program *
'******************************************************************************
ERR.ROUTINE:
10000 SELECT CASE ERR
CASE 53
IF ERREXP% = 53 THEN
CALL OUT.PUT
ERREXP% = 1
RESUME NEXT
END IF
LN$ = "File not found"
CASE 57
IF ERREXP% = 57 THEN
IF ERRCNT% < 10 THEN
ERRCNT% = ERRCNT% + 1
ERREXP% = 1
RESUME NEXT
END IF
END IF
LN$ = "Comm Port I/O Error"
CASE 63
IF ERREXP% = 70 THEN
IF ERRCNT% < 50 THEN
ERRCNT% = ERRCNT% + 1
D.TIME% = 3
CALL DELAY.TIME(D.TIME%)
RESUME
END IF
END IF
LN$ = "Bad record number"
CASE 64
LN$ = "Bad file name specified"
CASE 70
IF ERREXP% = 70 THEN
IF ERRCNT% < 50 THEN
D.TIME% = 3
CALL DELAY.TIME(D.TIME%)
ERRCNT% = ERRCNT% + 1
RESUME
END IF
END IF
LN$ = "Permission denied"
CASE ELSE
END SELECT
GOSUB 10025
LN$ = "Please notify SysOp: Pgm failure in Main Module of " + PROGNAME$: GOSUB 10025
LN$ = "Error # " + STR$(ERR) + "in line " + STR$(ERL): GOSUB 10025
ERREXP% = ERR: ERRCNT% = -1
10020 CALL EXITG
10025 IF COMPRTOPN% <> 1 THEN
PRINT LN$
LN$ = ""
ELSE
CALL OUT.PUT
END IF
RETURN
10170 CALL OUT.PUT
RETURN
10185 CALL CLR.SCRN
RETURN
10200 CALL OUT.NCR
RETURN
10230 CALL IN.PUT
RETURN
10235 CALL GET.KEY
RETURN
10400 'Return to PCBoard
10410 CALL EXITG
10450 CALL SCRN.POS
RETURN
10500 CALL MUSICG
RETURN
SET.COLORS:
CALL SET.COLORS
RETURN
BLNKRED:
BLINK% = 1
RED:
FGC% = 1
RETURN
BLNKGREEN:
BLINK% = 1
GREEN:
FGC% = 2
RETURN
BLNKYELLOW:
BLINK% = 1
YELLOW:
HIGH% = 1
FGC% = 3
RETURN
BLNKBLUE:
BLINK% = 1
BLUE:
FGC% = 4
RETURN
BLNKMAGENTA:
BLINK% = 1
MAGENTA:
FGC% = 5
RETURN
BLNKCYAN:
BLINK% = 1
CYAN:
FGC% = 6
RETURN
BLNKWHITE:
BLINK% = 1
WHITE:
FGC% = 7
RETURN
REDWHT:
FGC% = 1
BGC% = 7
HIGH% = 0
RETURN
BLKWHT:
FGC% = 0
BGC% = 7
RETURN
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/