� KEYBOARD
$� Electron Introductory Cassette
� Authors P.H. and B.B.
(�
2��M%=1234��T|@��M%=5678��DF@��5:�19,3,4;0;:�2:�0,5)"Does your cassette"''"recorder have motor"''"control (Y/N)?";:�(��&DF)=�"Y"�M%=5678:�DF@�M%=1234
<��1,-15,121,60:�5:�19,3,4;0;:�1:�8,9)"STOP";:�3:�6,13)"the tape":�2:�4,25)"Press SPACE"�4,27)"to continue":���=32:�&11,0,0,0
F
��:�DP@
P
� BLOCK 8
Z�4:�cursor_off
d"�DBL("Keyboard",-1,12):N%=�500
n� � � �tdA
x�initialise
��6
�	�info
��4
��set_windows
��blank_keys
�� part%=1 � 6
� �
�  �sheet(part%)
�  ANSWER$=�repeat(part%)
� � ANSWER$="NEXT"
�
�part%
��
� �4

( ANSWER%=�again: � ANSWER%=-1 � �TvA

 �

 �set_windows

" �blank_keys

, �sheet(ANSWER%)

6� ANSWER%=-1

@�

J�cleanup

T�4

^$�8,12)"Do you want to go on to"

h&�8,13)"the next program (Y/N)? ";

r�G$=�:��"YyNn",G$)

|
� �(G$),8

�� �"Nn",G$) � �

��''"Play tape"'

�
*FX202,32

��""

�� �=17 � �D@A

��: �" at line ";�

��

� 

�� �cleanup

�*FX4

�*FX225,1

�*FX226,1

�*FX227,1

��
 
� �sheet(part%)
�
&caps_lock=(part%<=3)
0�write_on_keys(part%)
:�caps_led(caps_lock)
D�text(part%)
N�questions(part%,caps_lock)
X�write_on_keys(part%)
b�
l 
v� �caps_led(caps_lock)
��5
�"� caps_lock � led=250 � led=32
��15,Ymax-197
��0,0: �250,8
��0,1: � led
��4
��
� 
�� �write_on_keys(part%)
��5
��3,1
�+� part% � �dxB,�T~C,�dxB,�DfC,�tlC,�dhC
�� CAPS + unshifted keys
K$(1)=R$(1)+"-"
K$(2)=SR$(2)
K$(3)=SR$(3)+RR$(3)
 K$(4)=SR$(4)+RR$(4)
*�cursor_keys
4
� �TZD
> � 2. non-CAPS + shifted keys
HK$(1)=SR$(1)+SRR$(1)
R"�i=2�4: K$(i)=R$(i)+SRR$(i): �
\
� �TZD
f� unshifted keys
pK$(1)=R$(1)+"-"
zK$(2)=R$(2)
�K$(3)=R$(3)+RR$(3)
�K$(4)=R$(4)+RR$(4)
��cursor_keys
�
� �TZD
�� control keys
�K$(1)="~\"
�K$(2)="{}]"
�K$(3)=""
�K$(4)=""
��control_keys: �tzD
�� softkey/keyword mnemonics
�K$(1)=R$(1)
�K$(2)=SR$(2)
K$(3)=SR$(3)
K$(4)=SR$(4)+SRR$(4)
�I%=1��K$(1)
$�30+I%*84,Ymax-108
.�K$(1),I%,1)
8�I%
B�I%=1��K$(2)
L�72+I%*84,Ymax-203
V�K$(2),I%,1)
`�I%
j�I%=1��K$(3)
t�114+I%*84,Ymax-299
~�K$(3),I%,1)
��I%
��I%=1��K$(4)
��156+I%*84,Ymax-393
��K$(4),I%,1)
��I%
��small_letters
��0,1
��4
��
� 
�� �set_questions(part%)
�+� part% � �T@E,�ThE,�DFE,�DFE,�ThE,�DxE
� Display + cursor keys

Q$(1)=R$(1)+RR$(1)
"�i=2�4: Q$(i)=SR$(i)+RR$(i): �

� �tjE
(� Same as display
2�i=1�4:Q$(i)=K$(i):�
<
� �tjE
F� Unshifted or shifted.
P
�i=1�4
Z%Q$(i)=R$(i)+RR$(i)+SR$(i)+SRR$(i)
d�
n
� �tjE
x� Softkeys/keywords
��translate(1,R$(1))
��translate(2,SR$(2))
��translate(3,SR$(3))
� �translate(4,SR$(4)+SRR$(4))
��
� 
�� �translate(i,S$)
�Q$(i)=""
��x=1� � S$
�n=�func_base$,�S$,x,1),1)
�Q$(i)=Q$(i)+�(n+127)
��
��
 
� �blank_keys
�cursor_off
"�5
,�0,1
6�I%=0�14
@�block(10+I%*84,Ymax-140)
J�I%
T�I%=0�13
^�block(52+I%*84,Ymax-235)
h�I%
r�I%=0�11
|�block(94+I%*84,Ymax-329)
��I%
��doublekey(1100,Ymax-329)
��doublekey(94,Ymax-424)
��I%=0�9
��block(220+I%*84,Ymax-424)
��I%
��doublekey(1060,Ymax-424)
��block(1188,Ymax-424)
�
�spacebar
��4
��
� 
�� �block(X%,Y%)

�X%,Y%

�X%+72,Y%
�85,X%,Y%+44
&�85,X%+72,Y%+44
0�
: 
D� �doublekey(X%,Y%)
N�X%,Y% 
X�X%+116,Y% 
b�85,X%,Y%+44
l�85,X%+116,Y%+44 
v� 
� 
�� �initialise
�
*FX4,2
�*FX225,128
�*FX226,144
�*FX227,160
�left$=�140: right$=�141
�down$=�142: up$=�143
�copy$=�139
�*csr_vals$=left$+right$+up$+down$+copy$
�(csr_chrs$=�242+�243+�245+�244+"COPY"
�!� R$(4),RR$(4),SR$(4),SRR$(4)
� � K$(4),Q$(4),FUNC_keys$(48)
#� CT RL FU NC SH IF T ES C BR K
!�23,224;0;&EE,&84,&84,&84,&E4
!�23,225;0;&C8,&A8,&C8,&A8,&AE
 !�23,226;0;&EA,&8A,&CA,&8A,&8E
*!�23,227;0;&97,&D4,&B4,&94,&97
4!�23,228;0;&EA,&8A,&EE,&2A,&EA
>!�23,229;0;&BB,&A1,&B1,&A1,&A1
H�23,230;0;&80,0;0;
R!�23,231;0;&EE,&88,&CE,&82,&EE
\!�23,232;0;&E0,&80,&80,&80,&E0
f!�23,233;0;&CC,&AA,&CC,&AA,&CA
p!�23,234;0;&90,&A0,&C0,&A0,&90
z!� DE L RE TU RN CO PY < > ^ V
�!�23,235;0;&CE,&A8,&AC,&A8,&CE
�!�23,236;0;&80,&80,&80,&80,&E0
�!�23,237;0;&CE,&A8,&CC,&A8,&AE
�!�23,238;0;&EA,&4A,&4A,&4A,&4E
�!�23,239;0;&C9,&AD,&CB,&A9,&A9
�!�23,240;0;&EE,&8A,&8A,&8A,&EE
�!�23,241;0;&EA,&AA,&E4,&84,&84
�!�23,242;&20,&60,&FF,&60,&20;0
�!�23,243;&04,&06,&FF,&06,&04;0
�+�23,245,&10,&38,&7C,&10,&10,&10,&10,&10
�+�23,244,&10,&10,&10,&10,&10,&7C,&38,&10
�� SP AC E return caps_led
�!�23,246;0;&EE,&8A,&EE,&28,&E8
	!�23,247;0;&EE,&A8,&E8,&A8,&AE
	!�23,248;0;&E0,&80,&C0,&80,&E0
	!�23,249,4,4,4,4,4,&44,&FC,&40
	$ �23,250,0;&18,&3C,&3C,&18,0;
	.
Ymax=1023
	8.R$(1)="1234567890":RR$(1)="-"+left$+right$
	B-R$(2)="qwertyuiop":RR$(2)=up$+down$+copy$
	L!R$(3)="asdfghjkl":RR$(3)=";:"
	V R$(4)="zxcvbnm":RR$(4)=",./"
	`&SR$(1)="!""#$%&'()@":SRR$(1)="=^|"
	j%SR$(2)="QWERTYUIOP":SRR$(2)="`_["
	t#SR$(3)="ASDFGHJKL":SRR$(3)="+*"
	~"SR$(4)="ZXCVBNM":SRR$(4)="<>?"
	�lower$="": upper$=""
	�
�i=1�4
	�lower$=lower$+R$(i)+RR$(i)
	� upper$=upper$+SR$(i)+SRR$(i)
	��
	�@azAZ$="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
	�`func_base$="0123456789"+�255+copy$+left$+right$+down$+up$+"ABCDEFGHIJKLMNOPQRSTUVWXYZ:;<->?"
	�� i=1 � 48
	�� FUNC_keys$(i)
	�� i
	�FUNC_keys$(13)=�242
	�FUNC_keys$(14)=�243
FUNC_keys$(15)=�244

FUNC_keys$(16)=�245
FUNC_keys$(31)="OLD"+�249
FUNC_keys$(34)="RUN"+�249
(�
2 
<"�f0,f1,f2,f3,f4,f5,f6,f7,f8,f9
F�"",COPY,"","","",""
P �AUTO,RENUM,COLOUR,DRAW,ELSE
Z!�FOR,GOTO,DEG,INPUT,RAD,CHAIN
d!�LIST,MODE,NEXT,"",PLOT,LOCAL
n�"",STEP,THEN,UNTIL,VDU
x�RESTOR,PROC,REPEAT,END
�)�FUNC-:,FUNC-;,LOAD,FUNC--,SAVE,PRINT
� 
�� �cursor_keys
��1038,Ymax-108: �242
��1122,Ymax-108: �243
��1080,Ymax-203: �244
��998,Ymax-203: �245
��1152,Ymax-195: �240,241
��
� 
�� �small_letters
��26,Ymax-100: �231,232
��56,Ymax-195: �226,227
�102,Ymax-289: �224,225
�118,Ymax-384: �228,229,230
�1202,Ymax-100: �233,234
" �1114,Ymax-289: �237,238,239
, �1088,Ymax-384: �228,229,230
6�1204,Ymax-384: �235,236
@�632,Ymax-471: �246,247,248
J�
T 
^� �spacebar
h�324,Ymax-514
r�996,Ymax-514
|�85,324,Ymax-464
��85,996,Ymax-464
��
� 
�� �info
��cursor_off
�2�''''" Using this program should help you get"
�-�"used to the keyboard, and show you how"
�0�"to get all of the functions of each key.";
�.�'" The computer will display a character"
�0�"and wait for you to find it and press it";
��"on the keyboard."
�1�'" When you have done so,the computer will";
�0�"tell you the time taken and your average";
�"time so far."
.�'" Pressing the ESCAPE key will take you"
!�"to the end of the program."
&%�7,23);"Press SPACE to continue"
0���(-99)
:�
D1�'" The character produced when you press a";
N!�"key depends on two things:"
X.�'" 1. Which other keys you are pressing;"
b.�"    SHIFT,CTRL and FUNC keys change the"
l�"    character produced."
v+�'" 2. Whether CAPS LOCK is ON or OFF."
�+�'" CAPS LOCK can be toggled ON/OFF by"
�.�"holding down one of the SHIFT keys, and"
�,�"pressing the key marked CAPS LK/FUNC."
�)�"The small light to the left of the"
�+�"CAPS LK/FUNC key indicates that CAPS"
��"LOCK is ON."
��'"  Try it now....."'
��12);"CAPS LOCK is now"
�4�0,23);"Press SPACE when you want to continue";
�NOW=�:���-NOW>50
��
�A%=202:X%=0:Y%=48
�4� (�(&FFF4)�&1000)=&1000 � CP$="OFF" � CP$="ON "

�19,21);CP$

��(-99)

�

  

*� �cursor_off

4�23,1,0;0;0;0;

>�

H 

R� �set_windows

\�28;31,39,17

f�24;500,1279,1023

p�

z 

�� �set_caps_lock(caps_lock)

�� caps_lock � �tlM

�*FX202,16,239

�	�tvM

�*FX202,128,111

��

� 

�!� �questions(part%,caps_lock)

��set_questions(part%)

�total=0: right%=0

�.� part%=5 � Nquestions%=5 � Nquestions%=10

�� question%=1 � Nquestions%

��
�row%=�(4):�Q$(row%)<>""
choice=�(�Q$(row%))
char=� �Q$(row%),choice,1)
$shift=(�upper$,�char)<>0)
..� �azAZ$,�char) � caps_lock � shift=�shift
8 � Locate char on the screen.
Bus=�(SR$(row%)+SRR$(row%))
L-� choice<=us key%=choice � key%=choice-us
Vx%=row%*42+84*key%-32 
`,� part%=5 x%=x%+11*84: � row%=2 x%=x%-84
jy%=Ymax-45-95*row%
tNOW=�:���-NOW>50
~	lit=�
�$�DBL("Find "+�legend(char),14,1)
�*FX15,0
�Tquestion=�
��
� �set_caps_lock(caps_lock)
� user=�(0)
� delay%=�-Tquestion
�: � (delay%>250) � � lit �highlight(x%,y%,shift): lit=�
�
�user<>-1
�!� user=char �correct � �wrong
�@%=&90A
�%�8,13);"Press SPACE to continue"

���(-99) 

#� lit � �highlight(x%,y%,shift)
�cursor_off
�question%
(�
2 
<� �legend(c)
F� c=13 � ="RETURN"
P� c=127 � ="DELETE"
Z� c<32 � ="CTRL-"+�(c+&40)
d� c<128 � =�c
n=FUNC_keys$(c-127)
x 
�� �repeat(part%)
��
��cursor_off 
�%�DBL(" End of part "+�part%,-1,1)
�=�''''"You got ";right%;" out of ";Nquestions%;" correct."
�*�''"Press   A    to repeat this test."
�*�'"Press SPACE to go on to next part."
�� �(-99) � ="NEXT"
�� �(-66) � ="AGAIN"
�
� �dHO
� 
�� �text(part%)
��cursor_off
�bigpart
+� part% � �TXP,�DrP,�dVP,�DbQ,�t|Q,�TVR
-�'''" CAPS LOCK will be on in this part."
"-�'" This means that the letter keys will"
,-�"produce capitals (""upper case""), and"
6,�"the other keys will produce the lower"
@(�"of the 2 or 3 symbols on the key."
J,�'" This part tests only the keys shown"
T�"above." 
^
�start
h
� �DRR
r2�'''" CAPS LOCK will also be on in this part."
|-�" While CAPS LOCK is on, you can obtain"
�0�"small (""lower case"") letters by holding"
�,�"down SHIFT. SHIFT with the other keys"
�-�"will produce the symbol on the top, or"
��"top left of the key."
�*�" This part tests the 'shifted' keys"
��"shown above."
�
�start
�
� �DRR
�2�'''"CAPS LOCK will still be on in this part."
�+�" Now all the keys from parts 1 and 2"
��"will be tested."
�.�'" The 'unshifted' keys are shown above."
�,�"Press and hold a SHIFT key to see the"
�"'shifted' keys."
+�4,13);"Press SPACE to begin the test"

shifted=�
&�
0H� �(-1) � � shifted � �write_on_keys(3):�write_on_keys(2): shifted=�
:H� shifted � � �(-1) � �write_on_keys(2):�write_on_keys(3): shifted=�
D�cursor_off
N� �(-99) � � shifted
X
� �DRR
b,�'''" Now CAPS LOCK will be turned off."
l,�'" The letter keys now produce capital"
v*�"letters when pressed with the SHIFT"
�,�"key and small letters otherwise.Other"
�)�"keys are as in the previous parts."
�+�'" This part tests both 'shifted' and"
��"'unshifted' keys."
�
�start
�
� �DRR
�1�'''" A few characters are obtained by using"
�*�"the CTRL key in the same way as the"
��"SHIFT key."
�.�'" The characters are printed on the top"
�,�"right of some keys and are also shown"
�
�"above."
�-�'"This part tests these 'control' keys."

�start

� �DRR
/�'''"f0-f9 and BASIC keywords are obtained"
 ,�"by using the FUNC key in the same way"
*'�"as either the SHIFT or CTRL key."
40�'" The keywords are printed in light brown"
>!�"on the front of some keys."
H
�start
R�
\ 
f� �bigpart
p�DBL("Part "+�part%,-1,0)
z�
� 
�� �start
�+�4,13);"Press SPACE to begin the test"
����(-99)
��
� 
�� �control_keys
��3,1
�
�I%=11�12
��114+I%*84,Ymax-108
��"~\",I%-10,1)
��I%
�
�I%=10�12
�156+I%*84,Ymax-203
�"{}]",I%-9,1)
�I%
$�
. 
8� �highlight(x%,y%,shift)
B�5
L�4,0
VA� shift � �invert(94,Ymax-424,116):�invert(1060,Ymax-424,116)
`'� part%=5 � �invert(94,Ymax-329,72)
j'� part%=6 � �invert(52,Ymax-235,72)
t�invert(x%,y%,72)
~�0,1
��4 
��cursor_off
��
� 
�� �invert(x%,y%,length%)
��line%=y%+4 � y%+40 �4
�&�x%+4,line%: �x%+(length%-4),line%
��
��
� 
�� �correct
��DBL("Correct!",-1,4)
@%=&223

0�0,7)"You took     ";delay%/100;" seconds."
total=total+delay%/100
total=�(total*100)/100
(right%=right%+1
22�0,9)"Average time ";total/right%;" seconds."
<�
F 
P� �wrong
Z,� � lit � �highlight(x%,y%,shift): lit=�
d)�DBL("You typed "+�legend(user),-1,3)
n'� �confused � �confused_mess: �tLT
x5�0,7)"You should have pressed ";�key_press(char)
�$�'"instead of ";�key_press(user)
��
� 
�� �confused
�confusion$="l1:|-_O0"
�p1=�confusion$,�user)
�p2=�confusion$,�char)
�� p1<p2 � min=p1 � min=p2
�=(�(p1-p2)=1)�((min � 2)=1)
� 
�� �confused_mess
�� �"l1",�user) � �TlU
�� �":|",�user) � �DJU
� �"-_",�user) � �DhU 
4�0,7);"You have confused the letter ""O"" with"
�'"the number ""0""."
"
� �D|U
,4�0,7);"You have confused the letter ""l"" with"
6�'"the number ""1""."
@
� �D|U
J3�0,7);"You have confused the colon "":"" with"
T)�'"the vertical bar character ""|""."
^
� �D|U
h3�0,7);"You have confused the minus ""-"" with"
r�'"the underline ""_""."
|�
� 
�� �key_press(c)
�� c=13 � ="RETURN"
�� c=32 � ="SPACE"
�� c=127 � ="DELETE"
�#� c<32 � ="CTRL with "+�(c+&40)
�i=�"~\{}]",�c)
�2� i � ="CTRL with "+�legend(� �csr_vals$,i,1))
�� � caps_lock � �d~U
�i=�azAZ$,�c)
�� i=0 � �d~U
�+� i<=26 � ="SHIFT with "+�(c-&20) � =�c
�� �lower$,�c) � =�legend(c)
i=�upper$,�c)
0� i � ="SHIFT with "+�legend(� �lower$,i,1))
&="FUNC with "+�func_base$,c-127,1)
& 
0� �again
:,�'''" You have completed all the parts."
D/�'"You can now repeat any of the parts, or"
N%�'"go to the End of the program."
X�''"CAPS LOCK ON"
b�'"  1. Unshifted keys"
l�'"  2. Shifted keys"
v%�'"  3. Unshifted & shifted keys"
��'"CAPS LOCK OFF"
�%�'"  4. Unshifted & shifted keys"
��'"  5. CTRL keys"
��'"  6. FUNC keys"
�+�''"  E. Go to the end of the program."
�*FX15,0
��''"Your choice ? ";
��
� ANSWER$=�(0)
�� �" 123456Ee",ANSWER$) > 1
�� �"Ee",ANSWER$) � =-1
�=�(ANSWER$)
� 
� �DBL(A$,x%,y%)
%�x%<0��(38-�A$)/2,y%);��x%,y%);
�CH%=1��A$
 K%=�CHAR(��A$,CH%,1))
