� Speedy Reader
� By R.A.Waddilove
� (c) Electron User
((� � � �=17 � � � �:� " at line ";�:�
2� 6
<� 19,0,4;0;
Flevel=1
P�
Z�:� 23 1,1;0;0;0;
d"� �9,2)"*** Speedy Reader ***"
n&� �10,5)"1. Set level (";level;")"
x� �10,7)"2. Flash numbers"
�� �10,9)"3. Flash phrases"
�#� �10,11)"4. Alphabetic memory"
� � �10,13)"5. Numeric memory"
�� �10,15)"6. Instructions"
�� �10,17)"7. Quit"
�� �10,21)"Press a key...";
��
�key=�-48
�� key>0 � key<8
��
�� 23,1,0;0;0;0;
�
� key=7 �
�)� key � �TbA,�DhA,�dtA,�TVC,�tbC,�TnD

� �

�

 

")� �5,5)"*** Set Difficulty Level ***"

,$� �8,9)"Press a key (1 - 9)...";

6�

@level=�-48

J� level>0 � level<10

T�

^ 

h� Flash Numbers

rscore=0:T%=5*(10-level)

|� i=1 � 10

�#� �10,5)"*** Flash Numbers ***"

�	n$=""

�� j=0 � level � 2

�n$=n$+�(�(9))

��

� score=score-�question(n$,T%)

�#� �14,20)"Score: ";score;"/10";

�key$=�(200):�

��

��

� 

�� Flash phrases

�T%=20-level*2
score=0
� i=1 � 10
� level=1 � �dFB
&� level=2 � �dPB
0� level=3 � �dZB
:� level=4 � �ddB
D� level=5 � �dnB
N� level>5 � �dxB
X"� �9,5)"*** Flash Phrases ***"
b� j=1 � �(10)
l� word$
v�
�#score=score-�question(word$,T%)
�"� �15,20)"Score:";score;"/10";
�key$=�(200)
��
��
��
� 
�-� you,far,car,cat,dog,mat,hat,bin,mud,dig
�2� near,tree,over,blue,have,hope,that,help,then
�A� touch,write,chose,bytes,under,error,shown,right,steps,feels
�K� please,coming,caught,higher,closer,topics,August,switch,fairly,seemed
�U� program,current,related,reached,version,article,default,guessed,creates,shorter
�h� assemble,messages,switching,correctly,statement,monochrome,interested,explaining,previous,hardware
� 23,1,0;0;0;0;
 
� Alphabetic memory
 score=0:T%=300
