HPHP48-R,*p]	
%%%%%%%%%%%%%%%%%%%%%%
%      F-ZERO        %
%%%%%%%%%%%%%%%%%%%%%%

!OFF
GOSBVL 0679B
GOSBVL 01115
LC 02000
GOSBVL 05B7D
AD0EX
R1=A
D0= 80100
DAT0=A A
LC 01100
A=A+C A
A=A+15 A
A=A+5 A
ABIT=0 0
D0= 80400
DAT0=A A
D0= 00120
DAT0=A A
A=0 W
GOSUBL INI
GOSUBL MEYER
GOSUBL INI2

*MAIN
CLRST
GOSUBL PR
$FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFF1EFFFFFFFFFFFFFFF19CFFF70555555550D500510114010450515555550AAAAAAAAFC137AEF4C17C9B27AA88AAA2000000000FC3FF0EFFCFFCF78F70000000000000000EC3FF1EFFCFFCFFCFF0000000000000000EC3FF1EF7CFFCFFCFD0000000000000000FC3FE1087C30D3EC3500000000FFFFFFF7FF3FEDBFFC30D3AC3DEFFFFF70FFFFFFF7FFBEFDBE7CF7DF9C39EFFFFF70FFFFFFF7FF9EFD3F3504904D3AEF7EFF70FF9FFFF7FFB0F08E95E7B0A93A8F7EFF70FF9FFFF7BFB83E4CC920B04D298FFFFF40FFFFFCF7B4A88F2408204E8429EFFFFF40FFFFFCF79429EF2CF46E4294E9EFFFFF70FFFFFFF79429EF20848942D408EFFFFF70FFFFFFF79429EFA38408425D0CEFFFFF70FFFFFFF7FC3FEF6CFCFFC37BF3FFFFFF70FF7EFF7E0300EF00000000070CFFCFFF70FF7EFF7EF000000000000008FFFFCFFF709FFFFFFF3000000000000000EFFFFFFF709FFFFFFF00000000000000008FFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF970FFCFFFFFFFFFFFFFFFFFFFFFFFFFFFF970FFCFF100008AAAA288292000000FFFFF70FFFFF000008BAAA188AB20000008FFCF70FFFF300000000000000000000000EFCF70FFFF0000000000000000000000008FFF70FFF10000008911BB3B30000000000CFF70FF700000008AAA0198000000000000FF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF7000000000008A88AA22000000000000000000000000008A339A9300000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000AAAAAAAA8CB08A00A0A8008A88A08AAA2055555555755375EF4D17D9357215555550FFFFFFFFD42D8E20B4E8464B85BDDFFF70FFFFFFFFB4210D208408408408EFFFFF70FFFFFFFFA4293DEF55EF4E94EBEFFFFF70FFFFFFF794292108452042A427EFFFFF70FFFFFFF797292DB4842042E42FEFFFFF70FFFFFFF710B9352244F74EF42FEFFFFF70FFFFFFF710918D312CF78F7D2EEFFFFE70FFFFBFF710BFC0811CF78FB92EEFFFFF70FEFFFFF7F7AF30CB08308F7D3FEFFFFF70FFFFFFF7FCBF00E70830CFFC3FE7FFFF70FFFFFFB7FC3F00EFFC7EC3FCFFEFFFFF70FFBFFFF7FC3F00EFFCFFC3FCFFEFFFFF70FFFFFFF7FC3F00FFFCFFC37DFFEFF7FF70FFFFBFF7FC3F006CFCFFC37BF3FFFFFF70FFFFFFFF00000000000000000CFFFFF770FFFFFFFF3FFFFFFFFFFFFFF7EFBFFFFF70FBFFF7FFCFFFFFFFFFFFFFFF9FFFFF7F70FFFFFFF3FFFFFFFFFFFFFFFF7EFFFFFF70FFFFFF70008B19A1899B200000FFFFFF70FFFDFF100088AAB28A29200000CFFFFF70FFFFF700008A9BA289111000000FFDFF70FFFFFEFFFFFFFFFFFFFFFFFFFFF8FFFF70FFFF3FFFFFFFFFFFFFFFFFFFFFF7EFFF70FFFFCFFFFFFFFFFFFFFFFFFFFFFF9FF7707FF1FFFFFFFFFFFFFFFFFFFFFFFF7CFF70FF7EFFFFFFFFFFFFFFFFFFFFFFFFF3FF70FF9FFFFFFFFFFFFFFFFFFFFFFFFFFFCF70F300000000899B01983000000000000E70F00000000088AA01980000000000000870300000000088A2393B300000000000006000000000000000000000000000000000000000000000000000000000000000000000000000000089339993000000000000000000000000008A88AAA00000000000000000000000000089B8A9A30000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFF3EFFFFFFFFFFFFFFFFFFFF70FFFFFFFFFFDD9888F94454CFFFFFFFFF70FFFFFFFFFF2ABAABF55757BFFFFFFFFF70FFFFFFFFFFABB88DCD5C64CFFFFFFFFF70FFFFFFFFFF2ABBBDCD5F67BFFFFFFFFF70FFFFFFFFFFDDBBBDDD5C64BFFFFFFFFF70FFFFFFFFFF3EFFFFEFFFFFFFFFFFFFFF70FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF70
*PR
C=RSTK
D1=C
D0= 80100
A=DAT0 A
D0=A
LC 87F
*B8
A=DAT1 B
DAT0=A B
D0=D0+ 2
D1=D1+ 2
C=C-1 X
GONC B82
GOTO B83
*B82
GOLONG B8
*B83
C=0 W
D0= 80100
A=DAT0 A
R0=A

