^9       LDA RAD2YH
         SEC 
         SBC OCEAN+10
         STA TEMP
         BPL ROSY
         LDA RAD2Y
         ASL 
         LDA TEMP
         ROL 
         EOR #$FF
         STA TN2
         BEQ ROSY
         LDA #65
         STA YVAL
         JSR RYCAL
         JSR RADEV
RADOC    LDA RAD1Y
         SEC 
         SBC #$24
         STA TEMP
         LDA RAD1YH
         SBC OCEAN+6
         BPL ROSY
         LSR 
         LDA TEMP
         ROR 
         EOR #$FF
         LSR 
         LSR 
         LSR 
         LSR 
         STA TN2
         BEQ ROSY
         LDA #$01
         STA YVAL
         JSR RYCAL
         JSR RADEV
ROSY     LDA RAD2YH
         SEC 
         SBC OCEAN+11
         STA TEMP
         BMI ROEX
         LDA RAD2Y
         ASL 
         LDA TEMP
         ROL 
         STA TN2
         BEQ ROEX
         LDA #$3F
         JSR ROSFIN
ROTSY    LDA RAD1YH
         SEC 
         SBC OCEAN+7
         BMI ROEX
         LSR 
         LDA RAD1Y
         ROR 
         LSR 
         LSR 
         LSR 
         LSR 
         STA TN2
         BEQ ROEX
         LDA #$1F
         JSR ROSFIN
ROEX     RTS 
ROSFIN   SEC 
         SBC TN2
         ASL 
         ORA #$01
         STA YVAL
         JSR RYCAL
         JSR RADEV
         RTS 
RADEV    LDA YLO
         CLC 
         ADC #31
         STA YLO
^2       LDY #$08
         LDA #$EA
         STA (YLO),Y
         DEY 
REVLPO   LDA #$D5
         STA (YLO),Y
         DEY 
         BEQ INOSEX
         LDA #$AA
         STA (YLO),Y
         DEY 
         JMP REVLPO
INOSEX   LDA #$AB
         STA (YLO),Y
         JSR DLIN
         LDY #$08
         LDA #$60
         STA (YLO),Y
         DEY 
         LDA #$00
RODLPO   STA (YLO),Y
         DEY 
         BNE RODLPO
         LDA #$03
         STA (YLO),Y
         JSR DLIN
         DEC TN2
         BNE <2
         RTS 
RADXO    JSR >1
         JSR <9
         RTS 
^1       LDA RAD2X
         SEC 
         SBC #$18
         STA TEMP
         LDA RAD2XH
         SBC OCEAN+8
         BPL >9
         ASL TEMP
         ROL 
         ASL TEMP
         ROL 
         EOR #$FF
         AND #$FE
         STA XVAL
         BEQ >9
         LDA #65
         STA YVAL
         JSR XMUS
         JSR RYCAL
         JSR LFTOCN
         LDA RAD1X
         SEC 
         SBC #$18
         STA TEMP
         LDA RAD1XH
         SBC OCEAN+4
         BPL >9
         LSR 
         ROR TEMP
         LDA TEMP
         EOR #$FF
         LSR 
         LSR 
         LSR 
         AND #$FE
         STA XVAL
         BEQ >9
         LDA #$01
         STA YVAL
         JSR XMUS
         JSR RYCAL
         JSR LFTOCN
^9       JMP >1
LFTOCN   LDA YLO
         CLC 
         ADC #31
         STA YLO
         LDA #31
         STA TN1
         DEC XHI
         JSR FNDLNE
         JSR COMLNE
         LDY #$00
         LDX XHI
         BEQ >6
         BMI >4
         JMP >5
^6       LDA #$AB
         STA (YLO),Y
         INY 
         LDA (YLO),Y
         AND TN2
         ORA TEMP
         STA (YLO),Y
         DEY 
         JSR DLIN
         LDA #$03
         STA (YLO),Y
         INY 
         LDA (YLO),Y
         AND TN2
         STA (YLO),Y
         DEY 
         JSR DLIN
         DEC TN1
         BNE <6
         RTS 
^4       LDA (YLO),Y
         AND TN2
         ORA TEMP
         ORA #$03
         STA (YLO),Y
         JSR DLIN
         LDA (YLO),Y
         AND TN2
         ORA #$03
         STA (YLO),Y
         JSR DLIN
         DEC TN1
         BNE <4
         RTS 
^5       LDY #$00
         LDX XHI
         LDA #$AB
         STA (YLO),Y
         INY 
^8       LDA #$D5
         STA (YLO),Y
         INY 
         DEX 
         BEQ >7
         LDA #$AA
         STA (YLO),Y
         INY 
         DEX 
         BNE <8
^7       LDA (YLO),Y
         AND TN2
         ORA TEMP
         STA (YLO),Y
         JSR DLIN
         LDY #$00
         LDX XHI
         LDA #$03
         STA (YLO),Y
         INY 
         LDA #$00
^7       STA (YLO),Y
         INY 
         DEX 
         BNE <7
         LDA (YLO),Y
         AND TN2
         STA (YLO),Y
         JSR DLIN
         DEC TN1
         BNE <5
         RTS 
^1       LDA RAD2X
         STA TN2
         LDA RAD2XH
         SEC 
         SBC OCEAN+9
         BMI >9
         ASL TN2
         ROL 
         ASL TN2
         ROL 
         ORA #$01
         STA XVAL
         BEQ >9
         LDA #65
         STA YVAL
         JSR XMUS
         JSR RYCAL
         JSR RGTOCN
         LDA RAD1X
         SEC 
         SBC #$18
         STA TEMP
         LDA RAD1XH
         SBC OCEAN+5
         BMI >9
         LSR 
         LDA TEMP
         ROR 
         LSR 
         LSR 
         LSR 
         ORA #$01
         STA XVAL
         BEQ >9
         LDA #$01
         STA YVAL
         JSR XMUS
         JSR RYCAL
         JSR RGTOCN
^9       RTS 
RGTOCN   LDA YLO
         CLC 
         ADC #31
         STA YLO
         LDA #31
         STA TN1
         DEC XHI
         LDA #$06
         SEC 
         SBC XLO
         STA XLO
         JSR FNDLNE
         JSR REGLNE
         LDY #$08
         LDX XHI
         BEQ >6
         BMI >4
         JMP >5
^6       LDA #$EA
         STA (YLO),Y
         DEY 
         LDA (YLO),Y
         AND TN2
         ORA TEMP
         STA (YLO),Y
         INY 
         JSR DLIN
         LDA #$60
         STA (YLO),Y
         DEY 
         LDA TN2
         EOR #$FF
         AND (YLO),Y
         STA (YLO),Y
         INY 
         JSR DLIN
         DEC TN1
         BNE <6
         RTS 
^4       LDA (YLO),Y
         AND TN2
         ORA TEMP
         ORA #$60
         STA (YLO),Y
         JSR DLIN
         LDA TN2
         EOR #$FF
         AND (YLO),Y
         ORA #$60
         STA (YLO),Y
         JSR DLIN
         DEC TN1
         BNE <4
         RTS 
^5       LDY #$08
         LDX XHI
         LDA #$EA
         STA (YLO),Y
         DEY 
^8       LDA #$D5
         STA (YLO),Y
         DEY 
         DEX 
         BEQ >7
         LDA #$AA
         STA (YLO),Y
         DEY 
         DEX 
         BNE <8
^7       LDA (YLO),Y
         AND TN2
         ORA TEMP
         STA (YLO),Y
         JSR DLIN
         LDY #$08
         LDX XHI
         LDA #$60
         STA (YLO),Y
         DEY 
         LDA #$00
^7       STA (YLO),Y
         DEY 
         DEX 
         BNE <7
         LDA TN2
         EOR #$FF
         AND (YLO),Y
         STA (YLO),Y
         JSR DLIN
         DEC TN1
         BNE <5
         RTS 
LOOKT    HEX 0D000F00030100000000090B00070005
PLATAB   HEX 6060000F0A0E020E0FC160080F0A0E020E0F
BLOOD    HEX 0000000000000000
BLOOD2   HEX 0000000000000000
INITAL   HEX 2060000F0A0E020E0FE160080F0A0E020E0F00000000000000000000000000000000
H2SIZE   HEX 0C0C0C060808060A
HIGH     HEX 001010503040
OCEAN    HEX 708E748C708D748B7080747E0E0D120E
FLOX     HEX 00000000000000000000000000000000
         HEX 00000000000000000000000000000000
FLOY     HEX 00000000000000000000000000000000
         HEX 00000000000000000000000000000000
RNGX     HEX 00000000000000000000000000000000
RNGY     HEX 00000000000000000000000000000000
RNGXH    HEX 00000000000000000000000000000000
RNGYH    HEX 00000000000000000000000000000000
RNGPSX   HEX 777F7F867B837F777F8677837B837B86
         HEX 7B7F838673777B7F7F737B7B867F8377
         HEX 687F6883969696686C6C6F7F7B8E9292
         HEX 8A8A7F837B7773737B8386868A73777F
         HEX 777F7F7F7F867F837B77837F7B867F7F
         HEX 6F7F686F968E7F8E7B8A837373838A7B
         HEX 967F737F8683866F7B8E837F6C836877
         HEX 777B7E83867F7F7F7B83777786867B83
         HEX 9683837B7B966868928E966C926F6C68
         HEX 737B7F7B7B7777778A838A77866F837B
         HEX 6C777386736F8A96688A7B92838E738A
         HEX 7F83837F7F7F777B7B8A868686736F77
         HEX 738383868383776F6F7B7F7F7F8A8A86
         HEX 77777F8A8373867B7B837B737F8A8683
         HEX 8A7396836873686F6F6C7F736F777F8A
         HEX 8373737B83868A8A7F868E778B83737F
         HEX 777B7B83867B837F777F7786868A8373
         HEX 867773838E928A7B68968A6C6F7F8A8A
         HEX 7B7F7F7F7F7F7B837F837F7B837B837F
         HEX 777F837F7B7F777F77837B7B7783837B
         HEX 7B777B868A7F867B837B7B867B868686
         HEX 7F6F68838686967377776F7B8E7F8A8E
         HEX 8683867B96966C68836C686C6F8A8E92
         HEX 96776886687796866F8E738A8E6F738A
         HEX 7B7F77777F7786778383867B777B778A
         HEX 8A837F7B777F83867B73737F8A7B7F83
         HEX 777B7B777F83837F7F7B777F83837B77
         HEX 83837F7F837F7F83837B838383867B7B
         HEX 8E77837B838E8E6C6F776C7F778A6C83
         HEX 7B7F7F7F7F7F837F7B7F8377867F7F86
         HEX 7B737F8A86777F776F7F778E837F7B8A
         HEX 737F7B777B7F73837783868386777783
         HEX 8E83687B7B96738A6F8A8E836F6F738E
         HEX 7F777783777B7B7F777F838383777B83
         HEX 926F6F83776F6F77736F7B6F866F8A6F
         HEX 8E7F7B7F86866F6F83837F77777B7F8E
         HEX 777B7783838673737F7F777B73868683
         HEX 737F7F7F7F868A77737B7B778386838A
         HEX 7F7B7F838E8A6F736F83868E737B778A
         HEX 777F737B8A8A8A73737F738A7F837F86
         HEX 8383777B867B7F7377867B7F8386778A
         HEX 83837F7F7F7F837F838383837F7F7F83
         HEX 966C68926C7B9283687B7F6C7F968392
RNGPSY   HEX 7E827A7E7575877A75828287877E7E7A
         HEX 82827A7A7E7A7175717A75877E877E7E
         HEX 987A647E646898948F6468827E946D98
         HEX 827A718B8B877E7A717175877E82758B
         HEX 64716D82756487946898688F94987A8B
         HEX 8F987E6D7E6D648F718271827A8B7A8B
         HEX 647A75828B878F757E6D7E987A947E7A
         HEX 757E7E7E7582878B71717A877A878B8B
         HEX 7A827A7A8282827A757E7E87877E757E
         HEX 7E7A7A827E757A7E827A87718B7E8B87
         HEX 687A7182826D7E98647A7A94828F7E8B
         HEX 717E6D7A75828B876D686887828B8B71
         HEX 827A6D6D7E8282878B8787757171757A
         HEX 877E8B827A82878B75757A7E7A7E7E8B
         HEX 7A7E7E7E646D988B717E758F7E7E8782
         HEX 8B7A7E87757E7A7E8B757E8286827575
         HEX 87757A75758B8B8F758B7A877A827A82
         HEX 878787877E7E75877A827A7E82877E82
         HEX 7E877E826D7A878B717E7582828B878B
         HEX 87878782827E827A7A827A7E7E7E7A87
         HEX 7E8B82718B6D7A716D877A8775757E82
         HEX 75827E7E87757E7E75877A7E7A877E82
         HEX 8B7E877E7E8271878B8782757171717E
         HEX 6475648798879875718B6D6D718B8F8F
         HEX 757A757E878287877E8782877A827187
         HEX 827E877E7E75717E71827A7A7A8B828B
         HEX 8B8271757E758B8F718F7A827A877E87
         HEX 68717A828B6498948798758F6D7E647E
         HEX 877A7A87877A827A7A877E7A8287877E
         HEX 947A7E828B8768717E8F7E9468756D94
         HEX 71717E827E877E7E75756D877A87828B
         HEX 7575757A82828271717A757E82877E87
         HEX 987A6D827A8F8B71646D71826D8B8F8F
         HEX 757A7E8B75718B8F717E7A878287828F
         HEX 6D82756D6D6D94756D876D7A6D716D8B
         HEX 7E7A82827E827A7E717A717A7E8B8B82
         HEX 8B757A7E7A87878B758B7E8B828B828B
         HEX 7E7E7A82757E7E7E82827A827A828282
         HEX 7A7A7E7E7A7A7E7A7A7A7A7E7E7E7E7E
         HEX 7E7E7E827F82877A827A877A827E8782
         HEX 877A757A7A87878F7A757582758B8B8F
         HEX 7E6D7E8F8771758271827A8B758B7A87
         HEX 64649898687A9482687E7A9482947E68
PLPS     HEX 7F7E7F7E7D7C7D7C7F7E7F7E7F7E7F7E7F7E7F7E7F7E7F7E
         HEX 7F7E7F7E7F8F7F8F7F7E7F7E83828382
         HEX 7F7A7F827F8B838F837186757771867177757787
         HEX 77757B7573718A71737A837A778B868B7375868B
         HEX 7F8B838B687596877F7A7F827B7E837E83718A7A
         HEX 7F7E7F7E7D777D897B717B8B777E8382777E867E
         HEX 866D8E757D7C7D7C777E867E7782837E73828371
         HEX 7B7A8382777183717B7E837E777A867E7F757F8B
         HEX 737E8A7E7F6D838F68649498
         LST 
;END <2000?
         NLS 
         DCM "BSAVE A/1800,A$1800,L$7FE"
         ICL "LINK"