*�254,10,8,255,11
4�
>�
H 
R� �CHAR(C%)
\6?BLOCK=C%: A%=10: X%=BLOCK: Y%=BLOCK � 256: �&FFF1
f�J%=0�1
p�23,J%+254
z�I%=2�9
��BLOCK?(J%*4+I%�2)
��,
�=0
�

00000000  0d 00 0a 0e f4 20 4b 45  59 42 4f 41 52 44 0d 00  |..... KEYBOARD..|
00000010  14 24 f4 20 45 6c 65 63  74 72 6f 6e 20 49 6e 74  |.$. Electron Int|
00000020  72 6f 64 75 63 74 6f 72  79 20 43 61 73 73 65 74  |roductory Casset|
00000030  74 65 0d 00 1e 1b f4 20  41 75 74 68 6f 72 73 20  |te..... Authors |
00000040  50 2e 48 2e 20 61 6e 64  20 42 2e 42 2e 0d 00 28  |P.H. and B.B...(|
00000050  07 ee 85 f9 0d 00 32 99  e7 4d 25 3d 31 32 33 34  |......2..M%=1234|
00000060  8c 8d 54 7c 40 8b e7 4d  25 3d 35 36 37 38 8c 8d  |..T|@..M%=5678..|
00000070  44 46 40 8b eb 35 3a ef  31 39 2c 33 2c 34 3b 30  |DF@..5:.19,3,4;0|
00000080  3b 3a fb 32 3a f1 8a 30  2c 35 29 22 44 6f 65 73  |;:.2:..0,5)"Does|
00000090  20 79 6f 75 72 20 63 61  73 73 65 74 74 65 22 27  | your cassette"'|
000000a0  27 22 72 65 63 6f 72 64  65 72 20 68 61 76 65 20  |'"recorder have |
000000b0  6d 6f 74 6f 72 22 27 27  22 63 6f 6e 74 72 6f 6c  |motor"''"control|
000000c0  20 28 59 2f 4e 29 3f 22  3b 3a e7 28 a5 80 26 44  | (Y/N)?";:.(..&D|
000000d0  46 29 3d 97 22 59 22 8c  4d 25 3d 35 36 37 38 3a  |F)=."Y".M%=5678:|
000000e0  e5 8d 44 46 40 8b 4d 25  3d 31 32 33 34 0d 00 3c  |..DF@.M%=1234..<|
000000f0  82 d4 31 2c 2d 31 35 2c  31 32 31 2c 36 30 3a eb  |..1,-15,121,60:.|
00000100  35 3a ef 31 39 2c 33 2c  34 3b 30 3b 3a fb 31 3a  |5:.19,3,4;0;:.1:|
00000110  f1 8a 38 2c 39 29 22 53  54 4f 50 22 3b 3a fb 33  |..8,9)"STOP";:.3|
00000120  3a f1 8a 36 2c 31 33 29  22 74 68 65 20 74 61 70  |:..6,13)"the tap|
00000130  65 22 3a fb 32 3a f1 8a  34 2c 32 35 29 22 50 72  |e":.2:..4,25)"Pr|
00000140  65 73 73 20 53 50 41 43  45 22 8a 34 2c 32 37 29  |ess SPACE".4,27)|
00000150  22 74 6f 20 63 6f 6e 74  69 6e 75 65 22 3a f5 fd  |"to continue":..|
00000160  a5 3d 33 32 3a d4 26 31  31 2c 30 2c 30 2c 30 0d  |.=32:.&11,0,0,0.|
00000170  00 46 0d ee 85 d8 3a e5  8d 44 50 40 0d 00 50 0d  |.F....:..DP@..P.|
00000180  de 20 42 4c 4f 43 4b 20  38 0d 00 5a 12 eb 34 3a  |. BLOCK 8..Z..4:|
00000190  f2 63 75 72 73 6f 72 5f  6f 66 66 0d 00 64 22 f2  |.cursor_off..d".|
000001a0  44 42 4c 28 22 4b 65 79  62 6f 61 72 64 22 2c 2d  |DBL("Keyboard",-|
000001b0  31 2c 31 32 29 3a 4e 25  3d a6 35 30 30 0d 00 6e  |1,12):N%=.500..n|
000001c0  0e ee 20 85 20 e5 20 8d  74 64 41 0d 00 78 0f f2  |.. . . .tdA..x..|
000001d0  69 6e 69 74 69 61 6c 69  73 65 0d 00 82 06 eb 36  |initialise.....6|
000001e0  0d 00 8c 09 f2 69 6e 66  6f 0d 00 96 06 eb 34 0d  |.....info.....4.|
000001f0  00 a0 10 f2 73 65 74 5f  77 69 6e 64 6f 77 73 0d  |....set_windows.|
00000200  00 aa 0f f2 62 6c 61 6e  6b 5f 6b 65 79 73 0d 00  |....blank_keys..|
00000210  b4 11 e3 20 70 61 72 74  25 3d 31 20 b8 20 36 0d  |... part%=1 . 6.|
00000220  00 be 06 20 f5 0d 00 c8  13 20 20 f2 73 68 65 65  |... .....  .shee|
00000230  74 28 70 61 72 74 25 29  0d 00 d2 1c 20 20 41 4e  |t(part%)....  AN|
00000240  53 57 45 52 24 3d a4 72  65 70 65 61 74 28 70 61  |SWER$=.repeat(pa|
00000250  72 74 25 29 0d 00 dc 15  20 fd 20 41 4e 53 57 45  |rt%).... . ANSWE|
00000260  52 24 3d 22 4e 45 58 54  22 0d 00 e6 0a ed 70 61  |R$="NEXT".....pa|
00000270  72 74 25 0d 00 f0 05 f5  0d 00 fa 07 20 eb 34 0d  |rt%......... .4.|
00000280  01 04 28 20 41 4e 53 57  45 52 25 3d a4 61 67 61  |..( ANSWER%=.aga|
00000290  69 6e 3a 20 e7 20 41 4e  53 57 45 52 25 3d 2d 31  |in: . ANSWER%=-1|
000002a0  20 8c 20 8d 54 76 41 0d  01 0e 06 20 db 0d 01 18  | . .TvA.... ....|
000002b0  11 20 f2 73 65 74 5f 77  69 6e 64 6f 77 73 0d 01  |. .set_windows..|
000002c0  22 10 20 f2 62 6c 61 6e  6b 5f 6b 65 79 73 0d 01  |". .blank_keys..|
000002d0  2c 14 20 f2 73 68 65 65  74 28 41 4e 53 57 45 52  |,. .sheet(ANSWER|
000002e0  25 29 0d 01 36 10 fd 20  41 4e 53 57 45 52 25 3d  |%)..6.. ANSWER%=|
000002f0  2d 31 0d 01 40 05 d8 0d  01 4a 0c f2 63 6c 65 61  |-1..@....J..clea|
00000300  6e 75 70 0d 01 54 06 eb  34 0d 01 5e 24 f1 8a 38  |nup..T..4..^$..8|
00000310  2c 31 32 29 22 44 6f 20  79 6f 75 20 77 61 6e 74  |,12)"Do you want|
00000320  20 74 6f 20 67 6f 20 6f  6e 20 74 6f 22 0d 01 68  | to go on to"..h|
00000330  26 f1 8a 38 2c 31 33 29  22 74 68 65 20 6e 65 78  |&..8,13)"the nex|
00000340  74 20 70 72 6f 67 72 61  6d 20 28 59 2f 4e 29 3f  |t program (Y/N)?|
00000350  20 22 3b 0d 01 72 16 f5  47 24 3d be 3a fd a7 22  | ";..r..G$=.:.."|
00000360  59 79 4e 6e 22 2c 47 24  29 0d 01 7c 0d ef 20 97  |YyNn",G$)..|.. .|
00000370  28 47 24 29 2c 38 0d 01  86 13 e7 20 a7 22 4e 6e  |(G$),8..... ."Nn|
00000380  22 2c 47 24 29 20 8c 20  f9 0d 01 90 13 f1 27 27  |",G$) . ......''|
00000390  22 50 6c 61 79 20 74 61  70 65 22 27 0d 01 95 0d  |"Play tape"'....|
000003a0  2a 46 58 32 30 32 2c 33  32 0d 01 9a 07 d7 22 22  |*FX202,32.....""|
000003b0  0d 01 a4 11 e7 20 9f 3d  31 37 20 8c 20 8d 44 40  |..... .=17 . .D@|
000003c0  41 0d 01 ae 15 f6 3a 20  f1 22 20 61 74 20 6c 69  |A.....: ." at li|
000003d0  6e 65 20 22 3b 9e 0d 01  b8 05 e0 0d 01 c2 05 20  |ne ";.......... |
000003e0  0d 01 cc 0e dd 20 f2 63  6c 65 61 6e 75 70 0d 01  |..... .cleanup..|
000003f0  d6 08 2a 46 58 34 0d 01  e0 0c 2a 46 58 32 32 35  |..*FX4....*FX225|
00000400  2c 31 0d 01 ea 0c 2a 46  58 32 32 36 2c 31 0d 01  |,1....*FX226,1..|
00000410  f4 0c 2a 46 58 32 32 37  2c 31 0d 01 fe 05 e1 0d  |..*FX227,1......|
00000420  02 08 05 20 0d 02 12 13  dd 20 f2 73 68 65 65 74  |... ..... .sheet|
00000430  28 70 61 72 74 25 29 0d  02 1c 05 db 0d 02 26 18  |(part%).......&.|
00000440  63 61 70 73 5f 6c 6f 63  6b 3d 28 70 61 72 74 25  |caps_lock=(part%|
00000450  3c 3d 33 29 0d 02 30 19  f2 77 72 69 74 65 5f 6f  |<=3)..0..write_o|
00000460  6e 5f 6b 65 79 73 28 70  61 72 74 25 29 0d 02 3a  |n_keys(part%)..:|
00000470  18 f2 63 61 70 73 5f 6c  65 64 28 63 61 70 73 5f  |..caps_led(caps_|
00000480  6c 6f 63 6b 29 0d 02 44  10 f2 74 65 78 74 28 70  |lock)..D..text(p|
00000490  61 72 74 25 29 0d 02 4e  1f f2 71 75 65 73 74 69  |art%)..N..questi|
000004a0  6f 6e 73 28 70 61 72 74  25 2c 63 61 70 73 5f 6c  |ons(part%,caps_l|
000004b0  6f 63 6b 29 0d 02 58 19  f2 77 72 69 74 65 5f 6f  |ock)..X..write_o|
000004c0  6e 5f 6b 65 79 73 28 70  61 72 74 25 29 0d 02 62  |n_keys(part%)..b|
000004d0  05 e1 0d 02 6c 05 20 0d  02 76 1a dd 20 f2 63 61  |....l. ..v.. .ca|
000004e0  70 73 5f 6c 65 64 28 63  61 70 73 5f 6c 6f 63 6b  |ps_led(caps_lock|
000004f0  29 0d 02 80 06 ef 35 0d  02 8a 22 e7 20 63 61 70  |).....5...". cap|
00000500  73 5f 6c 6f 63 6b 20 8c  20 6c 65 64 3d 32 35 30  |s_lock . led=250|
00000510  20 8b 20 6c 65 64 3d 33  32 0d 02 94 10 ec 31 35  | . led=32.....15|
00000520  2c 59 6d 61 78 2d 31 39  37 0d 02 9e 10 e6 30 2c  |,Ymax-197.....0,|
00000530  30 3a 20 ef 32 35 30 2c  38 0d 02 a8 0f e6 30 2c  |0: .250,8.....0,|
00000540  31 3a 20 ef 20 6c 65 64  0d 02 b2 06 ef 34 0d 02  |1: . led.....4..|
00000550  bc 05 e1 0d 02 c6 05 20  0d 02 d0 1b dd 20 f2 77  |....... ..... .w|
00000560  72 69 74 65 5f 6f 6e 5f  6b 65 79 73 28 70 61 72  |rite_on_keys(par|
00000570  74 25 29 0d 02 da 06 ef  35 0d 02 e4 08 e6 33 2c  |t%).....5.....3,|
00000580  31 0d 02 ee 2b ee 20 70  61 72 74 25 20 e5 20 8d  |1...+. part% . .|
00000590  64 78 42 2c 8d 54 7e 43  2c 8d 64 78 42 2c 8d 44  |dxB,.T~C,.dxB,.D|
000005a0  66 43 2c 8d 74 6c 43 2c  8d 64 68 43 0d 02 f8 1b  |fC,.tlC,.dhC....|
000005b0  f4 20 43 41 50 53 20 2b  20 75 6e 73 68 69 66 74  |. CAPS + unshift|
000005c0  65 64 20 6b 65 79 73 0d  03 02 13 4b 24 28 31 29  |ed keys....K$(1)|
000005d0  3d 52 24 28 31 29 2b 22  2d 22 0d 03 0c 10 4b 24  |=R$(1)+"-"....K$|
000005e0  28 32 29 3d 53 52 24 28  32 29 0d 03 16 17 4b 24  |(2)=SR$(2)....K$|
000005f0  28 33 29 3d 53 52 24 28  33 29 2b 52 52 24 28 33  |(3)=SR$(3)+RR$(3|
00000600  29 0d 03 20 17 4b 24 28  34 29 3d 53 52 24 28 34  |).. .K$(4)=SR$(4|
00000610  29 2b 52 52 24 28 34 29  0d 03 2a 10 f2 63 75 72  |)+RR$(4)..*..cur|
00000620  73 6f 72 5f 6b 65 79 73  0d 03 34 0a e5 20 8d 54  |sor_keys..4.. .T|
00000630  5a 44 0d 03 3e 20 f4 20  32 2e 20 6e 6f 6e 2d 43  |ZD..> . 2. non-C|
00000640  41 50 53 20 2b 20 73 68  69 66 74 65 64 20 6b 65  |APS + shifted ke|
00000650  79 73 0d 03 48 18 4b 24  28 31 29 3d 53 52 24 28  |ys..H.K$(1)=SR$(|
00000660  31 29 2b 53 52 52 24 28  31 29 0d 03 52 22 e3 69  |1)+SRR$(1)..R".i|
00000670  3d 32 b8 34 3a 20 4b 24  28 69 29 3d 52 24 28 69  |=2.4: K$(i)=R$(i|
00000680  29 2b 53 52 52 24 28 69  29 3a 20 ed 0d 03 5c 0a  |)+SRR$(i): ...\.|
00000690  e5 20 8d 54 5a 44 0d 03  66 14 f4 20 75 6e 73 68  |. .TZD..f.. unsh|
000006a0  69 66 74 65 64 20 6b 65  79 73 0d 03 70 13 4b 24  |ifted keys..p.K$|
000006b0  28 31 29 3d 52 24 28 31  29 2b 22 2d 22 0d 03 7a  |(1)=R$(1)+"-"..z|
000006c0  0f 4b 24 28 32 29 3d 52  24 28 32 29 0d 03 84 16  |.K$(2)=R$(2)....|
000006d0  4b 24 28 33 29 3d 52 24  28 33 29 2b 52 52 24 28  |K$(3)=R$(3)+RR$(|
000006e0  33 29 0d 03 8e 16 4b 24  28 34 29 3d 52 24 28 34  |3)....K$(4)=R$(4|
000006f0  29 2b 52 52 24 28 34 29  0d 03 98 10 f2 63 75 72  |)+RR$(4).....cur|
00000700  73 6f 72 5f 6b 65 79 73  0d 03 a2 0a e5 20 8d 54  |sor_keys..... .T|
00000710  5a 44 0d 03 ac 12 f4 20  63 6f 6e 74 72 6f 6c 20  |ZD..... control |
00000720  6b 65 79 73 0d 03 b6 0e  4b 24 28 31 29 3d 22 7e  |keys....K$(1)="~|
00000730  5c 22 0d 03 c0 0f 4b 24  28 32 29 3d 22 7b 7d 5d  |\"....K$(2)="{}]|
00000740  22 0d 03 ca 0c 4b 24 28  33 29 3d 22 22 0d 03 d4  |"....K$(3)=""...|
00000750  0c 4b 24 28 34 29 3d 22  22 0d 03 de 18 f2 63 6f  |.K$(4)="".....co|
00000760  6e 74 72 6f 6c 5f 6b 65  79 73 3a 20 e5 8d 74 7a  |ntrol_keys: ..tz|
00000770  44 0d 03 e8 1f f4 20 73  6f 66 74 6b 65 79 2f 6b  |D..... softkey/k|
00000780  65 79 77 6f 72 64 20 6d  6e 65 6d 6f 6e 69 63 73  |eyword mnemonics|
00000790  0d 03 f2 0f 4b 24 28 31  29 3d 52 24 28 31 29 0d  |....K$(1)=R$(1).|
000007a0  03 fc 10 4b 24 28 32 29  3d 53 52 24 28 32 29 0d  |...K$(2)=SR$(2).|
000007b0  04 06 10 4b 24 28 33 29  3d 53 52 24 28 33 29 0d  |...K$(3)=SR$(3).|
000007c0  04 10 18 4b 24 28 34 29  3d 53 52 24 28 34 29 2b  |...K$(4)=SR$(4)+|
000007d0  53 52 52 24 28 34 29 0d  04 1a 10 e3 49 25 3d 31  |SRR$(4).....I%=1|
000007e0  b8 a9 4b 24 28 31 29 0d  04 24 16 ec 33 30 2b 49  |..K$(1)..$..30+I|
000007f0  25 2a 38 34 2c 59 6d 61  78 2d 31 30 38 0d 04 2e  |%*84,Ymax-108...|
00000800  11 f1 c1 4b 24 28 31 29  2c 49 25 2c 31 29 0d 04  |...K$(1),I%,1)..|
00000810  38 07 ed 49 25 0d 04 42  10 e3 49 25 3d 31 b8 a9  |8..I%..B..I%=1..|
00000820  4b 24 28 32 29 0d 04 4c  16 ec 37 32 2b 49 25 2a  |K$(2)..L..72+I%*|
00000830  38 34 2c 59 6d 61 78 2d  32 30 33 0d 04 56 11 f1  |84,Ymax-203..V..|
00000840  c1 4b 24 28 32 29 2c 49  25 2c 31 29 0d 04 60 07  |.K$(2),I%,1)..`.|
00000850  ed 49 25 0d 04 6a 10 e3  49 25 3d 31 b8 a9 4b 24  |.I%..j..I%=1..K$|
00000860  28 33 29 0d 04 74 17 ec  31 31 34 2b 49 25 2a 38  |(3)..t..114+I%*8|
00000870  34 2c 59 6d 61 78 2d 32  39 39 0d 04 7e 11 f1 c1  |4,Ymax-299..~...|
00000880  4b 24 28 33 29 2c 49 25  2c 31 29 0d 04 88 07 ed  |K$(3),I%,1).....|
00000890  49 25 0d 04 92 10 e3 49  25 3d 31 b8 a9 4b 24 28  |I%.....I%=1..K$(|
000008a0  34 29 0d 04 9c 17 ec 31  35 36 2b 49 25 2a 38 34  |4).....156+I%*84|
000008b0  2c 59 6d 61 78 2d 33 39  33 0d 04 a6 11 f1 c1 4b  |,Ymax-393......K|
000008c0  24 28 34 29 2c 49 25 2c  31 29 0d 04 b0 07 ed 49  |$(4),I%,1).....I|
000008d0  25 0d 04 ba 12 f2 73 6d  61 6c 6c 5f 6c 65 74 74  |%.....small_lett|
000008e0  65 72 73 0d 04 c4 08 e6  30 2c 31 0d 04 ce 06 ef  |ers.....0,1.....|
000008f0  34 0d 04 d8 05 e1 0d 04  e2 05 20 0d 04 ec 1b dd  |4......... .....|
00000900  20 f2 73 65 74 5f 71 75  65 73 74 69 6f 6e 73 28  | .set_questions(|
00000910  70 61 72 74 25 29 0d 04  f6 2b ee 20 70 61 72 74  |part%)...+. part|
00000920  25 20 e5 20 8d 54 40 45  2c 8d 54 68 45 2c 8d 44  |% . .T@E,.ThE,.D|
00000930  46 45 2c 8d 44 46 45 2c  8d 54 68 45 2c 8d 44 78  |FE,.DFE,.ThE,.Dx|
00000940  45 0d 05 00 1b f4 20 44  69 73 70 6c 61 79 20 2b  |E..... Display +|
00000950  20 63 75 72 73 6f 72 20  6b 65 79 73 0d 05 0a 16  | cursor keys....|
00000960  51 24 28 31 29 3d 52 24  28 31 29 2b 52 52 24 28  |Q$(1)=R$(1)+RR$(|
00000970  31 29 0d 05 14 22 e3 69  3d 32 b8 34 3a 20 51 24  |1)...".i=2.4: Q$|
00000980  28 69 29 3d 53 52 24 28  69 29 2b 52 52 24 28 69  |(i)=SR$(i)+RR$(i|
00000990  29 3a 20 ed 0d 05 1e 0a  e5 20 8d 74 6a 45 0d 05  |): ...... .tjE..|
000009a0  28 15 f4 20 53 61 6d 65  20 61 73 20 64 69 73 70  |(.. Same as disp|
000009b0  6c 61 79 0d 05 32 18 e3  69 3d 31 b8 34 3a 51 24  |lay..2..i=1.4:Q$|
000009c0  28 69 29 3d 4b 24 28 69  29 3a ed 0d 05 3c 0a e5  |(i)=K$(i):...<..|
000009d0  20 8d 74 6a 45 0d 05 46  1b f4 20 55 6e 73 68 69  | .tjE..F.. Unshi|
000009e0  66 74 65 64 20 6f 72 20  73 68 69 66 74 65 64 2e  |fted or shifted.|
000009f0  0d 05 50 0a e3 69 3d 31  b8 34 0d 05 5a 25 51 24  |..P..i=1.4..Z%Q$|
00000a00  28 69 29 3d 52 24 28 69  29 2b 52 52 24 28 69 29  |(i)=R$(i)+RR$(i)|
00000a10  2b 53 52 24 28 69 29 2b  53 52 52 24 28 69 29 0d  |+SR$(i)+SRR$(i).|
00000a20  05 64 05 ed 0d 05 6e 0a  e5 20 8d 74 6a 45 0d 05  |.d....n.. .tjE..|
00000a30  78 17 f4 20 53 6f 66 74  6b 65 79 73 2f 6b 65 79  |x.. Softkeys/key|
00000a40  77 6f 72 64 73 0d 05 82  17 f2 74 72 61 6e 73 6c  |words.....transl|
00000a50  61 74 65 28 31 2c 52 24  28 31 29 29 0d 05 8c 18  |ate(1,R$(1))....|
00000a60  f2 74 72 61 6e 73 6c 61  74 65 28 32 2c 53 52 24  |.translate(2,SR$|
00000a70  28 32 29 29 0d 05 96 18  f2 74 72 61 6e 73 6c 61  |(2)).....transla|
00000a80  74 65 28 33 2c 53 52 24  28 33 29 29 0d 05 a0 20  |te(3,SR$(3))... |
00000a90  f2 74 72 61 6e 73 6c 61  74 65 28 34 2c 53 52 24  |.translate(4,SR$|
00000aa0  28 34 29 2b 53 52 52 24  28 34 29 29 0d 05 aa 05  |(4)+SRR$(4))....|
00000ab0  e1 0d 05 b4 05 20 0d 05  be 16 dd 20 f2 74 72 61  |..... ..... .tra|
00000ac0  6e 73 6c 61 74 65 28 69  2c 53 24 29 0d 05 c8 0c  |nslate(i,S$)....|
00000ad0  51 24 28 69 29 3d 22 22  0d 05 d2 0e e3 78 3d 31  |Q$(i)="".....x=1|
00000ae0  b8 20 a9 20 53 24 0d 05  dc 1d 6e 3d a7 66 75 6e  |. . S$....n=.fun|
00000af0  63 5f 62 61 73 65 24 2c  c1 53 24 2c 78 2c 31 29  |c_base$,.S$,x,1)|
00000b00  2c 31 29 0d 05 e6 18 51  24 28 69 29 3d 51 24 28  |,1)....Q$(i)=Q$(|
00000b10  69 29 2b bd 28 6e 2b 31  32 37 29 0d 05 f0 05 ed  |i)+.(n+127).....|
00000b20  0d 05 fa 05 e1 0d 06 04  05 20 0d 06 0e 11 dd 20  |......... ..... |
00000b30  f2 62 6c 61 6e 6b 5f 6b  65 79 73 0d 06 18 0f f2  |.blank_keys.....|
00000b40  63 75 72 73 6f 72 5f 6f  66 66 0d 06 22 06 ef 35  |cursor_off.."..5|
00000b50  0d 06 2c 08 e6 30 2c 31  0d 06 36 0c e3 49 25 3d  |..,..0,1..6..I%=|
00000b60  30 b8 31 34 0d 06 40 1d  f2 62 6c 6f 63 6b 28 31  |0.14..@..block(1|
00000b70  30 2b 49 25 2a 38 34 2c  59 6d 61 78 2d 31 34 30  |0+I%*84,Ymax-140|
00000b80  29 0d 06 4a 07 ed 49 25  0d 06 54 0c e3 49 25 3d  |)..J..I%..T..I%=|
00000b90  30 b8 31 33 0d 06 5e 1d  f2 62 6c 6f 63 6b 28 35  |0.13..^..block(5|
00000ba0  32 2b 49 25 2a 38 34 2c  59 6d 61 78 2d 32 33 35  |2+I%*84,Ymax-235|
00000bb0  29 0d 06 68 07 ed 49 25  0d 06 72 0c e3 49 25 3d  |)..h..I%..r..I%=|
00000bc0  30 b8 31 31 0d 06 7c 1d  f2 62 6c 6f 63 6b 28 39  |0.11..|..block(9|
00000bd0  34 2b 49 25 2a 38 34 2c  59 6d 61 78 2d 33 32 39  |4+I%*84,Ymax-329|
00000be0  29 0d 06 86 07 ed 49 25  0d 06 90 1d f2 64 6f 75  |).....I%.....dou|
00000bf0  62 6c 65 6b 65 79 28 31  31 30 30 2c 59 6d 61 78  |blekey(1100,Ymax|
00000c00  2d 33 32 39 29 0d 06 9a  1b f2 64 6f 75 62 6c 65  |-329).....double|
00000c10  6b 65 79 28 39 34 2c 59  6d 61 78 2d 34 32 34 29  |key(94,Ymax-424)|
00000c20  0d 06 a4 0b e3 49 25 3d  30 b8 39 0d 06 ae 1e f2  |.....I%=0.9.....|
00000c30  62 6c 6f 63 6b 28 32 32  30 2b 49 25 2a 38 34 2c  |block(220+I%*84,|
00000c40  59 6d 61 78 2d 34 32 34  29 0d 06 b8 07 ed 49 25  |Ymax-424).....I%|
00000c50  0d 06 c2 1d f2 64 6f 75  62 6c 65 6b 65 79 28 31  |.....doublekey(1|
00000c60  30 36 30 2c 59 6d 61 78  2d 34 32 34 29 0d 06 cc  |060,Ymax-424)...|
00000c70  19 f2 62 6c 6f 63 6b 28  31 31 38 38 2c 59 6d 61  |..block(1188,Yma|
00000c80  78 2d 34 32 34 29 0d 06  d6 0d f2 73 70 61 63 65  |x-424).....space|
00000c90  62 61 72 0d 06 e0 06 ef  34 0d 06 ea 05 e1 0d 06  |bar.....4.......|
00000ca0  f4 05 20 0d 06 fe 13 dd  20 f2 62 6c 6f 63 6b 28  |.. ..... .block(|
00000cb0  58 25 2c 59 25 29 0d 07  08 0a ec 58 25 2c 59 25  |X%,Y%).....X%,Y%|
00000cc0  0d 07 12 0d ec 58 25 2b  37 32 2c 59 25 0d 07 1c  |.....X%+72,Y%...|
00000cd0  10 f0 38 35 2c 58 25 2c  59 25 2b 34 34 0d 07 26  |..85,X%,Y%+44..&|
00000ce0  13 f0 38 35 2c 58 25 2b  37 32 2c 59 25 2b 34 34  |..85,X%+72,Y%+44|
00000cf0  0d 07 30 05 e1 0d 07 3a  05 20 0d 07 44 17 dd 20  |..0....:. ..D.. |
00000d00  f2 64 6f 75 62 6c 65 6b  65 79 28 58 25 2c 59 25  |.doublekey(X%,Y%|
00000d10  29 0d 07 4e 0b ec 58 25  2c 59 25 20 0d 07 58 0f  |)..N..X%,Y% ..X.|
00000d20  ec 58 25 2b 31 31 36 2c  59 25 20 0d 07 62 10 f0  |.X%+116,Y% ..b..|
00000d30  38 35 2c 58 25 2c 59 25  2b 34 34 0d 07 6c 15 f0  |85,X%,Y%+44..l..|
00000d40  38 35 2c 58 25 2b 31 31  36 2c 59 25 2b 34 34 20  |85,X%+116,Y%+44 |
00000d50  0d 07 76 06 e1 20 0d 07  80 05 20 0d 07 8a 11 dd  |..v.. .... .....|
00000d60  20 f2 69 6e 69 74 69 61  6c 69 73 65 0d 07 94 0a  | .initialise....|
00000d70  2a 46 58 34 2c 32 0d 07  9e 0e 2a 46 58 32 32 35  |*FX4,2....*FX225|
00000d80  2c 31 32 38 0d 07 a8 0e  2a 46 58 32 32 36 2c 31  |,128....*FX226,1|
00000d90  34 34 0d 07 b2 0e 2a 46  58 32 32 37 2c 31 36 30  |44....*FX227,160|
00000da0  0d 07 bc 1b 6c 65 66 74  24 3d bd 31 34 30 3a 20  |....left$=.140: |
00000db0  72 69 67 68 74 24 3d bd  31 34 31 0d 07 c6 18 64  |right$=.141....d|
00000dc0  6f 77 6e 24 3d bd 31 34  32 3a 20 75 70 24 3d bd  |own$=.142: up$=.|
00000dd0  31 34 33 0d 07 d0 0e 63  6f 70 79 24 3d bd 31 33  |143....copy$=.13|
00000de0  39 0d 07 da 2a 63 73 72  5f 76 61 6c 73 24 3d 6c  |9...*csr_vals$=l|
00000df0  65 66 74 24 2b 72 69 67  68 74 24 2b 75 70 24 2b  |eft$+right$+up$+|
00000e00  64 6f 77 6e 24 2b 63 6f  70 79 24 0d 07 e4 28 63  |down$+copy$...(c|
00000e10  73 72 5f 63 68 72 73 24  3d bd 32 34 32 2b bd 32  |sr_chrs$=.242+.2|
00000e20  34 33 2b bd 32 34 35 2b  bd 32 34 34 2b 22 43 4f  |43+.245+.244+"CO|
00000e30  50 59 22 0d 07 ee 21 de  20 52 24 28 34 29 2c 52  |PY"...!. R$(4),R|
00000e40  52 24 28 34 29 2c 53 52  24 28 34 29 2c 53 52 52  |R$(4),SR$(4),SRR|
00000e50  24 28 34 29 0d 07 f8 20  de 20 4b 24 28 34 29 2c  |$(4)... . K$(4),|
00000e60  51 24 28 34 29 2c 46 55  4e 43 5f 6b 65 79 73 24  |Q$(4),FUNC_keys$|
00000e70  28 34 38 29 0d 08 02 23  f4 20 43 54 20 52 4c 20  |(48)...#. CT RL |
00000e80  46 55 20 4e 43 20 53 48  20 49 46 20 54 20 45 53  |FU NC SH IF T ES|
00000e90  20 43 20 42 52 20 4b 0d  08 0c 21 ef 32 33 2c 32  | C BR K...!.23,2|
00000ea0  32 34 3b 30 3b 26 45 45  2c 26 38 34 2c 26 38 34  |24;0;&EE,&84,&84|
00000eb0  2c 26 38 34 2c 26 45 34  0d 08 16 21 ef 32 33 2c  |,&84,&E4...!.23,|
00000ec0  32 32 35 3b 30 3b 26 43  38 2c 26 41 38 2c 26 43  |225;0;&C8,&A8,&C|
00000ed0  38 2c 26 41 38 2c 26 41  45 0d 08 20 21 ef 32 33  |8,&A8,&AE.. !.23|
00000ee0  2c 32 32 36 3b 30 3b 26  45 41 2c 26 38 41 2c 26  |,226;0;&EA,&8A,&|
00000ef0  43 41 2c 26 38 41 2c 26  38 45 0d 08 2a 21 ef 32  |CA,&8A,&8E..*!.2|
00000f00  33 2c 32 32 37 3b 30 3b  26 39 37 2c 26 44 34 2c  |3,227;0;&97,&D4,|
00000f10  26 42 34 2c 26 39 34 2c  26 39 37 0d 08 34 21 ef  |&B4,&94,&97..4!.|
00000f20  32 33 2c 32 32 38 3b 30  3b 26 45 41 2c 26 38 41  |23,228;0;&EA,&8A|
00000f30  2c 26 45 45 2c 26 32 41  2c 26 45 41 0d 08 3e 21  |,&EE,&2A,&EA..>!|
00000f40  ef 32 33 2c 32 32 39 3b  30 3b 26 42 42 2c 26 41  |.23,229;0;&BB,&A|
00000f50  31 2c 26 42 31 2c 26 41  31 2c 26 41 31 0d 08 48  |1,&B1,&A1,&A1..H|
00000f60  16 ef 32 33 2c 32 33 30  3b 30 3b 26 38 30 2c 30  |..23,230;0;&80,0|
00000f70  3b 30 3b 0d 08 52 21 ef  32 33 2c 32 33 31 3b 30  |;0;..R!.23,231;0|
00000f80  3b 26 45 45 2c 26 38 38  2c 26 43 45 2c 26 38 32  |;&EE,&88,&CE,&82|
00000f90  2c 26 45 45 0d 08 5c 21  ef 32 33 2c 32 33 32 3b  |,&EE..\!.23,232;|
00000fa0  30 3b 26 45 30 2c 26 38  30 2c 26 38 30 2c 26 38  |0;&E0,&80,&80,&8|
00000fb0  30 2c 26 45 30 0d 08 66  21 ef 32 33 2c 32 33 33  |0,&E0..f!.23,233|
00000fc0  3b 30 3b 26 43 43 2c 26  41 41 2c 26 43 43 2c 26  |;0;&CC,&AA,&CC,&|
00000fd0  41 41 2c 26 43 41 0d 08  70 21 ef 32 33 2c 32 33  |AA,&CA..p!.23,23|
00000fe0  34 3b 30 3b 26 39 30 2c  26 41 30 2c 26 43 30 2c  |4;0;&90,&A0,&C0,|
00000ff0  26 41 30 2c 26 39 30 0d  08 7a 21 f4 20 44 45 20  |&A0,&90..z!. DE |
00001000  4c 20 52 45 20 54 55 20  52 4e 20 43 4f 20 50 59  |L RE TU RN CO PY|
00001010  20 3c 20 3e 20 5e 20 56  0d 08 84 21 ef 32 33 2c  | < > ^ V...!.23,|
00001020  32 33 35 3b 30 3b 26 43  45 2c 26 41 38 2c 26 41  |235;0;&CE,&A8,&A|
00001030  43 2c 26 41 38 2c 26 43  45 0d 08 8e 21 ef 32 33  |C,&A8,&CE...!.23|
00001040  2c 32 33 36 3b 30 3b 26  38 30 2c 26 38 30 2c 26  |,236;0;&80,&80,&|
00001050  38 30 2c 26 38 30 2c 26  45 30 0d 08 98 21 ef 32  |80,&80,&E0...!.2|
00001060  33 2c 32 33 37 3b 30 3b  26 43 45 2c 26 41 38 2c  |3,237;0;&CE,&A8,|
00001070  26 43 43 2c 26 41 38 2c  26 41 45 0d 08 a2 21 ef  |&CC,&A8,&AE...!.|
00001080  32 33 2c 32 33 38 3b 30  3b 26 45 41 2c 26 34 41  |23,238;0;&EA,&4A|
00001090  2c 26 34 41 2c 26 34 41  2c 26 34 45 0d 08 ac 21  |,&4A,&4A,&4E...!|
000010a0  ef 32 33 2c 32 33 39 3b  30 3b 26 43 39 2c 26 41  |.23,239;0;&C9,&A|
000010b0  44 2c 26 43 42 2c 26 41  39 2c 26 41 39 0d 08 b6  |D,&CB,&A9,&A9...|
000010c0  21 ef 32 33 2c 32 34 30  3b 30 3b 26 45 45 2c 26  |!.23,240;0;&EE,&|
000010d0  38 41 2c 26 38 41 2c 26  38 41 2c 26 45 45 0d 08  |8A,&8A,&8A,&EE..|
000010e0  c0 21 ef 32 33 2c 32 34  31 3b 30 3b 26 45 41 2c  |.!.23,241;0;&EA,|
000010f0  26 41 41 2c 26 45 34 2c  26 38 34 2c 26 38 34 0d  |&AA,&E4,&84,&84.|
00001100  08 ca 21 ef 32 33 2c 32  34 32 3b 26 32 30 2c 26  |..!.23,242;&20,&|
00001110  36 30 2c 26 46 46 2c 26  36 30 2c 26 32 30 3b 30  |60,&FF,&60,&20;0|
00001120  0d 08 d4 21 ef 32 33 2c  32 34 33 3b 26 30 34 2c  |...!.23,243;&04,|
00001130  26 30 36 2c 26 46 46 2c  26 30 36 2c 26 30 34 3b  |&06,&FF,&06,&04;|
00001140  30 0d 08 de 2b ef 32 33  2c 32 34 35 2c 26 31 30  |0...+.23,245,&10|
00001150  2c 26 33 38 2c 26 37 43  2c 26 31 30 2c 26 31 30  |,&38,&7C,&10,&10|
00001160  2c 26 31 30 2c 26 31 30  2c 26 31 30 0d 08 e8 2b  |,&10,&10,&10...+|
00001170  ef 32 33 2c 32 34 34 2c  26 31 30 2c 26 31 30 2c  |.23,244,&10,&10,|
00001180  26 31 30 2c 26 31 30 2c  26 31 30 2c 26 37 43 2c  |&10,&10,&10,&7C,|
00001190  26 33 38 2c 26 31 30 0d  08 f2 1d f4 20 53 50 20  |&38,&10..... SP |
000011a0  41 43 20 45 20 72 65 74  75 72 6e 20 63 61 70 73  |AC E return caps|
000011b0  5f 6c 65 64 0d 08 fc 21  ef 32 33 2c 32 34 36 3b  |_led...!.23,246;|
000011c0  30 3b 26 45 45 2c 26 38  41 2c 26 45 45 2c 26 32  |0;&EE,&8A,&EE,&2|
000011d0  38 2c 26 45 38 0d 09 06  21 ef 32 33 2c 32 34 37  |8,&E8...!.23,247|
000011e0  3b 30 3b 26 45 45 2c 26  41 38 2c 26 45 38 2c 26  |;0;&EE,&A8,&E8,&|
000011f0  41 38 2c 26 41 45 0d 09  10 21 ef 32 33 2c 32 34  |A8,&AE...!.23,24|
00001200  38 3b 30 3b 26 45 30 2c  26 38 30 2c 26 43 30 2c  |8;0;&E0,&80,&C0,|
00001210  26 38 30 2c 26 45 30 0d  09 1a 21 ef 32 33 2c 32  |&80,&E0...!.23,2|
00001220  34 39 2c 34 2c 34 2c 34  2c 34 2c 34 2c 26 34 34  |49,4,4,4,4,4,&44|
00001230  2c 26 46 43 2c 26 34 30  0d 09 24 20 ef 32 33 2c  |,&FC,&40..$ .23,|
00001240  32 35 30 2c 30 3b 26 31  38 2c 26 33 43 2c 26 33  |250,0;&18,&3C,&3|
00001250  43 2c 26 31 38 2c 30 3b  0d 09 2e 0d 59 6d 61 78  |C,&18,0;....Ymax|
00001260  3d 31 30 32 33 0d 09 38  2e 52 24 28 31 29 3d 22  |=1023..8.R$(1)="|
00001270  31 32 33 34 35 36 37 38  39 30 22 3a 52 52 24 28  |1234567890":RR$(|
00001280  31 29 3d 22 2d 22 2b 6c  65 66 74 24 2b 72 69 67  |1)="-"+left$+rig|
00001290  68 74 24 0d 09 42 2d 52  24 28 32 29 3d 22 71 77  |ht$..B-R$(2)="qw|
000012a0  65 72 74 79 75 69 6f 70  22 3a 52 52 24 28 32 29  |ertyuiop":RR$(2)|
000012b0  3d 75 70 24 2b 64 6f 77  6e 24 2b 63 6f 70 79 24  |=up$+down$+copy$|
000012c0  0d 09 4c 21 52 24 28 33  29 3d 22 61 73 64 66 67  |..L!R$(3)="asdfg|
000012d0  68 6a 6b 6c 22 3a 52 52  24 28 33 29 3d 22 3b 3a  |hjkl":RR$(3)=";:|
000012e0  22 0d 09 56 20 52 24 28  34 29 3d 22 7a 78 63 76  |"..V R$(4)="zxcv|
000012f0  62 6e 6d 22 3a 52 52 24  28 34 29 3d 22 2c 2e 2f  |bnm":RR$(4)=",./|
00001300  22 0d 09 60 26 53 52 24  28 31 29 3d 22 21 22 22  |"..`&SR$(1)="!""|
00001310  23 24 25 26 27 28 29 40  22 3a 53 52 52 24 28 31  |#$%&'()@":SRR$(1|
00001320  29 3d 22 3d 5e 7c 22 0d  09 6a 25 53 52 24 28 32  |)="=^|"..j%SR$(2|
00001330  29 3d 22 51 57 45 52 54  59 55 49 4f 50 22 3a 53  |)="QWERTYUIOP":S|
00001340  52 52 24 28 32 29 3d 22  60 5f 5b 22 0d 09 74 23  |RR$(2)="`_["..t#|
00001350  53 52 24 28 33 29 3d 22  41 53 44 46 47 48 4a 4b  |SR$(3)="ASDFGHJK|
00001360  4c 22 3a 53 52 52 24 28  33 29 3d 22 2b 2a 22 0d  |L":SRR$(3)="+*".|
00001370  09 7e 22 53 52 24 28 34  29 3d 22 5a 58 43 56 42  |.~"SR$(4)="ZXCVB|
00001380  4e 4d 22 3a 53 52 52 24  28 34 29 3d 22 3c 3e 3f  |NM":SRR$(4)="<>?|
00001390  22 0d 09 88 18 6c 6f 77  65 72 24 3d 22 22 3a 20  |"....lower$="": |
000013a0  75 70 70 65 72 24 3d 22  22 0d 09 92 0a e3 69 3d  |upper$="".....i=|
000013b0  31 b8 34 0d 09 9c 1e 6c  6f 77 65 72 24 3d 6c 6f  |1.4....lower$=lo|
000013c0  77 65 72 24 2b 52 24 28  69 29 2b 52 52 24 28 69  |wer$+R$(i)+RR$(i|
000013d0  29 0d 09 a6 20 75 70 70  65 72 24 3d 75 70 70 65  |)... upper$=uppe|
000013e0  72 24 2b 53 52 24 28 69  29 2b 53 52 52 24 28 69  |r$+SR$(i)+SRR$(i|
000013f0  29 0d 09 b0 05 ed 0d 09  ba 40 61 7a 41 5a 24 3d  |)........@azAZ$=|
00001400  22 61 62 63 64 65 66 67  68 69 6a 6b 6c 6d 6e 6f  |"abcdefghijklmno|
00001410  70 71 72 73 74 75 76 77  78 79 7a 41 42 43 44 45  |pqrstuvwxyzABCDE|
00001420  46 47 48 49 4a 4b 4c 4d  4e 4f 50 51 52 53 54 55  |FGHIJKLMNOPQRSTU|
00001430  56 57 58 59 5a 22 0d 09  c4 60 66 75 6e 63 5f 62  |VWXYZ"...`func_b|
00001440  61 73 65 24 3d 22 30 31  32 33 34 35 36 37 38 39  |ase$="0123456789|
00001450  22 2b bd 32 35 35 2b 63  6f 70 79 24 2b 6c 65 66  |"+.255+copy$+lef|
00001460  74 24 2b 72 69 67 68 74  24 2b 64 6f 77 6e 24 2b  |t$+right$+down$+|
00001470  75 70 24 2b 22 41 42 43  44 45 46 47 48 49 4a 4b  |up$+"ABCDEFGHIJK|
00001480  4c 4d 4e 4f 50 51 52 53  54 55 56 57 58 59 5a 3a  |LMNOPQRSTUVWXYZ:|
00001490  3b 3c 2d 3e 3f 22 0d 09  ce 0e e3 20 69 3d 31 20  |;<->?"..... i=1 |
000014a0  b8 20 34 38 0d 09 d8 13  f3 20 46 55 4e 43 5f 6b  |. 48..... FUNC_k|
000014b0  65 79 73 24 28 69 29 0d  09 e2 07 ed 20 69 0d 09  |eys$(i)..... i..|
000014c0  ec 17 46 55 4e 43 5f 6b  65 79 73 24 28 31 33 29  |..FUNC_keys$(13)|
000014d0  3d bd 32 34 32 0d 09 f6  17 46 55 4e 43 5f 6b 65  |=.242....FUNC_ke|
000014e0  79 73 24 28 31 34 29 3d  bd 32 34 33 0d 0a 00 17  |ys$(14)=.243....|
000014f0  46 55 4e 43 5f 6b 65 79  73 24 28 31 35 29 3d bd  |FUNC_keys$(15)=.|
00001500  32 34 34 0d 0a 0a 17 46  55 4e 43 5f 6b 65 79 73  |244....FUNC_keys|
00001510  24 28 31 36 29 3d bd 32  34 35 0d 0a 14 1d 46 55  |$(16)=.245....FU|
00001520  4e 43 5f 6b 65 79 73 24  28 33 31 29 3d 22 4f 4c  |NC_keys$(31)="OL|
00001530  44 22 2b bd 32 34 39 0d  0a 1e 1d 46 55 4e 43 5f  |D"+.249....FUNC_|
00001540  6b 65 79 73 24 28 33 34  29 3d 22 52 55 4e 22 2b  |keys$(34)="RUN"+|
00001550  bd 32 34 39 0d 0a 28 05  e1 0d 0a 32 05 20 0d 0a  |.249..(....2. ..|
00001560  3c 22 dc 66 30 2c 66 31  2c 66 32 2c 66 33 2c 66  |<".f0,f1,f2,f3,f|
00001570  34 2c 66 35 2c 66 36 2c  66 37 2c 66 38 2c 66 39  |4,f5,f6,f7,f8,f9|
00001580  0d 0a 46 18 dc 22 22 2c  43 4f 50 59 2c 22 22 2c  |..F.."",COPY,"",|
00001590  22 22 2c 22 22 2c 22 22  0d 0a 50 20 dc 41 55 54  |"","",""..P .AUT|
000015a0  4f 2c 52 45 4e 55 4d 2c  43 4f 4c 4f 55 52 2c 44  |O,RENUM,COLOUR,D|
000015b0  52 41 57 2c 45 4c 53 45  0d 0a 5a 21 dc 46 4f 52  |RAW,ELSE..Z!.FOR|
000015c0  2c 47 4f 54 4f 2c 44 45  47 2c 49 4e 50 55 54 2c  |,GOTO,DEG,INPUT,|
000015d0  52 41 44 2c 43 48 41 49  4e 0d 0a 64 21 dc 4c 49  |RAD,CHAIN..d!.LI|
000015e0  53 54 2c 4d 4f 44 45 2c  4e 45 58 54 2c 22 22 2c  |ST,MODE,NEXT,"",|
000015f0  50 4c 4f 54 2c 4c 4f 43  41 4c 0d 0a 6e 1b dc 22  |PLOT,LOCAL..n.."|
00001600  22 2c 53 54 45 50 2c 54  48 45 4e 2c 55 4e 54 49  |",STEP,THEN,UNTI|
00001610  4c 2c 56 44 55 0d 0a 78  1b dc 52 45 53 54 4f 52  |L,VDU..x..RESTOR|
00001620  2c 50 52 4f 43 2c 52 45  50 45 41 54 2c 45 4e 44  |,PROC,REPEAT,END|
00001630  0d 0a 82 29 dc 46 55 4e  43 2d 3a 2c 46 55 4e 43  |...).FUNC-:,FUNC|
00001640  2d 3b 2c 4c 4f 41 44 2c  46 55 4e 43 2d 2d 2c 53  |-;,LOAD,FUNC--,S|
00001650  41 56 45 2c 50 52 49 4e  54 0d 0a 8c 05 20 0d 0a  |AVE,PRINT.... ..|
00001660  96 12 dd 20 f2 63 75 72  73 6f 72 5f 6b 65 79 73  |... .cursor_keys|
00001670  0d 0a a0 18 ec 31 30 33  38 2c 59 6d 61 78 2d 31  |.....1038,Ymax-1|
00001680  30 38 3a 20 ef 32 34 32  0d 0a aa 18 ec 31 31 32  |08: .242.....112|
00001690  32 2c 59 6d 61 78 2d 31  30 38 3a 20 ef 32 34 33  |2,Ymax-108: .243|
000016a0  0d 0a b4 18 ec 31 30 38  30 2c 59 6d 61 78 2d 32  |.....1080,Ymax-2|
000016b0  30 33 3a 20 ef 32 34 34  0d 0a be 17 ec 39 39 38  |03: .244.....998|
000016c0  2c 59 6d 61 78 2d 32 30  33 3a 20 ef 32 34 35 0d  |,Ymax-203: .245.|
000016d0  0a c8 1c ec 31 31 35 32  2c 59 6d 61 78 2d 31 39  |....1152,Ymax-19|
000016e0  35 3a 20 ef 32 34 30 2c  32 34 31 0d 0a d2 05 e1  |5: .240,241.....|
000016f0  0d 0a dc 05 20 0d 0a e6  14 dd 20 f2 73 6d 61 6c  |.... ..... .smal|
00001700  6c 5f 6c 65 74 74 65 72  73 0d 0a f0 1a ec 32 36  |l_letters.....26|
00001710  2c 59 6d 61 78 2d 31 30  30 3a 20 ef 32 33 31 2c  |,Ymax-100: .231,|
00001720  32 33 32 0d 0a fa 1a ec  35 36 2c 59 6d 61 78 2d  |232.....56,Ymax-|
00001730  31 39 35 3a 20 ef 32 32  36 2c 32 32 37 0d 0b 04  |195: .226,227...|
00001740  1b ec 31 30 32 2c 59 6d  61 78 2d 32 38 39 3a 20  |..102,Ymax-289: |
00001750  ef 32 32 34 2c 32 32 35  0d 0b 0e 1f ec 31 31 38  |.224,225.....118|
00001760  2c 59 6d 61 78 2d 33 38  34 3a 20 ef 32 32 38 2c  |,Ymax-384: .228,|
00001770  32 32 39 2c 32 33 30 0d  0b 18 1c ec 31 32 30 32  |229,230.....1202|
00001780  2c 59 6d 61 78 2d 31 30  30 3a 20 ef 32 33 33 2c  |,Ymax-100: .233,|
00001790  32 33 34 0d 0b 22 20 ec  31 31 31 34 2c 59 6d 61  |234.." .1114,Yma|
000017a0  78 2d 32 38 39 3a 20 ef  32 33 37 2c 32 33 38 2c  |x-289: .237,238,|
000017b0  32 33 39 0d 0b 2c 20 ec  31 30 38 38 2c 59 6d 61  |239.., .1088,Yma|
000017c0  78 2d 33 38 34 3a 20 ef  32 32 38 2c 32 32 39 2c  |x-384: .228,229,|
000017d0  32 33 30 0d 0b 36 1c ec  31 32 30 34 2c 59 6d 61  |230..6..1204,Yma|
000017e0  78 2d 33 38 34 3a 20 ef  32 33 35 2c 32 33 36 0d  |x-384: .235,236.|
000017f0  0b 40 1f ec 36 33 32 2c  59 6d 61 78 2d 34 37 31  |.@..632,Ymax-471|
00001800  3a 20 ef 32 34 36 2c 32  34 37 2c 32 34 38 0d 0b  |: .246,247,248..|
00001810  4a 05 e1 0d 0b 54 05 20  0d 0b 5e 0f dd 20 f2 73  |J....T. ..^.. .s|
00001820  70 61 63 65 62 61 72 0d  0b 68 11 ec 33 32 34 2c  |pacebar..h..324,|
00001830  59 6d 61 78 2d 35 31 34  0d 0b 72 11 ec 39 39 36  |Ymax-514..r..996|
00001840  2c 59 6d 61 78 2d 35 31  34 0d 0b 7c 14 f0 38 35  |,Ymax-514..|..85|
00001850  2c 33 32 34 2c 59 6d 61  78 2d 34 36 34 0d 0b 86  |,324,Ymax-464...|
00001860  14 f0 38 35 2c 39 39 36  2c 59 6d 61 78 2d 34 36  |..85,996,Ymax-46|
00001870  34 0d 0b 90 05 e1 0d 0b  9a 05 20 0d 0b a4 0b dd  |4......... .....|
00001880  20 f2 69 6e 66 6f 0d 0b  ae 0f f2 63 75 72 73 6f  | .info.....curso|
00001890  72 5f 6f 66 66 0d 0b b8  32 f1 27 27 27 27 22 20  |r_off...2.''''" |
000018a0  55 73 69 6e 67 20 74 68  69 73 20 70 72 6f 67 72  |Using this progr|
000018b0  61 6d 20 73 68 6f 75 6c  64 20 68 65 6c 70 20 79  |am should help y|
000018c0  6f 75 20 67 65 74 22 0d  0b c2 2d f1 22 75 73 65  |ou get"...-."use|
000018d0  64 20 74 6f 20 74 68 65  20 6b 65 79 62 6f 61 72  |d to the keyboar|
000018e0  64 2c 20 61 6e 64 20 73  68 6f 77 20 79 6f 75 20  |d, and show you |
000018f0  68 6f 77 22 0d 0b cc 30  f1 22 74 6f 20 67 65 74  |how"...0."to get|
00001900  20 61 6c 6c 20 6f 66 20  74 68 65 20 66 75 6e 63  | all of the func|
00001910  74 69 6f 6e 73 20 6f 66  20 65 61 63 68 20 6b 65  |tions of each ke|
00001920  79 2e 22 3b 0d 0b d6 2e  f1 27 22 20 54 68 65 20  |y.";.....'" The |
00001930  63 6f 6d 70 75 74 65 72  20 77 69 6c 6c 20 64 69  |computer will di|
00001940  73 70 6c 61 79 20 61 20  63 68 61 72 61 63 74 65  |splay a characte|
00001950  72 22 0d 0b e0 30 f1 22  61 6e 64 20 77 61 69 74  |r"...0."and wait|
00001960  20 66 6f 72 20 79 6f 75  20 74 6f 20 66 69 6e 64  | for you to find|
00001970  20 69 74 20 61 6e 64 20  70 72 65 73 73 20 69 74  | it and press it|
00001980  22 3b 0d 0b ea 17 f1 22  6f 6e 20 74 68 65 20 6b  |";....."on the k|
00001990  65 79 62 6f 61 72 64 2e  22 0d 0b f4 31 f1 27 22  |eyboard."...1.'"|
000019a0  20 57 68 65 6e 20 79 6f  75 20 68 61 76 65 20 64  | When you have d|
000019b0  6f 6e 65 20 73 6f 2c 74  68 65 20 63 6f 6d 70 75  |one so,the compu|
000019c0  74 65 72 20 77 69 6c 6c  22 3b 0d 0b fe 30 f1 22  |ter will";...0."|
000019d0  74 65 6c 6c 20 79 6f 75  20 74 68 65 20 74 69 6d  |tell you the tim|
000019e0  65 20 74 61 6b 65 6e 20  61 6e 64 20 79 6f 75 72  |e taken and your|
000019f0  20 61 76 65 72 61 67 65  22 3b 0d 0c 08 13 f1 22  | average";....."|
00001a00  74 69 6d 65 20 73 6f 20  66 61 72 2e 22 0d 0c 12  |time so far."...|
00001a10  2e f1 27 22 20 50 72 65  73 73 69 6e 67 20 74 68  |..'" Pressing th|
00001a20  65 20 45 53 43 41 50 45  20 6b 65 79 20 77 69 6c  |e ESCAPE key wil|
00001a30  6c 20 74 61 6b 65 20 79  6f 75 22 0d 0c 1c 21 f1  |l take you"...!.|
00001a40  22 74 6f 20 74 68 65 20  65 6e 64 20 6f 66 20 74  |"to the end of t|
00001a50  68 65 20 70 72 6f 67 72  61 6d 2e 22 0d 0c 26 25  |he program."..&%|
00001a60  f1 8a 37 2c 32 33 29 3b  22 50 72 65 73 73 20 53  |..7,23);"Press S|
00001a70  50 41 43 45 20 74 6f 20  63 6f 6e 74 69 6e 75 65  |PACE to continue|
00001a80  22 0d 0c 30 0c f5 fd a6  28 2d 39 39 29 0d 0c 3a  |"..0....(-99)..:|
00001a90  05 db 0d 0c 44 31 f1 27  22 20 54 68 65 20 63 68  |....D1.'" The ch|
00001aa0  61 72 61 63 74 65 72 20  70 72 6f 64 75 63 65 64  |aracter produced|
00001ab0  20 77 68 65 6e 20 79 6f  75 20 70 72 65 73 73 20  | when you press |
00001ac0  61 22 3b 0d 0c 4e 21 f1  22 6b 65 79 20 64 65 70  |a";..N!."key dep|
00001ad0  65 6e 64 73 20 6f 6e 20  74 77 6f 20 74 68 69 6e  |ends on two thin|
00001ae0  67 73 3a 22 0d 0c 58 2e  f1 27 22 20 31 2e 20 57  |gs:"..X..'" 1. W|
00001af0  68 69 63 68 20 6f 74 68  65 72 20 6b 65 79 73 20  |hich other keys |
00001b00  79 6f 75 20 61 72 65 20  70 72 65 73 73 69 6e 67  |you are pressing|
00001b10  3b 22 0d 0c 62 2e f1 22  20 20 20 20 53 48 49 46  |;"..b.."    SHIF|
00001b20  54 2c 43 54 52 4c 20 61  6e 64 20 46 55 4e 43 20  |T,CTRL and FUNC |
00001b30  6b 65 79 73 20 63 68 61  6e 67 65 20 74 68 65 22  |keys change the"|
00001b40  0d 0c 6c 1e f1 22 20 20  20 20 63 68 61 72 61 63  |..l.."    charac|
00001b50  74 65 72 20 70 72 6f 64  75 63 65 64 2e 22 0d 0c  |ter produced."..|
00001b60  76 2b f1 27 22 20 32 2e  20 57 68 65 74 68 65 72  |v+.'" 2. Whether|
00001b70  20 43 41 50 53 20 4c 4f  43 4b 20 69 73 20 4f 4e  | CAPS LOCK is ON|
00001b80  20 6f 72 20 4f 46 46 2e  22 0d 0c 80 2b f1 27 22  | or OFF."...+.'"|
00001b90  20 43 41 50 53 20 4c 4f  43 4b 20 63 61 6e 20 62  | CAPS LOCK can b|
00001ba0  65 20 74 6f 67 67 6c 65  64 20 4f 4e 2f 4f 46 46  |e toggled ON/OFF|
00001bb0  20 62 79 22 0d 0c 8a 2e  f1 22 68 6f 6c 64 69 6e  | by"....."holdin|
00001bc0  67 20 64 6f 77 6e 20 6f  6e 65 20 6f 66 20 74 68  |g down one of th|
00001bd0  65 20 53 48 49 46 54 20  6b 65 79 73 2c 20 61 6e  |e SHIFT keys, an|
00001be0  64 22 0d 0c 94 2c f1 22  70 72 65 73 73 69 6e 67  |d"...,."pressing|
00001bf0  20 74 68 65 20 6b 65 79  20 6d 61 72 6b 65 64 20  | the key marked |
00001c00  43 41 50 53 20 4c 4b 2f  46 55 4e 43 2e 22 0d 0c  |CAPS LK/FUNC."..|
00001c10  9e 29 f1 22 54 68 65 20  73 6d 61 6c 6c 20 6c 69  |.)."The small li|
00001c20  67 68 74 20 74 6f 20 74  68 65 20 6c 65 66 74 20  |ght to the left |
00001c30  6f 66 20 74 68 65 22 0d  0c a8 2b f1 22 43 41 50  |of the"...+."CAP|
00001c40  53 20 4c 4b 2f 46 55 4e  43 20 6b 65 79 20 69 6e  |S LK/FUNC key in|
00001c50  64 69 63 61 74 65 73 20  74 68 61 74 20 43 41 50  |dicates that CAP|
00001c60  53 22 0d 0c b2 12 f1 22  4c 4f 43 4b 20 69 73 20  |S"....."LOCK is |
00001c70  4f 4e 2e 22 0d 0c bc 1a  f1 27 22 20 20 54 72 79  |ON.".....'"  Try|
00001c80  20 69 74 20 6e 6f 77 2e  2e 2e 2e 2e 22 27 0d 0c  | it now....."'..|
00001c90  c6 1c f1 8a 31 32 29 3b  22 43 41 50 53 20 4c 4f  |....12);"CAPS LO|
00001ca0  43 4b 20 69 73 20 6e 6f  77 22 0d 0c d0 34 f1 8a  |CK is now"...4..|
00001cb0  30 2c 32 33 29 3b 22 50  72 65 73 73 20 53 50 41  |0,23);"Press SPA|
00001cc0  43 45 20 77 68 65 6e 20  79 6f 75 20 77 61 6e 74  |CE when you want|
00001cd0  20 74 6f 20 63 6f 6e 74  69 6e 75 65 22 3b 0d 0c  | to continue";..|
00001ce0  da 14 4e 4f 57 3d 91 3a  f5 fd 91 2d 4e 4f 57 3e  |..NOW=.:...-NOW>|
00001cf0  35 30 0d 0c e4 05 f5 0d  0c ee 15 41 25 3d 32 30  |50.........A%=20|
00001d00  32 3a 58 25 3d 30 3a 59  25 3d 34 38 0d 0c f8 34  |2:X%=0:Y%=48...4|
00001d10  e7 20 28 ba 28 26 46 46  46 34 29 80 26 31 30 30  |. (.(&FFF4).&100|
00001d20  30 29 3d 26 31 30 30 30  20 8c 20 43 50 24 3d 22  |0)=&1000 . CP$="|
00001d30  4f 46 46 22 20 8b 20 43  50 24 3d 22 4f 4e 20 22  |OFF" . CP$="ON "|
00001d40  0d 0d 02 10 f1 8a 31 39  2c 32 31 29 3b 43 50 24  |......19,21);CP$|
00001d50  0d 0d 0c 0b fd a6 28 2d  39 39 29 0d 0d 16 05 e1  |......(-99).....|
00001d60  0d 0d 20 05 20 0d 0d 2a  11 dd 20 f2 63 75 72 73  |.. . ..*.. .curs|
00001d70  6f 72 5f 6f 66 66 0d 0d  34 12 ef 32 33 2c 31 2c  |or_off..4..23,1,|
00001d80  30 3b 30 3b 30 3b 30 3b  0d 0d 3e 05 e1 0d 0d 48  |0;0;0;0;..>....H|
00001d90  05 20 0d 0d 52 12 dd 20  f2 73 65 74 5f 77 69 6e  |. ..R.. .set_win|
00001da0  64 6f 77 73 0d 0d 5c 10  ef 32 38 3b 33 31 2c 33  |dows..\..28;31,3|
00001db0  39 2c 31 37 0d 0d 66 15  ef 32 34 3b 35 30 30 2c  |9,17..f..24;500,|
00001dc0  31 32 37 39 2c 31 30 32  33 0d 0d 70 05 e1 0d 0d  |1279,1023..p....|
00001dd0  7a 05 20 0d 0d 84 1f dd  20 f2 73 65 74 5f 63 61  |z. ..... .set_ca|
00001de0  70 73 5f 6c 6f 63 6b 28  63 61 70 73 5f 6c 6f 63  |ps_lock(caps_loc|
00001df0  6b 29 0d 0d 8e 16 e7 20  63 61 70 73 5f 6c 6f 63  |k)..... caps_loc|
00001e00  6b 20 8c 20 8d 74 6c 4d  0d 0d 98 11 2a 46 58 32  |k . .tlM....*FX2|
00001e10  30 32 2c 31 36 2c 32 33  39 0d 0d a2 09 e5 8d 74  |02,16,239......t|
00001e20  76 4d 0d 0d ac 12 2a 46  58 32 30 32 2c 31 32 38  |vM....*FX202,128|
00001e30  2c 31 31 31 0d 0d b6 05  e1 0d 0d c0 05 20 0d 0d  |,111......... ..|
00001e40  ca 21 dd 20 f2 71 75 65  73 74 69 6f 6e 73 28 70  |.!. .questions(p|
00001e50  61 72 74 25 2c 63 61 70  73 5f 6c 6f 63 6b 29 0d  |art%,caps_lock).|
00001e60  0d d4 19 f2 73 65 74 5f  71 75 65 73 74 69 6f 6e  |....set_question|
00001e70  73 28 70 61 72 74 25 29  0d 0d de 15 74 6f 74 61  |s(part%)....tota|
00001e80  6c 3d 30 3a 20 72 69 67  68 74 25 3d 30 0d 0d e8  |l=0: right%=0...|
00001e90  2e e7 20 70 61 72 74 25  3d 35 20 8c 20 4e 71 75  |.. part%=5 . Nqu|
00001ea0  65 73 74 69 6f 6e 73 25  3d 35 20 8b 20 4e 71 75  |estions%=5 . Nqu|
00001eb0  65 73 74 69 6f 6e 73 25  3d 31 30 0d 0d f2 1f e3  |estions%=10.....|
00001ec0  20 71 75 65 73 74 69 6f  6e 25 3d 31 20 b8 20 4e  | question%=1 . N|
00001ed0  71 75 65 73 74 69 6f 6e  73 25 0d 0d fc 05 db 0d  |questions%......|
00001ee0  0e 06 1c f5 72 6f 77 25  3d b3 28 34 29 3a fd 51  |....row%=.(4):.Q|
00001ef0  24 28 72 6f 77 25 29 3c  3e 22 22 0d 0e 10 17 63  |$(row%)<>""....c|
00001f00  68 6f 69 63 65 3d b3 28  a9 51 24 28 72 6f 77 25  |hoice=.(.Q$(row%|
00001f10  29 29 0d 0e 1a 1e 63 68  61 72 3d 97 20 c1 51 24  |))....char=. .Q$|
00001f20  28 72 6f 77 25 29 2c 63  68 6f 69 63 65 2c 31 29  |(row%),choice,1)|
00001f30  0d 0e 24 1d 73 68 69 66  74 3d 28 a7 75 70 70 65  |..$.shift=(.uppe|
00001f40  72 24 2c bd 63 68 61 72  29 3c 3e 30 29 0d 0e 2e  |r$,.char)<>0)...|
00001f50  2e e7 20 a7 61 7a 41 5a  24 2c bd 63 68 61 72 29  |.. .azAZ$,.char)|
00001f60  20 80 20 63 61 70 73 5f  6c 6f 63 6b 20 8c 20 73  | . caps_lock . s|
00001f70  68 69 66 74 3d ac 73 68  69 66 74 0d 0e 38 20 f4  |hift=.shift..8 .|
00001f80  20 4c 6f 63 61 74 65 20  63 68 61 72 20 6f 6e 20  | Locate char on |
00001f90  74 68 65 20 73 63 72 65  65 6e 2e 0d 0e 42 1e 75  |the screen...B.u|
00001fa0  73 3d a9 28 53 52 24 28  72 6f 77 25 29 2b 53 52  |s=.(SR$(row%)+SR|
00001fb0  52 24 28 72 6f 77 25 29  29 0d 0e 4c 2d e7 20 63  |R$(row%))..L-. c|
00001fc0  68 6f 69 63 65 3c 3d 75  73 20 6b 65 79 25 3d 63  |hoice<=us key%=c|
00001fd0  68 6f 69 63 65 20 8b 20  6b 65 79 25 3d 63 68 6f  |hoice . key%=cho|
00001fe0  69 63 65 2d 75 73 0d 0e  56 1a 78 25 3d 72 6f 77  |ice-us..V.x%=row|
00001ff0  25 2a 34 32 2b 38 34 2a  6b 65 79 25 2d 33 32 20  |%*42+84*key%-32 |
00002000  0d 0e 60 2c e7 20 70 61  72 74 25 3d 35 20 78 25  |..`,. part%=5 x%|
00002010  3d 78 25 2b 31 31 2a 38  34 3a 20 e7 20 72 6f 77  |=x%+11*84: . row|
00002020  25 3d 32 20 78 25 3d 78  25 2d 38 34 0d 0e 6a 16  |%=2 x%=x%-84..j.|
00002030  79 25 3d 59 6d 61 78 2d  34 35 2d 39 35 2a 72 6f  |y%=Ymax-45-95*ro|
00002040  77 25 0d 0e 74 14 4e 4f  57 3d 91 3a f5 fd 91 2d  |w%..t.NOW=.:...-|
00002050  4e 4f 57 3e 35 30 0d 0e  7e 09 6c 69 74 3d a3 0d  |NOW>50..~.lit=..|
00002060  0e 88 24 f2 44 42 4c 28  22 46 69 6e 64 20 22 2b  |..$.DBL("Find "+|
00002070  a4 6c 65 67 65 6e 64 28  63 68 61 72 29 2c 31 34  |.legend(char),14|
00002080  2c 31 29 0d 0e 92 0b 2a  46 58 31 35 2c 30 0d 0e  |,1)....*FX15,0..|
00002090  9c 0f 54 71 75 65 73 74  69 6f 6e 3d 91 0d 0e a6  |..Tquestion=....|
000020a0  05 f5 0d 0e b0 1e 20 f2  73 65 74 5f 63 61 70 73  |...... .set_caps|
000020b0  5f 6c 6f 63 6b 28 63 61  70 73 5f 6c 6f 63 6b 29  |_lock(caps_lock)|
000020c0  0d 0e ba 0e 20 75 73 65  72 3d a6 28 30 29 0d 0e  |.... user=.(0)..|
000020d0  c4 17 20 64 65 6c 61 79  25 3d 91 2d 54 71 75 65  |.. delay%=.-Tque|
000020e0  73 74 69 6f 6e 0d 0e ce  3a 20 e7 20 28 64 65 6c  |stion...: . (del|
000020f0  61 79 25 3e 32 35 30 29  20 80 20 ac 20 6c 69 74  |ay%>250) . . lit|
00002100  20 f2 68 69 67 68 6c 69  67 68 74 28 78 25 2c 79  | .highlight(x%,y|
00002110  25 2c 73 68 69 66 74 29  3a 20 6c 69 74 3d b9 0d  |%,shift): lit=..|
00002120  0e d8 0d fd 75 73 65 72  3c 3e 2d 31 0d 0e e2 21  |....user<>-1...!|
00002130  e7 20 75 73 65 72 3d 63  68 61 72 20 f2 63 6f 72  |. user=char .cor|
00002140  72 65 63 74 20 8b 20 f2  77 72 6f 6e 67 0d 0e ec  |rect . .wrong...|
00002150  0b 40 25 3d 26 39 30 41  0d 0e f6 25 f1 8a 38 2c  |.@%=&90A...%..8,|
00002160  31 33 29 3b 22 50 72 65  73 73 20 53 50 41 43 45  |13);"Press SPACE|
00002170  20 74 6f 20 63 6f 6e 74  69 6e 75 65 22 0d 0f 00  | to continue"...|
00002180  0d f5 fd a6 28 2d 39 39  29 20 0d 0f 0a 23 e7 20  |....(-99) ...#. |
00002190  6c 69 74 20 8c 20 f2 68  69 67 68 6c 69 67 68 74  |lit . .highlight|
000021a0  28 78 25 2c 79 25 2c 73  68 69 66 74 29 0d 0f 14  |(x%,y%,shift)...|
000021b0  0f f2 63 75 72 73 6f 72  5f 6f 66 66 0d 0f 1e 0e  |..cursor_off....|
000021c0  ed 71 75 65 73 74 69 6f  6e 25 0d 0f 28 05 e1 0d  |.question%..(...|
000021d0  0f 32 05 20 0d 0f 3c 10  dd 20 a4 6c 65 67 65 6e  |.2. ..<.. .legen|
000021e0  64 28 63 29 0d 0f 46 16  e7 20 63 3d 31 33 20 8c  |d(c)..F.. c=13 .|
000021f0  20 3d 22 52 45 54 55 52  4e 22 0d 0f 50 17 e7 20  | ="RETURN"..P.. |
00002200  63 3d 31 32 37 20 8c 20  3d 22 44 45 4c 45 54 45  |c=127 . ="DELETE|
00002210  22 0d 0f 5a 1e e7 20 63  3c 33 32 20 8c 20 3d 22  |"..Z.. c<32 . ="|
00002220  43 54 52 4c 2d 22 2b bd  28 63 2b 26 34 30 29 0d  |CTRL-"+.(c+&40).|
00002230  0f 64 11 e7 20 63 3c 31  32 38 20 8c 20 3d bd 63  |.d.. c<128 . =.c|
00002240  0d 0f 6e 16 3d 46 55 4e  43 5f 6b 65 79 73 24 28  |..n.=FUNC_keys$(|
00002250  63 2d 31 32 37 29 0d 0f  78 05 20 0d 0f 82 14 dd  |c-127)..x. .....|
00002260  20 a4 72 65 70 65 61 74  28 70 61 72 74 25 29 0d  | .repeat(part%).|
00002270  0f 8c 05 db 0d 0f 96 10  f2 63 75 72 73 6f 72 5f  |.........cursor_|
00002280  6f 66 66 20 0d 0f a0 25  f2 44 42 4c 28 22 20 45  |off ...%.DBL(" E|
00002290  6e 64 20 6f 66 20 70 61  72 74 20 22 2b c3 70 61  |nd of part "+.pa|
000022a0  72 74 25 2c 2d 31 2c 31  29 0d 0f aa 3d f1 27 27  |rt%,-1,1)...=.''|
000022b0  27 27 22 59 6f 75 20 67  6f 74 20 22 3b 72 69 67  |''"You got ";rig|
000022c0  68 74 25 3b 22 20 6f 75  74 20 6f 66 20 22 3b 4e  |ht%;" out of ";N|
000022d0  71 75 65 73 74 69 6f 6e  73 25 3b 22 20 63 6f 72  |questions%;" cor|
000022e0  72 65 63 74 2e 22 0d 0f  b4 2a f1 27 27 22 50 72  |rect."...*.''"Pr|
000022f0  65 73 73 20 20 20 41 20  20 20 20 74 6f 20 72 65  |ess   A    to re|
00002300  70 65 61 74 20 74 68 69  73 20 74 65 73 74 2e 22  |peat this test."|
00002310  0d 0f be 2a f1 27 22 50  72 65 73 73 20 53 50 41  |...*.'"Press SPA|
00002320  43 45 20 74 6f 20 67 6f  20 6f 6e 20 74 6f 20 6e  |CE to go on to n|
00002330  65 78 74 20 70 61 72 74  2e 22 0d 0f c8 16 e7 20  |ext part."..... |
00002340  a6 28 2d 39 39 29 20 8c  20 3d 22 4e 45 58 54 22  |.(-99) . ="NEXT"|
00002350  0d 0f d2 17 e7 20 a6 28  2d 36 36 29 20 8c 20 3d  |..... .(-66) . =|
00002360  22 41 47 41 49 4e 22 0d  0f dc 0a e5 20 8d 64 48  |"AGAIN"..... .dH|
00002370  4f 0d 0f e6 05 20 0d 0f  f0 12 dd 20 f2 74 65 78  |O.... ..... .tex|
00002380  74 28 70 61 72 74 25 29  0d 0f fa 0f f2 63 75 72  |t(part%).....cur|
00002390  73 6f 72 5f 6f 66 66 0d  10 04 0c f2 62 69 67 70  |sor_off.....bigp|
000023a0  61 72 74 0d 10 0e 2b ee  20 70 61 72 74 25 20 e5  |art...+. part% .|
000023b0  20 8d 54 58 50 2c 8d 44  72 50 2c 8d 64 56 50 2c  | .TXP,.DrP,.dVP,|
000023c0  8d 44 62 51 2c 8d 74 7c  51 2c 8d 54 56 52 0d 10  |.DbQ,.t|Q,.TVR..|
000023d0  18 2d f1 27 27 27 22 20  43 41 50 53 20 4c 4f 43  |.-.'''" CAPS LOC|
000023e0  4b 20 77 69 6c 6c 20 62  65 20 6f 6e 20 69 6e 20  |K will be on in |
000023f0  74 68 69 73 20 70 61 72  74 2e 22 0d 10 22 2d f1  |this part.".."-.|
00002400  27 22 20 54 68 69 73 20  6d 65 61 6e 73 20 74 68  |'" This means th|
00002410  61 74 20 74 68 65 20 6c  65 74 74 65 72 20 6b 65  |at the letter ke|
00002420  79 73 20 77 69 6c 6c 22  0d 10 2c 2d f1 22 70 72  |ys will"..,-."pr|
00002430  6f 64 75 63 65 20 63 61  70 69 74 61 6c 73 20 28  |oduce capitals (|
00002440  22 22 75 70 70 65 72 20  63 61 73 65 22 22 29 2c  |""upper case""),|
00002450  20 61 6e 64 22 0d 10 36  2c f1 22 74 68 65 20 6f  | and"..6,."the o|
00002460  74 68 65 72 20 6b 65 79  73 20 77 69 6c 6c 20 70  |ther keys will p|
00002470  72 6f 64 75 63 65 20 74  68 65 20 6c 6f 77 65 72  |roduce the lower|
00002480  22 0d 10 40 28 f1 22 6f  66 20 74 68 65 20 32 20  |"..@(."of the 2 |
00002490  6f 72 20 33 20 73 79 6d  62 6f 6c 73 20 6f 6e 20  |or 3 symbols on |
000024a0  74 68 65 20 6b 65 79 2e  22 0d 10 4a 2c f1 27 22  |the key."..J,.'"|
000024b0  20 54 68 69 73 20 70 61  72 74 20 74 65 73 74 73  | This part tests|
000024c0  20 6f 6e 6c 79 20 74 68  65 20 6b 65 79 73 20 73  | only the keys s|
000024d0  68 6f 77 6e 22 0d 10 54  0e f1 22 61 62 6f 76 65  |hown"..T.."above|
000024e0  2e 22 20 0d 10 5e 0a f2  73 74 61 72 74 0d 10 68  |." ..^..start..h|
000024f0  0a e5 20 8d 44 52 52 0d  10 72 32 f1 27 27 27 22  |.. .DRR..r2.'''"|
00002500  20 43 41 50 53 20 4c 4f  43 4b 20 77 69 6c 6c 20  | CAPS LOCK will |
00002510  61 6c 73 6f 20 62 65 20  6f 6e 20 69 6e 20 74 68  |also be on in th|
00002520  69 73 20 70 61 72 74 2e  22 0d 10 7c 2d f1 22 20  |is part."..|-." |
00002530  57 68 69 6c 65 20 43 41  50 53 20 4c 4f 43 4b 20  |While CAPS LOCK |
00002540  69 73 20 6f 6e 2c 20 79  6f 75 20 63 61 6e 20 6f  |is on, you can o|
00002550  62 74 61 69 6e 22 0d 10  86 30 f1 22 73 6d 61 6c  |btain"...0."smal|
00002560  6c 20 28 22 22 6c 6f 77  65 72 20 63 61 73 65 22  |l (""lower case"|
00002570  22 29 20 6c 65 74 74 65  72 73 20 62 79 20 68 6f  |") letters by ho|
00002580  6c 64 69 6e 67 22 0d 10  90 2c f1 22 64 6f 77 6e  |lding"...,."down|
00002590  20 53 48 49 46 54 2e 20  53 48 49 46 54 20 77 69  | SHIFT. SHIFT wi|
000025a0  74 68 20 74 68 65 20 6f  74 68 65 72 20 6b 65 79  |th the other key|
000025b0  73 22 0d 10 9a 2d f1 22  77 69 6c 6c 20 70 72 6f  |s"...-."will pro|
000025c0  64 75 63 65 20 74 68 65  20 73 79 6d 62 6f 6c 20  |duce the symbol |
000025d0  6f 6e 20 74 68 65 20 74  6f 70 2c 20 6f 72 22 0d  |on the top, or".|
000025e0  10 a4 1b f1 22 74 6f 70  20 6c 65 66 74 20 6f 66  |...."top left of|
000025f0  20 74 68 65 20 6b 65 79  2e 22 0d 10 ae 2a f1 22  | the key."...*."|
00002600  20 54 68 69 73 20 70 61  72 74 20 74 65 73 74 73  | This part tests|
00002610  20 74 68 65 20 27 73 68  69 66 74 65 64 27 20 6b  | the 'shifted' k|
00002620  65 79 73 22 0d 10 b8 13  f1 22 73 68 6f 77 6e 20  |eys"....."shown |
00002630  61 62 6f 76 65 2e 22 0d  10 c2 0a f2 73 74 61 72  |above.".....star|
00002640  74 0d 10 cc 0a e5 20 8d  44 52 52 0d 10 d6 32 f1  |t..... .DRR...2.|
00002650  27 27 27 22 43 41 50 53  20 4c 4f 43 4b 20 77 69  |'''"CAPS LOCK wi|
00002660  6c 6c 20 73 74 69 6c 6c  20 62 65 20 6f 6e 20 69  |ll still be on i|
00002670  6e 20 74 68 69 73 20 70  61 72 74 2e 22 0d 10 e0  |n this part."...|
00002680  2b f1 22 20 4e 6f 77 20  61 6c 6c 20 74 68 65 20  |+." Now all the |
00002690  6b 65 79 73 20 66 72 6f  6d 20 70 61 72 74 73 20  |keys from parts |
000026a0  31 20 61 6e 64 20 32 22  0d 10 ea 16 f1 22 77 69  |1 and 2"....."wi|
000026b0  6c 6c 20 62 65 20 74 65  73 74 65 64 2e 22 0d 10  |ll be tested."..|
000026c0  f4 2e f1 27 22 20 54 68  65 20 27 75 6e 73 68 69  |...'" The 'unshi|
000026d0  66 74 65 64 27 20 6b 65  79 73 20 61 72 65 20 73  |fted' keys are s|
000026e0  68 6f 77 6e 20 61 62 6f  76 65 2e 22 0d 10 fe 2c  |hown above."...,|
000026f0  f1 22 50 72 65 73 73 20  61 6e 64 20 68 6f 6c 64  |."Press and hold|
00002700  20 61 20 53 48 49 46 54  20 6b 65 79 20 74 6f 20  | a SHIFT key to |
00002710  73 65 65 20 74 68 65 22  0d 11 08 16 f1 22 27 73  |see the"....."'s|
00002720  68 69 66 74 65 64 27 20  6b 65 79 73 2e 22 0d 11  |hifted' keys."..|
00002730  12 2b f1 8a 34 2c 31 33  29 3b 22 50 72 65 73 73  |.+..4,13);"Press|
00002740  20 53 50 41 43 45 20 74  6f 20 62 65 67 69 6e 20  | SPACE to begin |
00002750  74 68 65 20 74 65 73 74  22 0d 11 1c 0d 73 68 69  |the test"....shi|
00002760  66 74 65 64 3d a3 0d 11  26 05 f5 0d 11 30 48 e7  |fted=...&....0H.|
00002770  20 a6 28 2d 31 29 20 80  20 ac 20 73 68 69 66 74  | .(-1) . . shift|
00002780  65 64 20 8c 20 f2 77 72  69 74 65 5f 6f 6e 5f 6b  |ed . .write_on_k|
00002790  65 79 73 28 33 29 3a f2  77 72 69 74 65 5f 6f 6e  |eys(3):.write_on|
000027a0  5f 6b 65 79 73 28 32 29  3a 20 73 68 69 66 74 65  |_keys(2): shifte|
000027b0  64 3d b9 0d 11 3a 48 e7  20 73 68 69 66 74 65 64  |d=...:H. shifted|
000027c0  20 80 20 ac 20 a6 28 2d  31 29 20 8c 20 f2 77 72  | . . .(-1) . .wr|
000027d0  69 74 65 5f 6f 6e 5f 6b  65 79 73 28 32 29 3a f2  |ite_on_keys(2):.|
000027e0  77 72 69 74 65 5f 6f 6e  5f 6b 65 79 73 28 33 29  |write_on_keys(3)|
000027f0  3a 20 73 68 69 66 74 65  64 3d a3 0d 11 44 0f f2  |: shifted=...D..|
00002800  63 75 72 73 6f 72 5f 6f  66 66 0d 11 4e 18 fd 20  |cursor_off..N.. |
00002810  a6 28 2d 39 39 29 20 80  20 ac 20 73 68 69 66 74  |.(-99) . . shift|
00002820  65 64 0d 11 58 0a e5 20  8d 44 52 52 0d 11 62 2c  |ed..X.. .DRR..b,|
00002830  f1 27 27 27 22 20 4e 6f  77 20 43 41 50 53 20 4c  |.'''" Now CAPS L|
00002840  4f 43 4b 20 77 69 6c 6c  20 62 65 20 74 75 72 6e  |OCK will be turn|
00002850  65 64 20 6f 66 66 2e 22  0d 11 6c 2c f1 27 22 20  |ed off."..l,.'" |
00002860  54 68 65 20 6c 65 74 74  65 72 20 6b 65 79 73 20  |The letter keys |
00002870  6e 6f 77 20 70 72 6f 64  75 63 65 20 63 61 70 69  |now produce capi|
00002880  74 61 6c 22 0d 11 76 2a  f1 22 6c 65 74 74 65 72  |tal"..v*."letter|
00002890  73 20 77 68 65 6e 20 70  72 65 73 73 65 64 20 77  |s when pressed w|
000028a0  69 74 68 20 74 68 65 20  53 48 49 46 54 22 0d 11  |ith the SHIFT"..|
000028b0  80 2c f1 22 6b 65 79 20  61 6e 64 20 73 6d 61 6c  |.,."key and smal|
000028c0  6c 20 6c 65 74 74 65 72  73 20 6f 74 68 65 72 77  |l letters otherw|
000028d0  69 73 65 2e 4f 74 68 65  72 22 0d 11 8a 29 f1 22  |ise.Other"...)."|
000028e0  6b 65 79 73 20 61 72 65  20 61 73 20 69 6e 20 74  |keys are as in t|
000028f0  68 65 20 70 72 65 76 69  6f 75 73 20 70 61 72 74  |he previous part|
00002900  73 2e 22 0d 11 94 2b f1  27 22 20 54 68 69 73 20  |s."...+.'" This |
00002910  70 61 72 74 20 74 65 73  74 73 20 62 6f 74 68 20  |part tests both |
00002920  27 73 68 69 66 74 65 64  27 20 61 6e 64 22 0d 11  |'shifted' and"..|
00002930  9e 18 f1 22 27 75 6e 73  68 69 66 74 65 64 27 20  |..."'unshifted' |
00002940  6b 65 79 73 2e 22 0d 11  a8 0a f2 73 74 61 72 74  |keys.".....start|
00002950  0d 11 b2 0a e5 20 8d 44  52 52 0d 11 bc 31 f1 27  |..... .DRR...1.'|
00002960  27 27 22 20 41 20 66 65  77 20 63 68 61 72 61 63  |''" A few charac|
00002970  74 65 72 73 20 61 72 65  20 6f 62 74 61 69 6e 65  |ters are obtaine|
00002980  64 20 62 79 20 75 73 69  6e 67 22 0d 11 c6 2a f1  |d by using"...*.|
00002990  22 74 68 65 20 43 54 52  4c 20 6b 65 79 20 69 6e  |"the CTRL key in|
000029a0  20 74 68 65 20 73 61 6d  65 20 77 61 79 20 61 73  | the same way as|
000029b0  20 74 68 65 22 0d 11 d0  11 f1 22 53 48 49 46 54  | the"....."SHIFT|
000029c0  20 6b 65 79 2e 22 0d 11  da 2e f1 27 22 20 54 68  | key.".....'" Th|
000029d0  65 20 63 68 61 72 61 63  74 65 72 73 20 61 72 65  |e characters are|
000029e0  20 70 72 69 6e 74 65 64  20 6f 6e 20 74 68 65 20  | printed on the |
000029f0  74 6f 70 22 0d 11 e4 2c  f1 22 72 69 67 68 74 20  |top"...,."right |
00002a00  6f 66 20 73 6f 6d 65 20  6b 65 79 73 20 61 6e 64  |of some keys and|
00002a10  20 61 72 65 20 61 6c 73  6f 20 73 68 6f 77 6e 22  | are also shown"|
00002a20  0d 11 ee 0d f1 22 61 62  6f 76 65 2e 22 0d 11 f8  |....."above."...|
00002a30  2d f1 27 22 54 68 69 73  20 70 61 72 74 20 74 65  |-.'"This part te|
00002a40  73 74 73 20 74 68 65 73  65 20 27 63 6f 6e 74 72  |sts these 'contr|
00002a50  6f 6c 27 20 6b 65 79 73  2e 22 0d 12 02 0a f2 73  |ol' keys.".....s|
00002a60  74 61 72 74 0d 12 0c 0a  e5 20 8d 44 52 52 0d 12  |tart..... .DRR..|
00002a70  16 2f f1 27 27 27 22 66  30 2d 66 39 20 61 6e 64  |./.'''"f0-f9 and|
00002a80  20 42 41 53 49 43 20 6b  65 79 77 6f 72 64 73 20  | BASIC keywords |
00002a90  61 72 65 20 6f 62 74 61  69 6e 65 64 22 0d 12 20  |are obtained".. |
00002aa0  2c f1 22 62 79 20 75 73  69 6e 67 20 74 68 65 20  |,."by using the |
00002ab0  46 55 4e 43 20 6b 65 79  20 69 6e 20 74 68 65 20  |FUNC key in the |
00002ac0  73 61 6d 65 20 77 61 79  22 0d 12 2a 27 f1 22 61  |same way"..*'."a|
00002ad0  73 20 65 69 74 68 65 72  20 74 68 65 20 53 48 49  |s either the SHI|
00002ae0  46 54 20 6f 72 20 43 54  52 4c 20 6b 65 79 2e 22  |FT or CTRL key."|
00002af0  0d 12 34 30 f1 27 22 20  54 68 65 20 6b 65 79 77  |..40.'" The keyw|
00002b00  6f 72 64 73 20 61 72 65  20 70 72 69 6e 74 65 64  |ords are printed|
00002b10  20 69 6e 20 6c 69 67 68  74 20 62 72 6f 77 6e 22  | in light brown"|
00002b20  0d 12 3e 21 f1 22 6f 6e  20 74 68 65 20 66 72 6f  |..>!."on the fro|
00002b30  6e 74 20 6f 66 20 73 6f  6d 65 20 6b 65 79 73 2e  |nt of some keys.|
00002b40  22 0d 12 48 0a f2 73 74  61 72 74 0d 12 52 05 e1  |"..H..start..R..|
00002b50  0d 12 5c 05 20 0d 12 66  0e dd 20 f2 62 69 67 70  |..\. ..f.. .bigp|
00002b60  61 72 74 0d 12 70 1d f2  44 42 4c 28 22 50 61 72  |art..p..DBL("Par|
00002b70  74 20 22 2b c3 70 61 72  74 25 2c 2d 31 2c 30 29  |t "+.part%,-1,0)|
00002b80  0d 12 7a 05 e1 0d 12 84  05 20 0d 12 8e 0c dd 20  |..z...... ..... |
00002b90  f2 73 74 61 72 74 0d 12  98 2b f1 8a 34 2c 31 33  |.start...+..4,13|
00002ba0  29 3b 22 50 72 65 73 73  20 53 50 41 43 45 20 74  |);"Press SPACE t|
00002bb0  6f 20 62 65 67 69 6e 20  74 68 65 20 74 65 73 74  |o begin the test|
00002bc0  22 0d 12 a2 0c f5 fd a6  28 2d 39 39 29 0d 12 ac  |".......(-99)...|
00002bd0  05 e1 0d 12 b6 05 20 0d  12 c0 13 dd 20 f2 63 6f  |...... ..... .co|
00002be0  6e 74 72 6f 6c 5f 6b 65  79 73 0d 12 ca 08 e6 33  |ntrol_keys.....3|
00002bf0  2c 31 0d 12 d4 0d e3 49  25 3d 31 31 b8 31 32 0d  |,1.....I%=11.12.|
00002c00  12 de 17 ec 31 31 34 2b  49 25 2a 38 34 2c 59 6d  |....114+I%*84,Ym|
00002c10  61 78 2d 31 30 38 0d 12  e8 13 f1 c1 22 7e 5c 22  |ax-108......"~\"|
00002c20  2c 49 25 2d 31 30 2c 31  29 0d 12 f2 07 ed 49 25  |,I%-10,1).....I%|
00002c30  0d 12 fc 0d e3 49 25 3d  31 30 b8 31 32 0d 13 06  |.....I%=10.12...|
00002c40  17 ec 31 35 36 2b 49 25  2a 38 34 2c 59 6d 61 78  |..156+I%*84,Ymax|
00002c50  2d 32 30 33 0d 13 10 13  f1 c1 22 7b 7d 5d 22 2c  |-203......"{}]",|
00002c60  49 25 2d 39 2c 31 29 0d  13 1a 07 ed 49 25 0d 13  |I%-9,1).....I%..|
00002c70  24 05 e1 0d 13 2e 05 20  0d 13 38 1d dd 20 f2 68  |$...... ..8.. .h|
00002c80  69 67 68 6c 69 67 68 74  28 78 25 2c 79 25 2c 73  |ighlight(x%,y%,s|
00002c90  68 69 66 74 29 0d 13 42  06 ef 35 0d 13 4c 08 e6  |hift)..B..5..L..|
00002ca0  34 2c 30 0d 13 56 41 e7  20 73 68 69 66 74 20 8c  |4,0..VA. shift .|
00002cb0  20 f2 69 6e 76 65 72 74  28 39 34 2c 59 6d 61 78  | .invert(94,Ymax|
00002cc0  2d 34 32 34 2c 31 31 36  29 3a f2 69 6e 76 65 72  |-424,116):.inver|
00002cd0  74 28 31 30 36 30 2c 59  6d 61 78 2d 34 32 34 2c  |t(1060,Ymax-424,|
00002ce0  31 31 36 29 0d 13 60 27  e7 20 70 61 72 74 25 3d  |116)..`'. part%=|
00002cf0  35 20 8c 20 f2 69 6e 76  65 72 74 28 39 34 2c 59  |5 . .invert(94,Y|
00002d00  6d 61 78 2d 33 32 39 2c  37 32 29 0d 13 6a 27 e7  |max-329,72)..j'.|
00002d10  20 70 61 72 74 25 3d 36  20 8c 20 f2 69 6e 76 65  | part%=6 . .inve|
00002d20  72 74 28 35 32 2c 59 6d  61 78 2d 32 33 35 2c 37  |rt(52,Ymax-235,7|
00002d30  32 29 0d 13 74 15 f2 69  6e 76 65 72 74 28 78 25  |2)..t..invert(x%|
00002d40  2c 79 25 2c 37 32 29 0d  13 7e 08 e6 30 2c 31 0d  |,y%,72)..~..0,1.|
00002d50  13 88 07 ef 34 20 0d 13  92 0f f2 63 75 72 73 6f  |....4 .....curso|
00002d60  72 5f 6f 66 66 0d 13 9c  05 e1 0d 13 a6 05 20 0d  |r_off......... .|
00002d70  13 b0 1c dd 20 f2 69 6e  76 65 72 74 28 78 25 2c  |.... .invert(x%,|
00002d80  79 25 2c 6c 65 6e 67 74  68 25 29 0d 13 ba 1a e3  |y%,length%).....|
00002d90  6c 69 6e 65 25 3d 79 25  2b 34 20 b8 20 79 25 2b  |line%=y%+4 . y%+|
00002da0  34 30 20 88 34 0d 13 c4  26 ec 78 25 2b 34 2c 6c  |40 .4...&.x%+4,l|
00002db0  69 6e 65 25 3a 20 df 78  25 2b 28 6c 65 6e 67 74  |ine%: .x%+(lengt|
00002dc0  68 25 2d 34 29 2c 6c 69  6e 65 25 0d 13 ce 05 ed  |h%-4),line%.....|
00002dd0  0d 13 d8 05 e1 0d 13 e2  05 20 0d 13 ec 0e dd 20  |......... ..... |
00002de0  f2 63 6f 72 72 65 63 74  0d 13 f6 19 f2 44 42 4c  |.correct.....DBL|
00002df0  28 22 43 6f 72 72 65 63  74 21 22 2c 2d 31 2c 34  |("Correct!",-1,4|
00002e00  29 0d 14 00 0b 40 25 3d  26 32 32 33 0d 14 0a 30  |)....@%=&223...0|
00002e10  f1 8a 30 2c 37 29 22 59  6f 75 20 74 6f 6f 6b 20  |..0,7)"You took |
00002e20  20 20 20 20 22 3b 64 65  6c 61 79 25 2f 31 30 30  |    ";delay%/100|
00002e30  3b 22 20 73 65 63 6f 6e  64 73 2e 22 0d 14 14 1a  |;" seconds."....|
00002e40  74 6f 74 61 6c 3d 74 6f  74 61 6c 2b 64 65 6c 61  |total=total+dela|
00002e50  79 25 2f 31 30 30 0d 14  1e 1a 74 6f 74 61 6c 3d  |y%/100....total=|
00002e60  a8 28 74 6f 74 61 6c 2a  31 30 30 29 2f 31 30 30  |.(total*100)/100|
00002e70  0d 14 28 13 72 69 67 68  74 25 3d 72 69 67 68 74  |..(.right%=right|
00002e80  25 2b 31 0d 14 32 32 f1  8a 30 2c 39 29 22 41 76  |%+1..22..0,9)"Av|
00002e90  65 72 61 67 65 20 74 69  6d 65 20 22 3b 74 6f 74  |erage time ";tot|
00002ea0  61 6c 2f 72 69 67 68 74  25 3b 22 20 73 65 63 6f  |al/right%;" seco|
00002eb0  6e 64 73 2e 22 0d 14 3c  05 e1 0d 14 46 05 20 0d  |nds."..<....F. .|
00002ec0  14 50 0c dd 20 f2 77 72  6f 6e 67 0d 14 5a 2c e7  |.P.. .wrong..Z,.|
00002ed0  20 ac 20 6c 69 74 20 8c  20 f2 68 69 67 68 6c 69  | . lit . .highli|
00002ee0  67 68 74 28 78 25 2c 79  25 2c 73 68 69 66 74 29  |ght(x%,y%,shift)|
00002ef0  3a 20 6c 69 74 3d b9 0d  14 64 29 f2 44 42 4c 28  |: lit=...d).DBL(|
00002f00  22 59 6f 75 20 74 79 70  65 64 20 22 2b a4 6c 65  |"You typed "+.le|
00002f10  67 65 6e 64 28 75 73 65  72 29 2c 2d 31 2c 33 29  |gend(user),-1,3)|
00002f20  0d 14 6e 27 e7 20 a4 63  6f 6e 66 75 73 65 64 20  |..n'. .confused |
00002f30  8c 20 f2 63 6f 6e 66 75  73 65 64 5f 6d 65 73 73  |. .confused_mess|
00002f40  3a 20 e5 8d 74 4c 54 0d  14 78 35 f1 8a 30 2c 37  |: ..tLT..x5..0,7|
00002f50  29 22 59 6f 75 20 73 68  6f 75 6c 64 20 68 61 76  |)"You should hav|
00002f60  65 20 70 72 65 73 73 65  64 20 22 3b a4 6b 65 79  |e pressed ";.key|
00002f70  5f 70 72 65 73 73 28 63  68 61 72 29 0d 14 82 24  |_press(char)...$|
00002f80  f1 27 22 69 6e 73 74 65  61 64 20 6f 66 20 22 3b  |.'"instead of ";|
00002f90  a4 6b 65 79 5f 70 72 65  73 73 28 75 73 65 72 29  |.key_press(user)|
00002fa0  0d 14 8c 05 e1 0d 14 96  05 20 0d 14 a0 0f dd 20  |......... ..... |
00002fb0  a4 63 6f 6e 66 75 73 65  64 0d 14 aa 19 63 6f 6e  |.confused....con|
00002fc0  66 75 73 69 6f 6e 24 3d  22 6c 31 3a 7c 2d 5f 4f  |fusion$="l1:|-_O|
00002fd0  30 22 0d 14 b4 19 70 31  3d a7 63 6f 6e 66 75 73  |0"....p1=.confus|
00002fe0  69 6f 6e 24 2c bd 75 73  65 72 29 0d 14 be 19 70  |ion$,.user)....p|
00002ff0  32 3d a7 63 6f 6e 66 75  73 69 6f 6e 24 2c bd 63  |2=.confusion$,.c|
00003000  68 61 72 29 0d 14 c8 1d  e7 20 70 31 3c 70 32 20  |har)..... p1<p2 |
00003010  8c 20 6d 69 6e 3d 70 31  20 8b 20 6d 69 6e 3d 70  |. min=p1 . min=p|
00003020  32 0d 14 d2 1f 3d 28 94  28 70 31 2d 70 32 29 3d  |2....=(.(p1-p2)=|
00003030  31 29 80 28 28 6d 69 6e  20 83 20 32 29 3d 31 29  |1).((min . 2)=1)|
00003040  0d 14 dc 05 20 0d 14 e6  14 dd 20 f2 63 6f 6e 66  |.... ..... .conf|
00003050  75 73 65 64 5f 6d 65 73  73 0d 14 f0 19 e7 20 a7  |used_mess..... .|
00003060  22 6c 31 22 2c bd 75 73  65 72 29 20 8c 20 8d 54  |"l1",.user) . .T|
00003070  6c 55 0d 14 fa 19 e7 20  a7 22 3a 7c 22 2c bd 75  |lU..... .":|",.u|
00003080  73 65 72 29 20 8c 20 8d  44 4a 55 0d 15 04 1a e7  |ser) . .DJU.....|
00003090  20 a7 22 2d 5f 22 2c bd  75 73 65 72 29 20 8c 20  | ."-_",.user) . |
000030a0  8d 44 68 55 20 0d 15 0e  34 f1 8a 30 2c 37 29 3b  |.DhU ...4..0,7);|
000030b0  22 59 6f 75 20 68 61 76  65 20 63 6f 6e 66 75 73  |"You have confus|
000030c0  65 64 20 74 68 65 20 6c  65 74 74 65 72 20 22 22  |ed the letter ""|
000030d0  4f 22 22 20 77 69 74 68  22 0d 15 18 19 f1 27 22  |O"" with".....'"|
000030e0  74 68 65 20 6e 75 6d 62  65 72 20 22 22 30 22 22  |the number ""0""|
000030f0  2e 22 0d 15 22 0a e5 20  8d 44 7c 55 0d 15 2c 34  |."..".. .D|U..,4|
00003100  f1 8a 30 2c 37 29 3b 22  59 6f 75 20 68 61 76 65  |..0,7);"You have|
00003110  20 63 6f 6e 66 75 73 65  64 20 74 68 65 20 6c 65  | confused the le|
00003120  74 74 65 72 20 22 22 6c  22 22 20 77 69 74 68 22  |tter ""l"" with"|
00003130  0d 15 36 19 f1 27 22 74  68 65 20 6e 75 6d 62 65  |..6..'"the numbe|
00003140  72 20 22 22 31 22 22 2e  22 0d 15 40 0a e5 20 8d  |r ""1""."..@.. .|
00003150  44 7c 55 0d 15 4a 33 f1  8a 30 2c 37 29 3b 22 59  |D|U..J3..0,7);"Y|
00003160  6f 75 20 68 61 76 65 20  63 6f 6e 66 75 73 65 64  |ou have confused|
00003170  20 74 68 65 20 63 6f 6c  6f 6e 20 22 22 3a 22 22  | the colon "":""|
00003180  20 77 69 74 68 22 0d 15  54 29 f1 27 22 74 68 65  | with"..T).'"the|
00003190  20 76 65 72 74 69 63 61  6c 20 62 61 72 20 63 68  | vertical bar ch|
000031a0  61 72 61 63 74 65 72 20  22 22 7c 22 22 2e 22 0d  |aracter ""|"".".|
000031b0  15 5e 0a e5 20 8d 44 7c  55 0d 15 68 33 f1 8a 30  |.^.. .D|U..h3..0|
000031c0  2c 37 29 3b 22 59 6f 75  20 68 61 76 65 20 63 6f  |,7);"You have co|
000031d0  6e 66 75 73 65 64 20 74  68 65 20 6d 69 6e 75 73  |nfused the minus|
000031e0  20 22 22 2d 22 22 20 77  69 74 68 22 0d 15 72 1c  | ""-"" with"..r.|
000031f0  f1 27 22 74 68 65 20 75  6e 64 65 72 6c 69 6e 65  |.'"the underline|
00003200  20 22 22 5f 22 22 2e 22  0d 15 7c 05 e1 0d 15 86  | ""_""."..|.....|
00003210  05 20 0d 15 90 13 dd 20  a4 6b 65 79 5f 70 72 65  |. ..... .key_pre|
00003220  73 73 28 63 29 0d 15 9a  16 e7 20 63 3d 31 33 20  |ss(c)..... c=13 |
00003230  8c 20 3d 22 52 45 54 55  52 4e 22 0d 15 a4 15 e7  |. ="RETURN".....|
00003240  20 63 3d 33 32 20 8c 20  3d 22 53 50 41 43 45 22  | c=32 . ="SPACE"|
00003250  0d 15 ae 17 e7 20 63 3d  31 32 37 20 8c 20 3d 22  |..... c=127 . ="|
00003260  44 45 4c 45 54 45 22 0d  15 b8 23 e7 20 63 3c 33  |DELETE"...#. c<3|
00003270  32 20 8c 20 3d 22 43 54  52 4c 20 77 69 74 68 20  |2 . ="CTRL with |
00003280  22 2b bd 28 63 2b 26 34  30 29 0d 15 c2 12 69 3d  |"+.(c+&40)....i=|
00003290  a7 22 7e 5c 7b 7d 5d 22  2c bd 63 29 0d 15 cc 32  |."~\{}]",.c)...2|
000032a0  e7 20 69 20 8c 20 3d 22  43 54 52 4c 20 77 69 74  |. i . ="CTRL wit|
000032b0  68 20 22 2b a4 6c 65 67  65 6e 64 28 97 20 c1 63  |h "+.legend(. .c|
000032c0  73 72 5f 76 61 6c 73 24  2c 69 2c 31 29 29 0d 15  |sr_vals$,i,1))..|
000032d0  d6 18 e7 20 ac 20 63 61  70 73 5f 6c 6f 63 6b 20  |... . caps_lock |
000032e0  8c 20 8d 64 7e 55 0d 15  e0 10 69 3d a7 61 7a 41  |. .d~U....i=.azA|
000032f0  5a 24 2c bd 63 29 0d 15  ea 10 e7 20 69 3d 30 20  |Z$,.c)..... i=0 |
00003300  8c 20 8d 64 7e 55 0d 15  f4 2b e7 20 69 3c 3d 32  |. .d~U...+. i<=2|
00003310  36 20 8c 20 3d 22 53 48  49 46 54 20 77 69 74 68  |6 . ="SHIFT with|
00003320  20 22 2b bd 28 63 2d 26  32 30 29 20 8b 20 3d bd  | "+.(c-&20) . =.|
00003330  63 0d 15 fe 1f e7 20 a7  6c 6f 77 65 72 24 2c bd  |c..... .lower$,.|
00003340  63 29 20 8c 20 3d a4 6c  65 67 65 6e 64 28 63 29  |c) . =.legend(c)|
00003350  0d 16 08 11 69 3d a7 75  70 70 65 72 24 2c bd 63  |....i=.upper$,.c|
00003360  29 0d 16 12 30 e7 20 69  20 8c 20 3d 22 53 48 49  |)...0. i . ="SHI|
00003370  46 54 20 77 69 74 68 20  22 2b a4 6c 65 67 65 6e  |FT with "+.legen|
00003380  64 28 97 20 c1 6c 6f 77  65 72 24 2c 69 2c 31 29  |d(. .lower$,i,1)|
00003390  29 0d 16 1c 26 3d 22 46  55 4e 43 20 77 69 74 68  |)...&="FUNC with|
000033a0  20 22 2b c1 66 75 6e 63  5f 62 61 73 65 24 2c 63  | "+.func_base$,c|
000033b0  2d 31 32 37 2c 31 29 0d  16 26 05 20 0d 16 30 0c  |-127,1)..&. ..0.|
000033c0  dd 20 a4 61 67 61 69 6e  0d 16 3a 2c f1 27 27 27  |. .again..:,.'''|
000033d0  22 20 59 6f 75 20 68 61  76 65 20 63 6f 6d 70 6c  |" You have compl|
000033e0  65 74 65 64 20 61 6c 6c  20 74 68 65 20 70 61 72  |eted all the par|
000033f0  74 73 2e 22 0d 16 44 2f  f1 27 22 59 6f 75 20 63  |ts."..D/.'"You c|
00003400  61 6e 20 6e 6f 77 20 72  65 70 65 61 74 20 61 6e  |an now repeat an|
00003410  79 20 6f 66 20 74 68 65  20 70 61 72 74 73 2c 20  |y of the parts, |
00003420  6f 72 22 0d 16 4e 25 f1  27 22 67 6f 20 74 6f 20  |or"..N%.'"go to |
00003430  74 68 65 20 45 6e 64 20  6f 66 20 74 68 65 20 70  |the End of the p|
00003440  72 6f 67 72 61 6d 2e 22  0d 16 58 15 f1 27 27 22  |rogram."..X..''"|
00003450  43 41 50 53 20 4c 4f 43  4b 20 4f 4e 22 0d 16 62  |CAPS LOCK ON"..b|
00003460  1b f1 27 22 20 20 31 2e  20 55 6e 73 68 69 66 74  |..'"  1. Unshift|
00003470  65 64 20 6b 65 79 73 22  0d 16 6c 19 f1 27 22 20  |ed keys"..l..'" |
00003480  20 32 2e 20 53 68 69 66  74 65 64 20 6b 65 79 73  | 2. Shifted keys|
00003490  22 0d 16 76 25 f1 27 22  20 20 33 2e 20 55 6e 73  |"..v%.'"  3. Uns|
000034a0  68 69 66 74 65 64 20 26  20 73 68 69 66 74 65 64  |hifted & shifted|
000034b0  20 6b 65 79 73 22 0d 16  80 15 f1 27 22 43 41 50  | keys".....'"CAP|
000034c0  53 20 4c 4f 43 4b 20 4f  46 46 22 0d 16 8a 25 f1  |S LOCK OFF"...%.|
000034d0  27 22 20 20 34 2e 20 55  6e 73 68 69 66 74 65 64  |'"  4. Unshifted|
000034e0  20 26 20 73 68 69 66 74  65 64 20 6b 65 79 73 22  | & shifted keys"|
000034f0  0d 16 94 16 f1 27 22 20  20 35 2e 20 43 54 52 4c  |.....'"  5. CTRL|
00003500  20 6b 65 79 73 22 0d 16  9e 16 f1 27 22 20 20 36  | keys".....'"  6|
00003510  2e 20 46 55 4e 43 20 6b  65 79 73 22 0d 16 a8 2b  |. FUNC keys"...+|
00003520  f1 27 27 22 20 20 45 2e  20 47 6f 20 74 6f 20 74  |.''"  E. Go to t|
00003530  68 65 20 65 6e 64 20 6f  66 20 74 68 65 20 70 72  |he end of the pr|
00003540  6f 67 72 61 6d 2e 22 0d  16 b2 0b 2a 46 58 31 35  |ogram."....*FX15|
00003550  2c 30 0d 16 bc 18 f1 27  27 22 59 6f 75 72 20 63  |,0.....''"Your c|
00003560  68 6f 69 63 65 20 3f 20  22 3b 0d 16 c6 05 f5 0d  |hoice ? ";......|
00003570  16 d0 11 20 41 4e 53 57  45 52 24 3d bf 28 30 29  |... ANSWER$=.(0)|
00003580  0d 16 da 1f fd 20 a7 22  20 31 32 33 34 35 36 45  |..... ." 123456E|
00003590  65 22 2c 41 4e 53 57 45  52 24 29 20 3e 20 31 0d  |e",ANSWER$) > 1.|
000035a0  16 e4 1a e7 20 a7 22 45  65 22 2c 41 4e 53 57 45  |.... ."Ee",ANSWE|
000035b0  52 24 29 20 8c 20 3d 2d  31 0d 16 ee 0f 3d bb 28  |R$) . =-1....=.(|
000035c0  41 4e 53 57 45 52 24 29  0d 16 f8 05 20 0d 17 02  |ANSWER$).... ...|
000035d0  14 dd 20 f2 44 42 4c 28  41 24 2c 78 25 2c 79 25  |.. .DBL(A$,x%,y%|
000035e0  29 0d 17 0c 25 e7 78 25  3c 30 8c f1 8a 28 33 38  |)...%.x%<0...(38|
000035f0  2d a9 41 24 29 2f 32 2c  79 25 29 3b 8b f1 8a 78  |-.A$)/2,y%);...x|
00003600  25 2c 79 25 29 3b 0d 17  16 0e e3 43 48 25 3d 31  |%,y%);.....CH%=1|
00003610  b8 a9 41 24 0d 17 20 19  4b 25 3d a4 43 48 41 52  |..A$.. .K%=.CHAR|
00003620  28 97 c1 41 24 2c 43 48  25 2c 31 29 29 0d 17 2a  |(..A$,CH%,1))..*|
00003630  14 ef 32 35 34 2c 31 30  2c 38 2c 32 35 35 2c 31  |..254,10,8,255,1|
00003640  31 0d 17 34 05 ed 0d 17  3e 05 e1 0d 17 48 05 20  |1..4....>....H. |
00003650  0d 17 52 0f dd 20 a4 43  48 41 52 28 43 25 29 0d  |..R.. .CHAR(C%).|
00003660  17 5c 36 3f 42 4c 4f 43  4b 3d 43 25 3a 20 41 25  |.\6?BLOCK=C%: A%|
00003670  3d 31 30 3a 20 58 25 3d  42 4c 4f 43 4b 3a 20 59  |=10: X%=BLOCK: Y|
00003680  25 3d 42 4c 4f 43 4b 20  81 20 32 35 36 3a 20 d6  |%=BLOCK . 256: .|
00003690  26 46 46 46 31 0d 17 66  0b e3 4a 25 3d 30 b8 31  |&FFF1..f..J%=0.1|
000036a0  0d 17 70 0e ef 32 33 2c  4a 25 2b 32 35 34 0d 17  |..p..23,J%+254..|
000036b0  7a 0b e3 49 25 3d 32 b8  39 0d 17 84 16 ef 42 4c  |z..I%=2.9.....BL|
000036c0  4f 43 4b 3f 28 4a 25 2a  34 2b 49 25 81 32 29 0d  |OCK?(J%*4+I%.2).|
000036d0  17 8e 06 ed 2c 0d 17 98  06 3d 30 0d ff           |....,....=0..|
000036dd