�>Tense_Test

*� FREEWARE by Graham Campbell  13.v.95
(-� 30 Old Way / Hathern / Leics / LE12 5HN
2
<I� To test French Verbs in Pres/Perf/Imperf/Future/Pres Subjunc/Tenses
F1� negative test files added - hope all is OK!
P
Z�12
d� � �0:�error
n�set_up:�lamation
x�9
�9�choose_tense:�fr_chars:�get_data:�h_m_q:�test:�score
�	�quit
��
�
���mauve:�19,0,5,0,0,0:�
���blue:�19,0,4,0,0,0:�
���red:�19,0,1,0,0,0:�
�
���set_up
�version$="v.130595"
�;�:score%=0:@%=&0:in%=0:out%=0:makefile%=0:neg%=0:ram%=0
�;negpres%=0:negimperf%=0:negperf%=0:negfut%=0:negsubj%=0
�.negcon%=0:negplup%=0:negpcon%=0:negfprf%=0

Kpres%=0:imperf%=0:perf%=0:fut%=0:subj%=0:con%=0:plup%=0:pcon%=0:fprf%=0

7� infin$(450),frverb$(450),meaning$(450),insult$(5)

0� random(450),inf$(450),frQ$(450),engM$(450)

"Ainsult$(1)="dimbo":insult$(2)="lazy-bones":insult$(3)="moron"

,3insult$(4)="good-for-nothing":insult$(5)="nerd"

6I%=�(5):i$=insult$(I%)

@2oui$="OUI oui OUI oui OUI oui OUI oui OUI oui"

J�

T

^��lamation

h,�"FX11,0":star$=�58,"*"):�:�blue:�title0

r>ann1$="This program will test you on your requested tense"

|>ann2$="Place my accent function key-strip over the f-keys"

�8ann3$="so that you can type in the accents properly"

�<ann4$="The program has menus which are self-explanatory"

�;ann5$="You'll get a running score and your final score"

�Aann6$="Press  << A N Y   K E Y >> when you're ready to start"

�)copyright$="� graham campbell - v.95"

��tab0(7,ann1$,"")

��6:�'�10)star$

��9:�tab0(12,ann2$,"")

��tab0(13,ann3$,"")

��6:�10)star$

��7:�tab0(18,ann4$,"")

��6:�tab0(20,ann5$,"")

��tab0(25,ann6$,"")
�copyright0
	k=�:�
�
&
0%��copyright0:�26,30)copyright$:�
:$��copyright1:�7,29)copyright$:�
D
N��fr_chars
X/�23,64,96,24,124,4,124,68,124,0:� @=a grave
b%�23,97,0,0,124,4,124,68,124,0:� a
l.�23,93,16,40,124,4,124,68,124,0:� ]=a circ
v0�23,92,0,0,126,96,96,126,224,0:� \=c cedilla
�1�23,123,12,48,124,68,124,64,124,0:� {=e acute
�1�23,125,96,24,124,68,124,64,124,0:� }=e grave
�/�23,91,16,40,124,68,124,64,124,0:� [=e circ
�'�23,101,0,0,124,68,124,64,124,0:� e
�-�23,126,16,40,68,56,56,56,56,0:� ~=i circ
�-�23,35,16,40,0,124,68,68,124,0:� #=o circ
�-�23,42,48,24,68,68,68,68,60,0:� *=u grave
�-�23,36,16,40,0,70,70,70,126,0,:� $=u circ
�0�23,94,108,0,124,68,124,64,124,0:� ^=e trema
�5�"KEY1 @":�"KEY2 ]":�"KEY3 \":�"KEY4 {":�"KEY5 }"
�6�"KEY6 [":�"KEY7 #":�"KEY8 *":�"KEY9 $":�"KEY10 ^"
��"KEY11 ~"
��

��h_m_q

�:�title1
 /�2,13)"There are ";:�3:�numberofverbs%;:�6
*�" verb-forms in memory."
4� printtest% �
>!�2,18)"How many questions ";
H+�2,20)"for the test_file?  :  "number%
R�
\!�2,18)"How many questions ";
f-�2,20)"shall I fire at you?  :  "number%
p�
z� number%=0 �:�h_m_q
�� number%>numberofverbs% �
��7,12:�red
��"FX18":�"FX20"
�,�2,15)"I can't ask you more questions "
�"�2,17)"than there are verbs."
�%�2,20)"Hang on a moment . . . ";
�wait%=�(200):�:�
��
�� � printtest% �
��:�:�red:�7
�;�2,15)"Just selecting the random questions":�variables
�wait%=�(200):�:�
��
�

��variables
$� Y=1 � number%
.�
8rand=�(numberofverbs%)
B� �frverb$(rand),1)<>"*"
LFfrQ$(Y)=frverb$(rand):engM$(Y)=meaning$(rand):inf$(Y)=infin$(rand)
V%frverb$(rand)=("*"+frverb$(rand))
`�
j�
t
~��title0
�Jt1$=("Multi-Tense French Verb trainer by graham campbell - "+version$)
�ut1$=ĩt1$,"=")
� �1:�10,1)ut1$:�7:�10,2)t1$
��1:�10,3)ut1$:�7
��
�
���title1
�)t1$=("gdc's "+tense$+" Verb trainer")
�'ut1$=ĩt1$,"="):�tab1(2,t1$,ut1$,6)
��
�
���tab0(t%,a$,ua$)
2tab%=((79-�a$)/2):�tab%,t%)a$:�tab%,t%+1)ua$

�

��tab1(t%,a$,ua$,col%)
((�col%:tab%=((39-�a$)/2):�tab%,t%)a$
2� col%<>7 �6
<�tab%,t%+1)ua$
F�
P
Z��error
d	� � �
n� in%<>0 �#in%
x� out%<>0 �#out%
�)�"FX11,15":�"FX202,0":�"FX20":�"FX18"
�%� IF NOT ram% OSCLI"RamFSsize 0K"
�� �=17 �"DESKTOP"
��red:�:�" at line ";�'':�
��
�
�
��test
�� Y=1 � number%
�
*FX202,16
��blue:�6:�title1
�q$=(">>> "+inf$(Y)+" <<<")
��tab1(10,q$,"",2)
�
� subj% � negsubj% �
 �tab1(13,"What is the","",6)
blank$=ĩ(engM$(Y))," ")
"ublank$=ĩblank$,"-")
,�tab1(15,blank$,ublank$,6)
6 �tab1(17,engM$(Y),ublank$,3)
@�show_score:�copyright1
Jvowel$=�frQ$(Y),1)
T� �"aeiou",vowel$)<>0 �
^%�  �5,22)"Answer  :  qu'"answer$
h�
r&�  �5,22)"Answer  :  que "answer$
|�
��
�#�tab1(13,"How do you say","",6)
�blank$=ĩ(engM$(Y))," ")
�ublank$=ĩblank$,"-")
��tab1(15,blank$,ublank$,6)
� �tab1(17,engM$(Y),ublank$,3)
��show_score:�copyright1:�6
�  � �(frQ$(Y))>24 �
�     �  �0,22)"Ans: "answer$
�	    �
�$    �  �5,22)"Answer : "answer$
�  �
��
� answer$=frQ$(Y) �

score%+=1
�:�
&� o%=1 � 30:�oui$:�
0wait=�(50)
:�:�
D�
N�
X�red:�7
b#�1,3)"Ah non! Esp}ce d'idiot!"
l�tab1(7,engM$(Y),"",4)
v&�tab1(10,"La r{ponse, c'est","",7)
�*�tab1(13,(">>> "+frQ$(Y)+" <<<"),"",3)
� �(tab%+4),14)ĩfrQ$(Y),"-")
�%�tab1(18,"Toi, tu as {crit","",7)
�*�tab1(20,(">>> "+answer$+" <<<"),"",3)
�.�1,25)"N'importe quelle touche . . . . ";
�k%=�:�:�:�6
��
��
��
�
���score
��:�
��mauve:�12
>�1,15)"Ton score, c'est  >>>>  ";score%;"  sur  ";number%
� score%<(number%-3) �
#�1,18)"Try a bit of revision,"
 �1)"you ";i$;"!"
*�
4#�1,18)"Well done, you ";i$;"!"
>�
H.k$="Press  << A N Y   K E Y >>  to finish"
R�tab1(29,k$,"",6):k%=�:�:�
\�
f
p��get_data
z�:�blue
�H� --- of$=out_file$ - if sending TextFile to RAM is chosen from menu
�0� myfile% � ST$(50):�choose_file("My_Files")
�� neg% �
�J� negpres% infile$="Neg_Pres":tense$="Neg.Present Tense":of$="NegPres"
�L� negimperf% infile$="Neg_Imp":tense$="Neg.Imperf Tense":of$="NegImperf"
�M� negperf% infile$="Neg_Perf":tense$="Neg.Perfect Tense":of$="NegPerfect"
�K� negfprf% infile$="Neg_Fprf":tense$="Neg.Fut-Perfect":of$="NegFutPerf"
�M� negplup% infile$="Neg_Plup":tense$="Neg.Pluperf.Tense":of$="NegPluPerf"
�J� negpcon% infile$="Neg_Pcon":tense$="Neg.Cond.Perf.":of$="NegConPerf"
�J� negfut% infile$="Neg_Fut":tense$="Neg.Future Tense":of$="Neg_Future"
�J� negcon% infile$="Neg_Cond":tense$="Neg.Conditional":of$="NegCnditnl"
�M� negsubj% infile$="Neg_Sbjn":tense$="Neg.Pres.Subjunc.":of$="NegSubjunc"
��
	E� pres% infile$="Verbs_Pres":tense$="Present Tense":of$="Present"
	J� imperf% infile$="Verbs_Imp":tense$="Imperfect Tense":of$="Imperfect"
	E� perf% infile$="Verbs_Perf":tense$="Perfect Tense":of$="Perfect"
	$I� fprf% infile$="Verbs_Fprf":tense$="Fut.Perf.Tense":of$="FutPerfect"
	.K� plup% infile$="Verbs_Plup":tense$="Pluperfect Tense":of$="Pluperfect"
	8J� pcon% infile$="Verbs_Pcon":tense$="Cond.Perf Tense":of$="ConditPerf"
	BA� fut% infile$="Verbs_Fut":tense$="Future Tense":of$="Future"
	LE� con% infile$="Verbs_Cond":tense$="Conditional":of$="Conditionl"
	VK� subj% infile$="Verbs_Sbjn":tense$="Pres.Subjunctive":of$="Subjonctif"
	`�
	j,�1,15)"Just getting "+tense$+" data..."
	t� makefile% �
	~0�2:�1,18)"and making file in RAM (";of$;")"
	�#�:�6:�1,22)"Please wait ... ";
	��
	�
	�� myfile% �
	�/in%=�("<tense_test$dir>.My_Files."+infile$)
	��
	�1in%=�("<tense_test$dir>.TenseFiles."+infile$)
	��
	�data%=0:lft%=-1:rt%=0
	�
	�� makefile% �
	�out%=�("RAM:$."+of$)
.o$="On an A4 page, choose a font at 10pt."


�#out%,o$
Co$="Place TABs at 4cms / 9 cms / 13.5 cms  and import the text"

�#out%,o$
(Go$="You'll need to 'play' with the settings depending on the tense"
2�#out%,o$:�#out%,""
<No$="Format = FrVerb1 [TAB] Meaning1 [TAB] FrVerb2 [TAB] Meaning2 [RETURN]"
F�#out%,o$:�#out%,""
PEo1$="Alternatively, use a blank SpreadSheet page and adjust the "
Zo2$="column widths to fit."
d(�#out%,(o1$+o2$):�#out%,"":�#out%,""
n,�#out%,(">>> Print-out of the "+tense$);
x�
�got%=0:on%=0
�ȕ � �#in%
�data%+=1:in$=�#in%
�� �in$,3)="on " on%=-1
�� �in$,1)="*" �
�
got%=2
�Dinfin$(data%)=�in$,2):frverb$(data%)=�#in%:meaning$(data%)=�#in%
�  � makefile% �
�%    �#out%,"":�#out%,"":�#out%,""
�    l%=�(infin$(data%))
�=    � P=1 � l%:p$=�infin$(data%),P,1):�conv_to_ansi(p$):�
�    �#out%,"":�#out%,""
�    l%=�(frverb$(data%))
>    � P=1 � l%:p$=�frverb$(data%),P,1):�conv_to_ansi(p$):�
    �#out%,�(09);
    l%=�(meaning$(data%))
"?    � P=1 � l%:p$=�meaning$(data%),P,1):�conv_to_ansi(p$):�
,    �#out%,�(09);
6  �
@�
JJinfin$(data%)=infin$(data%-1):frverb$(data%)=in$:meaning$(data%)=�#in%
T  � makefile% �
^    got%+=2
h    l%=�(frverb$(data%))
r>    � P=1 � l%:p$=�frverb$(data%),P,1):�conv_to_ansi(p$):�
|    �#out%,�(09);
�    l%=�(meaning$(data%))
�?    � P=1 � l%:p$=�meaning$(data%),P,1):�conv_to_ansi(p$):�
�      � on% �
�0      �#out%,"":got%=0:on%=0:� �#out%,�(09);
�      �
�;      � got%/4=got% �4 got%=0:�#out%,"" � �#out%,�(09);
�      �
�  �
��
��
�� � makefile% w%=�(150)
��#in%:in%=0
�� makefile% �
1�#out%:out%=0:�("SETTYPE RAM:$."+of$+" &fff")
�"Filer_OpenDir RAM:$"
�
&�:numberofverbs%=data%
0�
:
D
��quit
N)�"FX11,15":�"FX202,0":�"FX18":�"FX20"
X*� IF NOT ram% THEN OSCLI"RamFSsize 0K"
b*DESKTOP
l�
v
���show_score
�/� Y>1 �2:�31,26)score%;"/";Y-1;" ";�128:�6
��
�
���choose_tense
�"�:�blue:myfile%=0:printtest%=0
��3
�)�2,1)"============================="
�)�2,2)"Choose your Tense / Verb-Form"
�)�2,3)"============================="
�3�9:�2,5)"Press  N  = for 'Negative' Verb Menu"
�*�7:�2,7)"Press  P  for Present Tense"
�,�6:�2,9)"Press  I  for Imperfect Tense"

+�7:�2,12)"Press  W  for Perfect Tense"

.�6:�2,13)"Press  X  for Pluperfect Tense"

2�7:�2,14)"Press  Y  for Future Perfect Tense"

 2�6:�2,15)"Press  Z  for Condit.Perfect Tense"

**�7:�2,18)"Press  F  for Future Tense"

4)�6:�2,19)"Press  C  for Conditional"

>1�7:�2,21)"Press  S  for Present Subjunctive"

H/�5:�2,23)"Press  M  to use a Made-Up file"

R6�2:�2,24)"Press  T  = make a TextFile of a Tense"

\4�3:�2,25)"Press  R  = make written TEST in RAM"

f%�1:�2,27)"Press  Q  to  Q U I T"

p!�3:�2,30)"c h o i c e  :  ";

zș"OS_Confirm" � ch%

�Ȏ ch% �

�� �"q":�:�quit

�� �"p":�:pres%=-1

�� �"i":�:imperf%=-1

�� �"w":�:perf%=-1

�� �"x":�:plup%=-1

�� �"y":�:fprf%=-1

�� �"z":�:pcon%=-1

�� �"f":�:fut%=-1

�� �"s":�:subj%=-1

�� �"c":�:con%=-1

�#� �"n":�:neg%=-1:�negative_menu

�� �"m":�:myfile%=-1
� �"t":�:�make_file:�quit
+� �"r":�:printtest%=-1:�make_test:�quit

$�choose_tense
.�
8�
B
L��make_file
V�:makefile%=-1:myfile%=0
`� neg% �
j5�3:�1,2)"Choose your Negative Tense / Verb-Form"
t�
~,�3:�1,2)"Choose your Tense / Verb-Form"
��
�3�2:�1,4)"The File will appear in RAM and have"
�3�1,5)"some hints on TAB settings as a header."
�+�7:�2,10)"Press  P  for Present Tense"
�-�6:�2,12)"Press  I  for Imperfect Tense"
�+�7:�2,14)"Press  W  for Perfect Tense"
�.�6:�2,15)"Press  X  for Pluperfect Tense"
�2�7:�2,16)"Press  Y  for Future Perfect Tense"
�2�6:�2,17)"Press  Z  for Condit.Perfect Tense"
�*�7:�2,19)"Press  F  for Future Tense"
�)�6:�2,20)"Press  C  for Conditional"
�1�7:�2,22)"Press  S  for Present Subjunctive"
� neg% �

%�2:�2,25)"Press  Q  to  Q U I T"
!�3:�2,28)"c h o i c e  :  ";
�
(,�5:�2,24)"Press  M  for a Made-Up file"
2%�2:�2,27)"Press  Q  to  Q U I T"
<!�3:�2,30)"c h o i c e  :  ";
F�
Pș"OS_Confirm" � ch%
Z� neg% �
d
 Ȏ ch% �
n  � �"p":�:negpres%=-1
x  � �"i":�:negimperf%=-1
�  � �"w":�:negperf%=-1
�  � �"x":�:negplup%=-1
�  � �"y":�:negfprf%=-1
�  � �"z":�:negpcon%=-1
�  � �"f":�:negfut%=-1
�  � �"s":�:negsubj%=-1
�  � �"c":�:negcon%=-1
�  � �"q":�:�quit
� 
�  �make_file
� �
��
�
 Ȏ ch% �
  � �"p":�:pres%=-1
  � �"i":�:imperf%=-1
  � �"w":�:perf%=-1
"  � �"x":�:plup%=-1
,  � �"y":�:fprf%=-1
6  � �"z":�:pcon%=-1
@  � �"f":�:fut%=-1
J  � �"s":�:subj%=-1
T  � �"c":�:con%=-1
^  � �"q":�:�quit
h  � �"m":�:myfile%=-1
r 
|  �make_file
��
��
�
�get_data
��
�
���conv_to_ansi(f$)
�,� f$=�(64)  �#out%,�(224);:� : � a grave
�+� f$=�(93)  �#out%,�(226);:� : � a circ
�*� f$=�(92)  �#out%,�(231);:� : � c ced
�+� f$=�(91)  �#out%,�(234);:� : � e circ
�,� f$=�(125) �#out%,�(232);:� : � e grave
�,� f$=�(123) �#out%,�(233);:� : � e acute
�+� f$=�(126) �#out%,�(238);:� : � i circ
+� f$=�(35)  �#out%,�(244);:� : � o circ
,� f$=�(124) �#out%,�(249);:� : � u grave
+� f$=�(36)  �#out%,�(251);:� : � u circ
&,� f$=�(94)  �#out%,�(235);:� : � e trema
0,� f$=�(96)  �#out%,�(239);:� : � i trema
:ch%=�f$:�#out%,�(ch%);
D�
N
X��choose_file(dir$)
b6�("ENUMDIR <tense_test$dir>."+dir$+" RAM:$.files")
lin%=�("RAM:$.files"):ct%=1
v&ȕ � �#in%:ST$(ct%)=�#in%:ct%+=1:�
�3�#in%:in%=0:�("DELETE RAM:$.files"):n%=(ct% �2)
�� ct%/2 <> ct% � 2 ct%+=n%
��'
�� Y=1 � ct% � 2
�)� ST$(Y)<>"" �3:�1)Y;:�6:�4)ST$(Y);
�0� ST$(Y+1)<>"" �3:�21)Y+1;:�6:�24)ST$(Y+1)
��
��
��:�1:�'�10)"0  =  Abort"
�$�3:�'�10)"File NUMBER = "no%:�:�
�� no%=0:�quit:�
�4of$=ST$(no%):infile$=ST$(no%):tense$=ST$(no%):�7
��

��which_tense
�:�mauve
 � neg% �
*5�2:�2,3)"The test will use NEGATIVE verb-forms."
4.�3:�2,5)"Choose the format for the test."
>�
H+�2,5)"Choose the format for the test."
R�
\(�7: �2,8)"  P  = use Present Tense"
f*�4:�2,10)"  I  = use Imperfect Tense"
p(�7:�2,12)"  W  = use Perfect Tense"
z+�4:�2,13)"  X  = use Pluperfect Tense"
�/�7:�2,14)"  Y  = use Future Perfect Tense"
�/�4:�2,15)"  Z  = use Condit.Perfect Tense"
�'�7:�2,17)"  F  = use Future Tense"
�&�4:�2,18)"  C  = use Conditional"
�-�7:�2,20)"  S  = use Preset Subjunctive"
�� neg% �
�%�1:�2,23)"Press  Q  to  Q U I T"
�!�3:�2,27)"c h o i c e  :  ";
��
�)�4:�2,21)"  M  = use a Made-Up File"
�%�1:�2,24)"Press  Q  to  Q U I T"
�!�3:�2,28)"c h o i c e  :  ";
��
ș"OS_Confirm" � ch%:�
� neg% �

 Ȏ ch% �
$  � �"p":�:negpres%=-1
.  � �"i":�:negimperf%=-1
8  � �"w":�:negperf%=-1
B  � �"x":�:negplup%=-1
L  � �"y":�:negfprf%=-1
V  � �"z":�:negpcon%=-1
`  � �"f":�:negfut%=-1
j  � �"s":�:negsubj%=-1
t  � �"c":�:negcon%=-1
~  � �"n":�:�negative_menu
�  � �"q":�:�quit
� 
�  �which_tense
� �
��
�
 Ȏ ch% �
�  � �"p":�:pres%=-1
�  � �"i":�:imperf%=-1
�  � �"w":�:perf%=-1
�  � �"x":�:plup%=-1
�  � �"y":�:fprf%=-1
�  � �"z":�:pcon%=-1
  � �"f":�:fut%=-1

  � �"s":�:subj%=-1
  � �"c":�:con%=-1
  � �"n":�:�negative_menu
(  � �"q":�:�quit
2  � �"m":�:myfile%=-1
< 
F  �which_tense
P�
Z�
d�
n
x��which_test_type
��:trans%=0:�:�blue:�7
�1�1,8)"You can set a 'translation' type test"
�5�3:�2,11)"eg Use 'ALLER' to say 'they went (m)'"
�-�7:�1,15)"or a straight verb question :"
�#�2:�2,18)"eg 'je (ALLER) = ?'"
�0�6:�1,24)"Translation-type -  Y or N  :  ";
�ș"OS_Confirm" � ch%:�:�
�Ȏ ch% �
�� �"y":trans%=-1
��
��
�
���make_test
� s$,c$,l%
�which_tense

""� subj% � negsubj% � myfile% �
,� subj% � negsubj% trans%=0
6� myfile% trans%=-1
@�
J�which_test_type
T�
^
h
�get_data
r%� data%<10 number%=data% � �h_m_q
|�variables
�out%=�("RAM:$.Test")
�2�:�:�3:�2,15)"Now creating the test in RAM ";
�(� � subj% � � myfile% � � negsubj% �
�.�#out%,("  This is a test on the "+tense$)
��
�I� subj% � negsubj% �#out%,("  This is a test on the "+tense$+" Mood")
�B� myfile% �#out%,("  This is a test on the '"+tense$+"' File")
��#out%,"":�#out%,""
�� Y=1 � number%
�� trans% �
�  � Y<10 �
�B     q$=("   "+�(Y)+". Use '"+inf$(Y)+"' to say >> "+engM$(Y))
�	    �
A     q$=("  "+�(Y)+". Use '"+inf$(Y)+"' to say >> "+engM$(Y))
  �

�#out%,q$
&&� : � ie if NOT a translation test
0
:   � subj% � negsubj% �
D     subject$=�frQ$(Y),5)
N)     � �subject$,"je")<>0 s$="que je"
X)     � �subject$,"j'")<>0 s$="que j'"
b)     � �subject$,"tu")<>0 s$="que tu"
l     � �subject$,"il")<>0 �
v6     � �subject$,3)="il " s$="qu'il" � s$="qu'ils"
�
     �
