' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` 鷎귭෍ᷩ췩緈JJJJx i 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/  !"#$%&'()*+,-./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`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ 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̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &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ȿõ` F`  \ 濭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 ( N Ϡ@跻~!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 ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ Ť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볩쳢8DH ؿ 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뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵ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 ~(`# d֠ĭz#êŦƥ堠ѥԀհť՞ŠÊĨȘƸ+QQàҠ蟠ՙ蠌â蠹鰠ѠMŠ𻩠éȰ堤ȠzȥŃ蠠栠Ϡ砠Ū𠠺蠉ʱ̠ŲŅӬƠŠ蠠ƠϠ堠𠁠Ʌ΁ӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠ٠ӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠ӍԍĠΠ͠ԠŠҠƠŠǠӍӠ٠٠ϠŠčӠōm@|AL$(20),AN$(20,3),FI$(50),HL$(20,2),IL$(20,2),QU$(20,5),AC%(20),HC%(20),NA%(20),NH%(20),NI%(20),NQ%(20)@A(X)(X(DC$))2@"":** MUST BE FIRST VAR. DECLARED ** 1?UF1>?"CD$(4)K?,Q$(34){?636608:** JUST IN CASE IT WAS WIPED OUT **?JSC0: ** SET SELECTED CHOICE TO 0 **?LDR1: ** SET DEFAULT DRIVE TO #1 **@OTL$"GREAT AMERICA":PN$"STATES & PRESIDENTS",I) >vI> vLP">*vCD$"CLOSE"(>4vA>v ** READ STATUS ** w>vCD$"OPEN ST":CD$"READ ST":PN$:CD$"CLOSE ST":>| ** ERROR ROUTINE ** >}216,0:> }32010>> ** SET UP VARIABLES ** >(4)"BRUN SP4.DS":(4)"BLOAD I/S/F"(?IN$1NA%(LP):768:AN$(LP,I)(IN$,1):I9=uAC%(LP),HC%(LP)m=vHC%(LP)1HC%(LP)4HC%(LP)5NH%(LP)0:30240= vNH%(LP):NH%(LP)030240=vI1NH%(LP):768:HL$(LP,I)(IN$,1):I=vLP230240=vI11NH%(LP)>vHL$(LP,I)"*"HL$(LP,I)HL$(LP1L$(LP,I)(IN$,1):I$:$O:.u ** LINES 30000 TO 39999 ARE RESERVED FOR DISK FILE READ ROUTINES ** :/u ** READ LESSON NAMES INTO FI$(ARRAY) ** :0uCD$"OPEN LESSONS FILE,D"DR:CD$"READ LESSONS FILE"::uNF,NU;?uNLP1AL$(LP)AL$(LP1)AL$(LP)""AL$(LP)"*"=9NAL$(LP)J9NNA%(LP)i9NI1NA%(LP):AN$(LP,I):I9NAC%(LP):HC%(LP)9NHC%(LP)1HC%(LP)4HC%(LP)5NH%(LP)0:202409NNH%(LP):NH%(LP)020240 :OI1NH%(LP):LP1HL$(LP,I)HL$(LP1,I)ĺESSON NAME NM$ DATA TO DISK ** F8NCD$"OPEN"NM$",D"DR:CD$"WRITE"NM$V8NTW:NW:RNc8NLP1TW8NNI%(LP):NI%(LP)0201508NI1NI%(LP):LP1IL$(LP,I)IL$(LP1,I)ĺ"*":201458NIL$(LP,I)8NI8NNQ%(LP)8NI1NQ%(LP):QU$(LP,I):I09999 ARE RESERVED FOR DISK FILE WRITE ROUTINES ** d7N ** WRITE LESSON NAMES FI$(ARRAY) TO DISK ** 7 NCD$"OPEN LESSONS FILE,D"DR:CD$"WRITE LESSONS FILE"7*NNF:NU7/NNFNU02003074NLP1NFNU:FI$(LP):LP7>NCD$"CLOSE":8N ** WRITE OUT L*6C+SC1000,2000,3000#6H+11000M6[+ ** RETURN TO GREAT AMERICA PRGM ** e6\+::CD$"RUN HELLO"p6f+111106+ ** DRAW BOARDER ** 6+1:1:RPT"*",406+26+I223:"*";:36,39:"*";:I6+23:1:RPT"*",40;6+17N ** LINES 20000 TO 29 RETURN TO LESSON MENU"&5"+SC11045@5#+7SC2:C1::"*":H5%+21m5*+:13:"SELECT CHOICE";::" >";54+A$(SC):VT20:HT27:MX2:I%055+SC0A$""56+A$,VT,HT,MX,I%59+A$""(A$)1(A$)4I%1110606>+SC(A$):SC411100:** EXIT *:11200:** DRAW BRD **K4*3:DC$TL$:A(40)1:DC$: ** SERIES TITLE **Q4*4*:DC$PN$:A(40)1:DC$:: ** PROGRAM NAME **4*94+C104+C:"1) MAKE A NEW LESSON":4 +C:"2) CHANGE A LESSON":4+C:"3) ERASE A LESSON":5 +C:"4)PROGRAM"3'SCSC703'4SC2:C1::"*":83'24]3':12:"SELECT CHOICE";::" >";3'A$(SC):VT23:HT26:MX2:I%03'A$,VT,HT,MX,I%3'A$""(A$)1(A$)8I%1101503'SC(A$):SC1000,2000,3000,4000,5000,6000,70003'100004*2'130&2$'DC$PN$" MAIN MENU":100-2.'6628'C10W2B'C)"1) MAKE A NEW LESSON":t2L'C)"2) EDIT A LESSON":2V'C)"3) ERASE A LESSON":2j'C)"4) CHANGE LESSON ORDER":2t'C)"5) COPY LESSONS":2~'C)"6) PRINT LESSONS":3'C)"7) EXIT Y$:"1I1KY1:"=";:I:"=":81X:(7)"GOOD BYE">1]N1@DR1:30000^1EDR2:200001G6:"WORKING ON OF "NFNU1JZZ1NFNU1O6:11:ZZ;:1:1TNM$FI$(ZZ):DR1:301001^DR2:TW13:NW13:201001hZZ1rDR11|"ALL DONE":;:20:"HINT CODE: ";HC%(LP):\0BHC%(LP)1HC%(LP)4HC%(LP)5ĺ"NO HINT AVAILABLE":6220j0F"HINTS:"0GI1NH%(LP):5:HL$(LP,I):I:0LKY40:69000VLP0`(12)0jL20tCD$"PR#0"::BELL:BELL:"DONE":1~"PRESS RETURN TO EXIT >";KP/"INSTRUCTION LINES:"//NI%(LP)06140Q/I1NI%(LP):5:IL$(LP,I):Id/:"QUESTION:"/I1NQ%(LP):5:QU$(LP,I):I:/"ANSWER TITLE:"/5:AL$(LP):/$"ANSWERS:"/.I1NA%(LP):5:AN$(LP,I):I:08"ANSWER CODE: ";AC%(LP)6900V."Lesson name: "NM$;:35:"Played ";:DC$"SEQUENTIALLY":RN1DC$"RANDOMLLY"a.DC$:."Total number of questions : ";TW:."Number of questions to use: ";NW.KY40:6900.LP1TW/:"WORD NUMBER ......................... ";LI$(I)FI$(I1):I'-0 UFNUNU1:31303-5 NFNF1N-: CD$"DELETE "NM$",D"DRs-D 20000:** WRITE LESSONS FILE **y-N ---p130-z4-"HIT RETURN TO START PRINT OUT";KY$-CD$"PR#1"-L21NFNU-NM$FI$(L2):30100.KY79:X2:I%0, A$,VT,HT,MX,I%4, I%1A$"N"3150F, A$"Y"3040i, ** DELETE LESSON FI$(NM) ** , :10:DC$"ONE MOMENT PLEASE":100:, DC$"ERASING LESSON":100:, DC$FI$(NM):100, NM$FI$(NM),! NMNFNU3120-& INM(NFNU)1:FA LESSON ** 8+ NFNU0UFNU0DC$"ERASE":550:3150a+ IN$"ERASE LESSON #":802:NM03150r+ 22:39)" "+ DC$"DELETE "FI$(NM)" (Y/N) >":HTA(40)+ 22:HT:"DELETE ";::FI$(NM);::" (Y/N) >";:+ HTHT14(FI$(NM)), A$"N":VT21:MVT,HT,MX,I%1*` A$""I%1A$"Y"A$"N"2390B*j A$"Y"2430]*t 2030:** LOOP BACK **n*~ NWTWNWTWw* 870* 1::NM$TM$2460* ** EFFECTIVE RENAME OF LESSON *** CD$"DELETE"TM$:FI$(NM)NM$* 20000* 20100* + ** ERASE 21)7)) HC%(L2)1HC%(L2)4HC%(L2)5NH%(L2)0:2355a). I1NH%(L2):HL$(L2,I)HL$(L21,I):Ii)3 L2u)8 TWTW1)= 2420)B ** CONT EDIT **)L 314)Q 110:24::"ARE YOU DONE EDITING THIS LESSON >";:)V A$"N":VT23:HT34:MX2:I%0 *[ A$,023000(I1NI%(L2):IL$(L2,I)IL$(L21,I):Il(NQ%(L2)NQ%(L21):I1NQ%(L2):QU$(L2,I)QU$(L21,I):I( AL$(L2)AL$(L21)( NA%(L2)NA%(L21)( I1NA%(L2):AN$(L2,I)AN$(L21,I):I( AC%(L2)AC%(L21)( HC%(L2)HC%(L21))$ NH%(L2)NH%(L""I%12170''A$"Y"A$"N"21708'A$"N"2380T'** DELETE WORD (LP) **'TW0İ110:13::"NO MORE WORDS";::I11500:I:"EXIT"'** NO MORE WORDS **'LPTW2360: ** DECREMENT TW **'L2LPTW1(NI%(L2)NI%(L21):NI%(L2)5:2385#&J** ADD ANOTHER WORD **`&KLPLP1:TWTW1:150:200:314:FLLPLP1:TWTW1:2420j&M2420|&RLPLP1:2420&[** EDIT WORD **&\110&p24:11::"DELETE THIS WORD >";:&zA$"N":VT23:HT28:MX2:I%0&A$,VT,HT,MX,I% 'A$Т24:2::"<-- --> RETURN TO EDIT, E TO EXIT";:<% KY$J%KY(KY$)Y%KY82100i% KY132140y%*KY212120%,KY692430%/2060%3** BACK UP **%4LP1LPTW:2420%>LPLP1:2420%G** ADVANCE **%HLPTW2130&ILP20İ96200 $965!$** FALL THRU **5$RN0:NWTW:870K$UFNUNU1:1215W$NFNF1}$FI$(NFNU)NM$:960:20000:20100$$NFNU0UFNU0DC$"EDIT":550:2470$IN$"EDIT LESSON #":802:NM02470$30100$LP1:TM$NM$$2003%ELED";:1::I1800:I:200,#LP2011505#110Z#:24:11:"ADD ANOTHER WORD >";{#A$"Y":VT23:HT28:MX2:I%0#$A$,VT,HT,MX,I%#.I%11050#8A$"Y"A$"N"1050#=#BA$"N"1150#GLPLP1#LTWTW1#V1010$~LP20110:24:11::"IS THIS CORRECT >";C"A$"Y":VT23:HT28:MX2:I%0X"A$,VT,HT,MX,I%g"I%1992"A$"Y"A$"N"992":"NM$"":LP1:TW1:NM0"150:200:314"FLLP11220#FLįBUZZ:LPLP1:TWTW1:110::24:13:"WORD CANCG ** *!:12:11:"ONE MOMENT PLEASE":N! ** PRNT TO MANY WORDS MSG ** !130:BELL:10:"YOU HAVE ENTERED THE MAXIMUM NUMBER OF":"WORDS ALLOWED FOR A LESSON."!24:6:"PRESS ANY KEY TO CONTINUE >";:KY$:! ** IS THIS CORRECT ** ""1T,MX,I% 140 I%1893< KY(A$):KY1KYTW893F NWKYt VT13:HT29:MX2:I%0:A$"S":RN1A$"R" A$,VT,HT,MX,I% 140 I%1893 A$"R"A$"S"915 RN0:A$"R"RN1 990:KY$"N"893 ! ** LOADING MS3e ** PRINT/EDIT # WORDS TO USE AND RND FLG ** <f130gk6:"TOTAL # OF WORDS IN LESSON : ";TWp10:"# OF WORDS TO USE IN LESSON >"u14::"R";::"ANDOM OR ";::"S";::"EQUENTIAL USE .. >"}A$(NW):VT9:HT29:MX2:I%0 A$,VT,HNM$"":NM0:857TKY(A$).UUFKYKYNFEVKY0KYNFNU850[XNM$FI$(KY):NMKYcY:[ ** CHECK A$ FOR A MATCH IN FI$(ARRAY) ** \FL0:KY$FI$(NM):FI$(NM)"":NFNU0868aI1NFNU:A$FI$(I)FL1:INFNUcIdFI$(NM)KY$:836 41306F21:4$8FLĖ205<LP10ĺ"0";U>LP((UF1)NF)") "FI$(LP);_@FLĺjBFLFLrDLP~FKY844H846LN22:DC$IN$" >":HTA(40):HT:DC$;:HTHT(DC$)1PA$"":VT21:MX2:I%0RA$,VT,HT,MX,I%SA$""  ** DISPLAY LESSONS ** ?"NFNU0UFNU0A$"":851H#130O$4b&FL0:F20:KY0z'S1:UFSNF1:F21(LPSNFNU*LP33F2824,24:5:DC$"PRESS "Q$"RETURN"Q$" FOR MORE NAMES":DC$;.84601202KYLPNFNU:RN MSG ** >120:24:7:"PRESS "Q$"RETURN"Q$" TO CONTINE";^ A$"":VT23:HT32:MX2:I%0sA$,VT,HT,MX,I%y ** NO LESSONS MESSAGE ** &:9:8:"THERE ARE NO LESSONS TO":+8:DC$" ON THIS DISK.":0520:** WAIT FOR CR **5I1466II1:488GA$""A$" "HL$(LP,I)"":NH%(LP)I1:507lLP1A$"*"A$HL$(LP1,I):140}HL$(LP,I)A$II1:I2488NH%(LP)2NH%(LP)1HL$(LP,2)"":23:1:37)" ";FLİ990:A$"N"312  ** PRESS RETUHC%(LP)1HC%(LP)4HC%(LP)5NH%(LP)0:HL$(LP,1)"":HL$(LP,2)"":508d ** EDIT HINT LINES ** IN$"(OPTIONAL) .. 2 LINES MAX":102I1A$HL$(LP,I):VT20I:HT1:MX38:I%0A$,VT,HT,MX,I%140I%0498I1UF422I%1INA%(LP):424)AC%(LP)(A$)E ** EDIT HINT CODE ** {IN$"1=NO HNT/2=REQ ?/3=DISP/4=SCRAM/5=LTOR":102A$(HC%(LP)):VT18:HT36:MX2:I%0A$,VT,HT,MX,I%(A$)1(A$)5468140I%1450HC%(LP)(A$)GII1:I3426NA%(LP)3KNA%(LP)1AN$(LP,3)"":17:11:19);" "i ** EDIT ANSWER CODE ** IN$"1 = ALL ACCEPTABLE, 2 = ENTERED ORDER":102A$(AC%(LP)):VT18:HT12:MX2:I%0A$,VT,HT,MX,I%(A$)1(A$)2452140$AN$(LP,I):VT13I:HT10:MX20:I%07UFVT16:HT5LA$,VT,HT,MX,I%U140hI%1I1406I%1II1:426:** EDIT PREVIOUS ANSWER ** A$""I1A$" "I1426AN$(LP,I)A$UF484A$""A$" "NA%(LP)I1:446A$,VT,HT,MX,I%140KI%1INQ%(LP):382: ** EDIT QUESTION **nLP1A$"*"A$AL$(LP1):140}AL$(LP)A$ ** EDIT ANSWERS ** I1UFIN$"ANSWER FOR ABOVE QUESTION":425IN$"MINIMAL 1 .. 3 ANSWERS MAX"102$A1A$" "I1384!QU$(LP,I)A$mA$""A$" "NQ%(LP)I1:JI5:6J:6:33);" ":QU$(LP,J)"":J:406II1:IMN384NQ%(LP)MN ** EDIT ANSWER TITLE ** IN$"(OPTIONAL) .. 1 LINE MAX":102A$AL$(LP):VT12:HT5:MX34:I%0:6:33);" "|I1E~IN$"MINIMUM 1 .. "(MN)" LINES MAX":102mA$QU$(LP,I):VT5I:HT5:MX34:I%0A$,VT,HT,MX,I%140I%0394I1NI%(LP)1332I1352II1:384:** EDIT PREVIOUS QUESTION LINE ** A$""Ih140'jI%1334:** BACK UP ** LlLP1A$"*"A$IL$(LP1,I):140]nIL$(LP,I)A$pA$""A$" "IL$(LP,2)"":NI%(LP)1:374rNI%(LP)2t ** EDIT QUESTION ** vNI%(LP)2MN5:380xMN4 zNQ%(LP)5NQ%(LP)4:QU$(LP,5)"":11$IL$(LP1,I):140#ZIL$(LP,I)A$^\A$""A$" "IL$(LP,1)"":IL$(LP,2)"":NI%(LP)0:374l]NI%(LP)1^ ** EDIT 2ND INSTRUCTION LINE ** `IN$"(OPTIONAL) .. 2 LINES MAX":102bI2dA$IL$(LP,I):VT3:HT5:MX34:I%0fA$,VT,HT,MX,I%I11500:I:314F:140:)HNM$A$OJ **EDIT 1ST INSTRUCTION LINE ** xLIN$"(OPTIONAL) .. 2 LINES MAX":102NI1PA$IL$(LP,I):VT2:HT5:MX34:I%0RA$,VT,HT,MX,I%T140UI%1LP1FL1:508VI%1314XLP1A$"*"A ** :FL0:LP1332C;IN$"LESSON NAME .. 15 CHARS. MAX":102c<A$NM$:VT0:HT5:MX15:I%0|>:A$,VT,HT,MX,I%:@I%1FL1:508:** L-ARROW WAS PRESSED. EXIT ? **BA$""A$" "316D860:FLIN$"THIS NAME ALREADY USED":102:BELL:1NA%(LP):11:AN$(LP,I):Ic19::"ANSWER CODE:";::AC%(LP);::27:"HINT CODE:";::HC%(LP)i{:"HINTS:":"NH%(LP)0300'I1NH%(LP):2:HL$(LP,I):I,11016 **** EDIT DATA FOR WORD (LP) **** 8 ** EDIT FILE NAMEI1NI%(LP):6:IL$(LP,I):I& 6; :"QUESTION:":] I1NQ%(LP):6:QU$(LP,I):Iz 12::"ANSWER TITLE:": 6:AL$(LP) UFĢ16::"ANSWER :":6::AN$(LP,1):20:280 16::"ANSWERS:";::"<":15:10:"/":17:10:"\"15:I"":I ^ ** DISPLAY EDIT SCREEN FOR WORD (LP) OF (TW) WORDS FOR LESSON NAME (NM$) ** d t :39);" " 1:"NAME:"NM$;:21:"WORD ";:LP10ĺ"0"; LP" OF ";:TW10ĺ"0"; TW" WORDS" "INSTRUCTION LINE:": NI%(LP)0240 OR EDIT SCREEN FOR WORD (LP) ** E NI%(LP)0:I12:IL$(LP,I)"":Ij NQ%(LP)0:I15:QU$(LP,I)"":Iy AL$(LP)"" NA%(LP)0:I13:AN$(LP,I)"":I AC%(LP)1 HC%(LP)1 UFHC%(LP)3:** DISPLAY HINT ** NH%(LP)0:I12:HL$(LP,I)d`gighihhȭg`8gghhhȭg`  ;` ;``d ;`LÔɍLΔɃLQɠ e e)d``dc` `dLד`c3 eɠ&`de)d` ;dLJLד` `dLdddLd`L`LԓdudLדdt cdc`d`d ;` ] ^ c`` ߠhȱg d ԓ d$` d` `0c `i` R ba`ȥoȥpi` g RP`f`__`]%^md$8(0$%Lœ "` ; eɕJɉbɒ LԓɄLɈЅoW)JȽwxopȑX8LH J I h ?`,0`H J%H0hh ?` ߅ab`fȱHȱh ^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ D^0ȱ^0LΑȱ^ȱ^oȱ^p89hmnТ!ʥ787586XVWUxvwu֦78X^w_xWe^^__`X8oXopp78EF- ,00 *$,XǘP$,ȱ8# =ۥ % ,L;LL { lݥHH g hh  = 8ɥp8n` (stopU^_R Dij^_lk 7󅔆nmLޑ^_jOLLHѸLH iHhH`PUBELLBUZZEOLEOPRPTwAsג { lݩ ک; ީ ڢ0 $. *媆 gݥ 9 r륢H #h 4ZN24 ** $ x24:1:39);"";:1:"":Q } ** CLR SCREEN AND PRINT TITLE LINE ** w :DC$TL$:100:DC$PN$::100:: ** CLEAR LINE FOR LENGTH OF MX AT VT,HT AND PRINT A$ ** VT1:HT1:MX1);" ":VT1:HT1:A$: ** SETUP EMPTY DATA FE ** F110002 b **** COMMON MISC RTN'S **** O c ** CENTER FUNCTION ** b dA(40):DC$: e ** PRINT INSTRUCTION LINE ** f110:24:DC$IN$::A(40):DC$;:1:"":: i ** CLEAR LINE 24 TO INVERSE ** n:120:: s ** CLEAR LINE 8$ ** LAST UPDATED 07/29/84 ** M ** SET USER FLAG (UF) AT 63001 ** dONERR GOTO 32000o36608(** SET ERROR FLAG HERE **263000:30000:UF10000<** A USER IS OPERATING THE EDITOR ** A30400:** READ STATUS FOR PROGRAM NAM                    vP (104)8ĺ(4)"PR#0":(4)"IN#0":2048,0:103,1:104,8:(4)"RUN EDITOR"X:o(4)"RUN EDITOR1"u(*":20235:OHL$(LP,I): OI':OLP7:OCD$"CLOSE"=:$O:.u ** LINES 30000 TO 39999 ARE RESERVED FOR DISK FILE READ ROUTINES ** :/u ** READ LESSON NAMES INTO FI$(ARRAY) ** :0uCD$"OPEN LESSONS FILE,D"DR:CD$"READ LESSONS FILE"::uNF,NU ;?uLP1AL$(LP)AL$(LP1)AL$(LP)""AL$(LP)"*"<9NAL$(LP)I9NNA%(LP)h9NI1NA%(LP):AN$(LP,I):I~9NAC%(LP):HC%(LP)9NHC%(LP)1HC%(LP)4HC%(LP)5NH%(LP)0:202409NNH%(LP):NH%(LP)020240 :OI1NH%(LP):LP1HL$(LP,I)HL$(LP1,I)ĺ"SSON NAME NM$ DATA TO DISK ** E8NCD$"OPEN"NM$",D"DR:CD$"WRITE"NM$U8NTW:NW:RNb8NLP1TW8NNI%(LP):NI%(LP)0201508NI1NI%(LP):LP1IL$(LP,I)IL$(LP1,I)ĺ"*":201458NIL$(LP,I)8NI8NNQ%(LP)8NI1NQ%(LP):QU$(LP,I):I/9N99 ARE RESERVED FOR DISK FILE WRITE ROUTINES ** c7N ** WRITE LESSON NAMES FI$(ARRAY) TO DISK ** 7 NCD$"OPEN LESSONS FILE,D"DR:CD$"WRITE LESSONS FILE"7*NNF:NU7/NNFNU02003074NLP1NFNU:FI$(LP):LP7>NCD$"CLOSE":8N ** WRITE OUT LE+SC1000,2000,30006H+11000H6[+ ** RETURN TO GREAT AMERICA PRGM ** d6\+CD$"RUN GREAT AMERICA"o6f+111106+ ** DRAW BOARDER ** 6+1:1:RPT"*",406+26+I223:"*";:36,39:"*";:I6+23:1:RPT"*",40;6+07N ** LINES 20000 TO 299RN TO LESSON MENU"!5"+SC11045;5#+7SC2:C1::"*":C5%+21h5*+:13:"SELECT CHOICE";::" >";54+A$(SC):VT20:HT27:MX2:I%055+SC0A$""56+A$,VT,HT,MX,I%59+A$""(A$)1(A$)4I%1110605>+SC(A$):SC411100:** EXIT **6C200:** DRAW BRD **F4*3:DC$TL$:A(40)1:DC$: ** SERIES TITLE **L4*4*:DC$PN$:A(40)1:DC$:: ** PROGRAM NAME **4*94+C104+C:"1) MAKE A NEW LESSON":4 +C:"2) CHANGE A LESSON":4+C:"3) ERASE A LESSON":5 +C:"4) RETUAM"3'SCSC7+3'4SC2:C1::"*":33'24X3':12:"SELECT CHOICE";::" >";{3'A$(SC):VT23:HT26:MX2:I%03'A$,VT,HT,MX,I%3'A$""(A$)1(A$)8I%1101503'SC(A$):SC1000,2000,3000,4000,5000,6000,70003'100004*:11130!2$'DC$PN$" MAIN MENU":100(2.'6128'C10R2B'C)"1) MAKE A NEW LESSON":o2L'C)"2) EDIT A LESSON":2V'C)"3) ERASE A LESSON":2j'C)"4) CHANGE LESSON ORDER":2t'C)"5) COPY LESSONS":2~'C)"6) PRINT LESSONS":3'C)"7) EXIT PROGR1I1KY1:"=";:I:"=":31X:(7)"GOOD BYE"91]I1@DR1:30000Y1EDR2:20000z1G6:"WORKING ON OF "NFNU1JZZ1NFNU1O6:11:ZZ;:1:1TNM$FI$(ZZ):DR1:301001^DR2:TW13:NW13:201001hZZ1rDR11|"ALL DONE":2':"HINT CODE: ";HC%(LP):W0BHC%(LP)1HC%(LP)4HC%(LP)5ĺ"NO HINT AVAILABLE":6220e0F"HINTS:"0GI1NH%(LP):5:HL$(LP,I):I:0LKY40:69000VLP0`(12)0jL20tCD$"PR#0"::BELL:BELL:"DONE":0~"PRESS RETURN TO EXIT >";KY$:"INSTRUCTION LINES:"*/NI%(LP)06140L/I1NI%(LP):5:IL$(LP,I):I_/:"QUESTION:"/I1NQ%(LP):5:QU$(LP,I):I:/"ANSWER TITLE:"/5:AL$(LP):/$"ANSWERS:"/.I1NA%(LP):5:AN$(LP,I):I:08"ANSWER CODE: ";AC%(LP);:20Q."Lesson name: "NM$;:35:"Played ";:DC$"SEQUENTIALLY":RN1DC$"RANDOMLLY"\.DC$:."Total number of questions : ";TW:."Number of questions to use: ";NW.KY40:6900.LP1TW.:"WORD NUMBER ......................... ";LP/FI$(I1):I"-0 UFNUNU1:3130.-5 NFNF1I-: CD$"DELETE "NM$",D"DRn-D 20000:** WRITE LESSONS FILE **t-N z---p130-z4-"HIT RETURN TO START PRINT OUT";KY$-CD$"PR#1"-L21NFNU-NM$FI$(L2):30100-KY79:6900%0, A$,VT,HT,MX,I%/, I%1A$"N"3150A, A$"Y"3040d, ** DELETE LESSON FI$(NM) ** , :10:DC$"ONE MOMENT PLEASE":100:, DC$"ERASING LESSON":100:, DC$FI$(NM):100, NM$FI$(NM),! NMNFNU3120 -& INM(NFNU)1:FI$(I),MX,I%,*` A$""I%1A$"Y"A$"N"2390=*j A$"Y"2430X*t 2030:** LOOP BACK **i*~ NWTWNWTWr* 870* 1::NM$TM$2460* ** EFFECTIVE RENAME OF LESSON *** CD$"DELETE"TM$:FI$(NM)NM$* 20000* 20100* + ** ERASE A LES2)) HC%(L2)1HC%(L2)4HC%(L2)5NH%(L2)0:2355\). I1NH%(L2):HL$(L2,I)HL$(L21,I):Id)3 L2p)8 TWTW1z)= 2420)B ** CONT EDIT **)L 314)Q 110:24::"ARE YOU DONE EDITING THIS LESSON >";:)V A$"N":VT23:HT34:MX2:I%0*[ A$,VT,HT0+(I1NI%(L2):IL$(L2,I)IL$(L21,I):Ig(NQ%(L2)NQ%(L21):I1NQ%(L2):QU$(L2,I)QU$(L21,I):I}( AL$(L2)AL$(L21)( NA%(L2)NA%(L21)( I1NA%(L2):AN$(L2,I)AN$(L21,I):I( AC%(L2)AC%(L21)( HC%(L2)HC%(L21)($ NH%(L2)NH%(L21)12170"'A$"Y"A$"N"21703'A$"N"2380O'** DELETE WORD (LP) **'TW0İ110:13::"NO MORE WORDS";::I11500:I:"EXIT"'** NO MORE WORDS **'LPTW2360: ** DECREMENT TW **'L2LPTW1(NI%(L2)NI%(L21):NI%(L2)023085&J** ADD ANOTHER WORD **[&KLPLP1:TWTW1:150:200:314:FLLPLP1:TWTW1:2420e&M2420w&RLPLP1:2420&[** EDIT WORD **&\110&p24:11::"DELETE THIS WORD >";:&zA$"N":VT23:HT28:MX2:I%0&A$,VT,HT,MX,I%'A$""I%2::"<-- --> RETURN TO EDIT, E TO EXIT";:7% KY$E%KY(KY$)T%KY82100d% KY132140t%*KY212120%,KY692430%/2060%3** BACK UP **%4LP1LPTW:2420%>LPLP1:2420%G** ADVANCE **%HLPTW2130&ILP20İ965:23$965$** FALL THRU **0$RN0:NWTW:870F$UFNUNU1:1215R$NFNF1x$FI$(NFNU)NM$:960:20000:20100~$$NFNU0UFNU0DC$"EDIT":550:2470$IN$"EDIT LESSON #":802:NM02470$30100$LP1:TM$NM$$200.%24:;:1::I1800:I:200'#LP2011500#110U#:24:11:"ADD ANOTHER WORD >";v#A$"Y":VT23:HT28:MX2:I%0#$A$,VT,HT,MX,I%#.I%11050#8A$"Y"A$"N"1050#=#BA$"N"1150#GLPLP1#LTWTW1#V1010#~LP2012004:11::"IS THIS CORRECT >";>"A$"Y":VT23:HT28:MX2:I%0S"A$,VT,HT,MX,I%b"I%1992{"A$"Y"A$"N"992":"NM$"":LP1:TW1:NM0"150:200:314"FLLP11220#FLįBUZZ:LPLP1:TWTW1:110::24:13:"WORD CANCELED"%!:12:11:"ONE MOMENT PLEASE":I! ** PRNT TO MANY WORDS MSG ** !130:BELL:10:"YOU HAVE ENTERED THE MAXIMUM NUMBER OF":"WORDS ALLOWED FOR A LESSON."!24:6:"PRESS ANY KEY TO CONTINUE >";:KY$:! ** IS THIS CORRECT ** "110:2I% 140 I%18937 KY(A$):KY1KYTW893A NWKYo VT13:HT29:MX2:I%0:A$"S":RN1A$"R" A$,VT,HT,MX,I% 140 I%1893 A$"R"A$"S"915 RN0:A$"R"RN1 990:KY$"N"893 ! ** LOADING MSG ** 󺍲客򍱍䮍¬àͺ􍠠®î卍㍱󺍲묠덍􍱍򺍱ٍԠ堍젵󍍳ƮĮ􍍱㍱ɍ®򍠠î̮®卢墠Ԡ堍٠ԠŮԠ嬠Ơ宍ԍ󠱹¬à宍썠덠®䍠îI1466II1:488GA$""A$" "HL$(LP,I)"":NH%(LP)I1:507lLP1A$"*"A$HL$(LP1,I):140}HL$(LP,I)A$II1:I2488NH%(LP)2NH%(LP)1HL$(LP,2)"":23:1:37)" ";FLİ990:A$"N"312  ** PRESS RETUHC%(LP)1HC%(LP)4HC%(LP)5NH%(LP)0:HL$(LP,1)"":HL$(LP,2)"":508d ** EDIT HINT LINES ** IN$"(OPTIONAL) .. 2 LINES MAX":102I1A$HL$(LP,I):VT20I:HT1:MX38:I%0A$,VT,HT,MX,I%140I%0498I1UF422I%1INA%(LP):424)AC%(LP)(A$)E ** EDIT HINT CODE ** {IN$"1=NO HNT/2=REQ ?/3=DISP/4=SCRAM/5=LTOR":102A$(HC%(LP)):VT18:HT36:MX2:I%0A$,VT,HT,MX,I%(A$)1(A$)5468140I%1450HC%(LP)(A$)GII1:I3426NA%(LP)3KNA%(LP)1AN$(LP,3)"":17:11:19);" "i ** EDIT ANSWER CODE ** IN$"1 = ALL ACCEPTABLE, 2 = ENTERED ORDER":102A$(AC%(LP)):VT18:HT12:MX2:I%0A$,VT,HT,MX,I%(A$)1(A$)2452140$AN$(LP,I):VT13I:HT10:MX20:I%07UFVT16:HT5LA$,VT,HT,MX,I%U140hI%1I1406I%1II1:426:** EDIT PREVIOUS ANSWER ** A$""I1A$" "I1426AN$(LP,I)A$UF484A$""A$" "NA%(LP)I1:446A$,VT,HT,MX,I%140KI%1INQ%(LP):382: ** EDIT QUESTION **nLP1A$"*"A$AL$(LP1):140}AL$(LP)A$ ** EDIT ANSWERS ** I1UFIN$"ANSWER FOR ABOVE QUESTION":425IN$"MINIMAL 1 .. 3 ANSWERS MAX"102$A1A$" "I1384!QU$(LP,I)A$mA$""A$" "NQ%(LP)I1:JI5:6J:6:33);" ":QU$(LP,J)"":J:406II1:IMN384NQ%(LP)MN ** EDIT ANSWER TITLE ** IN$"(OPTIONAL) .. 1 LINE MAX":102A$AL$(LP):VT12:HT5:MX34:I%0:6:33);" "|I1E~IN$"MINIMUM 1 .. "(MN)" LINES MAX":102mA$QU$(LP,I):VT5I:HT5:MX34:I%0A$,VT,HT,MX,I%140I%0394I1NI%(LP)1332I1352II1:384:** EDIT PREVIOUS QUESTION LINE ** A$""Ih140'jI%1334:** BACK UP ** LlLP1A$"*"A$IL$(LP1,I):140]nIL$(LP,I)A$pA$""A$" "IL$(LP,2)"":NI%(LP)1:374rNI%(LP)2t ** EDIT QUESTION ** vNI%(LP)2MN5:380xMN4 zNQ%(LP)5NQ%(LP)4:QU$(LP,5)"":11$IL$(LP1,I):140#ZIL$(LP,I)A$^\A$""A$" "IL$(LP,1)"":IL$(LP,2)"":NI%(LP)0:374l]NI%(LP)1^ ** EDIT 2ND INSTRUCTION LINE ** `IN$"(OPTIONAL) .. 2 LINES MAX":102bI2dA$IL$(LP,I):VT3:HT5:MX34:I%0fA$,VT,HT,MX,I%I11500:I:314F:140:)HNM$A$OJ **EDIT 1ST INSTRUCTION LINE ** xLIN$"(OPTIONAL) .. 2 LINES MAX":102NI1PA$IL$(LP,I):VT2:HT5:MX34:I%0RA$,VT,HT,MX,I%T140UI%1LP1FL1:508VI%1314XLP1A$"*"A ** :FL0:LP1332C;IN$"LESSON NAME .. 15 CHARS. MAX":102c<A$NM$:VT0:HT5:MX15:I%0|>:A$,VT,HT,MX,I%:@I%1FL1:508:** L-ARROW WAS PRESSED. EXIT ? **BA$""A$" "316D860:FLIN$"THIS NAME ALREADY USED":102:BELL:ẍ򍍲򍱍Ԡٺ󮍍􍠠̠ԠŠӠȍŠӠԠΠ ®􍠠î􍲍堠썍堍ᱴԠ뺍좍Ġč٠č䮍¬Í󠠠堢򿢍    24 ** $ x24:1:39);"";:1:"":Q } ** CLR SCREEN AND PRINT TITLE LINE ** w :DC$TL$:100:DC$PN$::100:: ** CLEAR LINE FOR LENGTH OF MX AT VT,HT AND PRINT A$ ** VT1:HT1:MX1);" ":VT1:HT1:A$: ** SETUP EMPTY DATA FE ** F110002 b **** COMMON MISC RTN'S **** O c ** CENTER FUNCTION ** b dA(40):DC$: e ** PRINT INSTRUCTION LINE ** f110:24:DC$IN$::A(40):DC$;:1:"":: i ** CLEAR LINE 24 TO INVERSE ** n:120:: s ** CLEAR LINE ٍҠ٠ԍԠԿ Ӎʍ ΍ōʍ 嬠䮍㩠䮍 󠦠􍹰堣 վߪժժתժկժժծժ߾ժպժժժժժժժժժժժժժժժժŪժժݪժժժժժժծժժտߪժժߪתպժժժժժժժժժժժժժժժժժժժժݪժժժժժժծժժտժժժժժժתժժժߪתժߪ߾߮ժժպժժժժժժߪժݪժժժժժժתժժծժժտժժժժժժתժժժߪժת߾߮ժժվժժժժժժߪժժժժժժժժתժժծժժտժժժժժժժתժժժ׿תժժժժժժժժժժժժժժժժժժ߾߮ժժתծժժվժժժժժժתժժժժߪժժժתժժծժժտժժժժתժժժժժժժת߾ժժժժժժժժժժժժժժժժׯÏݪߪժժߪկժժվժժժժժժժתժպժժߪժժժߪժժծժտժժժժժժժժժժժժ߾ժժժժժժժժժժժժժժժժׯݪߪժժժժվժժժժժժժתժպժժߪժժժߪժժծժ߾ժժׯժժժժժժժժժժժժժժժժݪת վժժժժպ                     ֦Ǘ^_Ɨe^^__`/Ǘ8oǗoppoƗ)JȽopȑ/ǗL'p8n` stopU^_R ij^_lk 󅔆nmL=^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ ^0ȱ^0L-ȱ^ȱ^oȱ^p͗혗hmnТ1ʥݖǗŗƗė L)))~*+'N~NNN'J(~9٢ 9٣9٤ (`N' N~NNL5`@ d ZP ǔ( ` - ݍԩݍ2`2/= ǔ (`` L& L '&' ǔ ߠȭ(`),3/`ʽ`J )])L,],/]/`/=//J,,,~-.LPQL`ɾLSɂL` 6/- ǔ( Lw 676 ߠȽ7`n/= ǔ( ` 蓢 ݍԩnݍ2`/=ĊԊԈԊԊЂЂԊЂЂM,& r`)&JJ&&' &' &' f&')'`* ./` `- 45Ld iȈ0`ԊԊ   ` ( VL  L`L  ( LL ߠ ` J ` i  ix` , ( ))`2L8p`p|888p88px@`p8 x?|p@~|xpp`@@@?@@@`ppx|~@p|~~~||xxxpp``@l88x<p 8   8p 0` ````px<x@ x@@`x````` @    8p|0p``@@o;FF, , <88x88888<``p`````@@@`@@@@@@@Xxx<`@@@@@@@@`;n;F1F1F1F1o;l8    <p88p???x&x=x88888hp8 <<<8 p p8<<<8pp8<|<8 p@``p`````pp888p088p>>8 p``0 >>>8 p`@@@@`| @`p8|??~~||xxxppp```@@??@@```pppxxx||~~| x<p n<p&| x< p88p@8h|LD@@@@@@`<8 p><8 0p``@@o;FFn, , <<888x8888<p````````p@8p  Ll|\  < |<<4tddD<<8hhH H   p  pp f66vf x@@` 0x 8|x|`88<<<<88`|||8 88x8888 ||8 88x8888|p8>8`p8 8 p`ppp888@```@@@`@ <80 ` ` p|?00~8@p xX xp@X xh@6 6@`0 0xXXx0x \x@`@@`><$$88<$<($$8 $$$$ $ ****$$$$$$$$$04 < <$$$$8""""**""$$$8 >> >>>>"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "                        өĠ ίũĠ үƩ ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPҠРֺč̠ĠĠĠ #2H $)) &)!(*e))e++8) )L Lp"H $)) &+(*hi#H j j L *(+) 0!*(`$ H))? @(hN    Vɖ ILɓ%Ɂ)ɍ*ɘ&,  ɕ( ` (LN N ` `( I`  $J  -ʽ -` ( "   a ` <hLp $,  %%#%  kH %+I`*L )*! 0h`"H $)) &)(*)+hi _ LG 8 ,  L,*,*,*m-`JJJim-, ,`,`,ʝʝʝʈ` `,-e$* + ,m,`',*`,**`,Q**`,1**` JJJKʽ);`  )` l `  R l J g $8%m%%  l R l $%`$% L^ $' n $i$(` e  k  k  e  e [ \ e f t y~)8o 8( g % Hiz hi `$%$$0`8$%Ʃ8`T U@ RWP`  m  G $H$ ; h$%`  8 Ƚ* +`, -L ``,6 7hhhL HHH% % l )  H I hhh` ^ n hhh`q r L^ 0i8e)# +  A L 00J4F) 3 4 48  ' $L 8  (,,,,`8$m$`8%mLv *UU*ժ     * H H H H ?   Lg Ld Lj Lm N O Y O & O S M U g O  O O ; 9 HHH N S      J(12),VI%(12):298:(IN$,1):I:CD$"CLOSE MESSAGES":339:FR38400:RW%1:uR5,150,150,-1,200,200,7,40,90,80,90,80,90,80,9,15,110,100,90,80,70,60,50,40,2,25,255,2,25,90uS(4)"BRUN MIN.MAX":(4)"BRUNDSP MIN MAX":B$(12,4):WX%(3),WY%(3),PJ(12),VI%(12):300:0:),PCO$(15):CQ$(17):CR$(18):CS$(19):CT$(20):CU$(21):CV$(22):CW$(23):CY$(25):FS$(28):CL$(29):XY$(30):MU$(31):Q$(34):I029:MS%(I):I5uQCD$"BLOAD I/S/F":CD$"BLOAD GC":CD$"OPEN MESSAGES":CD$"READ MESSAGES":I110:768:SD$(I)FI$(50),HL$(15,2),IL$(15,2),QU$(15,5),AC%(15),HC%(15),NA%(15),NH%(15),NI%(15),NQ%(15),CH%(20),AR%(15),MS%(29),SD$(10):A(X)(X(DC$))21sOCB$(2):CC$(3):CD$(4):CE$(5):BG5tPCF$(6):CG$(7):CH$(8):CJ$(10):CK$(11):HM$(12):CN$(14):(I):IrFCD$"CLOSEHR":333$rGgrHCD$"OPENST":CD$"READST":PN$,FL,NA$,S2,SN,GM:CD$"CLOSEST":qrI331rJCD$"OPENST":CD$"WRITEST":PN$:FL:NA$:S2:SN:GMrKCD$"CLOSEST":333rLrM64166sNIN$"":CD$(4):DR1:AL$(15),AN$(15,3),KY:768:KY$(IN$,1):KY$:I:CD$"CLOSEC":58:rqB16303,0:CD$"BLOADLG,A$2000":16304,0:I112:816:I:58:qCCD$"OPENHR":CD$"READHR":NN:I1NN:HR$(I),SC%(I):I:CD$"CLOSEHR":qD326rECD$"OPENHR":CD$"WRITEHR":NN:I1NN:HR$(I):SC%NH%(LP):NH%(LP)0320Np=I1NH%(LP):768:HL$(LP,I)(IN$,1):I:LP2320p>I11NH%(LP):HL$(LP,I)"*"HL$(LP,I)HL$(LP1,I)p?Ip@LP:CD$"CLOSE":I1NW:AR%(I)I:I:LS0:NRNW:/qACE$;CO$;HM$;CR$;CB$:7:CD$"OPENC":CD$"READC":KY:I1$(LP1,I)o8Ieo9NQ%(LP):I1NQ%(LP):768:QU$(LP,I)(IN$,1):I:768:AL$(LP)(IN$,1):LP2315o:AL$(LP)"*"AL$(LP)AL$(LP1)o;NA%(LP):I1NA%(LP):768:AN$(LP,I)(IN$,1):I:AC%(LP),HC%(LP):HC%(LP)1HC%(LP)4HC%(LP)5NH%(LP)0:320p<z# ұ: Šؠ Šà Ǡ" Ӡ à Ҡ ԠҠ дӠ Ϡ Ԡ8ԻΠ ɯӯƠ РΠؠήؠà  Ӳɠ  ҠӠ ҠӠ ŭӠ  ΠӠΠӠ ͠Ӡ  Ӡ٠Ӡ٠ӠԠ Ӡ  ӠԠӠӠ ӠӠӠӠ Ӡ ΠӠ ԠӠӠ  ӠӠӠŠӠ ӠӠŠ Ӡ̠ҠӠ  ӠĠӠ٠Ӡ٠Ӡ ٠Ӡ 㮠⍱宍ߠ宍ᮠ⮠㮠󍍱㍱߮ᮠ⮠㮠㍱򮍱ߠᮍᮠŮ⮠⮠㮠􍍱፱軠ߠᮠ⮠㮠፱㮠፱ߠ堍讍㍱󮍱ߠ宍ᮠʱᬠ⬠㮍ߠ卢򮢍ᮠ⮠㮠፱ߠᮠ 詍󍱍󮍲卍宍󮍲荍􍱍󍍱󮍲󺍱卍󮍲Ϡ宍썍䍱䮍ፍ宍퍍宍卍򍱍󮍱򍱍􍍱   Ӡ͠ӍӠ٠Ӡ٠ӠԍӍӲɍҠӍҠӍŭӍŠ؍ōӍ̠ҠӍӠĠӍ٠Ӎ٠Ӡ٠ӠΠӍԠӍӠӠӠӍŠӍӍӍԠӍӍӠӍӍӠӠΠӠ 򍤵危堠묠嬍孍俍󍱍忍󍱍俍危῍챳ծӮ忍󍱍򍍱򍍱򍱍򍍱򍍱򍍱򍍱򍍱򍍱􍱍ẍ䍱򍍱򍱍򍍱危򍍱獱򍍱썍卍􍱍썍썍􍱍썍򍍱򍱍ẍ썍䍱ẍ򍍱ẍ򍍱썍썍썍   㮠􍍱⍱ߠ讍ᮠ⮠㮠፱뢍䠢ᢠ߮ᮠ⮠㮠􍍱㍱ᢠᮍ߮ᮠᮠ⮠㮠㍱䮍ߠᮠ⮠㮠⍱򮍱򠱲󮍍򮍲򠴰򮍍򍱍栱򮍲򮍍򍱍׮Ȯ孍뮍宍ծӮ덱ᮍ宍謠殍󮍲򍱍 危ᮍ򮍲堢堢󮍍捱嬠ᮍ宍󍱍宍󍱍宍危󮍲宍򱳍宍堢客󍱍    󍱍򠠠󿍍󍱍󿍍ɠԍ̮®宍ƍ쭍ƍ򮍱ԍ報ᮍƍԍ젱ƍԍϧﱳԠƠ宍ԍծӮ򮍱 󍱍䍍䮍􍱍䠳󮍲卍כֿ堢󮢍󍍱᠍䮍⠨򍱍䮍󍍱宍䢍宍퍍䍱宍荍󍱍䠍򮍲䍍򍍱􍱍󮍲򍍱䍱򮍲獍   宍危䮍嬠򍱍讍ծӮ宍嬠󮍍栱󮢍危嬠덱ፍፍ򍱍덍􍱍᠍危덍􍱍䬠ፍፍ笠ፍ򍱍󍍱危鱳宍卍ʠ󍍱󍱍ፍ묠⍱򠲹ᮠԮ⮠㮠򍍱፱䠢⍱卢墠ᮠƮĮ⮠㮠㍱ᮠ⮠㮠栱ᮠ⮠㮠፱ɍᮠ⮠㮠̮®ᮠ⮠㮠򍍱፱ծӮɮᮠ⮠㮠䍍㍱殍ᮠƮĮ⮠㮠򍍱㍱宍ᮠ⮠㮠⍱􍍱㍱ᮠ⮠㮠䍍⍱ᮠ⮠î㍱ᱳᬠ⬠宍ᮠ⮠㮠򍍱㍱ᮠ⮠㮠ƮĮ   󮍱ԍƍԮᮍԍᮍԮƍ鱳ᬠ⬠󮍴ᮠ⮠㮠卍㍱ᮠ⮠ƮĮ㮠򍍱⍱    򍱍卍􍱍􍍱򍱍獱􍍱򍱍䍍󍱍宍򍍱䍱󍍱􍱍危䍍䍱䍍危􍱍􍍱卍􍱍򍠍򍱍򍍱䍱젵󍍱젨쮩󍱍獍Įî󺍱卍썍􍱍덱፱덍危򍍱፱󍍱卍󍱍덱䍍덱ƮĮ􍱳򮍱፱፱Ԯ􍍱덱׮Ȯ򩍍፱卍   卍덱፱󍱍䍍፱􍍱ʮѮ󍍱󍱍卍危̮®󍱍፱ʮ󍍱󍱍獍鍱򱳍덍􍱍􍱍獍׮Ȯ獱䍍􍱍߮宍ߠ󮍍危߮宍ߠ栱嬠謠ծӮ߮䮍宍߮䍱󮍲ߠ􍱍߮󮍲߮報󮍲ߠߠ󱳍宍߮ߠ򍱍ᮠ⮠㮠㍱ᮠƮĮ⮠㮠፱謠򮍲ᮠ⮠㮠䍍፱㍱ծӮ梍ᮠ⮠㮠⍱宍ᮠ⮠㮠獍፱⮠㮠፱䮍ᮠ⮠Ԯ㮠򍍱⍱򮍲ᮠ⮠̮®㮠㮠򍍱፱䠱򮍲ᮠ⮠㮠䍍፱栢ᮠʮᮠԮ⮠̮®㮠㍱宍ᮠ⮠ƮĮ     ɮ򍱍宍Ԡ箍䍱䮍ɮ򍱍򍱍ծӮ宍򍱍󮍍ᠢﱳ宍䠢򮍍䍱􍍱덍ʍ卍󍱍󺍱򍍱卍퍍􍱍卍򍱍򍍱􍱍 卍􍍱卍􍱍ҍ􍱍卍덱􍱍󺍱ˍ䍱򍱍򍱍   򍍱򍍱獱ƮĮ􍍱􍱍􍱍ߠᮠ⮠㮠®㍱ߠᮠ⮠㮠⍱䭍ծӮߠᮠ⮠®㮠䍍፱ᬠﬠ㮍ᮠ⮠㮠䍍⍱堍ߠ客ᮠ®⮠Ԯ㮠䍍⍱ߠᮠ⮠㮠Ԯ􍍱⍱ﮍߠ퍪ߠᮠ⮠®㮠􍍱፱ߠ堢墍ᮠԮ⮠㮠􍍱፱㮠򍍱፱젲ͮߠ宍ᮠԮ⮠㮠䍍፱宍ᬠ⬠㮍ߠ堍ᮠ⮠㮠䍍㍱󮍱ߠ嬠ᮠ⮠®ߠ宍ᮠ⮠㮠̮®፱ᮍᮠ⮠㮠̮®⍱󮍱ߠᮠ⮠㮠⍱ɮߠ謠宍ᮠ⮠㮠㍱󮍱ߠߠᮠ⮠㮠㍱Įîߠ쮍ᮠ⮠㮠፱ᮠ̮®⮠㮠፱ߠ䠱ծӮᮠ⮠㮠䍍㍱䮍ᮠ⮠㮠䍍፱宍ߠᮠ̮®⮠㮠򍍱⍱ߠ䬠䬠ߠᮠ⮠㮠፱쮍ߠ󱳍ᬠ⬠㮍ߠ嬠ᮠ⮠㮠̮®⍱󮍱ߠ宍ᮠ⮠㮠򍍱፱     客󍱍嬠客䍱殢􍱍䍱ɠ򍱍ɠ嬠ɠɠ嬍ɠ묠򮢍􍱍ɠ󮢍쮢򮢍򍱍󺍲󍱍󮍳ɠ嬠䮢䮢􍱍欠򠷬ծӮ쬠쬠客􍱍򮢍􍱍󮢍򍱍󮢍危客ɠ客􍱍客䍱ɠ򮢍鱳󮍴䍱ɠɠ欠    㮠Ԯ􍍱㍱ᮍ譍򮍱ߠ䮍ᮠ⮠㮠®፱ߠᮠ®⮠  󮍲򍱍讍덱򮍲򮍲危󮍲宍䍱򮍲䍱鍱󍱍堲󮍲􍱍屳宍ᮍ䬠󮍲讍客򍱍䮍덱򮢍ծӮɮɠ󮢍􍱍쮍쮢䍱󮍲󮍲󡢍򮍲䮢笠뭍笠笠笍笠쮍客̮®嬍󮢍䬠﬍䬠󮢍獱鱳宍ﮍ⮠፱ᮍߠ讍ᮠ⮠㮠򍍱⍱򠳰።ߠߠᮍᮠ⮠ƮĮ㮠獍㍱ﮍߠᮠ⮠ƮĮᮠ⮠㮠ƮĮ􍍱፱ծӮɮߠᮠƮĮ⮠㮠獍፱ߠ䮍ᮠ⮠㮠⍱ߠᬠ⬠㮍ߠᠢᮠ⮠㮠፱ɠ䮍ߠ堢墍ᮍᮠ⮠㮠ƮĮ􍍱㍱ 􍱍󮍍󠳹䮍􍱍䍢쮢危򮍍􍱍䮍󮍍􍱍􍱍䮍危宍򍱍򱳍宍󮍍󮍍  󮍍ԍԠƠ卲宍ԍԍ蠍󮍍ƍԍ󮍍ƍ䮍ƍ卢宍ԍ󮍍ƍ󮍍ԍ嬠ծӮ򱳍ԠƠ宍䮍ԍ쮍ԍ却ƍᱍ􍱍讍󍍱򍱍ƮĮ򍱍±栱󮍲卍썍獍􍱍󮍲ĭ򍱍򮍲󍍱䮍ߠᮠ⮠㮠㍱ߠɮᮠƮĮ⮠㮠򍍱፱䮍ߠᮠ⮠㮠ߠᮠ⮠㮠፱򮍱ߠﮍᮠ⮠㮠׮Ȯ⍱ƮĮ㮠⍱쮍ߠᮠ⮠㮠㍱ߠ䮍ᮠ⮠㮠ƮĮ􍍱⍱讍ߠĭᮠ⮠ᮠԮ⮠㮠㍱󮍱ߠ宍ᮠ⮠ƮĮ㮠̮®㍱㮠ʮѮ󍍱፱ߠᮠ⮠㮠򍍱⍱宍ߠ𱳍ᬠ⬠㮍ߠᮠ̮®⮠㮠򍍱፱ߠ栱ᮠ⮠׮Ȯ   􍍱㍱󮍱ߠᮠ⮠ƮĮ㮠፱宍ߠᮍᮠ⮠ƮĮ㮠፱󮍱ߠᠢ墠ᮍᮠ⮠㮠ƮĮծӮᮠƮĮ⮠㮠㍱ɠ宍ߠﮍᮠ⮠㮠፱䬠򠲠A (104)64Ĺ2051,0:16384,0:103,1:104,64:(4)"RUN HELLO"h"LOADING PROGRAM ... PLEASE WAIT"(2051)ĺ(4)"BLOAD TEST;GEN"((4)"RUN GREAT AMERICA"2䮍嬍򍱍󿍍䍱򿍍鲍󿍍򍱍宍堢򿍍􍱍嬠⮍򿍍筭􍱍󿍍􍱍󠶲俍򍱍쬠宍䮍䠢󍱍忍􍱍򱳍󿍍俍򍍱危危䍱󍱍䍍򍱍ƮĮ􍍱򍍱׮Ȯ򍱍􍱍󍍱獍   荍􍱍讍󍍱宍򮍲󍍱䍍󮍲PLP(13L2):L21:65:100:80,N_A$""93KN`KY(A$):KY1KYNFNU93UNaNMKYyNbNM$FI$(NM):NM$"EDITOR"İ309NcNd3:10:CR$;CB$"Great America lessons":5:Ne1:CR$;CB$;CN$:NI%(QN)0103Nf4:I1NI%(QN):4:IL$(QN,I):IOgT141LP14847MX65:100:I%1LPLP(13L2):L21:80@MYL20cMZLPLP1:L2L21:LPNFNU180pM[:NM98M\ML3:168:20:9:"Select lesson number >":LP14Ģ22:13:CB$;Q$"<--"Q$" = back up";M]VT20:HT31:MX2:7:I%1LP1493N^I%1LLP):L21490eLRML3:168:20:9:"Select lesson number >"::LP14Ė13:Q$"RETURN"Q$" = MORE";:84LS5:CB$;Q$"RETURN"Q$" = MORE, "Q$"<--"Q$" = back up";LTVT20:HT31:MX2:7:A$""87LUKY(A$):KY1KYNFNU84LVNMKY:LPNFNU:89 MWI%":20(PN$)1:CE$;CC$;BG;PN$:KN14:CO$CK$:10:"Designed & Developed"::19:"by"::6:"Kevin Armstrong & Janet Joers":22:6:"A Daystar Learning (TM) Product":58:KO64:100:FL0:F10:NM0:LP1:L21KP12:CB$;:LP10ĺ" "; LQLP"."FI$("Do you want":10:"sound (Y/N)"NJGVT11:HT32:MX2:24:A$"Y"A$"N"71dJHSN0:A$"N"SN1JI17:10:"Do you want":6:"the game (Y/N)"JJVT19:HT34:MX2:24:A$"Y"A$"N"74JKGM0:A$"N"GM1JL KM64:3:8:CC$;1"Great America21:5:16)"":ML4:168:iIB4:4:CR$;CN$;:33)" ":3:35)" ":CQ$;:I14:3:17)" ":I:19)" ":IC77:12:5:CQ$"(Type your name)":19:17:"THEN":7:"PRESS "Q$"RETURN"Q$;IDVT10:HT11:MX10:24:A$""68IENA$A$:!JF77:CQ$;:9:10:18)"":9:I14:19)" ";:I::17:"<";18)">":19:"]";18)"^":21:3:"}";16)"~":ML4:168:H@CQ$;CO$;CC$;5;HM$:3:3:CN$"{";16)"|":I18:3:17);" ":I:21:3:"}";16)"~":ML4:168:IACY$;CQ$;CN$:3:5:16)"":5:I18:3:17)" ":I:RESS "Q$"RETURN"Q$" TO CONTINUE";:5X(((78)(79)256)):bH?CE$;CO$;CC$;5;HM$;:((10(NM$)2)2)1:NM$;CQ$;CC$;5:3:3:CN$"{";16)"|":5:"[";18)"\":7:"`";DC$(DC$,3)?F618:31:" ":L(DC$):18:37L2:S2;CN$:{F74:DC$DC$", "NA$:23:A(20)2:CE$;CC$;5;CO$;DC$;:F814:1:CQ$;CN$;CL$:F918:6:CR$;CB$"THIS"32)"TOTAL":5:"LESSON":I11000:I:51:$G:24:CR$;CO$;38);" ";:24:7:"PP1:A$A$(CH%(J)):J0E.CPMXĖHT:VT:" ";;E/1::WE01::GM(GM0):GM150qE1RW%1:CG1:RD0CG2E2248:1:CG$;:E3DC$(S1):(DC$)3DC$(DC$,3)E418:5:CE$;CC$;BG;CO$;:(DC$)3ĺ(" ",3(DC$)); F5S1:DC$(S2):(DC$)3$KY$:44(D$KY19SN(SN0):CG$;:260D%26KD&KY63CP1:A$"?":44~D'KY32KY48KY57KY65KY90KY97KY12226D(KY96KY123KYKY32D)CPMX26D*HT:VT:(KY);:HTHT2:CH%(CP)KY:CPCP1:CPMX26D+25D,CP146E-J1CHT:CO$" "CN$;#CKY$:KY$""26@CSNĹ792,3:791,50:793`CKY(KY$):KY31KY12738vCKY8KY12733CCP126CCPMXHTHT2:CPCP1:25C HT:VT:" ";:HTHT2:CPCP1:25C!KY7İ48:CQ$;:25C"KY1344 D#KY17CP1:ABKY96KY123KYKY32'BCPMX9YBHT:VT:(KY);:HTHT1:CH%(CP)KY:CPCP1:8lBA$"":CP123BJ1CP1:A$A$(CH%(J)):JBHT:VT:" ";CN$;:1::BFR:5:1:CQ$:CP1:CH%(1)0:A$"":I%0:VT:HT:J1MX1:" ";:J:" ";CVT:CN$;A KY$:KY$""94A SNĹ792,3:791,50:793TA KY(KY$):KY31KY12718yA KY8CP1KY127CP1I%1:21A KY8KY127ĖHT:VT:" ";:HTHT1:CPCP1:8AKY7İ48:CR$;CB$;:8AKY13I%0:21AKY19SN(SN0):CG$;:9A95@(4)"MAXFILES2":3336@36608:334:306:233J@A(40):DC$;:~@23:CR$;CB$;CC$;5;CO$;38)" ":38)" ";:1::@(16384)128ı@16368,0:5@5:1:CR$;CB$;CC$;1:CP1:CH%(1)0:VT:HT:J1MX1:" ";:J:" ";AVT:HT:CO$" "          !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""     (QN,1)):I1L:KY$(AN$(QN,1),I,1):KY$" "A$A$" ":218:215N^W$W$KY$n^I:W$AN$(QN,1)A$A$" "^218:DC$A$:23:CR$;CB$;CO$;:3:SC(SC2):HD1:FL0^^FL0^W$""KY$" ":221^_KY$"":T1(W$):J1T1:CH%(J)J:J:J1T1:C3211]HC2İ229:209/]HC4İ212:2098]222P]FLML4:168:211]61:23:4:CR$;CB$;CO$;"I'm sorry "NA$", you've used":4:"up all your points for this item.";:ML3:168:I11200:I]1:CN$:]HD217@^4:W$"":A$"":L(AN$L1Q\INN1FL1:HR$(I1)HR$(I):SC%(I1)SC%(I):I:HR$(FL)NA$:SC%(FL)S2:]\HI205\HC1Ģ23:4:CE$;CC$;5;CO$"NO HINT AVAILABLE";:204\HC3İ232:204\23:5:CE$;CC$;5;CO$"PRESS ? FOR HINT";:204\HI1:HD0:211]FL0:HC1H" Press "Q$"RETURN"Q$" to continue ";M[II1:(16384)127Ĺ16368,0:193X[I190a[187g[[FL0:I1NN:NA$HR$(I)FLI:INN[I:[IFLNN1:HR$(I)HR$(I1):SC%(I)SC%(I1):I:[INN11:SC%(I)S2FLI1:I1\I:FL0Fica":15:CR$;CB$;CO$;"HONOR ROLL";CN$:8:I1NN:9:I10ĺ" ";ZI". "HR$(I);:25:(" ",5((SC%(I))));SC%(I):I:5:X1ZI20:XX:A$CN$:XA$CO$ZFLĢ7FL:13:A$;HR$(FL);:25:CN$;(" ",5((SC%(FL))));A$;SC%(FL)%[23:6:A$T1DMS%(MM):T0:1761YTMS%(MM):T1ī176HY792,D:791,T:793PYMMVYrY323:194:S20:FL180YS2SC%(FL):OS(S2100):196YYFL0:SC%(NN)S2183Y197:324Y185:FL0196Y@ZFR:CQ$;CN$;HM$;:8:"Great Amer points for your answer";:1::I11500:IFXS1S1SC:S2S2SC:167sXDC$"SORRY":55:ML0:168:AN1:105:AN0yXXSN1177XMT0:MC0XMCML172XMTMTMS%(MT)1:MCMC1:170XT1:MMMT1MTMS%(MT):T1DMS%(MM):T0:176Y0:INA%(QN)WI:AN0163QWFL0:I1NA%(QN):(AN$(QN,I))5FL1:INA%(QN)aWI:FL166tW129:AN0166WDC$"GOOD":55:ML1:168:105:AC%(QN)1AN1165+XSC(SC2.5):61:23:4:CR$;CO$" There is a better answer. ":4:" You get "SC"J(IN$)1514VK2$(IN$,IJ,1):K2$KY$FL1:JWCVJ:FL155YVJ1W:IJ1154VK2$(IN$,IJ,1):K2$KY$FL1:JWVJ:FLCNCN1VIVPC(100CNL100.5):FL0:VAN0:PC0:IN$""166 WI1NA%(QN):A$AN$(QN,I)ANI:PC10142"UKY32(A$,I1,1)" "1434UKY$KY$(KY)VUI:(KY$,1)" "KY$(KY$,2)|U(KY$,1)" "KY$(KY$,(KY$)1)UA$KY$UUL(HW$):W(L10.5):CN0:IN$HW$CN0:156U(IN$)5CNL:156 VI1L:KY$(HW$,I,1):FL0:J0W:I(LP)PCAP(LP):ANLP-TLP:PC85AN0:PC03TBTA$""138TL(A$):KY$"":I1L:KY((A$,I,1)):KY33KY34KY39KY43KY47KY63KY96137TKY$KY$(KY)TI:A$KY$TTA$""146UL(A$):KY$"":I1L:KY((A$,I,1)):I1SS4:23:11:CR$;CO$" ONE MOMENT PLEASE ":11:" CHECKING ANSWER ";:1::A$IN$:134:139:IN$A$:LP1NA%(QN):AP(LP)0:A$AN$(QN,LP):134:139:HW$A$:147:AP(LP)PC:PC100ANLP:LPNA%(QN)SLP:PC100133TPC0:AN0:LP1NA%(QN):PCAP118Rw66:A$"N"FL1:1282RxFG1:TWNW116^RyINW1TW:AR%(INW)I:I:NRTWNW:LS0lRzRN0126R{NR1QNAR%(1):125R|X((1)NR)1:QNAR%(X):AR%(X)AR%(NR)R}NRNR1:127R~LSLS1:QNAR%(LS):NRNR1RHI0:HCHC%(QN):110:FL0)A$:I:"QpGM1FG1FL1:1280QqNR0122DQrGM1FL1:128QQsFG117yQtNRTW:LS0:I1TW:AR%(I)I:I:122Qu10:4:CR$;CB$;CN$"The lesson is now over. Do you":4:"want to finish your game Y/N >";RvVT11:HT34:MX2:7:A$"Y"A$"N"4:HT:A$;DC$:1PkNS(S2100):NSOSNS10109|Pl61:24:4:CR$;CB$;CO$;SD$(NS)", "NA$"!";:1::ML1:168:I11200:IPmOSNS:PnI1NA%(QN):L(AN$(QN,I)):A$"":J1L:KY$(AN$(QN,I),J,1):KY(KY$):KY96KYKY32 QoA$A$(KY):J:AN$(QN,I7:T01:NQ%(QN)5T139:T00OhT2(NQ%(QN)8)2:3:17,T1262,T1262,T1T217,T1T217,T1:6T0:I1NQ%(QN):4:QU$(QN,I):I:12:4:AL$(QN):Oi56:DC$AN$(QN,AN):HT20(DC$)1:CQ$:I15:A$CO$:106:J1100:J:A$CN$:106:J1100:J:I:Pj1FNU:768:FI$(LP)(IN$,1):LPLn4CD$"CLOSE":NFNF1:FI$(NFNU)"EDITOR":n5CD$"OPEN"NM$",D"DR:CD$"READ"NM$:TW,NW,RN:LP1TW:NI%(LP):NI%(LP)0313n6I1NI%(LP):768:IL$(LP,I)(IN$,1):I:LP2313 o7I1NI%(LP):IL$(LP,I)"*"IL$(LP,I)ILPJ(I)1m-J:I:3m.RW%1DC$"You win, "NA$Mm/RW%2DC$"Tie game"mm0RW%3DC$"Sorry - I win!"m14:23:20(DC$):CE$;CC$;5;CO$;DC$;:1::ML1:168:m2CD$"OPEN LESSONS FILE,D"DR:CD$"READ LESSONS FILE":NF,NU:NFNU0308n3LP1N"*":PJ(I)1Dl*I:I310:B$(I,2)"*"(3).9B$(I,1)"*":PJ(I)0l+I:I19:37672I,0:I:BA37682:J13:PK0:I310:PK(B$(I,J)"*")2(10I)PK:I:BAJ,PK:J:m,I19:37672I,0:I:I112:J13:B$(I,J)"*"B$(I,J)"."B$(I,J)".":PJ(I)WX%(3)X3:WY%(1)Y1:WY%(2)Y2:WY%(3)Y3:/k%rk&,1,PI,WIN%:PIPI2:PJPJ(PI):PJ(PI)PJ(PI)1:B$(PI,PJ)"X":k',VI%(3):k(I310:J13:B$(I,J)".":J:PJ(I)3:I:I310:(3).3B$(I,3)"*":PJ(I)2 l)I:I310:B$(I,3)"*"(3).7B$(I,2):X3PI1:Y13:Y22:Y31:292Pj PJ2X1PI1:X2PI:X3PI1:Y11:Y22:Y33:292j!PJ3X1PI2:X2PI1:X3PI:Y11:Y22:Y33:292j"PJ3X1PI:X2PI1:X3PI2:Y13:Y22:Y31:292j#)k$B$(X1,Y1)B$(X2,Y2)B$(X2,Y2)B$(X3,Y3)WX%(1)X1:WX%(2)X2:PI2:X2PI1:X3PI:Y1PJ:Y2PJ:Y3PJ:292:X1PI1:X2PI:X3PI1:Y1PJ:Y2PJ:Y3PJ:292:X1PI:X2PI1:X3PI2:Y1PJ:Y2PJ:Y3PJ:292:PJ1X1PI2:X2PI1:X3PI:Y13:Y22:Y31:292iPJ1X1PI:X2PI1:X3PI2:Y11:Y22:Y33:292jPJ2X1PI1:X2PII%(I)(3)10ChI:VX%0:PI3:I310:VI%(I)VX%PII:VX%VI%(I)hI:,0,PI2,WIN%:PJPJ(PI):PJ(PI)PJ(PI)1:B$(PI,PJ)"O":hVX%0:I310:VX%VX%PJ(I):I:VX%0WIN%0WIN%2:h(WIN%)ıiWIN%1:X1PI:X2PI:X3PI:Y11:Y22:Y33:292:X13,WY%(3)1:I16:816:I:255lg4:DC$"THINKING....":23:CR$;CB$;:3:1::295:4:I310:PJ(I)0281gB$(I1,PJ(I))"X"VI%(I)VI%(I)(3)10gB$(I1,PJ(I))"X"VI%(I)VI%(I)(3)10gB$(I,PJ(I)1)"X"VI%(I)VI%(I)(3)15 hVI%(I)VB$(PI2,1)"."268