*LK
GOSUBL GREY
P= 0
LA 001
LC 100
OUT=C
GOSBVL 01160
C=C&A X
?C=0 X
GOYES NQ
?ST=1 1
GOYES NQ
GOLONG QUIT
*NQ
?ST=1 0
GOYES NOS
C=0 A
GOSBVL 00E0B
?C0 A
GOYES NMU2
*NOS
GOLONG MNU
*NMU2
ST=1 0
D0= 80100
A=DAT0 A
LC 00770
A=A+C A
D0=A
GOSUB MN
$0000040000400000000000000000000000ECDD85000041C9709FFFF3C6CAE8FFFF30205455000043EBF8D42427AAAA4C10F770684455000047689CD42727AAAA4CC3006029CC4500104F6BFED03E07E6AA4CC300402444550830476B1CD42F35AAAA4CC300602444550C7043EB18D42485AAAA4C10F7702CD5DCFFFF71C9109FFFF3AE6C48FFFF30
*MN
C=RSTK
D1=C
LC 10
*B9
A=DAT1 W
DAT0=A W
D0=D0+ 16
D1=D1+ 16
C=C-1 B
GONC B9
C=0 B
D0= 80100
A=DAT0 A
LC 00770
A=A+C A
LC 00880
A=A+C A
D0=A
GOSUB MN5
$0000040000400000000000000000000000ECDD85000041C9709FFFF3C6CAE8FFFF30205455000043EBF8D42427AAAA4C10F770684455000047689CD42727AAAA4CC3006029CC4500104F6BFED03E07E6AA4CC300402444550830476B1CD42F35AAAA4CC300602444550C7043EB18D42485AAAA4C10F7702CD5DCFFFF71C9109FFFF3AE6C48FFFF30
*MN5
C=RSTK
D1=C
LC 10
*B10
A=DAT1 W
DAT0=A W
D0=D0+ 16
D1=D1+ 16
C=C-1 B
GONC B10
C=0 B
*MNU
?ST=0 0
GOYES NME
GOSUBL BAR
*NME
P= 0
LA 002
LC 100
OUT=C
GOSBVL 01160
C=C&A X
?C=0 X
GOYES NAB
ST=1 1
*NAB
P= 0
LA 010
LC 010
OUT=C
GOSBVL 01160
C=C&A X
?C=0 X
GOYES NEB
ST=0 1
GOSUBL INI2
*NEB
?ST=0 1
GOYES NABOU
GOSUBL ABOUT
*NABOU
P= 0
LA 010
LC 100
OUT=C
GOSBVL 01160
C=C&A X
?C=0 X
GOYES NPLAY
GOLONG PLAY
*NPLAY
P= 0
LA 010
LC 002
OUT=C
GOSBVL 01160
C=C&A X
?C=0 X
GOYES NRES

