F

Home » Recent acquisitions » Acorn tapes » tape008a_acorn_french_mistress_level_b.wav » F

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Recent acquisitions » Acorn tapes » tape008a_acorn_french_mistress_level_b.wav
Filename:	F
Read OK:	✔
File size:	1D97 bytes
Load address:	FFFF1900
Exec address:	FFFF8023

Duplicates

There is 1 duplicate copy of this file in the archive:

Recent acquisitions » Acorn tapes » tape007a_acorn_french_mistress_level_a.wav » F
Recent acquisitions » Acorn tapes » tape008a_acorn_french_mistress_level_b.wav » F

File contents

   10REM KOSMOS french#3
   20*KEY 10 OLD |M
   30H=TOP+2000:HIMEM=H:S=H+1:!S=&20222A22
   40FOR C=15TO39:?(S+C)=32:NEXT:PROCI
   50DIM T 17
   60DIM R 11
   70ON ERROR GOTO80
   80VDU22,7
   90*OPT1,1
  100PRINT 'T$'T$'R$ "        "STRING$(19,"x")
  110PRINT'G$"    L = "X2$''Y$"    R = "X3$''C$"    C = "X1$''G$"    S = "X4$''Y$"    V = "X5$''C$"    A = "X6$''G$"    D = "X7$''Y$"    I = "X8$''C$"    T = "X13$''
  120IF ff=2 PRINTTAB(0,11)CHR$136 R$
  130IF vf=1 PRINTTAB(0,13)CHR$136 M$
  140IF ff=0 P=0:PRINTTAB(4,23)C$ N$ CHR$136 B$ "  LESSON STORE EMPTY     "BB$
  150IF ff>0 PRINTTAB(4,23) B$ N$ W$;P" entries in lesson store "BB$
  160*FX15,1
  170Z=GET AND &DF:IF Z=67 VDU22,4:PROCcre(1)
  180IF Z=76 PROCread
  190IF Z=82 AND ff>0 PROCrun1:VDU22,5:PROCrun2
  200IF Z=83 AND ff>0 PROCsave
  210IF Z=86 PROCver
  220IF Z=65 VDU22,4:PROCcre(P+1)
  230IF Z=68 VDU22,4:PROCdel
  240IF Z=73 VDU22,4:PROCins
  250IF Z=84 AND ff>0 PROCt1:VDU22,5:PROCrun2
  260GOTO80
  270DEFPROCcre(e)
  280IF e>full PROCfull:GOTO 450
  290IF Z=65 PRINT'X6$ ELSE PRINT'X1$
  300IF e=1 AND ff<>0 PROCq:IF c=88 GOTO450
  310PRINTTAB(0,25)"type END to terminate input.   "'"type  X  to delete current entry."
  320P=e:IF e=1 M=S+48
  330IF M>MX CLS:PROCfull:GOTO 450
  340PRINTTAB(0,9)"Entry number = " P
  350PROCgetf:fr$=m$:gn=FNgetg
  360IF gn=3 PROCclear:GOTO340
  370IF gn=4 P=P-1:GOTO 440
  380PROCgete:en$=m$
  390IF en$="X" OR en$="x" PROCclear:GOTO340
  400PROCem(0):?M=gn:M=M+1:PROCem(1)
  410IF P>=full OR M>MX PROCfull:GOTO440
  420P=P+1
  430PROCclear:GOTO340
  440IF P<1 ff=0 ELSE ff=2
  450ENDPROC
  460DEFPROCfull
  470PRINTTAB(8,22)"*** FILE FULL ***":PROCw(400)
  480ENDPROC
  490DEFPROCclear:FOR C=11TO21:PRINTTAB(0,C)SPC(40):NEXT:ENDPROC
  500DEFPROCread
  510CLS:PRINT'G$ X2$
  520IF ff<>0 PROCq:IF c=88 GOTO570
  530INPUTTAB(0,4)"Filename = "fr$
  540IF LEN(fr$)>8 GOTO530
  550PROCrt(S):ff=1:P=?(S+11):M=256*?(S+13)+?(S+12)+S
  560PROCclear:VDU31,0,18:PROCti:PROCsc
  570ENDPROC
  580DEFPROCsave
  590CLS:PRINT'R$ X4$:INPUTTAB(0,4)"Filename = "fr$
  600IF fr$=""GOTO660
  610IF LEN(fr$)>8 GOTO590
  620INPUT'"Title = "en$:VDU10
  630IF LEN(en$)>24 GOTO620
  640FOR C=S+15 TO S+39:?C=32:NEXT
  650FOR C=0 TO LEN(en$)-1:?(S+C+15)=ASC(MID$(en$,C+1,1)):NEXT
  660?(S+11)=P:?(S+12)=M-S:?(S+13)=(M-S) DIV256:!(S+40)=0:!(S+44)=0:?M=28:PROCst:vf=1:ff=1
  670PROCclear:VDU31,0,18:PRINT"Lesson saved"':PROCti:PROCsc
  680ENDPROC
  690DEFPROCt1
  700CLS:PRINT'C$ X13$:PRINT'''"Do you wish to answer"'"in French or English ?    ... (F or E)":INPUTTAB(26,6)""mo$
  710IF mo$="F" OR mo$="f" mo=1 ELSE mo=0
  720IF P<6 K%=P:GOTO750
  730PRINTTAB(0,9)"How many entries"'"do you require ?          ... (1 to ";P")":INPUTTAB(26,10)""K%
  740IF K%<1 OR K%>P GOTO730
  750PRINT''''"If you require help press the TAB key."''':PROCsc:Z%=1:Q%=0
  760ENDPROC
  770DEFPROCrun1
  780CLS:Z%=0:PRINT'Y$ X3$''''"Display time -"X9$"  ... (secs)"'TAB(13)"-"X10$" ..."
  790PRINT''"Display "X9$'"or "X10$" first ?    ... (F or E)"'''"Auto repeat lesson ?  ... "X11$
  800INPUTTAB(22,5)""dyf:INPUTTAB(22,6)""dye:dye=dye*100:dyf=dyf*100
  810IF dye=0 mo=0:GOTO850
  820IF dyf=0 mo=1:GOTO850
  830INPUTTAB(22,10)""mo$:c=ASC(mo$)AND &DF:IF c<>70AND c<>69 GOTO830
  840IF c=69 mo=1 ELSE mo=0
  850INPUTTAB(22,13)""ho$:IF ho$="y" ho$="Y"
  860ENDPROC
  870DEFPROCrun2
  880VDU23;8202;0;0;0;
  890VDU23,240,16,24,4,4,24,0,0,0
  900VDU23,241,0,0,0,24,60,102,66,0
  910VDU23,242,48,48,16,0,0,0,0,0
  920IF Z%=1 PROCt2:GOTO940
  930tm=0:REPEAT:D%=0:FOR C=1 TO P:PROCdr:NEXT:UNTIL ho$<>"Y" OR tm=1
  940ENDPROC
  950DEFPROCt2
  960D%=0:R%=0:TIME=0:FOR C=1 TO K%:PROCdt:NEXT
  970CLS:COLOUR2:PRINT'X13$" results"'STRING$(19,"_")
  980COLOUR3:PRINT'''''"Total entries   ";P''"Number in test  ";K%''"Wrong answers   ";Q%''"TAB key presses ";R%''"Time taken ";TIME DIV6000"m ";(TIME MOD6000)DIV100"s"''':COLOUR2:PROCsc
  990ENDPROC
 1000DEFPROCdr
 1010PROCm:fr$=m$:D%=D%+1:G%=?(S+47+D%):PROCm:en$=m$
 1020VDU19,1,0,0,0,0,19,2,0,0,0,0
 1030CLS:PROCdi(0):PROCdi(1):c=-1:IF mo=0 PROCfc:PROCec ELSE PROCec:PROCfc
 1040*FX15,1
 1050IF c=-3 GOTO1070
 1060COLOUR3:PRINTTAB(0,26)"Entry ";C''"    X to exit or.."':PROCsc:IF c=88 tm=1:C=P
 1070ENDPROC
 1080DEFPROCdt
 1090VDU19,1,7,0,0,0,19,2,3,0,0,0
 1100V%=0:PROCm:fr$=m$:D%=D%+1:PROCm:en$=m$:IF mo=0 PROCdi(0):PROCdi(1) ELSE PROCdi(1):PROCdi(0)
 1110PROCw(80):CLS:IF V%>0 Q%=Q%+1
 1120*FX15,1
 1130ENDPROC
 1140DEFPROCdi(fe)
 1150IF fe=0 m$=fr$:Y=4 ELSE m$=en$:Y=12
 1160IF LEN(fr$)>20 OR LEN(en$)>20 X=0 ELSE X=(20-LEN(m$))DIV2
 1170COLOUR fe+1:VDU31,X,Y:FOR M% = 1 TO LEN(m$)
 1180IF (M%=21 OR M%=41) AND POS<>0 PRINT
 1190IF POS=0 PRINT
 1200NC$=MID$(m$,M%,1)
 1210IF Z%=1 AND fe<>mo PROCts
 1220IF NC$="^" NC$=CHR$241
 1230IF NC$="'" NC$=CHR$242
 1240IF NC$="/" OR NC$="\" OR NC$=CHR$241 VDU 11,8:PRINT NC$;:VDU10:GOTO1260
 1250IF NC$="@"VDU8,10,240,11 ELSE PRINT NC$;
 1260NEXT
 1270ENDPROC
 1280DEFPROCec
 1290IF dye=0 GOTO1310
 1300VDU19,2,3,0,0,0
 1310IF c<0 Q=TIME:REPEAT:Z=INKEY(5):UNTIL TIME>Q+dye OR Z>0:c=c+Z
 1320ENDPROC
 1330DEFPROCfc
 1340IF dyf=0 GOTO1380
 1350d=2:IF G%=1 d=6
 1360IF G%=2 d=5
 1370VDU19,1,d,0,0,0
 1380IF c<0 Q=TIME:REPEAT:Z=INKEY(5):UNTIL TIME>Q+dyf OR Z>0:c=c+Z
 1390ENDPROC
 1400DEFPROCw(w):O%=TIME:REPEAT:UNTIL TIME>O%+w:ENDPROC
 1410DEFPROCver
 1420CLS:PRINT'M$ X5$:INPUTTAB(0,4)"Filename = "fr$
 1430IF LEN(fr$)>8 GOTO1420
 1440PROCrt(&C000):PROCclear:VDU31,0,18:PRINT'"Verify OK."':vf=0:PROCsc
 1450ENDPROC
 1460DEFPROCem(c)
 1470IF c=0 m$=fr$ ELSE m$=en$
 1480FOR U%=1 TO LEN(m$):?M=ASC(MID$(m$,U%,1)):M=M+1:NEXT:?M=27:M=M+1
 1490ENDPROC
 1500DEFPROCdel
 1510PRINT'X7$:IF ff=0 OR P<2 GOTO1560
 1520INPUTTAB(0,9) "Entry to delete= " N%
 1530IF N%<1 OR N%>P PRINTTAB(16,9)"      ":GOTO1520
 1540PROCden:PRINTTAB(12,26)X11$:INPUTTAB(0,26)"Delete ? "D$
 1550IF D$="Y" OR D$="y" PROCclose:PRINTTAB(0,26)"Entry deleted"':ff=2:PROCsc
 1560ENDPROC
 1570DEFPROCclose
 1580PROCwt:FOR D%=L% TO M:?D%=?(D%+K%):NEXT:M=M-K%:P=P-1
 1590ENDPROC
 1600DEFPROCgetf
 1610PRINTTAB(0,11)X9$"   = ":VDU28,11,14,30,11:PRINT STRING$(59,"."):VDU30:PROCs:VDU26
 1620ENDPROC
 1630DEFFNgetg
 1640m$="":gn=7:FOR c=1TO3:C=ASC(MID$(fr$,c,1)) OR32:m$=m$+CHR$C:NEXT
 1650IF m$="end" gn=4:GOTO1750
 1660IF m$="le " OR m$="un " gn=1:GOTO1750
 1670IF m$="la " OR m$="une" gn=2:GOTO1750
 1680SOUND 1,-7,100,3:PRINTTAB(0,15) "M or F   ?     ";:INPUTTAB(11,15)""g$
 1690c=ASC(g$)AND &DF
 1700IF c=223 gn=0
 1710IF c=88 gn=3
 1720IF c=77 gn=1
 1730IF c=70 gn=2
 1740IF gn=7 GOTO1680
 1750=gn
 1760DEFPROCgete
 1770PRINTTAB(0,19)X10$"  = ":VDU28,11,22,30,19:PRINT STRING$(59,"."):VDU30:PROCs:VDU26
 1780ENDPROC
 1790DEFPROCins
 1800PRINT'X8$:IF ff=0 GOTO1920
 1810IF P>full-1 OR M>MX PROCfull:GOTO1920
 1820PRINTTAB(0,9)"Insert before entry number ?       ":INPUTTAB(29,9)""N%
 1830IF N%<1 OR N%>P GOTO1820
 1840PROCden:PRINTTAB(0,26)"Correct entry ?     "X11$:INPUTTAB(16,26)""c$:IF c$<>"Y" AND c$<>"y" GOTO1920
 1850CLS:PROCgetf:fr$=m$
 1860gn=FNgetg:IF gn=3 GOTO1850
 1870PROCgete:en$=m$:IF en$="X" OR en$="x"GOTO1850
 1880P=P+1:K%=LEN(fr$)+LEN(en$)+3:M=M+K%:PROCwt
 1890FOR D%=M TO L% STEP-1:?D%=?(D%-K%):NEXT
 1900D%=M:M=L%:PROCem(0):?M=gn:M=M+1:PROCem(1):M=D%
 1910ff=2:PRINTTAB(0,26)"Insertion complete"':PROCsc
 1920ENDPROC
 1930DEFPROCden
 1940PROCwt:D%=0:IF N%=1 GOTO1960
 1950FOR K%=1TO N%-1:PROCm2:NEXT
 1960L%=S+48+D%:PROCm:PRINTTAB(0,11)X9$"   = "
 1970VDU28,11,14,30,11,30:PRINT m$:VDU26:K%=LEN(m$):PRINTTAB(0,15)"Gender = ";
 1980c$="":g=?(S+48+D%):IF g=1 c$="m"
 1990IF g=2 c$="f"
 2000PRINT c$:D%=D%+1:PROCm:PRINTTAB(0,19)X10$"  = "
 2010VDU28,11,22,30,19,30:PRINT m$:VDU26:K%=K%+LEN(m$)+3
 2020ENDPROC
 2030DEFPROCs
 2040m$=""
 2050REPEAT
 2060b=GET:b$=CHR$b:c=0:j=LEN(m$)
 2070IF b=13 c=2
 2080IF b=127 PROCd:c=1
 2090IF b=9 c=1:PROCc
 2100IF c=0 AND b>31 m$=m$+b$:PRINT b$;:j=j+1
 2110UNTIL c=2 OR j=59
 2120IFm$="" m$=" "
 2130ENDPROC
 2140DEFPROCc
 2150IF j>=40 c=2:GOTO2180
 2160f=20-(j MOD 20):i$=STRING$(f," ")
 2170m$=m$+i$:PRINTi$;
 2180ENDPROC
 2190DEFPROCd
 2200IF j=0 GOTO2220
 2210VDU127,46,8:m$=LEFT$(m$,j-1)
 2220ENDPROC
 2230DEFPROCI
 2240ff=0:vf=0:full=250:MX=22300:M=S+48
 2250fr$=STRING$(60," "):m$=fr$:en$=fr$
 2260X1$="Create new lesson"
 2270X2$="Load pre-recorded lesson"
 2280X3$="Run lesson"
 2290X4$="Save lesson"
 2300X5$="Verify saved lesson"
 2310X6$="Add to current lesson"
 2320X7$="Delete entry from lesson"
 2330X8$="Insert new entry"
 2340X9$="French":X10$="English"
 2350X11$="(Y or N)":X12$="space to continue":X13$="Test lesson"
 2360N$=CHR$157:W$=CHR$135:BB$=CHR$156:R$=CHR$129:G$=CHR$130:Y$=CHR$131:B$=CHR$132:M$=CHR$133:C$=CHR$134
 2370T$=CHR$141+B$+N$+W$+N$+R$+N$+R$+BB$+"The French Mistress"+B$+N$+W$+N$+R$+N$+R$+BB$
 2380ENDPROC
 2390DEFPROCq
 2400PRINTTAB(0,15)"Press key  X  to avoid erasing"''"current lesson, or..."'':PROCsc:PROCclear
 2410ENDPROC
 2420DEFPROCsc
 2430*FX15,1
 2440PRINT X12$
 2450c=GET AND &DF:IF c<>0 AND c<>88 GOTO2450
 2460ENDPROC
 2470DEFPROCst
 2480IF fr$="" GOTO2510
 2490?S=34:FOR c=1 TO LEN(fr$):?(S+c)=ASC(MID$(fr$,c,1)):NEXT
 2500?(S+c)=34:?(S+c+1)=32
 2510T!0=S:T!2=S:T!6=0:T!10=S:T!14=M+1:X%=T MOD256:Y%=T DIV256:A%=0
 2520CALL &FFDD
 2530ENDPROC
 2540DEFPROCm
 2550m$="":I%=S+48:REPEAT:C%=?(I%+D%):IF C%<27 C%=32
 2560IF C%>28 m$=m$+CHR$C%
 2570D%=D%+1:UNTIL C%=27
 2580ENDPROC
 2590DEFPROCm2
 2600I%=S+48:FOR X%=1TO2:REPEAT:C%=?(I%+D%):D%=D%+1:UNTIL C%=27:NEXT
 2610ENDPROC
 2620DEFPROCrt(m)
 2630IF fr$="" R!0=&20202222:GOTO2660
 2640R?0=34:FOR c=1TO LEN(fr$):R?c=ASC(MID$(fr$,c,1)):NEXT
 2650R?c=34:R?(c+1)=32
 2660T!0=R:T!2=m:IF m=0 T!6=1 ELSE T!6=0
 2670T!10=0:T!14=0:X%=T MOD256:Y%=T DIV256:A%=&FF
 2680CALL &FFDD
 2690ENDPROC
 2700DEFPROCwt:PRINTTAB(0,26)"Wait"SPC(25):ENDPROC
 2710DEFPROCti:PRINT"Title: ";:FOR C=S+15 TO S+39:PRINT CHR$?C;:NEXT:PRINT';?(S+11)" entries"':ENDPROC
 2720DEFPROCts
 2730D=ASC(NC$):IF (D>31 AND D<47) OR D=58 OR D=59 OR D=63 GOTO2780
 2740c=GET:IF (c>31 AND c<47) OR c=58 OR c=59 OR c=63 GOTO2740
 2750IF (D AND &DF)=(c AND &DF) GOTO2780
 2760IF c=9 R%=R%+1:GOTO2780
 2770V%=V%+1:VDU7:GOTO2740
 2780ENDPROC
 2790END


