� Easy Printer
� by Leslie J Goodridge
� (c) Electron User
(:
2
� � �DxO
<4� Until de-bugged add REMs to the next two lines
F*KEY10 OLD|M RUN|M
P*FX229,1
Z:
d�6:�
n�19,1,6;0;
x�23,1,0;0;0;0;
��check_printer
��
�
�setup
��screen
�exit=�:reset=�
��
��clear_window
��menu_choice
�� exit � reset
�� reset �tL@
�	�:�20
��5,10)"Exit to :"
��14,12)"1...BASIC"

�14,13)"2...VIEW"

�14,14)"3...VIEWSHEET"

�

"*FX21,0

,exit$=�

6exit%=�"123",exit$)

@� exit%

J�tidy:�

T� exit% �D^A,�DhA,�DrA

^�("basic"):�

h�("word"):�

r�("sheet"):�

|:

�� �setup

�"�2,1,27,1,64,3:� Reset Printer

�*FX11,0

�
*FX4,1

�*FX225,128

� wide=?&70/10:� wide=0 wide=1

�=lm%=0:rm%=�(80*wide+0.5):rmax%=rm%:limit%=2:present=rmax%

�'alpha$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"

� valid$=alpha$+�129+�133+�137

�numeric=1:string=0

�printer$=�25," ")

�$final$=printer$:change$=printer$

�delete$=�127+"."+�8
clear$=�3," ")+�3,�8)
I� selection$(26),on_off%(26),default%(9),alt%(3),country$(19),cpi$(3)
*�1,1,13,2,1,1,1,2,126,0,0,-126,126,126
&
� �t`O
0�I%=1 � 26
:� selection$(I%)
Don_off%(I%)=0
N�
X
� �dzO
b� I%=1 � 8
l� default%(I%)
v�
�default%(9)=rm%
�� I%=1 � 3
�alt%(I%)=0
��
�alt%(0)=36
�
� �TNP
�� I%=0 � 19
�� country$(I%)
��
�
� �DJP
�� I%=0 � 3
�� cpi$(I%)
��
�
:
� �check_printer
 ;?&70=0:� �yn("Wide Carriage Printer Y/N?",7,12) ?&70=17
*9yes=�yn("Is Printer set for auto linefeed Y/N?",1,12)
4"� yes �("fx6,10") � �("fx6,0")
>�
H4�0,10)"Make sure  your printer is  switched on"
R4�0,12)"and on line or the program will hang up"
\%�8,16)"Press any key when ready"
f�("fx21,0"):key=�:�
p:
z� �clear_window
��28,0,24,39,19,12,26
��
�:
�
� �screen
��
��14,0)"EASY PRINTER"
��14,1)"~~~~ ~~~~~~~"
��15,2)"** Menu **"
�� item%=1 � 26
�letter$=�(64+item%)
�/� item%<14 col%=1:row%=3 � col%=19:row%=-10
�5�col%,item%+row%);letter$;".";selection$(item%);
�� item%=1 �" (Draft)";
� item%=2 �" (Pica)";
� item%=12 �"(US)";
=� item%>13 � item%<23 �36,item%+row%);default%(item%-13)
$�
.�
8:
B� �menu_choice
Lclash=�
V'�7,19)"A-Z to set Printer options"
`=�3,21)"f1=Reset":�25,21)"f5=Printout":�16,23)"f9=Exit"
j�
t
*FX202
~*FX21,0
�
choice$=�
�choice%=�valid$,choice$)
��choice%
�� choice$=�129 reset=�:�
�"� choice$=�133 �test_printer:�
�� choice$=�137 �set_exit:�
�H� choice$>="A" � choice$<="Z" �("fx21,3"):�change(choice%):� clash �
�� �"BCDNO",choice$) �margin
�)� choice$<"N" � choice$>"V" �DjD � �
��
�:
�� �test_printer
1other=on_off%(14) � on_off%(15) � on_off%(16)

escape=�
6� �printer$,1)<>" " �change_printer � �get_printer
� escape �
(	�2,21
2�"This is ";
<&� other �other_test � �normal_test
F�"on the ";printer$;
PB�" with descenders gjpqy and line spacing ";alt%(0);"/216 in."
Z�6,3
d�
n:
x� �other_test
�� I%=14 � 16
�6� on_off%(I%) � selection$(I%);" ";alt%(I%-13)" ";
�� I%=14 � on_off%(I%) �mode
�1� I%=15 � on_off%(I%) � cpi$(alt%(I%-13))" ";
�@� I%=16 � on_off%(I%) � country$(alt%(I%-13))":- ";:�alfabet
��
��"in ";:�normal_test
��
�:
�� �normal_test
�"both=on_off%(14) � on_off%(15)
�� set%=1 � 12
�I� set%=1 � on_off%(set%) � selection$(set%);" ";� � set%=1 �"Draft ";
g� set%=2 � on_off%(set%) � selection$(set%);" ";� � set%=2 � both �"";� � set%=2 � � both �"Pica ";
�� set%=12 � on_off%(set%) � selection$(set%);" ";� � set%=12 � on_off%(16)=0 �"US Chrs ";� �set%=12 � on_off%(16)=1 �"Chrs ";
>� set%>2 � set%<12 � on_off%(set%) � selection$(set%);" ";
"�
,�
6:
@� �alfabet
J� I%=33 � 126
T� �(I%);
^�
h	�" ";
r�
|:
�� �change_printer
��clear_window
�9� � �yn("Change Printer Y/N?",10,20) � � �get_printer
��
�:
�� �get_printer
��clear_window
��12,23)"Escape to abhort"
��0,20)"Printer name: ";
�escape=�
�!change$=�get_input(25,string)
�!� escape � � printer$=change$
��
:
� �set_exit
�clear_window
&exit=�yn("Exit Y/N?",15,20)
0�
::
D� �change(choice%)
NU�check_clash:� clash �clear_window:�7:�10,21)"!Control Code Clash!":�wait(150):�
X'on_off%(choice%)=on_off%(choice%)�1
bA� on_off%(choice%) �change_on(choice%) � �change_off(choice%)
l�
v:
�� �yn(message$,col,row)
�� �col,row)message$
��
�*FX21,0
�ans$=�(� � &DF)
�� �"YN",ans$)
�� ans$="Y"=� �=�
�:
�� �get_input(len%,type)
�7� type=numeric first=48:last=57 � first=32:last=126
�start$=�len%,".")+�len%,�8)
�
final$=""
��23,1,1;0;0;0;

� start$;
�
*FX21,0
 input$=�:input=�(input$)
*�input$=�27 escape=�:�DfH
4#� input$=�13 � final$<>"" �DfH
>L� input$=�127 � �(final$)>0 final$=�final$,�(final$)-1):� delete$;:�TVH
H8� input<first � input>last � �(final$)=len% �7:�TVH
R
� input$;
\final$=final$+input$
f� input$=�13 � escape
p�23,1,0;0;0;0;
z=final$
�:
�� �mode
�	�"(";
�0� alt%(1) � 1 � selection$(2)" ";� �"Pica ";
�%� alt%(1) � 4 � selection$(3)" ";
�&� alt%(1) � 32 � selection$(4)" ";
�%� alt%(1) � 8 � selection$(5)" ";
�&� alt%(1) � 16 � selection$(6)" ";
�
�") ";
��
�:
�� �change_off(choice%)
��� choice% �TFI,�TPI,�TZI,�TdI,�TnI,�TxI,�DBI,�DLI,�DVI,�D`I,�DjI,�DtI,�D~I,�tHI,�tRI,�t\I,�tfI,�tpI,�tzI,�dDI,�dNI,�dXI,�dbI,�dlI,�dvI,�T@J
	�2,1,27,1,120,1,0,3:�TJJ
	�2,1,27,1,80,3:�TJJ
	�2,1,18,3:�TJJ
	$�2,1,27,1,87,1,0,3:�TJJ
	.�2,1,27,1,70,3:�TJJ
	8�2,1,27,1,72,3:�TJJ
	B�2,1,27,1,53,3:�TJJ
	L�2,1,27,1,84,3:�TJJ
	V�2,1,27,1,84,3:�TJJ
	`�2,1,27,1,112,1,0,3:�TJJ
	j�2,1,27,1,45,1,0,3:�TJJ
	t�2,1,27,1,82,1,0,3:�TJJ
	~!�2,1,27,1,57,3:B$="on ":�TJJ
	��2,1,27,1,33,1,0,3:�TJJ
	��2,1,27,1,119,1,0,3:�TJJ
	��2,1,27,1,82,1,0,3:�TJJ
	�!�2,1,27,1,67,1,0,1,11,3:�TJJ
	��2,1,27,1,67,1,66,3:�TJJ
	��2,1,27,1,79,3:�TJJ
	��2,1,27,1,51,1,36,3:�TJJ
	��2,1,27,1,108,1,0,3:�TJJ
	�&�2,1,27,1,81,1,default%(9),3:�TJJ
	��2,1,27,1,97,1,0,3:�TJJ
	��2,1,27,1,97,1,0,3:�TJJ
	��2,1,27,1,97,1,0,3:�TJJ
�2,1,27,1,115,1,0,3:�TJJ

