Topspeed_JPI/JPI-1/dbd/DEMO.DBD

<Demo
{Demo$Plot
x 8  C2[0..4F]
y 6  C2[0..18]
color -8 #F0D
(F0D 1 Black,Blue,Green,Cyan,Red,Magenta,Brown,LightGray,DarkGray,LightBlue,LightGreen,LightCyan,LightRed,LightMagenta,Yellow,White)
sc -7 C1
loc -6 #27A2
[27A2 4
Entry 0  S1 #2743
Exit 1  S1 #2743
Occupied 2  B1
Scenery 3  C1
]
(2743 1 East,South,North,West)
}
{Demo$PlotCar
v 8  C2[0..63]
dir 6 #2743
}
{Demo$NewCar
d -9 #2743
v -8  C2[0..63]
y -6  C2[0..18]
x -4  C2[0..4F]
}
{Demo$ParkCar
v 6  C2[0..63]
y -6  C2[0..18]
x -4  C2[0..4F]
}
{Demo$MoveCar
v 6  C2[0..63]
tried -C S1 #2743
newy -B  C2[0..18]
y -9  C2[0..18]
newx -7  C2[0..4F]
x -5  C2[0..4F]
exit -3 #2743
}
{Demo$InitWorld
{Demo@ok
x 6  C2[0..4F]
y 4  C2[0..18]
}
v -10  C2[0..63]
newentry -E #2743
newdir -D #2743
n -C C2
newy -A  C2[0..18]
y -8  C2[0..18]
newx -6  C2[0..4F]
x -4  C2[0..4F]
}
{Demo$Statistics
change -26 B1
count -25 C2
WD -23 #107A
[107A 19
X1 0  C2
Y1 2  C2
X2 4  C2
Y2 6  C2
Foreground 8  #F0D
Background 9  #F0D
CursorOn A  B1
WrapOn B  B1
Hidden C  B1
FrameOn D  B1
FrameDef E  A9  C2[0..8] L1
FrameFore 17  #F0D
FrameBack 18  #F0D
]
MsgY -A C2
MsgX -8 C2
MsgW -6 P  #1843
[1843 50
Guard 0  C2
Next 2  P  #1843
CursorChain 6  P  #1843
WDef A  #107A
XA 23  C2
YA 25  C2
XB 27  C2
YB 29  C2
OWidth 2B  C2
ODepth 2D  C2
Width 2F  C2
Depth 31  C2
Title 33  P A50  C2[0..4F] L1
TMode 37  #1084
CurrentX 38  C2
CurrentY 3A  C2
IsPalette 3C  B1
PalAttr 3D  AA  C1[0..9] C1
CurPalColor 47   C1[0..9]
Buffer 48  P AFA0  C2[0..7CF] C2
UserRecord 4C  P C2
]
(1084 1 NoTitle,LeftUpperTitle,CenterUpperTitle,RightUpperTitle,LeftLowerTitle,CenterLowerTitle,RightLowerTitle)
}
{Demo$RunSimulation
c -A L1
up -9 B1
SumSpeed -8 C2
i -6 C2
v -4 C2
}
{Demo$Intro
r -8 C2
DescWin -6 P  #1843
}
{Demo$CheckBW
R -16 #536
[536 14
AL 0  C1
AH 1  C1
BL 2  C1
BH 3  C1
CL 4  C1
CH 5  C1
DL 6  C1
DH 7  C1
AX 0  C2
BX 2  C2
CX 4  C2
DX 6  C2
BP 8  C2
SI A  C2
DI C  C2
DS E  C2
ES 10  C2
Flags 12  S2  C2[0..F]
]
}
Demo@MaxCar   C2[0..63]
Demo@AvSpeed  C2
Demo@IsBW  B1
Demo@ToWest  AA0  C2[0..4F] C2
Demo@ToEast  AA0  C2[0..4F] C2
Demo@ToSouth  A32  C2[0..18] C2
Demo@ToNorth  A32  C2[0..18] C2
Demo@Car  A320  C2[0..63] #2841
[2841 8
Pos 0  #2739
Color 4  #F0D
Speed 5  C2
LastD 7  #2743
]
[2739 4
x 0   C2[0..4F]
y 2   C2[0..18]
]
Demo@World  A1F40  C2[0..4F] A64  C2[0..18] #27A2
>