� KOSMOS french#3
*KEY 10 OLD |M
$H=�P+2000:�=H:S=H+1:!S=&20222A22
(� C=15�39:?(S+C)=32:�:�I
2
� T 17
<
� R 11
F
� � �DP@
P	�22,7
Z*OPT1,1
d"� 'T$'T$'R$ "        "�19,"x")
n��'G$"    L = "X2$''Y$"    R = "X3$''C$"    C = "X1$''G$"    S = "X4$''Y$"    V = "X5$''C$"    A = "X6$''G$"    D = "X7$''Y$"    I = "X8$''C$"    T = "X13$''
x� ff=2 �0,11)�136 R$
�� vf=1 �0,13)�136 M$
�B� ff=0 P=0:�4,23)C$ N$ �136 B$ "  LESSON STORE EMPTY     "BB$
�;� ff>0 �4,23) B$ N$ W$;P" entries in lesson store "BB$
�*FX15,1
�"Z=� � &DF:� Z=67 �22,4:�cre(1)
�� Z=76 �read
�#� Z=82 � ff>0 �run1:�22,5:�run2
�� Z=83 � ff>0 �save
�� Z=86 �ver
�� Z=65 �22,4:�cre(P+1)
�� Z=68 �22,4:�del
�� Z=73 �22,4:�ins
�!� Z=84 � ff>0 �t1:�22,5:�run2
	�DP@
��cre(e)
� e>full �full:� �dBA
"� Z=65 �'X6$ � �'X1$
,!� e=1 � ff<>0 �q:� c=88 �dBA
6P�0,25)"type END to terminate input.   "'"type  X  to delete current entry."
@P=e:� e=1 M=S+48
J� M>MX �:�full:� �dBA
T�0,9)"Entry number = " P
^�getf:fr$=m$:gn=�getg
h� gn=3 �clear:�DTA
r� gn=4 P=P-1:� �txA
|�gete:en$=m$
�$� en$="X" � en$="x" �clear:�DTA
��em(0):?M=gn:M=M+1:�em(1)
� � P>=full � M>MX �full:�txA
�	P=P+1
��clear:�DTA
�� P<1 ff=0 � ff=2
��
�
��full
�&�8,22)"*** FILE FULL ***":�w(400)
��
�%��clear:� C=11�21:�0,C)�(40):�:�
�
��read
��:�'G$ X2$
� ff<>0 �q:� c=88 �TzB
�0,4)"Filename = "fr$
� �(fr$)>8 �TRB
&1�rt(S):ff=1:P=?(S+11):M=256*?(S+13)+?(S+12)+S
0�clear:�31,0,18:�ti:�sc
:�
D
��save
N%�:�'R$ X4$:�0,4)"Filename = "fr$
X� fr$=""�tTB
b� �(fr$)>8 �DNB
l�'"Title = "en$:�10
v� �(en$)>24 �DlB
�� C=S+15 � S+39:?C=32:�
�/� C=0 � �(en$)-1:?(S+C+15)=�(�en$,C+1,1)):�
�T?(S+11)=P:?(S+12)=M-S:?(S+13)=(M-S) �256:!(S+40)=0:!(S+44)=0:?M=28:�st:vf=1:ff=1
�,�clear:�31,0,18:�"Lesson saved"':�ti:�sc
��
���t1
�a�:�'C$ X13$:�'''"Do you wish to answer"'"in French or English ?    ... (F or E)":�26,6)""mo$
�#� mo$="F" � mo$="f" mo=1 � mo=0
�� P<6 K%=P:�dnB
�U�0,9)"How many entries"'"do you require ?          ... (1 to ";P")":�26,10)""K%
�� K%<1 � K%>P �dZB
�B�''''"If you require help press the TAB key."''':�sc:Z%=1:Q%=0
��
��run1
J�:Z%=0:�'Y$ X3$''''"Display time -"X9$"  ... (secs)"'�13)"-"X10$" ..."
[�''"Display "X9$'"or "X10$" first ?    ... (F or E)"'''"Auto repeat lesson ?  ... "X11$
 5�22,5)""dyf:�22,6)""dye:dye=dye*100:dyf=dyf*100
