*FX178,0,0
�X=0 � 3 �2
P%=&2800
(
[:OPTX
2.g
<2LDX#0:.LL LDA vdu,X:JSR&FFEE:INX:CPX#12:BCC LL
F<LDX#0:.OO LDA vd1,X:CMP#255:BEQ h:JSR&FFEE:INX:JMP OO:.h
P	.lod 
Z&LDX#lp � 256:LDY#lp � 256:JSR&FFF7
d	.side
nLDA#0:STA YY
xLDA#4:STA pp
�.np
�LDA YY:�#1:STA YY
�]LDA#19:JSR&FFEE:LDA#1:JSR&FFEE:LDA YY:CLC:ADCpp:JSR&FFEE:LDA#0:JSR&FFEE:JSR&FFEE:JSR&FFEE
� LDX#0:.AA INX:CPX#37:BCC AA 
�9LDX#(&100-99):LDY#&FF:LDA#&81:JSR&FFF4:CPX#&FF:BNE np
�(LDX#lp1 � 256:LDY#lp1 � 256:JSR&FFF7
�LDA&1900:CMP#1:BNE side
�LDA#5:STA vdu+1
�4LDX#0:.LLL LDA vdu,X:JSR&FFEE:INX:CPX#12:BCC LLL
�(LDX#lp2 � 256:LDY#lp2 � 256:JMP&FFF7

.lp EQUS"L.FLIP"+�13

.lp1 EQUS"L.SIDE"+�13

.lp2 EQUS"/OPEN"+�13 

".vdu

,YEQUB&16:EQUB&1:EQUB&17:EQUB0:EQUB&A:EQUB&20:EQUB&0:EQUB&0:EQUB&0:EQUB&0:EQUB&0:EQUB&0

6�.vd1 EQUB&13:EQUB&1:EQUB&4:EQUB&0:EQUB&0:EQUB&0:EQUB&13:EQUB&2:EQUB&6:EQUB&0:EQUB&0:EQUB&0:EQUB&11:EQUB&1:EQUB&1F:EQUB&11:EQUB&1E:EQUB&50:EQUB&72:EQUB&65:EQUB&73:EQUB&73:EQUB&20:EQUB&53:EQUB&70

@�EQUB&61:EQUB&63:EQUB&65:EQUB&20:EQUB&57:EQUB&68:EQUB&65:EQUB&6E:EQUB&20:EQUB&52:EQUB&65:EQUB&61:EQUB&64:EQUB&79:EQUB&A:EQUB&D

JEQUB&FF

T.YY BRK:.vv BRK:.pp BRK

^]:�

h� g
�

00000000  0d 00 0a 0e 2a 46 58 31  37 38 2c 30 2c 30 0d 00  |....*FX178,0,0..|
00000010  14 0f e3 58 3d 30 20 b8  20 33 20 88 32 0d 00 1e  |...X=0 . 3 .2...|
00000020  0c 50 25 3d 26 32 38 30  30 0d 00 28 0a 5b 3a 4f  |.P%=&2800..(.[:O|
00000030  50 54 58 0d 00 32 06 2e  67 0d 00 3c 32 4c 44 58  |PTX..2..g..<2LDX|
00000040  23 30 3a 2e 4c 4c 20 4c  44 41 20 76 64 75 2c 58  |#0:.LL LDA vdu,X|
00000050  3a 4a 53 52 26 46 46 45  45 3a 49 4e 58 3a 43 50  |:JSR&FFEE:INX:CP|
00000060  58 23 31 32 3a 42 43 43  20 4c 4c 0d 00 46 3c 4c  |X#12:BCC LL..F<L|
00000070  44 58 23 30 3a 2e 4f 4f  20 4c 44 41 20 76 64 31  |DX#0:.OO LDA vd1|
00000080  2c 58 3a 43 4d 50 23 32  35 35 3a 42 45 51 20 68  |,X:CMP#255:BEQ h|
00000090  3a 4a 53 52 26 46 46 45  45 3a 49 4e 58 3a 4a 4d  |:JSR&FFEE:INX:JM|
000000a0  50 20 4f 4f 3a 2e 68 0d  00 50 09 2e 6c 6f 64 20  |P OO:.h..P..lod |
000000b0  0d 00 5a 26 4c 44 58 23  6c 70 20 83 20 32 35 36  |..Z&LDX#lp . 256|
000000c0  3a 4c 44 59 23 6c 70 20  81 20 32 35 36 3a 4a 53  |:LDY#lp . 256:JS|
000000d0  52 26 46 46 46 37 0d 00  64 09 2e 73 69 64 65 0d  |R&FFF7..d..side.|
000000e0  00 6e 10 4c 44 41 23 30  3a 53 54 41 20 59 59 0d  |.n.LDA#0:STA YY.|
000000f0  00 78 10 4c 44 41 23 34  3a 53 54 41 20 70 70 0d  |.x.LDA#4:STA pp.|
00000100  00 82 07 2e 6e 70 0d 00  8c 15 4c 44 41 20 59 59  |....np....LDA YY|
00000110  3a 82 23 31 3a 53 54 41  20 59 59 0d 00 96 5d 4c  |:.#1:STA YY...]L|
00000120  44 41 23 31 39 3a 4a 53  52 26 46 46 45 45 3a 4c  |DA#19:JSR&FFEE:L|
00000130  44 41 23 31 3a 4a 53 52  26 46 46 45 45 3a 4c 44  |DA#1:JSR&FFEE:LD|
00000140  41 20 59 59 3a 43 4c 43  3a 41 44 43 70 70 3a 4a  |A YY:CLC:ADCpp:J|
00000150  53 52 26 46 46 45 45 3a  4c 44 41 23 30 3a 4a 53  |SR&FFEE:LDA#0:JS|
00000160  52 26 46 46 45 45 3a 4a  53 52 26 46 46 45 45 3a  |R&FFEE:JSR&FFEE:|
00000170  4a 53 52 26 46 46 45 45  0d 00 a0 20 4c 44 58 23  |JSR&FFEE... LDX#|
00000180  30 3a 2e 41 41 20 49 4e  58 3a 43 50 58 23 33 37  |0:.AA INX:CPX#37|
00000190  3a 42 43 43 20 41 41 20  0d 00 c8 39 4c 44 58 23  |:BCC AA ...9LDX#|
000001a0  28 26 31 30 30 2d 39 39  29 3a 4c 44 59 23 26 46  |(&100-99):LDY#&F|
000001b0  46 3a 4c 44 41 23 26 38  31 3a 4a 53 52 26 46 46  |F:LDA#&81:JSR&FF|
000001c0  46 34 3a 43 50 58 23 26  46 46 3a 42 4e 45 20 6e  |F4:CPX#&FF:BNE n|
000001d0  70 0d 00 d2 28 4c 44 58  23 6c 70 31 20 83 20 32  |p...(LDX#lp1 . 2|
000001e0  35 36 3a 4c 44 59 23 6c  70 31 20 81 20 32 35 36  |56:LDY#lp1 . 256|
000001f0  3a 4a 53 52 26 46 46 46  37 0d 00 dc 1b 4c 44 41  |:JSR&FFF7....LDA|
00000200  26 31 39 30 30 3a 43 4d  50 23 31 3a 42 4e 45 20  |&1900:CMP#1:BNE |
00000210  73 69 64 65 0d 00 e6 13  4c 44 41 23 35 3a 53 54  |side....LDA#5:ST|
00000220  41 20 76 64 75 2b 31 0d  00 f0 34 4c 44 58 23 30  |A vdu+1...4LDX#0|
00000230  3a 2e 4c 4c 4c 20 4c 44  41 20 76 64 75 2c 58 3a  |:.LLL LDA vdu,X:|
00000240  4a 53 52 26 46 46 45 45  3a 49 4e 58 3a 43 50 58  |JSR&FFEE:INX:CPX|
00000250  23 31 32 3a 42 43 43 20  4c 4c 4c 0d 00 fa 28 4c  |#12:BCC LLL...(L|
00000260  44 58 23 6c 70 32 20 83  20 32 35 36 3a 4c 44 59  |DX#lp2 . 256:LDY|
00000270  23 6c 70 32 20 81 20 32  35 36 3a 4a 4d 50 26 46  |#lp2 . 256:JMP&F|
00000280  46 46 37 0d 01 04 18 2e  6c 70 20 45 51 55 53 22  |FF7.....lp EQUS"|
00000290  4c 2e 46 4c 49 50 22 2b  bd 31 33 0d 01 0e 19 2e  |L.FLIP"+.13.....|
000002a0  6c 70 31 20 45 51 55 53  22 4c 2e 53 49 44 45 22  |lp1 EQUS"L.SIDE"|
000002b0  2b bd 31 33 0d 01 18 19  2e 6c 70 32 20 45 51 55  |+.13.....lp2 EQU|
000002c0  53 22 2f 4f 50 45 4e 22  2b bd 31 33 20 0d 01 22  |S"/OPEN"+.13 .."|
000002d0  08 2e 76 64 75 0d 01 2c  59 45 51 55 42 26 31 36  |..vdu..,YEQUB&16|
000002e0  3a 45 51 55 42 26 31 3a  45 51 55 42 26 31 37 3a  |:EQUB&1:EQUB&17:|
000002f0  45 51 55 42 30 3a 45 51  55 42 26 41 3a 45 51 55  |EQUB0:EQUB&A:EQU|
00000300  42 26 32 30 3a 45 51 55  42 26 30 3a 45 51 55 42  |B&20:EQUB&0:EQUB|
00000310  26 30 3a 45 51 55 42 26  30 3a 45 51 55 42 26 30  |&0:EQUB&0:EQUB&0|
00000320  3a 45 51 55 42 26 30 3a  45 51 55 42 26 30 0d 01  |:EQUB&0:EQUB&0..|
00000330  36 c5 2e 76 64 31 20 45  51 55 42 26 31 33 3a 45  |6..vd1 EQUB&13:E|
00000340  51 55 42 26 31 3a 45 51  55 42 26 34 3a 45 51 55  |QUB&1:EQUB&4:EQU|
00000350  42 26 30 3a 45 51 55 42  26 30 3a 45 51 55 42 26  |B&0:EQUB&0:EQUB&|
00000360  30 3a 45 51 55 42 26 31  33 3a 45 51 55 42 26 32  |0:EQUB&13:EQUB&2|
00000370  3a 45 51 55 42 26 36 3a  45 51 55 42 26 30 3a 45  |:EQUB&6:EQUB&0:E|
00000380  51 55 42 26 30 3a 45 51  55 42 26 30 3a 45 51 55  |QUB&0:EQUB&0:EQU|
00000390  42 26 31 31 3a 45 51 55  42 26 31 3a 45 51 55 42  |B&11:EQUB&1:EQUB|
000003a0  26 31 46 3a 45 51 55 42  26 31 31 3a 45 51 55 42  |&1F:EQUB&11:EQUB|
000003b0  26 31 45 3a 45 51 55 42  26 35 30 3a 45 51 55 42  |&1E:EQUB&50:EQUB|
000003c0  26 37 32 3a 45 51 55 42  26 36 35 3a 45 51 55 42  |&72:EQUB&65:EQUB|
000003d0  26 37 33 3a 45 51 55 42  26 37 33 3a 45 51 55 42  |&73:EQUB&73:EQUB|
000003e0  26 32 30 3a 45 51 55 42  26 35 33 3a 45 51 55 42  |&20:EQUB&53:EQUB|
000003f0  26 37 30 0d 01 40 81 45  51 55 42 26 36 31 3a 45  |&70..@.EQUB&61:E|
00000400  51 55 42 26 36 33 3a 45  51 55 42 26 36 35 3a 45  |QUB&63:EQUB&65:E|
00000410  51 55 42 26 32 30 3a 45  51 55 42 26 35 37 3a 45  |QUB&20:EQUB&57:E|
00000420  51 55 42 26 36 38 3a 45  51 55 42 26 36 35 3a 45  |QUB&68:EQUB&65:E|
00000430  51 55 42 26 36 45 3a 45  51 55 42 26 32 30 3a 45  |QUB&6E:EQUB&20:E|
00000440  51 55 42 26 35 32 3a 45  51 55 42 26 36 35 3a 45  |QUB&52:EQUB&65:E|
00000450  51 55 42 26 36 31 3a 45  51 55 42 26 36 34 3a 45  |QUB&61:EQUB&64:E|
00000460  51 55 42 26 37 39 3a 45  51 55 42 26 41 3a 45 51  |QUB&79:EQUB&A:EQ|
00000470  55 42 26 44 0d 01 4a 0b  45 51 55 42 26 46 46 0d  |UB&D..J.EQUB&FF.|
00000480  01 54 1b 2e 59 59 20 42  52 4b 3a 2e 76 76 20 42  |.T..YY BRK:.vv B|
00000490  52 4b 3a 2e 70 70 20 42  52 4b 0d 01 5e 07 5d 3a  |RK:.pp BRK..^.]:|
000004a0  ed 0d 01 68 07 d6 20 67  0d ff                    |...h.. g..|
000004aa