home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 17
/
CD_ASCQ_17_101194.iso
/
vrac
/
175b917s.zip
/
RCHATBAS.ZIP
/
RCSUB401.BAS
< prev
next >
Wrap
BASIC Source File
|
1994-04-06
|
2KB
|
63 lines
'
' RCSUB401 -- Or, RBBS-Chat, release 4.01. Error corrected subprograms
' an internode chat program..
'
' Not the worlds prettiest, or cleanest code.. but I'm under no illusions..
'
' Copyright 1989-1990 By John Morris All Rights Reserved
'
' I'm not a big fan of global variables, but here goes..
'
' $INCLUDE: 'RBBS-VAR.MOD' 'RBBS-VAR.BAS minus the DEF FN...
'
DEFINT A - Z
REM *************************************************************
REM ** The following are needed by only 2 or 3 subprograms, so,**
REM ** they are declared COMMON, and then SHARED only in some **
REM ** of the subprgms.. the fewer that have access the better **
REM *************************************************************
59950 SUB OpenWrk10 (ChatFileName$) STATIC
ON ERROR GOTO RCERR
IF ZShareIt THEN
OPEN ChatFileName$ FOR RANDOM ACCESS READ WRITE SHARED AS #10 LEN = 128
ELSE
OPEN "R", 10, ChatFileName$, 128
END IF
END SUB
59960 SUB Update10 (Record, ReadIt) STATIC ' CHAT0902
ON ERROR GOTO RCERR ' CHAT0902
IF ReadIt THEN ' CHAT0902
GET 10, Record
ELSE
PUT 10, Record
END IF ' CHAT0902
END SUB ' CHAT0902
RCERR: ' RBBS Chat Error Routineski ' CHAT0902
'
' * OpenWrk9 Error Checking
'
IF ERL = 59950 AND ERR = 70 THEN
RESUME NEXT
END IF
'
' * LockIt9 Error Checking
'
IF ERL = 59960 AND ERR = 70 THEN
RESUME NEXT
END IF
'
' * Catch & Report ALL other errors
'
ZOutTxt$ = "RCSUB401 Untrapped Error" + _
STR$(ERR) + _
" in line" + _
STR$(ERL)
CALL QuickTPut1 (ZOutTxt$)
CALL UpdtCalr (ZOutTxt$,2)
RESUME NEXT