*� i=1 � 10
4&� �7,5)"*** Alphabetic Memory ***"
>	n$=""
H� j=1 � level
Rn$=n$+�(64+�(26))
\�
f score=score-�question(n$,T%)
p#� �14,20)"Score: ";score;"/10";
zkey$=�(200):�
��
��
� 
�� Numeric memory
�score=0:T%=300
�� i=1 � 10
�#� �9,5)"*** Numeric Memory ***"
�	n$=""
�� j=1 � level+2
�n$=n$+�(�(9))
��
� score=score-�question(n$,T%)
�#� �14,20)"Score: ";score;"/10";
key$=�(200):�
�
�
$ 
.� Instructions
8"� �9,3)"*** Speedy Reader ***"
B� '
L,� " This utility is designed to improve"
V/� " your memory and reading speed by means"
`� " of a few simple tests."
j�
t)� " The first two tests improve your"
~-� " ability to quickly recognise numbers"
�.� " and phrases. The second two tests aim"
�-� " to improve your memory so you retain"
�#� " more of the text you read."
�� '
�� �12)"Press a key...";
�	� � �
��
� 
�� �question(q$,t%)
�tab=(38-�(q$))� 2
�� �tab,10)">";�(�(q$));"<"
�t=200+�(200)

key$=�(t)

� �tab+1,10)q$
�=0
� � �>T%
(� �tab+1,10)�(�(q$))
2*� �tab,12)">";�(�(q$));"<";�tab+1,12);
<� 23,1,1;0;0;0;
F
� ""a$
P� 23,1,0;0;0;0;
ZL� a$=q$ � �16,18)"Correct!" � � �16,18)"Wrong!";�tab+1,10)q$:key$=�(200)
d=(a$=q$)
�

00000000  0d 00 0a 13 f4 20 53 70  65 65 64 79 20 52 65 61  |..... Speedy Rea|
00000010  64 65 72 0d 00 14 16 f4  20 42 79 20 52 2e 41 2e  |der..... By R.A.|
00000020  57 61 64 64 69 6c 6f 76  65 0d 00 1e 17 f4 20 28  |Waddilove..... (|
00000030  63 29 20 45 6c 65 63 74  72 6f 6e 20 55 73 65 72  |c) Electron User|
00000040  0d 00 28 28 ee 20 85 20  e7 20 9f 3d 31 37 20 8c  |..((. . . .=17 .|
00000050  20 f9 20 8b 20 f6 3a f1  20 22 20 61 74 20 6c 69  | . . .:. " at li|
00000060  6e 65 20 22 3b 9e 3a e0  0d 00 32 07 eb 20 36 0d  |ne ";.:...2.. 6.|
00000070  00 3c 0f ef 20 31 39 2c  30 2c 34 3b 30 3b 0d 00  |.<.. 19,0,4;0;..|
00000080  46 0b 6c 65 76 65 6c 3d  31 0d 00 50 05 f5 0d 00  |F.level=1..P....|
00000090  5a 15 db 3a ef 20 32 33  20 31 2c 31 3b 30 3b 30  |Z..:. 23 1,1;0;0|
000000a0  3b 30 3b 0d 00 64 22 f1  20 8a 39 2c 32 29 22 2a  |;0;..d". .9,2)"*|
000000b0  2a 2a 20 53 70 65 65 64  79 20 52 65 61 64 65 72  |** Speedy Reader|
000000c0  20 2a 2a 2a 22 0d 00 6e  26 f1 20 8a 31 30 2c 35  | ***"..n&. .10,5|
000000d0  29 22 31 2e 20 53 65 74  20 6c 65 76 65 6c 20 28  |)"1. Set level (|
000000e0  22 3b 6c 65 76 65 6c 3b  22 29 22 0d 00 78 1e f1  |";level;")"..x..|
000000f0  20 8a 31 30 2c 37 29 22  32 2e 20 46 6c 61 73 68  | .10,7)"2. Flash|
00000100  20 6e 75 6d 62 65 72 73  22 0d 00 82 1e f1 20 8a  | numbers"..... .|
00000110  31 30 2c 39 29 22 33 2e  20 46 6c 61 73 68 20 70  |10,9)"3. Flash p|
00000120  68 72 61 73 65 73 22 0d  00 8c 23 f1 20 8a 31 30  |hrases"...#. .10|
00000130  2c 31 31 29 22 34 2e 20  41 6c 70 68 61 62 65 74  |,11)"4. Alphabet|
00000140  69 63 20 6d 65 6d 6f 72  79 22 0d 00 96 20 f1 20  |ic memory"... . |
00000150  8a 31 30 2c 31 33 29 22  35 2e 20 4e 75 6d 65 72  |.10,13)"5. Numer|
00000160  69 63 20 6d 65 6d 6f 72  79 22 0d 00 a0 1e f1 20  |ic memory"..... |
00000170  8a 31 30 2c 31 35 29 22  36 2e 20 49 6e 73 74 72  |.10,15)"6. Instr|
00000180  75 63 74 69 6f 6e 73 22  0d 00 aa 16 f1 20 8a 31  |uctions"..... .1|
00000190  30 2c 31 37 29 22 37 2e  20 51 75 69 74 22 0d 00  |0,17)"7. Quit"..|
000001a0  b4 1e f1 20 8a 31 30 2c  32 31 29 22 50 72 65 73  |... .10,21)"Pres|
000001b0  73 20 61 20 6b 65 79 2e  2e 2e 22 3b 0d 00 be 05  |s a key...";....|
000001c0  f5 0d 00 c8 0c 6b 65 79  3d a5 2d 34 38 0d 00 d2  |.....key=.-48...|
000001d0  13 fd 20 6b 65 79 3e 30  20 80 20 6b 65 79 3c 38  |.. key>0 . key<8|
000001e0  0d 00 dc 05 db 0d 00 e6  13 ef 20 32 33 2c 31 2c  |.......... 23,1,|
000001f0  30 3b 30 3b 30 3b 30 3b  0d 00 f0 0d e7 20 6b 65  |0;0;0;0;..... ke|
00000200  79 3d 37 20 e0 0d 00 fa  29 ee 20 6b 65 79 20 e4  |y=7 ....). key .|
00000210  20 8d 54 62 41 2c 8d 44  68 41 2c 8d 64 74 41 2c  | .TbA,.DhA,.dtA,|
00000220  8d 54 56 43 2c 8d 74 62  43 2c 8d 54 6e 44 0d 01  |.TVC,.tbC,.TnD..|
00000230  04 07 fd 20 a3 0d 01 0e  05 e0 0d 01 18 05 20 0d  |... .......... .|
00000240  01 22 29 f1 20 8a 35 2c  35 29 22 2a 2a 2a 20 53  |."). .5,5)"*** S|
00000250  65 74 20 44 69 66 66 69  63 75 6c 74 79 20 4c 65  |et Difficulty Le|
00000260  76 65 6c 20 2a 2a 2a 22  0d 01 2c 24 f1 20 8a 38  |vel ***"..,$. .8|
00000270  2c 39 29 22 50 72 65 73  73 20 61 20 6b 65 79 20  |,9)"Press a key |
00000280  28 31 20 2d 20 39 29 2e  2e 2e 22 3b 0d 01 36 05  |(1 - 9)...";..6.|
00000290  f5 0d 01 40 0e 6c 65 76  65 6c 3d a5 2d 34 38 0d  |...@.level=.-48.|
000002a0  01 4a 18 fd 20 6c 65 76  65 6c 3e 30 20 80 20 6c  |.J.. level>0 . l|
000002b0  65 76 65 6c 3c 31 30 0d  01 54 05 f8 0d 01 5e 05  |evel<10..T....^.|
000002c0  20 0d 01 68 13 f4 20 46  6c 61 73 68 20 4e 75 6d  | ..h.. Flash Num|
000002d0  62 65 72 73 0d 01 72 1b  73 63 6f 72 65 3d 30 3a  |bers..r.score=0:|
000002e0  54 25 3d 35 2a 28 31 30  2d 6c 65 76 65 6c 29 0d  |T%=5*(10-level).|
000002f0  01 7c 0e e3 20 69 3d 31  20 b8 20 31 30 0d 01 86  |.|.. i=1 . 10...|
00000300  23 f1 20 8a 31 30 2c 35  29 22 2a 2a 2a 20 46 6c  |#. .10,5)"*** Fl|
00000310  61 73 68 20 4e 75 6d 62  65 72 73 20 2a 2a 2a 22  |ash Numbers ***"|
00000320  0d 01 90 09 6e 24 3d 22  22 0d 01 9a 15 e3 20 6a  |....n$=""..... j|
00000330  3d 30 20 b8 20 6c 65 76  65 6c 20 81 20 32 0d 01  |=0 . level . 2..|
00000340  a4 11 6e 24 3d 6e 24 2b  c3 28 b3 28 39 29 29 0d  |..n$=n$+.(.(9)).|
00000350  01 ae 05 ed 0d 01 b8 20  73 63 6f 72 65 3d 73 63  |....... score=sc|
00000360  6f 72 65 2d a4 71 75 65  73 74 69 6f 6e 28 6e 24  |ore-.question(n$|
00000370  2c 54 25 29 0d 01 c2 23  f1 20 8a 31 34 2c 32 30  |,T%)...#. .14,20|
00000380  29 22 53 63 6f 72 65 3a  20 22 3b 73 63 6f 72 65  |)"Score: ";score|
00000390  3b 22 2f 31 30 22 3b 0d  01 cc 11 6b 65 79 24 3d  |;"/10";....key$=|
000003a0  bf 28 32 30 30 29 3a db  0d 01 d6 05 ed 0d 01 e0  |.(200):.........|
000003b0  05 f8 0d 01 ea 05 20 0d  01 f4 13 f4 20 46 6c 61  |...... ..... Fla|
000003c0  73 68 20 70 68 72 61 73  65 73 0d 01 fe 11 54 25  |sh phrases....T%|
000003d0  3d 32 30 2d 6c 65 76 65  6c 2a 32 0d 02 08 0b 73  |=20-level*2....s|
000003e0  63 6f 72 65 3d 30 0d 02  12 0e e3 20 69 3d 31 20  |core=0..... i=1 |
000003f0  b8 20 31 30 0d 02 1c 14  e7 20 6c 65 76 65 6c 3d  |. 10..... level=|
00000400  31 20 f7 20 8d 64 46 42  0d 02 26 14 e7 20 6c 65  |1 . .dFB..&.. le|
00000410  76 65 6c 3d 32 20 f7 20  8d 64 50 42 0d 02 30 14  |vel=2 . .dPB..0.|
00000420  e7 20 6c 65 76 65 6c 3d  33 20 f7 20 8d 64 5a 42  |. level=3 . .dZB|
00000430  0d 02 3a 14 e7 20 6c 65  76 65 6c 3d 34 20 f7 20  |..:.. level=4 . |
00000440  8d 64 64 42 0d 02 44 14  e7 20 6c 65 76 65 6c 3d  |.ddB..D.. level=|
00000450  35 20 f7 20 8d 64 6e 42  0d 02 4e 14 e7 20 6c 65  |5 . .dnB..N.. le|
00000460  76 65 6c 3e 35 20 f7 20  8d 64 78 42 0d 02 58 22  |vel>5 . .dxB..X"|
00000470  f1 20 8a 39 2c 35 29 22  2a 2a 2a 20 46 6c 61 73  |. .9,5)"*** Flas|
00000480  68 20 50 68 72 61 73 65  73 20 2a 2a 2a 22 0d 02  |h Phrases ***"..|
00000490  62 11 e3 20 6a 3d 31 20  b8 20 b3 28 31 30 29 0d  |b.. j=1 . .(10).|
000004a0  02 6c 0b f3 20 77 6f 72  64 24 0d 02 76 05 ed 0d  |.l.. word$..v...|
000004b0  02 80 23 73 63 6f 72 65  3d 73 63 6f 72 65 2d a4  |..#score=score-.|
000004c0  71 75 65 73 74 69 6f 6e  28 77 6f 72 64 24 2c 54  |question(word$,T|
000004d0  25 29 0d 02 8a 22 f1 20  8a 31 35 2c 32 30 29 22  |%)...". .15,20)"|
000004e0  53 63 6f 72 65 3a 22 3b  73 63 6f 72 65 3b 22 2f  |Score:";score;"/|
000004f0  31 30 22 3b 0d 02 94 0f  6b 65 79 24 3d bf 28 32  |10";....key$=.(2|
00000500  30 30 29 0d 02 9e 05 db  0d 02 a8 05 ed 0d 02 b2  |00).............|
00000510  05 f8 0d 02 bc 05 20 0d  02 c6 2d dc 20 79 6f 75  |...... ...-. you|
00000520  2c 66 61 72 2c 63 61 72  2c 63 61 74 2c 64 6f 67  |,far,car,cat,dog|
00000530  2c 6d 61 74 2c 68 61 74  2c 62 69 6e 2c 6d 75 64  |,mat,hat,bin,mud|
00000540  2c 64 69 67 0d 02 d0 32  dc 20 6e 65 61 72 2c 74  |,dig...2. near,t|
00000550  72 65 65 2c 6f 76 65 72  2c 62 6c 75 65 2c 68 61  |ree,over,blue,ha|
00000560  76 65 2c 68 6f 70 65 2c  74 68 61 74 2c 68 65 6c  |ve,hope,that,hel|
00000570  70 2c 74 68 65 6e 0d 02  da 41 dc 20 74 6f 75 63  |p,then...A. touc|
00000580  68 2c 77 72 69 74 65 2c  63 68 6f 73 65 2c 62 79  |h,write,chose,by|
00000590  74 65 73 2c 75 6e 64 65  72 2c 65 72 72 6f 72 2c  |tes,under,error,|
000005a0  73 68 6f 77 6e 2c 72 69  67 68 74 2c 73 74 65 70  |shown,right,step|
000005b0  73 2c 66 65 65 6c 73 0d  02 e4 4b dc 20 70 6c 65  |s,feels...K. ple|
000005c0  61 73 65 2c 63 6f 6d 69  6e 67 2c 63 61 75 67 68  |ase,coming,caugh|
000005d0  74 2c 68 69 67 68 65 72  2c 63 6c 6f 73 65 72 2c  |t,higher,closer,|
000005e0  74 6f 70 69 63 73 2c 41  75 67 75 73 74 2c 73 77  |topics,August,sw|
000005f0  69 74 63 68 2c 66 61 69  72 6c 79 2c 73 65 65 6d  |itch,fairly,seem|
00000600  65 64 0d 02 ee 55 dc 20  70 72 6f 67 72 61 6d 2c  |ed...U. program,|
00000610  63 75 72 72 65 6e 74 2c  72 65 6c 61 74 65 64 2c  |current,related,|
00000620  72 65 61 63 68 65 64 2c  76 65 72 73 69 6f 6e 2c  |reached,version,|
00000630  61 72 74 69 63 6c 65 2c  64 65 66 61 75 6c 74 2c  |article,default,|
00000640  67 75 65 73 73 65 64 2c  63 72 65 61 74 65 73 2c  |guessed,creates,|
00000650  73 68 6f 72 74 65 72 0d  02 f8 68 dc 20 61 73 73  |shorter...h. ass|
00000660  65 6d 62 6c 65 2c 6d 65  73 73 61 67 65 73 2c 73  |emble,messages,s|
00000670  77 69 74 63 68 69 6e 67  2c 63 6f 72 72 65 63 74  |witching,correct|
00000680  6c 79 2c 73 74 61 74 65  6d 65 6e 74 2c 6d 6f 6e  |ly,statement,mon|
00000690  6f 63 68 72 6f 6d 65 2c  69 6e 74 65 72 65 73 74  |ochrome,interest|
000006a0  65 64 2c 65 78 70 6c 61  69 6e 69 6e 67 2c 70 72  |ed,explaining,pr|
000006b0  65 76 69 6f 75 73 2c 68  61 72 64 77 61 72 65 0d  |evious,hardware.|
000006c0  03 02 13 ef 20 32 33 2c  31 2c 30 3b 30 3b 30 3b  |.... 23,1,0;0;0;|
000006d0  30 3b 0d 03 0c 05 20 0d  03 16 17 f4 20 41 6c 70  |0;.... ..... Alp|
000006e0  68 61 62 65 74 69 63 20  6d 65 6d 6f 72 79 0d 03  |habetic memory..|
000006f0  20 12 73 63 6f 72 65 3d  30 3a 54 25 3d 33 30 30  | .score=0:T%=300|
00000700  0d 03 2a 0e e3 20 69 3d  31 20 b8 20 31 30 0d 03  |..*.. i=1 . 10..|
00000710  34 26 f1 20 8a 37 2c 35  29 22 2a 2a 2a 20 41 6c  |4&. .7,5)"*** Al|
00000720  70 68 61 62 65 74 69 63  20 4d 65 6d 6f 72 79 20  |phabetic Memory |
00000730  2a 2a 2a 22 0d 03 3e 09  6e 24 3d 22 22 0d 03 48  |***"..>.n$=""..H|
00000740  11 e3 20 6a 3d 31 20 b8  20 6c 65 76 65 6c 0d 03  |.. j=1 . level..|
00000750  52 15 6e 24 3d 6e 24 2b  bd 28 36 34 2b b3 28 32  |R.n$=n$+.(64+.(2|
00000760  36 29 29 0d 03 5c 05 ed  0d 03 66 20 73 63 6f 72  |6))..\....f scor|
00000770  65 3d 73 63 6f 72 65 2d  a4 71 75 65 73 74 69 6f  |e=score-.questio|
00000780  6e 28 6e 24 2c 54 25 29  0d 03 70 23 f1 20 8a 31  |n(n$,T%)..p#. .1|
00000790  34 2c 32 30 29 22 53 63  6f 72 65 3a 20 22 3b 73  |4,20)"Score: ";s|
000007a0  63 6f 72 65 3b 22 2f 31  30 22 3b 0d 03 7a 11 6b  |core;"/10";..z.k|
000007b0  65 79 24 3d bf 28 32 30  30 29 3a db 0d 03 84 05  |ey$=.(200):.....|
000007c0  ed 0d 03 8e 05 f8 0d 03  98 05 20 0d 03 a2 14 f4  |.......... .....|
000007d0  20 4e 75 6d 65 72 69 63  20 6d 65 6d 6f 72 79 0d  | Numeric memory.|
000007e0  03 ac 12 73 63 6f 72 65  3d 30 3a 54 25 3d 33 30  |...score=0:T%=30|
000007f0  30 0d 03 b6 0e e3 20 69  3d 31 20 b8 20 31 30 0d  |0..... i=1 . 10.|
00000800  03 c0 23 f1 20 8a 39 2c  35 29 22 2a 2a 2a 20 4e  |..#. .9,5)"*** N|
00000810  75 6d 65 72 69 63 20 4d  65 6d 6f 72 79 20 2a 2a  |umeric Memory **|
00000820  2a 22 0d 03 ca 09 6e 24  3d 22 22 0d 03 d4 13 e3  |*"....n$="".....|
00000830  20 6a 3d 31 20 b8 20 6c  65 76 65 6c 2b 32 0d 03  | j=1 . level+2..|
00000840  de 11 6e 24 3d 6e 24 2b  c3 28 b3 28 39 29 29 0d  |..n$=n$+.(.(9)).|
00000850  03 e8 05 ed 0d 03 f2 20  73 63 6f 72 65 3d 73 63  |....... score=sc|
00000860  6f 72 65 2d a4 71 75 65  73 74 69 6f 6e 28 6e 24  |ore-.question(n$|
00000870  2c 54 25 29 0d 03 fc 23  f1 20 8a 31 34 2c 32 30  |,T%)...#. .14,20|
00000880  29 22 53 63 6f 72 65 3a  20 22 3b 73 63 6f 72 65  |)"Score: ";score|
00000890  3b 22 2f 31 30 22 3b 0d  04 06 11 6b 65 79 24 3d  |;"/10";....key$=|
000008a0  bf 28 32 30 30 29 3a db  0d 04 10 05 ed 0d 04 1a  |.(200):.........|
000008b0  05 f8 0d 04 24 05 20 0d  04 2e 12 f4 20 49 6e 73  |....$. ..... Ins|
000008c0  74 72 75 63 74 69 6f 6e  73 0d 04 38 22 f1 20 8a  |tructions..8". .|
000008d0  39 2c 33 29 22 2a 2a 2a  20 53 70 65 65 64 79 20  |9,3)"*** Speedy |
000008e0  52 65 61 64 65 72 20 2a  2a 2a 22 0d 04 42 07 f1  |Reader ***"..B..|
000008f0  20 27 0d 04 4c 2c f1 20  22 20 54 68 69 73 20 75  | '..L,. " This u|
00000900  74 69 6c 69 74 79 20 69  73 20 64 65 73 69 67 6e  |tility is design|
00000910  65 64 20 74 6f 20 69 6d  70 72 6f 76 65 22 0d 04  |ed to improve"..|
00000920  56 2f f1 20 22 20 79 6f  75 72 20 6d 65 6d 6f 72  |V/. " your memor|
00000930  79 20 61 6e 64 20 72 65  61 64 69 6e 67 20 73 70  |y and reading sp|
00000940  65 65 64 20 62 79 20 6d  65 61 6e 73 22 0d 04 60  |eed by means"..`|
00000950  1f f1 20 22 20 6f 66 20  61 20 66 65 77 20 73 69  |.. " of a few si|
00000960  6d 70 6c 65 20 74 65 73  74 73 2e 22 0d 04 6a 05  |mple tests."..j.|
00000970  f1 0d 04 74 29 f1 20 22  20 54 68 65 20 66 69 72  |...t). " The fir|
00000980  73 74 20 74 77 6f 20 74  65 73 74 73 20 69 6d 70  |st two tests imp|
00000990  72 6f 76 65 20 79 6f 75  72 22 0d 04 7e 2d f1 20  |rove your"..~-. |
000009a0  22 20 61 62 69 6c 69 74  79 20 74 6f 20 71 75 69  |" ability to qui|
000009b0  63 6b 6c 79 20 72 65 63  6f 67 6e 69 73 65 20 6e  |ckly recognise n|
000009c0  75 6d 62 65 72 73 22 0d  04 88 2e f1 20 22 20 61  |umbers"..... " a|
000009d0  6e 64 20 70 68 72 61 73  65 73 2e 20 54 68 65 20  |nd phrases. The |
000009e0  73 65 63 6f 6e 64 20 74  77 6f 20 74 65 73 74 73  |second two tests|
000009f0  20 61 69 6d 22 0d 04 92  2d f1 20 22 20 74 6f 20  | aim"...-. " to |
00000a00  69 6d 70 72 6f 76 65 20  79 6f 75 72 20 6d 65 6d  |improve your mem|
00000a10  6f 72 79 20 73 6f 20 79  6f 75 20 72 65 74 61 69  |ory so you retai|
00000a20  6e 22 0d 04 9c 23 f1 20  22 20 6d 6f 72 65 20 6f  |n"...#. " more o|
00000a30  66 20 74 68 65 20 74 65  78 74 20 79 6f 75 20 72  |f the text you r|
00000a40  65 61 64 2e 22 0d 04 a6  07 f1 20 27 0d 04 b0 1b  |ead."..... '....|
00000a50  f1 20 8a 31 32 29 22 50  72 65 73 73 20 61 20 6b  |. .12)"Press a k|
00000a60  65 79 2e 2e 2e 22 3b 0d  04 ba 09 f5 20 fd 20 a5  |ey...";..... . .|
00000a70  0d 04 c4 05 f8 0d 04 ce  05 20 0d 04 d8 16 dd 20  |......... ..... |
00000a80  a4 71 75 65 73 74 69 6f  6e 28 71 24 2c 74 25 29  |.question(q$,t%)|
00000a90  0d 04 e2 15 74 61 62 3d  28 33 38 2d a9 28 71 24  |....tab=(38-.(q$|
00000aa0  29 29 81 20 32 0d 04 ec  1e f1 20 8a 74 61 62 2c  |)). 2..... .tab,|
00000ab0  31 30 29 22 3e 22 3b 89  28 a9 28 71 24 29 29 3b  |10)">";.(.(q$));|
00000ac0  22 3c 22 0d 04 f6 10 74  3d 32 30 30 2b b3 28 32  |"<"....t=200+.(2|
00000ad0  30 30 29 0d 05 00 0d 6b  65 79 24 3d bf 28 74 29  |00)....key$=.(t)|
00000ae0  0d 05 0a 12 f1 20 8a 74  61 62 2b 31 2c 31 30 29  |..... .tab+1,10)|
00000af0  71 24 0d 05 14 07 d1 3d  30 0d 05 1e 0c f5 20 fd  |q$.....=0..... .|
00000b00  20 91 3e 54 25 0d 05 28  18 f1 20 8a 74 61 62 2b  | .>T%..(.. .tab+|
00000b10  31 2c 31 30 29 89 28 a9  28 71 24 29 29 0d 05 32  |1,10).(.(q$))..2|
00000b20  2a f1 20 8a 74 61 62 2c  31 32 29 22 3e 22 3b 89  |*. .tab,12)">";.|
00000b30  28 a9 28 71 24 29 29 3b  22 3c 22 3b 8a 74 61 62  |(.(q$));"<";.tab|
00000b40  2b 31 2c 31 32 29 3b 0d  05 3c 13 ef 20 32 33 2c  |+1,12);..<.. 23,|
00000b50  31 2c 31 3b 30 3b 30 3b  30 3b 0d 05 46 0a e8 20  |1,1;0;0;0;..F.. |
00000b60  22 22 61 24 0d 05 50 13  ef 20 32 33 2c 31 2c 30  |""a$..P.. 23,1,0|
00000b70  3b 30 3b 30 3b 30 3b 0d  05 5a 4c e7 20 61 24 3d  |;0;0;0;..ZL. a$=|
00000b80  71 24 20 f1 20 8a 31 36  2c 31 38 29 22 43 6f 72  |q$ . .16,18)"Cor|
00000b90  72 65 63 74 21 22 20 8b  20 f1 20 8a 31 36 2c 31  |rect!" . . .16,1|
00000ba0  38 29 22 57 72 6f 6e 67  21 22 3b 8a 74 61 62 2b  |8)"Wrong!";.tab+|
00000bb0  31 2c 31 30 29 71 24 3a  6b 65 79 24 3d bf 28 32  |1,10)q$:key$=.(2|
00000bc0  30 30 29 0d 05 64 0c 3d  28 61 24 3d 71 24 29 0d  |00)..d.=(a$=q$).|
00000bd0  ff                                                |.|
00000bd1