�!     � �subject$,"elle")<>0 �
�8     � subject$="elle " s$="qu'elle" � s$="qu'elles"
�
     �
�(     � �subject$,"on")<>0 s$="qu'on"
�-     � �subject$,"nous")<>0 s$="que nous"
�-     � �subject$,"vous")<>0 s$="que vous"
�   �
�     subject$=�frQ$(Y),5)
�%     � �subject$,"je")<>0 s$="je"
�%     � �subject$,"j'")<>0 s$="j'"
�%     � �subject$,"tu")<>0 s$="tu"
�     � �subject$,"il")<>0 �
0     � �subject$,3)="il " s$="il" � s$="ils"

     �
!     � �subject$,"elle")<>0 �
 2     � subject$="elle " s$="elle" � s$="elles"
*
     �
4%     � �subject$,"on")<>0 s$="on"
>)     � �subject$,"nous")<>0 s$="nous"
H)     � �subject$,"vous")<>0 s$="vous"
R   �
\
f  � Y<10 �
p5    q$=("   "+�(Y)+". "+s$+" ("+inf$(Y)+")  =  ")
z	    �
�4    q$=("  "+�(Y)+". "+s$+" ("+inf$(Y)+")  =  ")
�  �
�
�#out%,q$
��
��
�5�#out%,"":�#out%,"":�#out%,"":�#out%,"":�#out%,""
�
�J� ----- The following IF lines ensure a new page for the answers on A4
�8� ----- if the number of questions between 26 and 50
�
�� number%>25 � number%<51 �
�pagefill%=((50-number%)+9)
�!� Y=1 � pagefill%:�#out%,"":�
�

