Performance
Check
procedure
_
4g4Ll4g4Ap
Servlce
Vot.
1
19260
RETURN
19270
REM
19280
REM
". SRQ
HANDLER
".
19290
T6-3
19300
cosuB
19390
19310
POLL
21,21;A1
19320
PRINT
@A1:"ERR?"
19330INPUT
@A1:S$
19919 !l!NT
"GGAN
TNTERRUPT
occuRRED
oN
rHE
BUs,
rHE
4exp
RETURNS ";s$
19350
pRtNT
"JPRESS
RETURN
<CR>
TO
CONTTNUE';
19360INPUT
T$
19370
RETURN
19380
REM
19390
REM
"'DELAY
GENERATOR
-'
19410
REM
...
T6
GTVEN
tN
SEC
(GLOBAL)
**.
tg
scRATcH
...
19420
tF
T6<0
THEN
19510
19430
tF
RND
(0)>0.5
THEN
19490
19440
REM
...
4051
*r
19450
T6-T6'220
19460
FOR t9-1
TO
T6
19470
NEXT
t9
19480
GO TO
19510
19490
REM
'..4052
19500
CALL
"WA!T..T6
19510
T6-0
19520
RETURN
19530
REM
"'' FAILURE
DECISION
HANDLER
.',-
19540
PRINT
!{SELECT
A
UDK:'
19550
PRTNT
"!_
(1)
RE-START'
19560
PRTNT
"L
(5)
END"
19570
SET KEY
1
9580
B2-0
19590
tF B2<>1
AND
B2<>5
THEN
19590
19600
lF B2-5
THEN
19630
19610
PAGE
1
9620
cO TO
6000
19630
END
o
a
o
t
o
a
o
o
o
?
c
o
o
o
o
a
o
o
o
I
a
O
o
o
o
o
o
o
o
o
o
I
o
o
o
o
o
o
o
o
o
o
,
o
4-46