' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./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#0(#*!!.<,$94>94="4; +,E!r ; $ Hh Լ ռ ռ ռ`HJ>݌h Hh݌`DF DF /L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p ߩRP1Q ɿ, P\L˵B̵C8pB߮Z\  յյ\BIR Z-^ Jp\IZLLӜ ( 2  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B ߼ / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` Bl şL/Ơĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(` d£àĠz# u`""""""< >> ""*: <"">""""""""""""">>><"""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6" 00@@@@@@@@||@@00 ||>>* (*""  *$**> "2*&" " >>  ">> "8""> pp  LL pp|| ||LL pp pp pp||@@@@@@@@@@@@  pp  00@@ LLLL<<  00@@00 pp@@@@@@@@@@pp pp LL<`x<|x??||@@ pp@@00 |||| || pp@@00 || pp||@@000000pp pp pp00@@@@00@@@@||@@@@``@||@@`0 @`0 pp LLl|<f~~?>300??pp00pp \,\,\,\,\ ff99@@``xx|||`````x```?````p ?||xx``Ccs[K`acgmiCCCCaaaa``@@@@@@@@@@@@@@@@@`px|~|xp``0p @@@@@@@@`0````p ?~~~NN@ 0`@@@@@@@0`@x```````9p 0``x```````3#3```p|pppppp@@@@@@~~??pp@@@@@@@@||p@@||@@p@@@@@@@@ @@@@  33_[[[[ [[XXxpmm--=8 0`@`0 @`0 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0`@  8ff~~8 @`0@@""""""> >````````````````3fL3fMfL3fL33fL3fLfL3fL3Z*jJ yF jS^ jCU*Z5jY*.cձjRWURGj)źVQ.YU/UiTu*UEJViJiutTZj]ZTUY*6IҴNՒVUCVT"ZTZVURjzJZV*%U֪TVRZ%IVUJ֮URR Jm-իUTZTWJI(ZukkDT۶|F!TvJ"QV%AmD(Um[Uqbu]U)j][hRY*:X(^(j]J:s rղEZ]*AuJu=X^WC( u5RպZ|.AQuJQ(ֵU(zJBQi]꼎BATZoUIu絩Bu{[S"UZuV(ZBQUU]c(z]KQNV:JJ0RR:TX,RR$::NO:CL,0:DI,0+UJ770,A2::SY,3:::D$;"RUN LESSONXX"nj:D$;"RUN HELLOHI1" DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION ( ST% = 3: & RE: & TS,ST%: HOM NOT. HIT RETURN"$ "TO GO ON. ";6255:K1:1:<$P DISPLAY SCORESY,3:CO,2:DE,1,1,40,20:PC,1,19:RR$(RR%):TX,"GOAL = ":TX,RR$:TX," RIGHT IN A ROW.":PC,28,19:TX,"YOU HAVE"SY,1:PC,19,10:DI,4:SN1įCL,40%RR$(RR):I AND BLOADS6:RE:SY,3:PC,15,10:TX,"WORKING..."V(4);"BLOAD BTWAHG2,A6150"P(1)6170:I26:P(I)P(I1)(6148I)::10021:"NOT ALL HOMOGRAPHS SOUND THE SAME.":"TYPE Y IF THE HOMOGRAPHS SOUND THE""SAME. TYPE N IF THEY DO4080c END QUESTION LOOP&e3010,hBm END SCREEN LOOPKr120d DATA FOR QUESTIONSvJL$(1)"YES":L$(1)"NO ":L$(1)"NO ":vL$(1)"YES":L$(1)"YES":>L$(1)"NO ": PAUSE SUBS   INSTRUCTIONS0:< $SY,1:PC,10,7:TX,L$(X):16368,0:R$:(R$)13295E %292L ';Z , SCORING{ 1L$L$(X)RR1:RRRR1:WR0 6L$L$(X)WW1:WRWR1:RR0 @5010 JRRRR%A27:40010 T(WR5)(W18)A25:40010^ IF WR > 2 THEN GOSUB L$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L127":::"BYE":D$;"RUN HELLOHI1"a L$(X)(L$(X),1)s L$L$(X)282| 290 PC,12,8:TX," ":PC,12,8:TX,"GOOD":SN1āI200205:TN,I,5: SN1āI1950: 300 "SN1āI15:TN,255,1PR$,R%L SY,3:CO,4:DE,1,1,40,1:FI:DE,1,9,40,9:FI:CO,2:DE,1,1,40,20V 5010p BEGIN QUESTION LOOP| X1NQ DISPLAY QUESTIONS AND SPEECH FOR QUESTION ANSWER ENTRY CO,4 PC,10,6:L$" ":ENS,L$,1,T%,AL% CO,2L (j:(4);"RUN HELLOHI1"10:TX,"AND SEE A BIG REWARD,":TN,40,20:vpZù16368,0:N$" ":PC,1,14:ENS,N$,1,TS%,AL%p_í(N$)27::A1A11:35010pdñp8ǹ769,A1:770,A2::(4);"BSAVE ";NF$;",A768,L127":pj:(4)$;"RUN HELLO"X,"DISK FULL":PC,1,5:MT,15:EN,N1$,10,T%:DJ769,A1:SP$""510YO(4);"RUN ";SP$8ǹ769,A1:770,A2::(4);"BSAVE ";NF$;",A768,L127"LǯPC,9,13:TX,"PRESS RETURN TO START":PC,11,15:TX,"THE LESSON AGAIN."Vǹ16368,0:A$:A$(13)51030050Ά34520>ӆ:(4);"DELETE ";NF$:(4);"RUN HELLOHI1"[؆::(4);"RUN HELLOHI1"wˆ769,A1:770,A2:35050Lj:(4);"BSAVE ";NF$;",A768,L127":::5:8:"BYE":I1500:II::̈(4);"RUN HELLOHI1"ꈭ(222)9Ĺ216,0:35015,RE:TI1703010:TN,(IX),Y:TN,(IX),Y:5MY204695`OI3017010:TN,(IX),Y:TN,(IX),Y:fWq\32010w }}}}34510ڄ RE:SY,3:PC,3,9:TX,"INSERT THE NEXT DISK.":PC,1,11:TX,"PRESS RETURN TO CONTINUE."A$:A$(13)34UBPROGRAM XX/14 32000- (770)83350m RE:SY,3:PC,15,10:TX,"WORKING..."::(4);" RUN REWARDS"s :y> *RE::SY,3:CO,5(1):DE,1,1,40,20:FI:DE,2,2,39,19:INV:FI:NO:> SOUNDS #1CY(40(1)4)HX(22(1)1)&K PC,5,4:TX," ":PC,5,5:TX," ":PC,5,6:TX," " SP,240:I14:PC,5,5:TX," ":PC,5,5:TX," KEEP IT UP!": SP,255 SN0ī2025 I200105:TN,I,10: J12000:JJ:  COMPLETED S2 xSY,3:DE,1,1,40,18:INV:FI:NO:DE,1,1,40,20G RN0JJ1:150d J(NS(1)1):JJ1140y J1J:JNSRN1 SET UP QUESTIONS J1610,1710,1810,1910,2010,2110 SET UP SCREEN AND SCREEN PARTICULARS FTXN,P(J),1,3,N1$,E : HGR  ):R 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$` 3SN(785)t <L$(10),IX$(10) FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE." PNS6:SP14:NQ1:RR%5 _4010 d BEGIN SCREEN LOOP nR0:RR0:X0:K0p 60010 279021 ONERR GOTO 60010b SUB-PRG XX/14 LEVEL-5WA HOMOGRAPHS-2# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION ( ST% = 3: & RE: & TS,ST%: HOM  @@@@@@@@@@@@@@@@@@@@@@@@@@@@~~ ?? ~~ ?? @pxLLLLxp@@L|p@000 @`0  @@@@@@000000@@"*: <"">""""""""""""">>><"""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>* (*""  *$66>>> "2*&" " >>  ">> "8""> """"""<  "G G G Gm G` @`ԠéACtCLB!@@ @@ @@"@0@#@0L9F@LF@ @LF`+@2'@iFlF(@jFmF FmiFjFmFiFlF G RDRDLF'@FF(@FF FmFFFFF GI-NDNDLF+@%@F&@F FmFFF G-P+@`*@ 0 iH8h)@ G0 iH8 Gh E*@ :FEELD`EEEEEEEE0@EEEE0$E)@E*@ FE)@E*@ :FEL4EEEEL$E`EEEEJJJEEEE0SEEEE0$E)@E*@ FE)@E*@ :FELE*@ :FE*@ :FEEELE`@ A?Bt:BLAD DDhL Dh@ Di D ` !"# (!("(#( P!P !"# !"# !00xx@@00xxH@hIH@*0h H@EDLDEDh)LDh)LDh`EEEEJJJEEEE0REEEE0$E)@E*@ FE)@E*@ :FELD*@ :FDRCCDSCCF2CgCCCD3ChCCCEDFD fDH@RCKCSCLChLQCh(@SCiSCEDFD fDH@CCCChLCh(@CiCʬ@ 2DC D1DC DEDFD fDH@CCCChLCh@CiCEDFD fDH@ DDLB ELB pE@ʬ@,@DlBDmBL9B2DlB1DmBFLBDMB)EDFD fDH@lBeBmBfBhLkBh(@mBimB`$@8 @C@0 i CLBC@JEEC%@C&@F'@CD(@CFDFD DLB ELB pE@ʊ @ AQA@ʊ AlAmAA0ʠ AA AA \,)$@ AA`AlAmAA0ʩ AΔA`"@L}B$@8 @?B@0 i?BLA:B@JEE:B%@?B&@F'@:BD(@?BFDFD @LELFL9@LALFL:FLGHI XPFD@L@@,@DmADlALh@2DmA1DlAmA@@@@lA@@i@@@ʽ"nA>oA @ @ \,)$@ @`lA"mA> AΔA`@ DAJADAKA2DAPA1Di     HB$w[H$jۮ$ow+ mn% $ݶBI$I[w$ImmE@Ijn["I$H$mm߻]$D6 dV$nHI$Q݊$H"ݶ%HT~I $in$H@$նn$$jۿm" DHݶ"@$նnI $i߻"@In$VDH$wH"JU*UR~HURRժT w*ZjU *iTw%UT vZ VU'ZR VZVժTUJնRTjVUTjAJJR@6AR*unUZ P*TR+m[jR*_@TUTjI[nEj ȯ$U[T[ J?|+RZ%խj J_@ZJjU*doI%VI RnTUk%m T v+UVUR+UVUڪ$Jժ*vj:D$;"RUN HELLOHI1" 01 ONERR GOTO 60010_ SUB-PRG XX/13 LEVEL-5WA HOMOGRAPHS# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION ( ST% = 3: & RE: & TS,ST%: HOME : 67 L/989L ߦ0Lޠ"ȭ# // / (,  ߦ0Lޠȭ/  `  @ !@ "@ #@` @)` @!`hhL @` L0LEʊ @    ȭ  !#",`$@5  @<8WLi  Li % L  L    +  $@  @`  @$@ g^2B  [ .L  @$@^ L&7 --)**'++(L@.++-L.,,LN)&)L ߦ0Lޠȭ,  ` ߦ0Lޠȱȱ CL L0 NL  @$@ L&^LL -+. 0: .LL|867` Lގ` Lގ` Lގ@` ᥠ$%` "*' "Lޥ "'Lg L ߦ0Lޠ'ȱȱ ߦ0Lޠ(ȱȱ 15)&)+-,(8+'^*+.*+*@` L 22%);M3Ȍ24ȱ5 3JJLs34NjNjJJLs54**)?Ls5)?m [ ` ߦ0Lޠȭ899L^677` g 률QP ְL|889` g 률QP  + ` PEL  N= 1 @$@ ^L5  !@@ @@L I@L N@L C ʎ@L S L K L hhL` `@ @@#@@!@@` jjj   `i`@ @!@ݩ ` g 륡Lv݈ 2    @@ !@@ m @ "@ m!@ #@ !@@ @@ ߦ0Lޠȱȱ ߦ0Lޠ1ȱȱL~ \ L ]  L  L L $@ @  0EL8eL&  ʬ0x x  ` g 륡Lvݩ   @@ !@@m @ "@m!@ #@ @@ @i@@@ @@$@ @  + L ` "LP ߦ0Lޠȱȱ`"# " L 0L ` ,0 @#)@  0 @ @L L` ʎ@`@`@` ` @` ` Lލ0` g!!E"!#"$" %#`` $@ @"@#@%@]@@ @r@@@!@d@L @@V @@@@H!@@L @@!@4@@@ @&@L @@!@@@@ @@`I` `  Q  LISH;QTX TNPC DIDEANFITA FT DPt ESBATS REENqIN NO SP TU CO CL SYOV-MT;MAI FLȭ c0Lȱȱ  , L l    3:CO,2:DE,1,1,40,20:PC,1,19:RR$(RR%):TX,"GOAL = ":TX,RR$:TX," RIGHT IN A ROW.":PC,28,19:TX,"YOU HAVE"SY,1:PC,19,10:DI,4:SN1įCL,40RR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,0J770,A2::SY,3::D$;"RUN LESSONXX"j6170:I27:P(I)P(I1)(6148I):/:10021:"TYPE YES IF THE TWO SENTENCES HAVE":"HOMOGRAPHS (SAME SPELLING BUT DIFFERENT""MEANING). OTHERWISE, TYPE NO." "HIT RETURN TO GO ON. ";255:K1:1:$ DISPLAY SCOREoSY,ES":JL$(1)"YES":)L$(1)"NO ":;L$(1)"NO ":MvL$(1)"YES":_L$(1)"YES":q>L$(1)"NO ": PAUSE SUBS   INSTRUCTIONS AND BLOADS:RE:SY,3:PC,15,10:TX,"WORKING..."(4);"BLOAD BTWAHG1,A6150"$P(1)5)(W18)A25:400109^ IF WR > 2 THEN GOSUB 4080Qc END QUESTION LOOP[e3010ahwm END SCREEN LOOPr120 DATA FOR QUESTIONSL$(1)"YES":VL$(1)"NO ":L$(1)"YES":L$(1)"YES":L$(1)"NO ":L$(1)"YNUE OR AN"BuPC,1,12:TX,"'E' FOLLOWED BY A CARRIAGE RETURN TO"gvPC,1,13:TX,"EXIT THE PROGRAM."wN$" ":L1:EN,N$,L,T%,NC%xN$"E"124yzI11000:{|:RE:(4);"RUN HELLO"] 169,3,160,10,32,217,3,96,0,0,1,96,1,0,1,"UNDEFINED ERROR =":Y$(Y):PC,18,7:TX,Y$cpX(218)(219)256:X$(X):TX," ON LINE ":TX,X$qTX,"DISK IS WRITE PROTECTED!"rPC,1,8:TX,"CHECK DISK - REMOVE WRITE PROTECTOR."s116:::: tPC,1,11:TX,"TYPE A CARRIAGE RETURN TO CONTIb57c:dI1NF2e"DELETING ";FL$(I)KfD$;"UNLOCK ";FL$(I)dgD$;"DELETE ";FL$(I){h"FILE DELETED!":iIj122:::20k:::Y(222):PC,1,7lY8110mTX,"I/O ERROR - CHECK DISK!":116::::nY4113,oTXND088V::W59/XNDSNNDFI907Y86TZ21:"DELETING ";FL$(ND)n[D$;"UNLOCK ";FL$(ND)\D$;"DELETE ";FL$(ND)]23:"FILE DELETED!"^122_NF1ĉ:::22`NDNFNFNF1:57aINDNF1:FL$(I)FL$(I1)::NFNF1N$,L,T%,NC%H122I::3J(N$,1)"-"79KKSNSN15:SN1SN1eLFISN14:FI15FI15vMNF15FINF~N59ONC%083PSNSN15:SNNF57QFIFI15:FINFFINFR59S(N$,1)"E"NC%1124TN$"ALL"99UND(N$): BI6 C21:"TYPE THE NUMBER OF THE FILE THAT YOU"h D22:"WISH TO DELETE, OR 'ALL' TO DELETE ALL" E23:"SRF'S ON DISK, OR 'E' TO EXIT PROGRAM. (HIT RETURN TO SEE MORE SRF'S.)";: FPC,3,18:TX,"PLEASE MAKE A SELECTION. " GN$"E ":L3:EN,057 5::8 6PC,8,8:TX,"NO SRF'S FOUND ON DISK!"A 7122I 822X 9SN1:FI15i :FINFFINFr ;II2 <PC,3,1:TX,"STUDENT RECORD FILES" =ISNFI >I$(I):IIII1 ?PC,3,II:TX,"(":TX,I$:TX,")" @I10įTX," " ATX,FL$(I)HING": 'DS0145 (KBA(DS256):LK13:MK256C )ILM35V *(I2)25549t +TY(I):TY132TY449 ,NFNF1 -K130:(PK),(IK)128: .FL$(NF)B$"" /(FL$(NF),4)A$49 0FL$(NF)"":NFNF1 1I 2DS 3 4NFE' THEN PRESS RETURN. "@ PC,8,14:N$" ":L1:EN,N$,L,T%,NC%W N$"E"124: EXITh :NC%020 21::"RETRIEVING FILES" I030:IO:768I,IO: !780,DN "SE1511 #783,SE:768:SASA1 $787,32SA %SE &:21:"SEARC7,0,27,3,0,32,0,0,1,0,0,96,1,0,1,239,216@ ::RE:SY,3:CO,2l PC,8,7:TX,"STUDENT RECORD FILE (SRF)" PC,12,8:TX,"DELETION PROGRAM"  NF0:SA0 PC,5,12:TX,"PRESS RETURN TO DELETE FILES." PC,1,18:TX,"TO EXIT PROGRAM: PRESS '  27902 107R B$"SRF-3 ": MUST BE 30 BLANKS` FL$(105)~BA8192:D$(4):A$"SRF-"DN(43624)(43625)256AD(105)(106)256P(AD3)(AD4)2561(  169,3,160,10,32,217,3,96,0,0,1,96,1,0,1  SN1āI1950: 3009 "SN1āI15:TN,255,10:q $SY,1:PC,9,7:TX,L$(X):16368,0:R$:(R$)13295z %292 '; , SCORING 1L$L$(X)RR1:RRRR1:WR0 6L$L$(X)WW1:WRWR1:RR0 @5010 JRRRR%A27:40010T(WR ":ENS,L$,3,T%,AL% CO,2s (L$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L127":::"BYE":D$;"RUN HELLOHI1" SY,1:DE,1,7,20,8:INV:FI:NO L$L$(X)282 290 PC,12,8:TX," ":PC,12,8:TX,"GOOD":SN1āI200205:TN,I,5: Y,3:CO,4:DE,1,1,40,1:FI:DE,1,9,40,9:FI:CO,2:DE,1,1,40,20r J5įPC,1,6:TX,"HOW LONG": BUG IN TEXT FILE| 5010 BEGIN QUESTION LOOP X1NQ DISPLAY QUESTIONS AND SPEECH FOR QUESTION ANSWER ENTRY CO,4 PC,9,6:L$"SY,3: RN0JJ1:1509 J(NS(1)1):JJ1140N J1J:JNSRN1m SET UP QUESTIONS J1010,1110,1210,1310,1410,1510,1610,1710,1810,1910,2010,2110 SET UP SCREEN AND SCREEN PARTICULARS FTXN,P(J),1,3,N1$,PR$,R%? SL = ":RR$(RR%):TX,RR$:TX," RIGHT IN A ROW. YOU HAVE":bSY,1:PC,19,10:DI,4:SN1įCL,40RR$(RR):INV:I0RR:TX,RR$::NO:CL,0:DI,0'4,8,6J770,A2:::SY,3:29000::(4);"RUN LESSONXX"j::SY,3:PC,5,10:TX,"WORKING::10021:"READ EACH SENTENCE. THEN TYPE THE NUMBER OF THE WORD THAT FITS IN THE BLANK. USE A WORD FROM THE BOX.";:"HIT RETURN TO GO ON.";1:255:K1:1$DISPLAY SCORE;SY,3:CO,2:PC,1,19:TX,"GOAS ==== CAPTAIN IS LEE MARSH.,I ROWED THE ==== ACROSS THE LAKE.TI1NS:L2$(I):k3,1,2,2,1,3,1,2,3$I1NS3:L3$(I):.1. CUP'S 2. CUPS 3. CUP,1. DESKS 2. DESK'S 3. DESKS',1. BOATS' 2. BOAT'S 3. BOATBINSTRUCTIONSgPLEASE POUR SOME TEA INTO THIS ==== .,THE ==== HANDLE IS BLUE.,ALL THE ==== ARE FILLED WITH MILK.THE ==== LEG IS STARTING TO CRACK.,THERE ARE THIRTY ==== IN THE ROOM.,ALL THE ==== TOPS ARE PAINTED.>THE ==== CAPTAINS WAVE TO EACH OTHER.,THIJRRRR%A27:40010,TWR4A25:40010O^ IF WR > 2 THEN GOSUB 4040mSY,1:PC,14,9:TX," "130:END LOOPDATA FOR QUESTIONS 9,9,6SUBPROGRAM NUMBER, NUMBER OF WORDS, NUMBER CORRECT TO GRADUATEI1NS:L1$(I)::TX,"GOOD":SN1āI200205:TN,I,5:>SN1āI1950:G300^"WW1:WRWR1:RR0|#SN1āI15:TN,255,10:$SY,1:CO,4:PC,2,8:INV:TX,L2$(J):16368,0:R$:(R$)13295%292'PC,2,8:NO:TX," ":;, SCORING@5010N$)27Ĺ769,SP%:RE:::(4);"BSAVE ";NF$;",A768,L127":PC,9,5:TX,"BYE":I15000::(4);"RUN HELLOHI1":: PRESSED N$"1"N$"3"277 280 SN1ĺ(7) 1:220 N$L2$(J)282 290(RR1:RRRR1:WR0:SY,1:CO,2:PC,14,9,3:DE,1,1,40,5:NO:FI:DE,2,2,39,4:INV:FI:NOk CO,2:PC,22(L3$((J1)31))2,3:TX,L3$((J1)31) SY,3:CO,2:DE,1,8,40,18:INV:FI:NO SY,3:CO,2:PC,1,10:TX,L1$(J) SY,1:CO,5(1):PC,2,7:TX," ":PC,2,7:ENS,N$,1,T%,AL%| ( FOR &ENS N$=INPUT VARIABLE FOR &ENS H c4010:5010:DIRECTIONS, SCORE_ dBEGIN SCREEN LOOPs x1000:GET DATA RWNSJJ1:J1J1:150 J1J:J(NS(1)1):JJ1140 : BEGIN QUESTION LOOP ((J1)3)((J11)3)2101 CO,4:SY NAME, NF$=STUDENTS FILENAME* 3SN(785)I <L1$(NS),L2$(NS),L3$(NS3) FR0:RR0:W0:WR0:J0: R=NUMBER RIGHT RR=NUMBER RIGHT IN A ROW W=NUMBER WRONG WR=NUMBER WRONG IN A ROW J=INDEX VARIABLE GJ13% PT%0:AL%0:N$" ": T%,AL%=DUMMY VARIABLES( ST% = 3: & RE: & TS,ST%: TEXT : HOME : HGR : REM ST%=SUPERTALKER SLOT U ): -SP%,NS,RR%: SP%=SUBPROGRAM NUMBER NS=NUMBER OF WORDS RR%=NUMBER CORRECT TO GRADUATE 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$:N1$=STUDENTS 60010& ONERR GOTO 600102:27902Q SUBPROGRAM XX/9 GRADE-4 WORD ANALYSIS: PLURAL POSSESSIVES (PG.24)"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982%INITIALIZATIONM         HGR ):N 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$\ 3SN(785)p <L$(10),IX$(10) FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE." PNS6:SP13:NQ1:RR%5 _4010 d BEGIN SCREEN LOOP nR0:RR0:X0:K0 x 60010 279021 ONERR GOTO 60010_ SUB-PRG XX/13 LEVEL-5WA HOMOGRAPHS# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION ( ST% = 3: & RE: & TS,ST%: HOME :      HAVE",SY,1:PC,19,10:DI,4:SN1įCL,40bRR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,0hJ770,A2::SY,3::D$;"RUN LESSONXX"j:D$;"RUN HELLOHI1" INC. COPYRIGHT 1982% INITIALIZATION ( ST% = 3: & RE: & TS,ST%: HOME : TYPE THE HOMONYMS BELOW THE SENTENCES. PRESS RETURN AFTER EACH ONE,"]"AND TO GO ON. ";f255shK1:1:y$ DISPLAY SCORESY,3:CO,2:DE,1,1,40,20:PC,1,19:RR$(RR%):TX,"GOAL = ":TX,RR$:TX," RIGHT IN A ROW.":PC,28,19:TX,"YOU 1* PAUSE SUBS $ B INSTRUCTIONS AND BLOADSm:RE:SY,3:PC,15,10:TX,"WORKING..."(4);"BLOAD BTWAH,A6150"P(1)6170:I27:P(I)P(I1)(6148I)::100F21:"FIND THE HOMONYMS IN THESE PAIRS OF SENTENCES."ROME ":L$(2)"ROAM " nDL$(1)"CLOTHES":L$(2)"CLOSE "JnL$(1)"HI ":L$(2)"HIGH "t6JL$(1)"PAUSE ":L$(2)"PAWS " TEST FOR CORRECT ANSWERI1NQ:(L$L$(I))(RW(I)0)ī2050:WF1:2090RW(I)в IF WR > 2 THEN GOSUB 40806c END QUESTION LOOP@e3010Vm END SCREEN LOOP_r120x DATA FOR QUESTIONSL$(1)"FARE ":L$(2)"FAIR "BVL$(1)"TALES ":L$(2)"TAILS "L$(1)"FORTH ":L$(2)"FOURTH " L$(1)N,255,10: #SY,1T $I1NQ:PC,P1(I),7:TX,L$(I)::16368,0:R$:(R$)13295] %292d ';n *3010| , SCORING 1WF0RR1:RRRR1:WR0 6WF0WW1:WRWR1:RR0 @5010 JRRRR%A27:40010 T(WR5)(W18)A25:40010^,2V (L$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L127":::"BYE":D$;"RUN HELLOHI1"` 2010f t WF0282} 290 SY,1:PC,12,8:TX," ":PC,12,8:TX,"GOOD":SN1āI200205:TN,I,5: SN1āI1950: 300 "SN1āI15:TARTICULARS( FTXN,P(J),1,4,N1$,PR$,R%2 5010L BEGIN QUESTION LOOPg WF0:I1NQ:RW(I)0:s X1NQ DISPLAY QUESTIONS AND SPEECH FOR QUESTION SY,1:PC,P1(X),6 ANSWER ENTRY CO,4 L$" ":ENS,L$,7,T%,AL% COC HELLOHI1":HCL,0:DI,0$hghJ770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"}hj:D$;"RUN HELLO" $ RIGHT IN A ROW. YOU HAVE":DSY,1:PC,19,10:DI,4:SN1įCL,40yRR$(RR):INV:I0RR:TX,RR$::NO:CL,0:DI,0'4,8,6J770,A2:::SY,3:29000::(4);"RUN LESSONXX"j::SY,3:PC,5,10:TX,"WORKING..."::(4);"RUN HELLOHI1":EN LOOP nR0:RR0:X0:K0O xSY,3:DE,1,1,40,18:INV:FI:NO:DE,1,1,40,20d RN0JJ1:150 J(NS(1)1):JJ1140 J1J:JNSRN1 SET UP QUESTIONS J1010,1110,1210,1310,1410,1510,1610 SET UP SCREEN AND SCREEN PHGR ):N 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$\ 3SN(785)| <L$(10),IX$(10),RW(2),P1(2) FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE." PNS7:SP12:NQ2:RR%6 UP1(1)3:P1(2)13 _4010 d BEGIN SCRE 60010 279021 ONERR GOTO 60010^ SUB-PRG XX/12 LEVEL-5WA HOMONYMS# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION ( ST% = 3: & RE: & TS,ST%: HOME :        D EACH SENTENCE. THEN TYPE THE NUMBER OF THE WORD THAT FITS IN THE BLANK. USE A WORD FROM THE BOX.";:"HIT RETURN TO GO ON.";1:255:K1:1$DISPLAY SCORESY,3:CO,2:PC,1,19:TX,"GOAL = ":RR$(RR%):TX,RR$:TX,"RASERS ARE WORN DOWN.+I1NS:L2$(I):B3,1,2,1,3,2,3,2,1Z$I1NS3:L3$(I):. 1. DOGS 2. DOG'S 3. DOGS',1. GIRL 2. GIRLS' 3. GIRL'S,1. PENCILS' 2. PENCILS 3. PENCIL'SBINSTRUCTIONS::100o21:"REALS ARE WAGGING.,FIVE BIG ==== CHASED MY DOG HOME.,MY ==== EARS FLOP WHEN HE RUNS.TWO BOYS AND ONE ==== LIVE HERE.,THE LITTLE ==== TRUCK HAS BEEN FIXED.,THE ==== NOSES WERE VERY COLD.MY ==== POINT IS BROKEN.,DO YOU SELL ==== HERE?,ALL THE ==== ETWR4A25:400109^ IF WR > 2 THEN GOSUB 4040WSY,1:PC,14,9:TX," "j130:END LOOPDATA FOR QUESTIONS 8,9,6SUBPROGRAM NUMBER, NUMBER OF WORDS, NUMBER CORRECT TO GRADUATEI1NS:L1$(I):QALL THE ==== TAI200205:TN,I,5:*SN1āI1950:3300J"WW1:WRWR1:RR0h#SN1āI15:TN,255,10:$SY,1:CO,4:PC,2,8:INV:TX,L2$(J):16368,0:R$:(R$)13295%292'PC,2,8:NO:TX," ":;,SCORING@5010JRRRR%A27:40010::(4);"BSAVE ";NF$;",A768,L127":PC,9,5:TX,"BYE":I15000::(4);"RUN HELLOHI1":: PRESSED N$"1"N$"3"277 280 SN1ĺ(7) 1:220 N$L2$(J)282 290RR1:RRRR1:WR0:SY,1:CO,2:PC,14,9:TX,"GOOD":SN1āIY,3:DE,1,1,40,5:NO:FI:DE,2,2,39,4:INV:FI:NOW CO,2:PC,4,3:TX,L3$((J1)31) SY,3:CO,2:DE,1,8,40,18:INV:FI:NO SY,3:CO,2:PC,1,10:TX,L1$(J) SY,1:CO,5(1):PC,2,7:TX," ":PC,2,7:ENS,N$,1,T%,AL%h (N$)27Ĺ769,SP%:RE:S FOR &ENS N$=INPUT VARIABLE FOR &ENS I c4010:5010:DIRECTIONS, SCORE` dBEGIN SCREEN LOOPt x1000:GET DATA RWNSJJ1:J1J1:150 J1J:J(NS(1)1):JJ1140 : BEGIN QUESTION LOOP ((J1)3)((J11)3)2102 CO,4:SS NAME, NF$=STUDENTS FILENAME+ 3SN(785)J <L1$(NS),L2$(NS),L3$(NS3) FR0:RR0:W0:WR0:J0: R=NUMBER RIGHT RR=NUMBER RIGHT IN A ROW W=NUMBER WRONG WR=NUMBER WRONG IN A ROW J=INDEX VARIABLE GJ13& PT%0:AL%0:N$" ": T%,AL%=DUMMY VARIABLE ( ST% = 3: & RE: & TS,ST%: TEXT : HOME : HGR : REM ST%=SUPERTALKER SLOT V ): -SP%,NS,RR%: SP%=SUBPROGRAM NUMBER NS=NUMBER OF WORDS RR%=NUMBER CORRECT TO GRADUATE 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$:N1$=STUDENT 60010& ONERR GOTO 600102:27902R SUBPROGRAM XX/8 GRADE-4 WORD ANALYSIS: PLURAL POSSESSIVES (PG.23)"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982%INITIALIZATIONN         `@@@@@着U1u`~x?`8`x`x?`~|0```}u_w5?,408RR$(RR):INV:I0RR:TX,RR$::NO:CL,0:DI,0>I'4,8,6}J770,A2:::SY,3:29000::(4);"RUN LESSONXX"j::SY,3:PC,5,10:TX,"WORKING..."::(4);"RUN HELLOHI1":"PUTER INC. COPYRIGHT 1982\%INITIALIZATIONA]( ST% = 3HAWK'S,1. SHARK 2. SHARK'S$B6INSTRUCTIONS<:G:10021:"TYPE THE NUMBER OF THE WORD THAT FITS INEACH SENTENCE. USE A WORD FROM THE BOX.";"HIT RETURN TO GO ON.";1:255:K1:1$DISPLAY SCOREPSY,3:CNGS.,THE ==== CRY FILLED THE SKY.,THE ==== FIN CUT THROUGH THE WATER.,THE ==== SWAM BY THE BOAT.vI1NS:L2$(I):2,1,1,2,2,1,1,2,2,1$I1NS2:L3$(I):.1. WHALE 2. WHALE'S,1. LION 2. LION'S,1. BEAR 2. BEAR'S,1. HAWK 2. ER CORRECT TO GRADUATE,I1NS:L1$(I):THE ==== TAIL STOOD HIGH ABOVE THE SEA.,THE ==== SWAM WITH HER CALF.,THE ==== WAITED IN THE TREES.,THE ==== PAW WAS HURT.,THE ==== CUBS ATE HONEY.`THE ==== CAME OUT OF THE WOODS.,THE ==== SPREAD ITS WI,8:NO:TX," ":;,SCORING(@5010AJRRRR%A27:40010WTWR4A25:40010z^ IF WR > 2 THEN GOSUB 4040SY,1:PC,14,9:TX," "130:END LOOPDATA FOR QUESTIONS 7,10,6SUBPROGRAM NUMBER, NUMBER OF WORDS, NUMB0URR1:RRRR1:WR0:SY,1:CO,2:PC,14,9:TX,"GOOD":SN1āI200205:TN,I,5:kSN1āI1950:t300"WW1:WRWR1:RR0#SN1āI15:TN,255,10:$SY,1:CO,4:PC,2,8:INV:TX,L2$(J):16368,0:R$:(R$)13295%292'PC,2PC,2,7:ENS,N$,1,T%,AL% (N$)27Ĺ769,SP%:RE:::(4);"BSAVE ";NF$;",A768,L127":PC,9,5:TX,"BYE":I15000::(4);"RUN HELLOHI1":: PRESSED N$"1"N$"2"277(7):1:220 280 SN1ĺ(7) 1:220 N$L2$(J)28229QUESTION LOOP- ((J1)2)((J11)2)210Q SY,3:DE,2,2,39,4:INV:FI:NO CO,2:PC,22(L3$((J1)21))2,3:TX,L3$((J1)21) SY,3:CO,2:DE,1,8,40,18:INV:FI:NO SY,3:CO,2:PC,1,10:TX,L1$(J) SY,1:CO,5(1):PC,2,7:TX," ": FOR &ENS N$=INPUT VARIABLE FOR &ENS ` `CO,4:SY,3:DE,1,1,40,5:FI:DE,2,2,39,4:INV:FI:NO c4010:5010:DIRECTIONS, SCORE dBEGIN SCREEN LOOP x1000:GET DATA RWNSJJ1:J1J1:150 J1J:J(NS(1)1):JJ1140 : BEGIN NAME, NF$=STUDENTS FILENAME* 3SN(785)I <L1$(NS),L2$(NS),L3$(NS2) FR0:RR0:W0:WR0:J0: R=NUMBER RIGHT RR=NUMBER RIGHT IN A ROW W=NUMBER WRONG WR=NUMBER WRONG IN A ROW J=INDEX VARIABLE GJ13% PT%0:AL%0:N$" ": T%,AL%=DUMMY VARIABLES( ST% = 3: & RE: & TS,ST%: TEXT : HOME : HGR : REM ST%=SUPERTALKER SLOT U ): -SP%,NS,RR%: SP%=SUBPROGRAM NUMBER NS=NUMBER OF WORDS RR%=NUMBER CORRECT TO GRADUATE 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$:N1$=STUDENTS3 60010' ONERR GOTO 600103:27902Q SUBPROGRAM XX/7 GRADE-4 WORD ANALYSIS: SINGULAR POSSESSIVES (PG.27)"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982%INITIALIZATIONM          uw_]uUUkkjkkzjuW]]WWUUz*****.+WUUUUUu?(8p@UUUuWVVWjjjkk~jju}wUUUU+***j***xp@UUU0jj1````UUWa*jj{`` `` `?uX\TTTT|xonjzjjjju]]UWWuu `` `@@UUUUuUWVvZ***jkkx]WUUUUUknnjzzjjuU]]UWWUFn:**.5UUu}|/jjjVVVVT\Xp*.nnz:z*UUUuuuwWjjjjjjjkUUUUUUUu.n::.///_}__U}W+;`@@@***kk/,,]1u# @@@` 0008.*55XxXXX*kkkjjjk5uUUUuuu @` ..."::(4);"RUN HELLOHI1":)600102\:27902Q\ SUBPROGRAM XX/9 GRADE-4\ WORD ANALYSIS: PLURAL POSSESSIVES (PG.24)\"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\%INITIALIZATIONM]DI,0 fMfJ770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"efj:(4);"RUN HELLO"(4);"RUN HELLO";)ee DISPLAY SCORE\eSY,1:DE,1,1,20,10:CO,2:INV:PC,4,1:TX," A E I O U ":NOeSY,3:CO,2:PC,1,19:TX,"GOAL = 6 RIGHT IN A ROW.":PC,28,19:TX,"YOU HAVE"eSY,1fPC,19,10:DI,4:CL,40:RR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,02h{hJ770,A2::SY,3:CO,2:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"hj:D$;"RUN HELLOHI1"$;"RUN HELLOHI1" LO":"GO ON. ";,g1:5g255=gK1Cg$Wg DISPLAY SCOREgSY,3:CO,2:DE,1,1,40,20:PC,1,19:RR$(RR%):TX,"GOAL = ":TX,RR$:TX," RIGHT IN A ROW.":PC,28,19:TX,"YOU HAVE"gSY,1:PC,19,10:DI,4:SN1įCL,40,hRR$O,2:DE,1,1,40,20:PC,1,19:RR$(RR%):TX,"GOAL = ":TX,RR$:TX," RIGHT IN A ROW.":PC,28,19:TX,"YOU HAVE"fSY,1:PC,19,10:DI,4:SN1įCL,40fRR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,0ffJ770,A2::SY,3::D$;"RUN LESSONXX"gj:D "ee PAUSE SUBSe %e Ce INSTRUCTIONS AND BLOADSNe:100e21:"DIVIDE THESE WORDS INTO SYLLABLES.":"TYPE A / SLASH BETWEEN THE SYLLABLES."e"HIT RETURN TO GO ON. ";e255eK1:1:e$e DISPLAY SCOREkfSY,3:CIX$(1)"WHISTLE":L$(1)"WHIS/TLE "*dOdIX$(1)"LEVEL":L$(1)"LEV/EL "Udb|dvIX$(1)"SWAGGER":L$(1)"SWAG/GER "ddIX$(1)"WONDER":L$(1)"WON/DER "d*d>IX$(1)"CREATURE":L$(1)"CREA/TURE"deIX$(1)"SPIRIT":L$(1)"SPIR/IT (1)"IMPORT":L$(1)"IM/PORT "$cIcIX$(1)"FOGGY":L$(1)"FOG/GY "Oc ucIX$(1)"PUDDLE":L$(1)"PUD/DLE "{cncIX$(1)"SPIDER":L$(1)"SPI/DER "ccIX$(1)"SODA":L$(1)"SO/DA "c6cJIX$(1)"REASON":L$(1)"REA/SON "c$d:RR0b@5010(bJRRRR%A27:40010IbT(WR5)(W18)A25:40010lb^ IF WR > 2 THEN GOSUB 4010bc END QUESTION LOOPbe3010bhbm END SCREEN LOOPbr120b DATA FOR QUESTIONSbIX$(1)"RAMBLE":L$(1)"RAM/BLE "bBcVIX$1$]7D$(4),]<L$(6),IX$(3),B$(6),E$(6)5]AWR0J]FR0:RR0:X0:N0V]KSY,3:q]dRW6JJ1:J4ī102]eJ1J:J(2(1)1):JJ1101]fNO:]iJ2000,2100]l5005]mK0İ4000]nSP,255] ]300]"^, QUESTIONS AND ANSg \27902%\ST%3:RESET:TS,ST%1\60010S\ SUB-PRG XX/4 GRADE-2 RSVW\ VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\-:]2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N         @x Aq_Y |VW|0q`x Qp>wjj***jj_W***+/UUUUUUUW80.../////UUUUUUuuzz<_@@` /////oO}}YOϵA@뀀00`@`pgppo{= p0<ߏ3ꪪPC,5,10:TX,"WORKING..."::(4);"RUN HELLOHI1":J SUBPROGRAM XX/7 GRADE-4\ WORD ANALYSIS: SINGULAR POSSESSIVES (PG.27)\"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\%INITIALIZATIONM]O,2:PC,1,19:TX,"GOAL = ":RR$(RR%):TX,RR$:TX," RIGHT IN A ROW. YOU HAVE":wSY,1:PC,19,10:DI,4:SN1įCL,40RR$(RR):INV:I0RR:TX,RR$::NO:CL,0:DI,0'4,8,6J770,A2:::SY,3:29000::(4);"RUN LESSONXX"2j::SY,3:":PC,12,8:TX,"GOOD":SN1āI200205:TN,I,5:HaSN1āI1950:Qa300oa"SN1āI15:TN,255,10:a#SY,1:PC,8,7:TX,L$(X)a$16368,0:R$:(R$)13300a%292a, SCORINGa1L$L$(X)RR1:RRRR1:WR0b6L$L$(X)WW1:WRWR11,7,40,7:FI:DE,1,1,40,20:CO,23` ANSWER ENTRY=`CO,4o`SY,1:PC,8,6:L$" ":ENS,L$,9,T%,AL%y` CO,2`(L$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L127":::"BYE":D$;"RUN HELLOHI1"`L$L$(X)282`2902aPC,12,8:TX," RS_K0İ4010:50101_ BEGIN QUESTION LOOP=_X1NQo_SY,1:DE,1,1,20,9:INV:FI:NO:DE,1,1,20,10_ DISPLAY QUESTIONS AND SPEECH FOR QUESTION_PS(11(IX$(X))2)_SY,1:PC,PS,2:TX,IX$(X)_CO,4 `SY,3:DE,1,1,40,1:FI:DE,OP^nR0:RR0:X0:K0#^sSY,3:)^x>^RN0JJ1:150[^J(NS(1)1):JJ1140p^J1J:JNSRN1^ SET UP QUESTIONS ^J1010,1110,1210,1310,1410,1510,1610,1710,1810,1910,2010,2110,2210_ SET UP SCREEN AND SCREEN PARTICULA& TS,ST%: HOME : HGR :K = 0#]):e]2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$s]3SN(785)]<L$(10),IX$(10)]FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE."]PNS13:NQ1:SP6:RR%6]ZT%0:AL%0^d BEGIN SCREEN LO \60010\ 279021\ ONERR GOTO 60010o\ SUB-PRG XX/6 GRADE-5WA ALL RULES OF SYLLABICATION\# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\% INITIALIZATION]( ST% = 3: & RE:        )6340T^^A1(769):L1(N1$):769,A1:771,L1:I1L1:771I,((N1$,I,1))::515x^hD$;"BLOAD ";NF$:A1(769):515^A1(769):A2(770):L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$^A11520,2520,3520,4520^35010_A1A1]HSY,3:PC,1,18:TX,"THEN PRESS RETURN TO CONTINUE.":SY,1e]JPC,5,5:EN,N1$,10,T%,AL%:AL%1330]L(N1$)27ĺ(4);"RUN HELLO"]NN1$(N1$,AL%):NF$"SRF-"N1$]O345]P(769)0350]TD$;"UNLOCK ";NF$:216,0]V360]Y216,0^\(222 \27902\60010'\ LESSONXX1\nST%3R\x::D$(4)::RESET:TS,ST%y\} ** DIM'S, DATA, INIT., BLOADS **\6(768)99410\E768,99:PC,1,1:CL,30:SP,220:TX,"PLEASE ENTER":PC,1,3:TX,"YOUR NAME.":CL,0:SP,255\FN1$" "<   ΄Σ񸸬Մ쬸ೞ𠰐࠸𜇀1u    LfPC,19,10:DI,4:CL,40:RR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,0RffJ770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"fj:(4);"RUN HELLO"(4);"RUN HELLO"eK1,e:(4);"BLOAD PW-BELL-6,A27904"IeI1550:II:: (PAQSE)Oece DISPLAY SCOREeSY,1:DE,1,1,20,10:CO,2:INV:PC,4,1:TX," A E I O U ":NOeSY,3:CO,2:PC,1,19:TX,"GOAL = 6 RIGHT IN A ROW.":PC,28,19:TX,"YOU HAVE"eSY,1 d SY,1d 7d:(4);"BLOAD PWI-RSVW,A27904"=did21:"MATCH THE WORD WITH THE PICTURE."dTA,27904,1:4080d22:"PRESS THE LETTER OF THE MISSING":23:"SHORT VOWEL.";dTA,27904,2:4080d" HIT RETURN TO GO ON.";:1:d1SY,3(c (4);"BLOAD ";IX$(I);",A6144";c I1I%2:J%4Oc I2I%13:J%4qc (IX$(2)"I.BOX")(I2)I%14c I3I%26:J%4c (IX$(3)"I.WIG")(I3)I%25c (IX$(1)"I.BELL")(I1)J%3c (IX$(3)"I.HAT")(I3)J%3c DP,6144,I%,J%dE$(1)"LL":E$(2)"TS":E$(3)"G"AbL$(1)"E":L$(2)"U":L$(3)"I"Gb*zb4:IX$(1)"I.MAN":IX$(2)"I.BOX":IX$(3)"I.HAT"b92300b>B$(1)"M":B$(2)"B":B$(3)"H"b?E$(1)"N":E$(2)"X":E$(3)"T"bCL$(1)"A":L$(2)"O":L$(3)"A"bbI13c(WR5)(W18)A25:400106aWR2İ4000:X0:70SaNN1:N3N0:X0:100\a300ga40010a:IX$(1)"I.HAM":IX$(2)"I.BOX":IX$(3)"I.CUP"a:IX$(1)"I.BELL":IX$(2)"I.NUTS":IX$(3)"I.WIG"a2300aB$(1)"B":B$(2)"N":B$(3)"W"bN A ROW. YOU HAVE":390_GL$"$ ]7D$(4)+]<L$(6),IX$(3),B$(6),E$(6)4]AWR0I]FR0:RR0:X0:N0U]KSY,3:p]dRW6JJ1:J4ī102]eJ1J:J(2(1)1):JJ1101]fNO:]iJ2000,2100]l5005]mK0İ4000]nSP,255] ]300]"^, QUESTIONS AND ANSW \27902%\ST%3:RESET:TS,ST%1\60010R\ SUB-PRG XX/3 GRADE-2 RSVW\ VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\-:]2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1   ฀𜇁Ȉ`Ѐ0`뀀`01uC ఀp@0`𐐐 8`8`8@`8`@  NOTfSY,3:CO,2:PC,1,19:TX,"GOAL = 6 RIGHT IN A ROW.":PC,28,19:TX,"YOU HAVE"^fSY,1fPC,19,10:DI,4:CL,40:RR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,0ffJ770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX" gj:(4)E MISSING":23:"LONG VOWEL.";4eTA,27904,2:4080We" HIT RETURN TO GO ON.";:1:^e1feK1e:(4);"BLOAD PW-KITE-9,A27904"eI1550:II:: (PAQSE)ee DISPLAY SCOREfSY,1:DE,1,1,20,10:CO,2:INV:PC,4,1:TX," A E I O U ":d I2I%13:J%4'd I3I%26:J%4Jd (IX$(1)"I.PLATE")(I1)J%6]d DP,6144,I%,J%cd md SY,1sd d:(4);"BLOAD PWI-RLVW,A27904"dd21:"MATCH THE WORD WITH THE PICTURE."dTA,27904,1:4080e22:"PRESS THE LETTER OF TH:c:IX$(1)"I.KITE":IX$(2)"I.BEADS":IX$(3)"I.MULE"Dc2300fcB$(1)"K":B$(2)"B":B$(3)"M"cE$(1)"TE":E$(2)"ADS":E$(3)"LE"cL$(1)"I":L$(2)"E":L$(3)"U"ccI13cSY,3c (4);"BLOAD ";IX$(I);",A6144"c I1I%1:J%4"&bE$(1)"SE":E$(2)"RE":E$(3)"BE"HbL$(1)"O":L$(2)"I":L$(3)"U"Nb*b4:IX$(1)"I.PLATE":IX$(2)"I.WHEEL":IX$(3)"I.SMOKE"b92300b>B$(1)"PL":B$(2)"WH":B$(3)"SM"b?E$(1)"TE":E$(2)"EL":E$(3)"KE"bCL$(1)"A":L$(2)"E":L$(3)"O"c10#a(WR5)(W18)A25:40010;aWR2İ4000:X0:70XaNN1:N3N0:X0:100aa300la40010a:IX$(1)"I.HAM":IX$(2)"I.BOX":IX$(3)"I.CUP"a:IX$(1)"I.HOSE":IX$(2)"I.TIRE":IX$(3)"I.CUBE"a2300bB$(1)"H":B$(2)"T":B$(3)"CI0RR:TX,RR$::NO:CL,0:DI,0&g1g'4,8,6gJ770,A2:::SY,3:PC,5,10:TX,"WORKING...":29000::(4);"RUN LESSONXX"gj::SY,3:PC,5,10:TX,"WORKING..."::(4);"RUN HELLOHI1":N:AL%0ī308_HDI,0:5010_I(L$)27Ĺ769,2::(4);"BSAVE ";NF$;",A768,L127"::RE:PC,9,5:TX,"BYE":I15000::(4);"RUN HELLO"_JL$L$(X)įPC,12,9:TX,"GOOD":I200205:TN,I,5::350_YI15:TN,255,10:: TONE FOR WRONG ANSWER`^400AND ANSWERS^1XX1#^2X4X1<^4J1įTA,27904,(X3)U^5J2įTA,27904,(X6)j^6J3įTA,27904,X^7P(X)1:J2P(X)2^8PC,6(X1)3,7:TX,B$(X):PC,6(X1)4(B$(X)),7:TX,E$(X):PC,6(X1)3(B$(X)),7^>390 _GL$" ":ENS,L$,1,T%,AL% ]7D$(4).]<L$(6),IX$(3),B$(6),E$(6),P(3)7]AWR0L]FR0:RR0:X0:N0X]KSY,3:s]dRW9JJ1:J4ī102]eJ1J:J(3(1)1):JJ1101]fNO:]iJ2000,2100,2200]l5005]mK0İ4000]nSP,255] ]300]" ^, QUESTIONS  \27902%\ST%3:RESET:TS,ST%1\60010P\SUB-PRG XX/2 GRADE-2 RLVW\ VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\-:\2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$   ܼꪪ뻃ծ뻚ЀĄǏ؁몪cJz#pppp> ͠د͠د͠دɮˠɮŭɮ˭ƭ͠د ͠د ͠د ɠ  ƠҠ  и ͭӠ ɮϠ ɮǠɮҠ ɮР! ɮԠ" ɮӠ ɮӠ ɮŠ ɮˠ  Ϡ ɮȠɮŠɮР ɮӠ ɮŠ ɮԠ ɮŠ  ɮԠɮĠɮǠ ɮР ɮȠɮˠɮǠ  DzƭʠɮӠɮԠɮԠɮǠɮР  Š" ͠د ͠د ͠د ɮǠȠDZ ͠د ͠د Ӡ!ɮŠ ƭŠƭΠƭ͠ɱرؠɮŠ͠د ͠د͠د|)@/Y2NP&\a%J% 5 ӀJ%K  ;eaʢ4\0-#%;( % )!\PeaYޛ,uP*=P4P;80$-9w dJ%8r]P;K@G8=;G`````~ap-:04P"0&)@",w^(*t{jr@0҉@hi;@a%r [K)l]8k @+I@l;e҉@aʞ&-(3t@4P# ! Ν%n9@4P&\8P;a@0!nnȪ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶NO PROGRAM IN MEMORYNO ՆtֆstsưƯsgůhhijg` Lӆ Ԇ8stijRLghLABCՆ>ֆ?sȥ Ȫ͆0 ҅ >&eeeR aSP1360: INVALID CHOICE9aSPNL1580: STOP]aSPNL360: INVALID CHOICE aSPNN(SP): PICK UP ACTUAL S/P # BASED ON MENU CHOICEa&769,SP: POKE SUB-PROGRAM NUMBERa0(4);"RUN LESSONXX"a:aD:RE:SY,3bNPC,10,10:TX,"A LESSON NUMBER, OR"V`PC,1,(LSNL8):TX,"HIT RETURN TO START WHERE YOU LEFT OFF."h`PC,1,LSNL9q`FL4`L$" "`EN,L$,FL,T%,A%`(L$)27580`A%0560: IF ONLY CR THEN GOTO LESSONXX FOR SRFaSP(L$): SP=SUB-PROGRAM NUMBE_kDE,2,LS2,38,LSNL4:INV:FI:NO/_lCO,2A_mDE,1,1,40,20[_rPC,3,LS2:TX,LN$(0)g_|I1NL_PC,3,(LSI3):TX,LN$(I)__PC,3,(LSNL4)_ST$(NL1)_TX," ":TX,ST$:TX,". --- STOP ---"`PC,1,(LSNL7):TX,"PLEASE TYPE S - MIDDLE LEVELS"/^LN$(1)" 1. SYLLABLES"M^LN$(2)" 2. POSSESIVES"i^LN$(3)" 3. HOMONYMS"^LN$(4)" 4. HOMOGRAPHS"^J ********************^T THIS CODE DISPLAYS MENU^^:^hRE:SY,3^iCO,4^jDE,1,LS1,39,LSNL5:FI%]LN$(NL): HOLDS MENU TEXTa]NN(NL): HOLDS INDEXES TO GET FROM MENU LINE NUMBERS TO S/P'S] LS= NUMBER OF LINES TO SPACE DOWN TO CENTER THE MENU]LS(22NL8)2]NN(1)1]NN(2)7]NN(3)11]NN(4)13^LN$(0)" STRUCTURAL SKILL \390765\d HELLO PROGRAM - FILENAME HELLOHI1~\i PACKAGE 3 / DISK 2 / SIDE 1 - STRUCTURAL SKILLS - MIDDLE LEVELS\n120\x768,0:769,0\ ********************\NSP14: NSP=#OF SUBPROGRAMS\NL4: NL=# OF LINES IN THE MENU     *`SY,3:PC,30,4:L$" ":ENS,L$,1,T%,AL%~`(L$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L127":::"BYE":D$;"RUN HELLOHI1"`L$L$(X)282`290`SY,1:PC,12,8:TX," ":PC,12,8:TX,"GOOD":SN1āI200205:TN,I,5:`SN1āI1950:0:5010!_ BEGIN QUESTION LOOP-_X1NQ__SY,1:DE,1,1,20,9:INV:FI:NO:DE,1,1,20,10_ DISPLAY QUESTIONS AND SPEECH FOR QUESTION_SY,3:PC,5,4:TX,IX$(X)_CO,4:DE,1,1,40,2:FI:DE,1,7,40,8:FI:DE,1,1,40,20:CO,2_ ANSWER ENTRYsSY,3:^x$^RN0JJ1:150A^J(NS(1)1):JJ1140V^J1J:JNSRN1u^ SET UP QUESTIONS ^J1010,1110,1210,1310,1410,1510,1610,1710,1810,1910,2010,2110,2210,2310,2410^ SET UP SCREEN AND SCREEN PARTICULARS_K0İ401T%: HOME : HGR ]):Y]2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$g]3SN(785){]<L$(10),IX$(10)]FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE."]PNS15:NQ1:SP10:RR%6]d BEGIN SCREEN LOOP]nR0:RR0:X0:K0 ^ \60010\ 279021\ ONERR GOTO 60010i\ SUB-PRG XX/10 GRADE-5WA POSSESSIVE PLURALS\# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\% INITIALIZATION]( ST% = 3: & RE: & TS,S@`px8p`@@@p88p`````````ppxx@`p`?|~````````pp`|~p@?````````|`x@?@````pp1u`````~?@`|x`````````@x~p|?  804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9@]a\@,(i;/ )p$@(ji {P8a*p,J%$iCʝ%J%s ʜ`;%;@}7=SN1İ4670     vA12000,2100,2200,2300,2400,2500,2600,2700,2800,2900,3000,3100,3200,3300,3400,3500,3600,3700,3800,3900,4000,4100,4200,4300,4400,4500,4600,4700 510 COMPLETED SUBPROGRAM XX/1 :RE:SN1įCL,40'SP,240:I04:FI10,1910 35010 A1A11. RE:TS,ST%? A1NS34010P  MODULE #NV | SP$"SUBPROGRAM XX/"(A1):40010 SP$"":RE:SY,3:PC,13,5:TX,"STOP AND REST.":PC,8,7:TX,"GET HELP IF YOU NEED IT.":PC,12,9:TX,"THEN COME BACK.":51000 0E ^L1(N1$):A1(769):771,L1:I1L1:771I,((N1$,I,1))::515} hSN(785):(4);"BLOAD ";NF$:A1(769):785,SN:515 A1(769):A2(770):L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$ A232010,33010,34010,35010,1710,1810,19,17,17:EN,SN$,1,T%,AL%:(SN$)27N1$(27):330M LSN$"Y"SN$"N"ī331h M785,0:SN$"Y"Ĺ785,1 NN1$(N1$,NL%):NF$"SRF-"N1$ O345 P(769)0350 T(4);"UNLOCK ";NF$:216,0 V360 Y216,0 Z(769)0Ĺ769,1 \(222)6343:TX,"YOUR NAME.":CL,0:SP,2555 FN1$" "s HSY,3:PC,1,14:TX,"THEN PRESS RETURN TO CONTINUE.":SY,1 IPC,5,5:EN,N1$,10,T%,AL%:NL%AL%:AL%1329 J(N1$)27:(4);"RUN HELLOHI1"1 KSY,3:PC,1,17:TX,"SOUND ON? (Y,N) ":SN$" ":PC  60010 LESSONXX19nST%3:SUPERTALKER SLOTXsNS14: # OF SUBPROG'S suSN(785): SOUND FLAGx::RE:TS,ST%:} ** DIM'S, DATA, INIT., BLOADS **6(768)99410 E768,99:PC,1,1:CL,30:SP,220:TX,"PLEASE ENTER":PC,1,        THE HISS'S WARNING":L$(1)"S"#eV Mej IX$(1)"THE CITIES' LIGHTS":L$(1)"P"Se de PAUSE SUBSje pe e INSTRUCTIONS AND BLOADSe:100f21:"READ THESE PHRASES. IF THE WORD WITH":"THE APOSTROPHE IS PLURAL,TYPE P AFTER":"THE PHRASE.)dIX$(1)"THE ZOO'S ZEBRAS":L$(1)"S"/dbZdvIX$(1)"THE BOXES' CONTENTS":L$(1)"P"`ddIX$(1)"THE HEROES' WELCOME":L$(1)"P"d*d>IX$(1)"THE PONIES' STABLE":L$(1)"P"ddIX$(1)"THE EAGLES' FEATHERS":L$(1)"P"de IX$(1)":L$(1)"P"c ;cIX$(1)"THE WOMEN'S REPORTS":L$(1)"P"AcngcIX$(1)"THE SUN'S RAYS":L$(1)"S"mccIX$(1)"THE PLAYERS' CARDS":L$(1)"P"c6cJIX$(1)"THE CLUB'S MEMBERS":L$(1)"S"ccIX$(1)"THE CHILDREN'S SECRETS":L$(1)"P"d10%b^ IF WR > 2 THEN GOSUB 4010=bc END QUESTION LOOPGbe3010Mbhcbm END SCREEN LOOPlbr120b DATA FOR QUESTIONSbIX$(1)"THE MEN'S JOBS":L$(1)"P"bBbVIX$(1)"THE DONKEY'S EARS":L$(1)"S"b cIX$(1)"THE HOUSES' OWNERS"a300&a"SN1āI15:TN,255,10:Ca#SY,3:PC,36,4:TX,L$(X)da$16368,0:R$:(R$)13ī300ma%292{a, SCORINGa1L$L$(X)RR1:RRRR1:WR0a6L$L$(X)WW1:WRWR1:RR0a@5010aJRRRR%A27:40010bT(WR5)(W18)A25:400*D!*mۭ*I֪TRU[+IRvJTJU*ڪ$$U۶RiVRVT ZRUYͬ*jTUS(UMYiƪVSUYUR4TXYUZjNcX*Vk*ͦʬRJXUSUTjefM]H+n5Mi-VVfW5ZĴդƪ̦V+b3J*5JZRN%VU9V˩P(U$Um[UIz?UAn$Jk۪RRW)HۮH_W)DTm۪TuI^[IZVUR* !Vm[UJZ vw$RUVURj*_kvD֪RZK_I"mU$j[UIjUkm$m[%ڶU$UmkURʷ(T*IJUTm[UI*}ۆ"]UIm[UZV%)mEAT*m*%UXתRRTZ]y.& ê(*V>Baqz]JEŲ< TTLVU0X\^OKEl5aPi^MEEeUy<Cy9*JU8JeQ4q8Z=/BjU:>hhTTZm-p8Tu}. %U8^-WWU8|^R(Uժud֪>>0\nUQZU'uUIU۶*Ey~ZBҶV)TU%%մJVMV4SZUhUSiMUK*+媲JUժR+UV*Ui*jVSR*U6ULKURUVմtTҬbVeU-UljYZUee)m6UiVR.iXZ\Z 8qLG8,bTq,WJUiqx I֭(h@\ ҉rsM+5 LP;aP0\L\[ 4P4YNދ)s3J%<%r|@P;8DC2><`````~a -|;/ %) (07P;a@)tӐ"p)o (҉@Ίp0# !3҉@PPaP!a )@&@!+{C ҉@Ҍ@/@ ;ePaa J%HbSXts  =\ LESSONXX\390765\(4);"RUN LESSONXX1";\( L:JJ0RR:TX,RR$::NO:CL,0:DI,0)hlhJ770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"hj:D$;"RUN HELLOHI1" N1įCL,40?gRR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,0EgngJ770,A2::SY,3::D$;"RUN LESSONXX"gj:D$;"RUN HELLOHI1" LER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\% INITIALIZATION]( ST% = 3: & RE: & TS,S IF IT IS SINGULAR, TYPE S.":f"HIT RETURN TO GO ON. ";Cf255PfK1:1:Vf$jf DISPLAY SCOREfSY,3:CO,2:DE,1,1,40,20:PC,1,19:RR$(RR%):TX,"GOAL = ":TX,RR$:TX," RIGHT IN A ROW.":PC,28,19:TX,"YOU HAVE" gSY,1:PC,19,10:DI,4:SN0`@00((,uWUUUUU+*jjjj:~}wWuuuuU.:jjjj**uuUUUWW_*k|WXx69((80`@UUUU55++/-=55%_s`PV0 @@ eEA 00 (lWwu_]WU  EUl8<.*u1uC 8@`@`@pPll.+**** ]u8>+++++* u `` PPpag}UU*****+*.uuuuuuuU**jj::.._WWUUUUUzj::*: 08((((8UUUUUUUU~j**jz>/UW_uuu}/{?+/{n.UUUUW_}:jjjjjjuMXDRZ%*VQSW^-U++JZTZVjjj[URUZ*jU(UVJתRTZZ*U%IRZJ}[UJUUR*}[UJZTIIjz.EURyEUkRTz>"T*U*yQX^WJRUi0X^]JR9U]ϥITUVUTZRj$jUJ֪*I)UZ*jURRj R.jZZƲT5U[Z*ieYXVSeUSUSTUjUҮ1UTҪT견TQmUZ*YZ*ʭ(WSUJ*i-UWZVUZUJꪴRUSUk,˪hTJY(:Q*TժJժUҥֶ**U[꺎B!*kUJ"QU\BTZZJ"QmkzPHJzRڪ:SJvWKQj][zNC(u5(UkUJu_z[Rt{O(UTU%vߪ$$Jv۪Dm[UIJ^)k{۪JRRھk!vw[U""ڶURo!RnJDm[UJv$jmJIU֪R^[$ڶU)IjVVU* ZTZRoTUk磡JURQcT(,VJ糘P^F*u|y:uma0\צQ(*kyv]BTms Bj]0ujm]a(MZ^M׻JBQ^R UmJ(Umk]RU[ QT۶ (ZUIڶuUBHTmﶪ$jn(Jz۪JIUm[ZoRU)Z_%RVIU+%nnݪJJTZI-UTR*jUJUVVUjIVIRUmUV[Rj RZURJUZkTjmmJJR*UjUVkjJRJkUJJJU֪*%IJUjVUjUkRTUZ*)֪Z$RJUֶRժ*I"Tj[[T PzV jwHUV%I~Ujm(URTJ$ת$)UmkUYVEBv[DjmmEZUjJJUZ*ZURZVJ ZZ V*UժJURD:EQZժJ:*U2V.ZR٫Rjj*WD*IRU֪*0*%UnB-]J}UERjKJU]ݪ*IՕ־UPCo4KVբUjiRyTEJm[*IZ*K|U+jJ*jj]RjUJU T .ZJ? R߂ҫZJ[$IBUQ*R_KHۢTK*UWBڷ* -D ٭RJ $[Է I*I/!RMԷ%VV+ n%HmdQh$"IkRR毣P^^[aHegkorux{$TU*ZZ **-jUZY:pjtUR\Xe*jR|RRIozU+T]UQU!^ݐ*-iUmҕ"U         | ]w ֚ꪪ@p<몪@تժժꅅ``pתꪺp`߫뫪1uC ꪪ뇇`뚚LOHI1":HX,"WORKING..."::D$;"RUN LESSONXX"Gfj:(4);"RUN HELLO" SUB-PRG XX/1 GRADE-1 SHORT-A\ VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\-:]2L1(771):N1$"":I1L1:N1$N1$X," RIGHT IN A ROW. YOU HAVE":GSY,1:PC,19,10:DI,4:SN1įCL,40|RR$(RR):INV:I0RR:TX,RR$::NO:CL,0:DI,0J770,A2:::SY,3:29000::(4);"RUN LESSONXX"j::SY,3:PC,5,10:TX,"WORKING..."::(4);"RUN HELLOHI1":= 3: RUCTIONS::100r21:"READ EACH WORD. THEN TYPE THE NUMBER OFSYLLABLES YOU HEAR -- 1, 2, 3, OR 4.";:"HIT RETURN TO GO ON.";1:255:K1:1$DISPLAY SCORE SY,3:CO,2:PC,1,19:TX,"GOAL = ":RR$(RR%):TX,RR$:TM NUMBER, NUMBER OF WORDS, NUMBER CORRECT TO GRADUATEKI1NS:L1$(I):ALPHABET,UNHAPPINESS,DIVISION,REPLIED,MASKED,APARTMENT,DISAGREEING,STUFFED,PANCAKES,CANDLE,RANCH,MULTIPLYINGI1NS:L2$(I):3,4,3,2,1,3,4,1,2,2,1,4BINST(R$)13295%2920'PC,7,5:NO:TX," ":;=,SCORINGG@5010`JRRRR%A27:40010vTWR4A25:40010^ IF WR > 2 THEN GOSUB 4040SY,1:PC,14,9:TX," "130:END LOOPDATA FOR QUESTIONS 1,12,65SUBPROGRAL2$(J)282 290h RR1:RRRR1:WR0:SY,1:CO,2:PC,14,9:TX,"GOOD":SN1āI200205:TN,I,5:~ SN1āI1950: 300 1:220 "WW1:WRWR1:RR0 #SN1āI15:TN,255,10: $SY,1:CO,4:PC,7,5:INV:TX,L2$(J):16368,0:R$: ":PC,9,4:TX,L1$(J)8 PC,7,4:ENS,N$,1,T%,AL% (N$)27Ĺ769,SP%:RE:::(4);"BSAVE ";NF$;",A768,L127":PC,9,5:TX,"BYE":I15000::(4);"RUN HELLOHI1":: PRESSED N$"1"N$"4"277 280 SN1ĺ(7) 1:220 N$N$=INPUT VARIABLE FOR &ENS 7 _4010:PRINT DIRECTIONSP c5010:DISPLAY SCOREg dBEGIN SCREEN LOOP{ x1000:GET DATA RWNSJJ1:150 J1J:J(NS(1)1):JJ1140 : BEGIN QUESTION LOOP SY,1:CO,5(1) PC,7,4:TX," DENTS FILENAME 3SN(785)I <L1$(NS),L2$(NS): L1$=WORD L2$=ANSWER FR0:RR0:W0:WR0:J0: R=NUMBER RIGHT RR=NUMBER RIGHT IN A ROW W=NUMBER WRONG WR=NUMBER WRONG IN A ROW J=INDEX VARIABLE  PT%0:AL%0:N$"3": T%,AL%=DUMMY VARIABLES FOR &ENS & RE: & TS,ST%: TEXT : HOME : HGR : REM ST%=SUPERTALKER SLOT G ): -SP%,NS,RR%: SP%=SUBPROGRAM NUMBER NS=NUMBER OF WORDS RR%=NUMBER CORRECT TO GRADUATE 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$:N1$=STUDENTS NAME, NF$=STU 60010& ONERR GOTO 600102:27902P SUBPROGRAM XX/1 GRADE-4v WORD ANALYSIS: SYLLABLES (PG.18)"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982%INITIALIZATION? ( ST% = 3:      LLO" 4);"MAXFILES 1":39076: 39076=$98A4 JUST BELOW USER.BINL$200 (SUPERTALKER IO ROUTINES)n\ HELLOHI\ ONERR GOTO 60010\1013,76:1014,0:1015,8: SET UP JMP $800 TO BACP800 AMPERSAND CONTROL PROGRAM\ D$(4):D$;"BLOAD BACP800"T]2ET PETALS."ePC,1,18:TX,"ADJUST THE 'COLOR' AND THE 'HUE' (OR 'TINT') CONTROLS TO GET THE ABOVE DESCRIBED RESULTS. THEN PRESS RETURN."e16368,0:R$:e?e@ SRF MANAGEMENTeB(4);"RUN SRF DELETER"e'#e*#fj::(4);"RUN HE,1,40,20ddPC,1,9:TX,"WHEN THE COLORS ARE PROPERLY ADJUSTED, THE DUCK WILL BE SLIGHTLY ORANGE."dPC,1,12:TX,"THE FLAG WILL HAVE WHITE AND SLIGHTLY ORANGE STRIPES WITH A BLUE FIELD." ePC,1,15:TX,"THE FLOWER WILL HAVE GREEN LEAVES AND VIOL@ SRF MANAGEMENT.B(4);"RUN SRF DELETER"4'#:*#Sj::(4);"RUN HELLO" OUTINES)n HELLOHI ONERR GOTO 600101013,76:1014,0:1015,8: SET UP JMP $800 TO BACP800 AMPERSAND CONTROL PROGRAM D$(4):D$;"BLOAD BACP800"T 2H A BLUE FIELD."ZPC,1,15:TX,"THE FLOWER WILL HAVE GREEN LEAVES AND VIOLET PETALS."PC,1,18:TX,"ADJUST THE 'COLOR' AND THE 'HUE' (OR 'TINT') CONTROLS TO GET THE ABOVE DESCRIBED RESULTS. THEN PRESS RETURN."16368,0:R$:?LAG,A6144":DP,6144,15,1E lD$;"BLOAD I.FLOWER,A6144":DP,6144,28,1W DE,1,1,40,20 PC,1,9:TX,"WHEN THE COLORS ARE PROPERLY ADJUSTED, THE DUCK WILL BE SLIGHTLY ORANGE."PC,1,12:TX,"THE FLAG WILL HAVE WHITE AND SLIGHTLY ORANGE STRIPES WIT"R"İ5000 :  ( MENU. <O  MSG TO INSERT STUDENT DISK_ :RE:SY,3z :(4);"RUN HELLOHI1"  X COLOR CALIB. ZRE:SY,3:PC,5,10:TX,"WORKING..." ]RE bD$;"BLOAD I.DUCK,A6144":DP,6144,1,1 gD$;"BLOAD I.F002 c60 d,  DISPLAY TITLE SCREENM :(4);"BLOAD TITLE,A$2000" 21:4:"AMERICAN EDUCATIONAL COMPUTER, INC." 4:"COPYRIGHT 1983 PALO ALTO, CALIF." 16368,0 "PRESS 'H' FOR HELP OR 'R' TO RUN LESSONS";:1 R$ R$5:TX,"1. COLOR CALIBRATION"K DPC,4,7:TX,"2. STUDENT RECORD MANAGEMENT"t FPC,4,9:TX,"3. RUN STUDENT LESSONS" HPC,4,11:TX,"MAKE SELECTION & PRESS RETURN." LA$"1 ":PC,4,13:ENS,A$,2,TS%,AL%:AL%176 NA(A$):(A1)60 ZA7002,8002,5921,165:2922,152: JSR $98A5 OR 39077 TO TALK (INSTEAD OF $9200 FOR OLD USER.BIN) (768,0: CLEAR BOOTUP ENTRY FLAG FOR LESSONXX -:RE: 22000: TITLE <RE::SY,3 >CO,1:FI:INV:DE,2,2,38,15:FI:NO:DE,1,1,40,20 @CO,2 BPC,4,U`(4);"MAXFILES 1":39076: 39076=$98A4 JUST BELOW USER.BINL$200 (SUPERTALKER IO ROUTINES)n HELLOHI ONERR GOTO 600101013,76:1014,0:1015,8: SET UP JMP $800 TO BACP800 AMPERSAND CONTROL PROGRAM D$(4):D$;"BLOAD BACP800"T 2  VIR}H$m I]Zkݭ@߭$$V+u$ڻ[$iimIﶕ$$Iڽ"IQ]%$I $IvUJ$T"nRj %!I]նUޖH/HTn+ ${K zKmz߮@jJ@J$ԷJU**$I$wHRUBn*VV+$IRJT[VZZTj۪RJHUJjժjURTUVJUHJ*jZkmUVT)TjoUjUJ)T)jjjURJ^ުZ%nڪV!IHjU۪j%$ wJ HRmKIT""{[IJjmH Iﶒ$-U-@߭}m $[^%^lekqwH~x{jTj5J*UjTjUjURJVkZVUTJRJTժjj]kUj*$$%TUv붶ժVURJ              ժժվիժժ1uC ՀՀꀀժժ:SY,3:PC,5,10:TX,"WORKING..."::(4);"RUN HELLOHI1":ROGRAM XX/2 GRADE-4w\ WORD ANALYSIS: SYLLABLES (PG.18)\"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\%INITIALIZATION5]( ST% = 3 SCOREcSY,3:CO,2:PC,1,19:TX,"GOAL = ":RR$(RR%):TX,RR$:TX," RIGHT IN A ROW. YOU HAVE":SY,1:PC,19,10:DI,4:SN1įCL,40RR$(RR):INV:I0RR:TX,RR$::NO:CL,0:DI,0J770,A2:::SY,3:29000::(4);"RUN LESSONXX":j:I1NS:L2$(I): 3,1,2,1,3&B8INSTRUCTIONS>:I:10021:"LOOK AT EACH GROUP OF THREE WORDS. ONLYONE IS DIVIDED INTO SYLLABLES CORRECTLY.TYPE ITS NUMBER.";" HIT RETURN TO GO ON.";1:255:K1:1$DISPLAYSUBPROGRAM NUMBER, NUMBER OF WORDS, NUMBER CORRECT TO GRADUATETI1NS:L1$(I):1. SA/DDLE 2. SADDL/E 3. SAD/DLE,1. PAR/KA 2. PA/RKA 3. PARK/A,1. LITT/LE 2. LIT/TLE 3. LI/TTLE,1. WAL/RUS 2. WA/LRUS 3. WALR/US,1. HAMM/ER 2. HA/MMER 3. HAM/MER$:(R$)13295%292<'PC,7,7:NO:TX," ":;I,SCORINGS@5010lJRRRR%A27:40010TWR4A25:40010^ IF WR > 2 THEN GOSUB 4040SY,1:PC,14,9:TX," "130:END LOOPDATA FOR QUESTIONS 2,5,4>1:250 N$L2$(J)ī282# 290w RR1:RRRR1:WR0:SY,1:CO,2:PC,14,9:TX,"GOOD":SN1āI200205:TN,I,5: SN1āI1950: 300 "WW1:WRWR1:RR0 #SN1āI15:TN,255,10:$SY,1:CO,4:PC,7,7:INV:TX,L2$(J):16368,0:RSY,1:DE,1,5,20,9:INV:FI:NO:CO,5(1)F PC,7,6:ENS,N$,1,T%,AL% (N$)27Ĺ769,SP%:RE:::(4);"BSAVE ";NF$;",A768,L127":PC,9,5:TX,"BYE":I15000::(4);"RUN HELLOHI1":: PRESSED N$"1"N$"3"277 280 SN1ĺ(7) ,40,20) c4010:5010:DIRECTIONS, SCORE@ dBEGIN SCREEN LOOPT x1000:GET DATAk RWNSJJ1:150 J1J:J(NS(1)1):JJ1140 : BEGIN QUESTION LOOP SY,3:DE,2,4,37,6:INV:FI:NO:CO,2 PC,20(L1$(J))2,5:TX,L1$(J)) NAME 3SN(785)? <L1$(NS),L2$(NS): L1$=WORD L2$=ANSWER FR0:RR0:W0:WR0:J0: R=NUMBER RIGHT RR=NUMBER RIGHT IN A ROW W=NUMBER WRONG WR=NUMBER WRONG IN A ROW J=INDEX VARIABLE PT%0:AL%0:N$" " `CO,4:SY,3:DE,1,3,38,7:FI:NO:DE,1,1: & RE: TEXT : HOME : HGR : REM ST%=SUPERTALKER SLOT= ): -SP%,NS,RR%: SP%=SUBPROGRAM NUMBER NS=NUMBER OF WORDS RR%=NUMBER CORRECT TO GRADUATE 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$:N1$=STUDENTS NAME, NF$=STUDENTS FILE; 60010& ONERR GOTO 600102:27902Q SUBPROGRAM XX/2 GRADE-4w WORD ANALYSIS: SYLLABLES (PG.18)"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982%INITIALIZATION5 ( ST% = 3     !!08967 @!@"@ #@%$@ @@@@@/A@0A @.A` ********************\NSP14: NSP=#OF SUBPROGRAMS\NL4: NL=# OF LINES IN THE MENULINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0S(/S(bA,3:29000::(4);"RUN LESSONXX"aj::SY,3:PC,5,10:TX,"WORKING..."::(4);"RUN HELLOHI1":R SYLLABLES (CONT.) (PG.19)\"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\%INITIALIZATIONI]( 1:255:K1:1$-DISPLAY SCORESY,3:CO,2:PC,1,19:TX,"GOAL = ":RR$(RR%):TX,RR$:TX," RIGHT IN A ROW. YOU HAVE":SY,1:PC,19,10:DI,4:SN1įCL,40RR$(RR):INV:I0RR:TX,RR$::NO:CL,0:DI,0 J770,A2:::SYC 2. M/USIC 3. MU/SIC/I1NS:L2$(I):>1,2,3,1,3DBVINSTRUCTIONS\:g:10021:"HERE'S ANOTHER TYPE OF DIVISION. TYPE THE NUMBER OF THE WORD THAT IS DIVIDED INTO SYLLABLES CORRECTLY.";" HIT RETURN TO GO ON.";S  3,5,4QSUBPROGRAM NUMBER, NUMBER OF WORDS, NUMBER CORRECT TO GRADUATEgI1NS:L1$(I):1. FLA/VOR 2. FLAV/OR 3. FLAVO/R,1. NE/VER 2. NEV/ER 3. N/EVER,1. ROT/ATE 2. ROTA/TE 3. RO/TATE,1. SEC/OND 2. SE/COND 3. SECO/ND,1. MUS/IL2$(J):16368,0:R$:(R$)13295+%292O'PC,7,7:NO:TX," ":;\,SCORINGf@5010JRRRR%A27:40010TWR4A25:40010^ IF WR > 2 THEN GOSUB 4040SY,1:PC,14,9:TX," "130:END LOOPDATA FOR QUESTION SN1ĺ(7) 1:250- N$L2$(J)2826 290 RR1:RRRR1:WR0:SY,1:CO,2:PC,14,9:TX,"GOOD":SN1āI200205:TN,I,5: SN1āI1950: 300 "WW1:WRWR1:RR0 #SN1āI15:TN,255,10:"$SY,1:CO,4:PC,7,7:INV:TX,2,5:TX,L1$(J)= SY,1:DE,1,5,20,9:INV:FI:NO:CO,5(1)Z PC,7,6:ENS,N$,1,T%,AL% (N$)27Ĺ769,SP%:RE:::(4);"BSAVE ";NF$;",A768,L127":PC,9,5:TX,"BYE":I15000::(4);"RUN HELLOHI1":: PRESSED N$"1"N$"3"277 28038,7:FI:NO:DE,1,1,40,20= c4010:5010:DIRECTIONS, SCORET dBEGIN SCREEN LOOPh x1000:GET DATA RWNSJJ1:150 J1J:J(NS(1)1):JJ1140 : BEGIN QUESTION LOOP SY,3:DE,2,4,37,6:INV:FI:NO:CO,2 PC,20(L1$(J))E, NF$=STUDENTS FILENAME& 3SN(785)S <L1$(NS),L2$(NS): L1$=WORD L2$=ANSWER FR0:RR0:W0:WR0:J0: R=NUMBER RIGHT RR=NUMBER RIGHT IN A ROW W=NUMBER WRONG WR=NUMBER WRONG IN A ROW J=INDEX VARIABLE PT%0:AL%0:N$" " `CO,4:SY,3:DE,1,3, ST% = 3: & RE: & TS,ST%: TEXT : HOME : HGR : REM ST%=SUPERTALKER SLOT Q ): -SP%,NS,RR%: SP%=SUBPROGRAM NUMBER NS=NUMBER OF WORDS RR%=NUMBER CORRECT TO GRADUATE 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$:N1$=STUDENTS NAMb 60010& ONERR GOTO 600102:27902P SUBPROGRAM XX/3 GRADE-4 WORD ANALYSIS: SYLLABLES (CONT.) (PG.19)"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982%INITIALIZATIONI (      ""20:SN1įTN,75,20:TN,150,20:9 SN1āI12000:I?J :::SY,3:29000::(4);"RUN LESSONXX"ij::SY,3:PC,5,10:TX,"WORKING..."::(4);"RUN HELLOHI1":CES (CONT.) (PG.19)\"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\%INITIALIZATIONI]( ."; 1:255:K1:1"$5DISPLAY SCORESY,3:CO,2:PC,1,19:TX,"GOAL = ":RR$(RR%):TX,RR$:TX," RIGHT IN A ROW. YOU HAVE":SY,1:PC,19,10:DI,4:SN1įCL,40RR$(RR):INV:I0RR:TX,RR$::NO:CL,0:DI,0(J770,A2 2. TROU/SER 3. TROUS/ER.I1NS:L2$(I):=1,3,2,1,2CBUINSTRUCTIONS[:f:10021:"THESE WORDS FOLLOW A DIFFERENT RULE. TYPE THE NUMBER OF THE WORD THAT IS DIVIDED INTO SYLLABLES CORRECTLY.";:"HIT RETURN TO GO ONNS 4,5,4SSUBPROGRAM NUMBER, NUMBER OF WORDS, NUMBER CORRECT TO GRADUATEiI1NS:L1$(I):1. PEACH 2. PE/ACH 3. PEA/CH,1. BO/AT 2. BOA/T 3. BOAT,1. REA/CT 2. RE/ACT 3. REACT,1. BLU/ISH 2. BLUISH 3. BL/UISH,1. TR/OUSER,L2$(J):16368,0:R$:(R$)13295,%292P'PC,7,7:NO:TX," ":;],SCORINGg@5010JRRRR%A27:40010TWR4A25:40010^ IF WR > 2 THEN GOSUB 4040SY,1:PC,14,9:TX," "130:END LOOPDATA FOR QUESTIO SN1ĺ(7) 1:250. N$L2$(J)2827 290 RR1:RRRR1:WR0:SY,1:CO,2:PC,14,9:TX,"GOOD":SN1āI200205:TN,I,5: SN1āI1950: 300 "WW1:WRWR1:RR0 #SN1āI15:TN,255,10:#$SY,1:CO,4:PC,7,7:INV:TX2,5:TX,L1$(J)> SY,1:DE,1,5,20,9:INV:FI:NO:CO,5(1)[ PC,7,6:ENS,N$,1,T%,AL% (N$)27Ĺ769,SP%:RE:::(4);"BSAVE ";NF$;",A768,L127":PC,9,5:TX,"BYE":I15000::(4);"RUN HELLOHI1":: PRESSED N$"1"N$"3"277 280,38,7:FI:NO:DE,1,1,40,20> c4010:5010:DIRECTIONS, SCOREU dBEGIN SCREEN LOOPi x1000:GET DATA RWNSJJ1:150 J1J:J(NS(1)1):JJ1140 : BEGIN QUESTION LOOP SY,3:DE,2,4,37,6:INV:FI:NO:CO,2 PC,20(L1$(J))ME, NF$=STUDENTS FILENAME' 3SN(785)T <L1$(NS),L2$(NS): L1$=WORD L2$=ANSWER FR0:RR0:W0:WR0:J0: R=NUMBER RIGHT RR=NUMBER RIGHT IN A ROW W=NUMBER WRONG WR=NUMBER WRONG IN A ROW J=INDEX VARIABLE PT%0:AL%0:N$" " `CO,4:SY,3:DE,1,3 ST% = 3: & RE: & TS,ST%: TEXT : HOME : HGR : REM ST%=SUPERTALKER SLOT R ): -SP%,NS,RR%: SP%=SUBPROGRAM NUMBER NS=NUMBER OF WORDS RR%=NUMBER CORRECT TO GRADUATE 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$:N1$=STUDENTS NAj 60010& ONERR GOTO 600102:27902P SUBPROGRAM XX/4 GRADE-4 WORD ANALYSIS: SYLLABLES (CONT.) (PG.19)" VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982%INITIALIZATIONJ (     cCONNIEI hh,`ӠˠϠŠ̠ŠéԠé̠;"RUN HELLOHI1":,4:SN1įCL,40DRR$(RR):INV:I0RR:TX,RR$::NO:CL,0:DI,0J~J770,A2:::SY,3:29000::(4);"RUN LESSONXX"j::SY,3:PC,5,10:TX,"WORKING..."::(4);"RUN HELLOHI1": COMPUTER INC. COPYRIGHT 1982\%INITIALIZATIONF]( STF THE WORD THAT IS DIVIDED INTO SYLLABLES CORRECTLY.";Y:"HIT RETURN TO GO ON.";b1:r255:K1:1x$DISPLAY SCORESY,3:CO,2:PC,1,19:TX,"GOAL = ":RR$(RR%):TX,RR$:TX," RIGHT IN A ROW. YOU HAVE":SY,1:PC,19,10:DIURN,1. DIS/OWN 2. DI/SOWN 3. DISOW/N,1. REW/RITE 2. REWR/ITE 3. RE/WRITE,1.HEL/PLESS 2.HELPLE/SS 3.HELP/LESSI1NS:L2$(I):1,2,1,3,3BINSTRUCTIONS::100:21:"THESE WORDS FOLLOW A DIFFERENT RULE. TYPE THE NUMBER O040!SY,1:PC,14,9:TX," "4130:END LOOPLDATA FOR QUESTIONSY 5,5,4SUBPROGRAM NUMBER, NUMBER OF WORDS, NUMBER CORRECT TO GRADUATEI1NS:L1$(I):n 1. MARK/ING 2. MAR/KING 3. MARKI/NG,1. SUNB/URN 2. SUN/BURN 3. SU/NBRWR1:RR0)#SN1āI15:TN,255,10:m$SY,1:CO,4:PC,7,7:INV:TX,L2$(J):16368,0:R$:(R$)13295v%292'PC,7,7:NO:TX," ":;,SCORING@5010JRRRR%A27:40010TWR4A25:40010^ IF WR > 2 THEN GOSUB 4SN1ĺ(7) 1:250x N$L2$(J)282RR1:RRRR1:WR0:SY,1:CO,2:PC,14,9:TX,"GOOD":I200205:TN,I,5::300 290 RR1:RRRR1:WR0:SY,1:CO,2:PC,14,9:TX,"GOOD":SN1āI200205:TN,I,5: SN1āI1950: 300 "WW1:W:TX,L1$(J): SY,1:DE,1,5,20,9:INV:FI:NO:CO,5(1)W PC,7,6:ENS,N$,1,T%,AL% (N$)27Ĺ769,SP%:RE:::(4);"BSAVE ";NF$;",A768,L127":PC,9,5:TX,"BYE":I15000::(4);"RUN HELLOHI1":: PRESSED N$"1"N$"3"277 280 7:FI:NO:DE,1,1,40,20: c4010:5010:DIRECTIONS, SCOREQ dBEGIN SCREEN LOOPe x1000:GET DATA| RWNSJJ1:150 J1J:J(NS(1)1):JJ1140 : BEGIN QUESTION LOOP SY,3:DE,2,4,37,6:INV:FI:NO:CO,2 PC,21(L1$(J))2,5NF$=STUDENTS FILENAME# 3SN(785)P <L1$(NS),L2$(NS): L1$=WORD L2$=ANSWER FR0:RR0:W0:WR0:J0: R=NUMBER RIGHT RR=NUMBER RIGHT IN A ROW W=NUMBER WRONG WR=NUMBER WRONG IN A ROW J=INDEX VARIABLE PT%0:AL%0:N$" " `CO,4:SY,3:DE,1,3,38,% = 3: & RE: & TS,ST%: TEXT : HOME : HGR : REM ST%=SUPERTALKER SLOT N ): -SP%,NS,RR%: SP%=SUBPROGRAM NUMBER NS=NUMBER OF WORDS RR%=NUMBER CORRECT TO GRADUATE 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$:N1$=STUDENTS NAME, 60010$ ONERR GOTO 600100:27902N SUBPROGRAM XX/5 GRADE-4} WORD ANALYSIS: SYLLABLES (CONT.) (PG.20)"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982%INITIALIZATIONF ( ST     $=INPUT VARIABLE FOR &ENS = c4010:5010:DIRECTIONS, SCORET dBEGIN SCREEN LOOPh x1000:GET DATA RWNSJJ1:J1J1:150 J1J:J(NS(1)1):JJ1140 : BEGIN QUESTION LOOP ((J1)6)((J11)6)210& CO,4:SY,3:DE,1,1,STUDENTS FILENAME 3SN(785)> <L1$(NS),L2$(NS),L3$(NS6) FR0:RR0:W0:WR0:J0: R=NUMBER RIGHT RR=NUMBER RIGHT IN A ROW W=NUMBER WRONG WR=NUMBER WRONG IN A ROW J=INDEX VARIABLE GJ13 PT%0:AL%0:N$" ": T%,AL%=DUMMY VARIABLES FOR &ENS N3: & RE: & TS,ST%: TEXT : HOME : HGR : REM ST%=SUPERTALKER SLOT J ): -SP%,NS,RR%: SP%=SUBPROGRAM NUMBER NS=NUMBER OF WORDS RR%=NUMBER CORRECT TO GRADUATE 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$:N1$=STUDENTS NAME, NF$= 60010& ONERR GOTO 600102:27902R SUBPROGRAM XX/11 GRADE-4x WORD ANALYSIS: HOMONYMS (PG.25)" VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982%INITIALIZATIONB ( ST% =  px|||||xժՀժసժ}}/?1u ՀժՁ_Նꪪర  ``@@@|jjk?@@@@@sUUUUUWWg~^^WWfnzzڀꫫ~VV\\x~g(,,< x````?5U@@@@|WUU`@@U?|^WWW~n++@@@UWVV~?jN~| ``?qՀcN``/`EASE PUT SUGAR IN MY TEA AND LEMON ==== .,OUCH! I GOT SOME LEMON JUICE IN MY ==== .,ED AND BETH ARE WAITING ==== A BUS.,CAN YOU SEE THEM OVER ==== ?,THEY HAVE ABOUT ==== DOLLARS TO SPEND.% THEY HOPE IT WILL BE ENOUGH === A MOVIE.,HERE COMES ==F WORDS, NUMBER CORRECT TO GRADUATE9I1NS:L1$(I): LET'S GO ==== MY HOUSE FOR LUNCH.,"I'LL HAVE A SANDWICH AND ICED TEA, === .","YOU MAKE THE SANDWICH, AND ==== WILL MAKE THE TEA.",THERE ARE ==== KINDS OF CHEESE IN THIS SANDWICH.PL92'PC,2,8:NO:TX," ":;*,SCORING4@5010MJRRRR%A27:40010cTWR4A25:40010^ IF WR > 2 THEN GOSUB 4040SY,1:PC,14,9:TX," "130:END LOOPDATA FOR QUESTIONS 11,12,6#SUBPROGRAM NUMBER, NUMBER O282 290aRR1:RRRR1:WR0:SY,1:CO,2:PC,14,9:TX,"GOOD":SN1āI200205:TN,I,5:wSN1āI1950:300"WW1:WRWR1:RR0#SN1āI15:TN,255,10:$SY,1:CO,4:PC,2,8:INV:TX,L2$(J):16368,0:R$:(R$)13295%2O,5(1):PC,2,7:TX," ":PC,2,7:ENS,N$,1,T%,AL% (N$)27Ĺ769,SP%:RE:::(4);"BSAVE ";NF$;",A768,L127":PC,9,5:TX,"BYE":I15000::(4);"RUN HELLOHI1":: PRESSED N$"1"N$"5"277 280 SN1ĺ(7) 1:220N$L2$(J)40,5:NO:FI:DE,1,2,40,4:INV:FI:NO` CO,2:PC,21(L3$((J1)61))2,3:TX,L3$((J1)61) SY,3:CO,2:DE,1,8,40,18:INV:FI:NO L4$(L1$(J),40):L5$(L1$(J),41,79) SY,3:DE,1,6,40,12:CO,2:PC,1,9:TX,L4$:PC,1,11:TX,L5$1 SY,1:Ccg{~ϟ><~|xp`?Gax| ppppUU...****WWW|xp@~xppppppppjjj...UUU]]]1u p|~?~|?AasgO???xxpppxx| |x`A ժՊԪժժՊԪժժՊժժժՀԀժՊՀԪժժM``/`ժժժժsgccscOcccpժժժժՂժ+U*U*U~ժժժժ3fsgsxOgsgGժժժժՂߪծժկկժߪպժկժߪUIժժ~`|psg|ppsg`ժժՂ[][]]w]]Us]]_[k{]k{U][k{w[ժժժժժժժժժժժOO`3|sa`Ogsgsg?~ժժՂժժժժժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂծժվկպվկժժժժժժժժժժժժժՂkI[]w[k][[][kUw]]k{[]I[]U[]w][ծպժժժժժժժժժժժժժժժժժժՂծժպժժժժժժժժժժժժժժժժժժՂժժժժsgppppxժժժժՂժժժժ+U*U*U~ժժժժ3fsg3|OggժժժժՂߪתկկժߪպժկժA]ժժ~`?~xsg?~xxsg`ժժՂgca]acc]AwccAawqcwqAcgwqcAժժժժժժժժժժժOO`~s``Ocsgsg?~ժժՂժժժժժժժժժժժժժժժժժժՂUBER OF THE HOMONYM THAT FITSIN EACH SENTENCE.";M" HIT RETURN TO GO ON.";V1:f255:K1:1l$DISPLAY SCORESY,3:CO,2:PC,1,19:TX,"GOAL = ":RR$(RR%):TX,RR$:TX," RIGHT IN A ROW. YOU HAVE":SY,1:PC,19,10:DI,4:SN1įCL== BUS NOW.,==== CLIMBING ON THE BUS.;I1NS:L2$(I):X3,5,2,4,5,1,4,1,5,4,2,3p$I1NS6:L3$(I):.1. EYE 2. I 3. TO 4. TWO 5. TOO,1.THERE 2.THEIR 3.THEY'RE 4.FOR 5.FOURBINSTRUCTIONS::100/21:"TYPE THE NUMժժժժժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂիվծժվկ׺վկժժժժժժիժժժժժժժժժՂw]Aacgw]Aa]gwAcc]wqgc]a]AAac]g||ծպժժժժժժժժժժժժժժժժժժՂծժպժժժժժժժժժժժժժժժժժժՂ ժժժժժժժժժժsgxxxxժժժժՂjU@||ժժժժժժժժ3fsg~OgcxժժժժՂ*]*D        !!!!!""" " " " " """"""xxp@````pX?{qyx`@@`e|p``@@ |p@a0 @@1u |~>???@`@p X@@O`?xx|x~@``p 0``ppxϼsa\}ggsƌΞxL  ժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂտժժժժվծժժժժժժժժժժժժժժժժժժՂ]]saw}]Us[]}]ww]U]{}]]c]wsawU}ծ׺ժժժժժժժժժժժժժժժժժժՂծժպժժժժժժժժժժժժժժժժժժՂU*U*U*U*U*}ժժժժsgsgsgOgsgccժժժժՂתժտ+U*U*U~ժժժժ`ccsqOccccժժժժՂߪծժկկժߪժտժߪwUժժOOgxscsgxOcccsg3fժժՂ}][k]w}]ww]]o[]{]]{w]}]{w{ժժժժժժժժժժժOgOgsgsxscsgOgsgsg?~ժժՂժժժժժժժժժժժժժժժժժժՂUժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂתժժկժվվժժժժժժժժժժժժժժժժժժՂ]U{]w}]Y{[]}]ww]Y]{}]U[]w{]wY}ծպժժժժժժժժժժժժժժժժժժՂծժպժժժժժժժժժժժժժժժժժժՂ :.:10:5:"LOADING PROGRAMS...."M (4);"BLOAD BSYM-SYMTABS"i103,1:104,92:23552,0(4);"RUN HELLOHI"( 8 URN WITHOUT A REWARDb b9bJGO BACK TO LESSONXXhbT::RE::SY,3:PC,15,10:TX,"WORKING..."sbY29000b^770,8:(13);(4);"RUNLESSONXX":bjERROR ENCOUNTEREDbt(222)25540010:CTRL-C PRESSEDb~(13);(4);"RUN HELLOHI1":DE,1,1,40,20:a CO,2Da DP,6144,K,12:I20054:SN1įTN,I,2Ja xa I120:DP,7168,K6,12:DP,7168,K6,11:a Ka& SY,1a0 CO,3:PC,5,3:TX,"WHALES HAVE":PC,5,5:TX,"A COOL LIFE."a: 21:"PRESS RETURN TO CONTINUE. ";R$aD bRET15,10:TX,"WORKING..."=`^770,8:(13);(4);"RUNLESSONXX":T`jERROR ENCOUNTEREDz`t(222)25540010:CTRL-C PRESSED`~(13);(4);"RUNHELLOHI1":D:FI:NO:DE,1,1,20,10:CO,1\PC,4,3:TX,"1 2 3 4 5 6 7"+]SY,3:CO,2:PC,5,10:TX,"SELECT I1X2X:Y2Y_X,YX2,Y2-_X2X:Y2Y4_I;_JK_ I11000:V_40010g_vN2(2RA):x_N2(6RA):_N2(6RA):_N22(4RA):_N2N1:_N23(4RA):_N22(4RA):_JGO BACK TO LESSONXX`T::RE::SY,3:PC,970^BFLIP1DT45.9+^GFLIP2DT60.97^T0:W0B^J13R^J1TT.9p^CC(7(1)1):CC41220^C1CC1220:C1CC^CC^TTDT^WT(0.0174533): DEG TO RADIANS^I1200W^X140N3(N1IN5)^Y80N4(N2IN6)_A NUMBER":PC,5,12:TX,"THEN PRESS RETURN "6]N$"7"i]ENN,N$,1,TS%,AL%:N1(N$):(N11)(N17)1045{]RA((1)1):]$N38(2(1)8)6])N48(2(1)8)6].N5(1).5:N6(1).5]8FLIP(2(1)1)^=N11910,1920,1930,1940,1950,1960,1H\ "DIFFERENT PATTERNS" PORTION OF "REWARDS" USED IN LEVEL5 DISK1AS\27902a\(::RE:v\ MAKE A PATTERN\:RE::CO,4:FI:DE,2,2,19,9:INV:FI:NO:DE,1,1,20,10:CO,1\PC,4,3:TX,"1 2 3 4 5 6 7"+]SY,3:CO,2:PC,5,10:TX,"SELECT  תծժտժկתߪw]ժժOOccsgCgccOgsgsg?~ժժՂ}]{wuwM]ww_]_{A{]A{w]s}A{w{ժժ``sgscsgsgpppxժժՂժժժժժժժժժժժժժժժժժժՂUߪվתתժժժժժժպժժծժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪժժժժվկժժժժժժժժժժժժժՂA]{uw}AM{[]}Aww]MA{}]]{]w{uswM}ծպժժժժժժժժժժժժժժժժժժՂծժժպժժժժժժժժժժժժժժժժժժՂU*U*U*U*U*}ժժժժsgsgsgOgssgժժժժՂծժժպ+U*U*U~ժժժժppscppsժժժժՂתծժկտժծժߪw]ժժOOgGqsgcgGqOgsgsg3fժժՂ}]cwaw}AwwCcgc]{]]{w]}]{wsժժOgOgsgsqsgsgOccccc?~ժժՂժժժժժժժժժժժժժժժժժժՂ::(4);"RUN HELLOHI1":N RIGHT IN A ROW. YOU HAVE":DgSY,1:PC,19,10:DI,4:SN1įCL,40ygRR$(RR):INV:I0RR:TX,RR$::NO:CL,0:DI,0gg'4,8,6gJ770,A2:::SY,3:PC,5,10:TX,"WORKING...":29000::(4);"RUN LESSONXX"hj::SY,3:PC,5,10:TX,"WORKING..."ДЀUU* UT^VWUUUjjj***  +j***UUU~++***=uu\TVVVT(*******UUUUu555****+/>|UUUUUUUu*jjz~?? X\\\xp@*******+uuuUUUUUxG~~~z8 */ FB.,(80(((U}UUQEjjk..2:Z//???y}uI]]]]___ժժꪪժЀЀՕp|Vw @`pX8,.++ (*5tUUUUU ЪՀՀՀՀժժժժ ДЀՠՕ!! ! ! ! ! !!A27904"$fI1550:II:: (PAQSE)*f>f DISPLAY SCOREfSY,1:DE,1,1,20,10:CO,2:INV:PC,4,1:TX," A E I O U ":NOfSY,3:CO,2:PC,1,19:TX,"GOAL = 6 RIGHT IN A ROW.":PC,28,19:TX,"YOU HAVE"fSY,1'gPC,19,10:DI,4:CL,40:RR$(RR):IժժժժժժժժժժsgxxxxժժժժՂjU@||ժժժժժժժժ3fsg~OgcxժժժժՂ*]*DժժժժժժժժժժժO~sgx3dsgpsgsg?~ժժՂ{ժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪիվկվվժתժժժժժժժկժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪժժկ׺ծկժժժժՂ{ծպժժժժժժժժժժժժժժժժժժՂժߪժժժժժժժժժժժժժժժժժժՂժժժժsgsgxOgp?pժժժժՂծպժժժժժժժժժժժժժժժժժժՂSN1įCL,40BhRR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,0HhhJ770,A2::SY,3:CO,2:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"hj:D$;"RUN HELLOHI1"PREFIXES IN THE BOX.";9g" HIT RETURN TO ":"GO ON. ";Bg1:Kg255SgK1Yg$mg DISPLAY SCOREgSY,3:CO,2:DE,1,1,40,20:PC,1,19:RR$(RR%):TX,"GOAL = ":TX,RR$:TX," RIGHT IN A ROW.":PC,28,19:TX,"YOU HAVE" hSY,1:PC,19,10:DI,4:תվc]ժժO~sgpfsgpsgsg?~ժժՂgcqw]cC]ccqccq]Ac]Accwg]AcqsժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂUתիվտվժתժժժժժժժծժժպժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪժժծկժժժժժժժժժժժժժՂ]]A]cg]]Aacg]ccc]]Agc]qccA]wc]gsծպժժժժժժժժժժժժժժժժժժՂߪժժժժժժժժժժժժժժժժժժժՂU*U*U*U*U*}ժժժժsgsgpOgxcժժժժՂծժպժժժժ`ժժժժՂתվw]ժժOOsgscgsgOcsgsg?~ժժՂ[]{wmw]]wwo]]{][]][w]s[][w{sժժժժժժժժ``sgsgsgsgxxxxժժՂժժժժժժժժժժժժժժժժժժՂתծտվժߪժժժժժժժվժժվժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪժժժվկժժժժժժժժժժժժժՂ]][mw[]][[][]ww]]][[]]{]w[msw][sծպժժժժժժժժժժժժժժժժժժՂծժժպժժժժժժժժժժժժժժժժժժՂU*U*U*U*U*}ժժժժsgsgscOgcgժժժժՂծժݪպժժժժOyxsgxx`ժժժժՂ