�: SOUNDS
�7
�=&3C00
(
� save 50
2diff=&8000-�
<address=&70
Fcomvec=&F2
Pgsinit=&FFC2
Zgsread=&FFC5
dosword=&FFF1
noscli=&FFF7
x� pass = 0 � 2 � 2
�P%=�
�
[OPT pass
�BRK
�BRK
�BRK
�JMP service+diff
�OPT �equb(&82)
�%OPT �equb((copyright+diff) � 256)
�BRK
�OPT �equs("SOUNDS")
�.copyright
�BRK
�+OPT �equs("(C) Gordon Horsington 1987")

BRK

.service


CMP #4

"BEQ unrecognised

,RTS

6.unrecognised

@PHA

JTXA

TPHA

^TYA

hPHA

rLDA address

|PHA

�LDA address+1

�PHA

�LDX #&FE

�TYA

�PHA

�.firstchar

�INX

�PLA

�TAY

�PHA

�LDA (comvec),Y

�
� #&DF

�CMP #�("X")
BNE interpret
INY
.interpret
&INX
0LDA commtable+diff,X
:
BMI found
DLDA (comvec),Y
NINY
XCMP #�(".")
bBEQ founddot
l
� #&DF
vCMP commtable+diff,X
�BEQ interpret
�.another
�INX
�LDA commtable+diff,X
�BPL another
�CMP #&FF
�BNE firstchar
�	.exit
�PLA
�PLA
�STA address+1
�PLA
�STA address
PLA
TAY
PLA
 TAX
*PLA
4RTS
>
.founddot
HINX
RLDA commtable+diff,X
\BPL founddot
f
.found
pCMP #&FF
zBEQ exit
�STA address+1
�INX
�LDA commtable+diff,X
�STA address
�PLA
�SEC
�JSR gsinit
�JMP (address)
�.commtable
�OPT �equs("SIREN")
�!OPT �equb((siren+diff) � 256)
�!OPT �equb((siren+diff) � 256)
�OPT �equs("HEHE")
 OPT �equb((hehe+diff) � 256)
 OPT �equb((hehe+diff) � 256)
OPT �equs("UFO")
$OPT �equb((ufo+diff) � 256)
.OPT �equb((ufo+diff) � 256)
8OPT �equb(&FF)
B	.hehe
L
LDA #8
VLDX #(ehehe+diff) � 256
`LDY #(ehehe+diff) � 256
jJSR osword \ Envelope
t
LDA #7
~LDX #(shehe+diff) � 256
�LDY #(shehe+diff) � 256
�JSR osword \ Sound
�.pullout
�PLA
�STA address+1
�PLA
�STA address
�PLA
�PLA
�PLA
�
LDA #0
�RTS

.siren


LDA #8
LDX #(esiren+diff) � 256
LDY #(esiren+diff) � 256
(JSR osword \ Envelope
2
LDA #7
<LDX #(ssiren+diff) � 256
FLDY #(ssiren+diff) � 256
PJSR osword \ Sound
ZJMP pullout+diff
d.ufo
n
LDA #8
xLDX #(eufo+diff) � 256
�LDY #(eufo+diff) � 256
�JSR osword \ Envelope
�
LDA #7
�LDX #(sufo+diff) � 256
�LDY #(sufo+diff) � 256
�JSR osword \ Sound
�JMP pullout+diff
�
.ehehe
�OPT �equd(&02FF0301)
�OPT �equd(&461E1E32)
�OPT �equd(&FFFFFF7F)
�OPT �equw(&7E7E)
�
.shehe
OPT �equd(&00010011)
OPT �equd(&00320075)
.esiren
"OPT �equd(&07F90102)
,OPT �equd(&000A0A00)
6OPT �equd(&8200007E)
@OPT �equw(&7E7E)
J.ssiren
TOPT �equd(&00020012)
^OPT �equd(&00FF0088)
h	.eufo
rOPT �equd(&FF010103)
|OPT �equd(&01080700)
�OPT �equd(&FF00FF03)
�OPT �equw(&7E7E)
�	.sufo
�OPT �equd(&00030013)
�OPT �equd(&003C0082)
�
.lastbyte
�]
��
�!�'"Save filename = "filename$
�� filename$="" �
�K$save="SAVE "+filename$+" "+�~(�)+" "+�~(lastbyte)+" FFFF8000 FFFF8000"
�X%=save � 256
�Y%=save � 256
*OPT1,2
� oscli
*OPT1,0
&�
0ݤequb(byte)
:?P%=byte
DP%=P%+1
N	=pass
Xݤequw(word)
b?P%=word � 256
lP%?1=word � 256
vP%=P%+2
�	=pass
�ݤequd(double)
�!P%=double
�P%=P%+4
�	=pass
�ݤequs(string$)
�$P%=string$
�P%=P%+�(string$)
�	=pass
�

00000000  0d 00 0a 0d f4 3a 20 53  4f 55 4e 44 53 0d 00 14  |.....: SOUNDS...|
00000010  06 eb 37 0d 00 1e 0b d3  3d 26 33 43 30 30 0d 00  |..7.....=&3C00..|
00000020  28 0d de 20 73 61 76 65  20 35 30 0d 00 32 10 64  |(.. save 50..2.d|
00000030  69 66 66 3d 26 38 30 30  30 2d 93 0d 00 3c 0f 61  |iff=&8000-...<.a|
00000040  64 64 72 65 73 73 3d 26  37 30 0d 00 46 0e 63 6f  |ddress=&70..F.co|
00000050  6d 76 65 63 3d 26 46 32  0d 00 50 10 67 73 69 6e  |mvec=&F2..P.gsin|
00000060  69 74 3d 26 46 46 43 32  0d 00 5a 10 67 73 72 65  |it=&FFC2..Z.gsre|
00000070  61 64 3d 26 46 46 43 35  0d 00 64 10 6f 73 77 6f  |ad=&FFC5..d.oswo|
00000080  72 64 3d 26 46 46 46 31  0d 00 6e 0f 6f 73 63 6c  |rd=&FFF1..n.oscl|
00000090  69 3d 26 46 46 46 37 0d  00 78 16 e3 20 70 61 73  |i=&FFF7..x.. pas|
000000a0  73 20 3d 20 30 20 b8 20  32 20 88 20 32 0d 00 82  |s = 0 . 2 . 2...|
000000b0  08 50 25 3d 93 0d 00 8c  0d 5b 4f 50 54 20 70 61  |.P%=.....[OPT pa|
000000c0  73 73 0d 00 96 07 42 52  4b 0d 00 a0 07 42 52 4b  |ss....BRK....BRK|
000000d0  0d 00 aa 07 42 52 4b 0d  00 b4 14 4a 4d 50 20 73  |....BRK....JMP s|
000000e0  65 72 76 69 63 65 2b 64  69 66 66 0d 00 be 12 4f  |ervice+diff....O|
000000f0  50 54 20 a4 65 71 75 62  28 26 38 32 29 0d 00 c8  |PT .equb(&82)...|
00000100  25 4f 50 54 20 a4 65 71  75 62 28 28 63 6f 70 79  |%OPT .equb((copy|
00000110  72 69 67 68 74 2b 64 69  66 66 29 20 83 20 32 35  |right+diff) . 25|
00000120  36 29 0d 00 d2 07 42 52  4b 0d 00 dc 17 4f 50 54  |6)....BRK....OPT|
00000130  20 a4 65 71 75 73 28 22  53 4f 55 4e 44 53 22 29  | .equs("SOUNDS")|
00000140  0d 00 e6 0e 2e 63 6f 70  79 72 69 67 68 74 0d 00  |.....copyright..|
00000150  f0 07 42 52 4b 0d 00 fa  2b 4f 50 54 20 a4 65 71  |..BRK...+OPT .eq|
00000160  75 73 28 22 28 43 29 20  47 6f 72 64 6f 6e 20 48  |us("(C) Gordon H|
00000170  6f 72 73 69 6e 67 74 6f  6e 20 31 39 38 37 22 29  |orsington 1987")|
00000180  0d 01 04 07 42 52 4b 0d  01 0e 0c 2e 73 65 72 76  |....BRK.....serv|
00000190  69 63 65 0d 01 18 0a 43  4d 50 20 23 34 0d 01 22  |ice....CMP #4.."|
000001a0  14 42 45 51 20 75 6e 72  65 63 6f 67 6e 69 73 65  |.BEQ unrecognise|
000001b0  64 0d 01 2c 07 52 54 53  0d 01 36 11 2e 75 6e 72  |d..,.RTS..6..unr|
000001c0  65 63 6f 67 6e 69 73 65  64 0d 01 40 07 50 48 41  |ecognised..@.PHA|
000001d0  0d 01 4a 07 54 58 41 0d  01 54 07 50 48 41 0d 01  |..J.TXA..T.PHA..|
000001e0  5e 07 54 59 41 0d 01 68  07 50 48 41 0d 01 72 0f  |^.TYA..h.PHA..r.|
000001f0  4c 44 41 20 61 64 64 72  65 73 73 0d 01 7c 07 50  |LDA address..|.P|
00000200  48 41 0d 01 86 11 4c 44  41 20 61 64 64 72 65 73  |HA....LDA addres|
00000210  73 2b 31 0d 01 90 07 50  48 41 0d 01 9a 0c 4c 44  |s+1....PHA....LD|
00000220  58 20 23 26 46 45 0d 01  a4 07 54 59 41 0d 01 ae  |X #&FE....TYA...|
00000230  07 50 48 41 0d 01 b8 0e  2e 66 69 72 73 74 63 68  |.PHA.....firstch|
00000240  61 72 0d 01 c2 07 49 4e  58 0d 01 cc 07 50 4c 41  |ar....INX....PLA|
00000250  0d 01 d6 07 54 41 59 0d  01 e0 07 50 48 41 0d 01  |....TAY....PHA..|
00000260  ea 12 4c 44 41 20 28 63  6f 6d 76 65 63 29 2c 59  |..LDA (comvec),Y|
00000270  0d 01 f4 0a 80 20 23 26  44 46 0d 01 fe 0f 43 4d  |..... #&DF....CM|
00000280  50 20 23 97 28 22 58 22  29 0d 02 08 11 42 4e 45  |P #.("X")....BNE|
00000290  20 69 6e 74 65 72 70 72  65 74 0d 02 12 07 49 4e  | interpret....IN|
000002a0  59 0d 02 1c 0e 2e 69 6e  74 65 72 70 72 65 74 0d  |Y.....interpret.|
000002b0  02 26 07 49 4e 58 0d 02  30 18 4c 44 41 20 63 6f  |.&.INX..0.LDA co|
000002c0  6d 6d 74 61 62 6c 65 2b  64 69 66 66 2c 58 0d 02  |mmtable+diff,X..|
000002d0  3a 0d 42 4d 49 20 66 6f  75 6e 64 0d 02 44 12 4c  |:.BMI found..D.L|
000002e0  44 41 20 28 63 6f 6d 76  65 63 29 2c 59 0d 02 4e  |DA (comvec),Y..N|
000002f0  07 49 4e 59 0d 02 58 0f  43 4d 50 20 23 97 28 22  |.INY..X.CMP #.("|
00000300  2e 22 29 0d 02 62 10 42  45 51 20 66 6f 75 6e 64  |.")..b.BEQ found|
00000310  64 6f 74 0d 02 6c 0a 80  20 23 26 44 46 0d 02 76  |dot..l.. #&DF..v|
00000320  18 43 4d 50 20 63 6f 6d  6d 74 61 62 6c 65 2b 64  |.CMP commtable+d|
00000330  69 66 66 2c 58 0d 02 80  11 42 45 51 20 69 6e 74  |iff,X....BEQ int|
00000340  65 72 70 72 65 74 0d 02  8a 0c 2e 61 6e 6f 74 68  |erpret.....anoth|
00000350  65 72 0d 02 94 07 49 4e  58 0d 02 9e 18 4c 44 41  |er....INX....LDA|
00000360  20 63 6f 6d 6d 74 61 62  6c 65 2b 64 69 66 66 2c  | commtable+diff,|
00000370  58 0d 02 a8 0f 42 50 4c  20 61 6e 6f 74 68 65 72  |X....BPL another|
00000380  0d 02 b2 0c 43 4d 50 20  23 26 46 46 0d 02 bc 11  |....CMP #&FF....|
00000390  42 4e 45 20 66 69 72 73  74 63 68 61 72 0d 02 c6  |BNE firstchar...|
000003a0  09 2e 65 78 69 74 0d 02  d0 07 50 4c 41 0d 02 da  |..exit....PLA...|
000003b0  07 50 4c 41 0d 02 e4 11  53 54 41 20 61 64 64 72  |.PLA....STA addr|
000003c0  65 73 73 2b 31 0d 02 ee  07 50 4c 41 0d 02 f8 0f  |ess+1....PLA....|
000003d0  53 54 41 20 61 64 64 72  65 73 73 0d 03 02 07 50  |STA address....P|
000003e0  4c 41 0d 03 0c 07 54 41  59 0d 03 16 07 50 4c 41  |LA....TAY....PLA|
000003f0  0d 03 20 07 54 41 58 0d  03 2a 07 50 4c 41 0d 03  |.. .TAX..*.PLA..|
00000400  34 07 52 54 53 0d 03 3e  0d 2e 66 6f 75 6e 64 64  |4.RTS..>..foundd|
00000410  6f 74 0d 03 48 07 49 4e  58 0d 03 52 18 4c 44 41  |ot..H.INX..R.LDA|
00000420  20 63 6f 6d 6d 74 61 62  6c 65 2b 64 69 66 66 2c  | commtable+diff,|
00000430  58 0d 03 5c 10 42 50 4c  20 66 6f 75 6e 64 64 6f  |X..\.BPL founddo|
00000440  74 0d 03 66 0a 2e 66 6f  75 6e 64 0d 03 70 0c 43  |t..f..found..p.C|
00000450  4d 50 20 23 26 46 46 0d  03 7a 0c 42 45 51 20 65  |MP #&FF..z.BEQ e|
00000460  78 69 74 0d 03 84 11 53  54 41 20 61 64 64 72 65  |xit....STA addre|
00000470  73 73 2b 31 0d 03 8e 07  49 4e 58 0d 03 98 18 4c  |ss+1....INX....L|
00000480  44 41 20 63 6f 6d 6d 74  61 62 6c 65 2b 64 69 66  |DA commtable+dif|
00000490  66 2c 58 0d 03 a2 0f 53  54 41 20 61 64 64 72 65  |f,X....STA addre|
000004a0  73 73 0d 03 ac 07 50 4c  41 0d 03 b6 07 53 45 43  |ss....PLA....SEC|
000004b0  0d 03 c0 0e 4a 53 52 20  67 73 69 6e 69 74 0d 03  |....JSR gsinit..|
000004c0  ca 11 4a 4d 50 20 28 61  64 64 72 65 73 73 29 0d  |..JMP (address).|
000004d0  03 d4 0e 2e 63 6f 6d 6d  74 61 62 6c 65 0d 03 de  |....commtable...|
000004e0  16 4f 50 54 20 a4 65 71  75 73 28 22 53 49 52 45  |.OPT .equs("SIRE|
000004f0  4e 22 29 0d 03 e8 21 4f  50 54 20 a4 65 71 75 62  |N")...!OPT .equb|
00000500  28 28 73 69 72 65 6e 2b  64 69 66 66 29 20 81 20  |((siren+diff) . |
00000510  32 35 36 29 0d 03 f2 21  4f 50 54 20 a4 65 71 75  |256)...!OPT .equ|
00000520  62 28 28 73 69 72 65 6e  2b 64 69 66 66 29 20 83  |b((siren+diff) .|
00000530  20 32 35 36 29 0d 03 fc  15 4f 50 54 20 a4 65 71  | 256)....OPT .eq|
00000540  75 73 28 22 48 45 48 45  22 29 0d 04 06 20 4f 50  |us("HEHE")... OP|
00000550  54 20 a4 65 71 75 62 28  28 68 65 68 65 2b 64 69  |T .equb((hehe+di|
00000560  66 66 29 20 81 20 32 35  36 29 0d 04 10 20 4f 50  |ff) . 256)... OP|
00000570  54 20 a4 65 71 75 62 28  28 68 65 68 65 2b 64 69  |T .equb((hehe+di|
00000580  66 66 29 20 83 20 32 35  36 29 0d 04 1a 14 4f 50  |ff) . 256)....OP|
00000590  54 20 a4 65 71 75 73 28  22 55 46 4f 22 29 0d 04  |T .equs("UFO")..|
000005a0  24 1f 4f 50 54 20 a4 65  71 75 62 28 28 75 66 6f  |$.OPT .equb((ufo|
000005b0  2b 64 69 66 66 29 20 81  20 32 35 36 29 0d 04 2e  |+diff) . 256)...|
000005c0  1f 4f 50 54 20 a4 65 71  75 62 28 28 75 66 6f 2b  |.OPT .equb((ufo+|
000005d0  64 69 66 66 29 20 83 20  32 35 36 29 0d 04 38 12  |diff) . 256)..8.|
000005e0  4f 50 54 20 a4 65 71 75  62 28 26 46 46 29 0d 04  |OPT .equb(&FF)..|
000005f0  42 09 2e 68 65 68 65 0d  04 4c 0a 4c 44 41 20 23  |B..hehe..L.LDA #|
00000600  38 0d 04 56 1b 4c 44 58  20 23 28 65 68 65 68 65  |8..V.LDX #(ehehe|
00000610  2b 64 69 66 66 29 20 83  20 32 35 36 0d 04 60 1b  |+diff) . 256..`.|
00000620  4c 44 59 20 23 28 65 68  65 68 65 2b 64 69 66 66  |LDY #(ehehe+diff|
00000630  29 20 81 20 32 35 36 0d  04 6a 19 4a 53 52 20 6f  |) . 256..j.JSR o|
00000640  73 77 6f 72 64 20 5c 20  45 6e 76 65 6c 6f 70 65  |sword \ Envelope|
00000650  0d 04 74 0a 4c 44 41 20  23 37 0d 04 7e 1b 4c 44  |..t.LDA #7..~.LD|
00000660  58 20 23 28 73 68 65 68  65 2b 64 69 66 66 29 20  |X #(shehe+diff) |
00000670  83 20 32 35 36 0d 04 88  1b 4c 44 59 20 23 28 73  |. 256....LDY #(s|
00000680  68 65 68 65 2b 64 69 66  66 29 20 81 20 32 35 36  |hehe+diff) . 256|
00000690  0d 04 92 16 4a 53 52 20  6f 73 77 6f 72 64 20 5c  |....JSR osword \|
000006a0  20 53 6f 75 6e 64 0d 04  9c 0c 2e 70 75 6c 6c 6f  | Sound.....pullo|
000006b0  75 74 0d 04 a6 07 50 4c  41 0d 04 b0 11 53 54 41  |ut....PLA....STA|
000006c0  20 61 64 64 72 65 73 73  2b 31 0d 04 ba 07 50 4c  | address+1....PL|
000006d0  41 0d 04 c4 0f 53 54 41  20 61 64 64 72 65 73 73  |A....STA address|
000006e0  0d 04 ce 07 50 4c 41 0d  04 d8 07 50 4c 41 0d 04  |....PLA....PLA..|
000006f0  e2 07 50 4c 41 0d 04 ec  0a 4c 44 41 20 23 30 0d  |..PLA....LDA #0.|
00000700  04 f6 07 52 54 53 0d 05  00 0a 2e 73 69 72 65 6e  |...RTS.....siren|
00000710  0d 05 0a 0a 4c 44 41 20  23 38 0d 05 14 1c 4c 44  |....LDA #8....LD|
00000720  58 20 23 28 65 73 69 72  65 6e 2b 64 69 66 66 29  |X #(esiren+diff)|
00000730  20 83 20 32 35 36 0d 05  1e 1c 4c 44 59 20 23 28  | . 256....LDY #(|
00000740  65 73 69 72 65 6e 2b 64  69 66 66 29 20 81 20 32  |esiren+diff) . 2|
00000750  35 36 0d 05 28 19 4a 53  52 20 6f 73 77 6f 72 64  |56..(.JSR osword|
00000760  20 5c 20 45 6e 76 65 6c  6f 70 65 0d 05 32 0a 4c  | \ Envelope..2.L|
00000770  44 41 20 23 37 0d 05 3c  1c 4c 44 58 20 23 28 73  |DA #7..<.LDX #(s|
00000780  73 69 72 65 6e 2b 64 69  66 66 29 20 83 20 32 35  |siren+diff) . 25|
00000790  36 0d 05 46 1c 4c 44 59  20 23 28 73 73 69 72 65  |6..F.LDY #(ssire|
000007a0  6e 2b 64 69 66 66 29 20  81 20 32 35 36 0d 05 50  |n+diff) . 256..P|
000007b0  16 4a 53 52 20 6f 73 77  6f 72 64 20 5c 20 53 6f  |.JSR osword \ So|
000007c0  75 6e 64 0d 05 5a 14 4a  4d 50 20 70 75 6c 6c 6f  |und..Z.JMP pullo|
000007d0  75 74 2b 64 69 66 66 0d  05 64 08 2e 75 66 6f 0d  |ut+diff..d..ufo.|
000007e0  05 6e 0a 4c 44 41 20 23  38 0d 05 78 1a 4c 44 58  |.n.LDA #8..x.LDX|
000007f0  20 23 28 65 75 66 6f 2b  64 69 66 66 29 20 83 20  | #(eufo+diff) . |
00000800  32 35 36 0d 05 82 1a 4c  44 59 20 23 28 65 75 66  |256....LDY #(euf|
00000810  6f 2b 64 69 66 66 29 20  81 20 32 35 36 0d 05 8c  |o+diff) . 256...|
00000820  19 4a 53 52 20 6f 73 77  6f 72 64 20 5c 20 45 6e  |.JSR osword \ En|
00000830  76 65 6c 6f 70 65 0d 05  96 0a 4c 44 41 20 23 37  |velope....LDA #7|
00000840  0d 05 a0 1a 4c 44 58 20  23 28 73 75 66 6f 2b 64  |....LDX #(sufo+d|
00000850  69 66 66 29 20 83 20 32  35 36 0d 05 aa 1a 4c 44  |iff) . 256....LD|
00000860  59 20 23 28 73 75 66 6f  2b 64 69 66 66 29 20 81  |Y #(sufo+diff) .|
00000870  20 32 35 36 0d 05 b4 16  4a 53 52 20 6f 73 77 6f  | 256....JSR oswo|
00000880  72 64 20 5c 20 53 6f 75  6e 64 0d 05 be 14 4a 4d  |rd \ Sound....JM|
00000890  50 20 70 75 6c 6c 6f 75  74 2b 64 69 66 66 0d 05  |P pullout+diff..|
000008a0  c8 0a 2e 65 68 65 68 65  0d 05 d2 18 4f 50 54 20  |...ehehe....OPT |
000008b0  a4 65 71 75 64 28 26 30  32 46 46 30 33 30 31 29  |.equd(&02FF0301)|
000008c0  0d 05 dc 18 4f 50 54 20  a4 65 71 75 64 28 26 34  |....OPT .equd(&4|
000008d0  36 31 45 31 45 33 32 29  0d 05 e6 18 4f 50 54 20  |61E1E32)....OPT |
000008e0  a4 65 71 75 64 28 26 46  46 46 46 46 46 37 46 29  |.equd(&FFFFFF7F)|
000008f0  0d 05 f0 14 4f 50 54 20  a4 65 71 75 77 28 26 37  |....OPT .equw(&7|
00000900  45 37 45 29 0d 05 fa 0a  2e 73 68 65 68 65 0d 06  |E7E).....shehe..|
00000910  04 18 4f 50 54 20 a4 65  71 75 64 28 26 30 30 30  |..OPT .equd(&000|
00000920  31 30 30 31 31 29 0d 06  0e 18 4f 50 54 20 a4 65  |10011)....OPT .e|
00000930  71 75 64 28 26 30 30 33  32 30 30 37 35 29 0d 06  |qud(&00320075)..|
00000940  18 0b 2e 65 73 69 72 65  6e 0d 06 22 18 4f 50 54  |...esiren..".OPT|
00000950  20 a4 65 71 75 64 28 26  30 37 46 39 30 31 30 32  | .equd(&07F90102|
00000960  29 0d 06 2c 18 4f 50 54  20 a4 65 71 75 64 28 26  |)..,.OPT .equd(&|
00000970  30 30 30 41 30 41 30 30  29 0d 06 36 18 4f 50 54  |000A0A00)..6.OPT|
00000980  20 a4 65 71 75 64 28 26  38 32 30 30 30 30 37 45  | .equd(&8200007E|
00000990  29 0d 06 40 14 4f 50 54  20 a4 65 71 75 77 28 26  |)..@.OPT .equw(&|
000009a0  37 45 37 45 29 0d 06 4a  0b 2e 73 73 69 72 65 6e  |7E7E)..J..ssiren|
000009b0  0d 06 54 18 4f 50 54 20  a4 65 71 75 64 28 26 30  |..T.OPT .equd(&0|
000009c0  30 30 32 30 30 31 32 29  0d 06 5e 18 4f 50 54 20  |0020012)..^.OPT |
000009d0  a4 65 71 75 64 28 26 30  30 46 46 30 30 38 38 29  |.equd(&00FF0088)|
000009e0  0d 06 68 09 2e 65 75 66  6f 0d 06 72 18 4f 50 54  |..h..eufo..r.OPT|
000009f0  20 a4 65 71 75 64 28 26  46 46 30 31 30 31 30 33  | .equd(&FF010103|
00000a00  29 0d 06 7c 18 4f 50 54  20 a4 65 71 75 64 28 26  |)..|.OPT .equd(&|
00000a10  30 31 30 38 30 37 30 30  29 0d 06 86 18 4f 50 54  |01080700)....OPT|
00000a20  20 a4 65 71 75 64 28 26  46 46 30 30 46 46 30 33  | .equd(&FF00FF03|
00000a30  29 0d 06 90 14 4f 50 54  20 a4 65 71 75 77 28 26  |)....OPT .equw(&|
00000a40  37 45 37 45 29 0d 06 9a  09 2e 73 75 66 6f 0d 06  |7E7E).....sufo..|
00000a50  a4 18 4f 50 54 20 a4 65  71 75 64 28 26 30 30 30  |..OPT .equd(&000|
00000a60  33 30 30 31 33 29 0d 06  ae 18 4f 50 54 20 a4 65  |30013)....OPT .e|
00000a70  71 75 64 28 26 30 30 33  43 30 30 38 32 29 0d 06  |qud(&003C0082)..|
00000a80  b8 0d 2e 6c 61 73 74 62  79 74 65 0d 06 c2 05 5d  |...lastbyte....]|
00000a90  0d 06 cc 05 ed 0d 06 d6  21 e8 27 22 53 61 76 65  |........!.'"Save|
00000aa0  20 66 69 6c 65 6e 61 6d  65 20 3d 20 22 66 69 6c  | filename = "fil|
00000ab0  65 6e 61 6d 65 24 0d 06  e0 14 e7 20 66 69 6c 65  |ename$..... file|
00000ac0  6e 61 6d 65 24 3d 22 22  20 e0 0d 06 ea 4b 24 73  |name$="" ....K$s|
00000ad0  61 76 65 3d 22 53 41 56  45 20 22 2b 66 69 6c 65  |ave="SAVE "+file|
00000ae0  6e 61 6d 65 24 2b 22 20  22 2b c3 7e 28 93 29 2b  |name$+" "+.~(.)+|
00000af0  22 20 22 2b c3 7e 28 6c  61 73 74 62 79 74 65 29  |" "+.~(lastbyte)|
00000b00  2b 22 20 46 46 46 46 38  30 30 30 20 46 46 46 46  |+" FFFF8000 FFFF|
00000b10  38 30 30 30 22 0d 06 f4  11 58 25 3d 73 61 76 65  |8000"....X%=save|
00000b20  20 83 20 32 35 36 0d 06  fe 11 59 25 3d 73 61 76  | . 256....Y%=sav|
00000b30  65 20 81 20 32 35 36 0d  07 08 0b 2a 4f 50 54 31  |e . 256....*OPT1|
00000b40  2c 32 0d 07 12 0b d6 20  6f 73 63 6c 69 0d 07 1c  |,2..... oscli...|
00000b50  0b 2a 4f 50 54 31 2c 30  0d 07 26 05 e0 0d 07 30  |.*OPT1,0..&....0|
00000b60  10 dd a4 65 71 75 62 28  62 79 74 65 29 0d 07 3a  |...equb(byte)..:|
00000b70  0c 3f 50 25 3d 62 79 74  65 0d 07 44 0b 50 25 3d  |.?P%=byte..D.P%=|
00000b80  50 25 2b 31 0d 07 4e 09  3d 70 61 73 73 0d 07 58  |P%+1..N.=pass..X|
00000b90  10 dd a4 65 71 75 77 28  77 6f 72 64 29 0d 07 62  |...equw(word)..b|
00000ba0  12 3f 50 25 3d 77 6f 72  64 20 83 20 32 35 36 0d  |.?P%=word . 256.|
00000bb0  07 6c 13 50 25 3f 31 3d  77 6f 72 64 20 81 20 32  |.l.P%?1=word . 2|
00000bc0  35 36 0d 07 76 0b 50 25  3d 50 25 2b 32 0d 07 80  |56..v.P%=P%+2...|
00000bd0  09 3d 70 61 73 73 0d 07  8a 12 dd a4 65 71 75 64  |.=pass......equd|
00000be0  28 64 6f 75 62 6c 65 29  0d 07 94 0e 21 50 25 3d  |(double)....!P%=|
00000bf0  64 6f 75 62 6c 65 0d 07  9e 0b 50 25 3d 50 25 2b  |double....P%=P%+|
00000c00  34 0d 07 a8 09 3d 70 61  73 73 0d 07 b2 13 dd a4  |4....=pass......|
00000c10  65 71 75 73 28 73 74 72  69 6e 67 24 29 0d 07 bc  |equs(string$)...|
00000c20  0f 24 50 25 3d 73 74 72  69 6e 67 24 0d 07 c6 14  |.$P%=string$....|
00000c30  50 25 3d 50 25 2b a9 28  73 74 72 69 6e 67 24 29  |P%=P%+.(string$)|
00000c40  0d 07 d0 09 3d 70 61 73  73 0d ff                 |....=pass..|
00000c4b