*NRES


GOLONG LK

*GREY
D0= 00128
*T1
A=0 W
A=DAT0 6
?A0 W
GOYES T1
C=R0
GOSUBL AFI
D0= 00128
*T2
A=0 W
A=DAT0 6
?A0 W
GOYES T2
C=R0
LA 00880
C=C+A A
GOSUBL AFI
D0= 00128
*T3
A=0 W
A=DAT0 6
?A0 W
GOYES T3
C=R0
LA 00880
C=C+A A
GOSUBL AFI
RTN

*AFI
D1=C
D0= 80400
A=DAT0 A
D0=A
?ST=1 1
GOYES UP
LC 87
GOTO NUP
*UP
LC 76
*NUP
*AF
A=DAT1 W
DAT0=A W
D0=D0+ 16
D1=D1+ 16
C=C-1 B
GONC AF
C=0 B
RTN



*QUIT
D0= 8068D
A=DAT0 A
D0= 00120
DAT0=A A
D0= 0010C
A=DAT0 A
ABIT=1 3
DAT0=A A
LC 37
D0= 00128
DAT0=C B
GOSBVL 067D2
P= 0
SETHEX
A=DAT0 A
D0=D0+ 5
PC=(A)

*MEYER
LC 02000
*W
C=C-1 A
GONC W
C=0 A
A=R1
LC 00176
A=A+C A
R2=A
D0= 80400
A=DAT0 A
R0=A
LC 25
B=C B
GOSUBL COPY
*LCD2
GOSUBL P1
GOSUBL SP1
LC 800
*QF
C=C-1 X
GONC QF
C=0 X
B=B-1 B
GONC LCD2
B=0 B
LC 00578
D=C A
LC 00020
GOSBVL 017A6
LC 00278
D=C A
LC 00040
GOSBVL 017A6
LC 10000
*WW
C=C-1 A
GONC WW
C=0 A
RTN

*COPY
GOSUB MEY
$0000000000E00000000000110000000008620000000008E26C8F6CC7EBA2FEDF6CE7F711FFD0EE6036E0BBD3C7E1F70039D08360F30038D08360F30038DF83E73700389F83C73600
*MEY
C=RSTK
D1=C
C=R1
D0=C
D0=D0+ 11
LC 0B
*B3
A=DAT1 12
DAT0=A 12
D1=D1+ 12
D0=D0+ 16
D0=D0+ 16
D0=D0+ 2
C=C-1 B
GONC B3
C=0 W
RTN

*P1
A=R0
D0=A
A=R2
D1=A
LC 43F
*B4
A=DAT1 B
DAT0=A B
D0=D0+ 2
D1=D1+ 2
C=C-1 X
GONC B4
C=0 X
RTN

*SP1
A=B B
AD1EX
A=R1
D0=A
LC 3D
*B5
D0=D0+ 16
D0=D0+ 16
D0=D0+ 2
C=C-1 B
GONC B5
LC 3E
D=C B
C=0 W
*B6
A=DAT0 W
B=A W
A=0 W
DAT0=A W
D0=D0+ 16
C=DAT0 W
DAT0=A W
A=B W
D0=D0- 16

D0=D0+ 16
D0=D0+ 16
D0=D0+ 2
DAT0=A W
D0=D0+ 16
DAT0=C W
D0=D0- 16