*� dye=0 mo=0:�DRC
4� dyf=0 mo=1:�DRC
>4�22,10)""mo$:c=�(mo$)� &DF:� c<>70� c<>69 �T~C
H� c=69 mo=1 � mo=0
R#�22,13)""ho$:� ho$="y" ho$="Y"
\�
f
��run2
p�23;8202;0;0;0;
z�23,240,16,24,4,4,24,0,0,0
� �23,241,0,0,0,24,60,102,66,0
��23,242,48,48,16,0,0,0,0,0
�� Z%=1 �t2:�tlC
�1tm=0:�:D%=0:� C=1 � P:�dr:�:� ho$<>"Y" � tm=1
��
���t2
�"D%=0:R%=0:�=0:� C=1 � K%:�dt:�
�"�:�2:�'X13$" results"'�19,"_")
Ԝ�3:�'''''"Total entries   ";P''"Number in test  ";K%''"Wrong answers   ";Q%''"TAB key presses ";R%''"Time taken ";� �6000"m ";(� �6000)�100"s"''':�2:�sc
��
���dr
�-�m:fr$=m$:D%=D%+1:G%=?(S+47+D%):�m:en$=m$
��19,1,0,0,0,0,19,2,0,0,0,0
1�:�di(0):�di(1):c=-1:� mo=0 �fc:�ec � �ec:�fc
*FX15,1
� c=-3 �TnD
$C�3:�0,26)"Entry ";C''"    X to exit or.."':�sc:� c=88 tm=1:C=P
.�
8��dt
B�19,1,7,0,0,0,19,2,3,0,0,0
LIV%=0:�m:fr$=m$:D%=D%+1:�m:en$=m$:� mo=0 �di(0):�di(1) � �di(1):�di(0)
V�w(80):�:� V%>0 Q%=Q%+1
`*FX15,1
j�
t��di(fe)
~#� fe=0 m$=fr$:Y=4 � m$=en$:Y=12
�0� �(fr$)>20 � �(en$)>20 X=0 � X=(20-�(m$))�2
�#� fe+1:�31,X,Y:� M% = 1 � �(m$)
�� (M%=21 � M%=41) � �<>0 �
�� �=0 �
�NC$=�m$,M%,1)
�� Z%=1 � fe<>mo �ts
�� NC$="^" NC$=�241
�� NC$="'" NC$=�242
�:� NC$="/" � NC$="\" � NC$=�241 � 11,8:� NC$;:�10:�dlD
�"� NC$="@"�8,10,240,11 � � NC$;
��
��
��ec

� dye=0 �T^E
�19,2,3,0,0,0
,� c<0 Q=�:�:Z=�(5):� �>Q+dye � Z>0:c=c+Z
(�
2��fc
<� dyf=0 �DdE
Fd=2:� G%=1 d=6
P� G%=2 d=5
Z�19,1,d,0,0,0
d,� c<0 Q=�:�:Z=�(5):� �>Q+dyf � Z>0:c=c+Z
n�
x��w(w):O%=�:�:� �>O%+w:�
�	��ver
�%�:�'M$ X5$:�0,4)"Filename = "fr$
�� �(fr$)>8 �tLE
�7�rt(&C000):�clear:�31,0,18:�'"Verify OK."':vf=0:�sc
��
���em(c)
�� c=0 m$=fr$ � m$=en$
�6� U%=1 � �(m$):?M=�(�m$,U%,1)):M=M+1:�:?M=27:M=M+1
��
�	��del
��'X7$:� ff=0 � P<2 �TXF
�!�0,9) "Entry to delete= " N%
�'� N%<1 � N%>P �16,9)"      ":�dpE
*�den:�12,26)X11$:�0,26)"Delete ? "D$
=� D$="Y" � D$="y" �close:�0,26)"Entry deleted"':ff=2:�sc
�
"��close
,/�wt:� D%=L% � M:?D%=?(D%+K%):�:M=M-K%:P=P-1
6�
@
��getf
J;�0,11)X9$"   = ":�28,11,14,30,11:� �59,"."):�30:�s:�26
T�
^
ݤgetg
h4m$="":gn=7:� c=1�3:C=�(�fr$,c,1)) �32:m$=m$+�C:�
r� m$="end" gn=4:�dVF
|$� m$="le " � m$="un " gn=1:�dVF
�$� m$="la " � m$="une" gn=2:�dVF
�8� 1,-7,100,3:�0,15) "M or F   ?     ";:�11,15)""g$
�c=�(g$)� &DF
�� c=223 gn=0
�� c=88 gn=3
�� c=77 gn=1
�� c=70 gn=2
�� gn=7 �tPF
�=gn
�
��gete
�;�0,19)X10$"  = ":�28,11,22,30,19:� �59,"."):�30:�s:�26
��
�	��ins
�'X8$:� ff=0 �t@G
!� P>full-1 � M>MX �full:�t@G
;�0,9)"Insert before entry number ?       ":�29,9)""N%
&� N%<1 � N%>P �T\G
0Q�den:�0,26)"Correct entry ?     "X11$:�16,26)""c$:� c$<>"Y" � c$<>"y" �t@G
:�:�getf:fr$=m$
Dgn=�getg:� gn=3 �TzG
N)�gete:en$=m$:� en$="X" � en$="x"�TzG
X'P=P+1:K%=�(fr$)+�(en$)+3:M=M+K%:�wt
b"� D%=M � L% �-1:?D%=?(D%-K%):�
l,D%=M:M=L%:�em(0):?M=gn:M=M+1:�em(1):M=D%
v)ff=2:�0,26)"Insertion complete"':�sc
��
�	��den
��wt:D%=0:� N%=1 �thG
�� K%=1� N%-1:�m2:�
�#L%=S+48+D%:�m:�0,11)X9$"   = "
�<�28,11,14,30,11,30:� m$:�26:K%=�(m$):�0,15)"Gender = ";
�#c$="":g=?(S+48+D%):� g=1 c$="m"
�� g=2 c$="f"
�%� c$:D%=D%+1:�m:�0,19)X10$"  = "
�-�28,11,22,30,19,30:� m$:�26:K%=K%+�(m$)+3
��
���s
�	m$=""
�
b=�:b$=�b:c=0:j=�(m$)
� b=13 c=2
 � b=127 �d:c=1
*� b=9 c=1:�c
4%� c=0 � b>31 m$=m$+b$:� b$;:j=j+1
>� c=2 � j=59
H�m$="" m$=" "
R�
\��c
f� j>=40 c=2:�tDH
pf=20-(j � 20):i$=�f," ")
zm$=m$+i$:�i$;
��
���d
�� j=0 �tlH
��127,46,8:m$=�m$,j-1)
��
���I
�&ff=0:vf=0:full=250:MX=22300:M=S+48
�fr$=�60," "):m$=fr$:en$=fr$
�X1$="Create new lesson"
�"X2$="Load pre-recorded lesson"
�X3$="Run lesson"
�X4$="Save lesson"
�X5$="Verify saved lesson"
	X6$="Add to current lesson"
	"X7$="Delete entry from lesson"
	X8$="Insert new entry"
	$X9$="French":X10$="English"
	.?X11$="(Y or N)":X12$="space to continue":X13$="Test lesson"
	8LN$=�157:W$=�135:BB$=�156:R$=�129:G$=�130:Y$=�131:B$=�132:M$=�133:C$=�134
	BST$=�141+B$+N$+W$+N$+R$+N$+R$+BB$+"The French Mistress"+B$+N$+W$+N$+R$+N$+R$+BB$
	L�
	V��q
	`Q�0,15)"Press key  X  to avoid erasing"''"current lesson, or..."'':�sc:�clear
	j�
	t��sc
	~*FX15,1
	�
� X12$
	�"c=� � &DF:� c<>0 � c<>88 �tRI
	��
	���st
	�� fr$="" �dNI
	�.?S=34:� c=1 � �(fr$):?(S+c)=�(�fr$,c,1)):�
	�?(S+c)=34:?(S+c+1)=32
	�>T!0=S:T!2=S:T!6=0:T!10=S:T!14=M+1:X%=T �256:Y%=T �256:A%=0
	�� &FFDD
	��
	���m
	�-m$="":I%=S+48:�:C%=?(I%+D%):� C%<27 C%=32
� C%>28 m$=m$+�C%

D%=D%+1:� C%=27
�
��m2
(4I%=S+48:� X%=1�2:�:C%=?(I%+D%):D%=D%+1:� C%=27:�
2�
<��rt(m)
F � fr$="" R!0=&20202222:�DdJ
P+R?0=34:� c=1� �(fr$):R?c=�(�fr$,c,1)):�
ZR?c=34:R?(c+1)=32
d#T!0=R:T!2=m:� m=0 T!6=1 � T!6=0
n,T!10=0:T!14=0:X%=T �256:Y%=T �256:A%=&FF
x� &FFDD
��
���wt:�0,26)"Wait"�(25):�
�E��ti:�"Title: ";:� C=S+15 � S+39:� �?C;:�:�';?(S+11)" entries"':�
���ts
�7D=�(NC$):� (D>31 � D<47) � D=58 � D=59 � D=63 �d\J
�2c=�:� (c>31 � c<47) � c=58 � c=59 � c=63 �ttJ
�� (D � &DF)=(c � &DF) �d\J
�� c=9 R%=R%+1:�d\J
�V%=V%+1:�7:�ttJ
��
��
�

