961059 FTOI DUP EXECUTE 6503 XSIZE 6073 XSIZE CREATE @SBPI EXECUTE ]
LBL"@SBPI" LBL"SBP"
CF 22
SF 27
CLST
RTN
LBL A
CF 29
157.
PSIZE
STD
RDN
SF 04
CLRG
FC? 22 XBR 10
TIME
FRC
STO 20
CF 00
10.
STO 22
100.
STO 23
20.
STO 25
36.
STO 32
40.
STO 33
46.
STO 34
52.
STO 35
36.155
A"   "
LBL 99
ASTO IND X
ISG X XBR 15
GTO 99
LBL 01
DSE 25 XBR 26
9.
RCL 25
XY? XBR 15
GTO 02
0.
XEQ C
CF 01
BEEP
GTO 14
LBL 02
0.
STO 00
19.
RCL 25
X=Y? XBR 15
XEQ 03
17.
X<=Y? XBR 15
XEQ 03
RCL 25
14.
X<=Y? XBR 15
XEQ 03
XEQ 98
RCL 23
*
INT
X=0? XBR 15
GTO 02
STO 01
XEQ 05
FS?C 02 XBR 15
GTO 02
RCL 01
STO IND 25
RCL 00
X=0? XBR 15
GTO 01
XEQ 98
.5
X>Y? XBR 15
SF 02
1.
FS?C 02 XBR 15
RCL 22
STO 03
XEQ 98
.5
X>Y? XBR 15
SF 02
RCL 03
FS?C 02 XBR 10
CHS
STO 03
LBL 10
RCL 01
RCL 03
+
RCL 22
/
FRC
RCL 01
RCL 22
/
FRC
-
ABS
.9
X=Y? XBR 15
GTO 02
RCL 03
ST+ 01
0.
RCL 01
X<=Y? XBR 15
GTO 02
RCL 23
X<=Y? XBR 15
GTO 02
XEQ 05
FS?C 02 XBR 15
GTO 02
RCL 23
ST/ IND 25
RCL 01
ST+ IND 25
1.
ST- 00
RCL 00
X=0? XBR 15
GTO 01
GTO 10
LBL 98
RCL 20
9821.
*
.211327
+
FRC
STO 20
RTN
LBL 03
1.
ST+ 00
RCL 25
RTN
LBL 05
X<> 25
STO 21
20.
STO 25
LBL 00
DSE 25 XBR 26
9.
RCL 25
X=Y? XBR 15
GTO 08
RCL 25
RCL 21
X=Y? XBR 15
GTO 00
RCL IND 25
X=0? XBR 15
GTO 08
LBL 07
STO 02
INT
X=0? XBR 15
GTO 00
RCL 01
FS? 00 XBR 15
GTO 11
-
ABS
2.
X>Y? XBR 15
GTO 06
RDN
RCL 22
-
ABS
2.
X>Y? XBR 15
GTO 06
LBL 12
RCL 02
FRC
RCL 23
*
GTO 07
LBL 06
SF 02
LBL 08
RCL 21
X<> 25
RTN
LBL 11
XY? XBR 15
GTO 12
1.
STO 09
13.
RCL 25
X<=Y? XBR 15
GTO 13
RCL 22
ST* 09
16.
RCL 25
X<=Y? XBR 15
GTO 13
RCL 22
ST* 09
18.
RCL 25
X<=Y? XBR 15
GTO 13
RCL 22
ST* 09
LBL 13
CLA
RCL 09
ST+ 07
32.
NOP
1000.
XEQ 09
33.
NOP
100.
XEQ 09
34.
NOP
10.
XEQ 09
35.
NOP
1.
LBL 09
RCL 09
XY? XBR 10
RTN
RDN
XEQ 03
RCL T
RCL IND X
ASTO IND X
ISG IND Y XBR 10
RTN
GTO 03
LBL E
FS? 04 XBR 10
TIME
FS? 04 XBR 15
STO 156
FS?C 04 XBR 10
RDN
ISG 26 XBR 15
STO X
STO 06
STO 31
RDN
STO 05
STO 30
RDN
STO 04
STO 29
CF 21
AVIEW
SF 21
TIME
RCL 156
HMS-
1.
X<Y? XBR 15
GTO a
56.
ST+ 29
ST+ 30
ST+ 31
CLA
XEQ 03
ASTO IND 29
ASTO IND 30
ASTO IND 31
0.
STO 03
STO 07
STO 25
SF 00
RCL 04
STO 01
XEQ 05
RCL 05
STO 01
XEQ 05
RCL 06
STO 01
XEQ 05
RCL 07
ST+ 08
LBL e
SF 21
RCL 26
BEEP
A" SALVO "
ARCL X
PRA
CLA
ARCL 04
A"    "
ARCL 05
A"    "
ARCL 06
PRA
A" S/SCORE="
ARCL 07
PRA
ADV
LBL 14
SF 21
A" MC# 0 1 2 3 "
A" 4 5 6 7 8 9#"
PRA
XEQ 17
9.E-3
STO 27
56.065
LBL 16
STO 28
INT
56.
-
CLA
X=0? XBR 16
A" 0"
ARCL X
A" #"
ACA
RCL 28
CLA
LBL 15
ENTER^
A" XX"
ASTO X
RCL IND Y
X=Y? XBR 15
GTO 14
CLA
ARCL X
ACA
RCL Z
ISG X XBR 15
GTO 15
GTO 13
LBL 14
ACA
RCL Z
ISG X XBR 15
GTO 15
LBL 13
A" #"
ACA
PRBUF
.01
+
ISG 27 XBR 15
GTO 16
XEQ 17
FS? 04 XBR 15
GTO 13
ADV
A" T/SCORE="
ARCL 08
PRA
ADV
LBL 04
36.039
A" B"
XEQ 14
40.045
A" C"
XEQ 14
46.051
A" T"
XEQ 14
52.055
A" S"
XEQ 14
GTO 13
LBL 14
A" # "
ACA
CLA
LBL 97
ARCL IND X
A"  "
ISG X XBR 15
GTO 97
ACA
PRBUF
RTN
LBL 13
FS?C 06 XBR 15
GTO 13
FS? 04 XBR 15
GTO 13
CLA
ADV
TIME
RCL 156
HMS-
INT
ARCL X
XEQ 14
XEQ 14
ACA
ADV
TIME
RCL 156
HMS-
1.
X<Y? XBR 15
GTO a
RCL 08
4664.
X<=Y? XBR 15
GTO a
RCL 26
20.
X>Y? XBR 15
GTO 13
LBL a
SF 21
ADV
BEEP
A" SHIPS"
PRA
ADV
19.
XEQ 25
ASTO 36
XEQ 09
ASTO 37
XEQ 09
ASTO 38
XEQ 09
ASTO 39
18.
XEQ 25
ASTO 40
XEQ 09
ASTO 41
XEQ 09
ASTO 42
17.
XEQ 25
ASTO 43
XEQ 09
ASTO 44
XEQ 09
ASTO 45
16.
XEQ 25
ASTO 46
XEQ 09
ASTO 47
15.
XEQ 25
ASTO 48
XEQ 09
ASTO 49
14.
XEQ 25
ASTO 50
XEQ 09
ASTO 51
13.
XEQ 25
ASTO 52
12.
XEQ 25
ASTO 53
11.
XEQ 25
ASTO 54
10.
XEQ 25
ASTO 55
SF 06
GTO 04
LBL 14
A" :"
10.
LASTX
FRC
100.
*
INT
GTO 14
LBL 09
LASTX
FRC
100.
*
INT
GTO 09
LBL B
SF 01
56.
+
X<>Y
XEQ 09
ASTO IND Z
GTO 13
LBL 03
10.
RCL 26
GTO 14
LBL 25
RCL IND X
INT
LBL 09
CLA
10.
X<>Y
LBL 14
X<Y? XBR 16
A" 0"
ARCL X
RTN
LBL 17
A" ######"
ASTO X
ARCL X
ARCL X
ARCL X
PRA
RTN
LBL C
SF 01
56.
+
A" XX"
ASTO IND X
FS? 04 XBR 10
RTN
GTO 13
LBL D
SF 01
56.
+
A"   "
ASTO IND X
LBL 13
FS?C 01 XBR 15
GTO 13
ADV
ADV
ADV
ADV
ADV
LBL 13
A" SALVO "
RCL 26
1.
+
ARCL X
A"  ***"
BEEP
CF 21
AVIEW
END
[ BEEP