Topspeed_JPI/JPI-1/dbd/WINDEMO.DBD

<WinDemo
{WinDemo$CheckScrollLock
}
{WinDemo$SetC
cc 8 #8BE
bwc 6 #8BE
(8BE 1 Black,Blue,Green,Cyan,Red,Magenta,Brown,LightGray,DarkGray,LightBlue,LightGreen,LightCyan,LightRed,LightMagenta,Yellow,White)
}
{WinDemo$Intro
{WinDemo@IntroText
}
change -D6 B1
exit -D5 B1
delay -D4 C2
DescWin -D2 P  #11F4
[11F4 50
Guard 0  C2
Next 2  P  #11F4
CursorChain 6  P  #11F4
WDef A  #A2B
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  #A35
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
]
(A35 1 NoTitle,LeftUpperTitle,CenterUpperTitle,RightUpperTitle,LeftLowerTitle,CenterLowerTitle,RightLowerTitle)
[A2B 19
X1 0  C2
Y1 2  C2
X2 4  C2
Y2 6  C2
Foreground 8  #8BE
Background 9  #8BE
CursorOn A  B1
WrapOn B  B1
Hidden C  B1
FrameOn D  B1
FrameDef E  A9  C2[0..8] L1
FrameFore 17  #8BE
FrameBack 18  #8BE
]
up -CE B1
b -CD B1
num -CC A7  C2[0..6] L1
wn -C5 C2
j -C3 C2
i -C1 C2
Win -BF A78  C2[0..1D] P  #11F4
title -47 A28  C2[0..27] L1
w -1F P  #11F4
WD -1B #A2B
}
{WinDemo$RandPalette
p 6 V A14  C1[0..9] #F4B
[F4B 2
Fore 0  #8BE
Back 1  #8BE
]
i -3 C1
}
{WinDemo$Rmove
W 6 P  #11F4
ny -E C2
nx -C C2
iy -A C2
ix -8 C2
dy1 -6 C2
dx1 -4 C2
}
{WinDemo$RChangeSize
W 6 P  #11F4
ny -6 C2
nx -4 C2
}
{WinDemo$P1
b -24 B1
i -23 C2
S -21 A1F  C2[0..1E] L1
}
{WinDemo$P2
{WinDemo@DrawBar
x A C2
y 8 C2
val 6 C2
on 4 B1
}
WD -31 #A2B
V -18 A12  C2[1..9] C2
j -6 C2
i -4 C2
}
{WinDemo$P3
CH -9 L1
D -8 C2
Y -6 C2
X -4 C2
}
{WinDemo$P4
i -4 C2
}
{WinDemo$P5
}
{WinDemo$P6
}
{WinDemo$P7
}
{WinDemo$P8
}
{WinDemo$P9
}
{WinDemo$Demo
WD -1B #A2B
}
{WinDemo$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]
]
}
WinDemo@pal  A14  C1[0..9] #F4B
WinDemo@Initialize  B1
WinDemo@DS  
WinDemo@W4  P  #11F4
WinDemo@W3  P  #11F4
WinDemo@W2  P  #11F4
WinDemo@W1  P  #11F4
KeyFlags -17 S1 #2AA4
(2AA4 1 RShift,LShift,Ctrl,Alt,Scroll,Num,Cap,Ins)
WinDemo@IsBW  B1
>