�129:b%=&700:e%=&70
��4,26:�:�ae
�23;8202;0;0;0;
(�ke$(6,9),z$(6,9)
2B�23,224,24,24,24,24,126,60,24,0,23,225,0,24,60,126,24,24,24,24
<	�ue:�
F��te:�:�ge
P"�2:�qe("PRINT KEY STRIP",-1,4)
Z-�1:�qe("Do you wish to print? Y/N",-1,25)
dee$=�oe:�ee$="N"�
n0be%=�-4:�2:I%=0:�I%=I%+1:�1,0:�I%=200��-4<10
x�3:�=0:���>10
�B�-4<>be%�3:�7:�qe("Printer is not ready!",-1,29):�ca(250):�:�
��0:�28,0,1,1,0
��b=1�6�2:�a=0�9
�+c=b+1:z$(b,a)=ke$(b,a):z$(c,a)=ke$(c,a)
�)z$(b,a)=" "+z$(b,a)+�13-�z$(b,a)," ")
�)z$(c,a)=" "+z$(c,a)+�13-�z$(c,a)," ")
��:�
�ce$=�1+�27+�1+�84
�ud$=�1+�27+�1+�83+�1+�48
�ye$=�1+�15
�xe$=�1+�27+�1+�77
�ie$=�1+�27+�1+�51+�1+�17
��2:�ud$xe$ye$ie$:�we

"�"|"�1ce$"CTRL"ud$�3"|";:�l(1)

�"|"�8"|";:�l(2):�we

#�"|"�1ce$"SHIFT"ud$�2"|";:�l(3)

"�"|"�8"|";:�l(4):�we

,�"|"�8"|";:�l(5)

6�"|"�8"|";:�l(6):�we

@�3,26:�

J-��we:�"+"+�8,"-")+"+"+�10,�14,"-")+"+"):�

T+��l(J%)�I%:�I%=0�9:�z$(J%,I%)"|";:�:�:�

^$��qe(fa$,X,Y)�4:�X=-1X=19-�fa$/2

h�X,Y)fa$:�

r!��ne(fa$,X,Y)�X=-1X=19-�fa$/2

|�31,X,Y:�op(fa$)

��23,255,0,255,0;0;0;

��X,Y+2)ĩfa$,�255):�

� ��he(fa$,X,Y)�X,Y:�op(fa$):�

�%��op($b%)�A%,I%,X%,Y%:A%=10:X%=e%

���I%=0��$b%-1:?e%=I%?b%:�&FFF1:�23,255,e%?1,e%?1,e%?2,e%?2,e%?3,e%?3,e%?4,e%?4,255,8,10,23,255,e%?5,e%?5,e%?6,e%?6,e%?7,e%?7,e%?8,e%?8,255,11:�:�

���ue

��zd

��

�	re$=�

��re$="1"�ma(0):�zd

��re$="2"�te:�zd

��re$="3"�pe:�zd

��re$="4"�je:�zd
�re$="5"�ua:�zd
�re$="6"�ze:�zd
�0
&�
0��zd
:�ha("FX11"):�:�ge:�2
Dve=7:��TzG
N
��fe$,fa$
X2�fe$<>"END"�qe("("+fe$+") "+fa$,10,ve):ve=ve+3
b�fe$="END":�
l��ma(sd)�:�ge
v�19,1,2;0;19,2,6;0;
�k�0,1:�283,730:�996,730:�996,385:�283,385:�283,730:�996,615:�283,615:�283,500:�996,500:�545,730:�545,385
��0,1:�5
�,�he("CTRL",320,707):�he("SHIFT",320,590)
��de(sd)
���4,28,0,31,39,22:�
�&�3:�qe("Select box: (1) CTRL",9,0)
��qe("(2) SHIFT",21,2)
��qe("(3) BLANK",21,4)
��qe("(4) EXIT",21,6)
�9�qe("Use "+�224+�225+" to move through entries",-1,8)
��
��ha("FX4,1")
�	ee$=�
�ee$<>138��ee$<>139�T~C
�ee$=138�sd>0sd=sd-1:�TtC
�ee$=138�sd=0sd=9:�TtC
 �ee$=139�sd<9sd=sd+1:�TtC
*�ee$=139�sd=9sd=0
4�de(sd):�DHC
>�ee$<1��ee$>4�ga�xd=�ee$
H��ee$>=1��ee$<=4
R�xd=4�dJC
\�4,28,0,31,39,22:�
fA�xd=1b$="CTRL":ka=1��xd=2b$="SHIFT":ka=3��xd=3b$="BLANK":ka=5
p�qe(b$,-1,1)
z�10,3)"Line 1: "
��sa(18,3,12)
�ke$(ka,sd)=ee$
��10,5)"Line 2: "
��sa(18,5,12)
�ke$(ka+1,sd)=ee$
��wd(xd)
��oa(xd)
��xd=4:�4,26:�ha("FX4"):�
���wd(da)
�
�0,128
�7�24,556;(707-((da-1)*115))-80;990;717-((da-1)*115);
��:�24,0;0;1279;1023;:�
���oa(da):cb=((da-1)*2)+1
�576,707-((da-1)*115)
�5:�0,2:�;ke$(cb,sd)
�576,707-((da-1)*115)-42
$�;ke$(cb+1,sd):�
.��sa(x,y,la)
8�ha("FX11,50")
B�31,x,y:ee$=""
L�23,254,0,0,0,0,0,0,255,255
V�:�x,y)ee$�254
`G=�
j �ee$=la�(G<>13�G<>127)�D`D
t�G=13�x,y)ee$" "
~,�G=127ee$=�ee$,�ee$-1):�x,y)ee$�254;" "
�'�G>31�G<127ee$=ee$+�G:�x,y)ee$�254
��G=13:�ha("FX11,0"):�
���je
�	�:�ge
�!�2:�qe("SAVE KEY STRIP",-1,4)
��3:�qe("Filename: ",9,15)
��sa(19,15,10):ab$=ee$
�/�1:�qe("Save current key strip? Y/N",-1,19)
�ee$=�oe:�ee$="N"�
�na=�ab$
��2:�qe("Saving",-1,23)
�#�a=0�9:�b=1�6:�#na,ke$(b,a):�:�
�#na

