Category : BASIC Source Code
Archive   : DS40BPDS.ZIP
Filename : DSGAME.INT

 
Output of file : DSGAME.INT contained in archive : DS40BPDS.ZIP
DECLARE SUB ShellToDos (Shell.String$)
DECLARE FUNCTION CommKeyInkey$ ()
DECLARE FUNCTION FileOpen! (FileName$, Access$, Sharing, C!)
DECLARE FUNCTION CheckTimeLeft! ()
DECLARE SUB BackSpace (WD$)
DECLARE SUB ExtendedCode (A$, KeyBoard.Time.Out)
DECLARE SUB BeepSpeaker ()
DECLARE SUB NL (How.Many.Times!)
DECLARE SUB Send (WD$, Bell!, Enter!, ColorUse!)
DECLARE SUB Incomm (WD$, SendEnter!, LimitField!, ColorUse!)
DECLARE FUNCTION AllTrun$ (WD$)
DECLARE SUB ANSIMusic (Music$, Music)
DECLARE SUB GameInfoUpdate (WD$, Enter, ColorUse, ColorBack)
DECLARE SUB BackSpaceOver ()
DECLARE SUB Center (WD$)
DECLARE SUB ClrScrn ()
DECLARE SUB ColorEasy (WD$, Fore, SendEnter)
DECLARE FUNCTION DayOfWeek ()
DECLARE SUB DoorBusy ()
DECLARE SUB ErrorLevelSet (Error.Level)
DECLARE SUB ExitDoor ()
DECLARE FUNCTION FileExist (File.Name.Check$)
DECLARE SUB GetTime (Hours, Minutes, Seconds, SinceMid#)
DECLARE SUB HighScores (Score, PROGNAME$, OutputFileNumber)
DECLARE SUB InitDoor ()
DECLARE SUB MenuManager (Menu$(), CenterIt, TextClr, How.Many.Bars, Slct, BarFore, BarBack, Barnumber)
DECLARE SUB MoveCursor (X, Y)
DECLARE SUB Parser (Searchfor$, Searchin$, ParArray$(), ERRCODE)
DECLARE FUNCTION RandNum (Low, High)
DECLARE SUB ReadUsers (ERRCODE)
DECLARE SUB ScriptCMD ()
DECLARE SUB Sorter (ParArray$(), HowManyToSort)
DECLARE SUB SysopPage (Answered)
DECLARE SUB TimeConvert (Hours, Minutes, NT$)
DECLARE SUB ViewFile (FileName$, ChkIt, MoreP, ExitP)
DECLARE SUB WaitASec (How.Long.To.Wait)
DECLARE SUB Windows (ULR, ULC, LRR, LRC, Fore, Back, BORDER, SHADOW)
DECLARE SUB WriteUsers (ERRCODE)
DECLARE SUB BlockSend (Array$(), CenterIt, LinesToSend)
DECLARE SUB WindowPrint (WD$, Row, Col, Fore, Back)
DECLARE SUB WindowInput (WD$, MaxLen, Row, Col, Fore, Back)
DECLARE SUB RainbowSend (WD$, Bell, Enter, ColorUse)
DECLARE SUB PromptIncomm (WD$, Default$, DefaultColor, LimitField, ColorUse)
DECLARE SUB EntryIncomm (WD$, LimitField, FieldColor, ColorUse)

COMMON SHARED /DoorSource/ ARG$, SYSDPATH$, BBSName$, SysopNM$, CALLNAME$, Baud&, TIMELEFT, CommPort$, PROGNAME$, RELEASE$, ANSI, TWE$, I1$, I2$, O1$, O2$, Out.Of.Time, Yes, No, User.Color, BackGroundColor
COMMON SHARED /DoorSource/ Exit.Dor.1$, Exit.Dor.2$, UserF$, UserL$, Time.Left, Caps, CommOnly, I3$, Page.Bell, Caller.Alarm, Sysop.Next, Hang.Up, User.Record, Network, Table$, Display.Toggle, Printer.Toggle, BusyFlag, UserFile$, Up.Key$, Down.Key$
COMMON SHARED /DoorSource/ Parity, Filter, BusyFile$, TimeCred, SysFirst$, SysLast$, CommPort, Last.Clr.Used, NTH1$, NTH2$, NTH3$, EchoKey, No.Enter.Send, Exit.Dor.Clr1, Exit.Dor.Clr2, HotKey, Hot.Key, File.Missing$, BBSType$, Last.Time.Warning
COMMON SHARED /DoorSource/ Node, TabSpace, InverseText, Sysop, BlinkText, Not.Around$, PARAM$, WindowNum%, Page.String$, PageSound.1, PageSound.2, PageSound.3, GameInfo, GameInfoCol, Default.Table$
COMMON SHARED /DoorSource/ KeyBoardTimeOut, Protected.Input$, ANSI.Select$, NonAnsi.Select$, CarrierLossError, Ecode, Carrier.Check, VideoSeg%, No.Abort, Lines.Since, AutoMore, ANSIDetect

TYPE DATABLOCK
CityState AS STRING * 24
Password AS STRING * 12
BusinessPhone AS STRING * 13
VoicePhone AS STRING * 13
LastDateOn AS STRING * 20
LastTimeOn AS STRING * 5
ExpertMode AS STRING * 1
ProtocolType AS STRING * 5
LastDirListing AS STRING * 10
SecurityLevel AS INTEGER
TimesOn AS INTEGER
PageLength AS INTEGER
TotalUploads AS INTEGER
TotalDownloads AS INTEGER
DailyDownloadBytes AS DOUBLE
UserComment AS STRING * 30
SysopComment AS STRING * 30
ElapsedTime AS INTEGER
Subscription AS STRING * 20
SubscriptionExpire AS STRING * 20
AreaRegistration AS STRING * 50
AreaExpire AS STRING * 50
AreasToScan AS STRING * 50
TotalDownloadBytes AS DOUBLE
TotalUploadBytes AS DOUBLE
DeleteFlag AS STRING * 1
TimeEnteredDoor AS STRING * 5
AreaFrom AS INTEGER
MemorizedMessage AS LONG ' PCBoard only
TimeCalled AS STRING * 5 ' Wildcat and PCBoard only
DailyDownloadTotal AS INTEGER ' Wildcat only
MaxDownloadLimit AS DOUBLE ' Wildcat only
LastRead AS INTEGER ' Wildcat only
MaxDownloadKLimit AS DOUBLE ' Wildcat, PCBoard, and DOORSYS only
ExpirationDate AS STRING * 10 ' DOORSYS only
LR0 AS STRING * 4 ' Last read pointers for PCBoard only
LR1 AS STRING * 4
LR2 AS STRING * 4
LR3 AS STRING * 4
LR4 AS STRING * 4
LR5 AS STRING * 4
LR6 AS STRING * 4
LR7 AS STRING * 4
LR8 AS STRING * 4
LR9 AS STRING * 4
LR10 AS STRING * 4
LR11 AS STRING * 4
LR12 AS STRING * 4
LR13 AS STRING * 4
LR14 AS STRING * 4
LR15 AS STRING * 4
LR16 AS STRING * 4
LR17 AS STRING * 4
LR18 AS STRING * 4
LR19 AS STRING * 4
LR20 AS STRING * 4
LR21 AS STRING * 4
LR22 AS STRING * 4
LR23 AS STRING * 4
LR24 AS STRING * 4
LR25 AS STRING * 4
LR26 AS STRING * 4
LR27 AS STRING * 4
LR28 AS STRING * 4
LR29 AS STRING * 4
LR30 AS STRING * 4
LR31 AS STRING * 4
LR32 AS STRING * 4
LR33 AS STRING * 4
LR34 AS STRING * 4
LR35 AS STRING * 4
LR36 AS STRING * 4
LR37 AS STRING * 4
LR38 AS STRING * 4
LR39 AS STRING * 4
END TYPE

COMMON SHARED /DoorSource/ UserBlock AS DATABLOCK

CONST MorePrompt = 1
CONST PressKeyPrompt = 2
CONST Default1 = " (Enter=no) "
CONST Default2 = " (Enter=none) "
CONST Default3 = " (Enter=quits) "
CONST Black = 0
CONST Blue = 1
CONST Green = 2
CONST Cyan = 3
CONST Red = 4
CONST Magenta = 5
CONST Brown = 6
CONST White = 7
CONST Gray = 8
CONST HiBlue = 9
CONST HiGreen = 10
CONST HiCyan = 11
CONST HiRed = 12
CONST HiMagenta = 13
CONST Yellow = 14
CONST HiWhite = 15

'
'
' Door Source - Copyrighted 1988,1989, 1990 - Written by Todd Miller
' Version 4.0 - Computer City, USA
'
' ALL OR ANY MODIFCATIONS TO THIS PART OF DOOR SOURCE OR ANY OTHER
' PART OF DOOR SOURCE WILL RESULT IN MAJOR UNCORRECTABLE BUGS!
'
GameInfo = 1
CALL InitDoor

' Door Source 3.3 init completed!



  3 Responses to “Category : BASIC Source Code
Archive   : DS40BPDS.ZIP
Filename : DSGAME.INT

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. 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/