LBL "SBP" CF 22 SF 27 CLST RTN LBL A CF 29 157 PSIZE STD RDN SF 04 CLRG FC? 22 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 " " LBL 99 ASTO IND X ISG X GTO 99 LBL 01 DSE 25 9 RCL 25 XY? GTO 02 0 XEQ C CF 01 BEEP GTO 14 LBL 02 0 STO 00 19 RCL 25 X=Y? XEQ 03 17 X<=Y? XEQ 03 RCL 25 14 X<=Y? XEQ 03 XEQ 98 RCL 23 * INT X=0? GTO 02 STO 01 XEQ 05 FS?C 02 GTO 02 RCL 01 STO IND 25 RCL 00 X=0? GTO 01 XEQ 98 .5 X>Y? SF 02 1 FS?C 02 RCL 22 STO 03 XEQ 98 .5 X>Y? SF 02 RCL 03 FS?C 02 CHS STO 03 LBL 10 RCL 01 RCL 03 + RCL 22 / FRC RCL 01 RCL 22 / FRC - ABS .9 X=Y? GTO 02 RCL 03 ST+ 01 0 RCL 01 X<=Y? GTO 02 RCL 23 X<=Y? GTO 02 XEQ 05 FS?C 02 GTO 02 RCL 23 ST/ IND 25 RCL 01 ST+ IND 25 1 ST- 00 RCL 00 X=0? 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 9 RCL 25 X=Y? GTO 08 RCL 25 RCL 21 X=Y? GTO 00 RCL IND 25 X=0? GTO 08 LBL 07 STO 02 INT X=0? GTO 00 RCL 01 FS? 00 GTO 11 - ABS 2 X>Y? GTO 06 RDN RCL 22 - ABS 2 X>Y? 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? GTO 12 1 STO 09 13 RCL 25 X<=Y? GTO 13 RCL 22 ST* 09 16 RCL 25 X<=Y? GTO 13 RCL 22 ST* 09 18 RCL 25 X<=Y? GTO 13 RCL 22 ST* 09 LBL 13 CLA RCL 09 ST+ 07 32 ENTER^ 1000 XEQ 09 33 ENTER^ 100 XEQ 09 34 ENTER^ 10 XEQ 09 35 ENTER^ 1 LBL 09 RCL 09 XY? RTN RDN XEQ 03 RCL T RCL IND X ASTO IND X ISG IND Y RTN GTO 03 LBL E FS? 04 TIME FS? 04 STO 156 FS?C 04 RDN ISG 26 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 XY? GTO 13 LBL a SF 21 ADV BEEP "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 ":" 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