"�#out%,"  Answers :":�#out%,""
$vowel$="aeiou"
.� Y=1 � number%
8� subj% � negsubj% �
Bv$=�frQ$(Y),1)
LE�vowel$,v$)<>0frQ$(Y)=("qu'"+frQ$(Y)) � frQ$(Y)=("que "+frQ$(Y))
V�
`l%=�(frQ$(Y)):n$=""
j � L=1 � l%
t f$=�frQ$(Y),L,1)
~ � f$=�(64)  f$=�(224)
� � f$=�(93)  f$=�(226)
� � f$=�(92)  f$=�(231)
� � f$=�(91)  f$=�(234)
� � f$=�(125) f$=�(232)
� � f$=�(123) f$=�(233)
� � f$=�(126) f$=�(238)
� � f$=�(35)  f$=�(244)
� � f$=�(124) f$=�(249)
� � f$=�(36)  f$=�(251)
� � f$=�(94)  f$=�(235)
� � f$=�(96)  f$=�(239)
� n$+=f$
 � L

� Y<10 �
�#out%,("   "+�(Y)+". "+n$)
�
(�#out%,("  "+�(Y)+". "+n$)
2�
<�
F�#out%,"":�#out%,""
PG�#out%,"  VerbTest Program � graham campbell - May 1995 - FreeWare"
Z�#out%:out%=0
d
w%=�(150)
n5�"SETTYPE RAM:$.Test &fff":�"Filer_OpenDir RAM:$"
x�
�
���negative_menu
�#�:�:�red:myfile%=0:printtest%=0
��3
�*�2,1)"=============================="
�*�2,2)"Choose your Negative Verb Form"
�*�2,3)"=============================="
�*�7:�2,6)"Press  P  for Present Tense"
�,�6:�2,8)"Press  I  for Imperfect Tense"
�+�7:�2,11)"Press  W  for Perfect Tense"
�.�6:�2,12)"Press  X  for Pluperfect Tense"
�2�7:�2,13)"Press  Y  for Future Perfect Tense"
�2�6:�2,14)"Press  Z  for Condit.Perfect Tense"
*�7:�2,17)"Press  F  for Future Tense"
)�6:�2,18)"Press  C  for Conditional"
1�7:�2,20)"Press  S  for Present Subjunctive"
"6�2:�2,23)"Press  T  = make a TextFile of a Tense"
,4�3:�2,24)"Press  R  = make written TEST in RAM"
6%�4:�2,26)"Press  Q  to  Q U I T"
@!�3:�2,29)"c h o i c e  :  ";
Jș"OS_Confirm" � ch%:�
TȎ ch% �
^� �"q":�:�quit
h� �"p":�:negpres%=-1
r� �"i":�:negimperf%=-1
|� �"w":�:negperf%=-1
�� �"x":�:negplup%=-1
�� �"y":�:negfprf%=-1
�� �"z":�:negpcon%=-1
�� �"f":�:negfut%=-1
�� �"s":�:negsubj%=-1
�� �"c":�:negcon%=-1
�%� �"t":�:ram%=-1:�make_file:�quit
�3� �"r":�:printtest%=-1:ram%=-1:�make_test:�quit
�
��negative_menu
��
��
�

00000000  0d 00 0a 10 f4 3e 54 65  6e 73 65 5f 54 65 73 74  |.....>Tense_Test|
00000010  0d 00 14 04 0d 00 1e 2a  f4 20 46 52 45 45 57 41  |.......*. FREEWA|
00000020  52 45 20 62 79 20 47 72  61 68 61 6d 20 43 61 6d  |RE by Graham Cam|
00000030  70 62 65 6c 6c 20 20 31  33 2e 76 2e 39 35 0d 00  |pbell  13.v.95..|
00000040  28 2d f4 20 33 30 20 4f  6c 64 20 57 61 79 20 2f  |(-. 30 Old Way /|
00000050  20 48 61 74 68 65 72 6e  20 2f 20 4c 65 69 63 73  | Hathern / Leics|
00000060  20 2f 20 4c 45 31 32 20  35 48 4e 0d 00 32 04 0d  | / LE12 5HN..2..|
00000070  00 3c 49 f4 20 54 6f 20  74 65 73 74 20 46 72 65  |.<I. To test Fre|
00000080  6e 63 68 20 56 65 72 62  73 20 69 6e 20 50 72 65  |nch Verbs in Pre|
00000090  73 2f 50 65 72 66 2f 49  6d 70 65 72 66 2f 46 75  |s/Perf/Imperf/Fu|
000000a0  74 75 72 65 2f 50 72 65  73 20 53 75 62 6a 75 6e  |ture/Pres Subjun|
000000b0  63 2f 54 65 6e 73 65 73  0d 00 46 31 f4 20 6e 65  |c/Tenses..F1. ne|
000000c0  67 61 74 69 76 65 20 74  65 73 74 20 66 69 6c 65  |gative test file|
000000d0  73 20 61 64 64 65 64 20  2d 20 68 6f 70 65 20 61  |s added - hope a|
000000e0  6c 6c 20 69 73 20 4f 4b  21 0d 00 50 04 0d 00 5a  |ll is OK!..P...Z|
000000f0  07 eb 31 32 0d 00 64 11  ee 20 85 20 eb 30 3a f2  |..12..d.. . .0:.|
00000100  65 72 72 6f 72 0d 00 6e  15 f2 73 65 74 5f 75 70  |error..n..set_up|
00000110  3a f2 6c 61 6d 61 74 69  6f 6e 0d 00 78 06 eb 39  |:.lamation..x..9|
00000120  0d 00 82 39 f2 63 68 6f  6f 73 65 5f 74 65 6e 73  |...9.choose_tens|
00000130  65 3a f2 66 72 5f 63 68  61 72 73 3a f2 67 65 74  |e:.fr_chars:.get|
00000140  5f 64 61 74 61 3a f2 68  5f 6d 5f 71 3a f2 74 65  |_data:.h_m_q:.te|
00000150  73 74 3a f2 73 63 6f 72  65 0d 00 8c 09 f2 71 75  |st:.score.....qu|
00000160  69 74 0d 00 96 05 e0 0d  00 a0 04 0d 00 aa 1b dd  |it..............|
00000170  f2 6d 61 75 76 65 3a ef  31 39 2c 30 2c 35 2c 30  |.mauve:.19,0,5,0|
00000180  2c 30 2c 30 3a e1 0d 00  b4 1a dd f2 62 6c 75 65  |,0,0:.......blue|
00000190  3a ef 31 39 2c 30 2c 34  2c 30 2c 30 2c 30 3a e1  |:.19,0,4,0,0,0:.|
000001a0  0d 00 be 19 dd f2 72 65  64 3a ef 31 39 2c 30 2c  |......red:.19,0,|
000001b0  31 2c 30 2c 30 2c 30 3a  e1 0d 00 c8 04 0d 00 d2  |1,0,0,0:........|
000001c0  0c dd f2 73 65 74 5f 75  70 0d 00 dc 17 76 65 72  |...set_up....ver|
000001d0  73 69 6f 6e 24 3d 22 76  2e 31 33 30 35 39 35 22  |sion$="v.130595"|
000001e0  0d 00 e6 3b 87 3a 73 63  6f 72 65 25 3d 30 3a 40  |...;.:score%=0:@|
000001f0  25 3d 26 30 3a 69 6e 25  3d 30 3a 6f 75 74 25 3d  |%=&0:in%=0:out%=|
00000200  30 3a 6d 61 6b 65 66 69  6c 65 25 3d 30 3a 6e 65  |0:makefile%=0:ne|
00000210  67 25 3d 30 3a 72 61 6d  25 3d 30 0d 00 f0 3b 6e  |g%=0:ram%=0...;n|
00000220  65 67 70 72 65 73 25 3d  30 3a 6e 65 67 69 6d 70  |egpres%=0:negimp|
00000230  65 72 66 25 3d 30 3a 6e  65 67 70 65 72 66 25 3d  |erf%=0:negperf%=|
00000240  30 3a 6e 65 67 66 75 74  25 3d 30 3a 6e 65 67 73  |0:negfut%=0:negs|
00000250  75 62 6a 25 3d 30 0d 00  fa 2e 6e 65 67 63 6f 6e  |ubj%=0....negcon|
00000260  25 3d 30 3a 6e 65 67 70  6c 75 70 25 3d 30 3a 6e  |%=0:negplup%=0:n|
00000270  65 67 70 63 6f 6e 25 3d  30 3a 6e 65 67 66 70 72  |egpcon%=0:negfpr|
00000280  66 25 3d 30 0d 01 04 4b  70 72 65 73 25 3d 30 3a  |f%=0...Kpres%=0:|
00000290  69 6d 70 65 72 66 25 3d  30 3a 70 65 72 66 25 3d  |imperf%=0:perf%=|
000002a0  30 3a 66 75 74 25 3d 30  3a 73 75 62 6a 25 3d 30  |0:fut%=0:subj%=0|
000002b0  3a 63 6f 6e 25 3d 30 3a  70 6c 75 70 25 3d 30 3a  |:con%=0:plup%=0:|
000002c0  70 63 6f 6e 25 3d 30 3a  66 70 72 66 25 3d 30 0d  |pcon%=0:fprf%=0.|
000002d0  01 0e 37 de 20 69 6e 66  69 6e 24 28 34 35 30 29  |..7. infin$(450)|
000002e0  2c 66 72 76 65 72 62 24  28 34 35 30 29 2c 6d 65  |,frverb$(450),me|
000002f0  61 6e 69 6e 67 24 28 34  35 30 29 2c 69 6e 73 75  |aning$(450),insu|
00000300  6c 74 24 28 35 29 0d 01  18 30 de 20 72 61 6e 64  |lt$(5)...0. rand|
00000310  6f 6d 28 34 35 30 29 2c  69 6e 66 24 28 34 35 30  |om(450),inf$(450|
00000320  29 2c 66 72 51 24 28 34  35 30 29 2c 65 6e 67 4d  |),frQ$(450),engM|
00000330  24 28 34 35 30 29 0d 01  22 41 69 6e 73 75 6c 74  |$(450).."Ainsult|
00000340  24 28 31 29 3d 22 64 69  6d 62 6f 22 3a 69 6e 73  |$(1)="dimbo":ins|
00000350  75 6c 74 24 28 32 29 3d  22 6c 61 7a 79 2d 62 6f  |ult$(2)="lazy-bo|
00000360  6e 65 73 22 3a 69 6e 73  75 6c 74 24 28 33 29 3d  |nes":insult$(3)=|
00000370  22 6d 6f 72 6f 6e 22 0d  01 2c 33 69 6e 73 75 6c  |"moron"..,3insul|
00000380  74 24 28 34 29 3d 22 67  6f 6f 64 2d 66 6f 72 2d  |t$(4)="good-for-|
00000390  6e 6f 74 68 69 6e 67 22  3a 69 6e 73 75 6c 74 24  |nothing":insult$|
000003a0  28 35 29 3d 22 6e 65 72  64 22 0d 01 36 1a 49 25  |(5)="nerd"..6.I%|
000003b0  3d b3 28 35 29 3a 69 24  3d 69 6e 73 75 6c 74 24  |=.(5):i$=insult$|
000003c0  28 49 25 29 0d 01 40 32  6f 75 69 24 3d 22 4f 55  |(I%)..@2oui$="OU|
000003d0  49 20 6f 75 69 20 4f 55  49 20 6f 75 69 20 4f 55  |I oui OUI oui OU|
*
000003f0  49 20 6f 75 69 22 0d 01  4a 05 e1 0d 01 54 04 0d  |I oui"..J....T..|
00000400  01 5e 0e dd f2 6c 61 6d  61 74 69 6f 6e 0d 01 68  |.^...lamation..h|
00000410  2c ff 22 46 58 31 31 2c  30 22 3a 73 74 61 72 24  |,."FX11,0":star$|
00000420  3d c4 35 38 2c 22 2a 22  29 3a 87 3a f2 62 6c 75  |=.58,"*"):.:.blu|
00000430  65 3a f2 74 69 74 6c 65  30 0d 01 72 3e 61 6e 6e  |e:.title0..r>ann|
00000440  31 24 3d 22 54 68 69 73  20 70 72 6f 67 72 61 6d  |1$="This program|
00000450  20 77 69 6c 6c 20 74 65  73 74 20 79 6f 75 20 6f  | will test you o|
00000460  6e 20 79 6f 75 72 20 72  65 71 75 65 73 74 65 64  |n your requested|
00000470  20 74 65 6e 73 65 22 0d  01 7c 3e 61 6e 6e 32 24  | tense"..|>ann2$|
00000480  3d 22 50 6c 61 63 65 20  6d 79 20 61 63 63 65 6e  |="Place my accen|
00000490  74 20 66 75 6e 63 74 69  6f 6e 20 6b 65 79 2d 73  |t function key-s|
000004a0  74 72 69 70 20 6f 76 65  72 20 74 68 65 20 66 2d  |trip over the f-|
000004b0  6b 65 79 73 22 0d 01 86  38 61 6e 6e 33 24 3d 22  |keys"...8ann3$="|
000004c0  73 6f 20 74 68 61 74 20  79 6f 75 20 63 61 6e 20  |so that you can |
000004d0  74 79 70 65 20 69 6e 20  74 68 65 20 61 63 63 65  |type in the acce|
000004e0  6e 74 73 20 70 72 6f 70  65 72 6c 79 22 0d 01 90  |nts properly"...|
000004f0  3c 61 6e 6e 34 24 3d 22  54 68 65 20 70 72 6f 67  |<ann4$="The prog|
00000500  72 61 6d 20 68 61 73 20  6d 65 6e 75 73 20 77 68  |ram has menus wh|
00000510  69 63 68 20 61 72 65 20  73 65 6c 66 2d 65 78 70  |ich are self-exp|
00000520  6c 61 6e 61 74 6f 72 79  22 0d 01 9a 3b 61 6e 6e  |lanatory"...;ann|
00000530  35 24 3d 22 59 6f 75 27  6c 6c 20 67 65 74 20 61  |5$="You'll get a|
00000540  20 72 75 6e 6e 69 6e 67  20 73 63 6f 72 65 20 61  | running score a|
00000550  6e 64 20 79 6f 75 72 20  66 69 6e 61 6c 20 73 63  |nd your final sc|
00000560  6f 72 65 22 0d 01 a4 41  61 6e 6e 36 24 3d 22 50  |ore"...Aann6$="P|
00000570  72 65 73 73 20 20 3c 3c  20 41 20 4e 20 59 20 20  |ress  << A N Y  |
00000580  20 4b 20 45 20 59 20 3e  3e 20 77 68 65 6e 20 79  | K E Y >> when y|
00000590  6f 75 27 72 65 20 72 65  61 64 79 20 74 6f 20 73  |ou're ready to s|
000005a0  74 61 72 74 22 0d 01 ae  29 63 6f 70 79 72 69 67  |tart"...)copyrig|
000005b0  68 74 24 3d 22 a9 20 67  72 61 68 61 6d 20 63 61  |ht$=". graham ca|
000005c0  6d 70 62 65 6c 6c 20 2d  20 76 2e 39 35 22 0d 01  |mpbell - v.95"..|
000005d0  b8 15 f2 74 61 62 30 28  37 2c 61 6e 6e 31 24 2c  |...tab0(7,ann1$,|
000005e0  22 22 29 0d 01 c2 12 fb  36 3a f1 27 8a 31 30 29  |"").....6:.'.10)|
000005f0  73 74 61 72 24 0d 01 cc  19 fb 39 3a f2 74 61 62  |star$.....9:.tab|
00000600  30 28 31 32 2c 61 6e 6e  32 24 2c 22 22 29 0d 01  |0(12,ann2$,"")..|
00000610  d6 16 f2 74 61 62 30 28  31 33 2c 61 6e 6e 33 24  |...tab0(13,ann3$|
00000620  2c 22 22 29 0d 01 e0 11  fb 36 3a f1 8a 31 30 29  |,"").....6:..10)|
00000630  73 74 61 72 24 0d 01 ea  19 fb 37 3a f2 74 61 62  |star$.....7:.tab|
00000640  30 28 31 38 2c 61 6e 6e  34 24 2c 22 22 29 0d 01  |0(18,ann4$,"")..|
00000650  f4 19 fb 36 3a f2 74 61  62 30 28 32 30 2c 61 6e  |...6:.tab0(20,an|
00000660  6e 35 24 2c 22 22 29 0d  01 fe 16 f2 74 61 62 30  |n5$,"").....tab0|
00000670  28 32 35 2c 61 6e 6e 36  24 2c 22 22 29 0d 02 08  |(25,ann6$,"")...|
00000680  0f f2 63 6f 70 79 72 69  67 68 74 30 0d 02 12 09  |..copyright0....|
00000690  6b 3d a5 3a db 0d 02 1c  05 e1 0d 02 26 04 0d 02  |k=.:........&...|
000006a0  30 25 dd f2 63 6f 70 79  72 69 67 68 74 30 3a f1  |0%..copyright0:.|
000006b0  8a 32 36 2c 33 30 29 63  6f 70 79 72 69 67 68 74  |.26,30)copyright|
000006c0  24 3a e1 0d 02 3a 24 dd  f2 63 6f 70 79 72 69 67  |$:...:$..copyrig|
000006d0  68 74 31 3a f1 8a 37 2c  32 39 29 63 6f 70 79 72  |ht1:..7,29)copyr|
000006e0  69 67 68 74 24 3a e1 0d  02 44 04 0d 02 4e 0e dd  |ight$:...D...N..|
000006f0  f2 66 72 5f 63 68 61 72  73 0d 02 58 2f ef 32 33  |.fr_chars..X/.23|
00000700  2c 36 34 2c 39 36 2c 32  34 2c 31 32 34 2c 34 2c  |,64,96,24,124,4,|
00000710  31 32 34 2c 36 38 2c 31  32 34 2c 30 3a f4 20 40  |124,68,124,0:. @|
00000720  3d 61 20 67 72 61 76 65  0d 02 62 25 ef 32 33 2c  |=a grave..b%.23,|
00000730  39 37 2c 30 2c 30 2c 31  32 34 2c 34 2c 31 32 34  |97,0,0,124,4,124|
00000740  2c 36 38 2c 31 32 34 2c  30 3a f4 20 61 0d 02 6c  |,68,124,0:. a..l|
00000750  2e ef 32 33 2c 39 33 2c  31 36 2c 34 30 2c 31 32  |..23,93,16,40,12|
00000760  34 2c 34 2c 31 32 34 2c  36 38 2c 31 32 34 2c 30  |4,4,124,68,124,0|
00000770  3a f4 20 5d 3d 61 20 63  69 72 63 0d 02 76 30 ef  |:. ]=a circ..v0.|
00000780  32 33 2c 39 32 2c 30 2c  30 2c 31 32 36 2c 39 36  |23,92,0,0,126,96|
00000790  2c 39 36 2c 31 32 36 2c  32 32 34 2c 30 3a f4 20  |,96,126,224,0:. |
000007a0  5c 3d 63 20 63 65 64 69  6c 6c 61 0d 02 80 31 ef  |\=c cedilla...1.|
000007b0  32 33 2c 31 32 33 2c 31  32 2c 34 38 2c 31 32 34  |23,123,12,48,124|
000007c0  2c 36 38 2c 31 32 34 2c  36 34 2c 31 32 34 2c 30  |,68,124,64,124,0|
000007d0  3a f4 20 7b 3d 65 20 61  63 75 74 65 0d 02 8a 31  |:. {=e acute...1|
000007e0  ef 32 33 2c 31 32 35 2c  39 36 2c 32 34 2c 31 32  |.23,125,96,24,12|
000007f0  34 2c 36 38 2c 31 32 34  2c 36 34 2c 31 32 34 2c  |4,68,124,64,124,|
00000800  30 3a f4 20 7d 3d 65 20  67 72 61 76 65 0d 02 94  |0:. }=e grave...|
00000810  2f ef 32 33 2c 39 31 2c  31 36 2c 34 30 2c 31 32  |/.23,91,16,40,12|
00000820  34 2c 36 38 2c 31 32 34  2c 36 34 2c 31 32 34 2c  |4,68,124,64,124,|
00000830  30 3a f4 20 5b 3d 65 20  63 69 72 63 0d 02 9e 27  |0:. [=e circ...'|
00000840  ef 32 33 2c 31 30 31 2c  30 2c 30 2c 31 32 34 2c  |.23,101,0,0,124,|
00000850  36 38 2c 31 32 34 2c 36  34 2c 31 32 34 2c 30 3a  |68,124,64,124,0:|
00000860  f4 20 65 0d 02 a8 2d ef  32 33 2c 31 32 36 2c 31  |. e...-.23,126,1|
00000870  36 2c 34 30 2c 36 38 2c  35 36 2c 35 36 2c 35 36  |6,40,68,56,56,56|
00000880  2c 35 36 2c 30 3a f4 20  7e 3d 69 20 63 69 72 63  |,56,0:. ~=i circ|
00000890  0d 02 b2 2d ef 32 33 2c  33 35 2c 31 36 2c 34 30  |...-.23,35,16,40|
000008a0  2c 30 2c 31 32 34 2c 36  38 2c 36 38 2c 31 32 34  |,0,124,68,68,124|
000008b0  2c 30 3a f4 20 23 3d 6f  20 63 69 72 63 0d 02 bc  |,0:. #=o circ...|
000008c0  2d ef 32 33 2c 34 32 2c  34 38 2c 32 34 2c 36 38  |-.23,42,48,24,68|
000008d0  2c 36 38 2c 36 38 2c 36  38 2c 36 30 2c 30 3a f4  |,68,68,68,60,0:.|
000008e0  20 2a 3d 75 20 67 72 61  76 65 0d 02 c6 2d ef 32  | *=u grave...-.2|
000008f0  33 2c 33 36 2c 31 36 2c  34 30 2c 30 2c 37 30 2c  |3,36,16,40,0,70,|
00000900  37 30 2c 37 30 2c 31 32  36 2c 30 2c 3a f4 20 24  |70,70,126,0,:. $|
00000910  3d 75 20 63 69 72 63 0d  02 d0 30 ef 32 33 2c 39  |=u circ...0.23,9|
00000920  34 2c 31 30 38 2c 30 2c  31 32 34 2c 36 38 2c 31  |4,108,0,124,68,1|
00000930  32 34 2c 36 34 2c 31 32  34 2c 30 3a f4 20 5e 3d  |24,64,124,0:. ^=|
00000940  65 20 74 72 65 6d 61 0d  02 da 35 ff 22 4b 45 59  |e trema...5."KEY|
00000950  31 20 40 22 3a ff 22 4b  45 59 32 20 5d 22 3a ff  |1 @":."KEY2 ]":.|
00000960  22 4b 45 59 33 20 5c 22  3a ff 22 4b 45 59 34 20  |"KEY3 \":."KEY4 |
00000970  7b 22 3a ff 22 4b 45 59  35 20 7d 22 0d 02 e4 36  |{":."KEY5 }"...6|
00000980  ff 22 4b 45 59 36 20 5b  22 3a ff 22 4b 45 59 37  |."KEY6 [":."KEY7|
00000990  20 23 22 3a ff 22 4b 45  59 38 20 2a 22 3a ff 22  | #":."KEY8 *":."|
000009a0  4b 45 59 39 20 24 22 3a  ff 22 4b 45 59 31 30 20  |KEY9 $":."KEY10 |
000009b0  5e 22 0d 02 ee 0e ff 22  4b 45 59 31 31 20 7e 22  |^"....."KEY11 ~"|
000009c0  0d 02 f8 05 e1 0d 03 02  04 0d 03 0c 0b dd f2 68  |...............h|
000009d0  5f 6d 5f 71 0d 03 16 0d  ee 3a f2 74 69 74 6c 65  |_m_q.....:.title|
000009e0  31 0d 03 20 2f f1 8a 32  2c 31 33 29 22 54 68 65  |1.. /..2,13)"The|
000009f0  72 65 20 61 72 65 20 22  3b 3a fb 33 3a f1 6e 75  |re are ";:.3:.nu|
00000a00  6d 62 65 72 6f 66 76 65  72 62 73 25 3b 3a fb 36  |mberofverbs%;:.6|
00000a10  0d 03 2a 1d f1 22 20 76  65 72 62 2d 66 6f 72 6d  |..*.." verb-form|
00000a20  73 20 69 6e 20 6d 65 6d  6f 72 79 2e 22 0d 03 34  |s in memory."..4|
00000a30  12 e7 20 70 72 69 6e 74  74 65 73 74 25 20 8c 0d  |.. printtest% ..|
00000a40  03 3e 21 f1 8a 32 2c 31  38 29 22 48 6f 77 20 6d  |.>!..2,18)"How m|
00000a50  61 6e 79 20 71 75 65 73  74 69 6f 6e 73 20 22 3b  |any questions ";|
00000a60  0d 03 48 2b e8 8a 32 2c  32 30 29 22 66 6f 72 20  |..H+..2,20)"for |
00000a70  74 68 65 20 74 65 73 74  5f 66 69 6c 65 3f 20 20  |the test_file?  |
00000a80  3a 20 20 22 6e 75 6d 62  65 72 25 0d 03 52 05 cc  |:  "number%..R..|
00000a90  0d 03 5c 21 f1 8a 32 2c  31 38 29 22 48 6f 77 20  |..\!..2,18)"How |
00000aa0  6d 61 6e 79 20 71 75 65  73 74 69 6f 6e 73 20 22  |many questions "|
00000ab0  3b 0d 03 66 2d e8 8a 32  2c 32 30 29 22 73 68 61  |;..f-..2,20)"sha|
00000ac0  6c 6c 20 49 20 66 69 72  65 20 61 74 20 79 6f 75  |ll I fire at you|
00000ad0  3f 20 20 3a 20 20 22 6e  75 6d 62 65 72 25 0d 03  |?  :  "number%..|
00000ae0  70 05 cd 0d 03 7a 18 e7  20 6e 75 6d 62 65 72 25  |p....z.. number%|
00000af0  3d 30 20 db 3a f2 68 5f  6d 5f 71 0d 03 84 1e e7  |=0 .:.h_m_q.....|
00000b00  20 6e 75 6d 62 65 72 25  3e 6e 75 6d 62 65 72 6f  | number%>numbero|
00000b10  66 76 65 72 62 73 25 20  8c 0d 03 8e 0e ef 37 2c  |fverbs% ......7,|
00000b20  31 32 3a f2 72 65 64 0d  03 98 13 ff 22 46 58 31  |12:.red....."FX1|
00000b30  38 22 3a ff 22 46 58 32  30 22 0d 03 a2 2c f1 8a  |8":."FX20"...,..|
00000b40  32 2c 31 35 29 22 49 20  63 61 6e 27 74 20 61 73  |2,15)"I can't as|
00000b50  6b 20 79 6f 75 20 6d 6f  72 65 20 71 75 65 73 74  |k you more quest|
00000b60  69 6f 6e 73 20 22 0d 03  ac 22 f1 8a 32 2c 31 37  |ions "..."..2,17|
00000b70  29 22 74 68 61 6e 20 74  68 65 72 65 20 61 72 65  |)"than there are|
00000b80  20 76 65 72 62 73 2e 22  0d 03 b6 25 f1 8a 32 2c  | verbs."...%..2,|
00000b90  32 30 29 22 48 61 6e 67  20 6f 6e 20 61 20 6d 6f  |20)"Hang on a mo|
00000ba0  6d 65 6e 74 20 2e 20 2e  20 2e 20 22 3b 0d 03 c0  |ment . . . ";...|
00000bb0  14 77 61 69 74 25 3d a6  28 32 30 30 29 3a db 3a  |.wait%=.(200):.:|
00000bc0  f9 0d 03 ca 05 cd 0d 03  d4 14 e7 20 ac 20 70 72  |........... . pr|
00000bd0  69 6e 74 74 65 73 74 25  20 8c 0d 03 de 0f 87 3a  |inttest% ......:|
00000be0  db 3a f2 72 65 64 3a fb  37 0d 03 e8 3b f1 8a 32  |.:.red:.7...;..2|
00000bf0  2c 31 35 29 22 4a 75 73  74 20 73 65 6c 65 63 74  |,15)"Just select|
00000c00  69 6e 67 20 74 68 65 20  72 61 6e 64 6f 6d 20 71  |ing the random q|
00000c10  75 65 73 74 69 6f 6e 73  22 3a f2 76 61 72 69 61  |uestions":.varia|
00000c20  62 6c 65 73 0d 03 f2 14  77 61 69 74 25 3d a6 28  |bles....wait%=.(|
00000c30  32 30 30 29 3a db 3a ee  0d 03 fc 05 cd 0d 04 06  |200):.:.........|
00000c40  05 e1 0d 04 10 04 0d 04  1a 0f dd f2 76 61 72 69  |............vari|
00000c50  61 62 6c 65 73 0d 04 24  13 e3 20 59 3d 31 20 b8  |ables..$.. Y=1 .|
00000c60  20 6e 75 6d 62 65 72 25  0d 04 2e 05 f5 0d 04 38  | number%.......8|
00000c70  1a 72 61 6e 64 3d b3 28  6e 75 6d 62 65 72 6f 66  |.rand=.(numberof|
00000c80  76 65 72 62 73 25 29 0d  04 42 1c fd 20 c0 66 72  |verbs%)..B.. .fr|
00000c90  76 65 72 62 24 28 72 61  6e 64 29 2c 31 29 3c 3e  |verb$(rand),1)<>|
00000ca0  22 2a 22 0d 04 4c 46 66  72 51 24 28 59 29 3d 66  |"*"..LFfrQ$(Y)=f|
00000cb0  72 76 65 72 62 24 28 72  61 6e 64 29 3a 65 6e 67  |rverb$(rand):eng|
00000cc0  4d 24 28 59 29 3d 6d 65  61 6e 69 6e 67 24 28 72  |M$(Y)=meaning$(r|
00000cd0  61 6e 64 29 3a 69 6e 66  24 28 59 29 3d 69 6e 66  |and):inf$(Y)=inf|
00000ce0  69 6e 24 28 72 61 6e 64  29 0d 04 56 25 66 72 76  |in$(rand)..V%frv|
00000cf0  65 72 62 24 28 72 61 6e  64 29 3d 28 22 2a 22 2b  |erb$(rand)=("*"+|
00000d00  66 72 76 65 72 62 24 28  72 61 6e 64 29 29 0d 04  |frverb$(rand))..|
00000d10  60 05 ed 0d 04 6a 05 e1  0d 04 74 04 0d 04 7e 0c  |`....j....t...~.|
00000d20  dd f2 74 69 74 6c 65 30  0d 04 88 4a 74 31 24 3d  |..title0...Jt1$=|
00000d30  28 22 4d 75 6c 74 69 2d  54 65 6e 73 65 20 46 72  |("Multi-Tense Fr|
00000d40  65 6e 63 68 20 56 65 72  62 20 74 72 61 69 6e 65  |ench Verb traine|
00000d50  72 20 62 79 20 67 72 61  68 61 6d 20 63 61 6d 70  |r by graham camp|
00000d60  62 65 6c 6c 20 2d 20 22  2b 76 65 72 73 69 6f 6e  |bell - "+version|
00000d70  24 29 0d 04 92 13 75 74  31 24 3d c4 a9 74 31 24  |$)....ut1$=..t1$|
00000d80  2c 22 3d 22 29 0d 04 9c  20 fb 31 3a f1 8a 31 30  |,"=")... .1:..10|
00000d90  2c 31 29 75 74 31 24 3a  fb 37 3a f1 8a 31 30 2c  |,1)ut1$:.7:..10,|
00000da0  32 29 74 31 24 0d 04 a6  15 fb 31 3a f1 8a 31 30  |2)t1$.....1:..10|
00000db0  2c 33 29 75 74 31 24 3a  fb 37 0d 04 b0 05 e1 0d  |,3)ut1$:.7......|
00000dc0  04 ba 04 0d 04 c4 0c dd  f2 74 69 74 6c 65 31 0d  |.........title1.|
00000dd0  04 ce 29 74 31 24 3d 28  22 67 64 63 27 73 20 22  |..)t1$=("gdc's "|
00000de0  2b 74 65 6e 73 65 24 2b  22 20 56 65 72 62 20 74  |+tense$+" Verb t|
00000df0  72 61 69 6e 65 72 22 29  0d 04 d8 27 75 74 31 24  |rainer")...'ut1$|
00000e00  3d c4 a9 74 31 24 2c 22  3d 22 29 3a f2 74 61 62  |=..t1$,"="):.tab|
00000e10  31 28 32 2c 74 31 24 2c  75 74 31 24 2c 36 29 0d  |1(2,t1$,ut1$,6).|
00000e20  04 e2 05 e1 0d 04 ec 04  0d 04 f6 15 dd f2 74 61  |..............ta|
00000e30  62 30 28 74 25 2c 61 24  2c 75 61 24 29 0d 05 00  |b0(t%,a$,ua$)...|
00000e40  32 74 61 62 25 3d 28 28  37 39 2d a9 61 24 29 2f  |2tab%=((79-.a$)/|
00000e50  32 29 3a f1 8a 74 61 62  25 2c 74 25 29 61 24 3a  |2):..tab%,t%)a$:|
00000e60  f1 8a 74 61 62 25 2c 74  25 2b 31 29 75 61 24 0d  |..tab%,t%+1)ua$.|
00000e70  05 0a 05 e1 0d 05 14 04  0d 05 1e 1a dd f2 74 61  |..............ta|
00000e80  62 31 28 74 25 2c 61 24  2c 75 61 24 2c 63 6f 6c  |b1(t%,a$,ua$,col|
00000e90  25 29 0d 05 28 28 fb 63  6f 6c 25 3a 74 61 62 25  |%)..((.col%:tab%|
00000ea0  3d 28 28 33 39 2d a9 61  24 29 2f 32 29 3a f1 8a  |=((39-.a$)/2):..|
00000eb0  74 61 62 25 2c 74 25 29  61 24 0d 05 32 10 e7 20  |tab%,t%)a$..2.. |
00000ec0  63 6f 6c 25 3c 3e 37 20  fb 36 0d 05 3c 13 f1 8a  |col%<>7 .6..<...|
00000ed0  74 61 62 25 2c 74 25 2b  31 29 75 61 24 0d 05 46  |tab%,t%+1)ua$..F|
00000ee0  05 e1 0d 05 50 04 0d 05  5a 0b dd f2 65 72 72 6f  |....P...Z...erro|
00000ef0  72 0d 05 64 09 ee 20 85  20 87 0d 05 6e 12 e7 20  |r..d.. . ...n.. |
00000f00  69 6e 25 3c 3e 30 20 d9  23 69 6e 25 0d 05 78 14  |in%<>0 .#in%..x.|
00000f10  e7 20 6f 75 74 25 3c 3e  30 20 d9 23 6f 75 74 25  |. out%<>0 .#out%|
00000f20  0d 05 82 29 ff 22 46 58  31 31 2c 31 35 22 3a ff  |...)."FX11,15":.|
00000f30  22 46 58 32 30 32 2c 30  22 3a ff 22 46 58 32 30  |"FX202,0":."FX20|
00000f40  22 3a ff 22 46 58 31 38  22 0d 05 8c 25 f4 20 49  |":."FX18"...%. I|
00000f50  46 20 4e 4f 54 20 72 61  6d 25 20 4f 53 43 4c 49  |F NOT ram% OSCLI|
00000f60  22 52 61 6d 46 53 73 69  7a 65 20 30 4b 22 0d 05  |"RamFSsize 0K"..|
00000f70  96 15 e7 20 9f 3d 31 37  20 ff 22 44 45 53 4b 54  |... .=17 ."DESKT|
00000f80  4f 50 22 0d 05 a0 1d f2  72 65 64 3a f6 3a f1 22  |OP".....red:.:."|
00000f90  20 61 74 20 6c 69 6e 65  20 22 3b 9e 27 27 3a e0  | at line ";.'':.|
00000fa0  0d 05 aa 05 e1 0d 05 b4  04 0d 05 be 0a dd f2 74  |...............t|
00000fb0  65 73 74 0d 05 c8 13 e3  20 59 3d 31 20 b8 20 6e  |est..... Y=1 . n|
00000fc0  75 6d 62 65 72 25 0d 05  d2 0d 2a 46 58 32 30 32  |umber%....*FX202|
00000fd0  2c 31 36 0d 05 dc 14 f2  62 6c 75 65 3a fb 36 3a  |,16.....blue:.6:|
00000fe0  f2 74 69 74 6c 65 31 0d  05 e6 1e 71 24 3d 28 22  |.title1....q$=("|
00000ff0  3e 3e 3e 20 22 2b 69 6e  66 24 28 59 29 2b 22 20  |>>> "+inf$(Y)+" |
00001000  3c 3c 3c 22 29 0d 05 f0  15 f2 74 61 62 31 28 31  |<<<").....tab1(1|
00001010  30 2c 71 24 2c 22 22 2c  32 29 0d 05 fa 04 0d 06  |0,q$,"",2)......|
00001020  04 18 e7 20 73 75 62 6a  25 20 84 20 6e 65 67 73  |... subj% . negs|
00001030  75 62 6a 25 20 8c 0d 06  0e 20 f2 74 61 62 31 28  |ubj% .... .tab1(|
00001040  31 33 2c 22 57 68 61 74  20 69 73 20 74 68 65 22  |13,"What is the"|
00001050  2c 22 22 2c 36 29 0d 06  18 1c 62 6c 61 6e 6b 24  |,"",6)....blank$|
00001060  3d c4 a9 28 65 6e 67 4d  24 28 59 29 29 2c 22 20  |=..(engM$(Y))," |
00001070  22 29 0d 06 22 19 75 62  6c 61 6e 6b 24 3d c4 a9  |")..".ublank$=..|
00001080  62 6c 61 6e 6b 24 2c 22  2d 22 29 0d 06 2c 1e f2  |blank$,"-")..,..|
00001090  74 61 62 31 28 31 35 2c  62 6c 61 6e 6b 24 2c 75  |tab1(15,blank$,u|
000010a0  62 6c 61 6e 6b 24 2c 36  29 0d 06 36 20 f2 74 61  |blank$,6)..6 .ta|
000010b0  62 31 28 31 37 2c 65 6e  67 4d 24 28 59 29 2c 75  |b1(17,engM$(Y),u|
000010c0  62 6c 61 6e 6b 24 2c 33  29 0d 06 40 1b f2 73 68  |blank$,3)..@..sh|
000010d0  6f 77 5f 73 63 6f 72 65  3a f2 63 6f 70 79 72 69  |ow_score:.copyri|
000010e0  67 68 74 31 0d 06 4a 16  76 6f 77 65 6c 24 3d c0  |ght1..J.vowel$=.|
000010f0  66 72 51 24 28 59 29 2c  31 29 0d 06 54 1b e7 20  |frQ$(Y),1)..T.. |
00001100  a7 22 61 65 69 6f 75 22  2c 76 6f 77 65 6c 24 29  |."aeiou",vowel$)|
00001110  3c 3e 30 20 8c 0d 06 5e  25 e8 86 20 20 8a 35 2c  |<>0 ...^%..  .5,|
00001120  32 32 29 22 41 6e 73 77  65 72 20 20 3a 20 20 71  |22)"Answer  :  q|
00001130  75 27 22 61 6e 73 77 65  72 24 0d 06 68 05 cc 0d  |u'"answer$..h...|
00001140  06 72 26 e8 86 20 20 8a  35 2c 32 32 29 22 41 6e  |.r&..  .5,22)"An|
00001150  73 77 65 72 20 20 3a 20  20 71 75 65 20 22 61 6e  |swer  :  que "an|
00001160  73 77 65 72 24 0d 06 7c  05 cd 0d 06 86 05 cc 0d  |swer$..|........|
00001170  06 90 23 f2 74 61 62 31  28 31 33 2c 22 48 6f 77  |..#.tab1(13,"How|
00001180  20 64 6f 20 79 6f 75 20  73 61 79 22 2c 22 22 2c  | do you say","",|
00001190  36 29 0d 06 9a 1c 62 6c  61 6e 6b 24 3d c4 a9 28  |6)....blank$=..(|
000011a0  65 6e 67 4d 24 28 59 29  29 2c 22 20 22 29 0d 06  |engM$(Y))," ")..|
000011b0  a4 19 75 62 6c 61 6e 6b  24 3d c4 a9 62 6c 61 6e  |..ublank$=..blan|
000011c0  6b 24 2c 22 2d 22 29 0d  06 ae 1e f2 74 61 62 31  |k$,"-").....tab1|
000011d0  28 31 35 2c 62 6c 61 6e  6b 24 2c 75 62 6c 61 6e  |(15,blank$,ublan|
000011e0  6b 24 2c 36 29 0d 06 b8  20 f2 74 61 62 31 28 31  |k$,6)... .tab1(1|
000011f0  37 2c 65 6e 67 4d 24 28  59 29 2c 75 62 6c 61 6e  |7,engM$(Y),ublan|
00001200  6b 24 2c 33 29 0d 06 c2  1e f2 73 68 6f 77 5f 73  |k$,3).....show_s|
00001210  63 6f 72 65 3a f2 63 6f  70 79 72 69 67 68 74 31  |core:.copyright1|
00001220  3a fb 36 0d 06 cc 17 20  20 e7 20 a9 28 66 72 51  |:.6....  . .(frQ|
00001230  24 28 59 29 29 3e 32 34  20 8c 0d 06 d6 20 20 20  |$(Y))>24 ....   |
00001240  20 20 e8 86 20 20 8a 30  2c 32 32 29 22 41 6e 73  |  ..  .0,22)"Ans|
00001250  3a 20 22 61 6e 73 77 65  72 24 0d 06 e0 09 20 20  |: "answer$....  |
00001260  20 20 cc 0d 06 ea 24 20  20 20 20 e8 86 20 20 8a  |  ....$    ..  .|
00001270  35 2c 32 32 29 22 41 6e  73 77 65 72 20 3a 20 22  |5,22)"Answer : "|
00001280  61 6e 73 77 65 72 24 0d  06 f4 07 20 20 cd 0d 06  |answer$....  ...|
00001290  fe 05 cd 0d 07 08 17 e7  20 61 6e 73 77 65 72 24  |........ answer$|
000012a0  3d 66 72 51 24 28 59 29  20 8c 0d 07 12 0d 73 63  |=frQ$(Y) .....sc|
000012b0  6f 72 65 25 2b 3d 31 0d  07 1c 07 87 3a db 0d 07  |ore%+=1.....:...|
000012c0  26 17 e3 20 6f 25 3d 31  20 b8 20 33 30 3a f1 6f  |&.. o%=1 . 30:.o|
000012d0  75 69 24 3a ed 0d 07 30  0e 77 61 69 74 3d a6 28  |ui$:...0.wait=.(|
000012e0  35 30 29 0d 07 3a 07 db  3a ee 0d 07 44 05 cc 0d  |50)..:..:...D...|
000012f0  07 4e 05 db 0d 07 58 0b  f2 72 65 64 3a fb 37 0d  |.N....X..red:.7.|
00001300  07 62 23 f1 8a 31 2c 33  29 22 41 68 20 6e 6f 6e  |.b#..1,3)"Ah non|
00001310  21 20 45 73 70 7d 63 65  20 64 27 69 64 69 6f 74  |! Esp}ce d'idiot|
00001320  21 22 0d 07 6c 1a f2 74  61 62 31 28 37 2c 65 6e  |!"..l..tab1(7,en|
00001330  67 4d 24 28 59 29 2c 22  22 2c 34 29 0d 07 76 26  |gM$(Y),"",4)..v&|
00001340  f2 74 61 62 31 28 31 30  2c 22 4c 61 20 72 7b 70  |.tab1(10,"La r{p|
00001350  6f 6e 73 65 2c 20 63 27  65 73 74 22 2c 22 22 2c  |onse, c'est","",|
00001360  37 29 0d 07 80 2a f2 74  61 62 31 28 31 33 2c 28  |7)...*.tab1(13,(|
00001370  22 3e 3e 3e 20 22 2b 66  72 51 24 28 59 29 2b 22  |">>> "+frQ$(Y)+"|
00001380  20 3c 3c 3c 22 29 2c 22  22 2c 33 29 0d 07 8a 20  | <<<"),"",3)... |
00001390  f1 8a 28 74 61 62 25 2b  34 29 2c 31 34 29 c4 a9  |..(tab%+4),14)..|
000013a0  66 72 51 24 28 59 29 2c  22 2d 22 29 0d 07 94 25  |frQ$(Y),"-")...%|
000013b0  f2 74 61 62 31 28 31 38  2c 22 54 6f 69 2c 20 74  |.tab1(18,"Toi, t|
000013c0  75 20 61 73 20 7b 63 72  69 74 22 2c 22 22 2c 37  |u as {crit","",7|
000013d0  29 0d 07 9e 2a f2 74 61  62 31 28 32 30 2c 28 22  |)...*.tab1(20,("|
000013e0  3e 3e 3e 20 22 2b 61 6e  73 77 65 72 24 2b 22 20  |>>> "+answer$+" |
000013f0  3c 3c 3c 22 29 2c 22 22  2c 33 29 0d 07 a8 2e f1  |<<<"),"",3).....|
00001400  8a 31 2c 32 35 29 22 4e  27 69 6d 70 6f 72 74 65  |.1,25)"N'importe|
00001410  20 71 75 65 6c 6c 65 20  74 6f 75 63 68 65 20 2e  | quelle touche .|
00001420  20 2e 20 2e 20 2e 20 22  3b 0d 07 b2 0f 6b 25 3d  | . . . ";....k%=|
00001430  a5 3a ee 3a db 3a fb 36  0d 07 bc 05 cd 0d 07 c6  |.:.:.:.6........|
00001440  05 ed 0d 07 d0 05 e1 0d  07 da 04 0d 07 e4 0b dd  |................|
00001450  f2 73 63 6f 72 65 0d 07  ee 07 db 3a 87 0d 07 f8  |.score.....:....|
00001460  0e f2 6d 61 75 76 65 3a  fb 31 32 0d 08 02 3e f1  |..mauve:.12...>.|
00001470  8a 31 2c 31 35 29 22 54  6f 6e 20 73 63 6f 72 65  |.1,15)"Ton score|
00001480  2c 20 63 27 65 73 74 20  20 3e 3e 3e 3e 20 20 22  |, c'est  >>>>  "|
00001490  3b 73 63 6f 72 65 25 3b  22 20 20 73 75 72 20 20  |;score%;"  sur  |
000014a0  22 3b 6e 75 6d 62 65 72  25 0d 08 0c 1a e7 20 73  |";number%..... s|
000014b0  63 6f 72 65 25 3c 28 6e  75 6d 62 65 72 25 2d 33  |core%<(number%-3|
000014c0  29 20 8c 0d 08 16 23 f1  8a 31 2c 31 38 29 22 54  |) ....#..1,18)"T|
000014d0  72 79 20 61 20 62 69 74  20 6f 66 20 72 65 76 69  |ry a bit of revi|
000014e0  73 69 6f 6e 2c 22 0d 08  20 15 f1 8a 31 29 22 79  |sion,".. ...1)"y|
000014f0  6f 75 20 22 3b 69 24 3b  22 21 22 0d 08 2a 05 cc  |ou ";i$;"!"..*..|
00001500  0d 08 34 23 f1 8a 31 2c  31 38 29 22 57 65 6c 6c  |..4#..1,18)"Well|
00001510  20 64 6f 6e 65 2c 20 79  6f 75 20 22 3b 69 24 3b  | done, you ";i$;|
00001520  22 21 22 0d 08 3e 05 cd  0d 08 48 2e 6b 24 3d 22  |"!"..>....H.k$="|
00001530  50 72 65 73 73 20 20 3c  3c 20 41 20 4e 20 59 20  |Press  << A N Y |
00001540  20 20 4b 20 45 20 59 20  3e 3e 20 20 74 6f 20 66  |  K E Y >>  to f|
00001550  69 6e 69 73 68 22 0d 08  52 1e f2 74 61 62 31 28  |inish"..R..tab1(|
00001560  32 39 2c 6b 24 2c 22 22  2c 36 29 3a 6b 25 3d a5  |29,k$,"",6):k%=.|
00001570  3a ee 3a db 0d 08 5c 05  e1 0d 08 66 04 0d 08 70  |:.:...\....f...p|
00001580  0e dd f2 67 65 74 5f 64  61 74 61 0d 08 7a 0b 87  |...get_data..z..|
00001590  3a f2 62 6c 75 65 0d 08  84 48 f4 20 2d 2d 2d 20  |:.blue...H. --- |
000015a0  6f 66 24 3d 6f 75 74 5f  66 69 6c 65 24 20 2d 20  |of$=out_file$ - |
000015b0  69 66 20 73 65 6e 64 69  6e 67 20 54 65 78 74 46  |if sending TextF|
000015c0  69 6c 65 20 74 6f 20 52  41 4d 20 69 73 20 63 68  |ile to RAM is ch|
000015d0  6f 73 65 6e 20 66 72 6f  6d 20 6d 65 6e 75 0d 08  |osen from menu..|
000015e0  8e 30 e7 20 6d 79 66 69  6c 65 25 20 de 20 53 54  |.0. myfile% . ST|
000015f0  24 28 35 30 29 3a f2 63  68 6f 6f 73 65 5f 66 69  |$(50):.choose_fi|
00001600  6c 65 28 22 4d 79 5f 46  69 6c 65 73 22 29 0d 08  |le("My_Files")..|
00001610  98 0c e7 20 6e 65 67 25  20 8c 0d 08 a2 4a e7 20  |... neg% ....J. |
00001620  6e 65 67 70 72 65 73 25  20 69 6e 66 69 6c 65 24  |negpres% infile$|
00001630  3d 22 4e 65 67 5f 50 72  65 73 22 3a 74 65 6e 73  |="Neg_Pres":tens|
00001640  65 24 3d 22 4e 65 67 2e  50 72 65 73 65 6e 74 20  |e$="Neg.Present |
00001650  54 65 6e 73 65 22 3a 6f  66 24 3d 22 4e 65 67 50  |Tense":of$="NegP|
00001660  72 65 73 22 0d 08 ac 4c  e7 20 6e 65 67 69 6d 70  |res"...L. negimp|
00001670  65 72 66 25 20 69 6e 66  69 6c 65 24 3d 22 4e 65  |erf% infile$="Ne|
00001680  67 5f 49 6d 70 22 3a 74  65 6e 73 65 24 3d 22 4e  |g_Imp":tense$="N|
00001690  65 67 2e 49 6d 70 65 72  66 20 54 65 6e 73 65 22  |eg.Imperf Tense"|
000016a0  3a 6f 66 24 3d 22 4e 65  67 49 6d 70 65 72 66 22  |:of$="NegImperf"|
000016b0  0d 08 b6 4d e7 20 6e 65  67 70 65 72 66 25 20 69  |...M. negperf% i|
000016c0  6e 66 69 6c 65 24 3d 22  4e 65 67 5f 50 65 72 66  |nfile$="Neg_Perf|
000016d0  22 3a 74 65 6e 73 65 24  3d 22 4e 65 67 2e 50 65  |":tense$="Neg.Pe|
000016e0  72 66 65 63 74 20 54 65  6e 73 65 22 3a 6f 66 24  |rfect Tense":of$|
000016f0  3d 22 4e 65 67 50 65 72  66 65 63 74 22 0d 08 c0  |="NegPerfect"...|
00001700  4b e7 20 6e 65 67 66 70  72 66 25 20 69 6e 66 69  |K. negfprf% infi|
00001710  6c 65 24 3d 22 4e 65 67  5f 46 70 72 66 22 3a 74  |le$="Neg_Fprf":t|
00001720  65 6e 73 65 24 3d 22 4e  65 67 2e 46 75 74 2d 50  |ense$="Neg.Fut-P|
00001730  65 72 66 65 63 74 22 3a  6f 66 24 3d 22 4e 65 67  |erfect":of$="Neg|
00001740  46 75 74 50 65 72 66 22  0d 08 ca 4d e7 20 6e 65  |FutPerf"...M. ne|
00001750  67 70 6c 75 70 25 20 69  6e 66 69 6c 65 24 3d 22  |gplup% infile$="|
00001760  4e 65 67 5f 50 6c 75 70  22 3a 74 65 6e 73 65 24  |Neg_Plup":tense$|
00001770  3d 22 4e 65 67 2e 50 6c  75 70 65 72 66 2e 54 65  |="Neg.Pluperf.Te|
00001780  6e 73 65 22 3a 6f 66 24  3d 22 4e 65 67 50 6c 75  |nse":of$="NegPlu|
00001790  50 65 72 66 22 0d 08 d4  4a e7 20 6e 65 67 70 63  |Perf"...J. negpc|
000017a0  6f 6e 25 20 69 6e 66 69  6c 65 24 3d 22 4e 65 67  |on% infile$="Neg|
000017b0  5f 50 63 6f 6e 22 3a 74  65 6e 73 65 24 3d 22 4e  |_Pcon":tense$="N|
000017c0  65 67 2e 43 6f 6e 64 2e  50 65 72 66 2e 22 3a 6f  |eg.Cond.Perf.":o|
000017d0  66 24 3d 22 4e 65 67 43  6f 6e 50 65 72 66 22 0d  |f$="NegConPerf".|
000017e0  08 de 4a e7 20 6e 65 67  66 75 74 25 20 69 6e 66  |..J. negfut% inf|
000017f0  69 6c 65 24 3d 22 4e 65  67 5f 46 75 74 22 3a 74  |ile$="Neg_Fut":t|
00001800  65 6e 73 65 24 3d 22 4e  65 67 2e 46 75 74 75 72  |ense$="Neg.Futur|
00001810  65 20 54 65 6e 73 65 22  3a 6f 66 24 3d 22 4e 65  |e Tense":of$="Ne|
00001820  67 5f 46 75 74 75 72 65  22 0d 08 e8 4a e7 20 6e  |g_Future"...J. n|
00001830  65 67 63 6f 6e 25 20 69  6e 66 69 6c 65 24 3d 22  |egcon% infile$="|
00001840  4e 65 67 5f 43 6f 6e 64  22 3a 74 65 6e 73 65 24  |Neg_Cond":tense$|
00001850  3d 22 4e 65 67 2e 43 6f  6e 64 69 74 69 6f 6e 61  |="Neg.Conditiona|
00001860  6c 22 3a 6f 66 24 3d 22  4e 65 67 43 6e 64 69 74  |l":of$="NegCndit|
00001870  6e 6c 22 0d 08 f2 4d e7  20 6e 65 67 73 75 62 6a  |nl"...M. negsubj|
00001880  25 20 69 6e 66 69 6c 65  24 3d 22 4e 65 67 5f 53  |% infile$="Neg_S|
00001890  62 6a 6e 22 3a 74 65 6e  73 65 24 3d 22 4e 65 67  |bjn":tense$="Neg|
000018a0  2e 50 72 65 73 2e 53 75  62 6a 75 6e 63 2e 22 3a  |.Pres.Subjunc.":|
000018b0  6f 66 24 3d 22 4e 65 67  53 75 62 6a 75 6e 63 22  |of$="NegSubjunc"|
000018c0  0d 08 fc 05 cc 0d 09 06  45 e7 20 70 72 65 73 25  |........E. pres%|
000018d0  20 69 6e 66 69 6c 65 24  3d 22 56 65 72 62 73 5f  | infile$="Verbs_|
000018e0  50 72 65 73 22 3a 74 65  6e 73 65 24 3d 22 50 72  |Pres":tense$="Pr|
000018f0  65 73 65 6e 74 20 54 65  6e 73 65 22 3a 6f 66 24  |esent Tense":of$|
00001900  3d 22 50 72 65 73 65 6e  74 22 0d 09 10 4a e7 20  |="Present"...J. |
00001910  69 6d 70 65 72 66 25 20  69 6e 66 69 6c 65 24 3d  |imperf% infile$=|
00001920  22 56 65 72 62 73 5f 49  6d 70 22 3a 74 65 6e 73  |"Verbs_Imp":tens|
00001930  65 24 3d 22 49 6d 70 65  72 66 65 63 74 20 54 65  |e$="Imperfect Te|
00001940  6e 73 65 22 3a 6f 66 24  3d 22 49 6d 70 65 72 66  |nse":of$="Imperf|
00001950  65 63 74 22 0d 09 1a 45  e7 20 70 65 72 66 25 20  |ect"...E. perf% |
00001960  69 6e 66 69 6c 65 24 3d  22 56 65 72 62 73 5f 50  |infile$="Verbs_P|
00001970  65 72 66 22 3a 74 65 6e  73 65 24 3d 22 50 65 72  |erf":tense$="Per|
00001980  66 65 63 74 20 54 65 6e  73 65 22 3a 6f 66 24 3d  |fect Tense":of$=|
00001990  22 50 65 72 66 65 63 74  22 0d 09 24 49 e7 20 66  |"Perfect"..$I. f|
000019a0  70 72 66 25 20 69 6e 66  69 6c 65 24 3d 22 56 65  |prf% infile$="Ve|
000019b0  72 62 73 5f 46 70 72 66  22 3a 74 65 6e 73 65 24  |rbs_Fprf":tense$|
000019c0  3d 22 46 75 74 2e 50 65  72 66 2e 54 65 6e 73 65  |="Fut.Perf.Tense|
000019d0  22 3a 6f 66 24 3d 22 46  75 74 50 65 72 66 65 63  |":of$="FutPerfec|
000019e0  74 22 0d 09 2e 4b e7 20  70 6c 75 70 25 20 69 6e  |t"...K. plup% in|
000019f0  66 69 6c 65 24 3d 22 56  65 72 62 73 5f 50 6c 75  |file$="Verbs_Plu|
00001a00  70 22 3a 74 65 6e 73 65  24 3d 22 50 6c 75 70 65  |p":tense$="Plupe|
00001a10  72 66 65 63 74 20 54 65  6e 73 65 22 3a 6f 66 24  |rfect Tense":of$|
00001a20  3d 22 50 6c 75 70 65 72  66 65 63 74 22 0d 09 38  |="Pluperfect"..8|
00001a30  4a e7 20 70 63 6f 6e 25  20 69 6e 66 69 6c 65 24  |J. pcon% infile$|
00001a40  3d 22 56 65 72 62 73 5f  50 63 6f 6e 22 3a 74 65  |="Verbs_Pcon":te|
00001a50  6e 73 65 24 3d 22 43 6f  6e 64 2e 50 65 72 66 20  |nse$="Cond.Perf |
00001a60  54 65 6e 73 65 22 3a 6f  66 24 3d 22 43 6f 6e 64  |Tense":of$="Cond|
00001a70  69 74 50 65 72 66 22 0d  09 42 41 e7 20 66 75 74  |itPerf"..BA. fut|
00001a80  25 20 69 6e 66 69 6c 65  24 3d 22 56 65 72 62 73  |% infile$="Verbs|
00001a90  5f 46 75 74 22 3a 74 65  6e 73 65 24 3d 22 46 75  |_Fut":tense$="Fu|
00001aa0  74 75 72 65 20 54 65 6e  73 65 22 3a 6f 66 24 3d  |ture Tense":of$=|
00001ab0  22 46 75 74 75 72 65 22  0d 09 4c 45 e7 20 63 6f  |"Future"..LE. co|
00001ac0  6e 25 20 69 6e 66 69 6c  65 24 3d 22 56 65 72 62  |n% infile$="Verb|
00001ad0  73 5f 43 6f 6e 64 22 3a  74 65 6e 73 65 24 3d 22  |s_Cond":tense$="|
00001ae0  43 6f 6e 64 69 74 69 6f  6e 61 6c 22 3a 6f 66 24  |Conditional":of$|
00001af0  3d 22 43 6f 6e 64 69 74  69 6f 6e 6c 22 0d 09 56  |="Conditionl"..V|
00001b00  4b e7 20 73 75 62 6a 25  20 69 6e 66 69 6c 65 24  |K. subj% infile$|
00001b10  3d 22 56 65 72 62 73 5f  53 62 6a 6e 22 3a 74 65  |="Verbs_Sbjn":te|
00001b20  6e 73 65 24 3d 22 50 72  65 73 2e 53 75 62 6a 75  |nse$="Pres.Subju|
00001b30  6e 63 74 69 76 65 22 3a  6f 66 24 3d 22 53 75 62  |nctive":of$="Sub|
00001b40  6a 6f 6e 63 74 69 66 22  0d 09 60 05 cd 0d 09 6a  |jonctif"..`....j|
00001b50  2c f1 8a 31 2c 31 35 29  22 4a 75 73 74 20 67 65  |,..1,15)"Just ge|
00001b60  74 74 69 6e 67 20 22 2b  74 65 6e 73 65 24 2b 22  |tting "+tense$+"|
00001b70  20 64 61 74 61 2e 2e 2e  22 0d 09 74 11 e7 20 6d  | data..."..t.. m|
00001b80  61 6b 65 66 69 6c 65 25  20 8c 0d 09 7e 30 fb 32  |akefile% ...~0.2|
00001b90  3a f1 8a 31 2c 31 38 29  22 61 6e 64 20 6d 61 6b  |:..1,18)"and mak|
00001ba0  69 6e 67 20 66 69 6c 65  20 69 6e 20 52 41 4d 20  |ing file in RAM |
00001bb0  28 22 3b 6f 66 24 3b 22  29 22 0d 09 88 23 ee 3a  |(";of$;")"...#.:|
00001bc0  fb 36 3a f1 8a 31 2c 32  32 29 22 50 6c 65 61 73  |.6:..1,22)"Pleas|
00001bd0  65 20 77 61 69 74 20 2e  2e 2e 20 22 3b 0d 09 92  |e wait ... ";...|
00001be0  05 cd 0d 09 9c 04 0d 09  a6 0f e7 20 6d 79 66 69  |........... myfi|
00001bf0  6c 65 25 20 8c 0d 09 b0  2f 69 6e 25 3d ad 28 22  |le% ..../in%=.("|
00001c00  3c 74 65 6e 73 65 5f 74  65 73 74 24 64 69 72 3e  |<tense_test$dir>|
00001c10  2e 4d 79 5f 46 69 6c 65  73 2e 22 2b 69 6e 66 69  |.My_Files."+infi|
00001c20  6c 65 24 29 0d 09 ba 05  cc 0d 09 c4 31 69 6e 25  |le$)........1in%|
00001c30  3d ad 28 22 3c 74 65 6e  73 65 5f 74 65 73 74 24  |=.("<tense_test$|
00001c40  64 69 72 3e 2e 54 65 6e  73 65 46 69 6c 65 73 2e  |dir>.TenseFiles.|
00001c50  22 2b 69 6e 66 69 6c 65  24 29 0d 09 ce 05 cd 0d  |"+infile$)......|
00001c60  09 d8 19 64 61 74 61 25  3d 30 3a 6c 66 74 25 3d  |...data%=0:lft%=|
00001c70  2d 31 3a 72 74 25 3d 30  0d 09 e2 04 0d 09 ec 11  |-1:rt%=0........|
00001c80  e7 20 6d 61 6b 65 66 69  6c 65 25 20 8c 0d 09 f6  |. makefile% ....|
00001c90  18 6f 75 74 25 3d ae 28  22 52 41 4d 3a 24 2e 22  |.out%=.("RAM:$."|
00001ca0  2b 6f 66 24 29 0d 0a 00  2e 6f 24 3d 22 4f 6e 20  |+of$)....o$="On |
00001cb0  61 6e 20 41 34 20 70 61  67 65 2c 20 63 68 6f 6f  |an A4 page, choo|
00001cc0  73 65 20 61 20 66 6f 6e  74 20 61 74 20 31 30 70  |se a font at 10p|
00001cd0  74 2e 22 0d 0a 0a 0d d5  23 6f 75 74 25 2c 6f 24  |t.".....#out%,o$|
00001ce0  0d 0a 14 43 6f 24 3d 22  50 6c 61 63 65 20 54 41  |...Co$="Place TA|
00001cf0  42 73 20 61 74 20 34 63  6d 73 20 2f 20 39 20 63  |Bs at 4cms / 9 c|
00001d00  6d 73 20 2f 20 31 33 2e  35 20 63 6d 73 20 20 61  |ms / 13.5 cms  a|
00001d10  6e 64 20 69 6d 70 6f 72  74 20 74 68 65 20 74 65  |nd import the te|
00001d20  78 74 22 0d 0a 1e 0d d5  23 6f 75 74 25 2c 6f 24  |xt".....#out%,o$|
00001d30  0d 0a 28 47 6f 24 3d 22  59 6f 75 27 6c 6c 20 6e  |..(Go$="You'll n|
00001d40  65 65 64 20 74 6f 20 27  70 6c 61 79 27 20 77 69  |eed to 'play' wi|
00001d50  74 68 20 74 68 65 20 73  65 74 74 69 6e 67 73 20  |th the settings |
00001d60  64 65 70 65 6e 64 69 6e  67 20 6f 6e 20 74 68 65  |depending on the|
00001d70  20 74 65 6e 73 65 22 0d  0a 32 17 d5 23 6f 75 74  | tense"..2..#out|
00001d80  25 2c 6f 24 3a d5 23 6f  75 74 25 2c 22 22 0d 0a  |%,o$:.#out%,""..|
00001d90  3c 4e 6f 24 3d 22 46 6f  72 6d 61 74 20 3d 20 46  |<No$="Format = F|
00001da0  72 56 65 72 62 31 20 5b  54 41 42 5d 20 4d 65 61  |rVerb1 [TAB] Mea|
00001db0  6e 69 6e 67 31 20 5b 54  41 42 5d 20 46 72 56 65  |ning1 [TAB] FrVe|
00001dc0  72 62 32 20 5b 54 41 42  5d 20 4d 65 61 6e 69 6e  |rb2 [TAB] Meanin|
00001dd0  67 32 20 5b 52 45 54 55  52 4e 5d 22 0d 0a 46 17  |g2 [RETURN]"..F.|
00001de0  d5 23 6f 75 74 25 2c 6f  24 3a d5 23 6f 75 74 25  |.#out%,o$:.#out%|
00001df0  2c 22 22 0d 0a 50 45 6f  31 24 3d 22 41 6c 74 65  |,""..PEo1$="Alte|
00001e00  72 6e 61 74 69 76 65 6c  79 2c 20 75 73 65 20 61  |rnatively, use a|
00001e10  20 62 6c 61 6e 6b 20 53  70 72 65 61 64 53 68 65  | blank SpreadShe|
00001e20  65 74 20 70 61 67 65 20  61 6e 64 20 61 64 6a 75  |et page and adju|
00001e30  73 74 20 74 68 65 20 22  0d 0a 5a 1f 6f 32 24 3d  |st the "..Z.o2$=|
00001e40  22 63 6f 6c 75 6d 6e 20  77 69 64 74 68 73 20 74  |"column widths t|
00001e50  6f 20 66 69 74 2e 22 0d  0a 64 28 d5 23 6f 75 74  |o fit."..d(.#out|
00001e60  25 2c 28 6f 31 24 2b 6f  32 24 29 3a d5 23 6f 75  |%,(o1$+o2$):.#ou|
00001e70  74 25 2c 22 22 3a d5 23  6f 75 74 25 2c 22 22 0d  |t%,"":.#out%,"".|
00001e80  0a 6e 2c d5 23 6f 75 74  25 2c 28 22 3e 3e 3e 20  |.n,.#out%,(">>> |
00001e90  50 72 69 6e 74 2d 6f 75  74 20 6f 66 20 74 68 65  |Print-out of the|
00001ea0  20 22 2b 74 65 6e 73 65  24 29 3b 0d 0a 78 05 cd  | "+tense$);..x..|
00001eb0  0d 0a 82 10 67 6f 74 25  3d 30 3a 6f 6e 25 3d 30  |....got%=0:on%=0|
00001ec0  0d 0a 8c 0e c8 95 20 ac  20 c5 23 69 6e 25 0d 0a  |...... . .#in%..|
00001ed0  96 16 64 61 74 61 25 2b  3d 31 3a 69 6e 24 3d be  |..data%+=1:in$=.|
00001ee0  23 69 6e 25 0d 0a a0 1a  e7 20 c0 69 6e 24 2c 33  |#in%..... .in$,3|
00001ef0  29 3d 22 6f 6e 20 22 20  6f 6e 25 3d 2d 31 0d 0a  |)="on " on%=-1..|
00001f00  aa 13 e7 20 c0 69 6e 24  2c 31 29 3d 22 2a 22 20  |... .in$,1)="*" |
00001f10  8c 0d 0a b4 0a 67 6f 74  25 3d 32 0d 0a be 44 69  |.....got%=2...Di|
00001f20  6e 66 69 6e 24 28 64 61  74 61 25 29 3d c1 69 6e  |nfin$(data%)=.in|
00001f30  24 2c 32 29 3a 66 72 76  65 72 62 24 28 64 61 74  |$,2):frverb$(dat|
00001f40  61 25 29 3d be 23 69 6e  25 3a 6d 65 61 6e 69 6e  |a%)=.#in%:meanin|
00001f50  67 24 28 64 61 74 61 25  29 3d be 23 69 6e 25 0d  |g$(data%)=.#in%.|
00001f60  0a c8 13 20 20 e7 20 6d  61 6b 65 66 69 6c 65 25  |...  . makefile%|
00001f70  20 8c 0d 0a d2 25 20 20  20 20 d5 23 6f 75 74 25  | ....%    .#out%|
00001f80  2c 22 22 3a d5 23 6f 75  74 25 2c 22 22 3a d5 23  |,"":.#out%,"":.#|
00001f90  6f 75 74 25 2c 22 22 0d  0a dc 1b 20 20 20 20 6c  |out%,""....    l|
00001fa0  25 3d a9 28 69 6e 66 69  6e 24 28 64 61 74 61 25  |%=.(infin$(data%|
00001fb0  29 29 0d 0a e6 3d 20 20  20 20 e3 20 50 3d 31 20  |))...=    . P=1 |
00001fc0  b8 20 6c 25 3a 70 24 3d  c1 69 6e 66 69 6e 24 28  |. l%:p$=.infin$(|
00001fd0  64 61 74 61 25 29 2c 50  2c 31 29 3a f2 63 6f 6e  |data%),P,1):.con|
00001fe0  76 5f 74 6f 5f 61 6e 73  69 28 70 24 29 3a ed 0d  |v_to_ansi(p$):..|
00001ff0  0a f0 1b 20 20 20 20 d5  23 6f 75 74 25 2c 22 22  |...    .#out%,""|
00002000  3a d5 23 6f 75 74 25 2c  22 22 0d 0a fa 1c 20 20  |:.#out%,""....  |
00002010  20 20 6c 25 3d a9 28 66  72 76 65 72 62 24 28 64  |  l%=.(frverb$(d|
00002020  61 74 61 25 29 29 0d 0b  04 3e 20 20 20 20 e3 20  |ata%))...>    . |
00002030  50 3d 31 20 b8 20 6c 25  3a 70 24 3d c1 66 72 76  |P=1 . l%:p$=.frv|
00002040  65 72 62 24 28 64 61 74  61 25 29 2c 50 2c 31 29  |erb$(data%),P,1)|
00002050  3a f2 63 6f 6e 76 5f 74  6f 5f 61 6e 73 69 28 70  |:.conv_to_ansi(p|
00002060  24 29 3a ed 0d 0b 0e 15  20 20 20 20 d5 23 6f 75  |$):.....    .#ou|
00002070  74 25 2c bd 28 30 39 29  3b 0d 0b 18 1d 20 20 20  |t%,.(09);....   |
00002080  20 6c 25 3d a9 28 6d 65  61 6e 69 6e 67 24 28 64  | l%=.(meaning$(d|
00002090  61 74 61 25 29 29 0d 0b  22 3f 20 20 20 20 e3 20  |ata%)).."?    . |
000020a0  50 3d 31 20 b8 20 6c 25  3a 70 24 3d c1 6d 65 61  |P=1 . l%:p$=.mea|
000020b0  6e 69 6e 67 24 28 64 61  74 61 25 29 2c 50 2c 31  |ning$(data%),P,1|
000020c0  29 3a f2 63 6f 6e 76 5f  74 6f 5f 61 6e 73 69 28  |):.conv_to_ansi(|
000020d0  70 24 29 3a ed 0d 0b 2c  15 20 20 20 20 d5 23 6f  |p$):...,.    .#o|
000020e0  75 74 25 2c bd 28 30 39  29 3b 0d 0b 36 07 20 20  |ut%,.(09);..6.  |
000020f0  cd 0d 0b 40 05 cc 0d 0b  4a 4a 69 6e 66 69 6e 24  |...@....JJinfin$|
00002100  28 64 61 74 61 25 29 3d  69 6e 66 69 6e 24 28 64  |(data%)=infin$(d|
00002110  61 74 61 25 2d 31 29 3a  66 72 76 65 72 62 24 28  |ata%-1):frverb$(|
00002120  64 61 74 61 25 29 3d 69  6e 24 3a 6d 65 61 6e 69  |data%)=in$:meani|
00002130  6e 67 24 28 64 61 74 61  25 29 3d be 23 69 6e 25  |ng$(data%)=.#in%|
00002140  0d 0b 54 13 20 20 e7 20  6d 61 6b 65 66 69 6c 65  |..T.  . makefile|
00002150  25 20 8c 0d 0b 5e 0f 20  20 20 20 67 6f 74 25 2b  |% ...^.    got%+|
00002160  3d 32 0d 0b 68 1c 20 20  20 20 6c 25 3d a9 28 66  |=2..h.    l%=.(f|
00002170  72 76 65 72 62 24 28 64  61 74 61 25 29 29 0d 0b  |rverb$(data%))..|
00002180  72 3e 20 20 20 20 e3 20  50 3d 31 20 b8 20 6c 25  |r>    . P=1 . l%|
00002190  3a 70 24 3d c1 66 72 76  65 72 62 24 28 64 61 74  |:p$=.frverb$(dat|
000021a0  61 25 29 2c 50 2c 31 29  3a f2 63 6f 6e 76 5f 74  |a%),P,1):.conv_t|
000021b0  6f 5f 61 6e 73 69 28 70  24 29 3a ed 0d 0b 7c 15  |o_ansi(p$):...|.|
000021c0  20 20 20 20 d5 23 6f 75  74 25 2c bd 28 30 39 29  |    .#out%,.(09)|
000021d0  3b 0d 0b 86 1d 20 20 20  20 6c 25 3d a9 28 6d 65  |;....    l%=.(me|
000021e0  61 6e 69 6e 67 24 28 64  61 74 61 25 29 29 0d 0b  |aning$(data%))..|
000021f0  90 3f 20 20 20 20 e3 20  50 3d 31 20 b8 20 6c 25  |.?    . P=1 . l%|
00002200  3a 70 24 3d c1 6d 65 61  6e 69 6e 67 24 28 64 61  |:p$=.meaning$(da|
00002210  74 61 25 29 2c 50 2c 31  29 3a f2 63 6f 6e 76 5f  |ta%),P,1):.conv_|
00002220  74 6f 5f 61 6e 73 69 28  70 24 29 3a ed 0d 0b 9a  |to_ansi(p$):....|
00002230  11 20 20 20 20 20 20 e7  20 6f 6e 25 20 8c 0d 0b  |.      . on% ...|
00002240  a4 30 20 20 20 20 20 20  d5 23 6f 75 74 25 2c 22  |.0      .#out%,"|
00002250  22 3a 67 6f 74 25 3d 30  3a 6f 6e 25 3d 30 3a 8b  |":got%=0:on%=0:.|
00002260  20 d5 23 6f 75 74 25 2c  bd 28 30 39 29 3b 0d 0b  | .#out%,.(09);..|
00002270  ae 0b 20 20 20 20 20 20  cc 0d 0b b8 3b 20 20 20  |..      ....;   |
00002280  20 20 20 e7 20 67 6f 74  25 2f 34 3d 67 6f 74 25  |   . got%/4=got%|
00002290  20 81 34 20 67 6f 74 25  3d 30 3a d5 23 6f 75 74  | .4 got%=0:.#out|
000022a0  25 2c 22 22 20 8b 20 d5  23 6f 75 74 25 2c bd 28  |%,"" . .#out%,.(|
000022b0  30 39 29 3b 0d 0b c2 0b  20 20 20 20 20 20 cd 0d  |09);....      ..|
000022c0  0b cc 07 20 20 cd 0d 0b  d6 05 cd 0d 0b e0 05 ce  |...  ...........|
000022d0  0d 0b ea 1b e7 20 ac 20  6d 61 6b 65 66 69 6c 65  |..... . makefile|
000022e0  25 20 77 25 3d a6 28 31  35 30 29 0d 0b f4 0f d9  |% w%=.(150).....|
000022f0  23 69 6e 25 3a 69 6e 25  3d 30 0d 0b fe 11 e7 20  |#in%:in%=0..... |
00002300  6d 61 6b 65 66 69 6c 65  25 20 8c 0d 0c 08 31 d9  |makefile% ....1.|
00002310  23 6f 75 74 25 3a 6f 75  74 25 3d 30 3a ff 28 22  |#out%:out%=0:.("|
00002320  53 45 54 54 59 50 45 20  52 41 4d 3a 24 2e 22 2b  |SETTYPE RAM:$."+|
00002330  6f 66 24 2b 22 20 26 66  66 66 22 29 0d 0c 12 1a  |of$+" &fff")....|
00002340  ff 22 46 69 6c 65 72 5f  4f 70 65 6e 44 69 72 20  |."Filer_OpenDir |
00002350  52 41 4d 3a 24 22 0d 0c  1c 05 cd 0d 0c 26 1a db  |RAM:$".......&..|
00002360  3a 6e 75 6d 62 65 72 6f  66 76 65 72 62 73 25 3d  |:numberofverbs%=|
00002370  64 61 74 61 25 0d 0c 30  05 e1 0d 0c 3a 04 0d 0c  |data%..0....:...|
00002380  44 0a dd f2 71 75 69 74  0d 0c 4e 29 ff 22 46 58  |D...quit..N)."FX|
00002390  31 31 2c 31 35 22 3a ff  22 46 58 32 30 32 2c 30  |11,15":."FX202,0|
000023a0  22 3a ff 22 46 58 31 38  22 3a ff 22 46 58 32 30  |":."FX18":."FX20|
000023b0  22 0d 0c 58 2a f4 20 49  46 20 4e 4f 54 20 72 61  |"..X*. IF NOT ra|
000023c0  6d 25 20 54 48 45 4e 20  4f 53 43 4c 49 22 52 61  |m% THEN OSCLI"Ra|
000023d0  6d 46 53 73 69 7a 65 20  30 4b 22 0d 0c 62 0c 2a  |mFSsize 0K"..b.*|
000023e0  44 45 53 4b 54 4f 50 0d  0c 6c 05 e0 0d 0c 76 04  |DESKTOP..l....v.|
000023f0  0d 0c 80 10 dd f2 73 68  6f 77 5f 73 63 6f 72 65  |......show_score|
00002400  0d 0c 8a 2f e7 20 59 3e  31 20 fb 32 3a f1 8a 33  |.../. Y>1 .2:..3|
00002410  31 2c 32 36 29 73 63 6f  72 65 25 3b 22 2f 22 3b  |1,26)score%;"/";|
00002420  59 2d 31 3b 22 20 22 3b  bd 31 32 38 3a fb 36 0d  |Y-1;" ";.128:.6.|
00002430  0c 94 05 e1 0d 0c 9e 04  0d 0c a8 12 dd f2 63 68  |..............ch|
00002440  6f 6f 73 65 5f 74 65 6e  73 65 0d 0c b2 22 db 3a  |oose_tense...".:|
00002450  f2 62 6c 75 65 3a 6d 79  66 69 6c 65 25 3d 30 3a  |.blue:myfile%=0:|
00002460  70 72 69 6e 74 74 65 73  74 25 3d 30 0d 0c bc 06  |printtest%=0....|
00002470  fb 33 0d 0c c6 29 f1 8a  32 2c 31 29 22 3d 3d 3d  |.3...)..2,1)"===|
00002480  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00002490  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 22 0d 0c d0 29 f1  |=========="...).|
000024a0  8a 32 2c 32 29 22 43 68  6f 6f 73 65 20 79 6f 75  |.2,2)"Choose you|
000024b0  72 20 54 65 6e 73 65 20  2f 20 56 65 72 62 2d 46  |r Tense / Verb-F|
000024c0  6f 72 6d 22 0d 0c da 29  f1 8a 32 2c 33 29 22 3d  |orm"...)..2,3)"=|
000024d0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
000024e0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 22 0d 0c e4  |============"...|
000024f0  33 fb 39 3a f1 8a 32 2c  35 29 22 50 72 65 73 73  |3.9:..2,5)"Press|
00002500  20 20 4e 20 20 3d 20 66  6f 72 20 27 4e 65 67 61  |  N  = for 'Nega|
00002510  74 69 76 65 27 20 56 65  72 62 20 4d 65 6e 75 22  |tive' Verb Menu"|
00002520  0d 0c ee 2a fb 37 3a f1  8a 32 2c 37 29 22 50 72  |...*.7:..2,7)"Pr|
00002530  65 73 73 20 20 50 20 20  66 6f 72 20 50 72 65 73  |ess  P  for Pres|
00002540  65 6e 74 20 54 65 6e 73  65 22 0d 0c f8 2c fb 36  |ent Tense"...,.6|
00002550  3a f1 8a 32 2c 39 29 22  50 72 65 73 73 20 20 49  |:..2,9)"Press  I|
00002560  20 20 66 6f 72 20 49 6d  70 65 72 66 65 63 74 20  |  for Imperfect |
00002570  54 65 6e 73 65 22 0d 0d  02 2b fb 37 3a f1 8a 32  |Tense"...+.7:..2|
00002580  2c 31 32 29 22 50 72 65  73 73 20 20 57 20 20 66  |,12)"Press  W  f|
00002590  6f 72 20 50 65 72 66 65  63 74 20 54 65 6e 73 65  |or Perfect Tense|
000025a0  22 0d 0d 0c 2e fb 36 3a  f1 8a 32 2c 31 33 29 22  |".....6:..2,13)"|
000025b0  50 72 65 73 73 20 20 58  20 20 66 6f 72 20 50 6c  |Press  X  for Pl|
000025c0  75 70 65 72 66 65 63 74  20 54 65 6e 73 65 22 0d  |uperfect Tense".|
000025d0  0d 16 32 fb 37 3a f1 8a  32 2c 31 34 29 22 50 72  |..2.7:..2,14)"Pr|
000025e0  65 73 73 20 20 59 20 20  66 6f 72 20 46 75 74 75  |ess  Y  for Futu|
000025f0  72 65 20 50 65 72 66 65  63 74 20 54 65 6e 73 65  |re Perfect Tense|
00002600  22 0d 0d 20 32 fb 36 3a  f1 8a 32 2c 31 35 29 22  |".. 2.6:..2,15)"|
00002610  50 72 65 73 73 20 20 5a  20 20 66 6f 72 20 43 6f  |Press  Z  for Co|
00002620  6e 64 69 74 2e 50 65 72  66 65 63 74 20 54 65 6e  |ndit.Perfect Ten|
00002630  73 65 22 0d 0d 2a 2a fb  37 3a f1 8a 32 2c 31 38  |se"..**.7:..2,18|
00002640  29 22 50 72 65 73 73 20  20 46 20 20 66 6f 72 20  |)"Press  F  for |
00002650  46 75 74 75 72 65 20 54  65 6e 73 65 22 0d 0d 34  |Future Tense"..4|
00002660  29 fb 36 3a f1 8a 32 2c  31 39 29 22 50 72 65 73  |).6:..2,19)"Pres|
00002670  73 20 20 43 20 20 66 6f  72 20 43 6f 6e 64 69 74  |s  C  for Condit|
00002680  69 6f 6e 61 6c 22 0d 0d  3e 31 fb 37 3a f1 8a 32  |ional"..>1.7:..2|
00002690  2c 32 31 29 22 50 72 65  73 73 20 20 53 20 20 66  |,21)"Press  S  f|
000026a0  6f 72 20 50 72 65 73 65  6e 74 20 53 75 62 6a 75  |or Present Subju|
000026b0  6e 63 74 69 76 65 22 0d  0d 48 2f fb 35 3a f1 8a  |nctive"..H/.5:..|
000026c0  32 2c 32 33 29 22 50 72  65 73 73 20 20 4d 20 20  |2,23)"Press  M  |
000026d0  74 6f 20 75 73 65 20 61  20 4d 61 64 65 2d 55 70  |to use a Made-Up|
000026e0  20 66 69 6c 65 22 0d 0d  52 36 fb 32 3a f1 8a 32  | file"..R6.2:..2|
000026f0  2c 32 34 29 22 50 72 65  73 73 20 20 54 20 20 3d  |,24)"Press  T  =|
00002700  20 6d 61 6b 65 20 61 20  54 65 78 74 46 69 6c 65  | make a TextFile|
00002710  20 6f 66 20 61 20 54 65  6e 73 65 22 0d 0d 5c 34  | of a Tense"..\4|
00002720  fb 33 3a f1 8a 32 2c 32  35 29 22 50 72 65 73 73  |.3:..2,25)"Press|
00002730  20 20 52 20 20 3d 20 6d  61 6b 65 20 77 72 69 74  |  R  = make writ|
00002740  74 65 6e 20 54 45 53 54  20 69 6e 20 52 41 4d 22  |ten TEST in RAM"|
00002750  0d 0d 66 25 fb 31 3a f1  8a 32 2c 32 37 29 22 50  |..f%.1:..2,27)"P|
00002760  72 65 73 73 20 20 51 20  20 74 6f 20 20 51 20 55  |ress  Q  to  Q U|
00002770  20 49 20 54 22 0d 0d 70  21 fb 33 3a f1 8a 32 2c  | I T"..p!.3:..2,|
00002780  33 30 29 22 63 20 68 20  6f 20 69 20 63 20 65 20  |30)"c h o i c e |
00002790  20 3a 20 20 22 3b 0d 0d  7a 18 c8 99 22 4f 53 5f  | :  ";..z..."OS_|
000027a0  43 6f 6e 66 69 72 6d 22  20 b8 20 63 68 25 0d 0d  |Confirm" . ch%..|
000027b0  84 0c c8 8e 20 63 68 25  20 ca 0d 0d 8e 12 c9 20  |.... ch% ...... |
000027c0  97 22 71 22 3a db 3a f2  71 75 69 74 0d 0d 98 15  |."q":.:.quit....|
000027d0  c9 20 97 22 70 22 3a db  3a 70 72 65 73 25 3d 2d  |. ."p":.:pres%=-|
000027e0  31 0d 0d a2 17 c9 20 97  22 69 22 3a db 3a 69 6d  |1..... ."i":.:im|
000027f0  70 65 72 66 25 3d 2d 31  0d 0d ac 15 c9 20 97 22  |perf%=-1..... ."|
00002800  77 22 3a db 3a 70 65 72  66 25 3d 2d 31 0d 0d b6  |w":.:perf%=-1...|
00002810  15 c9 20 97 22 78 22 3a  db 3a 70 6c 75 70 25 3d  |.. ."x":.:plup%=|
00002820  2d 31 0d 0d c0 15 c9 20  97 22 79 22 3a db 3a 66  |-1..... ."y":.:f|
00002830  70 72 66 25 3d 2d 31 0d  0d ca 15 c9 20 97 22 7a  |prf%=-1..... ."z|
00002840  22 3a db 3a 70 63 6f 6e  25 3d 2d 31 0d 0d d4 14  |":.:pcon%=-1....|
00002850  c9 20 97 22 66 22 3a db  3a 66 75 74 25 3d 2d 31  |. ."f":.:fut%=-1|
00002860  0d 0d de 15 c9 20 97 22  73 22 3a db 3a 73 75 62  |..... ."s":.:sub|
00002870  6a 25 3d 2d 31 0d 0d e8  14 c9 20 97 22 63 22 3a  |j%=-1..... ."c":|
00002880  db 3a 63 6f 6e 25 3d 2d  31 0d 0d f2 23 c9 20 97  |.:con%=-1...#. .|
00002890  22 6e 22 3a db 3a 6e 65  67 25 3d 2d 31 3a f2 6e  |"n":.:neg%=-1:.n|
000028a0  65 67 61 74 69 76 65 5f  6d 65 6e 75 0d 0d fc 17  |egative_menu....|
000028b0  c9 20 97 22 6d 22 3a db  3a 6d 79 66 69 6c 65 25  |. ."m":.:myfile%|
000028c0  3d 2d 31 0d 0e 06 1d c9  20 97 22 74 22 3a db 3a  |=-1..... ."t":.:|
000028d0  f2 6d 61 6b 65 5f 66 69  6c 65 3a f2 71 75 69 74  |.make_file:.quit|
000028e0  0d 0e 10 2b c9 20 97 22  72 22 3a db 3a 70 72 69  |...+. ."r":.:pri|
000028f0  6e 74 74 65 73 74 25 3d  2d 31 3a f2 6d 61 6b 65  |nttest%=-1:.make|
00002900  5f 74 65 73 74 3a f2 71  75 69 74 0d 0e 1a 05 7f  |_test:.quit.....|
00002910  0d 0e 24 11 f2 63 68 6f  6f 73 65 5f 74 65 6e 73  |..$..choose_tens|
00002920  65 0d 0e 2e 05 cb 0d 0e  38 05 e1 0d 0e 42 04 0d  |e.......8....B..|
00002930  0e 4c 0f dd f2 6d 61 6b  65 5f 66 69 6c 65 0d 0e  |.L...make_file..|
00002940  56 1c db 3a 6d 61 6b 65  66 69 6c 65 25 3d 2d 31  |V..:makefile%=-1|
00002950  3a 6d 79 66 69 6c 65 25  3d 30 0d 0e 60 0c e7 20  |:myfile%=0..`.. |
00002960  6e 65 67 25 20 8c 0d 0e  6a 35 fb 33 3a f1 8a 31  |neg% ...j5.3:..1|
00002970  2c 32 29 22 43 68 6f 6f  73 65 20 79 6f 75 72 20  |,2)"Choose your |
00002980  4e 65 67 61 74 69 76 65  20 54 65 6e 73 65 20 2f  |Negative Tense /|
00002990  20 56 65 72 62 2d 46 6f  72 6d 22 0d 0e 74 05 cc  | Verb-Form"..t..|
000029a0  0d 0e 7e 2c fb 33 3a f1  8a 31 2c 32 29 22 43 68  |..~,.3:..1,2)"Ch|
000029b0  6f 6f 73 65 20 79 6f 75  72 20 54 65 6e 73 65 20  |oose your Tense |
000029c0  2f 20 56 65 72 62 2d 46  6f 72 6d 22 0d 0e 88 05  |/ Verb-Form"....|
000029d0  cd 0d 0e 92 33 fb 32 3a  f1 8a 31 2c 34 29 22 54  |....3.2:..1,4)"T|
000029e0  68 65 20 46 69 6c 65 20  77 69 6c 6c 20 61 70 70  |he File will app|
000029f0  65 61 72 20 69 6e 20 52  41 4d 20 61 6e 64 20 68  |ear in RAM and h|
00002a00  61 76 65 22 0d 0e 9c 33  f1 8a 31 2c 35 29 22 73  |ave"...3..1,5)"s|
00002a10  6f 6d 65 20 68 69 6e 74  73 20 6f 6e 20 54 41 42  |ome hints on TAB|
00002a20  20 73 65 74 74 69 6e 67  73 20 61 73 20 61 20 68  | settings as a h|
00002a30  65 61 64 65 72 2e 22 0d  0e a6 2b fb 37 3a f1 8a  |eader."...+.7:..|
00002a40  32 2c 31 30 29 22 50 72  65 73 73 20 20 50 20 20  |2,10)"Press  P  |
00002a50  66 6f 72 20 50 72 65 73  65 6e 74 20 54 65 6e 73  |for Present Tens|
00002a60  65 22 0d 0e b0 2d fb 36  3a f1 8a 32 2c 31 32 29  |e"...-.6:..2,12)|
00002a70  22 50 72 65 73 73 20 20  49 20 20 66 6f 72 20 49  |"Press  I  for I|
00002a80  6d 70 65 72 66 65 63 74  20 54 65 6e 73 65 22 0d  |mperfect Tense".|
00002a90  0e ba 2b fb 37 3a f1 8a  32 2c 31 34 29 22 50 72  |..+.7:..2,14)"Pr|
00002aa0  65 73 73 20 20 57 20 20  66 6f 72 20 50 65 72 66  |ess  W  for Perf|
00002ab0  65 63 74 20 54 65 6e 73  65 22 0d 0e c4 2e fb 36  |ect Tense".....6|
00002ac0  3a f1 8a 32 2c 31 35 29  22 50 72 65 73 73 20 20  |:..2,15)"Press  |
00002ad0  58 20 20 66 6f 72 20 50  6c 75 70 65 72 66 65 63  |X  for Pluperfec|
00002ae0  74 20 54 65 6e 73 65 22  0d 0e ce 32 fb 37 3a f1  |t Tense"...2.7:.|
00002af0  8a 32 2c 31 36 29 22 50  72 65 73 73 20 20 59 20  |.2,16)"Press  Y |
00002b00  20 66 6f 72 20 46 75 74  75 72 65 20 50 65 72 66  | for Future Perf|
00002b10  65 63 74 20 54 65 6e 73  65 22 0d 0e d8 32 fb 36  |ect Tense"...2.6|
00002b20  3a f1 8a 32 2c 31 37 29  22 50 72 65 73 73 20 20  |:..2,17)"Press  |
00002b30  5a 20 20 66 6f 72 20 43  6f 6e 64 69 74 2e 50 65  |Z  for Condit.Pe|
00002b40  72 66 65 63 74 20 54 65  6e 73 65 22 0d 0e e2 2a  |rfect Tense"...*|
00002b50  fb 37 3a f1 8a 32 2c 31  39 29 22 50 72 65 73 73  |.7:..2,19)"Press|
00002b60  20 20 46 20 20 66 6f 72  20 46 75 74 75 72 65 20  |  F  for Future |
00002b70  54 65 6e 73 65 22 0d 0e  ec 29 fb 36 3a f1 8a 32  |Tense"...).6:..2|
00002b80  2c 32 30 29 22 50 72 65  73 73 20 20 43 20 20 66  |,20)"Press  C  f|
00002b90  6f 72 20 43 6f 6e 64 69  74 69 6f 6e 61 6c 22 0d  |or Conditional".|
00002ba0  0e f6 31 fb 37 3a f1 8a  32 2c 32 32 29 22 50 72  |..1.7:..2,22)"Pr|
00002bb0  65 73 73 20 20 53 20 20  66 6f 72 20 50 72 65 73  |ess  S  for Pres|
00002bc0  65 6e 74 20 53 75 62 6a  75 6e 63 74 69 76 65 22  |ent Subjunctive"|
00002bd0  0d 0f 00 0c e7 20 6e 65  67 25 20 8c 0d 0f 0a 25  |..... neg% ....%|
00002be0  fb 32 3a f1 8a 32 2c 32  35 29 22 50 72 65 73 73  |.2:..2,25)"Press|
00002bf0  20 20 51 20 20 74 6f 20  20 51 20 55 20 49 20 54  |  Q  to  Q U I T|
00002c00  22 0d 0f 14 21 fb 33 3a  f1 8a 32 2c 32 38 29 22  |"...!.3:..2,28)"|
00002c10  63 20 68 20 6f 20 69 20  63 20 65 20 20 3a 20 20  |c h o i c e  :  |
00002c20  22 3b 0d 0f 1e 05 cc 0d  0f 28 2c fb 35 3a f1 8a  |";.......(,.5:..|
00002c30  32 2c 32 34 29 22 50 72  65 73 73 20 20 4d 20 20  |2,24)"Press  M  |
00002c40  66 6f 72 20 61 20 4d 61  64 65 2d 55 70 20 66 69  |for a Made-Up fi|
00002c50  6c 65 22 0d 0f 32 25 fb  32 3a f1 8a 32 2c 32 37  |le"..2%.2:..2,27|
00002c60  29 22 50 72 65 73 73 20  20 51 20 20 74 6f 20 20  |)"Press  Q  to  |
00002c70  51 20 55 20 49 20 54 22  0d 0f 3c 21 fb 33 3a f1  |Q U I T"..<!.3:.|
00002c80  8a 32 2c 33 30 29 22 63  20 68 20 6f 20 69 20 63  |.2,30)"c h o i c|
00002c90  20 65 20 20 3a 20 20 22  3b 0d 0f 46 05 cd 0d 0f  | e  :  ";..F....|
00002ca0  50 18 c8 99 22 4f 53 5f  43 6f 6e 66 69 72 6d 22  |P..."OS_Confirm"|
00002cb0  20 b8 20 63 68 25 0d 0f  5a 0c e7 20 6e 65 67 25  | . ch%..Z.. neg%|
00002cc0  20 8c 0d 0f 64 0d 20 c8  8e 20 63 68 25 20 ca 0d  | ...d. .. ch% ..|
00002cd0  0f 6e 1a 20 20 c9 20 97  22 70 22 3a db 3a 6e 65  |.n.  . ."p":.:ne|
00002ce0  67 70 72 65 73 25 3d 2d  31 0d 0f 78 1c 20 20 c9  |gpres%=-1..x.  .|
00002cf0  20 97 22 69 22 3a db 3a  6e 65 67 69 6d 70 65 72  | ."i":.:negimper|
00002d00  66 25 3d 2d 31 0d 0f 82  1a 20 20 c9 20 97 22 77  |f%=-1....  . ."w|
00002d10  22 3a db 3a 6e 65 67 70  65 72 66 25 3d 2d 31 0d  |":.:negperf%=-1.|
00002d20  0f 8c 1a 20 20 c9 20 97  22 78 22 3a db 3a 6e 65  |...  . ."x":.:ne|
00002d30  67 70 6c 75 70 25 3d 2d  31 0d 0f 96 1a 20 20 c9  |gplup%=-1....  .|
00002d40  20 97 22 79 22 3a db 3a  6e 65 67 66 70 72 66 25  | ."y":.:negfprf%|
00002d50  3d 2d 31 0d 0f a0 1a 20  20 c9 20 97 22 7a 22 3a  |=-1....  . ."z":|
00002d60  db 3a 6e 65 67 70 63 6f  6e 25 3d 2d 31 0d 0f aa  |.:negpcon%=-1...|
00002d70  19 20 20 c9 20 97 22 66  22 3a db 3a 6e 65 67 66  |.  . ."f":.:negf|
00002d80  75 74 25 3d 2d 31 0d 0f  b4 1a 20 20 c9 20 97 22  |ut%=-1....  . ."|
00002d90  73 22 3a db 3a 6e 65 67  73 75 62 6a 25 3d 2d 31  |s":.:negsubj%=-1|
00002da0  0d 0f be 19 20 20 c9 20  97 22 63 22 3a db 3a 6e  |....  . ."c":.:n|
00002db0  65 67 63 6f 6e 25 3d 2d  31 0d 0f c8 14 20 20 c9  |egcon%=-1....  .|
00002dc0  20 97 22 71 22 3a db 3a  f2 71 75 69 74 0d 0f d2  | ."q":.:.quit...|
00002dd0  06 20 7f 0d 0f dc 10 20  20 f2 6d 61 6b 65 5f 66  |. .....  .make_f|
00002de0  69 6c 65 0d 0f e6 06 20  cb 0d 0f f0 05 cc 0d 0f  |ile.... ........|
00002df0  fa 0d 20 c8 8e 20 63 68  25 20 ca 0d 10 04 17 20  |.. .. ch% ..... |
00002e00  20 c9 20 97 22 70 22 3a  db 3a 70 72 65 73 25 3d  | . ."p":.:pres%=|
00002e10  2d 31 0d 10 0e 19 20 20  c9 20 97 22 69 22 3a db  |-1....  . ."i":.|
00002e20  3a 69 6d 70 65 72 66 25  3d 2d 31 0d 10 18 17 20  |:imperf%=-1.... |
00002e30  20 c9 20 97 22 77 22 3a  db 3a 70 65 72 66 25 3d  | . ."w":.:perf%=|
00002e40  2d 31 0d 10 22 17 20 20  c9 20 97 22 78 22 3a db  |-1..".  . ."x":.|
00002e50  3a 70 6c 75 70 25 3d 2d  31 0d 10 2c 17 20 20 c9  |:plup%=-1..,.  .|
00002e60  20 97 22 79 22 3a db 3a  66 70 72 66 25 3d 2d 31  | ."y":.:fprf%=-1|
00002e70  0d 10 36 17 20 20 c9 20  97 22 7a 22 3a db 3a 70  |..6.  . ."z":.:p|
00002e80  63 6f 6e 25 3d 2d 31 0d  10 40 16 20 20 c9 20 97  |con%=-1..@.  . .|
00002e90  22 66 22 3a db 3a 66 75  74 25 3d 2d 31 0d 10 4a  |"f":.:fut%=-1..J|
00002ea0  17 20 20 c9 20 97 22 73  22 3a db 3a 73 75 62 6a  |.  . ."s":.:subj|
00002eb0  25 3d 2d 31 0d 10 54 16  20 20 c9 20 97 22 63 22  |%=-1..T.  . ."c"|
00002ec0  3a db 3a 63 6f 6e 25 3d  2d 31 0d 10 5e 14 20 20  |:.:con%=-1..^.  |
00002ed0  c9 20 97 22 71 22 3a db  3a f2 71 75 69 74 0d 10  |. ."q":.:.quit..|
00002ee0  68 19 20 20 c9 20 97 22  6d 22 3a db 3a 6d 79 66  |h.  . ."m":.:myf|
00002ef0  69 6c 65 25 3d 2d 31 0d  10 72 06 20 7f 0d 10 7c  |ile%=-1..r. ...||
00002f00  10 20 20 f2 6d 61 6b 65  5f 66 69 6c 65 0d 10 86  |.  .make_file...|
00002f10  05 cb 0d 10 90 05 cd 0d  10 9a 0d f2 67 65 74 5f  |............get_|
00002f20  64 61 74 61 0d 10 a4 05  e1 0d 10 ae 04 0d 10 b8  |data............|
00002f30  16 dd f2 63 6f 6e 76 5f  74 6f 5f 61 6e 73 69 28  |...conv_to_ansi(|
00002f40  66 24 29 0d 10 c2 2c e7  20 66 24 3d bd 28 36 34  |f$)...,. f$=.(64|
00002f50  29 20 20 d5 23 6f 75 74  25 2c bd 28 32 32 34 29  |)  .#out%,.(224)|
00002f60  3b 3a e1 20 3a 20 f4 20  61 20 67 72 61 76 65 0d  |;:. : . a grave.|
00002f70  10 cc 2b e7 20 66 24 3d  bd 28 39 33 29 20 20 d5  |..+. f$=.(93)  .|
00002f80  23 6f 75 74 25 2c bd 28  32 32 36 29 3b 3a e1 20  |#out%,.(226);:. |
00002f90  3a 20 f4 20 61 20 63 69  72 63 0d 10 d6 2a e7 20  |: . a circ...*. |
00002fa0  66 24 3d bd 28 39 32 29  20 20 d5 23 6f 75 74 25  |f$=.(92)  .#out%|
00002fb0  2c bd 28 32 33 31 29 3b  3a e1 20 3a 20 f4 20 63  |,.(231);:. : . c|
00002fc0  20 63 65 64 0d 10 e0 2b  e7 20 66 24 3d bd 28 39  | ced...+. f$=.(9|
00002fd0  31 29 20 20 d5 23 6f 75  74 25 2c bd 28 32 33 34  |1)  .#out%,.(234|
00002fe0  29 3b 3a e1 20 3a 20 f4  20 65 20 63 69 72 63 0d  |);:. : . e circ.|
00002ff0  10 ea 2c e7 20 66 24 3d  bd 28 31 32 35 29 20 d5  |..,. f$=.(125) .|
00003000  23 6f 75 74 25 2c bd 28  32 33 32 29 3b 3a e1 20  |#out%,.(232);:. |
00003010  3a 20 f4 20 65 20 67 72  61 76 65 0d 10 f4 2c e7  |: . e grave...,.|
00003020  20 66 24 3d bd 28 31 32  33 29 20 d5 23 6f 75 74  | f$=.(123) .#out|
00003030  25 2c bd 28 32 33 33 29  3b 3a e1 20 3a 20 f4 20  |%,.(233);:. : . |
00003040  65 20 61 63 75 74 65 0d  10 fe 2b e7 20 66 24 3d  |e acute...+. f$=|
00003050  bd 28 31 32 36 29 20 d5  23 6f 75 74 25 2c bd 28  |.(126) .#out%,.(|
00003060  32 33 38 29 3b 3a e1 20  3a 20 f4 20 69 20 63 69  |238);:. : . i ci|
00003070  72 63 0d 11 08 2b e7 20  66 24 3d bd 28 33 35 29  |rc...+. f$=.(35)|
00003080  20 20 d5 23 6f 75 74 25  2c bd 28 32 34 34 29 3b  |  .#out%,.(244);|
00003090  3a e1 20 3a 20 f4 20 6f  20 63 69 72 63 0d 11 12  |:. : . o circ...|
000030a0  2c e7 20 66 24 3d bd 28  31 32 34 29 20 d5 23 6f  |,. f$=.(124) .#o|
000030b0  75 74 25 2c bd 28 32 34  39 29 3b 3a e1 20 3a 20  |ut%,.(249);:. : |
000030c0  f4 20 75 20 67 72 61 76  65 0d 11 1c 2b e7 20 66  |. u grave...+. f|
000030d0  24 3d bd 28 33 36 29 20  20 d5 23 6f 75 74 25 2c  |$=.(36)  .#out%,|
000030e0  bd 28 32 35 31 29 3b 3a  e1 20 3a 20 f4 20 75 20  |.(251);:. : . u |
000030f0  63 69 72 63 0d 11 26 2c  e7 20 66 24 3d bd 28 39  |circ..&,. f$=.(9|
00003100  34 29 20 20 d5 23 6f 75  74 25 2c bd 28 32 33 35  |4)  .#out%,.(235|
00003110  29 3b 3a e1 20 3a 20 f4  20 65 20 74 72 65 6d 61  |);:. : . e trema|
00003120  0d 11 30 2c e7 20 66 24  3d bd 28 39 36 29 20 20  |..0,. f$=.(96)  |
00003130  d5 23 6f 75 74 25 2c bd  28 32 33 39 29 3b 3a e1  |.#out%,.(239);:.|
00003140  20 3a 20 f4 20 69 20 74  72 65 6d 61 0d 11 3a 1a  | : . i trema..:.|
00003150  63 68 25 3d 97 66 24 3a  d5 23 6f 75 74 25 2c bd  |ch%=.f$:.#out%,.|
00003160  28 63 68 25 29 3b 0d 11  44 05 e1 0d 11 4e 04 0d  |(ch%);..D....N..|
00003170  11 58 17 dd f2 63 68 6f  6f 73 65 5f 66 69 6c 65  |.X...choose_file|
00003180  28 64 69 72 24 29 0d 11  62 36 ff 28 22 45 4e 55  |(dir$)..b6.("ENU|
00003190  4d 44 49 52 20 3c 74 65  6e 73 65 5f 74 65 73 74  |MDIR <tense_test|
000031a0  24 64 69 72 3e 2e 22 2b  64 69 72 24 2b 22 20 52  |$dir>."+dir$+" R|
000031b0  41 4d 3a 24 2e 66 69 6c  65 73 22 29 0d 11 6c 1e  |AM:$.files")..l.|
000031c0  69 6e 25 3d 8e 28 22 52  41 4d 3a 24 2e 66 69 6c  |in%=.("RAM:$.fil|
000031d0  65 73 22 29 3a 63 74 25  3d 31 0d 11 76 26 c8 95  |es"):ct%=1..v&..|
000031e0  20 ac 20 c5 23 69 6e 25  3a 53 54 24 28 63 74 25  | . .#in%:ST$(ct%|
000031f0  29 3d be 23 69 6e 25 3a  63 74 25 2b 3d 31 3a ce  |)=.#in%:ct%+=1:.|
00003200  0d 11 80 33 d9 23 69 6e  25 3a 69 6e 25 3d 30 3a  |...3.#in%:in%=0:|
00003210  ff 28 22 44 45 4c 45 54  45 20 52 41 4d 3a 24 2e  |.("DELETE RAM:$.|
00003220  66 69 6c 65 73 22 29 3a  6e 25 3d 28 63 74 25 20  |files"):n%=(ct% |
00003230  83 32 29 0d 11 8a 1e e7  20 63 74 25 2f 32 20 3c  |.2)..... ct%/2 <|
00003240  3e 20 63 74 25 20 81 20  32 20 63 74 25 2b 3d 6e  |> ct% . 2 ct%+=n|
00003250  25 0d 11 94 06 f1 27 0d  11 9e 13 e3 20 59 3d 31  |%.....'..... Y=1|
00003260  20 b8 20 63 74 25 20 88  20 32 0d 11 a8 29 e7 20  | . ct% . 2...). |
00003270  53 54 24 28 59 29 3c 3e  22 22 20 fb 33 3a f1 8a  |ST$(Y)<>"" .3:..|
00003280  31 29 59 3b 3a fb 36 3a  f1 8a 34 29 53 54 24 28  |1)Y;:.6:..4)ST$(|
00003290  59 29 3b 0d 11 b2 30 e7  20 53 54 24 28 59 2b 31  |Y);...0. ST$(Y+1|
000032a0  29 3c 3e 22 22 20 fb 33  3a f1 8a 32 31 29 59 2b  |)<>"" .3:..21)Y+|
000032b0  31 3b 3a fb 36 3a f1 8a  32 34 29 53 54 24 28 59  |1;:.6:..24)ST$(Y|
000032c0  2b 31 29 0d 11 bc 05 f1  0d 11 c6 05 ed 0d 11 d0  |+1).............|
000032d0  1c ee 3a fb 31 3a f1 27  8a 31 30 29 22 30 20 20  |..:.1:.'.10)"0  |
000032e0  3d 20 20 41 62 6f 72 74  22 0d 11 da 24 fb 33 3a  |=  Abort"...$.3:|
000032f0  e8 27 8a 31 30 29 22 46  69 6c 65 20 4e 55 4d 42  |.'.10)"File NUMB|
00003300  45 52 20 3d 20 22 6e 6f  25 3a db 3a 87 0d 11 e4  |ER = "no%:.:....|
00003310  13 e7 20 6e 6f 25 3d 30  3a f2 71 75 69 74 3a e0  |.. no%=0:.quit:.|
00003320  0d 11 ee 34 6f 66 24 3d  53 54 24 28 6e 6f 25 29  |...4of$=ST$(no%)|
00003330  3a 69 6e 66 69 6c 65 24  3d 53 54 24 28 6e 6f 25  |:infile$=ST$(no%|
00003340  29 3a 74 65 6e 73 65 24  3d 53 54 24 28 6e 6f 25  |):tense$=ST$(no%|
00003350  29 3a fb 37 0d 11 f8 05  e1 0d 12 02 04 0d 12 0c  |):.7............|
00003360  11 dd f2 77 68 69 63 68  5f 74 65 6e 73 65 0d 12  |...which_tense..|
00003370  16 0c ee 3a f2 6d 61 75  76 65 0d 12 20 0c e7 20  |...:.mauve.. .. |
00003380  6e 65 67 25 20 8c 0d 12  2a 35 fb 32 3a f1 8a 32  |neg% ...*5.2:..2|
00003390  2c 33 29 22 54 68 65 20  74 65 73 74 20 77 69 6c  |,3)"The test wil|
000033a0  6c 20 75 73 65 20 4e 45  47 41 54 49 56 45 20 76  |l use NEGATIVE v|
000033b0  65 72 62 2d 66 6f 72 6d  73 2e 22 0d 12 34 2e fb  |erb-forms."..4..|
000033c0  33 3a f1 8a 32 2c 35 29  22 43 68 6f 6f 73 65 20  |3:..2,5)"Choose |
000033d0  74 68 65 20 66 6f 72 6d  61 74 20 66 6f 72 20 74  |the format for t|
000033e0  68 65 20 74 65 73 74 2e  22 0d 12 3e 05 cc 0d 12  |he test."..>....|
000033f0  48 2b f1 8a 32 2c 35 29  22 43 68 6f 6f 73 65 20  |H+..2,5)"Choose |
00003400  74 68 65 20 66 6f 72 6d  61 74 20 66 6f 72 20 74  |the format for t|
00003410  68 65 20 74 65 73 74 2e  22 0d 12 52 05 cd 0d 12  |he test."..R....|
00003420  5c 28 fb 37 3a 20 f1 8a  32 2c 38 29 22 20 20 50  |\(.7: ..2,8)"  P|
00003430  20 20 3d 20 75 73 65 20  50 72 65 73 65 6e 74 20  |  = use Present |
00003440  54 65 6e 73 65 22 0d 12  66 2a fb 34 3a f1 8a 32  |Tense"..f*.4:..2|
00003450  2c 31 30 29 22 20 20 49  20 20 3d 20 75 73 65 20  |,10)"  I  = use |
00003460  49 6d 70 65 72 66 65 63  74 20 54 65 6e 73 65 22  |Imperfect Tense"|
00003470  0d 12 70 28 fb 37 3a f1  8a 32 2c 31 32 29 22 20  |..p(.7:..2,12)" |
00003480  20 57 20 20 3d 20 75 73  65 20 50 65 72 66 65 63  | W  = use Perfec|
00003490  74 20 54 65 6e 73 65 22  0d 12 7a 2b fb 34 3a f1  |t Tense"..z+.4:.|
000034a0  8a 32 2c 31 33 29 22 20  20 58 20 20 3d 20 75 73  |.2,13)"  X  = us|
000034b0  65 20 50 6c 75 70 65 72  66 65 63 74 20 54 65 6e  |e Pluperfect Ten|
000034c0  73 65 22 0d 12 84 2f fb  37 3a f1 8a 32 2c 31 34  |se".../.7:..2,14|
000034d0  29 22 20 20 59 20 20 3d  20 75 73 65 20 46 75 74  |)"  Y  = use Fut|
000034e0  75 72 65 20 50 65 72 66  65 63 74 20 54 65 6e 73  |ure Perfect Tens|
000034f0  65 22 0d 12 8e 2f fb 34  3a f1 8a 32 2c 31 35 29  |e".../.4:..2,15)|
00003500  22 20 20 5a 20 20 3d 20  75 73 65 20 43 6f 6e 64  |"  Z  = use Cond|
00003510  69 74 2e 50 65 72 66 65  63 74 20 54 65 6e 73 65  |it.Perfect Tense|
00003520  22 0d 12 98 27 fb 37 3a  f1 8a 32 2c 31 37 29 22  |"...'.7:..2,17)"|
00003530  20 20 46 20 20 3d 20 75  73 65 20 46 75 74 75 72  |  F  = use Futur|
00003540  65 20 54 65 6e 73 65 22  0d 12 a2 26 fb 34 3a f1  |e Tense"...&.4:.|
00003550  8a 32 2c 31 38 29 22 20  20 43 20 20 3d 20 75 73  |.2,18)"  C  = us|
00003560  65 20 43 6f 6e 64 69 74  69 6f 6e 61 6c 22 0d 12  |e Conditional"..|
00003570  ac 2d fb 37 3a f1 8a 32  2c 32 30 29 22 20 20 53  |.-.7:..2,20)"  S|
00003580  20 20 3d 20 75 73 65 20  50 72 65 73 65 74 20 53  |  = use Preset S|
00003590  75 62 6a 75 6e 63 74 69  76 65 22 0d 12 b6 0c e7  |ubjunctive".....|
000035a0  20 6e 65 67 25 20 8c 0d  12 c0 25 fb 31 3a f1 8a  | neg% ....%.1:..|
000035b0  32 2c 32 33 29 22 50 72  65 73 73 20 20 51 20 20  |2,23)"Press  Q  |
000035c0  74 6f 20 20 51 20 55 20  49 20 54 22 0d 12 ca 21  |to  Q U I T"...!|
000035d0  fb 33 3a f1 8a 32 2c 32  37 29 22 63 20 68 20 6f  |.3:..2,27)"c h o|
000035e0  20 69 20 63 20 65 20 20  3a 20 20 22 3b 0d 12 d4  | i c e  :  ";...|
000035f0  05 cc 0d 12 de 29 fb 34  3a f1 8a 32 2c 32 31 29  |.....).4:..2,21)|
00003600  22 20 20 4d 20 20 3d 20  75 73 65 20 61 20 4d 61  |"  M  = use a Ma|
00003610  64 65 2d 55 70 20 46 69  6c 65 22 0d 12 e8 25 fb  |de-Up File"...%.|
00003620  31 3a f1 8a 32 2c 32 34  29 22 50 72 65 73 73 20  |1:..2,24)"Press |
00003630  20 51 20 20 74 6f 20 20  51 20 55 20 49 20 54 22  | Q  to  Q U I T"|
00003640  0d 12 f2 21 fb 33 3a f1  8a 32 2c 32 38 29 22 63  |...!.3:..2,28)"c|
00003650  20 68 20 6f 20 69 20 63  20 65 20 20 3a 20 20 22  | h o i c e  :  "|
00003660  3b 0d 12 fc 05 cd 0d 13  06 1a c8 99 22 4f 53 5f  |;..........."OS_|
00003670  43 6f 6e 66 69 72 6d 22  20 b8 20 63 68 25 3a 87  |Confirm" . ch%:.|
00003680  0d 13 10 0c e7 20 6e 65  67 25 20 8c 0d 13 1a 0d  |..... neg% .....|
00003690  20 c8 8e 20 63 68 25 20  ca 0d 13 24 1a 20 20 c9  | .. ch% ...$.  .|
000036a0  20 97 22 70 22 3a db 3a  6e 65 67 70 72 65 73 25  | ."p":.:negpres%|
000036b0  3d 2d 31 0d 13 2e 1c 20  20 c9 20 97 22 69 22 3a  |=-1....  . ."i":|
000036c0  db 3a 6e 65 67 69 6d 70  65 72 66 25 3d 2d 31 0d  |.:negimperf%=-1.|
000036d0  13 38 1a 20 20 c9 20 97  22 77 22 3a db 3a 6e 65  |.8.  . ."w":.:ne|
000036e0  67 70 65 72 66 25 3d 2d  31 0d 13 42 1a 20 20 c9  |gperf%=-1..B.  .|
000036f0  20 97 22 78 22 3a db 3a  6e 65 67 70 6c 75 70 25  | ."x":.:negplup%|
00003700  3d 2d 31 0d 13 4c 1a 20  20 c9 20 97 22 79 22 3a  |=-1..L.  . ."y":|
00003710  db 3a 6e 65 67 66 70 72  66 25 3d 2d 31 0d 13 56  |.:negfprf%=-1..V|
00003720  1a 20 20 c9 20 97 22 7a  22 3a db 3a 6e 65 67 70  |.  . ."z":.:negp|
00003730  63 6f 6e 25 3d 2d 31 0d  13 60 19 20 20 c9 20 97  |con%=-1..`.  . .|
00003740  22 66 22 3a db 3a 6e 65  67 66 75 74 25 3d 2d 31  |"f":.:negfut%=-1|
00003750  0d 13 6a 1a 20 20 c9 20  97 22 73 22 3a db 3a 6e  |..j.  . ."s":.:n|
00003760  65 67 73 75 62 6a 25 3d  2d 31 0d 13 74 19 20 20  |egsubj%=-1..t.  |
00003770  c9 20 97 22 63 22 3a db  3a 6e 65 67 63 6f 6e 25  |. ."c":.:negcon%|
00003780  3d 2d 31 0d 13 7e 1d 20  20 c9 20 97 22 6e 22 3a  |=-1..~.  . ."n":|
00003790  db 3a f2 6e 65 67 61 74  69 76 65 5f 6d 65 6e 75  |.:.negative_menu|
000037a0  0d 13 88 14 20 20 c9 20  97 22 71 22 3a db 3a f2  |....  . ."q":.:.|
000037b0  71 75 69 74 0d 13 92 06  20 7f 0d 13 9c 12 20 20  |quit.... .....  |
000037c0  f2 77 68 69 63 68 5f 74  65 6e 73 65 0d 13 a6 06  |.which_tense....|
000037d0  20 cb 0d 13 b0 05 cc 0d  13 ba 0d 20 c8 8e 20 63  | .......... .. c|
000037e0  68 25 20 ca 0d 13 c4 17  20 20 c9 20 97 22 70 22  |h% .....  . ."p"|
000037f0  3a db 3a 70 72 65 73 25  3d 2d 31 0d 13 ce 19 20  |:.:pres%=-1.... |
00003800  20 c9 20 97 22 69 22 3a  db 3a 69 6d 70 65 72 66  | . ."i":.:imperf|
00003810  25 3d 2d 31 0d 13 d8 17  20 20 c9 20 97 22 77 22  |%=-1....  . ."w"|
00003820  3a db 3a 70 65 72 66 25  3d 2d 31 0d 13 e2 17 20  |:.:perf%=-1.... |
00003830  20 c9 20 97 22 78 22 3a  db 3a 70 6c 75 70 25 3d  | . ."x":.:plup%=|
00003840  2d 31 0d 13 ec 17 20 20  c9 20 97 22 79 22 3a db  |-1....  . ."y":.|
00003850  3a 66 70 72 66 25 3d 2d  31 0d 13 f6 17 20 20 c9  |:fprf%=-1....  .|
00003860  20 97 22 7a 22 3a db 3a  70 63 6f 6e 25 3d 2d 31  | ."z":.:pcon%=-1|
00003870  0d 14 00 16 20 20 c9 20  97 22 66 22 3a db 3a 66  |....  . ."f":.:f|
00003880  75 74 25 3d 2d 31 0d 14  0a 17 20 20 c9 20 97 22  |ut%=-1....  . ."|
00003890  73 22 3a db 3a 73 75 62  6a 25 3d 2d 31 0d 14 14  |s":.:subj%=-1...|
000038a0  16 20 20 c9 20 97 22 63  22 3a db 3a 63 6f 6e 25  |.  . ."c":.:con%|
000038b0  3d 2d 31 0d 14 1e 1d 20  20 c9 20 97 22 6e 22 3a  |=-1....  . ."n":|
000038c0  db 3a f2 6e 65 67 61 74  69 76 65 5f 6d 65 6e 75  |.:.negative_menu|
000038d0  0d 14 28 14 20 20 c9 20  97 22 71 22 3a db 3a f2  |..(.  . ."q":.:.|
000038e0  71 75 69 74 0d 14 32 19  20 20 c9 20 97 22 6d 22  |quit..2.  . ."m"|
000038f0  3a db 3a 6d 79 66 69 6c  65 25 3d 2d 31 0d 14 3c  |:.:myfile%=-1..<|
00003900  06 20 7f 0d 14 46 12 20  20 f2 77 68 69 63 68 5f  |. ...F.  .which_|
00003910  74 65 6e 73 65 0d 14 50  05 cb 0d 14 5a 05 cd 0d  |tense..P....Z...|
00003920  14 64 05 e1 0d 14 6e 04  0d 14 78 15 dd f2 77 68  |.d....n...x...wh|
00003930  69 63 68 5f 74 65 73 74  5f 74 79 70 65 0d 14 82  |ich_test_type...|
00003940  19 ee 3a 74 72 61 6e 73  25 3d 30 3a db 3a f2 62  |..:trans%=0:.:.b|
00003950  6c 75 65 3a fb 37 0d 14  8c 31 f1 8a 31 2c 38 29  |lue:.7...1..1,8)|
00003960  22 59 6f 75 20 63 61 6e  20 73 65 74 20 61 20 27  |"You can set a '|
00003970  74 72 61 6e 73 6c 61 74  69 6f 6e 27 20 74 79 70  |translation' typ|
00003980  65 20 74 65 73 74 22 0d  14 96 35 fb 33 3a f1 8a  |e test"...5.3:..|
00003990  32 2c 31 31 29 22 65 67  20 55 73 65 20 27 41 4c  |2,11)"eg Use 'AL|
000039a0  4c 45 52 27 20 74 6f 20  73 61 79 20 27 74 68 65  |LER' to say 'the|
000039b0  79 20 77 65 6e 74 20 28  6d 29 27 22 0d 14 a0 2d  |y went (m)'"...-|
000039c0  fb 37 3a f1 8a 31 2c 31  35 29 22 6f 72 20 61 20  |.7:..1,15)"or a |
000039d0  73 74 72 61 69 67 68 74  20 76 65 72 62 20 71 75  |straight verb qu|
000039e0  65 73 74 69 6f 6e 20 3a  22 0d 14 aa 23 fb 32 3a  |estion :"...#.2:|
000039f0  f1 8a 32 2c 31 38 29 22  65 67 20 27 6a 65 20 28  |..2,18)"eg 'je (|
00003a00  41 4c 4c 45 52 29 20 3d  20 3f 27 22 0d 14 b4 30  |ALLER) = ?'"...0|
00003a10  fb 36 3a f1 8a 31 2c 32  34 29 22 54 72 61 6e 73  |.6:..1,24)"Trans|
00003a20  6c 61 74 69 6f 6e 2d 74  79 70 65 20 2d 20 20 59  |lation-type -  Y|
00003a30  20 6f 72 20 4e 20 20 3a  20 20 22 3b 0d 14 be 1c  | or N  :  ";....|
00003a40  c8 99 22 4f 53 5f 43 6f  6e 66 69 72 6d 22 20 b8  |.."OS_Confirm" .|
00003a50  20 63 68 25 3a db 3a 87  0d 14 c8 0c c8 8e 20 63  | ch%:.:....... c|
00003a60  68 25 20 ca 0d 14 d2 14  c9 20 97 22 79 22 3a 74  |h% ...... ."y":t|
00003a70  72 61 6e 73 25 3d 2d 31  0d 14 dc 05 cb 0d 14 e6  |rans%=-1........|
00003a80  05 e1 0d 14 f0 04 0d 14  fa 0f dd f2 6d 61 6b 65  |............make|
00003a90  5f 74 65 73 74 0d 15 04  0e ea 20 73 24 2c 63 24  |_test..... s$,c$|
00003aa0  2c 6c 25 0d 15 0e 10 f2  77 68 69 63 68 5f 74 65  |,l%.....which_te|
00003ab0  6e 73 65 0d 15 18 04 0d  15 22 22 e7 20 73 75 62  |nse......"". sub|
00003ac0  6a 25 20 84 20 6e 65 67  73 75 62 6a 25 20 84 20  |j% . negsubj% . |
00003ad0  6d 79 66 69 6c 65 25 20  8c 0d 15 2c 1f e7 20 73  |myfile% ...,.. s|
00003ae0  75 62 6a 25 20 84 20 6e  65 67 73 75 62 6a 25 20  |ubj% . negsubj% |
00003af0  74 72 61 6e 73 25 3d 30  0d 15 36 17 e7 20 6d 79  |trans%=0..6.. my|
00003b00  66 69 6c 65 25 20 74 72  61 6e 73 25 3d 2d 31 0d  |file% trans%=-1.|
00003b10  15 40 05 cc 0d 15 4a 14  f2 77 68 69 63 68 5f 74  |.@....J..which_t|
00003b20  65 73 74 5f 74 79 70 65  0d 15 54 05 cd 0d 15 5e  |est_type..T....^|
00003b30  04 0d 15 68 0d f2 67 65  74 5f 64 61 74 61 0d 15  |...h..get_data..|
00003b40  72 25 e7 20 64 61 74 61  25 3c 31 30 20 6e 75 6d  |r%. data%<10 num|
00003b50  62 65 72 25 3d 64 61 74  61 25 20 8b 20 f2 68 5f  |ber%=data% . .h_|
00003b60  6d 5f 71 0d 15 7c 0e f2  76 61 72 69 61 62 6c 65  |m_q..|..variable|
00003b70  73 0d 15 86 18 6f 75 74  25 3d ae 28 22 52 41 4d  |s....out%=.("RAM|
00003b80  3a 24 2e 54 65 73 74 22  29 0d 15 90 32 db 3a ee  |:$.Test")...2.:.|
00003b90  3a fb 33 3a f1 8a 32 2c  31 35 29 22 4e 6f 77 20  |:.3:..2,15)"Now |
00003ba0  63 72 65 61 74 69 6e 67  20 74 68 65 20 74 65 73  |creating the tes|
00003bb0  74 20 69 6e 20 52 41 4d  20 22 3b 0d 15 9a 28 e7  |t in RAM ";...(.|
00003bc0  20 ac 20 73 75 62 6a 25  20 80 20 ac 20 6d 79 66  | . subj% . . myf|
00003bd0  69 6c 65 25 20 80 20 ac  20 6e 65 67 73 75 62 6a  |ile% . . negsubj|
00003be0  25 20 8c 0d 15 a4 2e d5  23 6f 75 74 25 2c 28 22  |% ......#out%,("|
00003bf0  20 20 54 68 69 73 20 69  73 20 61 20 74 65 73 74  |  This is a test|
00003c00  20 6f 6e 20 74 68 65 20  22 2b 74 65 6e 73 65 24  | on the "+tense$|
00003c10  29 0d 15 ae 05 cd 0d 15  b8 49 e7 20 73 75 62 6a  |)........I. subj|
00003c20  25 20 84 20 6e 65 67 73  75 62 6a 25 20 d5 23 6f  |% . negsubj% .#o|
00003c30  75 74 25 2c 28 22 20 20  54 68 69 73 20 69 73 20  |ut%,("  This is |
00003c40  61 20 74 65 73 74 20 6f  6e 20 74 68 65 20 22 2b  |a test on the "+|
00003c50  74 65 6e 73 65 24 2b 22  20 4d 6f 6f 64 22 29 0d  |tense$+" Mood").|
00003c60  15 c2 42 e7 20 6d 79 66  69 6c 65 25 20 d5 23 6f  |..B. myfile% .#o|
00003c70  75 74 25 2c 28 22 20 20  54 68 69 73 20 69 73 20  |ut%,("  This is |
00003c80  61 20 74 65 73 74 20 6f  6e 20 74 68 65 20 27 22  |a test on the '"|
00003c90  2b 74 65 6e 73 65 24 2b  22 27 20 46 69 6c 65 22  |+tense$+"' File"|
00003ca0  29 0d 15 cc 17 d5 23 6f  75 74 25 2c 22 22 3a d5  |).....#out%,"":.|
00003cb0  23 6f 75 74 25 2c 22 22  0d 15 d6 13 e3 20 59 3d  |#out%,""..... Y=|
00003cc0  31 20 b8 20 6e 75 6d 62  65 72 25 0d 15 e0 0e e7  |1 . number%.....|
00003cd0  20 74 72 61 6e 73 25 20  8c 0d 15 ea 0e 20 20 e7  | trans% .....  .|
00003ce0  20 59 3c 31 30 20 8c 0d  15 f4 42 20 20 20 20 20  | Y<10 ....B     |
00003cf0  71 24 3d 28 22 20 20 20  22 2b c3 28 59 29 2b 22  |q$=("   "+.(Y)+"|
00003d00  2e 20 55 73 65 20 27 22  2b 69 6e 66 24 28 59 29  |. Use '"+inf$(Y)|
00003d10  2b 22 27 20 74 6f 20 73  61 79 20 3e 3e 20 22 2b  |+"' to say >> "+|
00003d20  65 6e 67 4d 24 28 59 29  29 0d 15 fe 09 20 20 20  |engM$(Y))....   |
00003d30  20 cc 0d 16 08 41 20 20  20 20 20 71 24 3d 28 22  | ....A     q$=("|
00003d40  20 20 22 2b c3 28 59 29  2b 22 2e 20 55 73 65 20  |  "+.(Y)+". Use |
00003d50  27 22 2b 69 6e 66 24 28  59 29 2b 22 27 20 74 6f  |'"+inf$(Y)+"' to|
00003d60  20 73 61 79 20 3e 3e 20  22 2b 65 6e 67 4d 24 28  | say >> "+engM$(|
00003d70  59 29 29 0d 16 12 07 20  20 cd 0d 16 1c 0d d5 23  |Y))....  ......#|
00003d80  6f 75 74 25 2c 71 24 0d  16 26 26 cc 20 3a 20 f4  |out%,q$..&&. : .|
00003d90  20 69 65 20 69 66 20 4e  4f 54 20 61 20 74 72 61  | ie if NOT a tra|
00003da0  6e 73 6c 61 74 69 6f 6e  20 74 65 73 74 0d 16 30  |nslation test..0|
00003db0  04 0d 16 3a 1b 20 20 20  e7 20 73 75 62 6a 25 20  |...:.   . subj% |
00003dc0  84 20 6e 65 67 73 75 62  6a 25 20 8c 0d 16 44 1d  |. negsubj% ...D.|
00003dd0  20 20 20 20 20 73 75 62  6a 65 63 74 24 3d c0 66  |     subject$=.f|
00003de0  72 51 24 28 59 29 2c 35  29 0d 16 4e 29 20 20 20  |rQ$(Y),5)..N)   |
00003df0  20 20 e7 20 a7 73 75 62  6a 65 63 74 24 2c 22 6a  |  . .subject$,"j|
00003e00  65 22 29 3c 3e 30 20 73  24 3d 22 71 75 65 20 6a  |e")<>0 s$="que j|
00003e10  65 22 0d 16 58 29 20 20  20 20 20 e7 20 a7 73 75  |e"..X)     . .su|
00003e20  62 6a 65 63 74 24 2c 22  6a 27 22 29 3c 3e 30 20  |bject$,"j'")<>0 |
00003e30  73 24 3d 22 71 75 65 20  6a 27 22 0d 16 62 29 20  |s$="que j'"..b) |
00003e40  20 20 20 20 e7 20 a7 73  75 62 6a 65 63 74 24 2c  |    . .subject$,|
00003e50  22 74 75 22 29 3c 3e 30  20 73 24 3d 22 71 75 65  |"tu")<>0 s$="que|
00003e60  20 74 75 22 0d 16 6c 1f  20 20 20 20 20 e7 20 a7  | tu"..l.     . .|
00003e70  73 75 62 6a 65 63 74 24  2c 22 69 6c 22 29 3c 3e  |subject$,"il")<>|
00003e80  30 20 8c 0d 16 76 36 20  20 20 20 20 e7 20 c0 73  |0 ...v6     . .s|
00003e90  75 62 6a 65 63 74 24 2c  33 29 3d 22 69 6c 20 22  |ubject$,3)="il "|
00003ea0  20 73 24 3d 22 71 75 27  69 6c 22 20 8b 20 73 24  | s$="qu'il" . s$|
00003eb0  3d 22 71 75 27 69 6c 73  22 0d 16 80 0a 20 20 20  |="qu'ils"....   |
00003ec0  20 20 cd 0d 16 8a 21 20  20 20 20 20 e7 20 a7 73  |  ....!     . .s|
00003ed0  75 62 6a 65 63 74 24 2c  22 65 6c 6c 65 22 29 3c  |ubject$,"elle")<|
00003ee0  3e 30 20 8c 0d 16 94 38  20 20 20 20 20 e7 20 73  |>0 ....8     . s|
00003ef0  75 62 6a 65 63 74 24 3d  22 65 6c 6c 65 20 22 20  |ubject$="elle " |
00003f00  73 24 3d 22 71 75 27 65  6c 6c 65 22 20 8b 20 73  |s$="qu'elle" . s|
00003f10  24 3d 22 71 75 27 65 6c  6c 65 73 22 0d 16 9e 0a  |$="qu'elles"....|
00003f20  20 20 20 20 20 cd 0d 16  a8 28 20 20 20 20 20 e7  |     ....(     .|
00003f30  20 a7 73 75 62 6a 65 63  74 24 2c 22 6f 6e 22 29  | .subject$,"on")|
00003f40  3c 3e 30 20 73 24 3d 22  71 75 27 6f 6e 22 0d 16  |<>0 s$="qu'on"..|
00003f50  b2 2d 20 20 20 20 20 e7  20 a7 73 75 62 6a 65 63  |.-     . .subjec|
00003f60  74 24 2c 22 6e 6f 75 73  22 29 3c 3e 30 20 73 24  |t$,"nous")<>0 s$|
00003f70  3d 22 71 75 65 20 6e 6f  75 73 22 0d 16 bc 2d 20  |="que nous"...- |
00003f80  20 20 20 20 e7 20 a7 73  75 62 6a 65 63 74 24 2c  |    . .subject$,|
00003f90  22 76 6f 75 73 22 29 3c  3e 30 20 73 24 3d 22 71  |"vous")<>0 s$="q|
00003fa0  75 65 20 76 6f 75 73 22  0d 16 c6 08 20 20 20 cc  |ue vous"....   .|
00003fb0  0d 16 d0 1d 20 20 20 20  20 73 75 62 6a 65 63 74  |....     subject|
00003fc0  24 3d c0 66 72 51 24 28  59 29 2c 35 29 0d 16 da  |$=.frQ$(Y),5)...|
00003fd0  25 20 20 20 20 20 e7 20  a7 73 75 62 6a 65 63 74  |%     . .subject|
00003fe0  24 2c 22 6a 65 22 29 3c  3e 30 20 73 24 3d 22 6a  |$,"je")<>0 s$="j|
00003ff0  65 22 0d 16 e4 25 20 20  20 20 20 e7 20 a7 73 75  |e"...%     . .su|
00004000  62 6a 65 63 74 24 2c 22  6a 27 22 29 3c 3e 30 20  |bject$,"j'")<>0 |
00004010  73 24 3d 22 6a 27 22 0d  16 ee 25 20 20 20 20 20  |s$="j'"...%     |
00004020  e7 20 a7 73 75 62 6a 65  63 74 24 2c 22 74 75 22  |. .subject$,"tu"|
00004030  29 3c 3e 30 20 73 24 3d  22 74 75 22 0d 16 f8 1f  |)<>0 s$="tu"....|
00004040  20 20 20 20 20 e7 20 a7  73 75 62 6a 65 63 74 24  |     . .subject$|
00004050  2c 22 69 6c 22 29 3c 3e  30 20 8c 0d 17 02 30 20  |,"il")<>0 ....0 |
00004060  20 20 20 20 e7 20 c0 73  75 62 6a 65 63 74 24 2c  |    . .subject$,|
00004070  33 29 3d 22 69 6c 20 22  20 73 24 3d 22 69 6c 22  |3)="il " s$="il"|
00004080  20 8b 20 73 24 3d 22 69  6c 73 22 0d 17 0c 0a 20  | . s$="ils".... |
00004090  20 20 20 20 cd 0d 17 16  21 20 20 20 20 20 e7 20  |    ....!     . |
000040a0  a7 73 75 62 6a 65 63 74  24 2c 22 65 6c 6c 65 22  |.subject$,"elle"|
000040b0  29 3c 3e 30 20 8c 0d 17  20 32 20 20 20 20 20 e7  |)<>0 ... 2     .|
000040c0  20 73 75 62 6a 65 63 74  24 3d 22 65 6c 6c 65 20  | subject$="elle |
000040d0  22 20 73 24 3d 22 65 6c  6c 65 22 20 8b 20 73 24  |" s$="elle" . s$|
000040e0  3d 22 65 6c 6c 65 73 22  0d 17 2a 0a 20 20 20 20  |="elles"..*.    |
000040f0  20 cd 0d 17 34 25 20 20  20 20 20 e7 20 a7 73 75  | ...4%     . .su|
00004100  62 6a 65 63 74 24 2c 22  6f 6e 22 29 3c 3e 30 20  |bject$,"on")<>0 |
00004110  73 24 3d 22 6f 6e 22 0d  17 3e 29 20 20 20 20 20  |s$="on"..>)     |
00004120  e7 20 a7 73 75 62 6a 65  63 74 24 2c 22 6e 6f 75  |. .subject$,"nou|
00004130  73 22 29 3c 3e 30 20 73  24 3d 22 6e 6f 75 73 22  |s")<>0 s$="nous"|
00004140  0d 17 48 29 20 20 20 20  20 e7 20 a7 73 75 62 6a  |..H)     . .subj|
00004150  65 63 74 24 2c 22 76 6f  75 73 22 29 3c 3e 30 20  |ect$,"vous")<>0 |
00004160  73 24 3d 22 76 6f 75 73  22 0d 17 52 08 20 20 20  |s$="vous"..R.   |
00004170  cd 0d 17 5c 04 0d 17 66  0e 20 20 e7 20 59 3c 31  |...\...f.  . Y<1|
00004180  30 20 8c 0d 17 70 35 20  20 20 20 71 24 3d 28 22  |0 ...p5    q$=("|
00004190  20 20 20 22 2b c3 28 59  29 2b 22 2e 20 22 2b 73  |   "+.(Y)+". "+s|
000041a0  24 2b 22 20 28 22 2b 69  6e 66 24 28 59 29 2b 22  |$+" ("+inf$(Y)+"|
000041b0  29 20 20 3d 20 20 22 29  0d 17 7a 09 20 20 20 20  |)  =  ")..z.    |
000041c0  cc 0d 17 84 34 20 20 20  20 71 24 3d 28 22 20 20  |....4    q$=("  |
000041d0  22 2b c3 28 59 29 2b 22  2e 20 22 2b 73 24 2b 22  |"+.(Y)+". "+s$+"|
000041e0  20 28 22 2b 69 6e 66 24  28 59 29 2b 22 29 20 20  | ("+inf$(Y)+")  |
000041f0  3d 20 20 22 29 0d 17 8e  07 20 20 cd 0d 17 98 0d  |=  ")....  .....|
00004200  d5 23 6f 75 74 25 2c 71  24 0d 17 a2 05 cd 0d 17  |.#out%,q$.......|
00004210  ac 05 ed 0d 17 b6 35 d5  23 6f 75 74 25 2c 22 22  |......5.#out%,""|
00004220  3a d5 23 6f 75 74 25 2c  22 22 3a d5 23 6f 75 74  |:.#out%,"":.#out|
00004230  25 2c 22 22 3a d5 23 6f  75 74 25 2c 22 22 3a d5  |%,"":.#out%,"":.|
00004240  23 6f 75 74 25 2c 22 22  0d 17 c0 04 0d 17 ca 4a  |#out%,"".......J|
00004250  f4 20 2d 2d 2d 2d 2d 20  54 68 65 20 66 6f 6c 6c  |. ----- The foll|
00004260  6f 77 69 6e 67 20 49 46  20 6c 69 6e 65 73 20 65  |owing IF lines e|
00004270  6e 73 75 72 65 20 61 20  6e 65 77 20 70 61 67 65  |nsure a new page|
00004280  20 66 6f 72 20 74 68 65  20 61 6e 73 77 65 72 73  | for the answers|
00004290  20 6f 6e 20 41 34 0d 17  d4 38 f4 20 2d 2d 2d 2d  | on A4...8. ----|
000042a0  2d 20 69 66 20 74 68 65  20 6e 75 6d 62 65 72 20  |- if the number |
000042b0  6f 66 20 71 75 65 73 74  69 6f 6e 73 20 62 65 74  |of questions bet|
000042c0  77 65 65 6e 20 32 36 20  61 6e 64 20 35 30 0d 17  |ween 26 and 50..|
000042d0  de 04 0d 17 e8 1f e7 20  6e 75 6d 62 65 72 25 3e  |....... number%>|
000042e0  32 35 20 80 20 6e 75 6d  62 65 72 25 3c 35 31 20  |25 . number%<51 |
000042f0  8c 0d 17 f2 1e 70 61 67  65 66 69 6c 6c 25 3d 28  |.....pagefill%=(|
00004300  28 35 30 2d 6e 75 6d 62  65 72 25 29 2b 39 29 0d  |(50-number%)+9).|
00004310  17 fc 21 e3 20 59 3d 31  20 b8 20 70 61 67 65 66  |..!. Y=1 . pagef|
00004320  69 6c 6c 25 3a d5 23 6f  75 74 25 2c 22 22 3a ed  |ill%:.#out%,"":.|
00004330  0d 18 06 05 cd 0d 18 10  04 0d 18 1a 22 d5 23 6f  |............".#o|
00004340  75 74 25 2c 22 20 20 41  6e 73 77 65 72 73 20 3a  |ut%,"  Answers :|
00004350  22 3a d5 23 6f 75 74 25  2c 22 22 0d 18 24 12 76  |":.#out%,""..$.v|
00004360  6f 77 65 6c 24 3d 22 61  65 69 6f 75 22 0d 18 2e  |owel$="aeiou"...|
00004370  13 e3 20 59 3d 31 20 b8  20 6e 75 6d 62 65 72 25  |.. Y=1 . number%|
00004380  0d 18 38 18 e7 20 73 75  62 6a 25 20 84 20 6e 65  |..8.. subj% . ne|
00004390  67 73 75 62 6a 25 20 8c  0d 18 42 12 76 24 3d c0  |gsubj% ...B.v$=.|
000043a0  66 72 51 24 28 59 29 2c  31 29 0d 18 4c 45 e7 a7  |frQ$(Y),1)..LE..|
000043b0  76 6f 77 65 6c 24 2c 76  24 29 3c 3e 30 66 72 51  |vowel$,v$)<>0frQ|
000043c0  24 28 59 29 3d 28 22 71  75 27 22 2b 66 72 51 24  |$(Y)=("qu'"+frQ$|
000043d0  28 59 29 29 20 8b 20 66  72 51 24 28 59 29 3d 28  |(Y)) . frQ$(Y)=(|
000043e0  22 71 75 65 20 22 2b 66  72 51 24 28 59 29 29 0d  |"que "+frQ$(Y)).|
000043f0  18 56 05 cd 0d 18 60 17  6c 25 3d a9 28 66 72 51  |.V....`.l%=.(frQ|
00004400  24 28 59 29 29 3a 6e 24  3d 22 22 0d 18 6a 0f 20  |$(Y)):n$=""..j. |
00004410  e3 20 4c 3d 31 20 b8 20  6c 25 0d 18 74 15 20 66  |. L=1 . l%..t. f|
00004420  24 3d c1 66 72 51 24 28  59 29 2c 4c 2c 31 29 0d  |$=.frQ$(Y),L,1).|
00004430  18 7e 1a 20 e7 20 66 24  3d bd 28 36 34 29 20 20  |.~. . f$=.(64)  |
00004440  66 24 3d bd 28 32 32 34  29 0d 18 88 1a 20 e7 20  |f$=.(224).... . |
00004450  66 24 3d bd 28 39 33 29  20 20 66 24 3d bd 28 32  |f$=.(93)  f$=.(2|
00004460  32 36 29 0d 18 92 1a 20  e7 20 66 24 3d bd 28 39  |26).... . f$=.(9|
00004470  32 29 20 20 66 24 3d bd  28 32 33 31 29 0d 18 9c  |2)  f$=.(231)...|
00004480  1a 20 e7 20 66 24 3d bd  28 39 31 29 20 20 66 24  |. . f$=.(91)  f$|
00004490  3d bd 28 32 33 34 29 0d  18 a6 1a 20 e7 20 66 24  |=.(234).... . f$|
000044a0  3d bd 28 31 32 35 29 20  66 24 3d bd 28 32 33 32  |=.(125) f$=.(232|
000044b0  29 0d 18 b0 1a 20 e7 20  66 24 3d bd 28 31 32 33  |).... . f$=.(123|
000044c0  29 20 66 24 3d bd 28 32  33 33 29 0d 18 ba 1a 20  |) f$=.(233).... |
000044d0  e7 20 66 24 3d bd 28 31  32 36 29 20 66 24 3d bd  |. f$=.(126) f$=.|
000044e0  28 32 33 38 29 0d 18 c4  1a 20 e7 20 66 24 3d bd  |(238).... . f$=.|
000044f0  28 33 35 29 20 20 66 24  3d bd 28 32 34 34 29 0d  |(35)  f$=.(244).|
00004500  18 ce 1a 20 e7 20 66 24  3d bd 28 31 32 34 29 20  |... . f$=.(124) |
00004510  66 24 3d bd 28 32 34 39  29 0d 18 d8 1a 20 e7 20  |f$=.(249).... . |
00004520  66 24 3d bd 28 33 36 29  20 20 66 24 3d bd 28 32  |f$=.(36)  f$=.(2|
00004530  35 31 29 0d 18 e2 1a 20  e7 20 66 24 3d bd 28 39  |51).... . f$=.(9|
00004540  34 29 20 20 66 24 3d bd  28 32 33 35 29 0d 18 ec  |4)  f$=.(235)...|
00004550  1a 20 e7 20 66 24 3d bd  28 39 36 29 20 20 66 24  |. . f$=.(96)  f$|
00004560  3d bd 28 32 33 39 29 0d  18 f6 0b 20 6e 24 2b 3d  |=.(239).... n$+=|
00004570  66 24 0d 19 00 08 20 ed  20 4c 0d 19 0a 0c e7 20  |f$.... . L..... |
00004580  59 3c 31 30 20 8c 0d 19  14 1f d5 23 6f 75 74 25  |Y<10 ......#out%|
00004590  2c 28 22 20 20 20 22 2b  c3 28 59 29 2b 22 2e 20  |,("   "+.(Y)+". |
000045a0  22 2b 6e 24 29 0d 19 1e  05 cc 0d 19 28 1e d5 23  |"+n$).......(..#|
000045b0  6f 75 74 25 2c 28 22 20  20 22 2b c3 28 59 29 2b  |out%,("  "+.(Y)+|
000045c0  22 2e 20 22 2b 6e 24 29  0d 19 32 05 cd 0d 19 3c  |". "+n$)..2....<|
000045d0  05 ed 0d 19 46 17 d5 23  6f 75 74 25 2c 22 22 3a  |....F..#out%,"":|
000045e0  d5 23 6f 75 74 25 2c 22  22 0d 19 50 47 d5 23 6f  |.#out%,""..PG.#o|
000045f0  75 74 25 2c 22 20 20 56  65 72 62 54 65 73 74 20  |ut%,"  VerbTest |
00004600  50 72 6f 67 72 61 6d 20  a9 20 67 72 61 68 61 6d  |Program . graham|
00004610  20 63 61 6d 70 62 65 6c  6c 20 2d 20 4d 61 79 20  | campbell - May |
00004620  31 39 39 35 20 2d 20 46  72 65 65 57 61 72 65 22  |1995 - FreeWare"|
00004630  0d 19 5a 11 d9 23 6f 75  74 25 3a 6f 75 74 25 3d  |..Z..#out%:out%=|
00004640  30 0d 19 64 0d 77 25 3d  a6 28 31 35 30 29 0d 19  |0..d.w%=.(150)..|
00004650  6e 35 ff 22 53 45 54 54  59 50 45 20 52 41 4d 3a  |n5."SETTYPE RAM:|
00004660  24 2e 54 65 73 74 20 26  66 66 66 22 3a ff 22 46  |$.Test &fff":."F|
00004670  69 6c 65 72 5f 4f 70 65  6e 44 69 72 20 52 41 4d  |iler_OpenDir RAM|
00004680  3a 24 22 0d 19 78 05 e1  0d 19 82 04 0d 19 8c 13  |:$"..x..........|
00004690  dd f2 6e 65 67 61 74 69  76 65 5f 6d 65 6e 75 0d  |..negative_menu.|
000046a0  19 96 23 ee 3a db 3a f2  72 65 64 3a 6d 79 66 69  |..#.:.:.red:myfi|
000046b0  6c 65 25 3d 30 3a 70 72  69 6e 74 74 65 73 74 25  |le%=0:printtest%|
000046c0  3d 30 0d 19 a0 06 fb 33  0d 19 aa 2a f1 8a 32 2c  |=0.....3...*..2,|
000046d0  31 29 22 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |1)"=============|
000046e0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
000046f0  3d 22 0d 19 b4 2a f1 8a  32 2c 32 29 22 43 68 6f  |="...*..2,2)"Cho|
00004700  6f 73 65 20 79 6f 75 72  20 4e 65 67 61 74 69 76  |ose your Negativ|
00004710  65 20 56 65 72 62 20 46  6f 72 6d 22 0d 19 be 2a  |e Verb Form"...*|
00004720  f1 8a 32 2c 33 29 22 3d  3d 3d 3d 3d 3d 3d 3d 3d  |..2,3)"=========|
00004730  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00004740  3d 3d 3d 3d 3d 22 0d 19  c8 2a fb 37 3a f1 8a 32  |====="...*.7:..2|
00004750  2c 36 29 22 50 72 65 73  73 20 20 50 20 20 66 6f  |,6)"Press  P  fo|
00004760  72 20 50 72 65 73 65 6e  74 20 54 65 6e 73 65 22  |r Present Tense"|
00004770  0d 19 d2 2c fb 36 3a f1  8a 32 2c 38 29 22 50 72  |...,.6:..2,8)"Pr|
00004780  65 73 73 20 20 49 20 20  66 6f 72 20 49 6d 70 65  |ess  I  for Impe|
00004790  72 66 65 63 74 20 54 65  6e 73 65 22 0d 19 dc 2b  |rfect Tense"...+|
000047a0  fb 37 3a f1 8a 32 2c 31  31 29 22 50 72 65 73 73  |.7:..2,11)"Press|
000047b0  20 20 57 20 20 66 6f 72  20 50 65 72 66 65 63 74  |  W  for Perfect|
000047c0  20 54 65 6e 73 65 22 0d  19 e6 2e fb 36 3a f1 8a  | Tense".....6:..|
000047d0  32 2c 31 32 29 22 50 72  65 73 73 20 20 58 20 20  |2,12)"Press  X  |
000047e0  66 6f 72 20 50 6c 75 70  65 72 66 65 63 74 20 54  |for Pluperfect T|
000047f0  65 6e 73 65 22 0d 19 f0  32 fb 37 3a f1 8a 32 2c  |ense"...2.7:..2,|
00004800  31 33 29 22 50 72 65 73  73 20 20 59 20 20 66 6f  |13)"Press  Y  fo|
00004810  72 20 46 75 74 75 72 65  20 50 65 72 66 65 63 74  |r Future Perfect|
00004820  20 54 65 6e 73 65 22 0d  19 fa 32 fb 36 3a f1 8a  | Tense"...2.6:..|
00004830  32 2c 31 34 29 22 50 72  65 73 73 20 20 5a 20 20  |2,14)"Press  Z  |
00004840  66 6f 72 20 43 6f 6e 64  69 74 2e 50 65 72 66 65  |for Condit.Perfe|
00004850  63 74 20 54 65 6e 73 65  22 0d 1a 04 2a fb 37 3a  |ct Tense"...*.7:|
00004860  f1 8a 32 2c 31 37 29 22  50 72 65 73 73 20 20 46  |..2,17)"Press  F|
00004870  20 20 66 6f 72 20 46 75  74 75 72 65 20 54 65 6e  |  for Future Ten|
00004880  73 65 22 0d 1a 0e 29 fb  36 3a f1 8a 32 2c 31 38  |se"...).6:..2,18|
00004890  29 22 50 72 65 73 73 20  20 43 20 20 66 6f 72 20  |)"Press  C  for |
000048a0  43 6f 6e 64 69 74 69 6f  6e 61 6c 22 0d 1a 18 31  |Conditional"...1|
000048b0  fb 37 3a f1 8a 32 2c 32  30 29 22 50 72 65 73 73  |.7:..2,20)"Press|
000048c0  20 20 53 20 20 66 6f 72  20 50 72 65 73 65 6e 74  |  S  for Present|
000048d0  20 53 75 62 6a 75 6e 63  74 69 76 65 22 0d 1a 22  | Subjunctive".."|
000048e0  36 fb 32 3a f1 8a 32 2c  32 33 29 22 50 72 65 73  |6.2:..2,23)"Pres|
000048f0  73 20 20 54 20 20 3d 20  6d 61 6b 65 20 61 20 54  |s  T  = make a T|
00004900  65 78 74 46 69 6c 65 20  6f 66 20 61 20 54 65 6e  |extFile of a Ten|
00004910  73 65 22 0d 1a 2c 34 fb  33 3a f1 8a 32 2c 32 34  |se"..,4.3:..2,24|
00004920  29 22 50 72 65 73 73 20  20 52 20 20 3d 20 6d 61  |)"Press  R  = ma|
00004930  6b 65 20 77 72 69 74 74  65 6e 20 54 45 53 54 20  |ke written TEST |
00004940  69 6e 20 52 41 4d 22 0d  1a 36 25 fb 34 3a f1 8a  |in RAM"..6%.4:..|
00004950  32 2c 32 36 29 22 50 72  65 73 73 20 20 51 20 20  |2,26)"Press  Q  |
00004960  74 6f 20 20 51 20 55 20  49 20 54 22 0d 1a 40 21  |to  Q U I T"..@!|
00004970  fb 33 3a f1 8a 32 2c 32  39 29 22 63 20 68 20 6f  |.3:..2,29)"c h o|
00004980  20 69 20 63 20 65 20 20  3a 20 20 22 3b 0d 1a 4a  | i c e  :  ";..J|
00004990  1a c8 99 22 4f 53 5f 43  6f 6e 66 69 72 6d 22 20  |..."OS_Confirm" |
000049a0  b8 20 63 68 25 3a 87 0d  1a 54 0c c8 8e 20 63 68  |. ch%:...T... ch|
000049b0  25 20 ca 0d 1a 5e 12 c9  20 97 22 71 22 3a db 3a  |% ...^.. ."q":.:|
000049c0  f2 71 75 69 74 0d 1a 68  18 c9 20 97 22 70 22 3a  |.quit..h.. ."p":|
000049d0  db 3a 6e 65 67 70 72 65  73 25 3d 2d 31 0d 1a 72  |.:negpres%=-1..r|
000049e0  1a c9 20 97 22 69 22 3a  db 3a 6e 65 67 69 6d 70  |.. ."i":.:negimp|
000049f0  65 72 66 25 3d 2d 31 0d  1a 7c 18 c9 20 97 22 77  |erf%=-1..|.. ."w|
00004a00  22 3a db 3a 6e 65 67 70  65 72 66 25 3d 2d 31 0d  |":.:negperf%=-1.|
00004a10  1a 86 18 c9 20 97 22 78  22 3a db 3a 6e 65 67 70  |.... ."x":.:negp|
00004a20  6c 75 70 25 3d 2d 31 0d  1a 90 18 c9 20 97 22 79  |lup%=-1..... ."y|
00004a30  22 3a db 3a 6e 65 67 66  70 72 66 25 3d 2d 31 0d  |":.:negfprf%=-1.|
00004a40  1a 9a 18 c9 20 97 22 7a  22 3a db 3a 6e 65 67 70  |.... ."z":.:negp|
00004a50  63 6f 6e 25 3d 2d 31 0d  1a a4 17 c9 20 97 22 66  |con%=-1..... ."f|
00004a60  22 3a db 3a 6e 65 67 66  75 74 25 3d 2d 31 0d 1a  |":.:negfut%=-1..|
00004a70  ae 18 c9 20 97 22 73 22  3a db 3a 6e 65 67 73 75  |... ."s":.:negsu|
00004a80  62 6a 25 3d 2d 31 0d 1a  b8 17 c9 20 97 22 63 22  |bj%=-1..... ."c"|
00004a90  3a db 3a 6e 65 67 63 6f  6e 25 3d 2d 31 0d 1a c2  |:.:negcon%=-1...|
00004aa0  25 c9 20 97 22 74 22 3a  db 3a 72 61 6d 25 3d 2d  |%. ."t":.:ram%=-|
00004ab0  31 3a f2 6d 61 6b 65 5f  66 69 6c 65 3a f2 71 75  |1:.make_file:.qu|
00004ac0  69 74 0d 1a cc 33 c9 20  97 22 72 22 3a db 3a 70  |it...3. ."r":.:p|
00004ad0  72 69 6e 74 74 65 73 74  25 3d 2d 31 3a 72 61 6d  |rinttest%=-1:ram|
00004ae0  25 3d 2d 31 3a f2 6d 61  6b 65 5f 74 65 73 74 3a  |%=-1:.make_test:|
00004af0  f2 71 75 69 74 0d 1a d6  05 7f 0d 1a e0 12 f2 6e  |.quit..........n|
00004b00  65 67 61 74 69 76 65 5f  6d 65 6e 75 0d 1a ea 05  |egative_menu....|
00004b10  cb 0d 1a f4 05 e1 0d ff                           |........|
00004b18