@� choice%<14 � choice%>22 val%=0 � val%=default%(choice%-13)
�print(choice%,val%," ")
�
(:
2��print(choice%,val%,C$)
<"� choice%<14 row%=3 � row%=-10
F;� choice%>13 �18,choice%+row%)C$ � �0,choice%+row%)C$
P;� choice%>13 � choice%<23 �36,choice%+row%)clear$;val%
Z� choice%=13 �13,16)B$
d� choice%=20 alt%(0)=val%
n� choice%=21 lm%=val%
x� choice%=22 rm%=val%
��1,1,178,5
��
�:
���change_on(choice%)
�escape=�
�1� choice%>13 � choice%<23 �get_value(choice%)
�!� escape on_off%(choice%)=0:�
�5� choice%>13 � choice%<17 alt%(choice%-13)=value%
Ґ� choice% �d\J,�dfJ,�dpJ,�dzJ,�TDK,�TNK,�TXK,�TbK,�TlK,�TvK,�D@K,�DJK,�DTK,�D^K,�DhK,�DrK,�D|K,�tFK,�tPK,�tZK,�tdK,�tnK,�txK,�dBK,�dLK,�dVK
��2,1,27,1,120,1,1,3:�d`K
��2,1,27,1,77,3:�d`K
��2,1,27,1,15,3:�d`K
��2,1,27,1,87,1,1,3:�d`K
�2,1,27,1,69,3:�d`K
�2,1,27,1,71,3:�d`K
�2,1,27,1,52,3:�d`K
"�2,1,27,1,83,1,0,3:�d`K
,�2,1,27,1,83,1,1,3:�d`K
6�2,1,27,1,112,1,1,3:�d`K
@�2,1,27,1,45,1,1,3:�d`K
J�2,1,27,1,82,1,3,3:�d`K
T!�2,1,27,1,56,3:B$="off":�d`K
^!�2,1,27,1,33,1,value%,3:�d`K
h"�2,1,27,1,119,1,value%,3:�d`K
r!�2,1,27,1,82,1,value%,3:�d`K
|%�2,1,27,1,67,1,0,1,value%,3:�d`K
�!�2,1,27,1,67,1,value%,3:�d`K
�!�2,1,27,1,78,1,value%,3:�d`K
�!�2,1,27,1,51,1,value%,3:�d`K
�"�2,1,27,1,108,1,value%,3:�d`K
�!�2,1,27,1,81,1,value%,3:�d`K
��2,1,27,1,97,1,3,3:�d`K
��2,1,27,1,97,1,1,3:�d`K
��2,1,27,1,97,1,2,3:�d`K
��2,1,27,1,115,1,1,3:�d`K
�&� choice%<14 � choice%>22 value%=0
��print(choice%,value%,"*")
��
�:
� �get_value(choice%)
�clear_window
min%=0:max%=255:len%=3
&� choice%=14 max%=63:len%=2
0� choice%=15 max%=3:len%=1
:� choice%=16 max%=19:len%=2
D&� choice%=17 max%=22:min%=1:len%=2
N � choice%=18 max%=127:min%=1
X� choice%=19 max%=127
b� choice%=20 min%=1
lB� choice%=21 max%=rm%-limit%:� max%<=min% �no_change("Left"):�
vN� choice%=22 max%=rmax%:min%=lm%+limit%:� min%>=max% �no_change("Right"):�
��12,23)"Escape to abhort"
��
�0�7,20)"Enter a value (";min%;"-";max%;"):";
�escape=�:correct_val=�
�&value%=�(�get_input(len%,numeric))
�� escape �dZL
�Z� choice%=21 � value%=0 � lm%=0 �7:�7,20)"Zero value already set!  ":�wait(200):�dZL
�/� value%>=min% � value%<=max% correct_val=�
�� � correct_val �7
�� correct_val � escape
��
�:
�� �check_clash

g� choice$="N" �(on_off%(2) � on_off%(3) � on_off%(4) � on_off%(5) � on_off%(6) � on_off%(15)) �D\M

/� choice%>1 � choice%<7 � on_off%(14) �D\M

M� choice$="O" �(on_off%(2) � on_off%(3) � on_off%(4) � on_off%(14)) �D\M

 /� choice%>1 � choice%<5 � on_off%(15) �D\M

*A� choice$="P" � on_off%(12) � choice$="L" � on_off%(16) �D\M

4A� choice$="Q" � on_off%(18) � choice$="R" � on_off%(17) �D\M

>�� choice$="W" �(on_off%(24) � on_off%(25)) � choice$="X" �(on_off%(23) � on_off%(25)) � choice$="Y" �(on_off%(23) � on_off%(24)) �D\M

H?� choice$="H" � on_off%(9) � choice$="I" � on_off%(8) �D\M

R�

\
clash=�:�

f:

p� �no_change(A$)

z.�9-�(A$),21)A$" margin cannot be changed"

�%�7,23)"!max & min values equal!"

��7:�wait(300):escape=�

��

�:

�� �wait(delay)

�� � �(delay)

��

�:

�
� �margin

�=elite=on_off%(2):condensed=on_off%(3):enlarged=on_off%(4)

�(alternate%=on_off%(14) � on_off%(15)

�� alternate% �DVN

�.� �(elite � condensed � enlarged)result%=0
.� elite � �(condensed � enlarged)result%=1
.� condensed � �(elite � enlarged)result%=4
.� condensed � elite � � enlarged result%=5
$/� enlarged � �(elite � condensed)result%=32
./� enlarged � elite � � condensed result%=33
8/� enlarged � condensed � � elite result%=36
B-� enlarged � condensed � elite result%=37
L	�D`N
V9� on_off%(14) result%=alt%(1) � &25 � result%=alt%(2)
`-� result%=0 rmax%=�(80*wide+0.5):limit%=2
j-� result%=1 rmax%=�(96*wide+0.5):limit%=3
t.� result%=2 rmax%=�(120*wide+0.5):limit%=4
~:� result%=3 � result%=4 rmax%=�(137*wide+0.5):limit%=4
�.� result%=5 rmax%=�(160*wide+0.5):limit%=4
�.� result%=32 rmax%=�(40*wide+0.5):limit%=1
�.� result%=33 rmax%=�(48*wide+0.5):limit%=1
�.� result%=36 rmax%=�(68*wide+0.5):limit%=2
�.� result%=37 rmax%=�(80*wide+0.5):limit%=2
�X� rmax%=137 default%(9)=132 � � rmax%=68 � wide=1 default%(9)=66 � default%(9)=rmax%
�new=default%(9)
�.� on_off%(21) lm%=�(lm%*(new/present)+0.5)
�@� on_off%(22) rm%=�(rm%*(new/present)+0.5) � rm%=default%(9)
�� rm%>rmax% rm%=rmax%
�� lm%>=rm% lm%=rm%-limit%
��36,12)clear$;rm%
�36,11)clear$;lm%

present=new
�
:
(� �tidy
2*FX12,0
<
*FX4,0
F*FX229,0
P*FX225,1
Z�23,1,1;0;0;0;
d�
n:
x	�tidy
��:�" at line ";�
��
�:
�-� NLQ,Elite,Condensed,Enlarged,Emphasized
�/� Dble Strike,Italics,Superscript,Subscript
�%� Proportional,Underlined,UK Chrs
�(� Paper OUT on,Print mode,Char pitch
�0� Int char set,Form length in,Form length Ln
�2� Skip over perf,Line spc n/216,LH margin chrs
�-� RH margin chrs,Auto justify,Auto centre
�� RH align,Half speed
�:
�� 0,0,0,11,66,0,36,0
:
2� (USA),(French),(German),(English),(Danish I)
2� (Swedish I),(Italian),(Spanish I),(Japanese)
";� (Norwegian),(Danish II),(Spanish II),(Latin American)
,,� (French Canadian),(Dutch),(Swedish II)
62� (Swedish III),(Turkish),(Swiss I),(Swiss II)
@:
J)� (10 cpi),(12 cpi),(15 cpi),(17 cpi)
�

00000000  0d 00 0a 12 f4 20 45 61  73 79 20 50 72 69 6e 74  |..... Easy Print|
00000010  65 72 0d 00 14 1b f4 20  62 79 20 4c 65 73 6c 69  |er..... by Lesli|
00000020  65 20 4a 20 47 6f 6f 64  72 69 64 67 65 0d 00 1e  |e J Goodridge...|
00000030  17 f4 20 28 63 29 20 45  6c 65 63 74 72 6f 6e 20  |.. (c) Electron |
00000040  55 73 65 72 0d 00 28 05  3a 0d 00 32 0d ee 20 85  |User..(.:..2.. .|
00000050  20 e5 8d 44 78 4f 0d 00  3c 34 f4 20 55 6e 74 69  | ..DxO..<4. Unti|
00000060  6c 20 64 65 2d 62 75 67  67 65 64 20 61 64 64 20  |l de-bugged add |
00000070  52 45 4d 73 20 74 6f 20  74 68 65 20 6e 65 78 74  |REMs to the next|
00000080  20 74 77 6f 20 6c 69 6e  65 73 0d 00 46 16 2a 4b  | two lines..F.*K|
00000090  45 59 31 30 20 4f 4c 44  7c 4d 20 52 55 4e 7c 4d  |EY10 OLD|M RUN|M|
000000a0  0d 00 50 0c 2a 46 58 32  32 39 2c 31 0d 00 5a 05  |..P.*FX229,1..Z.|
000000b0  3a 0d 00 64 08 eb 36 3a  db 0d 00 6e 0e ef 31 39  |:..d..6:...n..19|
000000c0  2c 31 2c 36 3b 30 3b 0d  00 78 12 ef 32 33 2c 31  |,1,6;0;..x..23,1|
000000d0  2c 30 3b 30 3b 30 3b 30  3b 0d 00 82 12 f2 63 68  |,0;0;0;0;.....ch|
000000e0  65 63 6b 5f 70 72 69 6e  74 65 72 0d 00 8c 05 d8  |eck_printer.....|
000000f0  0d 00 96 0a f2 73 65 74  75 70 0d 00 a0 0b f2 73  |.....setup.....s|
00000100  63 72 65 65 6e 0d 00 aa  12 65 78 69 74 3d a3 3a  |creen....exit=.:|
00000110  72 65 73 65 74 3d a3 0d  00 b4 05 f5 0d 00 be 11  |reset=..........|
00000120  f2 63 6c 65 61 72 5f 77  69 6e 64 6f 77 0d 00 c8  |.clear_window...|
00000130  10 f2 6d 65 6e 75 5f 63  68 6f 69 63 65 0d 00 d2  |..menu_choice...|
00000140  12 fd 20 65 78 69 74 20  84 20 72 65 73 65 74 0d  |.. exit . reset.|
00000150  00 dc 11 e7 20 72 65 73  65 74 20 e5 8d 74 4c 40  |.... reset ..tL@|
00000160  0d 00 e6 09 db 3a ef 32  30 0d 00 f0 16 f1 8a 35  |.....:.20......5|
00000170  2c 31 30 29 22 45 78 69  74 20 74 6f 20 3a 22 0d  |,10)"Exit to :".|
00000180  00 fa 17 f1 8a 31 34 2c  31 32 29 22 31 2e 2e 2e  |.....14,12)"1...|
00000190  42 41 53 49 43 22 0d 01  04 16 f1 8a 31 34 2c 31  |BASIC"......14,1|
000001a0  33 29 22 32 2e 2e 2e 56  49 45 57 22 0d 01 0e 1b  |3)"2...VIEW"....|
000001b0  f1 8a 31 34 2c 31 34 29  22 33 2e 2e 2e 56 49 45  |..14,14)"3...VIE|
000001c0  57 53 48 45 45 54 22 0d  01 18 05 f5 0d 01 22 0b  |WSHEET".......".|
000001d0  2a 46 58 32 31 2c 30 0d  01 2c 0b 65 78 69 74 24  |*FX21,0..,.exit$|
000001e0  3d be 0d 01 36 17 65 78  69 74 25 3d a7 22 31 32  |=...6.exit%=."12|
000001f0  33 22 2c 65 78 69 74 24  29 0d 01 40 0b fd 20 65  |3",exit$)..@.. e|
00000200  78 69 74 25 0d 01 4a 0b  f2 74 69 64 79 3a db 0d  |xit%..J..tidy:..|
00000210  01 54 1b ee 20 65 78 69  74 25 20 e5 8d 44 5e 41  |.T.. exit% ..D^A|
00000220  2c 8d 44 68 41 2c 8d 44  72 41 0d 01 5e 10 ff 28  |,.DhA,.DrA..^..(|
00000230  22 62 61 73 69 63 22 29  3a e0 0d 01 68 0f ff 28  |"basic"):...h..(|
00000240  22 77 6f 72 64 22 29 3a  e0 0d 01 72 10 ff 28 22  |"word"):...r..("|
00000250  73 68 65 65 74 22 29 3a  e0 0d 01 7c 05 3a 0d 01  |sheet"):...|.:..|
00000260  86 0c dd 20 f2 73 65 74  75 70 0d 01 90 22 ef 32  |... .setup...".2|
00000270  2c 31 2c 32 37 2c 31 2c  36 34 2c 33 3a f4 20 52  |,1,27,1,64,3:. R|
00000280  65 73 65 74 20 50 72 69  6e 74 65 72 0d 01 9a 0b  |eset Printer....|
00000290  2a 46 58 31 31 2c 30 0d  01 a4 0a 2a 46 58 34 2c  |*FX11,0....*FX4,|
000002a0  31 0d 01 ae 0e 2a 46 58  32 32 35 2c 31 32 38 0d  |1....*FX225,128.|
000002b0  01 b8 20 77 69 64 65 3d  3f 26 37 30 2f 31 30 3a  |.. wide=?&70/10:|
000002c0  e7 20 77 69 64 65 3d 30  20 77 69 64 65 3d 31 0d  |. wide=0 wide=1.|
000002d0  01 c2 3d 6c 6d 25 3d 30  3a 72 6d 25 3d a8 28 38  |..=lm%=0:rm%=.(8|
000002e0  30 2a 77 69 64 65 2b 30  2e 35 29 3a 72 6d 61 78  |0*wide+0.5):rmax|
000002f0  25 3d 72 6d 25 3a 6c 69  6d 69 74 25 3d 32 3a 70  |%=rm%:limit%=2:p|
00000300  72 65 73 65 6e 74 3d 72  6d 61 78 25 0d 01 cc 27  |resent=rmax%...'|
00000310  61 6c 70 68 61 24 3d 22  41 42 43 44 45 46 47 48  |alpha$="ABCDEFGH|
00000320  49 4a 4b 4c 4d 4e 4f 50  51 52 53 54 55 56 57 58  |IJKLMNOPQRSTUVWX|
00000330  59 5a 22 0d 01 d6 20 76  61 6c 69 64 24 3d 61 6c  |YZ"... valid$=al|
00000340  70 68 61 24 2b bd 31 32  39 2b bd 31 33 33 2b bd  |pha$+.129+.133+.|
00000350  31 33 37 0d 01 e0 16 6e  75 6d 65 72 69 63 3d 31  |137....numeric=1|
00000360  3a 73 74 72 69 6e 67 3d  30 0d 01 ea 15 70 72 69  |:string=0....pri|
00000370  6e 74 65 72 24 3d c4 32  35 2c 22 20 22 29 0d 01  |nter$=.25," ")..|
00000380  f4 24 66 69 6e 61 6c 24  3d 70 72 69 6e 74 65 72  |.$final$=printer|
00000390  24 3a 63 68 61 6e 67 65  24 3d 70 72 69 6e 74 65  |$:change$=printe|
000003a0  72 24 0d 01 fe 17 64 65  6c 65 74 65 24 3d bd 31  |r$....delete$=.1|
000003b0  32 37 2b 22 2e 22 2b bd  38 0d 02 08 19 63 6c 65  |27+"."+.8....cle|
000003c0  61 72 24 3d c4 33 2c 22  20 22 29 2b c4 33 2c bd  |ar$=.3," ")+.3,.|
000003d0  38 29 0d 02 12 49 de 20  73 65 6c 65 63 74 69 6f  |8)...I. selectio|
000003e0  6e 24 28 32 36 29 2c 6f  6e 5f 6f 66 66 25 28 32  |n$(26),on_off%(2|
000003f0  36 29 2c 64 65 66 61 75  6c 74 25 28 39 29 2c 61  |6),default%(9),a|
00000400  6c 74 25 28 33 29 2c 63  6f 75 6e 74 72 79 24 28  |lt%(3),country$(|
00000410  31 39 29 2c 63 70 69 24  28 33 29 0d 02 1c 2a e2  |19),cpi$(3)...*.|
00000420  31 2c 31 2c 31 33 2c 32  2c 31 2c 31 2c 31 2c 32  |1,1,13,2,1,1,1,2|
00000430  2c 31 32 36 2c 30 2c 30  2c 2d 31 32 36 2c 31 32  |,126,0,0,-126,12|
00000440  36 2c 31 32 36 0d 02 26  0a f7 20 8d 74 60 4f 0d  |6,126..&.. .t`O.|
00000450  02 30 0e e3 49 25 3d 31  20 b8 20 32 36 0d 02 3a  |.0..I%=1 . 26..:|
00000460  14 f3 20 73 65 6c 65 63  74 69 6f 6e 24 28 49 25  |.. selection$(I%|
00000470  29 0d 02 44 11 6f 6e 5f  6f 66 66 25 28 49 25 29  |)..D.on_off%(I%)|
00000480  3d 30 0d 02 4e 05 ed 0d  02 58 0a f7 20 8d 64 7a  |=0..N....X.. .dz|
00000490  4f 0d 02 62 0e e3 20 49  25 3d 31 20 b8 20 38 0d  |O..b.. I%=1 . 8.|
000004a0  02 6c 12 f3 20 64 65 66  61 75 6c 74 25 28 49 25  |.l.. default%(I%|
000004b0  29 0d 02 76 05 ed 0d 02  80 13 64 65 66 61 75 6c  |)..v......defaul|
000004c0  74 25 28 39 29 3d 72 6d  25 0d 02 8a 0e e3 20 49  |t%(9)=rm%..... I|
000004d0  25 3d 31 20 b8 20 33 0d  02 94 0e 61 6c 74 25 28  |%=1 . 3....alt%(|
000004e0  49 25 29 3d 30 0d 02 9e  05 ed 0d 02 a8 0e 61 6c  |I%)=0.........al|
000004f0  74 25 28 30 29 3d 33 36  0d 02 b2 0a f7 20 8d 54  |t%(0)=36..... .T|
00000500  4e 50 0d 02 bc 0f e3 20  49 25 3d 30 20 b8 20 31  |NP..... I%=0 . 1|
00000510  39 0d 02 c6 12 f3 20 63  6f 75 6e 74 72 79 24 28  |9..... country$(|
00000520  49 25 29 0d 02 d0 05 ed  0d 02 da 0a f7 20 8d 44  |I%).......... .D|
00000530  4a 50 0d 02 e4 0e e3 20  49 25 3d 30 20 b8 20 33  |JP..... I%=0 . 3|
00000540  0d 02 ee 0e f3 20 63 70  69 24 28 49 25 29 0d 02  |..... cpi$(I%)..|
00000550  f8 05 ed 0d 03 02 05 e1  0d 03 0c 05 3a 0d 03 16  |............:...|
00000560  14 dd 20 f2 63 68 65 63  6b 5f 70 72 69 6e 74 65  |.. .check_printe|
00000570  72 0d 03 20 3b 3f 26 37  30 3d 30 3a e7 20 a4 79  |r.. ;?&70=0:. .y|
00000580  6e 28 22 57 69 64 65 20  43 61 72 72 69 61 67 65  |n("Wide Carriage|
00000590  20 50 72 69 6e 74 65 72  20 59 2f 4e 3f 22 2c 37  | Printer Y/N?",7|
000005a0  2c 31 32 29 20 3f 26 37  30 3d 31 37 0d 03 2a 39  |,12) ?&70=17..*9|
000005b0  79 65 73 3d a4 79 6e 28  22 49 73 20 50 72 69 6e  |yes=.yn("Is Prin|
000005c0  74 65 72 20 73 65 74 20  66 6f 72 20 61 75 74 6f  |ter set for auto|
000005d0  20 6c 69 6e 65 66 65 65  64 20 59 2f 4e 3f 22 2c  | linefeed Y/N?",|
000005e0  31 2c 31 32 29 0d 03 34  22 e7 20 79 65 73 20 ff  |1,12)..4". yes .|
000005f0  28 22 66 78 36 2c 31 30  22 29 20 8b 20 ff 28 22  |("fx6,10") . .("|
00000600  66 78 36 2c 30 22 29 0d  03 3e 05 db 0d 03 48 34  |fx6,0")..>....H4|
00000610  f1 8a 30 2c 31 30 29 22  4d 61 6b 65 20 73 75 72  |..0,10)"Make sur|
00000620  65 20 20 79 6f 75 72 20  70 72 69 6e 74 65 72 20  |e  your printer |
00000630  69 73 20 20 73 77 69 74  63 68 65 64 20 6f 6e 22  |is  switched on"|
00000640  0d 03 52 34 f1 8a 30 2c  31 32 29 22 61 6e 64 20  |..R4..0,12)"and |
00000650  6f 6e 20 6c 69 6e 65 20  6f 72 20 74 68 65 20 70  |on line or the p|
00000660  72 6f 67 72 61 6d 20 77  69 6c 6c 20 68 61 6e 67  |rogram will hang|
00000670  20 75 70 22 0d 03 5c 25  f1 8a 38 2c 31 36 29 22  | up"..\%..8,16)"|
00000680  50 72 65 73 73 20 61 6e  79 20 6b 65 79 20 77 68  |Press any key wh|
00000690  65 6e 20 72 65 61 64 79  22 0d 03 66 17 ff 28 22  |en ready"..f..("|
000006a0  66 78 32 31 2c 30 22 29  3a 6b 65 79 3d a5 3a e1  |fx21,0"):key=.:.|
000006b0  0d 03 70 05 3a 0d 03 7a  13 dd 20 f2 63 6c 65 61  |..p.:..z.. .clea|
000006c0  72 5f 77 69 6e 64 6f 77  0d 03 84 18 ef 32 38 2c  |r_window.....28,|
000006d0  30 2c 32 34 2c 33 39 2c  31 39 2c 31 32 2c 32 36  |0,24,39,19,12,26|
000006e0  0d 03 8e 05 e1 0d 03 98  05 3a 0d 03 a2 0d dd 20  |.........:..... |
000006f0  f2 73 63 72 65 65 6e 0d  03 ac 05 db 0d 03 b6 19  |.screen.........|
00000700  f1 8a 31 34 2c 30 29 22  45 41 53 59 20 50 52 49  |..14,0)"EASY PRI|
00000710  4e 54 45 52 22 0d 03 c0  19 f1 8a 31 34 2c 31 29  |NTER"......14,1)|
00000720  22 7e 7e 7e 7e 20 7e 7e  7e 7e 7e 7e 7e 22 0d 03  |"~~~~ ~~~~~~~"..|
00000730  ca 17 f1 8a 31 35 2c 32  29 22 2a 2a 20 4d 65 6e  |....15,2)"** Men|
00000740  75 20 2a 2a 22 0d 03 d4  12 e3 20 69 74 65 6d 25  |u **"..... item%|
00000750  3d 31 20 b8 20 32 36 0d  03 de 17 6c 65 74 74 65  |=1 . 26....lette|
00000760  72 24 3d bd 28 36 34 2b  69 74 65 6d 25 29 0d 03  |r$=.(64+item%)..|
00000770  e8 2f e7 20 69 74 65 6d  25 3c 31 34 20 63 6f 6c  |./. item%<14 col|
00000780  25 3d 31 3a 72 6f 77 25  3d 33 20 8b 20 63 6f 6c  |%=1:row%=3 . col|
00000790  25 3d 31 39 3a 72 6f 77  25 3d 2d 31 30 0d 03 f2  |%=19:row%=-10...|
000007a0  35 f1 8a 63 6f 6c 25 2c  69 74 65 6d 25 2b 72 6f  |5..col%,item%+ro|
000007b0  77 25 29 3b 6c 65 74 74  65 72 24 3b 22 2e 22 3b  |w%);letter$;".";|
000007c0  73 65 6c 65 63 74 69 6f  6e 24 28 69 74 65 6d 25  |selection$(item%|
000007d0  29 3b 0d 03 fc 1a e7 20  69 74 65 6d 25 3d 31 20  |);..... item%=1 |
000007e0  f1 22 20 28 44 72 61 66  74 29 22 3b 0d 04 06 19  |." (Draft)";....|
000007f0  e7 20 69 74 65 6d 25 3d  32 20 f1 22 20 28 50 69  |. item%=2 ." (Pi|
00000800  63 61 29 22 3b 0d 04 10  17 e7 20 69 74 65 6d 25  |ca)";..... item%|
00000810  3d 31 32 20 f1 22 28 55  53 29 22 3b 0d 04 1a 3d  |=12 ."(US)";...=|
00000820  e7 20 69 74 65 6d 25 3e  31 33 20 80 20 69 74 65  |. item%>13 . ite|
00000830  6d 25 3c 32 33 20 f1 8a  33 36 2c 69 74 65 6d 25  |m%<23 ..36,item%|
00000840  2b 72 6f 77 25 29 3b 64  65 66 61 75 6c 74 25 28  |+row%);default%(|
00000850  69 74 65 6d 25 2d 31 33  29 0d 04 24 05 ed 0d 04  |item%-13)..$....|
00000860  2e 05 e1 0d 04 38 05 3a  0d 04 42 12 dd 20 f2 6d  |.....8.:..B.. .m|
00000870  65 6e 75 5f 63 68 6f 69  63 65 0d 04 4c 0b 63 6c  |enu_choice..L.cl|
00000880  61 73 68 3d a3 0d 04 56  27 f1 8a 37 2c 31 39 29  |ash=...V'..7,19)|
00000890  22 41 2d 5a 20 74 6f 20  73 65 74 20 50 72 69 6e  |"A-Z to set Prin|
000008a0  74 65 72 20 6f 70 74 69  6f 6e 73 22 0d 04 60 3d  |ter options"..`=|
000008b0  f1 8a 33 2c 32 31 29 22  66 31 3d 52 65 73 65 74  |..3,21)"f1=Reset|
000008c0  22 3a f1 8a 32 35 2c 32  31 29 22 66 35 3d 50 72  |":..25,21)"f5=Pr|
000008d0  69 6e 74 6f 75 74 22 3a  f1 8a 31 36 2c 32 33 29  |intout":..16,23)|
000008e0  22 66 39 3d 45 78 69 74  22 0d 04 6a 05 f5 0d 04  |"f9=Exit"..j....|
000008f0  74 0a 2a 46 58 32 30 32  0d 04 7e 0b 2a 46 58 32  |t.*FX202..~.*FX2|
00000900  31 2c 30 0d 04 88 0d 63  68 6f 69 63 65 24 3d be  |1,0....choice$=.|
00000910  0d 04 92 1c 63 68 6f 69  63 65 25 3d a7 76 61 6c  |....choice%=.val|
00000920  69 64 24 2c 63 68 6f 69  63 65 24 29 0d 04 9c 0c  |id$,choice$)....|
00000930  fd 63 68 6f 69 63 65 25  0d 04 a6 1c e7 20 63 68  |.choice%..... ch|
00000940  6f 69 63 65 24 3d bd 31  32 39 20 72 65 73 65 74  |oice$=.129 reset|
00000950  3d b9 3a e1 0d 04 b0 22  e7 20 63 68 6f 69 63 65  |=.:....". choice|
00000960  24 3d bd 31 33 33 20 f2  74 65 73 74 5f 70 72 69  |$=.133 .test_pri|
00000970  6e 74 65 72 3a e1 0d 04  ba 1e e7 20 63 68 6f 69  |nter:...... choi|
00000980  63 65 24 3d bd 31 33 37  20 f2 73 65 74 5f 65 78  |ce$=.137 .set_ex|
00000990  69 74 3a e1 0d 04 c4 48  e7 20 63 68 6f 69 63 65  |it:....H. choice|
000009a0  24 3e 3d 22 41 22 20 80  20 63 68 6f 69 63 65 24  |$>="A" . choice$|
000009b0  3c 3d 22 5a 22 20 ff 28  22 66 78 32 31 2c 33 22  |<="Z" .("fx21,3"|
000009c0  29 3a f2 63 68 61 6e 67  65 28 63 68 6f 69 63 65  |):.change(choice|
000009d0  25 29 3a e7 20 63 6c 61  73 68 20 e1 0d 04 ce 1f  |%):. clash .....|
000009e0  e7 20 a7 22 42 43 44 4e  4f 22 2c 63 68 6f 69 63  |. ."BCDNO",choic|
000009f0  65 24 29 20 f2 6d 61 72  67 69 6e 0d 04 d8 29 e7  |e$) .margin...).|
00000a00  20 63 68 6f 69 63 65 24  3c 22 4e 22 20 84 20 63  | choice$<"N" . c|
00000a10  68 6f 69 63 65 24 3e 22  56 22 20 e5 8d 44 6a 44  |hoice$>"V" ..DjD|
00000a20  20 8b 20 e1 0d 04 e2 05  e1 0d 04 ec 05 3a 0d 04  | . ..........:..|
00000a30  f6 13 dd 20 f2 74 65 73  74 5f 70 72 69 6e 74 65  |... .test_printe|
00000a40  72 0d 05 00 31 6f 74 68  65 72 3d 6f 6e 5f 6f 66  |r...1other=on_of|
00000a50  66 25 28 31 34 29 20 84  20 6f 6e 5f 6f 66 66 25  |f%(14) . on_off%|
00000a60  28 31 35 29 20 84 20 6f  6e 5f 6f 66 66 25 28 31  |(15) . on_off%(1|
00000a70  36 29 0d 05 0a 0c 65 73  63 61 70 65 3d a3 0d 05  |6)....escape=...|
00000a80  14 36 e7 20 c0 70 72 69  6e 74 65 72 24 2c 31 29  |.6. .printer$,1)|
00000a90  3c 3e 22 20 22 20 f2 63  68 61 6e 67 65 5f 70 72  |<>" " .change_pr|
00000aa0  69 6e 74 65 72 20 8b 20  f2 67 65 74 5f 70 72 69  |inter . .get_pri|
00000ab0  6e 74 65 72 0d 05 1e 0e  e7 20 65 73 63 61 70 65  |nter..... escape|
00000ac0  20 e1 0d 05 28 09 ef 32  2c 32 31 0d 05 32 10 f1  | ...(..2,21..2..|
00000ad0  22 54 68 69 73 20 69 73  20 22 3b 0d 05 3c 26 e7  |"This is ";..<&.|
00000ae0  20 6f 74 68 65 72 20 f2  6f 74 68 65 72 5f 74 65  | other .other_te|
00000af0  73 74 20 8b 20 f2 6e 6f  72 6d 61 6c 5f 74 65 73  |st . .normal_tes|
00000b00  74 0d 05 46 18 f1 22 6f  6e 20 74 68 65 20 22 3b  |t..F.."on the ";|
00000b10  70 72 69 6e 74 65 72 24  3b 0d 05 50 42 f1 22 20  |printer$;..PB." |
00000b20  77 69 74 68 20 64 65 73  63 65 6e 64 65 72 73 20  |with descenders |
00000b30  67 6a 70 71 79 20 61 6e  64 20 6c 69 6e 65 20 73  |gjpqy and line s|
00000b40  70 61 63 69 6e 67 20 22  3b 61 6c 74 25 28 30 29  |pacing ";alt%(0)|
00000b50  3b 22 2f 32 31 36 20 69  6e 2e 22 0d 05 5a 08 ef  |;"/216 in."..Z..|
00000b60  36 2c 33 0d 05 64 05 e1  0d 05 6e 05 3a 0d 05 78  |6,3..d....n.:..x|
00000b70  11 dd 20 f2 6f 74 68 65  72 5f 74 65 73 74 0d 05  |.. .other_test..|
00000b80  82 10 e3 20 49 25 3d 31  34 20 b8 20 31 36 0d 05  |... I%=14 . 16..|
00000b90  8c 36 e7 20 6f 6e 5f 6f  66 66 25 28 49 25 29 20  |.6. on_off%(I%) |
00000ba0  f1 20 73 65 6c 65 63 74  69 6f 6e 24 28 49 25 29  |. selection$(I%)|
00000bb0  3b 22 20 22 3b 61 6c 74  25 28 49 25 2d 31 33 29  |;" ";alt%(I%-13)|
00000bc0  22 20 22 3b 0d 05 96 1f  e7 20 49 25 3d 31 34 20  |" ";..... I%=14 |
00000bd0  80 20 6f 6e 5f 6f 66 66  25 28 49 25 29 20 f2 6d  |. on_off%(I%) .m|
00000be0  6f 64 65 0d 05 a0 31 e7  20 49 25 3d 31 35 20 80  |ode...1. I%=15 .|
00000bf0  20 6f 6e 5f 6f 66 66 25  28 49 25 29 20 f1 20 63  | on_off%(I%) . c|
00000c00  70 69 24 28 61 6c 74 25  28 49 25 2d 31 33 29 29  |pi$(alt%(I%-13))|
00000c10  22 20 22 3b 0d 05 aa 40  e7 20 49 25 3d 31 36 20  |" ";...@. I%=16 |
00000c20  80 20 6f 6e 5f 6f 66 66  25 28 49 25 29 20 f1 20  |. on_off%(I%) . |
00000c30  63 6f 75 6e 74 72 79 24  28 61 6c 74 25 28 49 25  |country$(alt%(I%|
00000c40  2d 31 33 29 29 22 3a 2d  20 22 3b 3a f2 61 6c 66  |-13))":- ";:.alf|
00000c50  61 62 65 74 0d 05 b4 05  ed 0d 05 be 18 f1 22 69  |abet.........."i|
00000c60  6e 20 22 3b 3a f2 6e 6f  72 6d 61 6c 5f 74 65 73  |n ";:.normal_tes|
00000c70  74 0d 05 c8 05 e1 0d 05  d2 05 3a 0d 05 dc 12 dd  |t.........:.....|
00000c80  20 f2 6e 6f 72 6d 61 6c  5f 74 65 73 74 0d 05 e6  | .normal_test...|
00000c90  22 62 6f 74 68 3d 6f 6e  5f 6f 66 66 25 28 31 34  |"both=on_off%(14|
00000ca0  29 20 84 20 6f 6e 5f 6f  66 66 25 28 31 35 29 0d  |) . on_off%(15).|
00000cb0  05 f0 11 e3 20 73 65 74  25 3d 31 20 b8 20 31 32  |.... set%=1 . 12|
00000cc0  0d 05 fa 49 e7 20 73 65  74 25 3d 31 20 80 20 6f  |...I. set%=1 . o|
00000cd0  6e 5f 6f 66 66 25 28 73  65 74 25 29 20 f1 20 73  |n_off%(set%) . s|
00000ce0  65 6c 65 63 74 69 6f 6e  24 28 73 65 74 25 29 3b  |election$(set%);|
00000cf0  22 20 22 3b 8b 20 e7 20  73 65 74 25 3d 31 20 f1  |" ";. . set%=1 .|
00000d00  22 44 72 61 66 74 20 22  3b 0d 06 04 67 e7 20 73  |"Draft ";...g. s|
00000d10  65 74 25 3d 32 20 80 20  6f 6e 5f 6f 66 66 25 28  |et%=2 . on_off%(|
00000d20  73 65 74 25 29 20 f1 20  73 65 6c 65 63 74 69 6f  |set%) . selectio|
00000d30  6e 24 28 73 65 74 25 29  3b 22 20 22 3b 8b 20 e7  |n$(set%);" ";. .|
00000d40  20 73 65 74 25 3d 32 20  80 20 62 6f 74 68 20 f1  | set%=2 . both .|
00000d50  22 22 3b 8b 20 e7 20 73  65 74 25 3d 32 20 80 20  |"";. . set%=2 . |
00000d60  ac 20 62 6f 74 68 20 f1  22 50 69 63 61 20 22 3b  |. both ."Pica ";|
00000d70  0d 06 0e 81 e7 20 73 65  74 25 3d 31 32 20 80 20  |..... set%=12 . |
00000d80  6f 6e 5f 6f 66 66 25 28  73 65 74 25 29 20 f1 20  |on_off%(set%) . |
00000d90  73 65 6c 65 63 74 69 6f  6e 24 28 73 65 74 25 29  |selection$(set%)|
00000da0  3b 22 20 22 3b 8b 20 e7  20 73 65 74 25 3d 31 32  |;" ";. . set%=12|
00000db0  20 80 20 6f 6e 5f 6f 66  66 25 28 31 36 29 3d 30  | . on_off%(16)=0|
00000dc0  20 f1 22 55 53 20 43 68  72 73 20 22 3b 8b 20 e7  | ."US Chrs ";. .|
00000dd0  73 65 74 25 3d 31 32 20  80 20 6f 6e 5f 6f 66 66  |set%=12 . on_off|
00000de0  25 28 31 36 29 3d 31 20  f1 22 43 68 72 73 20 22  |%(16)=1 ."Chrs "|
00000df0  3b 0d 06 18 3e e7 20 73  65 74 25 3e 32 20 80 20  |;...>. set%>2 . |
00000e00  73 65 74 25 3c 31 32 20  80 20 6f 6e 5f 6f 66 66  |set%<12 . on_off|
00000e10  25 28 73 65 74 25 29 20  f1 20 73 65 6c 65 63 74  |%(set%) . select|
00000e20  69 6f 6e 24 28 73 65 74  25 29 3b 22 20 22 3b 0d  |ion$(set%);" ";.|
00000e30  06 22 05 ed 0d 06 2c 05  e1 0d 06 36 05 3a 0d 06  |."....,....6.:..|
00000e40  40 0e dd 20 f2 61 6c 66  61 62 65 74 0d 06 4a 11  |@.. .alfabet..J.|
00000e50  e3 20 49 25 3d 33 33 20  b8 20 31 32 36 0d 06 54  |. I%=33 . 126..T|
00000e60  0c f1 20 bd 28 49 25 29  3b 0d 06 5e 05 ed 0d 06  |.. .(I%);..^....|
00000e70  68 09 f1 22 20 22 3b 0d  06 72 05 e1 0d 06 7c 05  |h.." ";..r....|.|
00000e80  3a 0d 06 86 15 dd 20 f2  63 68 61 6e 67 65 5f 70  |:..... .change_p|
00000e90  72 69 6e 74 65 72 0d 06  90 11 f2 63 6c 65 61 72  |rinter.....clear|
00000ea0  5f 77 69 6e 64 6f 77 0d  06 9a 39 e7 20 ac 20 a4  |_window...9. . .|
00000eb0  79 6e 28 22 43 68 61 6e  67 65 20 50 72 69 6e 74  |yn("Change Print|
00000ec0  65 72 20 59 2f 4e 3f 22  2c 31 30 2c 32 30 29 20  |er Y/N?",10,20) |
00000ed0  e1 20 8b 20 f2 67 65 74  5f 70 72 69 6e 74 65 72  |. . .get_printer|
00000ee0  0d 06 a4 05 e1 0d 06 ae  05 3a 0d 06 b8 12 dd 20  |.........:..... |
00000ef0  f2 67 65 74 5f 70 72 69  6e 74 65 72 0d 06 c2 11  |.get_printer....|
00000f00  f2 63 6c 65 61 72 5f 77  69 6e 64 6f 77 0d 06 cc  |.clear_window...|
00000f10  1e f1 8a 31 32 2c 32 33  29 22 45 73 63 61 70 65  |...12,23)"Escape|
00000f20  20 74 6f 20 61 62 68 6f  72 74 22 0d 06 d6 1c f1  | to abhort".....|
00000f30  8a 30 2c 32 30 29 22 50  72 69 6e 74 65 72 20 6e  |.0,20)"Printer n|
00000f40  61 6d 65 3a 20 22 3b 0d  06 e0 0c 65 73 63 61 70  |ame: ";....escap|
00000f50  65 3d a3 0d 06 ea 21 63  68 61 6e 67 65 24 3d a4  |e=....!change$=.|
00000f60  67 65 74 5f 69 6e 70 75  74 28 32 35 2c 73 74 72  |get_input(25,str|
00000f70  69 6e 67 29 0d 06 f4 21  e7 20 65 73 63 61 70 65  |ing)...!. escape|
00000f80  20 e1 20 8b 20 70 72 69  6e 74 65 72 24 3d 63 68  | . . printer$=ch|
00000f90  61 6e 67 65 24 0d 06 fe  05 e1 0d 07 08 05 3a 0d  |ange$.........:.|
00000fa0  07 12 0f dd 20 f2 73 65  74 5f 65 78 69 74 0d 07  |.... .set_exit..|
00000fb0  1c 11 f2 63 6c 65 61 72  5f 77 69 6e 64 6f 77 0d  |...clear_window.|
00000fc0  07 26 1f 65 78 69 74 3d  a4 79 6e 28 22 45 78 69  |.&.exit=.yn("Exi|
00000fd0  74 20 59 2f 4e 3f 22 2c  31 35 2c 32 30 29 0d 07  |t Y/N?",15,20)..|
00000fe0  30 05 e1 0d 07 3a 05 3a  0d 07 44 16 dd 20 f2 63  |0....:.:..D.. .c|
00000ff0  68 61 6e 67 65 28 63 68  6f 69 63 65 25 29 0d 07  |hange(choice%)..|
00001000  4e 55 f2 63 68 65 63 6b  5f 63 6c 61 73 68 3a e7  |NU.check_clash:.|
00001010  20 63 6c 61 73 68 20 f2  63 6c 65 61 72 5f 77 69  | clash .clear_wi|
00001020  6e 64 6f 77 3a ef 37 3a  f1 8a 31 30 2c 32 31 29  |ndow:.7:..10,21)|
00001030  22 21 43 6f 6e 74 72 6f  6c 20 43 6f 64 65 20 43  |"!Control Code C|
00001040  6c 61 73 68 21 22 3a f2  77 61 69 74 28 31 35 30  |lash!":.wait(150|
00001050  29 3a e1 0d 07 58 27 6f  6e 5f 6f 66 66 25 28 63  |):...X'on_off%(c|
00001060  68 6f 69 63 65 25 29 3d  6f 6e 5f 6f 66 66 25 28  |hoice%)=on_off%(|
00001070  63 68 6f 69 63 65 25 29  82 31 0d 07 62 41 e7 20  |choice%).1..bA. |
00001080  6f 6e 5f 6f 66 66 25 28  63 68 6f 69 63 65 25 29  |on_off%(choice%)|
00001090  20 f2 63 68 61 6e 67 65  5f 6f 6e 28 63 68 6f 69  | .change_on(choi|
000010a0  63 65 25 29 20 8b 20 f2  63 68 61 6e 67 65 5f 6f  |ce%) . .change_o|
000010b0  66 66 28 63 68 6f 69 63  65 25 29 0d 07 6c 05 e1  |ff(choice%)..l..|
000010c0  0d 07 76 05 3a 0d 07 80  1b dd 20 a4 79 6e 28 6d  |..v.:..... .yn(m|
000010d0  65 73 73 61 67 65 24 2c  63 6f 6c 2c 72 6f 77 29  |essage$,col,row)|
000010e0  0d 07 8a 17 f1 20 8a 63  6f 6c 2c 72 6f 77 29 6d  |..... .col,row)m|
000010f0  65 73 73 61 67 65 24 0d  07 94 05 f5 0d 07 9e 0b  |essage$.........|
00001100  2a 46 58 32 31 2c 30 0d  07 a8 13 61 6e 73 24 3d  |*FX21,0....ans$=|
00001110  bd 28 a5 20 80 20 26 44  46 29 0d 07 b2 11 fd 20  |.(. . &DF)..... |
00001120  a7 22 59 4e 22 2c 61 6e  73 24 29 0d 07 bc 14 e7  |."YN",ans$).....|
00001130  20 61 6e 73 24 3d 22 59  22 3d b9 20 8b 3d a3 0d  | ans$="Y"=. .=..|
00001140  07 c6 05 3a 0d 07 d0 1b  dd 20 a4 67 65 74 5f 69  |...:..... .get_i|
00001150  6e 70 75 74 28 6c 65 6e  25 2c 74 79 70 65 29 0d  |nput(len%,type).|
00001160  07 da 37 e7 20 74 79 70  65 3d 6e 75 6d 65 72 69  |..7. type=numeri|
00001170  63 20 66 69 72 73 74 3d  34 38 3a 6c 61 73 74 3d  |c first=48:last=|
00001180  35 37 20 8b 20 66 69 72  73 74 3d 33 32 3a 6c 61  |57 . first=32:la|
00001190  73 74 3d 31 32 36 0d 07  e4 1f 73 74 61 72 74 24  |st=126....start$|
000011a0  3d c4 6c 65 6e 25 2c 22  2e 22 29 2b c4 6c 65 6e  |=.len%,".")+.len|
000011b0  25 2c bd 38 29 0d 07 ee  0d 66 69 6e 61 6c 24 3d  |%,.8)....final$=|
000011c0  22 22 0d 07 f8 12 ef 32  33 2c 31 2c 31 3b 30 3b  |"".....23,1,1;0;|
000011d0  30 3b 30 3b 0d 08 02 0d  f1 20 73 74 61 72 74 24  |0;0;..... start$|
000011e0  3b 0d 08 0c 05 f5 0d 08  16 0b 2a 46 58 32 31 2c  |;.........*FX21,|
000011f0  30 0d 08 20 1c 69 6e 70  75 74 24 3d be 3a 69 6e  |0.. .input$=.:in|
00001200  70 75 74 3d 97 28 69 6e  70 75 74 24 29 0d 08 2a  |put=.(input$)..*|
00001210  1e e7 69 6e 70 75 74 24  3d bd 32 37 20 65 73 63  |..input$=.27 esc|
00001220  61 70 65 3d b9 3a e5 8d  44 66 48 0d 08 34 23 e7  |ape=.:..DfH..4#.|
00001230  20 69 6e 70 75 74 24 3d  bd 31 33 20 80 20 66 69  | input$=.13 . fi|
00001240  6e 61 6c 24 3c 3e 22 22  20 e5 8d 44 66 48 0d 08  |nal$<>"" ..DfH..|
00001250  3e 4c e7 20 69 6e 70 75  74 24 3d bd 31 32 37 20  |>L. input$=.127 |
00001260  80 20 a9 28 66 69 6e 61  6c 24 29 3e 30 20 66 69  |. .(final$)>0 fi|
00001270  6e 61 6c 24 3d c0 66 69  6e 61 6c 24 2c a9 28 66  |nal$=.final$,.(f|
00001280  69 6e 61 6c 24 29 2d 31  29 3a f1 20 64 65 6c 65  |inal$)-1):. dele|
00001290  74 65 24 3b 3a e5 8d 54  56 48 0d 08 48 38 e7 20  |te$;:..TVH..H8. |
000012a0  69 6e 70 75 74 3c 66 69  72 73 74 20 84 20 69 6e  |input<first . in|
000012b0  70 75 74 3e 6c 61 73 74  20 84 20 a9 28 66 69 6e  |put>last . .(fin|
000012c0  61 6c 24 29 3d 6c 65 6e  25 20 ef 37 3a e5 8d 54  |al$)=len% .7:..T|
000012d0  56 48 0d 08 52 0d f1 20  69 6e 70 75 74 24 3b 0d  |VH..R.. input$;.|
000012e0  08 5c 18 66 69 6e 61 6c  24 3d 66 69 6e 61 6c 24  |.\.final$=final$|
000012f0  2b 69 6e 70 75 74 24 0d  08 66 19 fd 20 69 6e 70  |+input$..f.. inp|
00001300  75 74 24 3d bd 31 33 20  84 20 65 73 63 61 70 65  |ut$=.13 . escape|
00001310  0d 08 70 12 ef 32 33 2c  31 2c 30 3b 30 3b 30 3b  |..p..23,1,0;0;0;|
00001320  30 3b 0d 08 7a 0b 3d 66  69 6e 61 6c 24 0d 08 84  |0;..z.=final$...|
00001330  05 3a 0d 08 8e 0b dd 20  f2 6d 6f 64 65 0d 08 98  |.:..... .mode...|
00001340  09 f1 22 28 22 3b 0d 08  a2 30 e7 20 61 6c 74 25  |.."(";...0. alt%|
00001350  28 31 29 20 80 20 31 20  f1 20 73 65 6c 65 63 74  |(1) . 1 . select|
00001360  69 6f 6e 24 28 32 29 22  20 22 3b 8b 20 f1 22 50  |ion$(2)" ";. ."P|
00001370  69 63 61 20 22 3b 0d 08  ac 25 e7 20 61 6c 74 25  |ica ";...%. alt%|
00001380  28 31 29 20 80 20 34 20  f1 20 73 65 6c 65 63 74  |(1) . 4 . select|
00001390  69 6f 6e 24 28 33 29 22  20 22 3b 0d 08 b6 26 e7  |ion$(3)" ";...&.|
000013a0  20 61 6c 74 25 28 31 29  20 80 20 33 32 20 f1 20  | alt%(1) . 32 . |
000013b0  73 65 6c 65 63 74 69 6f  6e 24 28 34 29 22 20 22  |selection$(4)" "|
000013c0  3b 0d 08 c0 25 e7 20 61  6c 74 25 28 31 29 20 80  |;...%. alt%(1) .|
000013d0  20 38 20 f1 20 73 65 6c  65 63 74 69 6f 6e 24 28  | 8 . selection$(|
000013e0  35 29 22 20 22 3b 0d 08  ca 26 e7 20 61 6c 74 25  |5)" ";...&. alt%|
000013f0  28 31 29 20 80 20 31 36  20 f1 20 73 65 6c 65 63  |(1) . 16 . selec|
00001400  74 69 6f 6e 24 28 36 29  22 20 22 3b 0d 08 d4 0a  |tion$(6)" ";....|
00001410  f1 22 29 20 22 3b 0d 08  de 05 e1 0d 08 e8 05 3a  |.") ";.........:|
00001420  0d 08 f2 1a dd 20 f2 63  68 61 6e 67 65 5f 6f 66  |..... .change_of|
00001430  66 28 63 68 6f 69 63 65  25 29 0d 08 fc 90 ee 20  |f(choice%)..... |
00001440  63 68 6f 69 63 65 25 20  e5 8d 54 46 49 2c 8d 54  |choice% ..TFI,.T|
00001450  50 49 2c 8d 54 5a 49 2c  8d 54 64 49 2c 8d 54 6e  |PI,.TZI,.TdI,.Tn|
00001460  49 2c 8d 54 78 49 2c 8d  44 42 49 2c 8d 44 4c 49  |I,.TxI,.DBI,.DLI|
00001470  2c 8d 44 56 49 2c 8d 44  60 49 2c 8d 44 6a 49 2c  |,.DVI,.D`I,.DjI,|
00001480  8d 44 74 49 2c 8d 44 7e  49 2c 8d 74 48 49 2c 8d  |.DtI,.D~I,.tHI,.|
00001490  74 52 49 2c 8d 74 5c 49  2c 8d 74 66 49 2c 8d 74  |tRI,.t\I,.tfI,.t|
000014a0  70 49 2c 8d 74 7a 49 2c  8d 64 44 49 2c 8d 64 4e  |pI,.tzI,.dDI,.dN|
000014b0  49 2c 8d 64 58 49 2c 8d  64 62 49 2c 8d 64 6c 49  |I,.dXI,.dbI,.dlI|
000014c0  2c 8d 64 76 49 2c 8d 54  40 4a 0d 09 06 1d ef 32  |,.dvI,.T@J.....2|
000014d0  2c 31 2c 32 37 2c 31 2c  31 32 30 2c 31 2c 30 2c  |,1,27,1,120,1,0,|
000014e0  33 3a e5 8d 54 4a 4a 0d  09 10 18 ef 32 2c 31 2c  |3:..TJJ.....2,1,|
000014f0  32 37 2c 31 2c 38 30 2c  33 3a e5 8d 54 4a 4a 0d  |27,1,80,3:..TJJ.|
00001500  09 1a 13 ef 32 2c 31 2c  31 38 2c 33 3a e5 8d 54  |....2,1,18,3:..T|
00001510  4a 4a 0d 09 24 1c ef 32  2c 31 2c 32 37 2c 31 2c  |JJ..$..2,1,27,1,|
00001520  38 37 2c 31 2c 30 2c 33  3a e5 8d 54 4a 4a 0d 09  |87,1,0,3:..TJJ..|
00001530  2e 18 ef 32 2c 31 2c 32  37 2c 31 2c 37 30 2c 33  |...2,1,27,1,70,3|
00001540  3a e5 8d 54 4a 4a 0d 09  38 18 ef 32 2c 31 2c 32  |:..TJJ..8..2,1,2|
00001550  37 2c 31 2c 37 32 2c 33  3a e5 8d 54 4a 4a 0d 09  |7,1,72,3:..TJJ..|
00001560  42 18 ef 32 2c 31 2c 32  37 2c 31 2c 35 33 2c 33  |B..2,1,27,1,53,3|
00001570  3a e5 8d 54 4a 4a 0d 09  4c 18 ef 32 2c 31 2c 32  |:..TJJ..L..2,1,2|
00001580  37 2c 31 2c 38 34 2c 33  3a e5 8d 54 4a 4a 0d 09  |7,1,84,3:..TJJ..|
00001590  56 18 ef 32 2c 31 2c 32  37 2c 31 2c 38 34 2c 33  |V..2,1,27,1,84,3|
000015a0  3a e5 8d 54 4a 4a 0d 09  60 1d ef 32 2c 31 2c 32  |:..TJJ..`..2,1,2|
000015b0  37 2c 31 2c 31 31 32 2c  31 2c 30 2c 33 3a e5 8d  |7,1,112,1,0,3:..|
000015c0  54 4a 4a 0d 09 6a 1c ef  32 2c 31 2c 32 37 2c 31  |TJJ..j..2,1,27,1|
000015d0  2c 34 35 2c 31 2c 30 2c  33 3a e5 8d 54 4a 4a 0d  |,45,1,0,3:..TJJ.|
000015e0  09 74 1c ef 32 2c 31 2c  32 37 2c 31 2c 38 32 2c  |.t..2,1,27,1,82,|
000015f0  31 2c 30 2c 33 3a e5 8d  54 4a 4a 0d 09 7e 21 ef  |1,0,3:..TJJ..~!.|
00001600  32 2c 31 2c 32 37 2c 31  2c 35 37 2c 33 3a 42 24  |2,1,27,1,57,3:B$|
00001610  3d 22 6f 6e 20 22 3a e5  8d 54 4a 4a 0d 09 88 1c  |="on ":..TJJ....|
00001620  ef 32 2c 31 2c 32 37 2c  31 2c 33 33 2c 31 2c 30  |.2,1,27,1,33,1,0|
00001630  2c 33 3a e5 8d 54 4a 4a  0d 09 92 1d ef 32 2c 31  |,3:..TJJ.....2,1|
00001640  2c 32 37 2c 31 2c 31 31  39 2c 31 2c 30 2c 33 3a  |,27,1,119,1,0,3:|
00001650  e5 8d 54 4a 4a 0d 09 9c  1c ef 32 2c 31 2c 32 37  |..TJJ.....2,1,27|
00001660  2c 31 2c 38 32 2c 31 2c  30 2c 33 3a e5 8d 54 4a  |,1,82,1,0,3:..TJ|
00001670  4a 0d 09 a6 21 ef 32 2c  31 2c 32 37 2c 31 2c 36  |J...!.2,1,27,1,6|
00001680  37 2c 31 2c 30 2c 31 2c  31 31 2c 33 3a e5 8d 54  |7,1,0,1,11,3:..T|
00001690  4a 4a 0d 09 b0 1d ef 32  2c 31 2c 32 37 2c 31 2c  |JJ.....2,1,27,1,|
000016a0  36 37 2c 31 2c 36 36 2c  33 3a e5 8d 54 4a 4a 0d  |67,1,66,3:..TJJ.|
000016b0  09 ba 18 ef 32 2c 31 2c  32 37 2c 31 2c 37 39 2c  |....2,1,27,1,79,|
000016c0  33 3a e5 8d 54 4a 4a 0d  09 c4 1d ef 32 2c 31 2c  |3:..TJJ.....2,1,|
000016d0  32 37 2c 31 2c 35 31 2c  31 2c 33 36 2c 33 3a e5  |27,1,51,1,36,3:.|
000016e0  8d 54 4a 4a 0d 09 ce 1d  ef 32 2c 31 2c 32 37 2c  |.TJJ.....2,1,27,|
000016f0  31 2c 31 30 38 2c 31 2c  30 2c 33 3a e5 8d 54 4a  |1,108,1,0,3:..TJ|
00001700  4a 0d 09 d8 26 ef 32 2c  31 2c 32 37 2c 31 2c 38  |J...&.2,1,27,1,8|
00001710  31 2c 31 2c 64 65 66 61  75 6c 74 25 28 39 29 2c  |1,1,default%(9),|
00001720  33 3a e5 8d 54 4a 4a 0d  09 e2 1c ef 32 2c 31 2c  |3:..TJJ.....2,1,|
00001730  32 37 2c 31 2c 39 37 2c  31 2c 30 2c 33 3a e5 8d  |27,1,97,1,0,3:..|
00001740  54 4a 4a 0d 09 ec 1c ef  32 2c 31 2c 32 37 2c 31  |TJJ.....2,1,27,1|
00001750  2c 39 37 2c 31 2c 30 2c  33 3a e5 8d 54 4a 4a 0d  |,97,1,0,3:..TJJ.|
00001760  09 f6 1c ef 32 2c 31 2c  32 37 2c 31 2c 39 37 2c  |....2,1,27,1,97,|
00001770  31 2c 30 2c 33 3a e5 8d  54 4a 4a 0d 0a 00 1d ef  |1,0,3:..TJJ.....|
00001780  32 2c 31 2c 32 37 2c 31  2c 31 31 35 2c 31 2c 30  |2,1,27,1,115,1,0|
00001790  2c 33 3a e5 8d 54 4a 4a  0d 0a 0a 40 e7 20 63 68  |,3:..TJJ...@. ch|
000017a0  6f 69 63 65 25 3c 31 34  20 84 20 63 68 6f 69 63  |oice%<14 . choic|
000017b0  65 25 3e 32 32 20 76 61  6c 25 3d 30 20 8b 20 76  |e%>22 val%=0 . v|
000017c0  61 6c 25 3d 64 65 66 61  75 6c 74 25 28 63 68 6f  |al%=default%(cho|
000017d0  69 63 65 25 2d 31 33 29  0d 0a 14 1c f2 70 72 69  |ice%-13).....pri|
000017e0  6e 74 28 63 68 6f 69 63  65 25 2c 76 61 6c 25 2c  |nt(choice%,val%,|
000017f0  22 20 22 29 0d 0a 1e 05  e1 0d 0a 28 05 3a 0d 0a  |" ").......(.:..|
00001800  32 1c dd f2 70 72 69 6e  74 28 63 68 6f 69 63 65  |2...print(choice|
00001810  25 2c 76 61 6c 25 2c 43  24 29 0d 0a 3c 22 e7 20  |%,val%,C$)..<". |
00001820  63 68 6f 69 63 65 25 3c  31 34 20 72 6f 77 25 3d  |choice%<14 row%=|
00001830  33 20 8b 20 72 6f 77 25  3d 2d 31 30 0d 0a 46 3b  |3 . row%=-10..F;|
00001840  e7 20 63 68 6f 69 63 65  25 3e 31 33 20 f1 8a 31  |. choice%>13 ..1|
00001850  38 2c 63 68 6f 69 63 65  25 2b 72 6f 77 25 29 43  |8,choice%+row%)C|
00001860  24 20 8b 20 f1 8a 30 2c  63 68 6f 69 63 65 25 2b  |$ . ..0,choice%+|
00001870  72 6f 77 25 29 43 24 0d  0a 50 3b e7 20 63 68 6f  |row%)C$..P;. cho|
00001880  69 63 65 25 3e 31 33 20  80 20 63 68 6f 69 63 65  |ice%>13 . choice|
00001890  25 3c 32 33 20 f1 8a 33  36 2c 63 68 6f 69 63 65  |%<23 ..36,choice|
000018a0  25 2b 72 6f 77 25 29 63  6c 65 61 72 24 3b 76 61  |%+row%)clear$;va|
000018b0  6c 25 0d 0a 5a 1b e7 20  63 68 6f 69 63 65 25 3d  |l%..Z.. choice%=|
000018c0  31 33 20 f1 8a 31 33 2c  31 36 29 42 24 0d 0a 64  |13 ..13,16)B$..d|
000018d0  1d e7 20 63 68 6f 69 63  65 25 3d 32 30 20 61 6c  |.. choice%=20 al|
000018e0  74 25 28 30 29 3d 76 61  6c 25 0d 0a 6e 19 e7 20  |t%(0)=val%..n.. |
000018f0  63 68 6f 69 63 65 25 3d  32 31 20 6c 6d 25 3d 76  |choice%=21 lm%=v|
00001900  61 6c 25 0d 0a 78 19 e7  20 63 68 6f 69 63 65 25  |al%..x.. choice%|
00001910  3d 32 32 20 72 6d 25 3d  76 61 6c 25 0d 0a 82 0e  |=22 rm%=val%....|
00001920  d4 31 2c 31 2c 31 37 38  2c 35 0d 0a 8c 05 e1 0d  |.1,1,178,5......|
00001930  0a 96 05 3a 0d 0a a0 18  dd f2 63 68 61 6e 67 65  |...:......change|
00001940  5f 6f 6e 28 63 68 6f 69  63 65 25 29 0d 0a aa 0c  |_on(choice%)....|
00001950  65 73 63 61 70 65 3d a3  0d 0a b4 31 e7 20 63 68  |escape=....1. ch|
00001960  6f 69 63 65 25 3e 31 33  20 80 20 63 68 6f 69 63  |oice%>13 . choic|
00001970  65 25 3c 32 33 20 f2 67  65 74 5f 76 61 6c 75 65  |e%<23 .get_value|
00001980  28 63 68 6f 69 63 65 25  29 0d 0a be 21 e7 20 65  |(choice%)...!. e|
00001990  73 63 61 70 65 20 6f 6e  5f 6f 66 66 25 28 63 68  |scape on_off%(ch|
000019a0  6f 69 63 65 25 29 3d 30  3a e1 0d 0a c8 35 e7 20  |oice%)=0:....5. |
000019b0  63 68 6f 69 63 65 25 3e  31 33 20 80 20 63 68 6f  |choice%>13 . cho|
000019c0  69 63 65 25 3c 31 37 20  61 6c 74 25 28 63 68 6f  |ice%<17 alt%(cho|
000019d0  69 63 65 25 2d 31 33 29  3d 76 61 6c 75 65 25 0d  |ice%-13)=value%.|
000019e0  0a d2 90 ee 20 63 68 6f  69 63 65 25 20 e5 8d 64  |.... choice% ..d|
000019f0  5c 4a 2c 8d 64 66 4a 2c  8d 64 70 4a 2c 8d 64 7a  |\J,.dfJ,.dpJ,.dz|
00001a00  4a 2c 8d 54 44 4b 2c 8d  54 4e 4b 2c 8d 54 58 4b  |J,.TDK,.TNK,.TXK|
00001a10  2c 8d 54 62 4b 2c 8d 54  6c 4b 2c 8d 54 76 4b 2c  |,.TbK,.TlK,.TvK,|
00001a20  8d 44 40 4b 2c 8d 44 4a  4b 2c 8d 44 54 4b 2c 8d  |.D@K,.DJK,.DTK,.|
00001a30  44 5e 4b 2c 8d 44 68 4b  2c 8d 44 72 4b 2c 8d 44  |D^K,.DhK,.DrK,.D|
00001a40  7c 4b 2c 8d 74 46 4b 2c  8d 74 50 4b 2c 8d 74 5a  ||K,.tFK,.tPK,.tZ|
00001a50  4b 2c 8d 74 64 4b 2c 8d  74 6e 4b 2c 8d 74 78 4b  |K,.tdK,.tnK,.txK|
00001a60  2c 8d 64 42 4b 2c 8d 64  4c 4b 2c 8d 64 56 4b 0d  |,.dBK,.dLK,.dVK.|
00001a70  0a dc 1d ef 32 2c 31 2c  32 37 2c 31 2c 31 32 30  |....2,1,27,1,120|
00001a80  2c 31 2c 31 2c 33 3a e5  8d 64 60 4b 0d 0a e6 18  |,1,1,3:..d`K....|
00001a90  ef 32 2c 31 2c 32 37 2c  31 2c 37 37 2c 33 3a e5  |.2,1,27,1,77,3:.|
00001aa0  8d 64 60 4b 0d 0a f0 18  ef 32 2c 31 2c 32 37 2c  |.d`K.....2,1,27,|
00001ab0  31 2c 31 35 2c 33 3a e5  8d 64 60 4b 0d 0a fa 1c  |1,15,3:..d`K....|
00001ac0  ef 32 2c 31 2c 32 37 2c  31 2c 38 37 2c 31 2c 31  |.2,1,27,1,87,1,1|
00001ad0  2c 33 3a e5 8d 64 60 4b  0d 0b 04 18 ef 32 2c 31  |,3:..d`K.....2,1|
00001ae0  2c 32 37 2c 31 2c 36 39  2c 33 3a e5 8d 64 60 4b  |,27,1,69,3:..d`K|
00001af0  0d 0b 0e 18 ef 32 2c 31  2c 32 37 2c 31 2c 37 31  |.....2,1,27,1,71|
00001b00  2c 33 3a e5 8d 64 60 4b  0d 0b 18 18 ef 32 2c 31  |,3:..d`K.....2,1|
00001b10  2c 32 37 2c 31 2c 35 32  2c 33 3a e5 8d 64 60 4b  |,27,1,52,3:..d`K|
00001b20  0d 0b 22 1c ef 32 2c 31  2c 32 37 2c 31 2c 38 33  |.."..2,1,27,1,83|
00001b30  2c 31 2c 30 2c 33 3a e5  8d 64 60 4b 0d 0b 2c 1c  |,1,0,3:..d`K..,.|
00001b40  ef 32 2c 31 2c 32 37 2c  31 2c 38 33 2c 31 2c 31  |.2,1,27,1,83,1,1|
00001b50  2c 33 3a e5 8d 64 60 4b  0d 0b 36 1d ef 32 2c 31  |,3:..d`K..6..2,1|
00001b60  2c 32 37 2c 31 2c 31 31  32 2c 31 2c 31 2c 33 3a  |,27,1,112,1,1,3:|
00001b70  e5 8d 64 60 4b 0d 0b 40  1c ef 32 2c 31 2c 32 37  |..d`K..@..2,1,27|
00001b80  2c 31 2c 34 35 2c 31 2c  31 2c 33 3a e5 8d 64 60  |,1,45,1,1,3:..d`|
00001b90  4b 0d 0b 4a 1c ef 32 2c  31 2c 32 37 2c 31 2c 38  |K..J..2,1,27,1,8|
00001ba0  32 2c 31 2c 33 2c 33 3a  e5 8d 64 60 4b 0d 0b 54  |2,1,3,3:..d`K..T|
00001bb0  21 ef 32 2c 31 2c 32 37  2c 31 2c 35 36 2c 33 3a  |!.2,1,27,1,56,3:|
00001bc0  42 24 3d 22 6f 66 66 22  3a e5 8d 64 60 4b 0d 0b  |B$="off":..d`K..|
00001bd0  5e 21 ef 32 2c 31 2c 32  37 2c 31 2c 33 33 2c 31  |^!.2,1,27,1,33,1|
00001be0  2c 76 61 6c 75 65 25 2c  33 3a e5 8d 64 60 4b 0d  |,value%,3:..d`K.|
00001bf0  0b 68 22 ef 32 2c 31 2c  32 37 2c 31 2c 31 31 39  |.h".2,1,27,1,119|
00001c00  2c 31 2c 76 61 6c 75 65  25 2c 33 3a e5 8d 64 60  |,1,value%,3:..d`|
00001c10  4b 0d 0b 72 21 ef 32 2c  31 2c 32 37 2c 31 2c 38  |K..r!.2,1,27,1,8|
00001c20  32 2c 31 2c 76 61 6c 75  65 25 2c 33 3a e5 8d 64  |2,1,value%,3:..d|
00001c30  60 4b 0d 0b 7c 25 ef 32  2c 31 2c 32 37 2c 31 2c  |`K..|%.2,1,27,1,|
00001c40  36 37 2c 31 2c 30 2c 31  2c 76 61 6c 75 65 25 2c  |67,1,0,1,value%,|
00001c50  33 3a e5 8d 64 60 4b 0d  0b 86 21 ef 32 2c 31 2c  |3:..d`K...!.2,1,|
00001c60  32 37 2c 31 2c 36 37 2c  31 2c 76 61 6c 75 65 25  |27,1,67,1,value%|
00001c70  2c 33 3a e5 8d 64 60 4b  0d 0b 90 21 ef 32 2c 31  |,3:..d`K...!.2,1|
00001c80  2c 32 37 2c 31 2c 37 38  2c 31 2c 76 61 6c 75 65  |,27,1,78,1,value|
00001c90  25 2c 33 3a e5 8d 64 60  4b 0d 0b 9a 21 ef 32 2c  |%,3:..d`K...!.2,|
00001ca0  31 2c 32 37 2c 31 2c 35  31 2c 31 2c 76 61 6c 75  |1,27,1,51,1,valu|
00001cb0  65 25 2c 33 3a e5 8d 64  60 4b 0d 0b a4 22 ef 32  |e%,3:..d`K...".2|
00001cc0  2c 31 2c 32 37 2c 31 2c  31 30 38 2c 31 2c 76 61  |,1,27,1,108,1,va|
00001cd0  6c 75 65 25 2c 33 3a e5  8d 64 60 4b 0d 0b ae 21  |lue%,3:..d`K...!|
00001ce0  ef 32 2c 31 2c 32 37 2c  31 2c 38 31 2c 31 2c 76  |.2,1,27,1,81,1,v|
00001cf0  61 6c 75 65 25 2c 33 3a  e5 8d 64 60 4b 0d 0b b8  |alue%,3:..d`K...|
00001d00  1c ef 32 2c 31 2c 32 37  2c 31 2c 39 37 2c 31 2c  |..2,1,27,1,97,1,|
00001d10  33 2c 33 3a e5 8d 64 60  4b 0d 0b c2 1c ef 32 2c  |3,3:..d`K.....2,|
00001d20  31 2c 32 37 2c 31 2c 39  37 2c 31 2c 31 2c 33 3a  |1,27,1,97,1,1,3:|
00001d30  e5 8d 64 60 4b 0d 0b cc  1c ef 32 2c 31 2c 32 37  |..d`K.....2,1,27|
00001d40  2c 31 2c 39 37 2c 31 2c  32 2c 33 3a e5 8d 64 60  |,1,97,1,2,3:..d`|
00001d50  4b 0d 0b d6 1d ef 32 2c  31 2c 32 37 2c 31 2c 31  |K.....2,1,27,1,1|
00001d60  31 35 2c 31 2c 31 2c 33  3a e5 8d 64 60 4b 0d 0b  |15,1,1,3:..d`K..|
00001d70  e0 26 e7 20 63 68 6f 69  63 65 25 3c 31 34 20 84  |.&. choice%<14 .|
00001d80  20 63 68 6f 69 63 65 25  3e 32 32 20 76 61 6c 75  | choice%>22 valu|
00001d90  65 25 3d 30 0d 0b ea 1e  f2 70 72 69 6e 74 28 63  |e%=0.....print(c|
00001da0  68 6f 69 63 65 25 2c 76  61 6c 75 65 25 2c 22 2a  |hoice%,value%,"*|
00001db0  22 29 0d 0b f4 05 e1 0d  0b fe 05 3a 0d 0c 08 19  |").........:....|
00001dc0  dd 20 f2 67 65 74 5f 76  61 6c 75 65 28 63 68 6f  |. .get_value(cho|
00001dd0  69 63 65 25 29 0d 0c 12  11 f2 63 6c 65 61 72 5f  |ice%).....clear_|
00001de0  77 69 6e 64 6f 77 0d 0c  1c 1a 6d 69 6e 25 3d 30  |window....min%=0|
00001df0  3a 6d 61 78 25 3d 32 35  35 3a 6c 65 6e 25 3d 33  |:max%=255:len%=3|
00001e00  0d 0c 26 1f e7 20 63 68  6f 69 63 65 25 3d 31 34  |..&.. choice%=14|
00001e10  20 6d 61 78 25 3d 36 33  3a 6c 65 6e 25 3d 32 0d  | max%=63:len%=2.|
00001e20  0c 30 1e e7 20 63 68 6f  69 63 65 25 3d 31 35 20  |.0.. choice%=15 |
00001e30  6d 61 78 25 3d 33 3a 6c  65 6e 25 3d 31 0d 0c 3a  |max%=3:len%=1..:|
00001e40  1f e7 20 63 68 6f 69 63  65 25 3d 31 36 20 6d 61  |.. choice%=16 ma|
00001e50  78 25 3d 31 39 3a 6c 65  6e 25 3d 32 0d 0c 44 26  |x%=19:len%=2..D&|
00001e60  e7 20 63 68 6f 69 63 65  25 3d 31 37 20 6d 61 78  |. choice%=17 max|
00001e70  25 3d 32 32 3a 6d 69 6e  25 3d 31 3a 6c 65 6e 25  |%=22:min%=1:len%|
00001e80  3d 32 0d 0c 4e 20 e7 20  63 68 6f 69 63 65 25 3d  |=2..N . choice%=|
00001e90  31 38 20 6d 61 78 25 3d  31 32 37 3a 6d 69 6e 25  |18 max%=127:min%|
00001ea0  3d 31 0d 0c 58 19 e7 20  63 68 6f 69 63 65 25 3d  |=1..X.. choice%=|
00001eb0  31 39 20 6d 61 78 25 3d  31 32 37 0d 0c 62 17 e7  |19 max%=127..b..|
00001ec0  20 63 68 6f 69 63 65 25  3d 32 30 20 6d 69 6e 25  | choice%=20 min%|
00001ed0  3d 31 0d 0c 6c 42 e7 20  63 68 6f 69 63 65 25 3d  |=1..lB. choice%=|
00001ee0  32 31 20 6d 61 78 25 3d  72 6d 25 2d 6c 69 6d 69  |21 max%=rm%-limi|
00001ef0  74 25 3a e7 20 6d 61 78  25 3c 3d 6d 69 6e 25 20  |t%:. max%<=min% |
00001f00  f2 6e 6f 5f 63 68 61 6e  67 65 28 22 4c 65 66 74  |.no_change("Left|
00001f10  22 29 3a e1 0d 0c 76 4e  e7 20 63 68 6f 69 63 65  |"):...vN. choice|
00001f20  25 3d 32 32 20 6d 61 78  25 3d 72 6d 61 78 25 3a  |%=22 max%=rmax%:|
00001f30  6d 69 6e 25 3d 6c 6d 25  2b 6c 69 6d 69 74 25 3a  |min%=lm%+limit%:|
00001f40  e7 20 6d 69 6e 25 3e 3d  6d 61 78 25 20 f2 6e 6f  |. min%>=max% .no|
00001f50  5f 63 68 61 6e 67 65 28  22 52 69 67 68 74 22 29  |_change("Right")|
00001f60  3a e1 0d 0c 80 1e f1 8a  31 32 2c 32 33 29 22 45  |:.......12,23)"E|
00001f70  73 63 61 70 65 20 74 6f  20 61 62 68 6f 72 74 22  |scape to abhort"|
00001f80  0d 0c 8a 05 f5 0d 0c 94  30 f1 8a 37 2c 32 30 29  |........0..7,20)|
00001f90  22 45 6e 74 65 72 20 61  20 76 61 6c 75 65 20 28  |"Enter a value (|
00001fa0  22 3b 6d 69 6e 25 3b 22  2d 22 3b 6d 61 78 25 3b  |";min%;"-";max%;|
00001fb0  22 29 3a 22 3b 0d 0c 9e  1a 65 73 63 61 70 65 3d  |"):";....escape=|
00001fc0  a3 3a 63 6f 72 72 65 63  74 5f 76 61 6c 3d a3 0d  |.:correct_val=..|
00001fd0  0c a8 26 76 61 6c 75 65  25 3d bb 28 a4 67 65 74  |..&value%=.(.get|
00001fe0  5f 69 6e 70 75 74 28 6c  65 6e 25 2c 6e 75 6d 65  |_input(len%,nume|
00001ff0  72 69 63 29 29 0d 0c b2  12 e7 20 65 73 63 61 70  |ric))..... escap|
00002000  65 20 e5 8d 64 5a 4c 0d  0c bc 5a e7 20 63 68 6f  |e ..dZL...Z. cho|
00002010  69 63 65 25 3d 32 31 20  80 20 76 61 6c 75 65 25  |ice%=21 . value%|
00002020  3d 30 20 80 20 6c 6d 25  3d 30 20 ef 37 3a f1 8a  |=0 . lm%=0 .7:..|
00002030  37 2c 32 30 29 22 5a 65  72 6f 20 76 61 6c 75 65  |7,20)"Zero value|
00002040  20 61 6c 72 65 61 64 79  20 73 65 74 21 20 20 22  | already set!  "|
00002050  3a f2 77 61 69 74 28 32  30 30 29 3a e5 8d 64 5a  |:.wait(200):..dZ|
00002060  4c 0d 0c c6 2f e7 20 76  61 6c 75 65 25 3e 3d 6d  |L.../. value%>=m|
00002070  69 6e 25 20 80 20 76 61  6c 75 65 25 3c 3d 6d 61  |in% . value%<=ma|
00002080  78 25 20 63 6f 72 72 65  63 74 5f 76 61 6c 3d b9  |x% correct_val=.|
00002090  0d 0c d0 16 e7 20 ac 20  63 6f 72 72 65 63 74 5f  |..... . correct_|
000020a0  76 61 6c 20 ef 37 0d 0c  da 1a fd 20 63 6f 72 72  |val .7..... corr|
000020b0  65 63 74 5f 76 61 6c 20  84 20 65 73 63 61 70 65  |ect_val . escape|
000020c0  0d 0c e4 05 e1 0d 0c ee  05 3a 0d 0c f8 12 dd 20  |.........:..... |
000020d0  f2 63 68 65 63 6b 5f 63  6c 61 73 68 0d 0d 02 67  |.check_clash...g|
000020e0  e7 20 63 68 6f 69 63 65  24 3d 22 4e 22 20 80 28  |. choice$="N" .(|
000020f0  6f 6e 5f 6f 66 66 25 28  32 29 20 84 20 6f 6e 5f  |on_off%(2) . on_|
00002100  6f 66 66 25 28 33 29 20  84 20 6f 6e 5f 6f 66 66  |off%(3) . on_off|
00002110  25 28 34 29 20 84 20 6f  6e 5f 6f 66 66 25 28 35  |%(4) . on_off%(5|
00002120  29 20 84 20 6f 6e 5f 6f  66 66 25 28 36 29 20 84  |) . on_off%(6) .|
00002130  20 6f 6e 5f 6f 66 66 25  28 31 35 29 29 20 e5 8d  | on_off%(15)) ..|
00002140  44 5c 4d 0d 0d 0c 2f e7  20 63 68 6f 69 63 65 25  |D\M.../. choice%|
00002150  3e 31 20 80 20 63 68 6f  69 63 65 25 3c 37 20 80  |>1 . choice%<7 .|
00002160  20 6f 6e 5f 6f 66 66 25  28 31 34 29 20 e5 8d 44  | on_off%(14) ..D|
00002170  5c 4d 0d 0d 16 4d e7 20  63 68 6f 69 63 65 24 3d  |\M...M. choice$=|
00002180  22 4f 22 20 80 28 6f 6e  5f 6f 66 66 25 28 32 29  |"O" .(on_off%(2)|
00002190  20 84 20 6f 6e 5f 6f 66  66 25 28 33 29 20 84 20  | . on_off%(3) . |
000021a0  6f 6e 5f 6f 66 66 25 28  34 29 20 84 20 6f 6e 5f  |on_off%(4) . on_|
000021b0  6f 66 66 25 28 31 34 29  29 20 e5 8d 44 5c 4d 0d  |off%(14)) ..D\M.|
000021c0  0d 20 2f e7 20 63 68 6f  69 63 65 25 3e 31 20 80  |. /. choice%>1 .|
000021d0  20 63 68 6f 69 63 65 25  3c 35 20 80 20 6f 6e 5f  | choice%<5 . on_|
000021e0  6f 66 66 25 28 31 35 29  20 e5 8d 44 5c 4d 0d 0d  |off%(15) ..D\M..|
000021f0  2a 41 e7 20 63 68 6f 69  63 65 24 3d 22 50 22 20  |*A. choice$="P" |
00002200  80 20 6f 6e 5f 6f 66 66  25 28 31 32 29 20 84 20  |. on_off%(12) . |
00002210  63 68 6f 69 63 65 24 3d  22 4c 22 20 80 20 6f 6e  |choice$="L" . on|
00002220  5f 6f 66 66 25 28 31 36  29 20 e5 8d 44 5c 4d 0d  |_off%(16) ..D\M.|
00002230  0d 34 41 e7 20 63 68 6f  69 63 65 24 3d 22 51 22  |.4A. choice$="Q"|
00002240  20 80 20 6f 6e 5f 6f 66  66 25 28 31 38 29 20 84  | . on_off%(18) .|
00002250  20 63 68 6f 69 63 65 24  3d 22 52 22 20 80 20 6f  | choice$="R" . o|
00002260  6e 5f 6f 66 66 25 28 31  37 29 20 e5 8d 44 5c 4d  |n_off%(17) ..D\M|
00002270  0d 0d 3e 8a e7 20 63 68  6f 69 63 65 24 3d 22 57  |..>.. choice$="W|
00002280  22 20 80 28 6f 6e 5f 6f  66 66 25 28 32 34 29 20  |" .(on_off%(24) |
00002290  84 20 6f 6e 5f 6f 66 66  25 28 32 35 29 29 20 84  |. on_off%(25)) .|
000022a0  20 63 68 6f 69 63 65 24  3d 22 58 22 20 80 28 6f  | choice$="X" .(o|
000022b0  6e 5f 6f 66 66 25 28 32  33 29 20 84 20 6f 6e 5f  |n_off%(23) . on_|
000022c0  6f 66 66 25 28 32 35 29  29 20 84 20 63 68 6f 69  |off%(25)) . choi|
000022d0  63 65 24 3d 22 59 22 20  80 28 6f 6e 5f 6f 66 66  |ce$="Y" .(on_off|
000022e0  25 28 32 33 29 20 84 20  6f 6e 5f 6f 66 66 25 28  |%(23) . on_off%(|
000022f0  32 34 29 29 20 e5 8d 44  5c 4d 0d 0d 48 3f e7 20  |24)) ..D\M..H?. |
00002300  63 68 6f 69 63 65 24 3d  22 48 22 20 80 20 6f 6e  |choice$="H" . on|
00002310  5f 6f 66 66 25 28 39 29  20 84 20 63 68 6f 69 63  |_off%(9) . choic|
00002320  65 24 3d 22 49 22 20 80  20 6f 6e 5f 6f 66 66 25  |e$="I" . on_off%|
00002330  28 38 29 20 e5 8d 44 5c  4d 0d 0d 52 05 e1 0d 0d  |(8) ..D\M..R....|
00002340  5c 0d 63 6c 61 73 68 3d  b9 3a e1 0d 0d 66 05 3a  |\.clash=.:...f.:|
00002350  0d 0d 70 14 dd 20 f2 6e  6f 5f 63 68 61 6e 67 65  |..p.. .no_change|
00002360  28 41 24 29 0d 0d 7a 2e  f1 8a 39 2d a9 28 41 24  |(A$)..z...9-.(A$|
00002370  29 2c 32 31 29 41 24 22  20 6d 61 72 67 69 6e 20  |),21)A$" margin |
00002380  63 61 6e 6e 6f 74 20 62  65 20 63 68 61 6e 67 65  |cannot be change|
00002390  64 22 0d 0d 84 25 f1 8a  37 2c 32 33 29 22 21 6d  |d"...%..7,23)"!m|
000023a0  61 78 20 26 20 6d 69 6e  20 76 61 6c 75 65 73 20  |ax & min values |
000023b0  65 71 75 61 6c 21 22 0d  0d 8e 1a ef 37 3a f2 77  |equal!".....7:.w|
000023c0  61 69 74 28 33 30 30 29  3a 65 73 63 61 70 65 3d  |ait(300):escape=|
000023d0  b9 0d 0d 98 05 e1 0d 0d  a2 05 3a 0d 0d ac 12 dd  |..........:.....|
000023e0  20 f2 77 61 69 74 28 64  65 6c 61 79 29 0d 0d b6  | .wait(delay)...|
000023f0  10 f5 20 fd 20 a6 28 64  65 6c 61 79 29 0d 0d c0  |.. . .(delay)...|
00002400  05 e1 0d 0d ca 05 3a 0d  0d d4 0d dd 20 f2 6d 61  |......:..... .ma|
00002410  72 67 69 6e 0d 0d de 3d  65 6c 69 74 65 3d 6f 6e  |rgin...=elite=on|
00002420  5f 6f 66 66 25 28 32 29  3a 63 6f 6e 64 65 6e 73  |_off%(2):condens|
00002430  65 64 3d 6f 6e 5f 6f 66  66 25 28 33 29 3a 65 6e  |ed=on_off%(3):en|
00002440  6c 61 72 67 65 64 3d 6f  6e 5f 6f 66 66 25 28 34  |larged=on_off%(4|
00002450  29 0d 0d e8 28 61 6c 74  65 72 6e 61 74 65 25 3d  |)...(alternate%=|
00002460  6f 6e 5f 6f 66 66 25 28  31 34 29 20 84 20 6f 6e  |on_off%(14) . on|
00002470  5f 6f 66 66 25 28 31 35  29 0d 0d f2 16 e7 20 61  |_off%(15)..... a|
00002480  6c 74 65 72 6e 61 74 65  25 20 e5 8d 44 56 4e 0d  |lternate% ..DVN.|
00002490  0d fc 2e e7 20 ac 28 65  6c 69 74 65 20 84 20 63  |.... .(elite . c|
000024a0  6f 6e 64 65 6e 73 65 64  20 84 20 65 6e 6c 61 72  |ondensed . enlar|
000024b0  67 65 64 29 72 65 73 75  6c 74 25 3d 30 0d 0e 06  |ged)result%=0...|
000024c0  2e e7 20 65 6c 69 74 65  20 80 20 ac 28 63 6f 6e  |.. elite . .(con|
000024d0  64 65 6e 73 65 64 20 84  20 65 6e 6c 61 72 67 65  |densed . enlarge|
000024e0  64 29 72 65 73 75 6c 74  25 3d 31 0d 0e 10 2e e7  |d)result%=1.....|
000024f0  20 63 6f 6e 64 65 6e 73  65 64 20 80 20 ac 28 65  | condensed . .(e|
00002500  6c 69 74 65 20 84 20 65  6e 6c 61 72 67 65 64 29  |lite . enlarged)|
00002510  72 65 73 75 6c 74 25 3d  34 0d 0e 1a 2e e7 20 63  |result%=4..... c|
00002520  6f 6e 64 65 6e 73 65 64  20 80 20 65 6c 69 74 65  |ondensed . elite|
00002530  20 80 20 ac 20 65 6e 6c  61 72 67 65 64 20 72 65  | . . enlarged re|
00002540  73 75 6c 74 25 3d 35 0d  0e 24 2f e7 20 65 6e 6c  |sult%=5..$/. enl|
00002550  61 72 67 65 64 20 80 20  ac 28 65 6c 69 74 65 20  |arged . .(elite |
00002560  84 20 63 6f 6e 64 65 6e  73 65 64 29 72 65 73 75  |. condensed)resu|
00002570  6c 74 25 3d 33 32 0d 0e  2e 2f e7 20 65 6e 6c 61  |lt%=32.../. enla|
00002580  72 67 65 64 20 80 20 65  6c 69 74 65 20 80 20 ac  |rged . elite . .|
00002590  20 63 6f 6e 64 65 6e 73  65 64 20 72 65 73 75 6c  | condensed resul|
000025a0  74 25 3d 33 33 0d 0e 38  2f e7 20 65 6e 6c 61 72  |t%=33..8/. enlar|
000025b0  67 65 64 20 80 20 63 6f  6e 64 65 6e 73 65 64 20  |ged . condensed |
000025c0  80 20 ac 20 65 6c 69 74  65 20 72 65 73 75 6c 74  |. . elite result|
000025d0  25 3d 33 36 0d 0e 42 2d  e7 20 65 6e 6c 61 72 67  |%=36..B-. enlarg|
000025e0  65 64 20 80 20 63 6f 6e  64 65 6e 73 65 64 20 80  |ed . condensed .|
000025f0  20 65 6c 69 74 65 20 72  65 73 75 6c 74 25 3d 33  | elite result%=3|
00002600  37 0d 0e 4c 09 e5 8d 44  60 4e 0d 0e 56 39 e7 20  |7..L...D`N..V9. |
00002610  6f 6e 5f 6f 66 66 25 28  31 34 29 20 72 65 73 75  |on_off%(14) resu|
00002620  6c 74 25 3d 61 6c 74 25  28 31 29 20 80 20 26 32  |lt%=alt%(1) . &2|
00002630  35 20 8b 20 72 65 73 75  6c 74 25 3d 61 6c 74 25  |5 . result%=alt%|
00002640  28 32 29 0d 0e 60 2d e7  20 72 65 73 75 6c 74 25  |(2)..`-. result%|
00002650  3d 30 20 72 6d 61 78 25  3d a8 28 38 30 2a 77 69  |=0 rmax%=.(80*wi|
00002660  64 65 2b 30 2e 35 29 3a  6c 69 6d 69 74 25 3d 32  |de+0.5):limit%=2|
00002670  0d 0e 6a 2d e7 20 72 65  73 75 6c 74 25 3d 31 20  |..j-. result%=1 |
00002680  72 6d 61 78 25 3d a8 28  39 36 2a 77 69 64 65 2b  |rmax%=.(96*wide+|
00002690  30 2e 35 29 3a 6c 69 6d  69 74 25 3d 33 0d 0e 74  |0.5):limit%=3..t|
000026a0  2e e7 20 72 65 73 75 6c  74 25 3d 32 20 72 6d 61  |.. result%=2 rma|
000026b0  78 25 3d a8 28 31 32 30  2a 77 69 64 65 2b 30 2e  |x%=.(120*wide+0.|
000026c0  35 29 3a 6c 69 6d 69 74  25 3d 34 0d 0e 7e 3a e7  |5):limit%=4..~:.|
000026d0  20 72 65 73 75 6c 74 25  3d 33 20 84 20 72 65 73  | result%=3 . res|
000026e0  75 6c 74 25 3d 34 20 72  6d 61 78 25 3d a8 28 31  |ult%=4 rmax%=.(1|
000026f0  33 37 2a 77 69 64 65 2b  30 2e 35 29 3a 6c 69 6d  |37*wide+0.5):lim|
00002700  69 74 25 3d 34 0d 0e 88  2e e7 20 72 65 73 75 6c  |it%=4..... resul|
00002710  74 25 3d 35 20 72 6d 61  78 25 3d a8 28 31 36 30  |t%=5 rmax%=.(160|
00002720  2a 77 69 64 65 2b 30 2e  35 29 3a 6c 69 6d 69 74  |*wide+0.5):limit|
00002730  25 3d 34 0d 0e 92 2e e7  20 72 65 73 75 6c 74 25  |%=4..... result%|
00002740  3d 33 32 20 72 6d 61 78  25 3d a8 28 34 30 2a 77  |=32 rmax%=.(40*w|
00002750  69 64 65 2b 30 2e 35 29  3a 6c 69 6d 69 74 25 3d  |ide+0.5):limit%=|
00002760  31 0d 0e 9c 2e e7 20 72  65 73 75 6c 74 25 3d 33  |1..... result%=3|
00002770  33 20 72 6d 61 78 25 3d  a8 28 34 38 2a 77 69 64  |3 rmax%=.(48*wid|
00002780  65 2b 30 2e 35 29 3a 6c  69 6d 69 74 25 3d 31 0d  |e+0.5):limit%=1.|
00002790  0e a6 2e e7 20 72 65 73  75 6c 74 25 3d 33 36 20  |.... result%=36 |
000027a0  72 6d 61 78 25 3d a8 28  36 38 2a 77 69 64 65 2b  |rmax%=.(68*wide+|
000027b0  30 2e 35 29 3a 6c 69 6d  69 74 25 3d 32 0d 0e b0  |0.5):limit%=2...|
000027c0  2e e7 20 72 65 73 75 6c  74 25 3d 33 37 20 72 6d  |.. result%=37 rm|
000027d0  61 78 25 3d a8 28 38 30  2a 77 69 64 65 2b 30 2e  |ax%=.(80*wide+0.|
000027e0  35 29 3a 6c 69 6d 69 74  25 3d 32 0d 0e ba 58 e7  |5):limit%=2...X.|
000027f0  20 72 6d 61 78 25 3d 31  33 37 20 64 65 66 61 75  | rmax%=137 defau|
00002800  6c 74 25 28 39 29 3d 31  33 32 20 8b 20 e7 20 72  |lt%(9)=132 . . r|
00002810  6d 61 78 25 3d 36 38 20  80 20 77 69 64 65 3d 31  |max%=68 . wide=1|
00002820  20 64 65 66 61 75 6c 74  25 28 39 29 3d 36 36 20  | default%(9)=66 |
00002830  8b 20 64 65 66 61 75 6c  74 25 28 39 29 3d 72 6d  |. default%(9)=rm|
00002840  61 78 25 0d 0e c4 13 6e  65 77 3d 64 65 66 61 75  |ax%....new=defau|
00002850  6c 74 25 28 39 29 0d 0e  ce 2e e7 20 6f 6e 5f 6f  |lt%(9)..... on_o|
00002860  66 66 25 28 32 31 29 20  6c 6d 25 3d a8 28 6c 6d  |ff%(21) lm%=.(lm|
00002870  25 2a 28 6e 65 77 2f 70  72 65 73 65 6e 74 29 2b  |%*(new/present)+|
00002880  30 2e 35 29 0d 0e d8 40  e7 20 6f 6e 5f 6f 66 66  |0.5)...@. on_off|
00002890  25 28 32 32 29 20 72 6d  25 3d a8 28 72 6d 25 2a  |%(22) rm%=.(rm%*|
000028a0  28 6e 65 77 2f 70 72 65  73 65 6e 74 29 2b 30 2e  |(new/present)+0.|
000028b0  35 29 20 8b 20 72 6d 25  3d 64 65 66 61 75 6c 74  |5) . rm%=default|
000028c0  25 28 39 29 0d 0e e2 19  e7 20 72 6d 25 3e 72 6d  |%(9)..... rm%>rm|
000028d0  61 78 25 20 72 6d 25 3d  72 6d 61 78 25 0d 0e ec  |ax% rm%=rmax%...|
000028e0  1d e7 20 6c 6d 25 3e 3d  72 6d 25 20 6c 6d 25 3d  |.. lm%>=rm% lm%=|
000028f0  72 6d 25 2d 6c 69 6d 69  74 25 0d 0e f6 16 f1 8a  |rm%-limit%......|
00002900  33 36 2c 31 32 29 63 6c  65 61 72 24 3b 72 6d 25  |36,12)clear$;rm%|
00002910  0d 0f 00 16 f1 8a 33 36  2c 31 31 29 63 6c 65 61  |......36,11)clea|
00002920  72 24 3b 6c 6d 25 0d 0f  0a 0f 70 72 65 73 65 6e  |r$;lm%....presen|
00002930  74 3d 6e 65 77 0d 0f 14  05 e1 0d 0f 1e 05 3a 0d  |t=new.........:.|
00002940  0f 28 0b dd 20 f2 74 69  64 79 0d 0f 32 0b 2a 46  |.(.. .tidy..2.*F|
00002950  58 31 32 2c 30 0d 0f 3c  0a 2a 46 58 34 2c 30 0d  |X12,0..<.*FX4,0.|
00002960  0f 46 0c 2a 46 58 32 32  39 2c 30 0d 0f 50 0c 2a  |.F.*FX229,0..P.*|
00002970  46 58 32 32 35 2c 31 0d  0f 5a 12 ef 32 33 2c 31  |FX225,1..Z..23,1|
00002980  2c 31 3b 30 3b 30 3b 30  3b 0d 0f 64 05 e1 0d 0f  |,1;0;0;0;..d....|
00002990  6e 05 3a 0d 0f 78 09 f2  74 69 64 79 0d 0f 82 14  |n.:..x..tidy....|
000029a0  f6 3a f1 22 20 61 74 20  6c 69 6e 65 20 22 3b 9e  |.:." at line ";.|
000029b0  0d 0f 8c 05 e0 0d 0f 96  05 3a 0d 0f a0 2d dc 20  |.........:...-. |
000029c0  4e 4c 51 2c 45 6c 69 74  65 2c 43 6f 6e 64 65 6e  |NLQ,Elite,Conden|
000029d0  73 65 64 2c 45 6e 6c 61  72 67 65 64 2c 45 6d 70  |sed,Enlarged,Emp|
000029e0  68 61 73 69 7a 65 64 0d  0f aa 2f dc 20 44 62 6c  |hasized.../. Dbl|
000029f0  65 20 53 74 72 69 6b 65  2c 49 74 61 6c 69 63 73  |e Strike,Italics|
00002a00  2c 53 75 70 65 72 73 63  72 69 70 74 2c 53 75 62  |,Superscript,Sub|
00002a10  73 63 72 69 70 74 0d 0f  b4 25 dc 20 50 72 6f 70  |script...%. Prop|
00002a20  6f 72 74 69 6f 6e 61 6c  2c 55 6e 64 65 72 6c 69  |ortional,Underli|
00002a30  6e 65 64 2c 55 4b 20 43  68 72 73 0d 0f be 28 dc  |ned,UK Chrs...(.|
00002a40  20 50 61 70 65 72 20 4f  55 54 20 6f 6e 2c 50 72  | Paper OUT on,Pr|
00002a50  69 6e 74 20 6d 6f 64 65  2c 43 68 61 72 20 70 69  |int mode,Char pi|
00002a60  74 63 68 0d 0f c8 30 dc  20 49 6e 74 20 63 68 61  |tch...0. Int cha|
00002a70  72 20 73 65 74 2c 46 6f  72 6d 20 6c 65 6e 67 74  |r set,Form lengt|
00002a80  68 20 69 6e 2c 46 6f 72  6d 20 6c 65 6e 67 74 68  |h in,Form length|
00002a90  20 4c 6e 0d 0f d2 32 dc  20 53 6b 69 70 20 6f 76  | Ln...2. Skip ov|
00002aa0  65 72 20 70 65 72 66 2c  4c 69 6e 65 20 73 70 63  |er perf,Line spc|
00002ab0  20 6e 2f 32 31 36 2c 4c  48 20 6d 61 72 67 69 6e  | n/216,LH margin|
00002ac0  20 63 68 72 73 0d 0f dc  2d dc 20 52 48 20 6d 61  | chrs...-. RH ma|
00002ad0  72 67 69 6e 20 63 68 72  73 2c 41 75 74 6f 20 6a  |rgin chrs,Auto j|
00002ae0  75 73 74 69 66 79 2c 41  75 74 6f 20 63 65 6e 74  |ustify,Auto cent|
00002af0  72 65 0d 0f e6 19 dc 20  52 48 20 61 6c 69 67 6e  |re..... RH align|
00002b00  2c 48 61 6c 66 20 73 70  65 65 64 0d 0f f0 05 3a  |,Half speed....:|
00002b10  0d 0f fa 18 dc 20 30 2c  30 2c 30 2c 31 31 2c 36  |..... 0,0,0,11,6|
00002b20  36 2c 30 2c 33 36 2c 30  0d 10 04 05 3a 0d 10 0e  |6,0,36,0....:...|
00002b30  32 dc 20 28 55 53 41 29  2c 28 46 72 65 6e 63 68  |2. (USA),(French|
00002b40  29 2c 28 47 65 72 6d 61  6e 29 2c 28 45 6e 67 6c  |),(German),(Engl|
00002b50  69 73 68 29 2c 28 44 61  6e 69 73 68 20 49 29 0d  |ish),(Danish I).|
00002b60  10 18 32 dc 20 28 53 77  65 64 69 73 68 20 49 29  |..2. (Swedish I)|
00002b70  2c 28 49 74 61 6c 69 61  6e 29 2c 28 53 70 61 6e  |,(Italian),(Span|
00002b80  69 73 68 20 49 29 2c 28  4a 61 70 61 6e 65 73 65  |ish I),(Japanese|
00002b90  29 0d 10 22 3b dc 20 28  4e 6f 72 77 65 67 69 61  |)..";. (Norwegia|
00002ba0  6e 29 2c 28 44 61 6e 69  73 68 20 49 49 29 2c 28  |n),(Danish II),(|
00002bb0  53 70 61 6e 69 73 68 20  49 49 29 2c 28 4c 61 74  |Spanish II),(Lat|
00002bc0  69 6e 20 41 6d 65 72 69  63 61 6e 29 0d 10 2c 2c  |in American)..,,|
00002bd0  dc 20 28 46 72 65 6e 63  68 20 43 61 6e 61 64 69  |. (French Canadi|
00002be0  61 6e 29 2c 28 44 75 74  63 68 29 2c 28 53 77 65  |an),(Dutch),(Swe|
00002bf0  64 69 73 68 20 49 49 29  0d 10 36 32 dc 20 28 53  |dish II)..62. (S|
00002c00  77 65 64 69 73 68 20 49  49 49 29 2c 28 54 75 72  |wedish III),(Tur|
00002c10  6b 69 73 68 29 2c 28 53  77 69 73 73 20 49 29 2c  |kish),(Swiss I),|
00002c20  28 53 77 69 73 73 20 49  49 29 0d 10 40 05 3a 0d  |(Swiss II)..@.:.|
00002c30  10 4a 29 dc 20 28 31 30  20 63 70 69 29 2c 28 31  |.J). (10 cpi),(1|
00002c40  32 20 63 70 69 29 2c 28  31 35 20 63 70 69 29 2c  |2 cpi),(15 cpi),|
00002c50  28 31 37 20 63 70 69 29  0d ff                    |(17 cpi)..|
00002c5a