; FIDOdoor script for RATSoft 1.0 by WizOp*Lee (ISIS Node #7) ; ; This script file is designed to load FIDOdoor and present the caller ; with the Message Areas menu. I will be making a scan script to give ; a pseudo QuickScan of FIDOdoor bases. Check with me for it. ; This script is designed with the assumption you are using 1.6h ; of RATSoft. Date of this file is October 5, 1992 ; ; Change the 19 to 1 below the overall level you will require start_over: l#=VAL("&42") IF l#>4 ELSE OUT CENTER "Access to Fido Door is limited. The SysOp will have to" CENTER "validate your account before you will be granted access..." OUT EXIT ENDIF ; Change this to your FIDOdoor path p$="D:\RATSOFT\FIDODOOR\" q$="D:\ST_QWK\" n$="&14" a$="&05" l$="&07" m$="&04" IF l$="Unlimited" l$="255" ENDIF ; Determine translation. This is rough, but it should work... t$="&30" IF INSTR(t$,"VT",0)>FALSE t$="1" ELSE IF INSTR(t$,"ANS",0)>FALSE t$="2" ELSE t$="0" ENDIF IF m$="38400" m$="-LO " ; s#=32766 ELSE m$="" ; Later, the following will contain level checks if it is necessary! ; s#=5 ENDIF IF l#=255 s#=32766 ELSE s#=5 ENDIF ; Here we go..... runit: OUT OUT "&90" OUT OUT "&59 = Acme Bulletin Board System - Doorway to Networks! = &50" OUT OUT " &52[&51A&52]&50 - Read Messages &51Online&50 with Fido Door" OUT " &52[&51B&52]&50 - Read Messages &51Offline&50 with a QWK reader" OUT OUT "Select or &52[&51RETURN&52]&50 to exit: "; z$=UPPER$(KEY$) IF z$="A" OR z$="1" CHDIR p$ OUT "&90" c$=m$+"-NH -GT "+t$+q$+" -NAME "+n$+" -AL "+a$+" -TL "+l$+" -UL "+STR$(s#) OUT CENTER "Loading Fido Door...(&30 mode)" LOG "&05 Entered Fido Door at &02" WIN_OFF SHELL("FIDODOOR.TTP",c$) WIN_ON LOG "&05 Exited Fido Door at &02" OUT OUT CENTER "Returning to &09..." OUT CHDIR CONFIG$(25) ELSE IF z$="B" OR z$="2" CHDIR q$ OUT "Loading QWK Door..." OUT b$="0" c$="&30" IF c$="VT52 Color" b$="1" ELSE IF c$="ANSI Color" b$="2" ENDIF c#=VAL("&04") c$=STR$(c#) IF VAL("&04")=38400 SHELL("D:\ST_QWK\ST_QWK.TTP","-NAME &14 -LOCAL -GT "+b$) ELSE ; OUT "QWK Door temporarily closed." ; OUT SHELL("D:\st_QWK\st_qwk.TTP","-NAME &14 -BAUD "+c$+" -GT "+b$) ENDIF ELSE IF a$="?" OUT "Menu" GOTO start_over ELSE OUT "Exit" EXIT ENDIF GOTO start_over