Category : BBS Programs+Doors
Archive   : DND27A.ZIP
Filename : EDIT.INC

 
Output of file : EDIT.INC contained in archive : DND27A.ZIP

' tm
' --------------- C O P Y W A R E ---------------
'
' Supported by the PC SIG Library
'
' +------------------------------------------------------------------+
' | Dungeon and Dragons Bulletin Board System Version 2.7a |
' | This program is distributed with the Copyware rights agreement. |
' | Valued contributions can be made to: |
' | Erik J. Oredson |
' | 1215 South 9th Street |
' | Minneapolis, Minnesota, 55404 |
' | |
' | You are allowed to distribute DnDBBS with the Copyware rights |
' | agreements set forth here: |
' | 1. This program is not modified before distribution. |
' | 2. The DnDBBS files are not resold for profit. |
' | 3. The copyware notices are not altered or removed. |
' +------------------------------------------------------------------+
' (C) Copyright 1988, 1989, 1990 Erik J. Oredson, All Rights Reserved.
'

DECLARE SUB IO.O ()
DECLARE SUB IO.I ()

TYPE REGTYPE
AX AS INTEGER
BX AS INTEGER
CX AS INTEGER
DX AS INTEGER
BP AS INTEGER
SI AS INTEGER
DI AS INTEGER
FLAGS AS INTEGER
END TYPE

TYPE RMT
LD AS STRING*316
SD AS STRING*78
LV AS INTEGER
DI AS STRING*22
RS AS INTEGER
MC AS INTEGER
ST AS INTEGER
MT AS INTEGER
HT AS INTEGER
ET AS INTEGER
TT AS INTEGER
IT AS INTEGER
KT AS INTEGER
PT AS INTEGER
FT AS INTEGER
OBJ AS STRING*40
OBJX AS STRING*40
VER AS INTEGER
FLG AS INTEGER
OBJZ AS STRING*20
END TYPE

TYPE URT
INV AS STRING*40
INVX AS STRING*40
NM AS STRING*30
PS AS STRING*20
CN AS STRING*20
CT AS INTEGER
ST AS STRING*14
WP AS STRING*8
RM AS INTEGER
LV AS INTEGER
XP AS DOUBLE
GD AS DOUBLE
CL AS INTEGER
FT AS INTEGER
FR AS INTEGER
VT AS INTEGER
VR AS INTEGER
MG AS INTEGER
MR AS INTEGER
PI AS INTEGER
NW AS INTEGER
IV AS INTEGER
RC AS INTEGER
WE AS INTEGER
BK AS DOUBLE
PL AS INTEGER
MN AS SINGLE
BR AS INTEGER
DT AS STRING*10
LN AS INTEGER
PN AS INTEGER
PR AS INTEGER
ALN AS INTEGER
ALG AS INTEGER
FLG AS INTEGER
END TYPE

TYPE SPT
SN AS STRING*30
CH AS STRING*80
LV AS INTEGER
TP AS INTEGER
TL AS INTEGER
PSI AS INTEGER
PSM AS INTEGER
CT AS INTEGER
DS AS STRING*80
DMY AS STRING*54
END TYPE

TYPE MCT
MC AS STRING*20
END TYPE

TYPE OBT
OJ AS STRING*30
SN AS STRING*30
RL AS INTEGER
IV AS INTEGER
JT AS INTEGER
LK AS INTEGER
LC AS INTEGER
PM AS INTEGER
HI AS INTEGER
CO AS INTEGER
KE AS INTEGER
RR AS INTEGER
VE AS INTEGER
VH AS INTEGER
DE AS STRING*128
DT AS STRING*40
TR AS INTEGER
TE AS INTEGER
END TYPE

TYPE MNT
MN AS STRING*30
MP AS STRING*30
TR AS STRING*10
EX AS INTEGER
NM AS INTEGER
LV AS INTEGER
HP AS INTEGER
PI AS INTEGER
LD AS INTEGER
SP AS INTEGER
BL AS INTEGER
PV AS INTEGER
FO AS INTEGER
MG AS INTEGER
JT AS INTEGER
TL AS INTEGER
FL AS INTEGER
PB AS INTEGER
PP AS INTEGER
PS AS INTEGER
PO AS INTEGER
PD AS INTEGER
RT AS INTEGER
PT AS INTEGER
PM AS INTEGER
TK AS STRING*10
PN AS INTEGER
PR AS INTEGER
END TYPE