.�2:�qe("Saving Complete",-1,23):�ca(250):�
��pe
	�:�ge
(!�2:�qe("LOAD KEY STRIP",-1,4)
2�3:�qe("Filename: ",10,15)
<�sa(20,15,10):ab$=ee$
F,�1:�qe("Load this key strip? Y/N",-1,19)
Pee$=�oe:�ee$="N"�
Zna=�ab$
d�2:�qe("Loading",-1,23)
n#�a=0�9:�b=1�6:�#na,ke$(b,a):�:�
x�#na
�/�2:�qe("Loading Complete",-1,23):�ca(250):�
���ge
� �19,1,1;0;19,2,3;0;19,3,7;0;
��3:�0,3
�.�ne("Function Key Strip Generator",-1,0):�
���ca(se)kb=�+se:���>se:�
���ga:�1,-15,4,2:�1,0,0,0:�
�,��ha($b%)�X%,Y%:X%=b%:Y%=b%�256:�&FFF7:�
���ua
�	�:�ge
��2:�qe("EXIT PROGRAM",-1,4)
�%�3:�qe("Are you sure? Y/N",-1,16)
�/ee$=�oe:�ee$="N"��:�ne("Goodbye!",-1,13):�
ݤoe
�
ee$=�:ib$=�(�ee$�&DF)
"�ib$<>"Y"�ib$<>"N"�ga
,�ib$="Y"�ib$="N"
6=ib$
@��de(sd)
J	�4,26
T�3:�ne("f"+�sd,-1,4)
^�28,0,31,39,22
h�a=1�3:�wd(a):�
r�0,2:�5
|�a=1�3:�oa(a):�
��
���ae
�!�4,26:�2:�ne("ERROR",-1,0):�3
��:�:�" at line ";�'
�.�1:�qe("Press SPACE BAR to contine",-1,28)
�!�qe("or ESCAPE to end",-1,30)
��ha("FX229,1")
��:ee$=�:�ee$=�32�ee$=�27
��ha("FX229"):�ha("FX12"):�3
��ee$=�27��ue
��
���ze
�	�:�ge
�2:�qe("CLEAR MEMORY",-1,4)
%�3:�qe("Are you sure? Y/N",-1,15)
ee$=�oe:�ee$="N"�
&!�b=1�6:�a=0�9:ke$(b,a)="":�:�
0�
:s� 1,Enter key details,2,Print key strip,3,Load key strip,4,Save key strip,5,Exit program,6,Clear memory,END,END
�

00000000  0d 00 0a 17 eb 31 32 39  3a 62 25 3d 26 37 30 30  |.....129:b%=&700|
00000010  3a 65 25 3d 26 37 30 0d  00 14 11 ee 85 ef 34 2c  |:e%=&70.......4,|
00000020  32 36 3a db 3a f2 61 65  0d 00 1e 13 ef 32 33 3b  |26:.:.ae.....23;|
00000030  38 32 30 32 3b 30 3b 30  3b 30 3b 0d 00 28 15 de  |8202;0;0;0;..(..|
00000040  6b 65 24 28 36 2c 39 29  2c 7a 24 28 36 2c 39 29  |ke$(6,9),z$(6,9)|
00000050  0d 00 32 42 ef 32 33 2c  32 32 34 2c 32 34 2c 32  |..2B.23,224,24,2|
00000060  34 2c 32 34 2c 32 34 2c  31 32 36 2c 36 30 2c 32  |4,24,24,126,60,2|
00000070  34 2c 30 2c 32 33 2c 32  32 35 2c 30 2c 32 34 2c  |4,0,23,225,0,24,|
00000080  36 30 2c 31 32 36 2c 32  34 2c 32 34 2c 32 34 2c  |60,126,24,24,24,|
00000090  32 34 0d 00 3c 09 f2 75  65 3a e0 0d 00 46 0e dd  |24..<..ue:...F..|
000000a0  f2 74 65 3a db 3a f2 67  65 0d 00 50 22 fb 32 3a  |.te:.:.ge..P".2:|
000000b0  f2 71 65 28 22 50 52 49  4e 54 20 4b 45 59 20 53  |.qe("PRINT KEY S|
000000c0  54 52 49 50 22 2c 2d 31  2c 34 29 0d 00 5a 2d fb  |TRIP",-1,4)..Z-.|
000000d0  31 3a f2 71 65 28 22 44  6f 20 79 6f 75 20 77 69  |1:.qe("Do you wi|
000000e0  73 68 20 74 6f 20 70 72  69 6e 74 3f 20 59 2f 4e  |sh to print? Y/N|
000000f0  22 2c 2d 31 2c 32 35 29  0d 00 64 15 65 65 24 3d  |",-1,25)..d.ee$=|
00000100  a4 6f 65 3a e7 65 65 24  3d 22 4e 22 e1 0d 00 6e  |.oe:.ee$="N"...n|
00000110  30 62 65 25 3d 96 2d 34  3a ef 32 3a 49 25 3d 30  |0be%=.-4:.2:I%=0|
00000120  3a f5 49 25 3d 49 25 2b  31 3a ef 31 2c 30 3a fd  |:.I%=I%+1:.1,0:.|
00000130  49 25 3d 32 30 30 84 96  2d 34 3c 31 30 0d 00 78  |I%=200..-4<10..x|
00000140  11 ef 33 3a d1 3d 30 3a  f5 fd 91 3e 31 30 0d 00  |..3:.=0:...>10..|
00000150  82 42 e7 96 2d 34 3c 3e  62 65 25 fb 33 3a ef 37  |.B..-4<>be%.3:.7|
00000160  3a f2 71 65 28 22 50 72  69 6e 74 65 72 20 69 73  |:.qe("Printer is|
00000170  20 6e 6f 74 20 72 65 61  64 79 21 22 2c 2d 31 2c  | not ready!",-1,|
00000180  32 39 29 3a f2 63 61 28  32 35 30 29 3a db 3a e1  |29):.ca(250):.:.|
00000190  0d 00 8c 12 fb 30 3a ef  32 38 2c 30 2c 31 2c 31  |.....0:.28,0,1,1|
000001a0  2c 30 0d 00 96 13 e3 62  3d 31 b8 36 88 32 3a e3  |,0.....b=1.6.2:.|
000001b0  61 3d 30 b8 39 0d 00 a0  2b 63 3d 62 2b 31 3a 7a  |a=0.9...+c=b+1:z|
000001c0  24 28 62 2c 61 29 3d 6b  65 24 28 62 2c 61 29 3a  |$(b,a)=ke$(b,a):|
000001d0  7a 24 28 63 2c 61 29 3d  6b 65 24 28 63 2c 61 29  |z$(c,a)=ke$(c,a)|
000001e0  0d 00 aa 29 7a 24 28 62  2c 61 29 3d 22 20 22 2b  |...)z$(b,a)=" "+|
000001f0  7a 24 28 62 2c 61 29 2b  c4 31 33 2d a9 7a 24 28  |z$(b,a)+.13-.z$(|
00000200  62 2c 61 29 2c 22 20 22  29 0d 00 b4 29 7a 24 28  |b,a)," ")...)z$(|
00000210  63 2c 61 29 3d 22 20 22  2b 7a 24 28 63 2c 61 29  |c,a)=" "+z$(c,a)|
00000220  2b c4 31 33 2d a9 7a 24  28 63 2c 61 29 2c 22 20  |+.13-.z$(c,a)," |
00000230  22 29 0d 00 be 07 ed 3a  ed 0d 00 c8 15 63 65 24  |").....:.....ce$|
00000240  3d bd 31 2b bd 32 37 2b  bd 31 2b bd 38 34 0d 00  |=.1+.27+.1+.84..|
00000250  d2 1c 75 64 24 3d bd 31  2b bd 32 37 2b bd 31 2b  |..ud$=.1+.27+.1+|
00000260  bd 38 33 2b bd 31 2b bd  34 38 0d 00 dc 0e 79 65  |.83+.1+.48....ye|
00000270  24 3d bd 31 2b bd 31 35  0d 00 e6 15 78 65 24 3d  |$=.1+.15....xe$=|
00000280  bd 31 2b bd 32 37 2b bd  31 2b bd 37 37 0d 00 f0  |.1+.27+.1+.77...|
00000290  1c 69 65 24 3d bd 31 2b  bd 32 37 2b bd 31 2b bd  |.ie$=.1+.27+.1+.|
000002a0  35 31 2b bd 31 2b bd 31  37 0d 00 fa 18 ef 32 3a  |51+.1+.17.....2:|
000002b0  f1 75 64 24 78 65 24 79  65 24 69 65 24 3a f2 77  |.ud$xe$ye$ie$:.w|
000002c0  65 0d 01 04 22 f1 22 7c  22 89 31 63 65 24 22 43  |e..."."|".1ce$"C|
000002d0  54 52 4c 22 75 64 24 89  33 22 7c 22 3b 3a f2 6c  |TRL"ud$.3"|";:.l|
000002e0  28 31 29 0d 01 0e 18 f1  22 7c 22 89 38 22 7c 22  |(1)....."|".8"|"|
000002f0  3b 3a f2 6c 28 32 29 3a  f2 77 65 0d 01 18 23 f1  |;:.l(2):.we...#.|
00000300  22 7c 22 89 31 63 65 24  22 53 48 49 46 54 22 75  |"|".1ce$"SHIFT"u|
00000310  64 24 89 32 22 7c 22 3b  3a f2 6c 28 33 29 0d 01  |d$.2"|";:.l(3)..|
00000320  22 18 f1 22 7c 22 89 38  22 7c 22 3b 3a f2 6c 28  |".."|".8"|";:.l(|
00000330  34 29 3a f2 77 65 0d 01  2c 14 f1 22 7c 22 89 38  |4):.we..,.."|".8|
00000340  22 7c 22 3b 3a f2 6c 28  35 29 0d 01 36 18 f1 22  |"|";:.l(5)..6.."|
00000350  7c 22 89 38 22 7c 22 3b  3a f2 6c 28 36 29 3a f2  ||".8"|";:.l(6):.|
00000360  77 65 0d 01 40 0b ef 33  2c 32 36 3a e1 0d 01 4a  |we..@..3,26:...J|
00000370  2d dd f2 77 65 3a f1 22  2b 22 2b c4 38 2c 22 2d  |-..we:."+"+.8,"-|
00000380  22 29 2b 22 2b 22 2b c4  31 30 2c c4 31 34 2c 22  |")+"+"+.10,.14,"|
00000390  2d 22 29 2b 22 2b 22 29  3a e1 0d 01 54 2b dd f2  |-")+"+"):...T+..|
000003a0  6c 28 4a 25 29 ea 49 25  3a e3 49 25 3d 30 b8 39  |l(J%).I%:.I%=0.9|
000003b0  3a f1 7a 24 28 4a 25 2c  49 25 29 22 7c 22 3b 3a  |:.z$(J%,I%)"|";:|
000003c0  ed 3a f1 3a e1 0d 01 5e  24 dd f2 71 65 28 66 61  |.:.:...^$..qe(fa|
000003d0  24 2c 58 2c 59 29 ef 34  3a e7 58 3d 2d 31 58 3d  |$,X,Y).4:.X=-1X=|
000003e0  31 39 2d a9 66 61 24 2f  32 0d 01 68 0f f1 8a 58  |19-.fa$/2..h...X|
000003f0  2c 59 29 66 61 24 3a e1  0d 01 72 21 dd f2 6e 65  |,Y)fa$:...r!..ne|
00000400  28 66 61 24 2c 58 2c 59  29 e7 58 3d 2d 31 58 3d  |(fa$,X,Y).X=-1X=|
00000410  31 39 2d a9 66 61 24 2f  32 0d 01 7c 14 ef 33 31  |19-.fa$/2..|..31|
00000420  2c 58 2c 59 3a f2 6f 70  28 66 61 24 29 0d 01 86  |,X,Y:.op(fa$)...|
00000430  18 ef 32 33 2c 32 35 35  2c 30 2c 32 35 35 2c 30  |..23,255,0,255,0|
00000440  3b 30 3b 30 3b 0d 01 90  19 f1 8a 58 2c 59 2b 32  |;0;0;......X,Y+2|
00000450  29 c4 a9 66 61 24 2c bd  32 35 35 29 3a e1 0d 01  |)..fa$,.255):...|
00000460  9a 20 dd f2 68 65 28 66  61 24 2c 58 2c 59 29 ec  |. ..he(fa$,X,Y).|
00000470  58 2c 59 3a f2 6f 70 28  66 61 24 29 3a e1 0d 01  |X,Y:.op(fa$):...|
00000480  a4 25 dd f2 6f 70 28 24  62 25 29 ea 41 25 2c 49  |.%..op($b%).A%,I|
00000490  25 2c 58 25 2c 59 25 3a  41 25 3d 31 30 3a 58 25  |%,X%,Y%:A%=10:X%|
000004a0  3d 65 25 0d 01 ae 94 e3  49 25 3d 30 b8 a9 24 62  |=e%.....I%=0..$b|
000004b0  25 2d 31 3a 3f 65 25 3d  49 25 3f 62 25 3a d6 26  |%-1:?e%=I%?b%:.&|
000004c0  46 46 46 31 3a ef 32 33  2c 32 35 35 2c 65 25 3f  |FFF1:.23,255,e%?|
000004d0  31 2c 65 25 3f 31 2c 65  25 3f 32 2c 65 25 3f 32  |1,e%?1,e%?2,e%?2|
000004e0  2c 65 25 3f 33 2c 65 25  3f 33 2c 65 25 3f 34 2c  |,e%?3,e%?3,e%?4,|
000004f0  65 25 3f 34 2c 32 35 35  2c 38 2c 31 30 2c 32 33  |e%?4,255,8,10,23|
00000500  2c 32 35 35 2c 65 25 3f  35 2c 65 25 3f 35 2c 65  |,255,e%?5,e%?5,e|
00000510  25 3f 36 2c 65 25 3f 36  2c 65 25 3f 37 2c 65 25  |%?6,e%?6,e%?7,e%|
00000520  3f 37 2c 65 25 3f 38 2c  65 25 3f 38 2c 32 35 35  |?7,e%?8,e%?8,255|
00000530  2c 31 31 3a ed 3a e1 0d  01 b8 08 dd f2 75 65 0d  |,11:.:.......ue.|
00000540  01 c2 07 f2 7a 64 0d 01  cc 05 f5 0d 01 d6 09 72  |....zd.........r|
00000550  65 24 3d be 0d 01 e0 16  e7 72 65 24 3d 22 31 22  |e$=......re$="1"|
00000560  f2 6d 61 28 30 29 3a f2  7a 64 0d 01 ea 13 e7 72  |.ma(0):.zd.....r|
00000570  65 24 3d 22 32 22 f2 74  65 3a f2 7a 64 0d 01 f4  |e$="2".te:.zd...|
00000580  13 e7 72 65 24 3d 22 33  22 f2 70 65 3a f2 7a 64  |..re$="3".pe:.zd|
00000590  0d 01 fe 13 e7 72 65 24  3d 22 34 22 f2 6a 65 3a  |.....re$="4".je:|
000005a0  f2 7a 64 0d 02 08 13 e7  72 65 24 3d 22 35 22 f2  |.zd.....re$="5".|
000005b0  75 61 3a f2 7a 64 0d 02  12 13 e7 72 65 24 3d 22  |ua:.zd.....re$="|
000005c0  36 22 f2 7a 65 3a f2 7a  64 0d 02 1c 06 fd 30 0d  |6".ze:.zd.....0.|
000005d0  02 26 05 e1 0d 02 30 08  dd f2 7a 64 0d 02 3a 18  |.&....0...zd..:.|
000005e0  f2 68 61 28 22 46 58 31  31 22 29 3a db 3a f2 67  |.ha("FX11"):.:.g|
000005f0  65 3a fb 32 0d 02 44 0e  76 65 3d 37 3a f7 8d 54  |e:.2..D.ve=7:..T|
00000600  7a 47 0d 02 4e 0d f5 f3  66 65 24 2c 66 61 24 0d  |zG..N...fe$,fa$.|
00000610  02 58 32 e7 66 65 24 3c  3e 22 45 4e 44 22 f2 71  |.X2.fe$<>"END".q|
00000620  65 28 22 28 22 2b 66 65  24 2b 22 29 20 22 2b 66  |e("("+fe$+") "+f|
00000630  61 24 2c 31 30 2c 76 65  29 3a 76 65 3d 76 65 2b  |a$,10,ve):ve=ve+|
00000640  33 0d 02 62 10 fd 66 65  24 3d 22 45 4e 44 22 3a  |3..b..fe$="END":|
00000650  e1 0d 02 6c 11 dd f2 6d  61 28 73 64 29 db 3a f2  |...l...ma(sd).:.|
00000660  67 65 0d 02 76 17 ef 31  39 2c 31 2c 32 3b 30 3b  |ge..v..19,1,2;0;|
00000670  31 39 2c 32 2c 36 3b 30  3b 0d 02 80 6b e6 30 2c  |19,2,6;0;...k.0,|
00000680  31 3a ec 32 38 33 2c 37  33 30 3a df 39 39 36 2c  |1:.283,730:.996,|
00000690  37 33 30 3a df 39 39 36  2c 33 38 35 3a df 32 38  |730:.996,385:.28|
000006a0  33 2c 33 38 35 3a df 32  38 33 2c 37 33 30 3a ec  |3,385:.283,730:.|
000006b0  39 39 36 2c 36 31 35 3a  df 32 38 33 2c 36 31 35  |996,615:.283,615|
000006c0  3a ec 32 38 33 2c 35 30  30 3a df 39 39 36 2c 35  |:.283,500:.996,5|
000006d0  30 30 3a ec 35 34 35 2c  37 33 30 3a df 35 34 35  |00:.545,730:.545|
000006e0  2c 33 38 35 0d 02 8a 0b  e6 30 2c 31 3a ef 35 0d  |,385.....0,1:.5.|
000006f0  02 94 2c f2 68 65 28 22  43 54 52 4c 22 2c 33 32  |..,.he("CTRL",32|
00000700  30 2c 37 30 37 29 3a f2  68 65 28 22 53 48 49 46  |0,707):.he("SHIF|
00000710  54 22 2c 33 32 30 2c 35  39 30 29 0d 02 9e 0b f2  |T",320,590).....|
00000720  64 65 28 73 64 29 0d 02  a8 17 f5 ef 34 2c 32 38  |de(sd)......4,28|
00000730  2c 30 2c 33 31 2c 33 39  2c 32 32 3a db 0d 02 b2  |,0,31,39,22:....|
00000740  26 fb 33 3a f2 71 65 28  22 53 65 6c 65 63 74 20  |&.3:.qe("Select |
00000750  62 6f 78 3a 20 28 31 29  20 43 54 52 4c 22 2c 39  |box: (1) CTRL",9|
00000760  2c 30 29 0d 02 bc 19 f2  71 65 28 22 28 32 29 20  |,0).....qe("(2) |
00000770  53 48 49 46 54 22 2c 32  31 2c 32 29 0d 02 c6 19  |SHIFT",21,2)....|
00000780  f2 71 65 28 22 28 33 29  20 42 4c 41 4e 4b 22 2c  |.qe("(3) BLANK",|
00000790  32 31 2c 34 29 0d 02 d0  18 f2 71 65 28 22 28 34  |21,4).....qe("(4|
000007a0  29 20 45 58 49 54 22 2c  32 31 2c 36 29 0d 02 da  |) EXIT",21,6)...|
000007b0  39 f2 71 65 28 22 55 73  65 20 22 2b bd 32 32 34  |9.qe("Use "+.224|
000007c0  2b bd 32 32 35 2b 22 20  74 6f 20 6d 6f 76 65 20  |+.225+" to move |
000007d0  74 68 72 6f 75 67 68 20  65 6e 74 72 69 65 73 22  |through entries"|
000007e0  2c 2d 31 2c 38 29 0d 02  e4 05 f5 0d 02 ee 10 f2  |,-1,8)..........|
000007f0  68 61 28 22 46 58 34 2c  31 22 29 0d 02 f8 09 65  |ha("FX4,1")....e|
00000800  65 24 3d be 0d 03 02 1d  e7 97 65 65 24 3c 3e 31  |e$=.......ee$<>1|
00000810  33 38 80 97 65 65 24 3c  3e 31 33 39 e5 8d 54 7e  |38..ee$<>139..T~|
00000820  43 0d 03 0c 1f e7 97 65  65 24 3d 31 33 38 80 73  |C......ee$=138.s|
00000830  64 3e 30 73 64 3d 73 64  2d 31 3a e5 8d 54 74 43  |d>0sd=sd-1:..TtC|
00000840  0d 03 16 1c e7 97 65 65  24 3d 31 33 38 80 73 64  |......ee$=138.sd|
00000850  3d 30 73 64 3d 39 3a e5  8d 54 74 43 0d 03 20 1f  |=0sd=9:..TtC.. .|
00000860  e7 97 65 65 24 3d 31 33  39 80 73 64 3c 39 73 64  |..ee$=139.sd<9sd|
00000870  3d 73 64 2b 31 3a e5 8d  54 74 43 0d 03 2a 16 e7  |=sd+1:..TtC..*..|
00000880  97 65 65 24 3d 31 33 39  80 73 64 3d 39 73 64 3d  |.ee$=139.sd=9sd=|
00000890  30 0d 03 34 11 f2 64 65  28 73 64 29 3a e5 8d 44  |0..4..de(sd):..D|
000008a0  48 43 0d 03 3e 1d e7 bb  65 65 24 3c 31 84 bb 65  |HC..>...ee$<1..e|
000008b0  65 24 3e 34 f2 67 61 8b  78 64 3d bb 65 65 24 0d  |e$>4.ga.xd=.ee$.|
000008c0  03 48 14 fd bb 65 65 24  3e 3d 31 80 bb 65 65 24  |.H...ee$>=1..ee$|
000008d0  3c 3d 34 0d 03 52 0e e7  78 64 3d 34 e5 8d 64 4a  |<=4..R..xd=4..dJ|
000008e0  43 0d 03 5c 16 ef 34 2c  32 38 2c 30 2c 33 31 2c  |C..\..4,28,0,31,|
000008f0  33 39 2c 32 32 3a db 0d  03 66 41 e7 78 64 3d 31  |39,22:...fA.xd=1|
00000900  62 24 3d 22 43 54 52 4c  22 3a 6b 61 3d 31 8b e7  |b$="CTRL":ka=1..|
00000910  78 64 3d 32 62 24 3d 22  53 48 49 46 54 22 3a 6b  |xd=2b$="SHIFT":k|
00000920  61 3d 33 8b e7 78 64 3d  33 62 24 3d 22 42 4c 41  |a=3..xd=3b$="BLA|
00000930  4e 4b 22 3a 6b 61 3d 35  0d 03 70 10 f2 71 65 28  |NK":ka=5..p..qe(|
00000940  62 24 2c 2d 31 2c 31 29  0d 03 7a 15 f1 8a 31 30  |b$,-1,1)..z...10|
00000950  2c 33 29 22 4c 69 6e 65  20 31 3a 20 22 0d 03 84  |,3)"Line 1: "...|
00000960  10 f2 73 61 28 31 38 2c  33 2c 31 32 29 0d 03 8e  |..sa(18,3,12)...|
00000970  12 6b 65 24 28 6b 61 2c  73 64 29 3d 65 65 24 0d  |.ke$(ka,sd)=ee$.|
00000980  03 98 15 f1 8a 31 30 2c  35 29 22 4c 69 6e 65 20  |.....10,5)"Line |
00000990  32 3a 20 22 0d 03 a2 10  f2 73 61 28 31 38 2c 35  |2: ".....sa(18,5|
000009a0  2c 31 32 29 0d 03 ac 14  6b 65 24 28 6b 61 2b 31  |,12)....ke$(ka+1|
000009b0  2c 73 64 29 3d 65 65 24  0d 03 b6 0b f2 77 64 28  |,sd)=ee$.....wd(|
000009c0  78 64 29 0d 03 c0 0b f2  6f 61 28 78 64 29 0d 03  |xd).....oa(xd)..|
000009d0  ca 1c fd 78 64 3d 34 3a  ef 34 2c 32 36 3a f2 68  |...xd=4:.4,26:.h|
000009e0  61 28 22 46 58 34 22 29  3a e1 0d 03 d4 0c dd f2  |a("FX4"):.......|
000009f0  77 64 28 64 61 29 0d 03  de 0a e6 30 2c 31 32 38  |wd(da).....0,128|
00000a00  0d 03 e8 37 ef 32 34 2c  35 35 36 3b 28 37 30 37  |...7.24,556;(707|
00000a10  2d 28 28 64 61 2d 31 29  2a 31 31 35 29 29 2d 38  |-((da-1)*115))-8|
00000a20  30 3b 39 39 30 3b 37 31  37 2d 28 28 64 61 2d 31  |0;990;717-((da-1|
00000a30  29 2a 31 31 35 29 3b 0d  03 f2 1a da 3a ef 32 34  |)*115);.....:.24|
00000a40  2c 30 3b 30 3b 31 32 37  39 3b 31 30 32 33 3b 3a  |,0;0;1279;1023;:|
00000a50  e1 0d 03 fc 1c dd f2 6f  61 28 64 61 29 3a 63 62  |.......oa(da):cb|
00000a60  3d 28 28 64 61 2d 31 29  2a 32 29 2b 31 0d 04 06  |=((da-1)*2)+1...|
00000a70  19 ec 35 37 36 2c 37 30  37 2d 28 28 64 61 2d 31  |..576,707-((da-1|
00000a80  29 2a 31 31 35 29 0d 04  10 18 ef 35 3a e6 30 2c  |)*115).....5:.0,|
00000a90  32 3a f1 3b 6b 65 24 28  63 62 2c 73 64 29 0d 04  |2:.;ke$(cb,sd)..|
00000aa0  1a 1c ec 35 37 36 2c 37  30 37 2d 28 28 64 61 2d  |...576,707-((da-|
00000ab0  31 29 2a 31 31 35 29 2d  34 32 0d 04 24 14 f1 3b  |1)*115)-42..$..;|
00000ac0  6b 65 24 28 63 62 2b 31  2c 73 64 29 3a e1 0d 04  |ke$(cb+1,sd):...|
00000ad0  2e 10 dd f2 73 61 28 78  2c 79 2c 6c 61 29 0d 04  |....sa(x,y,la)..|
00000ae0  38 12 f2 68 61 28 22 46  58 31 31 2c 35 30 22 29  |8..ha("FX11,50")|
00000af0  0d 04 42 12 ef 33 31 2c  78 2c 79 3a 65 65 24 3d  |..B..31,x,y:ee$=|
00000b00  22 22 0d 04 4c 1f ef 32  33 2c 32 35 34 2c 30 2c  |""..L..23,254,0,|
00000b10  30 2c 30 2c 30 2c 30 2c  30 2c 32 35 35 2c 32 35  |0,0,0,0,0,255,25|
00000b20  35 0d 04 56 13 f5 3a f1  8a 78 2c 79 29 65 65 24  |5..V..:..x,y)ee$|
00000b30  bd 32 35 34 0d 04 60 07  47 3d a5 0d 04 6a 20 e7  |.254..`.G=...j .|
00000b40  a9 65 65 24 3d 6c 61 80  28 47 3c 3e 31 33 80 47  |.ee$=la.(G<>13.G|
00000b50  3c 3e 31 32 37 29 e5 8d  44 60 44 0d 04 74 15 e7  |<>127)..D`D..t..|
00000b60  47 3d 31 33 f1 8a 78 2c  79 29 65 65 24 22 20 22  |G=13..x,y)ee$" "|
00000b70  0d 04 7e 2c e7 47 3d 31  32 37 65 65 24 3d c0 65  |..~,.G=127ee$=.e|
00000b80  65 24 2c a9 65 65 24 2d  31 29 3a f1 8a 78 2c 79  |e$,.ee$-1):..x,y|
00000b90  29 65 65 24 bd 32 35 34  3b 22 20 22 0d 04 88 27  |)ee$.254;" "...'|
00000ba0  e7 47 3e 33 31 80 47 3c  31 32 37 65 65 24 3d 65  |.G>31.G<127ee$=e|
00000bb0  65 24 2b bd 47 3a f1 8a  78 2c 79 29 65 65 24 bd  |e$+.G:..x,y)ee$.|
00000bc0  32 35 34 0d 04 92 19 fd  47 3d 31 33 3a f2 68 61  |254.....G=13:.ha|
00000bd0  28 22 46 58 31 31 2c 30  22 29 3a e1 0d 04 9c 08  |("FX11,0"):.....|
00000be0  dd f2 6a 65 0d 04 a6 09  db 3a f2 67 65 0d 04 b0  |..je.....:.ge...|
00000bf0  21 fb 32 3a f2 71 65 28  22 53 41 56 45 20 4b 45  |!.2:.qe("SAVE KE|
00000c00  59 20 53 54 52 49 50 22  2c 2d 31 2c 34 29 0d 04  |Y STRIP",-1,4)..|
00000c10  ba 1d fb 33 3a f2 71 65  28 22 46 69 6c 65 6e 61  |...3:.qe("Filena|
00000c20  6d 65 3a 20 22 2c 39 2c  31 35 29 0d 04 c4 19 f2  |me: ",9,15).....|
00000c30  73 61 28 31 39 2c 31 35  2c 31 30 29 3a 61 62 24  |sa(19,15,10):ab$|
00000c40  3d 65 65 24 0d 04 ce 2f  fb 31 3a f2 71 65 28 22  |=ee$.../.1:.qe("|
00000c50  53 61 76 65 20 63 75 72  72 65 6e 74 20 6b 65 79  |Save current key|
00000c60  20 73 74 72 69 70 3f 20  59 2f 4e 22 2c 2d 31 2c  | strip? Y/N",-1,|
00000c70  31 39 29 0d 04 d8 15 65  65 24 3d a4 6f 65 3a e7  |19)....ee$=.oe:.|
00000c80  65 65 24 3d 22 4e 22 e1  0d 04 e2 0b 6e 61 3d ae  |ee$="N".....na=.|
00000c90  61 62 24 0d 04 ec 1a fb  32 3a f2 71 65 28 22 53  |ab$.....2:.qe("S|
00000ca0  61 76 69 6e 67 22 2c 2d  31 2c 32 33 29 0d 04 f6  |aving",-1,23)...|
00000cb0  23 e3 61 3d 30 b8 39 3a  e3 62 3d 31 b8 36 3a f1  |#.a=0.9:.b=1.6:.|
00000cc0  23 6e 61 2c 6b 65 24 28  62 2c 61 29 3a ed 3a ed  |#na,ke$(b,a):.:.|
00000cd0  0d 05 00 08 d9 23 6e 61  0d 05 0a 2e fb 32 3a f2  |.....#na.....2:.|
00000ce0  71 65 28 22 53 61 76 69  6e 67 20 43 6f 6d 70 6c  |qe("Saving Compl|
00000cf0  65 74 65 22 2c 2d 31 2c  32 33 29 3a f2 63 61 28  |ete",-1,23):.ca(|
00000d00  32 35 30 29 3a e1 0d 05  14 08 dd f2 70 65 0d 05  |250):.......pe..|
00000d10  1e 09 db 3a f2 67 65 0d  05 28 21 fb 32 3a f2 71  |...:.ge..(!.2:.q|
00000d20  65 28 22 4c 4f 41 44 20  4b 45 59 20 53 54 52 49  |e("LOAD KEY STRI|
00000d30  50 22 2c 2d 31 2c 34 29  0d 05 32 1e fb 33 3a f2  |P",-1,4)..2..3:.|
00000d40  71 65 28 22 46 69 6c 65  6e 61 6d 65 3a 20 22 2c  |qe("Filename: ",|
00000d50  31 30 2c 31 35 29 0d 05  3c 19 f2 73 61 28 32 30  |10,15)..<..sa(20|
00000d60  2c 31 35 2c 31 30 29 3a  61 62 24 3d 65 65 24 0d  |,15,10):ab$=ee$.|
00000d70  05 46 2c fb 31 3a f2 71  65 28 22 4c 6f 61 64 20  |.F,.1:.qe("Load |
00000d80  74 68 69 73 20 6b 65 79  20 73 74 72 69 70 3f 20  |this key strip? |
00000d90  59 2f 4e 22 2c 2d 31 2c  31 39 29 0d 05 50 15 65  |Y/N",-1,19)..P.e|
00000da0  65 24 3d a4 6f 65 3a e7  65 65 24 3d 22 4e 22 e1  |e$=.oe:.ee$="N".|
00000db0  0d 05 5a 0b 6e 61 3d 8e  61 62 24 0d 05 64 1b fb  |..Z.na=.ab$..d..|
00000dc0  32 3a f2 71 65 28 22 4c  6f 61 64 69 6e 67 22 2c  |2:.qe("Loading",|
00000dd0  2d 31 2c 32 33 29 0d 05  6e 23 e3 61 3d 30 b8 39  |-1,23)..n#.a=0.9|
00000de0  3a e3 62 3d 31 b8 36 3a  e8 23 6e 61 2c 6b 65 24  |:.b=1.6:.#na,ke$|
00000df0  28 62 2c 61 29 3a ed 3a  ed 0d 05 78 08 d9 23 6e  |(b,a):.:...x..#n|
00000e00  61 0d 05 82 2f fb 32 3a  f2 71 65 28 22 4c 6f 61  |a.../.2:.qe("Loa|
00000e10  64 69 6e 67 20 43 6f 6d  70 6c 65 74 65 22 2c 2d  |ding Complete",-|
00000e20  31 2c 32 33 29 3a f2 63  61 28 32 35 30 29 3a e1  |1,23):.ca(250):.|
00000e30  0d 05 8c 08 dd f2 67 65  0d 05 96 20 ef 31 39 2c  |......ge... .19,|
00000e40  31 2c 31 3b 30 3b 31 39  2c 32 2c 33 3b 30 3b 31  |1,1;0;19,2,3;0;1|
00000e50  39 2c 33 2c 37 3b 30 3b  0d 05 a0 0b fb 33 3a e6  |9,3,7;0;.....3:.|
00000e60  30 2c 33 0d 05 aa 2e f2  6e 65 28 22 46 75 6e 63  |0,3.....ne("Func|
00000e70  74 69 6f 6e 20 4b 65 79  20 53 74 72 69 70 20 47  |tion Key Strip G|
00000e80  65 6e 65 72 61 74 6f 72  22 2c 2d 31 2c 30 29 3a  |enerator",-1,0):|
00000e90  e1 0d 05 b4 1c dd f2 63  61 28 73 65 29 6b 62 3d  |.......ca(se)kb=|
00000ea0  91 2b 73 65 3a f5 fd 91  3e 73 65 3a e1 0d 05 be  |.+se:...>se:....|
00000eb0  1e dd f2 67 61 3a d4 31  2c 2d 31 35 2c 34 2c 32  |...ga:.1,-15,4,2|
00000ec0  3a d4 31 2c 30 2c 30 2c  30 3a e1 0d 05 c8 2c dd  |:.1,0,0,0:....,.|
00000ed0  f2 68 61 28 24 62 25 29  ea 58 25 2c 59 25 3a 58  |.ha($b%).X%,Y%:X|
00000ee0  25 3d 62 25 3a 59 25 3d  62 25 81 32 35 36 3a d6  |%=b%:Y%=b%.256:.|
00000ef0  26 46 46 46 37 3a e1 0d  05 d2 08 dd f2 75 61 0d  |&FFF7:.......ua.|
00000f00  05 dc 09 db 3a f2 67 65  0d 05 e6 1f fb 32 3a f2  |....:.ge.....2:.|
00000f10  71 65 28 22 45 58 49 54  20 50 52 4f 47 52 41 4d  |qe("EXIT PROGRAM|
00000f20  22 2c 2d 31 2c 34 29 0d  05 f0 25 fb 33 3a f2 71  |",-1,4)...%.3:.q|
00000f30  65 28 22 41 72 65 20 79  6f 75 20 73 75 72 65 3f  |e("Are you sure?|
00000f40  20 59 2f 4e 22 2c 2d 31  2c 31 36 29 0d 05 fa 2f  | Y/N",-1,16).../|
00000f50  65 65 24 3d a4 6f 65 3a  e7 65 65 24 3d 22 4e 22  |ee$=.oe:.ee$="N"|
00000f60  e1 8b db 3a f2 6e 65 28  22 47 6f 6f 64 62 79 65  |...:.ne("Goodbye|
00000f70  21 22 2c 2d 31 2c 31 33  29 3a e0 0d 06 04 08 dd  |!",-1,13):......|
00000f80  a4 6f 65 0d 06 0e 05 f5  0d 06 18 19 65 65 24 3d  |.oe.........ee$=|
00000f90  be 3a 69 62 24 3d bd 28  97 65 65 24 80 26 44 46  |.:ib$=.(.ee$.&DF|
00000fa0  29 0d 06 22 19 e7 69 62  24 3c 3e 22 59 22 80 69  |).."..ib$<>"Y".i|
00000fb0  62 24 3c 3e 22 4e 22 f2  67 61 0d 06 2c 14 fd 69  |b$<>"N".ga..,..i|
00000fc0  62 24 3d 22 59 22 84 69  62 24 3d 22 4e 22 0d 06  |b$="Y".ib$="N"..|
00000fd0  36 08 3d 69 62 24 0d 06  40 0c dd f2 64 65 28 73  |6.=ib$..@...de(s|
00000fe0  64 29 0d 06 4a 09 ef 34  2c 32 36 0d 06 54 18 fb  |d)..J..4,26..T..|
00000ff0  33 3a f2 6e 65 28 22 66  22 2b c3 73 64 2c 2d 31  |3:.ne("f"+.sd,-1|
00001000  2c 34 29 0d 06 5e 12 ef  32 38 2c 30 2c 33 31 2c  |,4)..^..28,0,31,|
00001010  33 39 2c 32 32 0d 06 68  13 e3 61 3d 31 b8 33 3a  |39,22..h..a=1.3:|
00001020  f2 77 64 28 61 29 3a ed  0d 06 72 0b e6 30 2c 32  |.wd(a):...r..0,2|
00001030  3a ef 35 0d 06 7c 13 e3  61 3d 31 b8 33 3a f2 6f  |:.5..|..a=1.3:.o|
00001040  61 28 61 29 3a ed 0d 06  86 05 e1 0d 06 90 08 dd  |a(a):...........|
00001050  f2 61 65 0d 06 9a 21 ef  34 2c 32 36 3a fb 32 3a  |.ae...!.4,26:.2:|
00001060  f2 6e 65 28 22 45 52 52  4f 52 22 2c 2d 31 2c 30  |.ne("ERROR",-1,0|
00001070  29 3a fb 33 0d 06 a4 17  f1 3a f6 3a f1 22 20 61  |):.3.....:.:." a|
00001080  74 20 6c 69 6e 65 20 22  3b 9e 27 0d 06 ae 2e fb  |t line ";.'.....|
00001090  31 3a f2 71 65 28 22 50  72 65 73 73 20 53 50 41  |1:.qe("Press SPA|
000010a0  43 45 20 42 41 52 20 74  6f 20 63 6f 6e 74 69 6e  |CE BAR to contin|
000010b0  65 22 2c 2d 31 2c 32 38  29 0d 06 b8 21 f2 71 65  |e",-1,28)...!.qe|
000010c0  28 22 6f 72 20 45 53 43  41 50 45 20 74 6f 20 65  |("or ESCAPE to e|
000010d0  6e 64 22 2c 2d 31 2c 33  30 29 0d 06 c2 12 f2 68  |nd",-1,30).....h|
000010e0  61 28 22 46 58 32 32 39  2c 31 22 29 0d 06 cc 1c  |a("FX229,1")....|
000010f0  f5 3a 65 65 24 3d be 3a  fd 65 65 24 3d bd 33 32  |.:ee$=.:.ee$=.32|
00001100  84 65 65 24 3d bd 32 37  0d 06 d6 1f f2 68 61 28  |.ee$=.27.....ha(|
00001110  22 46 58 32 32 39 22 29  3a f2 68 61 28 22 46 58  |"FX229"):.ha("FX|
00001120  31 32 22 29 3a fb 33 0d  06 e0 11 e7 65 65 24 3d  |12"):.3.....ee$=|
00001130  bd 32 37 e0 8b f2 75 65  0d 06 ea 05 e1 0d 06 f4  |.27...ue........|
00001140  08 dd f2 7a 65 0d 06 fe  09 db 3a f2 67 65 0d 07  |...ze.....:.ge..|
00001150  08 1f fb 32 3a f2 71 65  28 22 43 4c 45 41 52 20  |...2:.qe("CLEAR |
00001160  4d 45 4d 4f 52 59 22 2c  2d 31 2c 34 29 0d 07 12  |MEMORY",-1,4)...|
00001170  25 fb 33 3a f2 71 65 28  22 41 72 65 20 79 6f 75  |%.3:.qe("Are you|
00001180  20 73 75 72 65 3f 20 59  2f 4e 22 2c 2d 31 2c 31  | sure? Y/N",-1,1|
00001190  35 29 0d 07 1c 15 65 65  24 3d a4 6f 65 3a e7 65  |5)....ee$=.oe:.e|
000011a0  65 24 3d 22 4e 22 e1 0d  07 26 21 e3 62 3d 31 b8  |e$="N"...&!.b=1.|
000011b0  36 3a e3 61 3d 30 b8 39  3a 6b 65 24 28 62 2c 61  |6:.a=0.9:ke$(b,a|
000011c0  29 3d 22 22 3a ed 3a ed  0d 07 30 05 e1 0d 07 3a  |)="":.:...0....:|
000011d0  73 dc 20 31 2c 45 6e 74  65 72 20 6b 65 79 20 64  |s. 1,Enter key d|
000011e0  65 74 61 69 6c 73 2c 32  2c 50 72 69 6e 74 20 6b  |etails,2,Print k|
000011f0  65 79 20 73 74 72 69 70  2c 33 2c 4c 6f 61 64 20  |ey strip,3,Load |
00001200  6b 65 79 20 73 74 72 69  70 2c 34 2c 53 61 76 65  |key strip,4,Save|
00001210  20 6b 65 79 20 73 74 72  69 70 2c 35 2c 45 78 69  | key strip,5,Exi|
00001220  74 20 70 72 6f 67 72 61  6d 2c 36 2c 43 6c 65 61  |t program,6,Clea|
00001230  72 20 6d 65 6d 6f 72 79  2c 45 4e 44 2c 45 4e 44  |r memory,END,END|
00001240  0d ff                                             |..|
00001242