00000000  0d 00 0a 15 f4 20 4b 4f  53 4d 4f 53 20 66 72 65  |..... KOSMOS fre|
00000010  6e 63 68 23 33 0d 00 14  12 2a 4b 45 59 20 31 30  |nch#3....*KEY 10|
00000020  20 4f 4c 44 20 7c 4d 0d  00 1e 24 48 3d b8 50 2b  | OLD |M...$H=.P+|
00000030  32 30 30 30 3a d3 3d 48  3a 53 3d 48 2b 31 3a 21  |2000:.=H:S=H+1:!|
00000040  53 3d 26 32 30 32 32 32  41 32 32 0d 00 28 1c e3  |S=&20222A22..(..|
00000050  20 43 3d 31 35 b8 33 39  3a 3f 28 53 2b 43 29 3d  | C=15.39:?(S+C)=|
00000060  33 32 3a ed 3a f2 49 0d  00 32 0a de 20 54 20 31  |32:.:.I..2.. T 1|
00000070  37 0d 00 3c 0a de 20 52  20 31 31 0d 00 46 0d ee  |7..<.. R 11..F..|
00000080  20 85 20 e5 8d 44 50 40  0d 00 50 09 ef 32 32 2c  | . ..DP@..P..22,|
00000090  37 0d 00 5a 0b 2a 4f 50  54 31 2c 31 0d 00 64 22  |7..Z.*OPT1,1..d"|
000000a0  f1 20 27 54 24 27 54 24  27 52 24 20 22 20 20 20  |. 'T$'T$'R$ "   |
000000b0  20 20 20 20 20 22 c4 31  39 2c 22 78 22 29 0d 00  |     ".19,"x")..|
000000c0  6e a0 f1 27 47 24 22 20  20 20 20 4c 20 3d 20 22  |n..'G$"    L = "|
000000d0  58 32 24 27 27 59 24 22  20 20 20 20 52 20 3d 20  |X2$''Y$"    R = |
000000e0  22 58 33 24 27 27 43 24  22 20 20 20 20 43 20 3d  |"X3$''C$"    C =|
000000f0  20 22 58 31 24 27 27 47  24 22 20 20 20 20 53 20  | "X1$''G$"    S |
00000100  3d 20 22 58 34 24 27 27  59 24 22 20 20 20 20 56  |= "X4$''Y$"    V|
00000110  20 3d 20 22 58 35 24 27  27 43 24 22 20 20 20 20  | = "X5$''C$"    |
00000120  41 20 3d 20 22 58 36 24  27 27 47 24 22 20 20 20  |A = "X6$''G$"   |
00000130  20 44 20 3d 20 22 58 37  24 27 27 59 24 22 20 20  | D = "X7$''Y$"  |
00000140  20 20 49 20 3d 20 22 58  38 24 27 27 43 24 22 20  |  I = "X8$''C$" |
00000150  20 20 20 54 20 3d 20 22  58 31 33 24 27 27 0d 00  |   T = "X13$''..|
00000160  78 19 e7 20 66 66 3d 32  20 f1 8a 30 2c 31 31 29  |x.. ff=2 ..0,11)|
00000170  bd 31 33 36 20 52 24 0d  00 82 19 e7 20 76 66 3d  |.136 R$..... vf=|
00000180  31 20 f1 8a 30 2c 31 33  29 bd 31 33 36 20 4d 24  |1 ..0,13).136 M$|
00000190  0d 00 8c 42 e7 20 66 66  3d 30 20 50 3d 30 3a f1  |...B. ff=0 P=0:.|
000001a0  8a 34 2c 32 33 29 43 24  20 4e 24 20 bd 31 33 36  |.4,23)C$ N$ .136|
000001b0  20 42 24 20 22 20 20 4c  45 53 53 4f 4e 20 53 54  | B$ "  LESSON ST|
000001c0  4f 52 45 20 45 4d 50 54  59 20 20 20 20 20 22 42  |ORE EMPTY     "B|
000001d0  42 24 0d 00 96 3b e7 20  66 66 3e 30 20 f1 8a 34  |B$...;. ff>0 ..4|
000001e0  2c 32 33 29 20 42 24 20  4e 24 20 57 24 3b 50 22  |,23) B$ N$ W$;P"|
000001f0  20 65 6e 74 72 69 65 73  20 69 6e 20 6c 65 73 73  | entries in less|
00000200  6f 6e 20 73 74 6f 72 65  20 22 42 42 24 0d 00 a0  |on store "BB$...|
00000210  0b 2a 46 58 31 35 2c 31  0d 00 aa 22 5a 3d a5 20  |.*FX15,1..."Z=. |
00000220  80 20 26 44 46 3a e7 20  5a 3d 36 37 20 ef 32 32  |. &DF:. Z=67 .22|
00000230  2c 34 3a f2 63 72 65 28  31 29 0d 00 b4 10 e7 20  |,4:.cre(1)..... |
00000240  5a 3d 37 36 20 f2 72 65  61 64 0d 00 be 23 e7 20  |Z=76 .read...#. |
00000250  5a 3d 38 32 20 80 20 66  66 3e 30 20 f2 72 75 6e  |Z=82 . ff>0 .run|
00000260  31 3a ef 32 32 2c 35 3a  f2 72 75 6e 32 0d 00 c8  |1:.22,5:.run2...|
00000270  17 e7 20 5a 3d 38 33 20  80 20 66 66 3e 30 20 f2  |.. Z=83 . ff>0 .|
00000280  73 61 76 65 0d 00 d2 0f  e7 20 5a 3d 38 36 20 f2  |save..... Z=86 .|
00000290  76 65 72 0d 00 dc 1a e7  20 5a 3d 36 35 20 ef 32  |ver..... Z=65 .2|
000002a0  32 2c 34 3a f2 63 72 65  28 50 2b 31 29 0d 00 e6  |2,4:.cre(P+1)...|
000002b0  15 e7 20 5a 3d 36 38 20  ef 32 32 2c 34 3a f2 64  |.. Z=68 .22,4:.d|
000002c0  65 6c 0d 00 f0 15 e7 20  5a 3d 37 33 20 ef 32 32  |el..... Z=73 .22|
000002d0  2c 34 3a f2 69 6e 73 0d  00 fa 21 e7 20 5a 3d 38  |,4:.ins...!. Z=8|
000002e0  34 20 80 20 66 66 3e 30  20 f2 74 31 3a ef 32 32  |4 . ff>0 .t1:.22|
000002f0  2c 35 3a f2 72 75 6e 32  0d 01 04 09 e5 8d 44 50  |,5:.run2......DP|
00000300  40 0d 01 0e 0c dd f2 63  72 65 28 65 29 0d 01 18  |@......cre(e)...|
00000310  19 e7 20 65 3e 66 75 6c  6c 20 f2 66 75 6c 6c 3a  |.. e>full .full:|
00000320  e5 20 8d 64 42 41 0d 01  22 18 e7 20 5a 3d 36 35  |. .dBA..".. Z=65|
00000330  20 f1 27 58 36 24 20 8b  20 f1 27 58 31 24 0d 01  | .'X6$ . .'X1$..|
00000340  2c 21 e7 20 65 3d 31 20  80 20 66 66 3c 3e 30 20  |,!. e=1 . ff<>0 |
00000350  f2 71 3a e7 20 63 3d 38  38 20 e5 8d 64 42 41 0d  |.q:. c=88 ..dBA.|
00000360  01 36 50 f1 8a 30 2c 32  35 29 22 74 79 70 65 20  |.6P..0,25)"type |
00000370  45 4e 44 20 74 6f 20 74  65 72 6d 69 6e 61 74 65  |END to terminate|
00000380  20 69 6e 70 75 74 2e 20  20 20 22 27 22 74 79 70  | input.   "'"typ|
00000390  65 20 20 58 20 20 74 6f  20 64 65 6c 65 74 65 20  |e  X  to delete |
000003a0  63 75 72 72 65 6e 74 20  65 6e 74 72 79 2e 22 0d  |current entry.".|
000003b0  01 40 14 50 3d 65 3a e7  20 65 3d 31 20 4d 3d 53  |.@.P=e:. e=1 M=S|
000003c0  2b 34 38 0d 01 4a 19 e7  20 4d 3e 4d 58 20 db 3a  |+48..J.. M>MX .:|
000003d0  f2 66 75 6c 6c 3a e5 20  8d 64 42 41 0d 01 54 1d  |.full:. .dBA..T.|
000003e0  f1 8a 30 2c 39 29 22 45  6e 74 72 79 20 6e 75 6d  |..0,9)"Entry num|
000003f0  62 65 72 20 3d 20 22 20  50 0d 01 5e 19 f2 67 65  |ber = " P..^..ge|
00000400  74 66 3a 66 72 24 3d 6d  24 3a 67 6e 3d a4 67 65  |tf:fr$=m$:gn=.ge|
00000410  74 67 0d 01 68 17 e7 20  67 6e 3d 33 20 f2 63 6c  |tg..h.. gn=3 .cl|
00000420  65 61 72 3a e5 8d 44 54  41 0d 01 72 17 e7 20 67  |ear:..DTA..r.. g|
00000430  6e 3d 34 20 50 3d 50 2d  31 3a e5 20 8d 74 78 41  |n=4 P=P-1:. .txA|
00000440  0d 01 7c 10 f2 67 65 74  65 3a 65 6e 24 3d 6d 24  |..|..gete:en$=m$|
00000450  0d 01 86 24 e7 20 65 6e  24 3d 22 58 22 20 84 20  |...$. en$="X" . |
00000460  65 6e 24 3d 22 78 22 20  f2 63 6c 65 61 72 3a e5  |en$="x" .clear:.|
00000470  8d 44 54 41 0d 01 90 1d  f2 65 6d 28 30 29 3a 3f  |.DTA.....em(0):?|
00000480  4d 3d 67 6e 3a 4d 3d 4d  2b 31 3a f2 65 6d 28 31  |M=gn:M=M+1:.em(1|
00000490  29 0d 01 9a 20 e7 20 50  3e 3d 66 75 6c 6c 20 84  |)... . P>=full .|
000004a0  20 4d 3e 4d 58 20 f2 66  75 6c 6c 3a e5 8d 74 78  | M>MX .full:..tx|
000004b0  41 0d 01 a4 09 50 3d 50  2b 31 0d 01 ae 10 f2 63  |A....P=P+1.....c|
000004c0  6c 65 61 72 3a e5 8d 44  54 41 0d 01 b8 15 e7 20  |lear:..DTA..... |
000004d0  50 3c 31 20 66 66 3d 30  20 8b 20 66 66 3d 32 0d  |P<1 ff=0 . ff=2.|
000004e0  01 c2 05 e1 0d 01 cc 0a  dd f2 66 75 6c 6c 0d 01  |..........full..|
000004f0  d6 26 f1 8a 38 2c 32 32  29 22 2a 2a 2a 20 46 49  |.&..8,22)"*** FI|
00000500  4c 45 20 46 55 4c 4c 20  2a 2a 2a 22 3a f2 77 28  |LE FULL ***":.w(|
00000510  34 30 30 29 0d 01 e0 05  e1 0d 01 ea 25 dd f2 63  |400)........%..c|
00000520  6c 65 61 72 3a e3 20 43  3d 31 31 b8 32 31 3a f1  |lear:. C=11.21:.|
00000530  8a 30 2c 43 29 89 28 34  30 29 3a ed 3a e1 0d 01  |.0,C).(40):.:...|
00000540  f4 0a dd f2 72 65 61 64  0d 01 fe 0e db 3a f1 27  |....read.....:.'|
00000550  47 24 20 58 32 24 0d 02  08 1b e7 20 66 66 3c 3e  |G$ X2$..... ff<>|
00000560  30 20 f2 71 3a e7 20 63  3d 38 38 20 e5 8d 54 7a  |0 .q:. c=88 ..Tz|
00000570  42 0d 02 12 1a e8 8a 30  2c 34 29 22 46 69 6c 65  |B......0,4)"File|
00000580  6e 61 6d 65 20 3d 20 22  66 72 24 0d 02 1c 14 e7  |name = "fr$.....|
00000590  20 a9 28 66 72 24 29 3e  38 20 e5 8d 54 52 42 0d  | .(fr$)>8 ..TRB.|
000005a0  02 26 31 f2 72 74 28 53  29 3a 66 66 3d 31 3a 50  |.&1.rt(S):ff=1:P|
000005b0  3d 3f 28 53 2b 31 31 29  3a 4d 3d 32 35 36 2a 3f  |=?(S+11):M=256*?|
000005c0  28 53 2b 31 33 29 2b 3f  28 53 2b 31 32 29 2b 53  |(S+13)+?(S+12)+S|
000005d0  0d 02 30 1b f2 63 6c 65  61 72 3a ef 33 31 2c 30  |..0..clear:.31,0|
000005e0  2c 31 38 3a f2 74 69 3a  f2 73 63 0d 02 3a 05 e1  |,18:.ti:.sc..:..|
000005f0  0d 02 44 0a dd f2 73 61  76 65 0d 02 4e 25 db 3a  |..D...save..N%.:|
00000600  f1 27 52 24 20 58 34 24  3a e8 8a 30 2c 34 29 22  |.'R$ X4$:..0,4)"|
00000610  46 69 6c 65 6e 61 6d 65  20 3d 20 22 66 72 24 0d  |Filename = "fr$.|
00000620  02 58 11 e7 20 66 72 24  3d 22 22 e5 8d 74 54 42  |.X.. fr$=""..tTB|
00000630  0d 02 62 14 e7 20 a9 28  66 72 24 29 3e 38 20 e5  |..b.. .(fr$)>8 .|
00000640  8d 44 4e 42 0d 02 6c 17  e8 27 22 54 69 74 6c 65  |.DNB..l..'"Title|
00000650  20 3d 20 22 65 6e 24 3a  ef 31 30 0d 02 76 15 e7  | = "en$:.10..v..|
00000660  20 a9 28 65 6e 24 29 3e  32 34 20 e5 8d 44 6c 42  | .(en$)>24 ..DlB|
00000670  0d 02 80 1b e3 20 43 3d  53 2b 31 35 20 b8 20 53  |..... C=S+15 . S|
00000680  2b 33 39 3a 3f 43 3d 33  32 3a ed 0d 02 8a 2f e3  |+39:?C=32:..../.|
00000690  20 43 3d 30 20 b8 20 a9  28 65 6e 24 29 2d 31 3a  | C=0 . .(en$)-1:|
000006a0  3f 28 53 2b 43 2b 31 35  29 3d 97 28 c1 65 6e 24  |?(S+C+15)=.(.en$|
000006b0  2c 43 2b 31 2c 31 29 29  3a ed 0d 02 94 54 3f 28  |,C+1,1)):....T?(|
000006c0  53 2b 31 31 29 3d 50 3a  3f 28 53 2b 31 32 29 3d  |S+11)=P:?(S+12)=|
000006d0  4d 2d 53 3a 3f 28 53 2b  31 33 29 3d 28 4d 2d 53  |M-S:?(S+13)=(M-S|
000006e0  29 20 81 32 35 36 3a 21  28 53 2b 34 30 29 3d 30  |) .256:!(S+40)=0|
000006f0  3a 21 28 53 2b 34 34 29  3d 30 3a 3f 4d 3d 32 38  |:!(S+44)=0:?M=28|
00000700  3a f2 73 74 3a 76 66 3d  31 3a 66 66 3d 31 0d 02  |:.st:vf=1:ff=1..|
00000710  9e 2c f2 63 6c 65 61 72  3a ef 33 31 2c 30 2c 31  |.,.clear:.31,0,1|
00000720  38 3a f1 22 4c 65 73 73  6f 6e 20 73 61 76 65 64  |8:."Lesson saved|
00000730  22 27 3a f2 74 69 3a f2  73 63 0d 02 a8 05 e1 0d  |"':.ti:.sc......|
00000740  02 b2 08 dd f2 74 31 0d  02 bc 61 db 3a f1 27 43  |.....t1...a.:.'C|
00000750  24 20 58 31 33 24 3a f1  27 27 27 22 44 6f 20 79  |$ X13$:.'''"Do y|
00000760  6f 75 20 77 69 73 68 20  74 6f 20 61 6e 73 77 65  |ou wish to answe|
00000770  72 22 27 22 69 6e 20 46  72 65 6e 63 68 20 6f 72  |r"'"in French or|
00000780  20 45 6e 67 6c 69 73 68  20 3f 20 20 20 20 2e 2e  | English ?    ..|
00000790  2e 20 28 46 20 6f 72 20  45 29 22 3a e8 8a 32 36  |. (F or E)":..26|
000007a0  2c 36 29 22 22 6d 6f 24  0d 02 c6 23 e7 20 6d 6f  |,6)""mo$...#. mo|
000007b0  24 3d 22 46 22 20 84 20  6d 6f 24 3d 22 66 22 20  |$="F" . mo$="f" |
000007c0  6d 6f 3d 31 20 8b 20 6d  6f 3d 30 0d 02 d0 14 e7  |mo=1 . mo=0.....|
000007d0  20 50 3c 36 20 4b 25 3d  50 3a e5 8d 64 6e 42 0d  | P<6 K%=P:..dnB.|
000007e0  02 da 55 f1 8a 30 2c 39  29 22 48 6f 77 20 6d 61  |..U..0,9)"How ma|
000007f0  6e 79 20 65 6e 74 72 69  65 73 22 27 22 64 6f 20  |ny entries"'"do |
00000800  79 6f 75 20 72 65 71 75  69 72 65 20 3f 20 20 20  |you require ?   |
00000810  20 20 20 20 20 20 20 2e  2e 2e 20 28 31 20 74 6f  |       ... (1 to|
00000820  20 22 3b 50 22 29 22 3a  e8 8a 32 36 2c 31 30 29  | ";P")":..26,10)|
00000830  22 22 4b 25 0d 02 e4 17  e7 20 4b 25 3c 31 20 84  |""K%..... K%<1 .|
00000840  20 4b 25 3e 50 20 e5 8d  64 5a 42 0d 02 ee 42 f1  | K%>P ..dZB...B.|
00000850  27 27 27 27 22 49 66 20  79 6f 75 20 72 65 71 75  |''''"If you requ|
00000860  69 72 65 20 68 65 6c 70  20 70 72 65 73 73 20 74  |ire help press t|
00000870  68 65 20 54 41 42 20 6b  65 79 2e 22 27 27 27 3a  |he TAB key."''':|
00000880  f2 73 63 3a 5a 25 3d 31  3a 51 25 3d 30 0d 02 f8  |.sc:Z%=1:Q%=0...|
00000890  05 e1 0d 03 02 0a dd f2  72 75 6e 31 0d 03 0c 4a  |........run1...J|
000008a0  db 3a 5a 25 3d 30 3a f1  27 59 24 20 58 33 24 27  |.:Z%=0:.'Y$ X3$'|
000008b0  27 27 27 22 44 69 73 70  6c 61 79 20 74 69 6d 65  |'''"Display time|
000008c0  20 2d 22 58 39 24 22 20  20 2e 2e 2e 20 28 73 65  | -"X9$"  ... (se|
000008d0  63 73 29 22 27 8a 31 33  29 22 2d 22 58 31 30 24  |cs)"'.13)"-"X10$|
000008e0  22 20 2e 2e 2e 22 0d 03  16 5b f1 27 27 22 44 69  |" ..."...[.''"Di|
000008f0  73 70 6c 61 79 20 22 58  39 24 27 22 6f 72 20 22  |splay "X9$'"or "|
00000900  58 31 30 24 22 20 66 69  72 73 74 20 3f 20 20 20  |X10$" first ?   |
00000910  20 2e 2e 2e 20 28 46 20  6f 72 20 45 29 22 27 27  | ... (F or E)"''|
00000920  27 22 41 75 74 6f 20 72  65 70 65 61 74 20 6c 65  |'"Auto repeat le|
00000930  73 73 6f 6e 20 3f 20 20  2e 2e 2e 20 22 58 31 31  |sson ?  ... "X11|
00000940  24 0d 03 20 35 e8 8a 32  32 2c 35 29 22 22 64 79  |$.. 5..22,5)""dy|
00000950  66 3a e8 8a 32 32 2c 36  29 22 22 64 79 65 3a 64  |f:..22,6)""dye:d|
00000960  79 65 3d 64 79 65 2a 31  30 30 3a 64 79 66 3d 64  |ye=dye*100:dyf=d|
00000970  79 66 2a 31 30 30 0d 03  2a 16 e7 20 64 79 65 3d  |yf*100..*.. dye=|
00000980  30 20 6d 6f 3d 30 3a e5  8d 44 52 43 0d 03 34 16  |0 mo=0:..DRC..4.|
00000990  e7 20 64 79 66 3d 30 20  6d 6f 3d 31 3a e5 8d 44  |. dyf=0 mo=1:..D|
000009a0  52 43 0d 03 3e 34 e8 8a  32 32 2c 31 30 29 22 22  |RC..>4..22,10)""|
000009b0  6d 6f 24 3a 63 3d 97 28  6d 6f 24 29 80 20 26 44  |mo$:c=.(mo$). &D|
000009c0  46 3a e7 20 63 3c 3e 37  30 80 20 63 3c 3e 36 39  |F:. c<>70. c<>69|
000009d0  20 e5 8d 54 7e 43 0d 03  48 16 e7 20 63 3d 36 39  | ..T~C..H.. c=69|
000009e0  20 6d 6f 3d 31 20 8b 20  6d 6f 3d 30 0d 03 52 23  | mo=1 . mo=0..R#|
000009f0  e8 8a 32 32 2c 31 33 29  22 22 68 6f 24 3a e7 20  |..22,13)""ho$:. |
00000a00  68 6f 24 3d 22 79 22 20  68 6f 24 3d 22 59 22 0d  |ho$="y" ho$="Y".|
00000a10  03 5c 05 e1 0d 03 66 0a  dd f2 72 75 6e 32 0d 03  |.\....f...run2..|
00000a20  70 13 ef 32 33 3b 38 32  30 32 3b 30 3b 30 3b 30  |p..23;8202;0;0;0|
00000a30  3b 0d 03 7a 1e ef 32 33  2c 32 34 30 2c 31 36 2c  |;..z..23,240,16,|
00000a40  32 34 2c 34 2c 34 2c 32  34 2c 30 2c 30 2c 30 0d  |24,4,4,24,0,0,0.|
00000a50  03 84 20 ef 32 33 2c 32  34 31 2c 30 2c 30 2c 30  |.. .23,241,0,0,0|
00000a60  2c 32 34 2c 36 30 2c 31  30 32 2c 36 36 2c 30 0d  |,24,60,102,66,0.|
00000a70  03 8e 1e ef 32 33 2c 32  34 32 2c 34 38 2c 34 38  |....23,242,48,48|
00000a80  2c 31 36 2c 30 2c 30 2c  30 2c 30 2c 30 0d 03 98  |,16,0,0,0,0,0...|
00000a90  14 e7 20 5a 25 3d 31 20  f2 74 32 3a e5 8d 74 6c  |.. Z%=1 .t2:..tl|
00000aa0  43 0d 03 a2 31 74 6d 3d  30 3a f5 3a 44 25 3d 30  |C...1tm=0:.:D%=0|
00000ab0  3a e3 20 43 3d 31 20 b8  20 50 3a f2 64 72 3a ed  |:. C=1 . P:.dr:.|
00000ac0  3a fd 20 68 6f 24 3c 3e  22 59 22 20 84 20 74 6d  |:. ho$<>"Y" . tm|
00000ad0  3d 31 0d 03 ac 05 e1 0d  03 b6 08 dd f2 74 32 0d  |=1...........t2.|
00000ae0  03 c0 22 44 25 3d 30 3a  52 25 3d 30 3a d1 3d 30  |.."D%=0:R%=0:.=0|
00000af0  3a e3 20 43 3d 31 20 b8  20 4b 25 3a f2 64 74 3a  |:. C=1 . K%:.dt:|
00000b00  ed 0d 03 ca 22 db 3a fb  32 3a f1 27 58 31 33 24  |....".:.2:.'X13$|
00000b10  22 20 72 65 73 75 6c 74  73 22 27 c4 31 39 2c 22  |" results"'.19,"|
00000b20  5f 22 29 0d 03 d4 9c fb  33 3a f1 27 27 27 27 27  |_").....3:.'''''|
00000b30  22 54 6f 74 61 6c 20 65  6e 74 72 69 65 73 20 20  |"Total entries  |
00000b40  20 22 3b 50 27 27 22 4e  75 6d 62 65 72 20 69 6e  | ";P''"Number in|
00000b50  20 74 65 73 74 20 20 22  3b 4b 25 27 27 22 57 72  | test  ";K%''"Wr|
00000b60  6f 6e 67 20 61 6e 73 77  65 72 73 20 20 20 22 3b  |ong answers   ";|
00000b70  51 25 27 27 22 54 41 42  20 6b 65 79 20 70 72 65  |Q%''"TAB key pre|
00000b80  73 73 65 73 20 22 3b 52  25 27 27 22 54 69 6d 65  |sses ";R%''"Time|
00000b90  20 74 61 6b 65 6e 20 22  3b 91 20 81 36 30 30 30  | taken ";. .6000|
00000ba0  22 6d 20 22 3b 28 91 20  83 36 30 30 30 29 81 31  |"m ";(. .6000).1|
00000bb0  30 30 22 73 22 27 27 27  3a fb 32 3a f2 73 63 0d  |00"s"''':.2:.sc.|
00000bc0  03 de 05 e1 0d 03 e8 08  dd f2 64 72 0d 03 f2 2d  |..........dr...-|
00000bd0  f2 6d 3a 66 72 24 3d 6d  24 3a 44 25 3d 44 25 2b  |.m:fr$=m$:D%=D%+|
00000be0  31 3a 47 25 3d 3f 28 53  2b 34 37 2b 44 25 29 3a  |1:G%=?(S+47+D%):|
00000bf0  f2 6d 3a 65 6e 24 3d 6d  24 0d 03 fc 1e ef 31 39  |.m:en$=m$.....19|
00000c00  2c 31 2c 30 2c 30 2c 30  2c 30 2c 31 39 2c 32 2c  |,1,0,0,0,0,19,2,|
00000c10  30 2c 30 2c 30 2c 30 0d  04 06 31 db 3a f2 64 69  |0,0,0,0...1.:.di|
00000c20  28 30 29 3a f2 64 69 28  31 29 3a 63 3d 2d 31 3a  |(0):.di(1):c=-1:|
00000c30  e7 20 6d 6f 3d 30 20 f2  66 63 3a f2 65 63 20 8b  |. mo=0 .fc:.ec .|
00000c40  20 f2 65 63 3a f2 66 63  0d 04 10 0b 2a 46 58 31  | .ec:.fc....*FX1|
00000c50  35 2c 31 0d 04 1a 10 e7  20 63 3d 2d 33 20 e5 8d  |5,1..... c=-3 ..|
00000c60  54 6e 44 0d 04 24 43 fb  33 3a f1 8a 30 2c 32 36  |TnD..$C.3:..0,26|
00000c70  29 22 45 6e 74 72 79 20  22 3b 43 27 27 22 20 20  |)"Entry ";C''"  |
00000c80  20 20 58 20 74 6f 20 65  78 69 74 20 6f 72 2e 2e  |  X to exit or..|
00000c90  22 27 3a f2 73 63 3a e7  20 63 3d 38 38 20 74 6d  |"':.sc:. c=88 tm|
00000ca0  3d 31 3a 43 3d 50 0d 04  2e 05 e1 0d 04 38 08 dd  |=1:C=P.......8..|
00000cb0  f2 64 74 0d 04 42 1e ef  31 39 2c 31 2c 37 2c 30  |.dt..B..19,1,7,0|
00000cc0  2c 30 2c 30 2c 31 39 2c  32 2c 33 2c 30 2c 30 2c  |,0,0,19,2,3,0,0,|
00000cd0  30 0d 04 4c 49 56 25 3d  30 3a f2 6d 3a 66 72 24  |0..LIV%=0:.m:fr$|
00000ce0  3d 6d 24 3a 44 25 3d 44  25 2b 31 3a f2 6d 3a 65  |=m$:D%=D%+1:.m:e|
00000cf0  6e 24 3d 6d 24 3a e7 20  6d 6f 3d 30 20 f2 64 69  |n$=m$:. mo=0 .di|
00000d00  28 30 29 3a f2 64 69 28  31 29 20 8b 20 f2 64 69  |(0):.di(1) . .di|
00000d10  28 31 29 3a f2 64 69 28  30 29 0d 04 56 1b f2 77  |(1):.di(0)..V..w|
00000d20  28 38 30 29 3a db 3a e7  20 56 25 3e 30 20 51 25  |(80):.:. V%>0 Q%|
00000d30  3d 51 25 2b 31 0d 04 60  0b 2a 46 58 31 35 2c 31  |=Q%+1..`.*FX15,1|
00000d40  0d 04 6a 05 e1 0d 04 74  0c dd f2 64 69 28 66 65  |..j....t...di(fe|
00000d50  29 0d 04 7e 23 e7 20 66  65 3d 30 20 6d 24 3d 66  |)..~#. fe=0 m$=f|
00000d60  72 24 3a 59 3d 34 20 8b  20 6d 24 3d 65 6e 24 3a  |r$:Y=4 . m$=en$:|
00000d70  59 3d 31 32 0d 04 88 30  e7 20 a9 28 66 72 24 29  |Y=12...0. .(fr$)|
00000d80  3e 32 30 20 84 20 a9 28  65 6e 24 29 3e 32 30 20  |>20 . .(en$)>20 |
00000d90  58 3d 30 20 8b 20 58 3d  28 32 30 2d a9 28 6d 24  |X=0 . X=(20-.(m$|
00000da0  29 29 81 32 0d 04 92 23  fb 20 66 65 2b 31 3a ef  |)).2...#. fe+1:.|
00000db0  33 31 2c 58 2c 59 3a e3  20 4d 25 20 3d 20 31 20  |31,X,Y:. M% = 1 |
00000dc0  b8 20 a9 28 6d 24 29 0d  04 9c 1e e7 20 28 4d 25  |. .(m$)..... (M%|
00000dd0  3d 32 31 20 84 20 4d 25  3d 34 31 29 20 80 20 b1  |=21 . M%=41) . .|
00000de0  3c 3e 30 20 f1 0d 04 a6  0b e7 20 b1 3d 30 20 f1  |<>0 ...... .=0 .|
00000df0  0d 04 b0 11 4e 43 24 3d  c1 6d 24 2c 4d 25 2c 31  |....NC$=.m$,M%,1|
00000e00  29 0d 04 ba 17 e7 20 5a  25 3d 31 20 80 20 66 65  |)..... Z%=1 . fe|
00000e10  3c 3e 6d 6f 20 f2 74 73  0d 04 c4 16 e7 20 4e 43  |<>mo .ts..... NC|
00000e20  24 3d 22 5e 22 20 4e 43  24 3d bd 32 34 31 0d 04  |$="^" NC$=.241..|
00000e30  ce 16 e7 20 4e 43 24 3d  22 27 22 20 4e 43 24 3d  |... NC$="'" NC$=|
00000e40  bd 32 34 32 0d 04 d8 3a  e7 20 4e 43 24 3d 22 2f  |.242...:. NC$="/|
00000e50  22 20 84 20 4e 43 24 3d  22 5c 22 20 84 20 4e 43  |" . NC$="\" . NC|
00000e60  24 3d bd 32 34 31 20 ef  20 31 31 2c 38 3a f1 20  |$=.241 . 11,8:. |
00000e70  4e 43 24 3b 3a ef 31 30  3a e5 8d 64 6c 44 0d 04  |NC$;:.10:..dlD..|
00000e80  e2 22 e7 20 4e 43 24 3d  22 40 22 ef 38 2c 31 30  |.". NC$="@".8,10|
00000e90  2c 32 34 30 2c 31 31 20  8b 20 f1 20 4e 43 24 3b  |,240,11 . . NC$;|
00000ea0  0d 04 ec 05 ed 0d 04 f6  05 e1 0d 05 00 08 dd f2  |................|
00000eb0  65 63 0d 05 0a 11 e7 20  64 79 65 3d 30 20 e5 8d  |ec..... dye=0 ..|
00000ec0  54 5e 45 0d 05 14 11 ef  31 39 2c 32 2c 33 2c 30  |T^E.....19,2,3,0|
00000ed0  2c 30 2c 30 0d 05 1e 2c  e7 20 63 3c 30 20 51 3d  |,0,0...,. c<0 Q=|
00000ee0  91 3a f5 3a 5a 3d a6 28  35 29 3a fd 20 91 3e 51  |.:.:Z=.(5):. .>Q|
00000ef0  2b 64 79 65 20 84 20 5a  3e 30 3a 63 3d 63 2b 5a  |+dye . Z>0:c=c+Z|
00000f00  0d 05 28 05 e1 0d 05 32  08 dd f2 66 63 0d 05 3c  |..(....2...fc..<|
00000f10  11 e7 20 64 79 66 3d 30  20 e5 8d 44 64 45 0d 05  |.. dyf=0 ..DdE..|
00000f20  46 12 64 3d 32 3a e7 20  47 25 3d 31 20 64 3d 36  |F.d=2:. G%=1 d=6|
00000f30  0d 05 50 0e e7 20 47 25  3d 32 20 64 3d 35 0d 05  |..P.. G%=2 d=5..|
00000f40  5a 11 ef 31 39 2c 31 2c  64 2c 30 2c 30 2c 30 0d  |Z..19,1,d,0,0,0.|
00000f50  05 64 2c e7 20 63 3c 30  20 51 3d 91 3a f5 3a 5a  |.d,. c<0 Q=.:.:Z|
00000f60  3d a6 28 35 29 3a fd 20  91 3e 51 2b 64 79 66 20  |=.(5):. .>Q+dyf |
00000f70  84 20 5a 3e 30 3a 63 3d  63 2b 5a 0d 05 6e 05 e1  |. Z>0:c=c+Z..n..|
00000f80  0d 05 78 1c dd f2 77 28  77 29 3a 4f 25 3d 91 3a  |..x...w(w):O%=.:|
00000f90  f5 3a fd 20 91 3e 4f 25  2b 77 3a e1 0d 05 82 09  |.:. .>O%+w:.....|
00000fa0  dd f2 76 65 72 0d 05 8c  25 db 3a f1 27 4d 24 20  |..ver...%.:.'M$ |
00000fb0  58 35 24 3a e8 8a 30 2c  34 29 22 46 69 6c 65 6e  |X5$:..0,4)"Filen|
00000fc0  61 6d 65 20 3d 20 22 66  72 24 0d 05 96 14 e7 20  |ame = "fr$..... |
00000fd0  a9 28 66 72 24 29 3e 38  20 e5 8d 74 4c 45 0d 05  |.(fr$)>8 ..tLE..|
00000fe0  a0 37 f2 72 74 28 26 43  30 30 30 29 3a f2 63 6c  |.7.rt(&C000):.cl|
00000ff0  65 61 72 3a ef 33 31 2c  30 2c 31 38 3a f1 27 22  |ear:.31,0,18:.'"|
00001000  56 65 72 69 66 79 20 4f  4b 2e 22 27 3a 76 66 3d  |Verify OK."':vf=|
00001010  30 3a f2 73 63 0d 05 aa  05 e1 0d 05 b4 0b dd f2  |0:.sc...........|
00001020  65 6d 28 63 29 0d 05 be  19 e7 20 63 3d 30 20 6d  |em(c)..... c=0 m|
00001030  24 3d 66 72 24 20 8b 20  6d 24 3d 65 6e 24 0d 05  |$=fr$ . m$=en$..|
00001040  c8 36 e3 20 55 25 3d 31  20 b8 20 a9 28 6d 24 29  |.6. U%=1 . .(m$)|
00001050  3a 3f 4d 3d 97 28 c1 6d  24 2c 55 25 2c 31 29 29  |:?M=.(.m$,U%,1))|
00001060  3a 4d 3d 4d 2b 31 3a ed  3a 3f 4d 3d 32 37 3a 4d  |:M=M+1:.:?M=27:M|
00001070  3d 4d 2b 31 0d 05 d2 05  e1 0d 05 dc 09 dd f2 64  |=M+1...........d|
00001080  65 6c 0d 05 e6 1c f1 27  58 37 24 3a e7 20 66 66  |el.....'X7$:. ff|
00001090  3d 30 20 84 20 50 3c 32  20 e5 8d 54 58 46 0d 05  |=0 . P<2 ..TXF..|
000010a0  f0 21 e8 8a 30 2c 39 29  20 22 45 6e 74 72 79 20  |.!..0,9) "Entry |
000010b0  74 6f 20 64 65 6c 65 74  65 3d 20 22 20 4e 25 0d  |to delete= " N%.|
000010c0  05 fa 27 e7 20 4e 25 3c  31 20 84 20 4e 25 3e 50  |..'. N%<1 . N%>P|
000010d0  20 f1 8a 31 36 2c 39 29  22 20 20 20 20 20 20 22  | ..16,9)"      "|
000010e0  3a e5 8d 64 70 45 0d 06  04 2a f2 64 65 6e 3a f1  |:..dpE...*.den:.|
000010f0  8a 31 32 2c 32 36 29 58  31 31 24 3a e8 8a 30 2c  |.12,26)X11$:..0,|
00001100  32 36 29 22 44 65 6c 65  74 65 20 3f 20 22 44 24  |26)"Delete ? "D$|
00001110  0d 06 0e 3d e7 20 44 24  3d 22 59 22 20 84 20 44  |...=. D$="Y" . D|
00001120  24 3d 22 79 22 20 f2 63  6c 6f 73 65 3a f1 8a 30  |$="y" .close:..0|
00001130  2c 32 36 29 22 45 6e 74  72 79 20 64 65 6c 65 74  |,26)"Entry delet|
00001140  65 64 22 27 3a 66 66 3d  32 3a f2 73 63 0d 06 18  |ed"':ff=2:.sc...|
00001150  05 e1 0d 06 22 0b dd f2  63 6c 6f 73 65 0d 06 2c  |...."...close..,|
00001160  2f f2 77 74 3a e3 20 44  25 3d 4c 25 20 b8 20 4d  |/.wt:. D%=L% . M|
00001170  3a 3f 44 25 3d 3f 28 44  25 2b 4b 25 29 3a ed 3a  |:?D%=?(D%+K%):.:|
00001180  4d 3d 4d 2d 4b 25 3a 50  3d 50 2d 31 0d 06 36 05  |M=M-K%:P=P-1..6.|
00001190  e1 0d 06 40 0a dd f2 67  65 74 66 0d 06 4a 3b f1  |...@...getf..J;.|
000011a0  8a 30 2c 31 31 29 58 39  24 22 20 20 20 3d 20 22  |.0,11)X9$"   = "|
000011b0  3a ef 32 38 2c 31 31 2c  31 34 2c 33 30 2c 31 31  |:.28,11,14,30,11|
000011c0  3a f1 20 c4 35 39 2c 22  2e 22 29 3a ef 33 30 3a  |:. .59,"."):.30:|
000011d0  f2 73 3a ef 32 36 0d 06  54 05 e1 0d 06 5e 0a dd  |.s:.26..T....^..|
000011e0  a4 67 65 74 67 0d 06 68  34 6d 24 3d 22 22 3a 67  |.getg..h4m$="":g|
000011f0  6e 3d 37 3a e3 20 63 3d  31 b8 33 3a 43 3d 97 28  |n=7:. c=1.3:C=.(|
00001200  c1 66 72 24 2c 63 2c 31  29 29 20 84 33 32 3a 6d  |.fr$,c,1)) .32:m|
00001210  24 3d 6d 24 2b bd 43 3a  ed 0d 06 72 19 e7 20 6d  |$=m$+.C:...r.. m|
00001220  24 3d 22 65 6e 64 22 20  67 6e 3d 34 3a e5 8d 64  |$="end" gn=4:..d|
00001230  56 46 0d 06 7c 24 e7 20  6d 24 3d 22 6c 65 20 22  |VF..|$. m$="le "|
00001240  20 84 20 6d 24 3d 22 75  6e 20 22 20 67 6e 3d 31  | . m$="un " gn=1|
00001250  3a e5 8d 64 56 46 0d 06  86 24 e7 20 6d 24 3d 22  |:..dVF...$. m$="|
00001260  6c 61 20 22 20 84 20 6d  24 3d 22 75 6e 65 22 20  |la " . m$="une" |
00001270  67 6e 3d 32 3a e5 8d 64  56 46 0d 06 90 38 d4 20  |gn=2:..dVF...8. |
00001280  31 2c 2d 37 2c 31 30 30  2c 33 3a f1 8a 30 2c 31  |1,-7,100,3:..0,1|
00001290  35 29 20 22 4d 20 6f 72  20 46 20 20 20 3f 20 20  |5) "M or F   ?  |
000012a0  20 20 20 22 3b 3a e8 8a  31 31 2c 31 35 29 22 22  |   ";:..11,15)""|
000012b0  67 24 0d 06 9a 10 63 3d  97 28 67 24 29 80 20 26  |g$....c=.(g$). &|
000012c0  44 46 0d 06 a4 10 e7 20  63 3d 32 32 33 20 67 6e  |DF..... c=223 gn|
000012d0  3d 30 0d 06 ae 0f e7 20  63 3d 38 38 20 67 6e 3d  |=0..... c=88 gn=|
000012e0  33 0d 06 b8 0f e7 20 63  3d 37 37 20 67 6e 3d 31  |3..... c=77 gn=1|
000012f0  0d 06 c2 0f e7 20 63 3d  37 30 20 67 6e 3d 32 0d  |..... c=70 gn=2.|
00001300  06 cc 10 e7 20 67 6e 3d  37 20 e5 8d 74 50 46 0d  |.... gn=7 ..tPF.|
00001310  06 d6 07 3d 67 6e 0d 06  e0 0a dd f2 67 65 74 65  |...=gn......gete|
00001320  0d 06 ea 3b f1 8a 30 2c  31 39 29 58 31 30 24 22  |...;..0,19)X10$"|
00001330  20 20 3d 20 22 3a ef 32  38 2c 31 31 2c 32 32 2c  |  = ":.28,11,22,|
00001340  33 30 2c 31 39 3a f1 20  c4 35 39 2c 22 2e 22 29  |30,19:. .59,".")|
00001350  3a ef 33 30 3a f2 73 3a  ef 32 36 0d 06 f4 05 e1  |:.30:.s:.26.....|
00001360  0d 06 fe 09 dd f2 69 6e  73 0d 07 08 16 f1 27 58  |......ins.....'X|
00001370  38 24 3a e7 20 66 66 3d  30 20 e5 8d 74 40 47 0d  |8$:. ff=0 ..t@G.|
00001380  07 12 21 e7 20 50 3e 66  75 6c 6c 2d 31 20 84 20  |..!. P>full-1 . |
00001390  4d 3e 4d 58 20 f2 66 75  6c 6c 3a e5 8d 74 40 47  |M>MX .full:..t@G|
000013a0  0d 07 1c 3b f1 8a 30 2c  39 29 22 49 6e 73 65 72  |...;..0,9)"Inser|
000013b0  74 20 62 65 66 6f 72 65  20 65 6e 74 72 79 20 6e  |t before entry n|
000013c0  75 6d 62 65 72 20 3f 20  20 20 20 20 20 20 22 3a  |umber ?       ":|
000013d0  e8 8a 32 39 2c 39 29 22  22 4e 25 0d 07 26 17 e7  |..29,9)""N%..&..|
000013e0  20 4e 25 3c 31 20 84 20  4e 25 3e 50 20 e5 8d 54  | N%<1 . N%>P ..T|
000013f0  5c 47 0d 07 30 51 f2 64  65 6e 3a f1 8a 30 2c 32  |\G..0Q.den:..0,2|
00001400  36 29 22 43 6f 72 72 65  63 74 20 65 6e 74 72 79  |6)"Correct entry|
00001410  20 3f 20 20 20 20 20 22  58 31 31 24 3a e8 8a 31  | ?     "X11$:..1|
00001420  36 2c 32 36 29 22 22 63  24 3a e7 20 63 24 3c 3e  |6,26)""c$:. c$<>|
00001430  22 59 22 20 80 20 63 24  3c 3e 22 79 22 20 e5 8d  |"Y" . c$<>"y" ..|
00001440  74 40 47 0d 07 3a 12 db  3a f2 67 65 74 66 3a 66  |t@G..:..:.getf:f|
00001450  72 24 3d 6d 24 0d 07 44  19 67 6e 3d a4 67 65 74  |r$=m$..D.gn=.get|
00001460  67 3a e7 20 67 6e 3d 33  20 e5 8d 54 7a 47 0d 07  |g:. gn=3 ..TzG..|
00001470  4e 29 f2 67 65 74 65 3a  65 6e 24 3d 6d 24 3a e7  |N).gete:en$=m$:.|
00001480  20 65 6e 24 3d 22 58 22  20 84 20 65 6e 24 3d 22  | en$="X" . en$="|
00001490  78 22 e5 8d 54 7a 47 0d  07 58 27 50 3d 50 2b 31  |x"..TzG..X'P=P+1|
000014a0  3a 4b 25 3d a9 28 66 72  24 29 2b a9 28 65 6e 24  |:K%=.(fr$)+.(en$|
000014b0  29 2b 33 3a 4d 3d 4d 2b  4b 25 3a f2 77 74 0d 07  |)+3:M=M+K%:.wt..|
000014c0  62 22 e3 20 44 25 3d 4d  20 b8 20 4c 25 20 88 2d  |b". D%=M . L% .-|
000014d0  31 3a 3f 44 25 3d 3f 28  44 25 2d 4b 25 29 3a ed  |1:?D%=?(D%-K%):.|
000014e0  0d 07 6c 2c 44 25 3d 4d  3a 4d 3d 4c 25 3a f2 65  |..l,D%=M:M=L%:.e|
000014f0  6d 28 30 29 3a 3f 4d 3d  67 6e 3a 4d 3d 4d 2b 31  |m(0):?M=gn:M=M+1|
00001500  3a f2 65 6d 28 31 29 3a  4d 3d 44 25 0d 07 76 29  |:.em(1):M=D%..v)|
00001510  66 66 3d 32 3a f1 8a 30  2c 32 36 29 22 49 6e 73  |ff=2:..0,26)"Ins|
00001520  65 72 74 69 6f 6e 20 63  6f 6d 70 6c 65 74 65 22  |ertion complete"|
00001530  27 3a f2 73 63 0d 07 80  05 e1 0d 07 8a 09 dd f2  |':.sc...........|
00001540  64 65 6e 0d 07 94 19 f2  77 74 3a 44 25 3d 30 3a  |den.....wt:D%=0:|
00001550  e7 20 4e 25 3d 31 20 e5  8d 74 68 47 0d 07 9e 16  |. N%=1 ..thG....|
00001560  e3 20 4b 25 3d 31 b8 20  4e 25 2d 31 3a f2 6d 32  |. K%=1. N%-1:.m2|
00001570  3a ed 0d 07 a8 23 4c 25  3d 53 2b 34 38 2b 44 25  |:....#L%=S+48+D%|
00001580  3a f2 6d 3a f1 8a 30 2c  31 31 29 58 39 24 22 20  |:.m:..0,11)X9$" |
00001590  20 20 3d 20 22 0d 07 b2  3c ef 32 38 2c 31 31 2c  |  = "...<.28,11,|
000015a0  31 34 2c 33 30 2c 31 31  2c 33 30 3a f1 20 6d 24  |14,30,11,30:. m$|
000015b0  3a ef 32 36 3a 4b 25 3d  a9 28 6d 24 29 3a f1 8a  |:.26:K%=.(m$):..|
000015c0  30 2c 31 35 29 22 47 65  6e 64 65 72 20 3d 20 22  |0,15)"Gender = "|
000015d0  3b 0d 07 bc 23 63 24 3d  22 22 3a 67 3d 3f 28 53  |;...#c$="":g=?(S|
000015e0  2b 34 38 2b 44 25 29 3a  e7 20 67 3d 31 20 63 24  |+48+D%):. g=1 c$|
000015f0  3d 22 6d 22 0d 07 c6 10  e7 20 67 3d 32 20 63 24  |="m"..... g=2 c$|
00001600  3d 22 66 22 0d 07 d0 25  f1 20 63 24 3a 44 25 3d  |="f"...%. c$:D%=|
00001610  44 25 2b 31 3a f2 6d 3a  f1 8a 30 2c 31 39 29 58  |D%+1:.m:..0,19)X|
00001620  31 30 24 22 20 20 3d 20  22 0d 07 da 2d ef 32 38  |10$"  = "...-.28|
00001630  2c 31 31 2c 32 32 2c 33  30 2c 31 39 2c 33 30 3a  |,11,22,30,19,30:|
00001640  f1 20 6d 24 3a ef 32 36  3a 4b 25 3d 4b 25 2b a9  |. m$:.26:K%=K%+.|
00001650  28 6d 24 29 2b 33 0d 07  e4 05 e1 0d 07 ee 07 dd  |(m$)+3..........|
00001660  f2 73 0d 07 f8 09 6d 24  3d 22 22 0d 08 02 05 f5  |.s....m$="".....|
00001670  0d 08 0c 19 62 3d a5 3a  62 24 3d bd 62 3a 63 3d  |....b=.:b$=.b:c=|
00001680  30 3a 6a 3d a9 28 6d 24  29 0d 08 16 0e e7 20 62  |0:j=.(m$)..... b|
00001690  3d 31 33 20 63 3d 32 0d  08 20 12 e7 20 62 3d 31  |=13 c=2.. .. b=1|
000016a0  32 37 20 f2 64 3a 63 3d  31 0d 08 2a 10 e7 20 62  |27 .d:c=1..*.. b|
000016b0  3d 39 20 63 3d 31 3a f2  63 0d 08 34 25 e7 20 63  |=9 c=1:.c..4%. c|
000016c0  3d 30 20 80 20 62 3e 33  31 20 6d 24 3d 6d 24 2b  |=0 . b>31 m$=m$+|
000016d0  62 24 3a f1 20 62 24 3b  3a 6a 3d 6a 2b 31 0d 08  |b$:. b$;:j=j+1..|
000016e0  3e 10 fd 20 63 3d 32 20  84 20 6a 3d 35 39 0d 08  |>.. c=2 . j=59..|
000016f0  48 11 e7 6d 24 3d 22 22  20 6d 24 3d 22 20 22 0d  |H..m$="" m$=" ".|
00001700  08 52 05 e1 0d 08 5c 07  dd f2 63 0d 08 66 15 e7  |.R....\...c..f..|
00001710  20 6a 3e 3d 34 30 20 63  3d 32 3a e5 8d 74 44 48  | j>=40 c=2:..tDH|
00001720  0d 08 70 1c 66 3d 32 30  2d 28 6a 20 83 20 32 30  |..p.f=20-(j . 20|
00001730  29 3a 69 24 3d c4 66 2c  22 20 22 29 0d 08 7a 11  |):i$=.f," ")..z.|
00001740  6d 24 3d 6d 24 2b 69 24  3a f1 69 24 3b 0d 08 84  |m$=m$+i$:.i$;...|
00001750  05 e1 0d 08 8e 07 dd f2  64 0d 08 98 0f e7 20 6a  |........d..... j|
00001760  3d 30 20 e5 8d 74 6c 48  0d 08 a2 19 ef 31 32 37  |=0 ..tlH.....127|
00001770  2c 34 36 2c 38 3a 6d 24  3d c0 6d 24 2c 6a 2d 31  |,46,8:m$=.m$,j-1|
00001780  29 0d 08 ac 05 e1 0d 08  b6 07 dd f2 49 0d 08 c0  |)...........I...|
00001790  26 66 66 3d 30 3a 76 66  3d 30 3a 66 75 6c 6c 3d  |&ff=0:vf=0:full=|
000017a0  32 35 30 3a 4d 58 3d 32  32 33 30 30 3a 4d 3d 53  |250:MX=22300:M=S|
000017b0  2b 34 38 0d 08 ca 1f 66  72 24 3d c4 36 30 2c 22  |+48....fr$=.60,"|
000017c0  20 22 29 3a 6d 24 3d 66  72 24 3a 65 6e 24 3d 66  | "):m$=fr$:en$=f|
000017d0  72 24 0d 08 d4 1b 58 31  24 3d 22 43 72 65 61 74  |r$....X1$="Creat|
000017e0  65 20 6e 65 77 20 6c 65  73 73 6f 6e 22 0d 08 de  |e new lesson"...|
000017f0  22 58 32 24 3d 22 4c 6f  61 64 20 70 72 65 2d 72  |"X2$="Load pre-r|
00001800  65 63 6f 72 64 65 64 20  6c 65 73 73 6f 6e 22 0d  |ecorded lesson".|
00001810  08 e8 14 58 33 24 3d 22  52 75 6e 20 6c 65 73 73  |...X3$="Run less|
00001820  6f 6e 22 0d 08 f2 15 58  34 24 3d 22 53 61 76 65  |on"....X4$="Save|
00001830  20 6c 65 73 73 6f 6e 22  0d 08 fc 1d 58 35 24 3d  | lesson"....X5$=|
00001840  22 56 65 72 69 66 79 20  73 61 76 65 64 20 6c 65  |"Verify saved le|
00001850  73 73 6f 6e 22 0d 09 06  1f 58 36 24 3d 22 41 64  |sson"....X6$="Ad|
00001860  64 20 74 6f 20 63 75 72  72 65 6e 74 20 6c 65 73  |d to current les|
00001870  73 6f 6e 22 0d 09 10 22  58 37 24 3d 22 44 65 6c  |son"..."X7$="Del|
00001880  65 74 65 20 65 6e 74 72  79 20 66 72 6f 6d 20 6c  |ete entry from l|
00001890  65 73 73 6f 6e 22 0d 09  1a 1a 58 38 24 3d 22 49  |esson"....X8$="I|
000018a0  6e 73 65 72 74 20 6e 65  77 20 65 6e 74 72 79 22  |nsert new entry"|
000018b0  0d 09 24 1f 58 39 24 3d  22 46 72 65 6e 63 68 22  |..$.X9$="French"|
000018c0  3a 58 31 30 24 3d 22 45  6e 67 6c 69 73 68 22 0d  |:X10$="English".|
000018d0  09 2e 3f 58 31 31 24 3d  22 28 59 20 6f 72 20 4e  |..?X11$="(Y or N|
000018e0  29 22 3a 58 31 32 24 3d  22 73 70 61 63 65 20 74  |)":X12$="space t|
000018f0  6f 20 63 6f 6e 74 69 6e  75 65 22 3a 58 31 33 24  |o continue":X13$|
00001900  3d 22 54 65 73 74 20 6c  65 73 73 6f 6e 22 0d 09  |="Test lesson"..|
00001910  38 4c 4e 24 3d bd 31 35  37 3a 57 24 3d bd 31 33  |8LN$=.157:W$=.13|
00001920  35 3a 42 42 24 3d bd 31  35 36 3a 52 24 3d bd 31  |5:BB$=.156:R$=.1|
00001930  32 39 3a 47 24 3d bd 31  33 30 3a 59 24 3d bd 31  |29:G$=.130:Y$=.1|
00001940  33 31 3a 42 24 3d bd 31  33 32 3a 4d 24 3d bd 31  |31:B$=.132:M$=.1|
00001950  33 33 3a 43 24 3d bd 31  33 34 0d 09 42 53 54 24  |33:C$=.134..BST$|
00001960  3d bd 31 34 31 2b 42 24  2b 4e 24 2b 57 24 2b 4e  |=.141+B$+N$+W$+N|
00001970  24 2b 52 24 2b 4e 24 2b  52 24 2b 42 42 24 2b 22  |$+R$+N$+R$+BB$+"|
00001980  54 68 65 20 46 72 65 6e  63 68 20 4d 69 73 74 72  |The French Mistr|
00001990  65 73 73 22 2b 42 24 2b  4e 24 2b 57 24 2b 4e 24  |ess"+B$+N$+W$+N$|
000019a0  2b 52 24 2b 4e 24 2b 52  24 2b 42 42 24 0d 09 4c  |+R$+N$+R$+BB$..L|
000019b0  05 e1 0d 09 56 07 dd f2  71 0d 09 60 51 f1 8a 30  |....V...q..`Q..0|
000019c0  2c 31 35 29 22 50 72 65  73 73 20 6b 65 79 20 20  |,15)"Press key  |
000019d0  58 20 20 74 6f 20 61 76  6f 69 64 20 65 72 61 73  |X  to avoid eras|
000019e0  69 6e 67 22 27 27 22 63  75 72 72 65 6e 74 20 6c  |ing"''"current l|
000019f0  65 73 73 6f 6e 2c 20 6f  72 2e 2e 2e 22 27 27 3a  |esson, or..."'':|
00001a00  f2 73 63 3a f2 63 6c 65  61 72 0d 09 6a 05 e1 0d  |.sc:.clear..j...|
00001a10  09 74 08 dd f2 73 63 0d  09 7e 0b 2a 46 58 31 35  |.t...sc..~.*FX15|
00001a20  2c 31 0d 09 88 0a f1 20  58 31 32 24 0d 09 92 22  |,1..... X12$..."|
00001a30  63 3d a5 20 80 20 26 44  46 3a e7 20 63 3c 3e 30  |c=. . &DF:. c<>0|
00001a40  20 80 20 63 3c 3e 38 38  20 e5 8d 74 52 49 0d 09  | . c<>88 ..tRI..|
00001a50  9c 05 e1 0d 09 a6 08 dd  f2 73 74 0d 09 b0 12 e7  |.........st.....|
00001a60  20 66 72 24 3d 22 22 20  e5 8d 64 4e 49 0d 09 ba  | fr$="" ..dNI...|
00001a70  2e 3f 53 3d 33 34 3a e3  20 63 3d 31 20 b8 20 a9  |.?S=34:. c=1 . .|
00001a80  28 66 72 24 29 3a 3f 28  53 2b 63 29 3d 97 28 c1  |(fr$):?(S+c)=.(.|
00001a90  66 72 24 2c 63 2c 31 29  29 3a ed 0d 09 c4 19 3f  |fr$,c,1)):.....?|
00001aa0  28 53 2b 63 29 3d 33 34  3a 3f 28 53 2b 63 2b 31  |(S+c)=34:?(S+c+1|
00001ab0  29 3d 33 32 0d 09 ce 3e  54 21 30 3d 53 3a 54 21  |)=32...>T!0=S:T!|
00001ac0  32 3d 53 3a 54 21 36 3d  30 3a 54 21 31 30 3d 53  |2=S:T!6=0:T!10=S|
00001ad0  3a 54 21 31 34 3d 4d 2b  31 3a 58 25 3d 54 20 83  |:T!14=M+1:X%=T .|
00001ae0  32 35 36 3a 59 25 3d 54  20 81 32 35 36 3a 41 25  |256:Y%=T .256:A%|
00001af0  3d 30 0d 09 d8 0b d6 20  26 46 46 44 44 0d 09 e2  |=0..... &FFDD...|
00001b00  05 e1 0d 09 ec 07 dd f2  6d 0d 09 f6 2d 6d 24 3d  |........m...-m$=|
00001b10  22 22 3a 49 25 3d 53 2b  34 38 3a f5 3a 43 25 3d  |"":I%=S+48:.:C%=|
00001b20  3f 28 49 25 2b 44 25 29  3a e7 20 43 25 3c 32 37  |?(I%+D%):. C%<27|
00001b30  20 43 25 3d 33 32 0d 0a  00 15 e7 20 43 25 3e 32  | C%=32..... C%>2|
00001b40  38 20 6d 24 3d 6d 24 2b  bd 43 25 0d 0a 0a 13 44  |8 m$=m$+.C%....D|
00001b50  25 3d 44 25 2b 31 3a fd  20 43 25 3d 32 37 0d 0a  |%=D%+1:. C%=27..|
00001b60  14 05 e1 0d 0a 1e 08 dd  f2 6d 32 0d 0a 28 34 49  |.........m2..(4I|
00001b70  25 3d 53 2b 34 38 3a e3  20 58 25 3d 31 b8 32 3a  |%=S+48:. X%=1.2:|
00001b80  f5 3a 43 25 3d 3f 28 49  25 2b 44 25 29 3a 44 25  |.:C%=?(I%+D%):D%|
00001b90  3d 44 25 2b 31 3a fd 20  43 25 3d 32 37 3a ed 0d  |=D%+1:. C%=27:..|
00001ba0  0a 32 05 e1 0d 0a 3c 0b  dd f2 72 74 28 6d 29 0d  |.2....<...rt(m).|
00001bb0  0a 46 20 e7 20 66 72 24  3d 22 22 20 52 21 30 3d  |.F . fr$="" R!0=|
00001bc0  26 32 30 32 30 32 32 32  32 3a e5 8d 44 64 4a 0d  |&20202222:..DdJ.|
00001bd0  0a 50 2b 52 3f 30 3d 33  34 3a e3 20 63 3d 31 b8  |.P+R?0=34:. c=1.|
00001be0  20 a9 28 66 72 24 29 3a  52 3f 63 3d 97 28 c1 66  | .(fr$):R?c=.(.f|
00001bf0  72 24 2c 63 2c 31 29 29  3a ed 0d 0a 5a 15 52 3f  |r$,c,1)):...Z.R?|
00001c00  63 3d 33 34 3a 52 3f 28  63 2b 31 29 3d 33 32 0d  |c=34:R?(c+1)=32.|
00001c10  0a 64 23 54 21 30 3d 52  3a 54 21 32 3d 6d 3a e7  |.d#T!0=R:T!2=m:.|
00001c20  20 6d 3d 30 20 54 21 36  3d 31 20 8b 20 54 21 36  | m=0 T!6=1 . T!6|
00001c30  3d 30 0d 0a 6e 2c 54 21  31 30 3d 30 3a 54 21 31  |=0..n,T!10=0:T!1|
00001c40  34 3d 30 3a 58 25 3d 54  20 83 32 35 36 3a 59 25  |4=0:X%=T .256:Y%|
00001c50  3d 54 20 81 32 35 36 3a  41 25 3d 26 46 46 0d 0a  |=T .256:A%=&FF..|
00001c60  78 0b d6 20 26 46 46 44  44 0d 0a 82 05 e1 0d 0a  |x.. &FFDD.......|
00001c70  8c 1d dd f2 77 74 3a f1  8a 30 2c 32 36 29 22 57  |....wt:..0,26)"W|
00001c80  61 69 74 22 89 28 32 35  29 3a e1 0d 0a 96 45 dd  |ait".(25):....E.|
00001c90  f2 74 69 3a f1 22 54 69  74 6c 65 3a 20 22 3b 3a  |.ti:."Title: ";:|
00001ca0  e3 20 43 3d 53 2b 31 35  20 b8 20 53 2b 33 39 3a  |. C=S+15 . S+39:|
00001cb0  f1 20 bd 3f 43 3b 3a ed  3a f1 27 3b 3f 28 53 2b  |. .?C;:.:.';?(S+|
00001cc0  31 31 29 22 20 65 6e 74  72 69 65 73 22 27 3a e1  |11)" entries"':.|
00001cd0  0d 0a a0 08 dd f2 74 73  0d 0a aa 37 44 3d 97 28  |......ts...7D=.(|
00001ce0  4e 43 24 29 3a e7 20 28  44 3e 33 31 20 80 20 44  |NC$):. (D>31 . D|
00001cf0  3c 34 37 29 20 84 20 44  3d 35 38 20 84 20 44 3d  |<47) . D=58 . D=|
00001d00  35 39 20 84 20 44 3d 36  33 20 e5 8d 64 5c 4a 0d  |59 . D=63 ..d\J.|
00001d10  0a b4 32 63 3d a5 3a e7  20 28 63 3e 33 31 20 80  |..2c=.:. (c>31 .|
00001d20  20 63 3c 34 37 29 20 84  20 63 3d 35 38 20 84 20  | c<47) . c=58 . |
00001d30  63 3d 35 39 20 84 20 63  3d 36 33 20 e5 8d 74 74  |c=59 . c=63 ..tt|
00001d40  4a 0d 0a be 1f e7 20 28  44 20 80 20 26 44 46 29  |J..... (D . &DF)|
00001d50  3d 28 63 20 80 20 26 44  46 29 20 e5 8d 64 5c 4a  |=(c . &DF) ..d\J|
00001d60  0d 0a c8 17 e7 20 63 3d  39 20 52 25 3d 52 25 2b  |..... c=9 R%=R%+|
00001d70  31 3a e5 8d 64 5c 4a 0d  0a d2 14 56 25 3d 56 25  |1:..d\J....V%=V%|
00001d80  2b 31 3a ef 37 3a e5 8d  74 74 4a 0d 0a dc 05 e1  |+1:.7:..ttJ.....|
00001d90  0d 0a e6 05 e0 0d ff                              |.......|
00001d97

F.m0

F.m1

F.m2

F.m4

F.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .