home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 19
/
CD_ASCQ_19_010295.iso
/
dos
/
fr
/
infarct
/
infar.bas
(
.txt
)
< prev
next >
Wrap
QuickBASIC Tokenized Source
|
1994-10-22
|
12KB
|
173 lines
FalseL
BufferLengthM
Directory
Enter
TabKey
UpArrow
DownArrowB
LeftArrow.
RightArrow
BackSpace%
EndKey
PgDnn
DriveError
ByteBuffer0
Powers
Prefix
SuffixW
OutCode
MaxCodes
Powers25
CodemaskE
Buffer
topom
coul.
ecran1
ecran2@
ECRAN3
ecran4
ecran5
ecran
temps=
btr1v
btr3!
compt
ligne|
ElNum
ErrorStatus
TotalXR
TotalY
BitsPixel|
BackGround
Green
Xstart=
Ystart
Xlength
Ylength
Yendb
CodeSize9
ClearCode
EOFCode
FirstFree>
FreeCode
InitCodeSize
Maxcode
Bitmask
BlockLengthH
BitsIn]
BytesLeft
OutCount
CodeL
Address
TempChar
CurCodeR
OldCodej
FinChar
InCodeU
CREEN
Restitution"
num3H
couleur
palette14
num2+
num49
crepal
rouge
Fondre
Objet
fondu
ancebleuU
ancvert
ancroug
Delai
delai.2
yloc[
bloc2b
bloc1
clign
GetButtonM
temp1
temp2s
DIFFICILE6
clignENDs
repart
nec2}
copy*
palette3
suite7
follow]
nec1DIMh
nec2DIM
nec3DIM
bypass
pontag
circul
palett
vg "m
s_tit0.gif
* cour =pompe titre
pompeh.des
pompeb.des
* coeur = muscle creux
coeurnoh.des
coeurnob.des
OREILLETTE DROITE"
OREILLETTE GAUCHE"
VEINE CAVE SUPERIEURE"
VEINE CAVE INFERIEURE"
4 VEINES PULMONAIRES
VENTRICULE GAUCHE"
VENTRICULE DROIT
ARTERE PULMONAIRE"
ARTERE AORTE
OREILLETTE DROITE"
OREILLETTE GAUCHE"
VEINE CAVE SUPERIEURE"
VEINE CAVE INFERIEURE"
4 VEINES PULMONAIRES
VENTRICULE GAUCHE"
VENTRICULE DROIT
ARTERE AORTE
ARTERE PULMONAIRE"
* circulation
num1.desd
num2.desd
num3.desd
Restitution de l'
cran graphique l' ecran5 existe
image4.desd
image5.desd
* coronaires
nvcoeh.des
nvcoeb.des
PALETTE 5, 4: PALETTE 4, 12
topos
* infarct
coeur33h.des
coeur33b.des
necrose
vg moyens.gif"
ordon2h.des"
ordon2b.des"
PALETTE 2, 36
balonh.des
balonb.des
PALETTE 2, 361
catheh.des
catheb.des
PALETTE USING couleur%(0)
laserh.des
laserb.des
catheh.des
catheb.des
pont01h.des"
pont01b.des"
bypass.desd
pontag.desd
circul.desd
3pontagh.des
3pontagb.des
vg "m
s_consei.gif
IF compt > 1 THEN PUT (88, 134), ecran4, PSET