Category : BBS Programs+Doors
Archive   : RBBS-LIT.ZIP
Filename : VIEWINT.LIT

*[VIEWINT.LIT]****************************************************************
* Description: Removes support for all internal file views. *
* RBBS-PC Level: CPC17.3 û AM *
* Module Affected: RBBSSUB2.BAS *
* Selection Option: VIEWINT = OFF *
* Additional files: None *
******************************************************************************
20148 WasX$ = ZDiskForDos$ + "V" + Ext$ + ".BAT"
CALL FindIt (WasX$)
IF NOT ZOK THEN _
GOTO 20150
ZGSRAra$(3) = MID$(RIGHT$(ZComPort$,1)+"0",1-ZLocalUser, 1)
CALL ReadDir (2,1)
IF EOF(2) THEN _
ZWasZ$ = ZOutTxt$ : _
ZGSRAra$(1) = ZFileName$ : _
ZGSRAra$(2) = ZArcWork$ _
ELSE ZWasZ$ = WasX$ + " " + ZFileName$ + _
" " + ZArcWork$ + " " + ZGSRAra$(3)
CALL ShellExit (ZWasZ$)
CALL BufFile (ZArcWork$,WasX)
RETURN
20150 CALL QuickTPut1 ("View for "+Ext$+" not implemented") : _
RETURN
END SUB