' +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ӮɠɯӠɯӠɯ Π ɯӠ WILL BE SCORED AS FOLLOWS:"G :"3 POINTS FOR A CORRECT ANSWER THE"r:"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 HAVE"0:"GOTTEN ALL THE WORDS IN THE DRILL"Y:"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(PRESS SPACE BAR TO CONTINUE)".XX(16384)=bX127600Kl16368,0Qv:" 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 MATCH GIVEN LISTS"?"OF WORDS; (2) ITALIAN-TO-ENGLISH, IN"l:"WHICH YOU ARE GIVEN THE ITALIAN AND"&:"ASKED FOR THE ENGLISH; AND (3)"0:"ENGLISH-TO-ITALIAN, IN WHICH YOU ARE"::"GIVEN ENGLISH AND ASKED FOR ITALIAN."DN" THIS PROGRAM GIVES VOCABULARY DRILL"S"IN THE ITALIAN LANGUAGE. EACH LESSON":"CONSISTS OF UP TO 20 ENGLISH-ITALIAN":"WORD-PAIRS. THERE ARE THREE TYPES OF":"DRILLS IN EACH LESSON: (1) MATCHING, IN":"WHICH YOU ARE ASKED TOE1250 J READ LESSON TITLES;TT$(200):TITLES ARRAYRhD$"OPEN TITLES.I"\r440s|D$"READ TITLES.I"NN:TOTAL NUMBER OF LESSONSJ1NNT$(J)J450NN0216,0D$"CLOSE TITLES.I"150&" 4,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,-192l 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,192x  -1,-1 FP%(46),FD%(46):DATA FOR FUCHS UND GANS I046 "FP%(I),FD%(I) ,IB6 27,64,29,64,31,64,32,64,34,64,34,64,34,64,3Y VARY THE QUESTION ORDER IN A LESSON.C 30000: POKE SONGPLAYERk LP%(33),LD%(33): DATA FOR LORELEIw 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,12(20),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 RANDOML:216,0:NORMAL WINDOW; ONERR OFF' d1 n(10)N x14)"I T A L I A N"::q 11)"V O C A B U L A R Y":: 16)"D R I L L" 330 E$(20),G$(20): ENGLISH AND ITALIAN WORD PAIRS SG$(20): ASTERISK FLAG IN MATCHING DRILL A1(20),A******************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 ITALIAN VOCABULARY DRILL" L$% J$& :(64J):&$' J1ī2350:$( (J1):(63J)B$. 22K$8 BL$S$B 23\$L BL$d$V 22$` ((SG$(P(J))" ")(CT0))ī2540$j "ENTER THE NUMBER OF THE ENGLISH WORD"$t "MATCHING ";(64J);": ";$~ "";AN$:AS(AN$)% (ASW)(AS1)2**#BEGIN MATCHING DRILL"#+#CT06#J1WB#A1(J)0Q#SG$(J)" "e#A2(J)0:A3(J)0l#Jv#8000|## J1W# O$" "# LL(G$(P(J)))# LL17O$""# (64J);" ";G$(P(J));O$;SG$(P(J))22);J;" ";E$(J)# J#$ J1W DRILLS ? (Y/N) ";AN$2"4(AN$"Y"AN$"N")ī2120[">:"RE-ENTER YOUR ANSWER.";AN$:2100n"HAN$"N"ī2190"RAN$"Y"İ14000"\(24)"f"(PRESS SPACE BAR TO BEGIN THE DRILL)";"pX(16384)"zX127ī2160"16368,0#**************************************0!* *J!* DRILL ROUTINES *d!* *~!********************!!::!"THE LESSON IS ";T$(AN);"."!:! " DO YOU WANT TO STUDY THE LESSON""*:"BEFORE BEGINNING THEEDIT LESSONH 20000:EDITOR. RETURN IS VIA OPTION ON EDITOR MENU.b k********************t lEXIT ROUTINE v:(12) " A R R I V E D E R C I !" SF0İ30300:PLAY LORELEI  END OF MENU ROUTINE ********************!********************,DELETE LESSONb(24):"LESSON DELETION. PRESS RETURN TO EXIT.";m35,2310000:SELECT LESSON35,24ZZ0ī1750ANCN12505500:DELETE ROUTINE1250:TO MENU******************** SSON  ;(24):"PRESS SPACE BAR TO RETURN TO MENU.";F35,23Z"14000:DISPLAYj,X(16384){1X127ī1580616368,0:35,24;1250:TO MENU?********************@ENTER NEW LESSONJ6000:ENTER ROUTINET1250:TO MENU12000:LOAD LESSON$2000:DRILL71250:TO MENUQ********************^DISPLAYd(24):"LESSON FOR DISPLAY. EXIT-PRESS RETURN.";35,2310000:LESSON SELECTION35,24ZZ0ī1543ANCN:125012000:LOAD LE MENU.";d35,231i10000:SELECTION ROUTINE<n35,24FoANCNPs1250jw********************uxDRILL{(24):"LESSON FOR DRILL. PRESS RETURN TO EXIT.";}35,2310000:SELECT LESSON35,24ZZ0ī1418ANCN:1250""-:5)"(8) EXIT THE PROGRAM"/222:BL$d7"SELECT YOUR OPTION BY NUMBER : ";AS$:AS(AS$)}<(AS8)(AS1)ī1330FAS460,1360,1400,1500,1600,1700,1800,1900K********************PDISPLAY TITLESZ(24):"PRESS RETURN TO RETURN TO1) INSTRUCTIONS6:5);"(2) DISPLAY LESSON TITLES"` :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)"=X(16384)NX127ī1190\16368,0uEND OF INSTRUCTIONS****************************************MAIN PROGRAM MENU12);"*** MAIN MENU ***"::5);"(4)X127ī1040!$16368,0'.S`:"(4) SOME LESSONS DEAL WITH PHRASES"}j:"RATHER THAN SINGLE WORDS. SINCE"t:"PHRASES CAN BE TRANSLATED CORRECTLY"~:"IN MORE THAN ONE WAY, THOSE LESSONS":"HAVE ONLY A MATCHING DRILL."-DED BY THE";:"PROPER ARTICLE, WITH ONE SPACE BETWEEN"l:"THE ARTICLE AND THE NOUN. FOR EXAMPLE,":"THE ITALIAN WORD FOR 'TABLE' SHOULD BE":"ENTERED AS 'LA TAVOLA'.":" (PRESS THE SPACE BAR TO CONTINUE)"X(1638ONS"/" ------- ----- --- ------------"\:"(1) BE SURE TO PRESS THE RETURN KEY":"AFTER EACH ENTRY YOU MAKE.":"(2) BE CAREFUL NOT TO TYPE ANY EXTRA":"SPACES BEFORE OR AFTER YOUR ENTRIES." :"(3) ALL NOUNS MUST BE PRECEWILL BE GIVEN YOUR SCORE AS A"KH:"PERCENT OF THE TOTAL POSSIBLE. YOU"wR:"MAY REPEAT THE LESSON IF YOU WISH."\::" (PRESS THE SPACE BAR TO CONTINUE)"fX(16384)pX127ī870z16368,0" SPECIAL NOTES AND INSTRUCTIE UPDATE4ANCN:#4JANNN154T$(J)T$(J1)<4JH4NNNN1a413000:TITLE UPDATEm4ANCN:4END DELETE ROUTINE4p********************4zENTER NEW LESSON4:::49);"ENTERING A NEW LESSON"44NNNN14CNANFY THIS COMMAND: (Y/N) ";A$-30A$"N"ī56827315690A32ANCNG33Y3:A$"Y"ī57103D:"RE-ENTER YOUR ANSWER. ";A$:56803ND$"OPEN ";T$(AN)3XD$"DELETE ";T$(AN)3bUPDATE TITLE ARRAY3lANNNī57603v57903NNNN1413000:TITL16368,029000 2:TO MENU32END OF DRILLSM2********************g2|********************{2DELETE ROUTINE2:::2" YOU HAVE SELECTED THE FOLLOWING"2:"LESSON FOR DELETION:"2:2AN;". ";T$(AN)2:3&"VERISS SPACE BAR FOR THE NEXT WORD."018X(16384)A1BX127ī3640O1L16368,0U1V\1`Jb1j1t::" YOU HAVE NOW COMPLETED THE ENTIRE"1~:"LESSON. PRESS THE SPACE BAR TO OBTAIN"1:"YOUR SCORE."1X(16384)1X127373023 0 3504!0 AN$G$(JJ)ī3570)0 JJ80 CT33540U0 :"WRONG ! TRY AGAIN."_0 3460e0 0 "SORRY. THE CORRECT ANSWER IS "::10)G$(P(J))0 35900 0 "CORRECT"0CT1A3(J)30CT2A3(J)10CT3A3(J)00$ 1."PRE /H :"ITS ITALIAN EQUIVALENT."*/R 80005/\ J1W>/f CT0D/p d/z "THE ENGLISH IS ";E$(P(J))j/ / "WHAT IS THE ITALIAN";/ " ? ";AN$/ CTCT1/ CORRECTNESS CHECK ALLOWS/ FOR WORD MULTIPLICITY/ JJ1W0 E$(P(J))E$(JJ)ī35000 . (24)8. "(PRESS THE SPACE BAR FOR THE DRILL)";H. X(16384)Y. X127ī3343g. 16368,0. **********************. BEGIN ENGLISH-ITALIAN.* .4 " IN THIS DRILL, YOU ARE GIVEN AN".> :"ENGLISH WORD, AND YOU ARE ASKED FOR" THE"5- :"ITALIAN-TO-ENGLISH DRILL. DO YOU WANT"e- :"TO REVIEW THE LESSON BEFORE TAKING THE"- :"ENGLISH-TO-ITALIAN DRILL ? (Y/N) ";AN$- (AN$"Y"AN$"N")ī3330- :"RE-ENTER YOUR ANSWER. ";AN$:3310- AN$"N"ī3370. AN$"Y"İ140ER IS "::10)E$(P(J))!,: 3160',D 6,N "CORRECT"H,X CT1A2(J)3Z,b CT2A2(J)1l,l CT3A2(J)0r,v , "PRESS SPACE BAR FOR THE NEXT WORD.", X(16384), X127ī3210, 16368,0, , J, - ::" YOU HAVE COMPLETED ";+ " ? ";AN$+ CTCT1<+ CORRECTNESS CHECK ALLOWSW+ FOR WORD MULTIPLICITYc+ JJ1W}+ G$(P(J))G$(JJ)3073+ 3074+ AN$E$(JJ)ī3140+ JJ+ CT33110+ :"WRONG ! TRY AGAIN."+ 3030+& ,0 "SORRY. THE CORRECT ANSW**r BEGIN ITALIAN-ENGLISH#*| N* " IN THIS DRILL, YOU ARE GIVEN A"{* :"ITALIAN WORD, AND YOU ARE ASKED FOR"* :"ITS ENGLISH EQUIVALENT."* 8000* J1W* CT0* * "THE ITALIAN IS ";G$(P(J))* + "WHAT IS THE ENGLISHRILL ? (Y/N) ";AN$/)@ (AN$"Y"AN$"N")ī2900X)J :"RE-ENTER YOUR ANSWER.";AN$:2880k)T AN$"N"ī2940)^ AN$"Y"İ14000)` (24))b "(PRESS SPACE BAR TO BEGIN THE DRILL)";)d X(16384))f X127ī2916)g 16368,0*h ********************504( :"THERE ARE NO MORE DRILLS IN THIS LESSON."_( "PRESS THE SPACE BAR FOR YOUR SCORE."o( X(16384)( X127ī2800( 16368,0( 9000( :TO MENU(" :(, " DO YOU WANT TO REVIEW THE LESSON")6 :"BEFORE BEGINNING THE NEXT D PRESS"3'n :"THE SPACE BAR TO REPEAT THE WORDS"S'x :"WHICH YOU HAVE MISSED."c' X(16384)t' X127ī2690' 16368,0' ' 2310' ' ::" YOU NOW HAVE DONE ALL THE WORDS IN"' :"THE MATCHING DRILL CORRECTLY."( PN0ī28 2540& SG$(P(J))"*" & J,& CTCT14& Z1?& J1WG& Q0^& SG$(P(J))" "Q1h&( ZZQo&2 J~&< Z02740&F &P :" YOU DID NOT GET ALL OF THE WORDS"&Z :"CORRECT. THE WORDS YOU MISSED ARE"'d :"MARKED WITH AN ASTERISK.451 % 2350!% AS:22::AS:?% CORRECTNESS CHECK ALLOWSZ% FOR WORD MULTIPLICITYf% JJ1W% 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))" "&$(J)D9+E$(J)D>+J-DH+D$"CLOSE ";T$(AN)3DR+JD\+END LESSON UPDATEdD.********************{D.BEGIN LESSON LOADD.D$"OPEN ";T$(AN)D.12100D.D$"READ ";T$(AN)D/PND /WD/J1WD/G$(J)D!/E$(J)D&/JE0/D$"CLOSE ";T$(AN310#Cr(CNAN:SAVE OLD VALUE OF AN-Cs(ANBN3Cx(QC(END OF SELECTION ROUTINEkC*********************C+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*+J1WD4+GBL$B((10J1CT)*B(6);J;16);T$(J);B(JNNī10300BB(JOB((CTCT10ZB2(10310cB<(CT0mBF((22)BP("LESSON NUMBER OR M: ";AN$BZ(AN$"M"ī10240B_(AN$""ī10340B`(ZZ1:NO SELECT FLAGBa(CNAN:Bd(BN(AN$)Cn((BN1)(BNNN)ī10ST THE"6A'"NEXT GROUP OF 10, PRESS M, THEN RETURN."bA'"TO SELECT A LESSON, ENTER THE NUMBER"A'"OF THAT LESSON, THEN PRESS RETURN."A'A'3)"NUMBER";17);"TITLE"A'3)"------";17);"-----"A'CT0A(JCT1CT10A((10J1CT)B(OM THE MENU."9@`'::"PRESS THE SPACE BAR TO CONTINUE."I@j'X(16384)[@t'X127ī10090i@~'16368,0s@'1250{@':@'" THERE ARE PRESENTLY ";NN;" LESSONS ON"@'"THE DISKETTE. THE TITLES ARE DISPLAYED"A'"BELOW IN GROUPS OF 10. TO LI,$END OF SCORING ROUTINE3?'********************I?'LESSON SELECTIONe?'ZZ0:NO SELECTION FLAGk?$'|?.'NN0ī10050?8'10130?B'35,24:?G'::" THERE ARE NO LESSONS ON THE DISK."?L':"TO ENTER A LESSON, SELECT THAT OPTION" @V':"FR08>#::"YOUR SCORE ON LESSON ";AN;" IS ";PR;" %. ";E>#::CM$N>#255>#(PR100)(SF0)İ30500:PLAY FUCHS UND GANS>#::>#" DO YOU WANT TO REPEAT THE LESSON">$:"NOW (Y/N) ?";RS$>$(RS$"Y")ī2000>$RS$"N"ı>"$9210?TSTANDING !"5=#((PR100)(PR90))CM$"EXCELLENT"]=#((PR90)(PR80))CM$"VERY GOOD"=#((PR80)(PR70))CM$"GOOD"=#((PR70)(PR60))CM$"YOU SHOULD DO THE LESSON OVER."=#(PR60)CM$"STUDY AND THEN DO THE LESSON OVER."=#>#5ZZP(J)<P(J)P(K)"<P(K)ZZ)<J/<L<END PERMUTATION ROUTINEf<(#********************<2#BEGIN SCORING ROUTINE<<#SC0N:::7);"*** EDITOR INSTRUCTIONS ***"ICNJHN:" THE PURPOSE OF THE EDITOR IS 63);AN;". ";T$(AN);28);"(";DS$;")",H67H6J1WLH6(FF1)(JFJ)ğnH7(64J);" ";G$(J);21);E$(J)tH7{H 7JH7H7END DISPLAY ROUTINEHN********************H N********************H%N* *I*N* EDITOR ROUTINES "DELETE TITLES.I"(G2D$"OPEN TITLES.I"@G2D$"WRITE TITLES.I"HG2NNTG2J1NN_G3T$(J)fG3J~G3D$"CLOSE TITLES.I"G"3G,3END TITLE UPDATEG6********************G6DISPLAY ROUTINEG6G6DS$"ALL DRILLS"G6PN1DS$"MATCHING"&H TO ENTER A NEW LESSON"0F/:"WITH THAT NAME."`F/::" (PRESS THE SPACE BAR TO CONTINUE)"pF/X(16384)F/X127ī12190F/16368,0F/1250F/END LOAD ROUTINEF2********************F2TITLE FILE UPDATEF2D$"OPEN TITLES.I"G2D$) E5/216,0E:/+ED/:D$"CLOSE ";T$(AN)6EI/216,0BEN/:::dEX/" 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 WISHWORD-PAIRS"7dBY:"(THE MAXIMUM NUMBER) IN THE LESSON"IdGY:T$(AN);"."tdHY:3);"(PRESS SPACE BAR TO CONTINUE)"dIYX(16384)dJYX12722857dKY16368,0:dLY14000:LESSON DISPLAYdMYLR$(65W)dQY23eVY"ENTER NEW ITALIAN WORD, PRESS RETT SELECTED A LESSON"?c$Y:"FOR EDITING. TO SELECT A LESSON,"cc&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::: d=Y" THERE ARE NOW 20 E IT TO BE GIVEN FOR"1bXZ$;"? (Y/N) ";:"";ES$SbX(ES$"Y")(ES$"N")ī22650bbXES$"N"ınbXPN1PNbXFR1:REVISION FLAGbXbY********************bYADD WORD PAIRSbY(W0)(AN0)ī22815bY22830cY::::" YOU HAVEN'T YE(W0)(AN0)ī22815.aKXW$"ALL THREE DRILLS"LaLXZ$"MATCHING DRILLS ONLY"paMXPN1W$"MATCHING DRILLS ONLY"aNXPN1Z$"ALL THREE DRILLS"aRX:::a\X" LESSON ";AN;", '";T$(AN);"',"apX:"IS GIVEN FOR ";W$;"."bzX:"DO YOU WISH TO CHANG1NN&`,X(NT$T$(JJ))(JJAN)ī22575.`-XJJ9`.X22580u`/X:"DUPLICATE TITLE. CHOOSE ANOTHER TITLE.":::22420`4XOT$T$(AN)`>XT$(AN)NT$`CXT$(AN)NT$`EXFT1:FR1:SET CHANGE FLAGS`FX`GX********************`HXCHANGE DRILL STATUSaIX OLD TITLE."_W:_WNT$*_WL(NT$)5_WL0ıG_WL20ī22540_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`+XJJ,22800,23000,23200^V220007^W********************I^WCHANGE TITLEb^W(W0)(AN0)ī22815l^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 THES"%]@V:7);"(5) DELETE WORD PAIRS"H]JV:7);"(6) REVISE WORD PAIRS"o]TV:7);"(7) RETURN TO EDITOR MENU"w]YV19]^V::"SELECT YOUR OPTION BY NUMBER: ";ES$]hVES(ES$)]rV(ES1)(ES7)ī22105]|VES7ı:EDITOR MENU^VES21400,22400,22600ON ROUTINES *(\U* *C\V*********************V\VREVISION MENU}\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 PAIRIN"3[ZU:"MENU NOW, YOU WILL LOSE THE REVISIONS."[[dU:"DO YOU STILL WANT TO RETURN TO"z[nU:"MAIN MENU (Y/N) ? ";V$[xU(V$"Y")(V$"N")ī21860[}UV$"N"ī20680[UFR0:1250[U*********************[U* * \U* REVISI4);"(PRESS SPACE BAR TO CONTINUE)"4ZTX(16384)FZTX127ī21750TZU16368,0ZZ UtZ'U********************Z(URETURN TO MAIN MENUZ2UFR0ī21900ZS:"SELECTED AND REVISED PREVIOUSLY. IF YOU"UHS"SELECT A NEW LESSON NOW, YOU WILL"VRS:"LOSE THE PRESENT REVISED LE,135:38278,149:38279,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: uu38293,236:38294,0:38295,0:38296,246:38297,246:38298,232:38299,232:38300,219:338254,101:38255,0:38256,133:~su38257,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:Ctu38275,234:38276,76:38277230,133:38231,0:38232,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:7,208:38208,5:38209,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:Xru388184,234:kpNu38185,76: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:3820397og[16368,0:-o0u********************Go5uSONG PLAYING ROUTINEo:u38167,76:38168,78:38169,149:38170,164:38171,1:38172,173:38173,48:38174,192:38175,230: pDu38176,2:38177,208:38178,5:38179,230:38180,3:38181,208:38182,5:38183,96:3D IS TOO LONG. ITALIAN"Jna[:"WORDS MUST BE NO LONGER THAN 17 LETTERS,"znb["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)of[X127ī23 RETURN. FOR NOCHANGE, PRESS RETURN.";RE$7m@[LE(RE$)LmE[LE0RE$E$(FJ)_mJ[LE15ī23380nmK[G$(FJ)TG$mL[23390:TOO LONGmM[FF0:23200mT[(LG0)(LE0)FR1mV[G$(FJ)RG$:E$(FJ)RE$mX[FF0:23240m^[:::m_[FF0n`[:" YOUR WORl[23Pl["ENTER ITALIAN WORD, PRESS RETURN. FOR NOCHANGE, PRESS RETURN.";RG$^l"[LG(RG$)sl'[LG0RG$G$(FJ)l,[LG17ī23346l-[23390:TOO LONGl1[FF0:23200l2[G$(FJ)RG$:23350l3[FF0:23240l6[14000:23)m;["ENTER ENGLISH WORD, PRESS LESSONkZ23:kZ"ENTER LETTER OF PAIR TO BE REVISED."gkZ"PRESS SPACE BAR AFTER LAST REVISION.";pkZRV$kZRV$" "ıkZRV(RV$)k[(RV65)(RV(65W1))ī23250k [FJRV64k [TG$G$(FJ)k[FF1:FLASHING FLAGk[14000:DISPLAY LESSON jZ:::;jZ" YOU HAVE NOT YET SELECTED A LESSON"gjZ:"FOR EDITING. RETURN TO THE EDITOR"jZ:"MENU TO SELECT A LESSON."jZ::4);"(PRESS SPACE BAR TO CONTINUE)"jZX(16384)jZX127ī23234jZ16368,0jZkZ14000:DISPLAY0005iZ::" YOU HAVE DELETED ALL OF THE WORDS"iZ:"IN THE LESSON ";T$(AN);"."::"THE LESSON IS NOW BEING DELETED FROM"::"THE DISKETTE."iZ5710:FR0:FT0:iZ********************iZREVISE WORD PAIRSiZ(W0)(AN0)ī23215jZ23240,hvSyHv END OF SONGPLAYER POKEmy\v********************yavPLAY LORELEIyfvTP55ypv765,32yzvJ0yvP%LP%(J):D%LD%(J)yvP%1ıyvD%(D%(40TP))yv767,P%yv766,D%yv38167zvJ371,29:38372,27:38373,28:zx 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:0y4v38392,15:38393,16:38394,14:383wv38347,58:38348,54: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:3838323,116:38324,109:38325,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:]8301,219:quu38302,207: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:ϠčōϠōōϠҍōϠōōϠōōϠ̍ōϠ΍ōϠԍōϠ΍ōϠԠҍōϠ΍ōϠˍōϠҍōϠ΍ōϠԍōϠ٠éōϠٍōϠ̍ōϠōōϠōōō΍ύōɍōύōōԍύčōčύ׍ύٍōǍύԍύǍύˠҠ̍ύˍɍٍύōύԍύӍύčύč  ɠōՠŨ̯өɠōŠӍōŠӍɠύŠōɠōՠŠͯЩϠύՠŠ̯Щɠύ٠ŠͩŠύ٠ŠƩϠύϠōՠɍՠŨͯөɠՠŨ̯өɠŠӍŠӍɠύŠōɠōՠŨͯЩϠύՠŨ̯Щɠύ٠ŠͩŠύ٠ŠƩϠύɠ͍ՠɍՠŨͯө  ٍٍٍύ٭ōٍύ٭ōٍύŠč