TYPE MTT
A AS STRING*80
END TYPE

TYPE TRT
TN AS STRING*30
SN AS STRING*30
WT AS INTEGER
GD AS INTEGER
SP AS INTEGER
PL AS INTEGER
CN AS INTEGER
KE AS INTEGER
SC AS INTEGER
CH AS INTEGER
BX AS INTEGER
BN AS STRING*8
BC AS INTEGER
TT AS INTEGER
PO AS INTEGER
LK AS INTEGER
CO AS INTEGER
LO AS INTEGER
AM AS INTEGER
LD AS INTEGER
IV AS INTEGER
WE AS INTEGER
RG AS INTEGER
RH AS INTEGER
DMY AS STRING*18
END TYPE

TYPE NDT
LM AS INTEGER
UX AS INTEGER
CGA AS INTEGER
RM AS INTEGER
T2 AS SINGLE

CX AS SINGLE
SH AS INTEGER
RE AS INTEGER
RX AS INTEGER
TX AS INTEGER
MX AS INTEGER
NM AS INTEGER
TR AS INTEGER
PT AS INTEGER
FS AS INTEGER
MD AS INTEGER
END TYPE

DEFSTR A-B
DEFINT C-Z
DIM AX(8),AQ(10),A1(7),AK(7),AR(10),WPN$(4),CFU(10,4)
COMMON SHARED CFW(1),AX(),AQ(),A1(),AK(),AR(),WPN$()
COMMON SHARED CP$(),CS$(),CFU(),TMP(1),TMP2(1)
COMMON SHARED P1,FOS,NQ,T2!,UX,LM,CX!,RM,A,WR,CR,AL,FG,NO,YE,AI,NX,CA,SW
COMMON SHARED S6,Z8$,X1,WT,TR,SG,MN,T,P,D7,PSIA,PSID,PRNT,DSK,LOG$,C$
COMMON SHARED ER,OV,NODE,CGA,CGN,CG,L,S5,LP
COMMON SHARED DEBUG,DM,DND$,NODE$,EXIT$,N$,TRX,NM,NMX,RXX,MCX,SPX,UXX
COMMON SHARED PORT,INREGS AS REGTYPE,OUTREGS AS REGTYPE
COMMON SHARED URR AS URT,SPR AS SPT,MCR AS MCT,OBR AS OBT,MNR AS MNT
COMMON SHARED TRR AS TRT,MRR AS MTT,NDE AS NDT,RMR AS RMT

DEF FNOBJ(X)=CVI(MID$(RMR.OBJ,(X-1)*2+1,2))
DEF FNOBJX(X)=CVI(MID$(RMR.OBJX,(X-1)*2+1,2))
DEF FNDIR(X)=CVI(MID$(RMR.DI,(X-1)*2+1,2))
DEF FNST(X)=CVI(MID$(URR.ST,(X-1)*2+1,2))
DEF FNWP(X)=CVI(MID$(URR.WP,(X-1)*2+1,2))
DEF FNINV(X)=CVI(MID$(URR.INV,(X-1)*2+1,2))
DEF FNINVX(X)=CVI(MID$(URR.INVX,(X-1)*2+1,2))
DEF FNDESC$(X)=MID$(RMR.LD,(X-1)*79+1,79)
DEF FNMN(X)=CVI(MID$(MNR.TR,(X-1)*2+1,2))
DEF FNINRM(X$)=INSTR(X$,","+MID$(STR$(RM),2)+",")

DEF FNDAT$
B5=RIGHT$(DATE$,2)+" "
B5=B5+MID$("JanFebMarAprMayJunJulAugSepOctNovDec",VAL(LEFT$(DATE$,2))*3-2,3)
B5=B5+" "+MID$(DATE$,4,2)+","
LP=VAL(LEFT$(TIME$,2))
T$=MID$(" am pm",(1-(LP>12))*3-2,3)
LP=LP+12*(LP>12)-12*(LP=0)
T$=" "+B5+STR$(LP)+MID$(TIME$,3,3)+T$
FNDAT$=T$
END DEF