' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(D 0Ԡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`z#      ƯӠԠ Ƞ٠̠wӮƠƯӠƯӠƯ Π ƯӠ SCORED AS FOLLOWS:"? :"3 POINTS FOR A CORRECT ANSWER THE"j:"FIRST TIME, 1 POINT FOR A CORRECT" :"ANSWER ON THE SECOND TRY, AND NO"*:"POINTS FOR A WORD MISSED MORE THAN"4:"TWICE. AT THE END OF THE LESSON,">:"YOU WILL BE :"GOTTEN ALL THE WORDS IN THE DRILL"Q:"CORRECT, YOU WILL BE ALLOWED TO":"GO ON TO THE NEXT DRILL IN THAT LESSON.":" (PRESS SPACE BAR TO CONTINUE)"X(16384)X127ī73016368,0:" YOU WILL BEPACE BAR TO CONTINUE)"&XX(16384)5bX127600Cl16368,0Iv{:" YOU MUST WORK ALL THE DRILLS IN THE""LESSON YOU CHOOSE. YOU WILL BE GIVEN":"A CHANCE TO REPEAT THE WORDS WHICH":"YOU HAVE MISSED. WHEN YOU HAVE"(CH GIVEN LISTS":"OF WORDS; (2) FRENCH-TO-ENGLISH, IN"f:"WHICH YOU ARE GIVEN THE FRENCH AND"&:"ASKED FOR THE ENGLISH; AND (3)"0:"ENGLISH-TO-FRENCH, IN WHICH YOU ARE"::"GIVEN ENGLISH AND ASKED FOR FRENCH."DN" (PRESS STHIS PROGRAM GIVES VOCABULARY DRILL"P"IN THE FRENCH LANGUAGE. EACH LESSON"}:"CONSISTS OF UP TO 20 ENGLISH-FRENCH":"WORD-PAIRS. THERE ARE THREE TYPES OF":"DRILLS IN EACH LESSON: (1) MATCHING, IN":"WHICH YOU ARE ASKED TO MAT1250J READ LESSON TITLES9TT$(200):TITLES ARRAYPhD$"OPEN TITLES.F"Zr440q|D$"READ TITLES.F"NN:TOTAL NUMBER OF LESSONSJ1NNT$(J)J450NN0216,0D$"CLOSE TITLES.F"150$" 64,36,64,36,64,32,64,36,64,34,255,36,64,32,64,39,64,36,64,34,255@ 34,64,32,64,32,64,32,64,32,64,31,64,31,64,31,64, 31,64,29,64,32,64,26,64,27,64,31,64,34,128,34,64,32,64,32,64,32,64,32,64,31,64,31,64,31,64,31,64,29,64,32,64,26,64,27,255,-1,-1Ej 27,64,27,96,29,32,27,64,32,64,31,64,29,64,27,192,25,128,25,64,24,128,24,64,27,64,25,64,22,64,20,192v  -1,-1 FP%(46),FD%(46):DATA FOR FUCHS UND GANS I046 "FP%(I),FD%(I) ,I@6 27,64,29,64,31,64,32,64,34,64,34,64,34,64,34,VARY THE QUESTION ORDER IN A LESSON.A 30000: POKE SONGPLAYERi LP%(33),LD%(33): DATA FOR LORELEIu I033 LP%(I),LD%(I) I 27,64,27,96,29,32,27,64,32,64,31,64,29,64,27,192,25,128,25,64,24,128,24,64,22,96,20,32,22,64,24,192,0,19220),A3(20): THE ANSWER ARRAYS. VALUES SET TO 3 FOR A QUESTION CORRECT ON THE FIRST TRY, SET TO 1 FOR A QUESTION CORRECT ON THE SECOND TRY, ZERO OTHERWISE.$ P(20): AN ARRAY USED TO STORE A PERMUTATION OF THE INTEGERS FROM 1 TO 20; USED TO RANDOMLY :216,0:NORMAL WINDOW; ONERR OFF' d1 n(10)M x15)"F R E N C H "::p 11)"V O C A B U L A R Y":: 16)"D R I L L" 330 E$(20),G$(20): ENGLISH AND FRENCH WORD PAIRS SG$(20): ASTERISK FLAG IN MATCHING DRILL A1(20),A2(******************2 P38166: PROTECT SONGPLAYERk USF1: SONG FLAG. CHANGE TO SF=1 TO SUPPRESS SONGS.w ZD$(4) _BL$" " `BL$ IS BLANK STRING aDF$(0)"ALL":DF$(1)"MATCH"! b34,0:35,24:32,0:33,40+ud WRITTEN BY ALFRED CLARK, JR., OCTOBER 1979, REVISED FEBRUARY 1980, SECOND REVISION MARCH 1980************************ INSTRUCTIONS AND *(* INITIALIZATION IN *2* STATEMENT NUMBERS *<* 10 TO 1230 * F*****                                       *) (4);"RUN FRENCH VOCABULARY DRILL"8:(64J):$' J1ī2350/$( (J1):(63J)7$. 22@$8 BL$H$B 23Q$L BL$Y$V 22}$` ((SG$(P(J))" ")(CT0))ī2540$j "ENTER THE NUMBER OF THE ENGLISH WORD"$t "MATCHING ";(64J);": ";$~ "";AN$:AS(AN$)$ (ASW)(AS1)2451% 23IN MATCHING DRILL# #CT0+#J1W7#A1(J)0F#SG$(J)" "Z#A2(J)0:A3(J)0a#Jk#8000q#|# J1W# O$" "# LL(G$(P(J)))# LL17O$""# (64J);" ";G$(P(J));O$;SG$(P(J))22);J;" ";E$(J)# J#$ J1W#% J $& Y/N) ";AN$'"4(AN$"Y"AN$"N")ī2120P">:"RE-ENTER YOUR ANSWER.";AN$:2100c"HAN$"N"ī2190w"RAN$"Y"İ14000"\(24)"f"(PRESS SPACE BAR TO BEGIN THE DRILL)";"pX(16384)"zX127ī2160"16368,0"********************#BEG***********%!* *?!* DRILL ROUTINES *Y!* *s!********************y!!::!"THE LESSON IS ";T$(AN);"."!:! " DO YOU WANT TO STUDY THE LESSON" "*:"BEFORE BEGINNING THE DRILLS ? (ESSON? 20000:EDITOR. RETURN IS VIA OPTION ON EDITOR MENU.Y k********************k lEXIT ROUTINEw v:(12) " A U R E V O I R !" SF0İ30300:PLAY LORELEI  END OF MENU ROUTINE ******************** !*************************#DELETE LESSONY(24):"LESSON DELETION. PRESS RETURN TO EXIT.";d35,23~10000:SELECT LESSON35,24ZZ0ī1750ANCN12505500:DELETE ROUTINE1250:TO MENU******************** EDIT L2(24):"PRESS SPACE BAR TO RETURN TO MENU.";=35,23Q"14000:DISPLAYa,X(16384)r1X127ī1580616368,0:35,24;1250:TO MENU?********************@ENTER NEW LESSONJ6000:ENTER ROUTINET1250:TO MENU****OAD LESSON2000:DRILL.1250:TO MENUH********************UDISPLAY[(24):"LESSON FOR DISPLAY. EXIT-PRESS RETURN.";35,2310000:LESSON SELECTION35,24ZZ0ī1543ANCN:125012000:LOAD LESSON  d35,23(i10000:SELECTION ROUTINE3n35,24=oANCNGs1250aw********************lxDRILL{(24):"LESSON FOR DRILL. PRESS RETURN TO EXIT.";}35,2310000:SELECT LESSON35,24ZZ0ī1418ANCN:1250 12000:L5)"(8) EXIT THE PROGRAM"&222:BL$[7"SELECT YOUR OPTION BY NUMBER : ";AS$:AS(AS$)t<(AS8)(AS1)ī1330FAS460,1360,1400,1500,1600,1700,1800,1900K********************PDISPLAY TITLESZ(24):"PRESS RETURN TO RETURN TO MENU.";CTIONS-:5);"(2) DISPLAY LESSON TITLES"W :5)"(3) SELECT A LESSON FOR DRILL":5)"(4) SELECT A LESSON FOR DISPLAY":5)"(5) ENTER A NEW LESSON"#:5)"(6) DELETE AN EXISTING LESSON"(:5)"(7) EDIT AN EXISTING LESSON"-: (PRESS THE SPACE BAR TO CONTINUE)"4X(16384)EX127ī1190S16368,0lEND OF INSTRUCTIONS****************************************MAIN PROGRAM MENU12);"*** MAIN MENU ***"::5);"(1) INSTRU127ī1040$16368,0.J`:"(4) SOME LESSONS DEAL WITH PHRASES"tj:"RATHER THAN SINGLE WORDS. SINCE"t:"PHRASES CAN BE TRANSLATED CORRECTLY"~:"IN MORE THAN ONE WAY, THOSE LESSONS":"HAVE ONLY A MATCHING DRILL."$::" HE"3:"PROPER ARTICLE, WITH ONE SPACE BETWEEN"d:"THE ARTICLE AND THE NOUN. FOR EXAMPLE,":"THE FRENCH WORD FOR 'TABLE' SHOULD BE":"ENTERED AS 'LA TABLE '.":" (PRESS THE SPACE BAR TO CONTINUE)"X(16384) X" ------- ----- --- ------------"T:"(1) BE SURE TO PRESS THE RETURN KEY"x:"AFTER EACH ENTRY YOU MAKE.":"(2) BE CAREFUL NOT TO TYPE ANY EXTRA":"SPACES BEFORE OR AFTER YOUR ENTRIES.":"(3) ALL NOUNS MUST BE PRECEDED BY TGIVEN YOUR SCORE AS A"CH:"PERCENT OF THE TOTAL POSSIBLE. YOU"oR:"MAY REPEAT THE LESSON IF YOU WISH."\::" (PRESS THE SPACE BAR TO CONTINUE)"fX(16384)pX127ī870z16368,0" SPECIAL NOTES AND INSTRUCTIONS"'4JANNN1"4T$(J)T$(J1))4J54NNNN1N413000:TITLE UPDATEZ4ANCN:r4END DELETE ROUTINE4p********************4zENTER NEW LESSON4:::49);"ENTERING A NEW LESSON"44NNNN14CNAN4ANNN%5:" /N) ";A$30A$"N"ī5682$315690.32ANCN433F3:A$"Y"ī5710o3D:"RE-ENTER YOUR ANSWER. ";A$:56803ND$"OPEN ";T$(AN)3XD$"DELETE ";T$(AN)3bUPDATE TITLE ARRAY3lANNNī57603v57903NNNN1313000:TITLE UPDATE4ANCN:2:TO MENU 2END OF DRILLS:2********************T2|********************h2DELETE ROUTINEt2:::2" YOU HAVE SELECTED THE FOLLOWING"2:"LESSON FOR DELETION:"2:2AN;". ";T$(AN)2:3&"VERIFY THIS COMMAND: (YE NEXT WORD."18X(16384).1BX127ī3640<1L16368,0B1VI1`JO1j1t::" YOU HAVE NOW COMPLETED THE ENTIRE"1~:"LESSON. PRESS THE SPACE BAR TO OBTAIN"1:"YOUR SCORE."1X(16384)1X1273730116368,019000 $G$(JJ)ī35700 JJ%0 CT33540B0 :"WRONG ! TRY AGAIN."L0 3460R0 0 "SORRY. THE CORRECT ANSWER IS "::10)G$(P(J))0 35900 0 "CORRECT"0CT1A3(J)30CT2A3(J)10CT3A3(J)00$ 1."PRESS SPACE BAR FOR THH EQUIVALENT."/R 8000#/\ J1W,/f CT02/p R/z "THE ENGLISH IS ";E$(P(J))X/ s/ "WHAT IS THE FRENCH";/ " ? ";AN$/ CTCT1/ CORRECTNESS CHECK ALLOWS/ FOR WORD MULTIPLICITY/ JJ1W/ E$(P(J))E$(JJ)ī3503/ 35040 AN "(PRESS THE SPACE BAR FOR THE DRILL)";8. X(16384)I. X127ī3343W. 16368,0t. **********************. BEGIN ENGLISH-FRENCH.* .4 " IN THIS DRILL, YOU ARE GIVEN AN".> :"ENGLISH WORD, AND YOU ARE ASKED FOR"/H :"ITS FRENCFRENCH-TO-ENGLISH DRILL. DO YOU WANT"V- :"TO REVIEW THE LESSON BEFORE TAKING THE"- :"ENGLISH-TO-FRENCH DRILL ? (Y/N) ";AN$- (AN$"Y"AN$"N")ī3330- :"RE-ENTER YOUR ANSWER. ";AN$:3310- AN$"N"ī3370- AN$"Y"İ14000- (24)(.)E$(P(J)),: 3160,D (,N "CORRECT":,X CT1A2(J)3L,b CT2A2(J)1^,l CT3A2(J)0d,v , "PRESS SPACE BAR FOR THE NEXT WORD.", X(16384), X127ī3210, 16368,0, , J, , ::" YOU HAVE COMPLETED THE"&- :";AN$+ CTCT1.+ CORRECTNESS CHECK ALLOWSI+ FOR WORD MULTIPLICITYU+ JJ1Wo+ G$(P(J))G$(JJ)3073y+ 3074+ AN$E$(JJ)ī3140+ JJ+ CT33110+ :"WRONG ! TRY AGAIN."+ 3030+& ,0 "SORRY. THE CORRECT ANSWER IS "::10IN FRENCH-ENGLISH*| B* " IN THIS DRILL, YOU ARE GIVEN A"n* :"FRENCH WORD, AND YOU ARE ASKED FOR"* :"ITS ENGLISH EQUIVALENT."* 8000* J1W* CT0* * "THE FRENCH IS ";G$(P(J))* * "WHAT IS THE ENGLISH ";+ " ? ") ";AN$$)@ (AN$"Y"AN$"N")ī2900M)J :"RE-ENTER YOUR ANSWER.";AN$:2880`)T AN$"N"ī2940t)^ AN$"Y"İ14000~)` (24))b "(PRESS SPACE BAR TO BEGIN THE DRILL)";)d X(16384))f X127ī2916)g 16368,0)h **********************r BEGTHERE ARE NO MORE DRILLS IN THIS LESSON."T( "PRESS THE SPACE BAR FOR YOUR SCORE."d( X(16384)u( X127ī2800( 16368,0( 9000( :TO MENU(" :(, " DO YOU WANT TO REVIEW THE LESSON")6 :"BEFORE BEGINNING THE NEXT DRILL ? (Y/Nn :"THE SPACE BAR TO REPEAT THE WORDS"H'x :"WHICH YOU HAVE MISSED."X' X(16384)i' X127ī2690w' 16368,0}' ' 2310' ' ::" YOU NOW HAVE DONE ALL THE WORDS IN"' :"THE MATCHING DRILL CORRECTLY."' PN0ī2850)( :" SG$(P(J))"*"& J!& CTCT1)& Z14& J1W<& Q0S& SG$(P(J))" "Q1]&( ZZQd&2 Js&< Z02740y&F &P :" YOU DID NOT GET ALL OF THE WORDS"&Z :"CORRECT. THE WORDS YOU MISSED ARE"&d :"MARKED WITH AN ASTERISK. PRESS"('50% AS:22::AS:4% CORRECTNESS CHECK ALLOWSO% FOR WORD MULTIPLICITY[% JJ1Wv% G$(P(J))G$(JJ)ī2463% 2464% E$(AS)E$(JJ)2480% JJ% 2530% CT0A1(J)3% CT1A1(J)1% CT1A1(J)0% SG$(P(J))" "% 2540&JDH+D$"CLOSE ";T$(AN)DR+6D\+END LESSON UPDATEPD.********************gD.BEGIN LESSON LOAD}D.D$"OPEN ";T$(AN)D.12100D.D$"READ ";T$(AN)D/PND /WD/J1WD/G$(J)D!/E$(J)D&/JD0/D$"CLOSE ";T$(AN)D5/216,0D:/OLD VALUE OF ANCs(ANBNCx(=C(END OF SELECTION ROUTINEWC*********************pC+BEGIN LESSON UPDATEC +D$"OPEN ";T$(AN)C+D$"DELETE ";T$(AN)C+D$"OPEN ";T$(AN)C+D$"WRITE ";T$(AN)C +PNC%+WC*+J1WC4+G$(J)C9+E$(J)D>+B(6);J;16);T$(J)'B(JNNī10300.B(J;B((CTCT10FB2(10310OB<(CT0YBF((22)yBP("LESSON NUMBER OR M: ";AN$BZ(AN$"M"ī10240B_(AN$""ī10340B`(ZZ1:NO SELECT FLAGBa(CNAN:Bd(BN(AN$)Bn((BN1)(BNNN)ī10310Cr(CNAN:SAVE ROUP OF 10, PRESS M, THEN RETURN."NA'"TO SELECT A LESSON, ENTER THE NUMBER"xA'"OF THAT LESSON, THEN PRESS RETURN."~A'A'3)"NUMBER";17);"TITLE"A'3)"------";17);"-----"A'CT0A(JCT1CT10A((10J1CT)A(BL$B((10J1CT):"PRESS THE SPACE BAR TO CONTINUE."5@j'X(16384)G@t'X127ī10090U@~'16368,0_@'1250g@':@'" THERE ARE PRESENTLY ";NN;" LESSONS ON"@'"THE DISKETTE. THE TITLES ARE DISPLAYED"@'"BELOW IN GROUPS OF 10. TO LIST THE""A'"NEXT GUTINE?'********************5?'LESSON SELECTIONQ?'ZZ0:NO SELECTION FLAGW?$'h?.'NN0ī10050s?8'10130?B'35,24:?G'::" THERE ARE NO LESSONS ON THE DISK."?L':"TO ENTER A LESSON, SELECT THAT OPTION"?V':"FROM THE MENU."%@`':RE ON LESSON ";AN;" IS ";PR;" %. ";1>#::CM$:>#255k>#(PR100)(SF0)İ30500:PLAY FUCHS UND GANSu>#::>#" DO YOU WANT TO REPEAT THE LESSON">$:"NOW (Y/N) ?";RS$>$(RS$"Y")ī2000>$RS$"N"ı>"$9210?,$END OF SCORING ROPR100)(PR90))CM$"EXCELLENT"I=#((PR90)(PR80))CM$"VERY GOOD"l=#((PR80)(PR70))CM$"GOOD"=#((PR70)(PR60))CM$"YOU SHOULD DO THE LESSON OVER."=#(PR60)CM$"STUDY AND THEN DO THE LESSON OVER."=#=#50$>#::"YOUR SCOK)<P(K)ZZ<J<8<END PERMUTATION ROUTINER<(#********************m<2#BEGIN SCORING ROUTINEv<<#SC0N:::7);"*** EDITOR INSTRUCTIONS ***"ICNIHN:" THE PURPOSE OF THE EDITOR IS TO" JRN:"ALLOW AN);28);"(";DS$;")"H6%H6J1W:H6(FF1)(JFJ)ğ\H7(64J);" ";G$(J);21);E$(J)bH7iH 7JoH7H7END DISPLAY ROUTINEHN********************H N********************H%N* *H*N* EDITOR ROUTINES * I/N* G2D$"OPEN TITLES.F".G2D$"WRITE TITLES.F"6G2NNBG2J1NNMG3T$(J)TG3JlG3D$"CLOSE TITLES.F"rG"3G,3END TITLE UPDATEG6********************G6DISPLAY ROUTINEG6G6DS$"ALL DRILLS"G6PN1DS$"MATCHING"H63);AN;". ";T$(ON"F/:"WITH THAT NAME."LF/::" (PRESS THE SPACE BAR TO CONTINUE)"\F/X(16384)nF/X127ī12190|F/16368,0F/1250F/END LOAD ROUTINEF2********************F2 TITLE FILE UPDATE F2D$"OPEN TITLES.F"F2D$"DELETE TITLES.F"ED/:D$"CLOSE ";T$(AN)"EI/216,0.EN/:::PEX/" THE LESSON FILE ";T$(AN)Eb/:"IS EMPTY. USE THE 'DELETE' OPTION TO"El/:"REMOVE ITS NAME FROM THE DISK. THEN"Ev/:"USE THE 'ENTER NEW LESSON' OPTION"F/:"IF YOU WISH TO ENTER A NEW LESS"(THE MAXIMUM NUMBER) IN THE LESSON"7dGY:T$(AN);"."bdHY:3);"(PRESS SPACE BAR TO CONTINUE)"rdIYX(16384)dJYX12722857dKY16368,0:dLY14000:LESSON DISPLAYdMYLR$(65W)dQY23dVY"ENTER NEW FRENCH WORD, PRESS RETURN."e`Y"JUST PRN"-c$Y:"FOR EDITING. TO SELECT A LESSON,"Qc&Y:"RETURN TO THE EDITOR MENU."~c(Y::4);"(PRESS SPACE BAR TO CONTINUE)"c*YX(16384)c+YX127ī22826c,Y16368,0c-Yc.YW20ī22860c8Y:::c=Y" THERE ARE NOW 20 WORD-PAIRS"%dBY:OR"bXZ$;"? (Y/N) ";:"";ES$AbX(ES$"Y")(ES$"N")ī22650PbXES$"N"ı\bXPN1PNtbXFR1:REVISION FLAGzbXbY********************bYADD WORD PAIRSbY(W0)(AN0)ī22815bY22830cY::::" YOU HAVEN'T YET SELECTED A LESSO15aKXW$"ALL THREE DRILLS":aLXZ$"MATCHING DRILLS ONLY"^aMXPN1W$"MATCHING DRILLS ONLY"~aNXPN1Z$"ALL THREE DRILLS"aRX:::a\X" LESSON ";AN;", '";T$(AN);"',"apX:"IS GIVEN FOR ";W$;"."bzX:"DO YOU WISH TO CHANGE IT TO BE GIVEN FJJ))(JJAN)ī22575`-XJJ'`.X22580c`/X:"DUPLICATE TITLE. CHOOSE ANOTHER TITLE.":::22420r`4XOT$T$(AN)`>XT$(AN)NT$`CXT$(AN)NT$`EXFT1:FR1:SET CHANGE FLAGS`FX`GX********************`HXCHANGE DRILL STATUSaIX(W0)(AN0)ī228: _WNT$_WL(NT$)#_WL0ı5_WL20ī22540m_W:"YOUR NEW TITLE IS TOO LONG. TRY AGAIN.":22420_ X:"YOUR NEW TITLE IS '";NT$;"'."_X:"VERIFY (Y/N) :";ES$_ X(ES$"Y")(ES$"N")ī22550_*XES$"N"ī22400_+XJJ1NN`,X(NT$T$( ^V22000%^W********************7^WCHANGE TITLEP^W(W0)(AN0)ī22815Z^W::^W" THE TITLE OF THE LESSON IS"^W:"PRESENTLY '";T$(AN);"'."^W:"ENTER THE NEW TITLE. PRESS RETURN IF"^W:"YOU WANT TO KEEP THE OLD TITLE."_W DELETE WORD PAIRS"6]JV:7);"(6) REVISE WORD PAIRS"]]TV:7);"(7) RETURN TO EDITOR MENU"e]YV19]^V::"SELECT YOUR OPTION BY NUMBER: ";ES$]hVES(ES$)]rV(ES1)(ES7)ī22105]|VES7ı:EDITOR MENU^VES21400,22400,22600,22800,23000,23200* *1\V*********************D\VREVISION MENUk\V:::9);"*** REVISION MENU ***"\V::7);"(1) DISPLAY LESSON"\"V:7);"(2) CHANGE TITLE"\,V:7);"(3) CHANGE DRILL STATUS"\6V:7);"(4) ADD WORD PAIRS"]@V:7);"(5)OW, YOU WILL LOSE THE REVISIONS."I[dU:"DO YOU STILL WANT TO RETURN TO"h[nU:"MAIN MENU (Y/N) ? ";V$[xU(V$"Y")(V$"N")ī21860[}UV$"N"ī20680[UFR0:1250[U*********************[U* *[U* REVISION ROUTINES *\U BAR TO CONTINUE)""ZTX(16384)4ZTX127ī21750BZU16368,0HZ UbZ'U********************{Z(URETURN TO MAIN MENUZ2UFR0ī21900ZS:"SELECTED AND REVISED PREVIOUSLY. IF YOU"UHS"SELECT A NEW LESSON NOW, YOU WILL"URS:"LOSE THE PRESENT REVISED LESSON."V\S:"DO 9,230:38280,2:38281,208:38282,5:38283,230:tu38284,3:38285,208:38286,5:38287,96:38288,234:38289,76:38290,148:38291,149:38292,208:tu38293,236:38294,0:38295,0:38296,246:38297,246:38298,232:38299,232:38300,219:38301,219:\uu38302,38256,133:isu38257,0:38258,169:38259,0:38260,56:38261,237:38262,254:38263,2:38264,133:38265,3:su38266,169:38267,0:38268,133:38269,2:38270,165:38271,1:38272,208:38273,152:38274,234:.tu38275,234:38276,76:38277,135:38278,149:382732,173:38233,253:38234,2:38235,74:38236,240:38237,4:38238,70:ru38239,0:38240,208:38241,249:38242,185:38243,150:38244,149:38245,56:38246,229:38247,0: su38248,133:38249,1:38250,200:38251,185:38252,150:38253,149:38254,101:38255,0:,96:38210,234:38211,76:~qlu38212,70:38213,149:38214,136:38215,240:38216,209:38217,76:38218,76:38219,149:38220,208:qvu38221,235:38222,173:38223,255:38224,2:38225,10:38226,168:38227,185:38228,150:38229,149:Cru38230,133:38231,0:38276:38186,44:38187,149:38188,136:38189,240:38190,5:38191,76:38192,50:38193,149:pXu38194,208:38195,235:38196,164:38197,0:38198,173:38199,48:38200,192:38201,230:38202,2:qbu38203,208:38204,5:38205,230:38206,3:38207,208:38208,5:38209o0u********************2o5uSONG PLAYING ROUTINEo:u38167,76:38168,78:38169,149:38170,164:38171,1:38172,173:38173,48:38174,192:38175,230:oDu38176,2:38177,208:38178,5:38179,230:38180,3:38181,208:38182,5:38183,96:38184,234:VpNu38185,CH"5na[:"WORDS MUST BE NO LONGER THAN 17 LETTERS,"enb["ENGLISH WORDS NO LONGER THAN 15 LETTERS."nc["NO CHANGES OR ENTRIES WERE MADE FOR"nd[:"THE PAIR.":::4);"(PRESS SPACE BAR TO CONTINUE)"ne[X(16384)nf[X127ī23397ng[16368,0:E, PRESS RETURN.";RE$#m@[LE(RE$)8mE[LE0RE$E$(FJ)KmJ[LE15ī23380ZmK[G$(FJ)TG$omL[23390:TOO LONGmM[FF0:23200mT[(LG0)(LE0)FR1mV[G$(FJ)RG$:E$(FJ)RE$mX[FF0:23240m^[:::m_[FF0n`[:" YOUR WORD IS TOO LONG. FRENFRENCH WORD, PRESS RETURN. FOR NOCHANGE, PRESS RETURN.";RG$Jl"[LG(RG$)_l'[LG0RG$G$(FJ)rl,[LG17ī23346l-[23390:TOO LONGl1[FF0:23200l2[G$(FJ)RG$:23350l3[FF0:23240l6[14000:23m;["ENTER ENGLISH WORD, PRESS RETURN. FOR NOCHANGZ"ENTER LETTER OF PAIR TO BE REVISED."TkZ"PRESS SPACE BAR AFTER LAST REVISION.";]kZRV$lkZRV$" "ızkZRV(RV$)k[(RV65)(RV(65W1))ī23250k [FJRV64k [TG$G$(FJ)k[FF1:FLASHING FLAGk[14000:DISPLAY LESSONk[23v>yHv END OF SONGPLAYER POKEXy\v********************jyavPLAY LORELEItyfvTP55ypv765,32yzvJ0yvP%LP%(J):D%LD%(J)yvP%1ıyvD%(D%(40TP))yv767,P%yv766,D%yv38167yvJJ1yv30340zv73,28:ex v38374,26:38375,26:38376,24:38377,25:38378,23:38379,23:38380,21:38381,22:38382,20:x*v38383,21:38384,19:38385,20:38386,18:38387,18:38388,17:38389,17:38390,16:38391,16:y4v38392,15:38393,16:38394,14:38395,15:38396,255:3834:38349,55:38350,51:38351,52:38352,48:38353,49:38354,46:38355,46:w v38356,43:38357,44:38358,41:38359,41:38360,38:38361,39:38362,36:38363,37:38364,34:xv38365,35:38366,32:38367,33:38368,30:38369,31:38370,29:38371,29:38372,27:38338325,110:38326,103:38327,104:38328,97:vu38329,98:38330,92:38331,92:38332,87:38333,87:38334,82:38335,82:38336,77:38337,78:vu38338,73:38339,73:38340,69:38341,69:38342,65:38343,65:38344,61:38345,62:38346,58:Hwv38347,58:38348,5207:38303,207:38304,195:38305,195:38306,184:38307,184:38308,174:38309,174:38310,164:uu38311,164:38312,155:38313,155:38314,146:38315,146:38316,138:38317,138:38318,130:38319,130:+vu38320,123:38321,123:38322,116:38323,116:38324,109:РōȍÍōōŠƩՍōӍٍō׍ōčԍ΍ōōōԍōٍɍٍōǍōˍōҍ΍ԍӍčӍ̍ԍōӍӍˍōϠ̍ōϠ̍ҍϠōҍϠōҍϠύōϠ΍ōϠύōϠčҍϠԍҍϠ׍ҍϠԍҍϠ΍ҍϠǍҍϠōҍϠˍҍϠԍҍϠٍҍϠ΍ҍϠǍҍϠ  ӍՠŠө̠ŠӍŠŠӍӠӍŠōӠڍՠŠЩӠԍ٠ŠͩӠԍ٠ŠƩӭՍŠՍŠΧɠӍɠŠԍŠōɠˍՠӍՠˠө̠ōŠӍŠōŠӍӠӍŠˍӠڍՠˠЩӠԍ٠ˠͩӠԍ٠ˠƩڭӍϠՠˍŭԭ̍ӠŠˍʧɍɠōՠ