D0=D0- 16
D0=D0- 4
D0=D0- 16
D0=D0- 16
D0=D0- 16
D=D-1 B
GONC B6
AD1EX
B=A B
RTN

*INI
CLRST
LC 3F
D0= 00128
DAT0=C B
D0= 0010C
A=DAT0 A
ABIT=0 3
DAT0=A A
D0= 80400
A=DAT0 A
D0=A
LC 43F
A=0 B
*B1
DAT0=A B
D0=D0+ 2
C=C-1 X
GONC B1
C=0 X
A=R1
D0=A
LC 880
A=0 B
*B2
DAT0=A B
D0=D0+ 2
C=C-1 X
GONC B2
C=0 X
D0= 80110
DAT0=C X
RTN
*INI2
D0= 80400
A=DAT0 A
LC 00790
A=A+C A
R2=A
D0= 80400
A=DAT0 A
LC 00770
A=A+C A
R3=A
GOSUBL FNT
$0000000000000000C0C0C0C0C000C000B1B1900000000000A0F1F1A0F1F1A00040E170E0C1F04000303180402091810060D0D06071B06100606060000000000081C0606060C081003060C0C0C06030000051E0F1E051000000C0C0F3F3C0C0000000000060604020000000F1F10000000000000000606000000181C060301000C021B17131B0600080C0E0C0C0C0E100E09181C06030F100E09181C08191E00080C0E0D0F1C0C000F130F0818191E000C02130F03131E000F181804060606000E03131E03131E000E09191E18191E0000060600060600000006060006060402081C0603060C081000000F100F10000003060C081C0603000E09181C040004000E01151D1D010E100E03131F131313100F03131F03131F000E03130303031E00070B0313131B07000F13030703030F100F130307030303000E0313030B131E100313131F131313100F06060606060F000818181819191E00031B0703070B03100303030303030F10011B1713131313100313171B131313100E03131313131E000F03131F030303000E031313171B06100F03131F070B03100E03130E08191E000F060606060606000313131313131E000313131E0E04040003131313171B11100B1B1E040E0B1B10091B1E0C060606000F181C1E07030F100
*FNT
C=RSTK
R4=C
GOSUBL TXT
$02020202020202E2E2345402E472543545020514350255E454024454641494C4C414E434540244540265F4452554028405C2E2E20202E2E2E472543535149554A50244F4E4340205143502445402255474C4542502C47294D4147454C2E2E20202A4540234F4E44525F4C45402445435F425D414943502C454350284F42594A5F4E44514C4543502544502C454350265542545943414C45435E2E2C2A45402055455850264F45525E4942502140265F44525540294D4147494E4144594F4E40245F455450234540215555402A4540265545585C2E2E2C2A45402055455850265F4553502E4F49554250235F455350255E402D494C4C494F4E4024454027425F424C2E2E202F455024494C4144554250255E4540294D414745402A45535155572140264149425540264F4E44425540265F44525540254342514E4E2E2E2C2020254E43554D424C454C202E4F455350214C4C4F4E43502548505C4F425542502C4543502D495354554255435021555940274943554E4450214550205C45535020525F464F4E44402445402C4140225F4D40244540265F44525540284054383C2E2E202020202020202021455024454C414024455023514455525E4E2E202020202C47214353554D424C45455250234F4E44594E455021202020202020202140525543502D4142594F48405C202D4547414E4F49444C202A4540265F45535020525543554E4455402D4140245F455455402E4F4556554C4C454020525F44455344594F4E4A30202020264D2A55425F40212120202A4725435055425540215555402345402A454550265F455350205C4149425140254450234F4D424C454251402C45435028454552554350205542544555435021555540235F4E44502C454350234F455253502445402642514E434149435C202447284943545F4942554C202445402058494C4F4C2024454027454F4C202447214E474C4149435C20244725435051474E4F4C4C202447214C4C454D414E444025445024454022554C4947494F4E40205F45525023454558502445502052594655454021212E2E2020265F455350205F4556554A502D45402A4F494E4442554020514250254D2D41494C4021402C47214442554353554023555946514E44554A302D454955425450434C45524D294E4455425E45445E264250202020294C402543545026554E45502C454024554D405350205F4552502D4F4940244540265F455350244942554023514C45545025445021455020525F434841494E402A4545502F312
*TXT
C=RSTK
D0= 80105
DAT0=C A
C=0 W
D0= 8010A
DAT0=C A
RTN

*BAR

RTN

*TEXT
A=0 B
DAT0=A B
GOSUBL TXT2
$02020202020202E2E2345402E472543545020514350255E454024454641494C4C414E434540244540265F4452554028405C2E2E20202E2E2E472543535149554A50244F4E4340205143502445402255474C4542502C47294D4147454C2E2E20202A4540234F4E44525F4C45402445435F425D414943502C454350284F42594A5F4E44514C4543502544502C454350265542545943414C45435E2E2C2A45402055455850264F45525E4942502140265F44525540294D4147494E4144594F4E40245F455450234540215555402A4540265545585C2E2E2C2A45402055455850265F4553502E4F49554250235F455350255E402D494C4C494F4E4024454027425F424C2E2E202F455024494C4144554250255E4540294D414745402A45535155572140264149425540264F4E44425540265F44525540254342514E4E2E2E2C2020254E43554D424C454C202E4F455350214C4C4F4E43502548505C4F425542502C4543502D495354554255435021555940274943554E4450214550205C45535020525F464F4E44402445402C4140225F4D40244540265F44525540284054383C2E2E202020202020202021455024454C414024455023514455525E4E2E202020202C47214353554D424C45455250234F4E44594E455021202020202020202140525543502D4142594F48405C202D4547414E4F49444C202A4540265F45535020525543554E4455402D4140245F455455402E4F4556554C4C454020525F44455344594F4E4A30202020264D2A55425F40212120202A4725435055425540215555402345402A454550265F455350205C4149425140254450234F4D424C454251402C45435028454552554350205542544555435021555540235F4E44502C454350234F455253502445402642514E434149435C202447284943545F4942554C202445402058494C4F4C2024454027454F4C202447214E474C4149435C20244725435051474E4F4C4C202447214C4C454D414E444025445024454022554C4947494F4E40205F45525023454558502445502052594655454021212E2E2020265F455350205F4556554A502D45402A4F494E4442554020514250254D2D41494C4021402C47214442554353554023555946514E44554A302D454955425450434C45524D294E4455425E45445E264250202020294C402543545026554E45502C454024554D405350205F4552502D4F4940244540265F455350244942554023514C45545025445021455020525F434841494E402A4545502F312
*TXT2
C=RSTK
D0= 80105
DAT0=C A
C=0 W
RTN

*ABOUT
D0= 80105
A=DAT0 A
R1=A
*TST
GOSUBL SCROLL
D0= 8010A
A=DAT0 B
LC 06
?A=C B
GOYES LETTER
A=A+1 B
DAT0=A B
RTN
*LETTER
A=0 B
DAT0=A B

LC 5B
B=C B
A=R4
D1=A
A=R1
D0=A
LC 20
*TST2
A=DAT0 B
?A=C B
GOYES AFF
C=C+1 B
?A=B B
GOYES NXT

D1=D1+ 16
GOLONG TST2

*AFF
GOLONG AFFL

*NXT
GOSUBL FNT2
$0000000000000000C0C0C0C0C000C000B1B1900000000000A0F1F1A0F1F1A00040E170E0C1F04000303180402091810060D0D06071B06100606060000000000081C0606060C081003060C0C0C06030000051E0F1E051000000C0C0F3F3C0C0000000000060604020000000F1F10000000000000000606000000181C060301000C021B17131B0600080C0E0C0C0C0E100E09181C06030F100E09181C08191E00080C0E0D0F1C0C000F130F0818191E000C02130F03131E000F181804060606000E03131E03131E000E09191E18191E0000060600060600000006060006060402081C0603060C081000000F100F10000003060C081C0603000E09181C040004000E01151D1D010E100E03131F131313100F03131F03131F000E03130303031E00070B0313131B07000F13030703030F100F130307030303000E0313030B131E100313131F131313100F06060606060F000818181819191E00031B0703070B03100303030303030F10011B1713131313100313171B131313100E03131313131E000F03131F030303000E031313171B06100F03131F070B03100E03130E08191E000F060606060606000313131313131E000313131E0E04040003131313171B11100B1B1E040E0B1B10091B1E0C060606000F181C1E07030F100
*FNT2
C=RSTK
R4=C
D1=C
A=R1
A=A+2 A
R1=A
GOLONG TST

*AFFL
D0= 80110
A=DAT0 X
LC 393
?AC X
GOYES K2000
GOSUBL TEXT
D0= 80105
A=DAT0 A
R1=A
D0= 80110
A=0 X
DAT0=A X
GOTO K3000
*K2000
A=A+1 X
DAT0=A X
*K3000
LC 07
A=R2
D0=A
*BB
A=DAT1 B
DAT0=A B
D1=D1+ 2
D0=D0+ 16
D0=D0+ 16
D0=D0+ 2
C=C-1 B
GONC BB
C=0 B
GOSUBL FNT3
$0000000000000000C0C0C0C0C000C000B1B1900000000000A0F1F1A0F1F1A00040E170E0C1F04000303180402091810060D0D06071B06100606060000000000081C0606060C081003060C0C0C06030000051E0F1E051000000C0C0F3F3C0C0000000000060604020000000F1F10000000000000000606000000181C060301000C021B17131B0600080C0E0C0C0C0E100E09181C06030F100E09181C08191E00080C0E0D0F1C0C000F130F0818191E000C02130F03131E000F181804060606000E03131E03131E000E09191E18191E0000060600060600000006060006060402081C0603060C081000000F100F10000003060C081C0603000E09181C040004000E01151D1D010E100E03131F131313100F03131F03131F000E03130303031E00070B0313131B07000F13030703030F100F130307030303000E0313030B131E100313131F131313100F06060606060F000818181819191E00031B0703070B03100303030303030F10011B1713131313100313171B131313100E03131313131E000F03131F030303000E031313171B06100F03131F070B03100E03130E08191E000F060606060606000313131313131E000313131E0E04040003131313171B11100B1B1E040E0B1B10091B1E0C060606000F181C1E07030F100
*FNT3
C=RSTK
R4=C
D1=C
A=R1
A=A+2 A
R1=A
D0= 80105
DAT0=A A
D0= 80100
A=DAT0 A
R1=A
RTN

*SCROLL
A=R3
D0=A
LC 07
*BOU2
A=DAT0 W
ASRB
DAT0=A 15
D0=D0+ 15
A=DAT0 W
ASRB
DAT0=A 15
D0=D0+ 15
A=0 A
A=DAT0 4
ASRB
DAT0=A 4
D0=D0+ 4
C=C-1 B
GONC BOU2
C=0 B
RTN
*CLEAR
D0= 80400
A=DAT0 A
D0=A
LC 43F
A=0 B
*BCE
DAT0=A B
D0=D0+ 2
C=C-1 X
GONC BCE
C=0 X
RTN

*PLAY
GOSUBL CLEAR
GOSUBL P1
$00000000000000E300FFFFFFFFFFFFFF700000000000000002000FFFFFFFFFFFFF70000000000000000C000EFFFFFFFFFFFF700000000000000000F009FFFFFFFFFFFF7000000000000000000180EFFFFFFFFFFF7000000000000000000E408FFFFFFFFFFF70000000000000000000704EFFFFFFFFFF70000000000000000000832CFFFFFFFFFF700000000000000000000410FFFFFFFFFF700000000000000000000800CFFFFFFFFF70F300000000000000000030BFFFFFFFFF70FF100000000000000000480FFFFFFFFF70FFF30000000000000000840EFFFFFFFF70FFFE3000000000000000030CFFFFFFFF70FFFFF300000000000000020CFFFFFFFF70FFFF9C100000000000000408FFFFFFFF70FFFF90600000000000000800FFFFFFFF70FFFF9080000000000000080CFFFFFFFF70FFFF90030000000000000013EFFFFFFF70FFFF900500000000000000E0EFFFFFFF70FFFF90880000000000000020EFFFFFFF70FFFFF1401000000000000040CFFFFFFF70FFFFF7201000000000000040CFFFFFFF70FFFFFF1020000000000000408FFFFFFF70FFFFFF3040000000000000808FFFFFFF70FFFFFF7040000000000000808FFFFFFF70FFFFFFF0E00000000000008CFFFFFFFF70FFFFFFF890000000000000038FFFFFFF70FFFFFFF780000000000000010FFFFFFF70FFFFFFF101000000000000010FFFFFFF70FFFFFFF301000000000000010FFFFFFF70FFFFFFF301000000000000010FFFFFFF70FFFFFFF301000000000000030FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFFFF10000000000000EFFFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFFFF10000000000000EFFFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFFFF10000000000000EFFFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFF301000000000000020FFFFFFF70FFFFFFFFF10000000000000EFFFFFFFF70
*P1
C=RSTK
LA 00660
C=C+A A
R0=C
D0= 80400
C=DAT0 A
C=C+A A
R1=C

*LCD
C=0 W
A=C W
A=R1
D0=A
A=R0
D1=A

C=0 W
LC F
B=C A
C=0 W
D=C A
*B1.2
A=DAT1 W
*BB1
A=A+A W
D=D-1 A
GONC BB1
D=0 W
D=C A
DAT0=A W
D0=D0+ 16
D1=D1+ 16
A=DAT1 W
*BB2
ASRB
D=D-1 A
GONC BB2
D=0 W
D=C A
DAT0=A W
C=C+2 A
D1=D1- 16
D1=D1- 16
D1=D1- 16
D1=D1- 2
D0=D0- 16
D0=D0- 16
D0=D0- 16
D0=D0- 2
B=B-1 A
GONC B1.2
B=0 W

C=0 W
A=C W
A=R1
D0=A
A=R0
D1=A

C=0 W
LC F
B=C A
C=0 W
D=C A
*B2.2
A=DAT1 W
*BB0
ASRB
D=D-1 A
GONC BB0
D=0 W
D=C A
DAT0=A W
D0=D0+ 16
D1=D1+ 16
A=DAT1 W
*BB3
A=A+A W
D=D-1 A
GONC BB3
D=0 W
D=C A
DAT0=A W
C=C+2 A

D1=D1+ 16
D1=D1+ 2
D0=D0+ 16
D0=D0+ 2
B=B-1 A
GONC B2.2
B=0 W
P= 0
LA 002
LC 080
OUT=C
GOSBVL 01160
C=C&A X
?C=0 X
GOYES NH
C=R0
C=C-16 A
C=C-16 A
C=C-2 A
R0=C
*NH
P= 0
LA 002
LC 040
OUT=C
GOSBVL 01160
C=C&A X
?C=0 X
GOYES NB
C=R0
C=C+16 A
C=C+16 A
C=C+2 A
R0=C
*NB
P= 0
LA 004
LC 040
OUT=C
GOSBVL 01160
C=C&A X
?C=0 X
GOYES NG
C=R0
C=C-1 A
R0=C
*NG
P= 0
LA 001
LC 040
OUT=C
GOSBVL 01160
C=C&A X
?C=0 X
GOYES ND
C=R0
C=C+1 A
R0=C
*ND

GOSUBL TQ
GOLONG LCD

*TQ
P= 0
LA 001
LC 010
OUT=C
GOSBVL 01160
C=C&A X
?C=0 X
GOYES NMA
GOLONG MAIN
*NMA
RTN


@