' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6렮6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`@@00  || || || ||pp  pp||  |||| || |||| || pp  LL pp || pp ppxx````````ppx| ``````@`p@@@@@@@@ppx| 888>`x<|x??||@@ pp@@00 |||| || pp@@00 || pp||@@000000pp pp pp00@@@@00@@@@||@@@@``@||@@`0 @`0 pp LLl|<""""""""""""">>><"""">""" ""  ">"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@ʊ @        NO3 CO,2:I01:PC,16I8,3:TX,W3$(2A%I):= SC%1C "^ ,NEW INCREMENT COUNTER| 6(R%W%NS%)J%J%1:330 @J1%J%:J%(NS%(1)):J%J1%320 JSC%(J%2)A% TA%J%2 ^ PRESENT QUESTION SY,3:DE,1,8,40,18:IN:FI:N NS%:# SETS OF QUESTIONSM W$(NS%1),W1$(NS%1),W2$(NS%1),W3$(NS%1)f I0NS%1:W1$(I): I0NS%1:W2$(I): I0NS%1:W$(I): I0NS%1:W3$(I): CREATE SCREEN SY,3:DE,1,1,40,5:CO,4:FI:DE,2,2,39,4:IN:FI:I,5::823=6I11000:I: PAUSE IF NO TIME USED FOR SOUNDU7PC,12,9:TX," "oRPRINT SCORE & RETURN\SY,3:DE,1,1,40,20:CO,2:NO:PC,1,19:TX,"GOAL = 6 RIGHT IN A ROW. YOU HAVE":SY,1fDI,4:SN1įCL,40gPC,19,10:A$(RR%):IN:I15:TN,255,10:A$W$(J%)hSY,1:CO,4:J110:NO:PC,4,8:TX,A$:910:IN:PC,4,8:TX,A$:910:|16368,0:R$:850 RIGHT ANSWER*R%R%1:RR%RR%1:WR%04SY,1:DE,1,1,20,9:CO,2:PC,12,9:TX,"GOOD" 5SN1āI200205:TN,";:1:255DK%1N3XGET THE ANSWERKbSY,1:CO,3:PC,4,7nvENS,N$,7,TS%,AL%:(N$)2793{(AL%0)(SN1)ĺ(7):1:630|(AL%0)(SN1)Ģ1:630A$(N$,AL%)WRONG ANSWERW%W%1:WR%WR%1:RR%0SN1āIO:CO,2:PC,1,10* A$W1$(J%)" ":TX,A$b A$"":I1(W$(J%)):A$A$"-"::SY,4:TX,A$:SY,3| A$" "W2$(J%):TX,A$  DIRECTIONS 100 :21 "TYPE THE WORD THAT FITS IN EACH SENTENCE.";:900" HIT RETURN TO GO ON.0,1910,1910 35010" A1A11* A1: RE:TS,ST%K A1NS34010\  MODULE #Nb  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.6340K ^L1(N1$):A1(769):771,L1:I1L1:771I,((N1$,I,1))::515 hSN(785):D$;"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,181"Y":PC,17,17:EN,SN$,1,T%,AL%:(SN$)27N1$(27):329U KSN$"Y"SN$"N"ī330p L785,0:SN$"Y"Ĺ785,1 NN1$(N1$,NL%):NF$"SRF-"N1$ O345 P(769)0350 TD$;"UNLOCK ";NF$:216,0 V360 Y216,0 Z(769)0Ĺ769,1 \(222)R":PC,1,3:TX,"YOUR NAME.":CL,0:SP,255> FN1$"V "| GSY,3:PC,1,14:TX,"THEN PRESS RETURN TO CONTINUE.":SY,1 HPC,5,5:EN,N1$,10,T%,AL%:NL%AL%:AL%1328 I(N1$)27ĺ(4);"RUN HELLOHI1"9 JSY,3:PC,1,17:TX,"SOUND ON? (Y,N) ":SN$ @@@@  33_[[[[ [[XXxpmm--=8 0`@`0 @`0 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0`@  8ff~~8 @`0@@""""""> >````````````````3fL3fMfL3fL33fL3fLfL3fL3""""""< >> ""*: <"">""""""""""""">>><"""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6" 00@@@@@@@@||@@00 ||>>* (*""  *$**> "2*&" " >>  ">> "8""> pp  LL pp|| ||LL pp pp pp||@@@@@@@@@@@@  pp  00@@ LLLL<<  00@@00 pp@@@@@@@@@@pp pp LL< CO,2:I02:PC,12I5,3:TX,W3$(3A%I):H SC%1N "i ,NEW INCREMENT COUNTER 6(R%W%NS%)J%J%1:330 @J1%J%:J%(NS%(1)):J%J1%320 JSC%(J%3)A% TA%J%3 ^ PRESENT QUESTION SY,3:DE,1,8,40,18(13)(4)( NS%:# SETS OF QUESTIONSX W$(NS%1),W1$(NS%1),W2$(NS%1),W3$(NS%1)q I0NS%1:W1$(I): I0NS%1:W2$(I): I0NS%1:W$(I): I0NS%1:W3$(I): CREATE SCREEN CO,4:SY,3:DE,1,1,40,5:FI:DE,2,2,39ELP,HELPFUL,REST,RESTFULCT OF SENTENCE.,THAT YOU WILL VISIT ME.,AND DRY THOSE DISHES.,TO GET A BIG JOB DONE.,PLACE TO BE.,BEFORE I FINISH MY HIKE. CORRECT ANSWERSHOPE,HOPEFUL,HELPFUL,HELP,RESTFUL,REST WORDS TO GO IN BOXHOPE,HOPEFUL,H0RR%:TX,A$::NO:DI,0:CL,01pRR%6A2%7CzWR%5A2%5J1PV\h6:NS%q FIRST PART OF SENTENCEYOU SHOULD ALWAYS HAVE,I AM,PLEASE BE,WE ALL NEED,THIS QUIET FOREST IS A,I WILL TAKE A LAST PAR200105:TN,I,10:( J12000:JJ:. S COMPLETED SUBPROGRAM XX/2 z :RE:CO,4:FI:CO,3:SN1įCL,40 SP,200:PC,7,5:TX,"GOOD":SP,255& J13:I2002010:SN1įTN,I,50 :5 I13000:II:: D COMPLETED SU":51000    ! [ vA13000,3080,3140,3200,3240,3300,3380,3440,3600,3680d 510 COMPLETED SUBPROGRAM XX/1 :RE:SN1įCL,40 SP,240:I04:FI:CO,(I1):PC,7,5:TX,"VERY GOOD!": SP,255 SN0ī3060 I@`px8p`@@@p88p`````````ppxx@`p`?|~````````pp`|~p@?````````|`x@?@````pp樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶NO PROGRAM IN MEMORYNO LINES IN RANGEIBCՆ>ֆ?sֆ?sֆ?sdDdJdbd6:NUMBER OF WORDSkd udWORDdSICKER,MILDEST,COLDEST,HIGHER,NEATER,FULLESTd dANSWERSdER,EST,EST,ER,ER,ESTfINCREMENT COUNTER ]SC%İ200:CR05:SN1įTN,I,5:+c6SN1āI1950:ICc7PC,12,9:TX," "]cRPRINT SCORE & RETURNc\SY,3:DE,1,1,40,20:CO,2:NO:PC,1,19:TX,"GOAL = 6 RIGHT IN A ROW. YOU HAVE":SY,1cfDI,4:SN1įCL,40 dgPC,19,10:A$(RR%):IN:I0RR%:TX,A$::N:bA$W$(J%)\bJ110:NO:PC,11A%5,14:TX,A$:910:IN:PC,11A%5,14:TX,A$:910:pb16368,0:R$:b(R$)13799b736b850b RIGHT ANSWERb*R%R%1:RR%RR%1:WR%0b4SY,1:DE,1,1,20,9:CO,2:PC,12,9:TX,"GOOD"c5I2002;$a:"HIT RETURN TO GO ON.":1:-a2556aDK%1 :RE:CO,4:FI:CO,3:SN1įCL,TX,"HAVE SOME CANDY.":(4);"BLOAD I.PEPPERMINT,A6144":DP,6144,14,3:I13000:W { COMPLETED SUBPROGRAM XX/5  :RE:SN1įCL,40 SP,255:I117:J110:PC,I,J:TX,"GOOD":SN1įTN,I,5 : I13000:II:  COMPLBPROGRAM XX/3 5N :RE:CO,4:FI:CO,3:SN1įCL,40^X SP,200:PC,7,5:TX,"SUPER!":SP,255b J13:I2002010:SN1įTN,I,5l :q I13000:II:v  COMPLETED SUBPROGRAM XX/4  :RE:PC,1,7Q TX,"VERY GOOD WORK.":PC,1,9:1u`````~?@`|x`````````@x~p|?  ժժվիժժ lPC,10,50 vENS,N$,9,TS%,AL%:(N$)2793K {(AL%0)ĺ(7):1:620\ A$(N$,AL%)b t WRONG ANSWER W%W%1:WR%WR%1:RR%0 I15:SN1įTN,255,10: A$W2$(J%)CO,4:J110:NO:PC,10,6:TX,A$:910:IN:PC,10,6:TX,A$:91(1) TX,W1$(J%) + DIRECTIONS: :21:100 "TYPE EACH WORD IN SYLLABLES. TYPE A SLASH / BETWEEN SYLLABLES. IF YOU SEE AWORD LIKE UNTIE, YOU TYPE UN/TIE."; :"HIT RETURN TO GO ON.";:1: D255:K%1 N XGET THE ANSWER(NS%1),W2$(NS%1)+ I0NS%1:W1$(I):D I0NS%1:W2$(I):J e ,NEW INCREMENT COUNTER 6(R%W%NS%)J%J%1:330 @J1%J%:J%(NS%(1)):J%J1%320 J: ^ PRESENT QUESTION SY,1:DE,1,1,20,9:IN:FI:NO PC,1,5:CO,571):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$S nST%3:SUPERTALKER SLOTi s::RE:TS,ST%: xN$" ":TS%0:AL%0 }R%0:RR%0:W%0:WR%0 K%0:J%1:J1%0 A2%0:SC%0 D$(13)(4) NS%:# SETS OF QUESTIONS W1$NS 3SN(785)) <600:GET THE ANSWERY F(A$W2$(J%))1700,800:WRONG/RIGHT ANSWERu PA2%20:NEXT QUESTION Z770,A2%:D$"RUN LESSONXX":DONE ]769,19:D$;"BSAVE ";NF$;",A768,L127":: _(13);(4)"RUN HELLO": dINIT VAR'S7 iL1(7 9527902K SUBPROGRAM XX/19 GRADE 3 REVIEW SYLLABLES PG 39VERSION 1 DONE BY M.D.FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. 100:INIT VAR'S300:INCREMENT COUNTER(400:PRESENT QUESTION 2K%İ500:DIRECTIOHOUSE,UNLOCK,TEACHER *ANSWERSjRE/MAKE,BACK/YARD,SLOW/LY,IN/TO,DOG/HOUSE,UN/LOCK,TEACH/ER/ YOU HAVE":SY,1]fDI,4:CL,40:PC,19,10:A$(RR%):IN:I0RR%:TX,A$::NO:DI,0:CL,0opRR%6A2%7zWR%2K%0:WR%5A2%51 7:NUMBER OF WORDS WORDSREMAKE,BACKYARD,SLOWLY,INTO,DOG68,0:R$:850% RIGHT ANSWERA*R%R%1:RR%RR%1:WR%04SY,1:DE,1,1,20,9:CO,2:PC,12,9:TX,"GOOD":I200205:TN,I,5::PC,12,9:TX," "RPRINT SCORE & RETURN\SY,3:DE,1,1,40,20:CO,2:NO:PC,1,19:TX,"GOAL = 6 RIGHT IN A ROW.C,10,5) vENS,N$,9,TS%,AL%:(N$)2793D {(AL%0)ĺ(7):1:620U A$(N$,AL%)[ m WRONG ANSWER W%W%1:WR%WR%1:RR%0 I15:TN,255,10: A$W2$(J%) CO,4:J110:NO:PC,10,6:TX,A$:910:IN:PC,10,6:TX,A$:910: 163 TX,W1$(J%) $ DIRECTIONS3 :21:100 "TYPE EACH WORD IN SYLLABLES. TYPE A SLASH / BETWEEN SYLLABLES. IF YOU SEE AWORD LIKE UNTIE, YOU TYPE UN/TIE."; :"HIT RETURN TO GO ON.";:1: D255:K%1 N XGET THE ANSWER lP,W2$(NS%1)$ I0NS%1:W1$(I):= I0NS%1:W2$(I):C ^ ,NEW INCREMENT COUNTER| 6(R%W%NS%)J%J%1:330 @J1%J%:J%(NS%(1)):J%J1%320 J: ^ PRESENT QUESTION SY,1:DE,1,1,20,9:IN:FI:NO PC,1,5:CO,5(1)"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$L nST%3:SUPERTALKER SLOTb s::RE:TS,ST%: xN$" ":TS%0:AL%0 }R%0:RR%0:W%0:WR%0 K%0:J%1:J1%0 A2%0:SC%0 D$(13)(4) NS%:# SETS OF QUESTIONS W1$(NS%1)תծժկտժծժߪw]ժժOOgGqsgcgGqOgsgsg3fժժՂ}]cwaw}AwwCcgc]{]]{w]}]{wsժժOgOgsgsqsgsgOccccc?~ժժՂժժժժժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂտժժժժվծժժժժժժժժժժժժժժժժժժՂ]]saw}]Us[]}]ww]U]{}]]c]wsawU}ծ׺ժժժժժժժժժժժժժժժժժժՂծժպժժժժժժժժժժժժժժժժժժՂ  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=\ LESSONXX\390765\(4);"RUN LESSONXX1";\( L "PAINTING"ddd%d1003dJ3770d21:"READ EACH WORD. ADD ING TO EACH ROOT":"WORD. TYPE THE NEW WORD.";d840dJ2780d21:"READ EACH WORD. ADD ED TO EACH ROOT":"WORD. TYPE THE NEW WORD.";d255d8401e"cXW$(2)"HOP"$c^L$(2)"HOPPED"5cbW$(3)"GRIN"IchL$(3)"GRINNED"ZclW$(4)"STEP"ncrL$(4)"STEPPED"tctcvW$(1)"SHOP"c|L$(1)"SHOPPING"cW$(2)"RUN"cL$(2)"RUNNING"cW$(3)"JUMP"cL$(3)"JUMPING"cW$(4)"PAINT" dL$(4)B 750:X = 0: GOTO 1102bNN1:N4N0:X0:130;b230Db950Xb&W$(1)"SKIPPED"ib,L$(1)"SKIP"|b0W$(2)"HUGGED"b6L$(2)"HUG"b:W$(3)"SPINNING"b@L$(3)"SPIN"bDW$(4)"STOPPING"bJL$(4)"STOP"bLbNW$(1)"HUG"cTL$(1)"HUGGEDNG ANSWER-aPC,5,8:TX,L1$:16368,0:R$:6a450WaI1950:II::: (PAUSE)ea SCORINGaL$L1$RR1:RRRR1:WR0aL$L1$WW1:WRWR1:RR0a900a(RRRR%)A27:950a(WR5)(W18)A25:950b IF WR > 2 THEN GOSUSP IS S/P #-`D$;"BSAVE ";NF$;",A768,L127"O`::"BYE":D$;"RUN HELLOHI1"``L$L1$420`PC,12,9:TX," ":PC,12,9:TX,"GOOD"`SN1āI200205:TN,I,5:`SN1āI1950:II:`430 aI15:SN1įTN,255,10:: TONE FOR WRODE,1,4,20,9:INV:FI:NO:DE,1,1,20,106_SY,1:CO,4B_"PC,5,5P_8TX,W$(X)^_JL1$L$(X)r_hL$" "|_mFL10_oPC,5,7:CO,3_rENS,L$,FL,TL%,AL%_tAL%0L$"":409_wL$(L$,AL%)_DI,0:900_(L$)27409 `769,SP:: ^xSY,3:!^}RN0JJ1:140>^J(NS(1)1):JJ1130G^J1JV^JNSRN1`^NO:s^J550,590,630|^900^750^SP,255^ ^230^I1950:II::: PAUSE^ QUESTIONS AND ANSWERS^XX1^SY,3:CO,2&_SY,1:ON 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982g]3SN(785)o]<:]FL1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$]PD$(4)]URN0:J0]ZW$(6),L$(6),IX$(3)]dWR0^nR0:RR0:X0:N0 \ 27902%\ST%3:RESET:TS,ST%/\960\( SP = SUBPROGRAM NUMBER - RR% = RIGHT IN A ROW GOAL - NS = NUMBER OF SENTENCES\)SP9:RR%6:NS3\* GRADE 3\, DOUBLE CONSONANT BEFORE ENDING\. BILL WAGNER\0 4-10-82Y]2 VERSI769,A1:770,A2::(4);"BSAVE ";NF$;",A768,L127":Oj:(4)$;" RUN HELLOHI1"lj:(4)$;" RUN HELLOHI1"RE:TX,"DISK FULL":PC,1,5:MT,15:EN,N1$,10,T%:lRE:TX,"DISK FULL":PC,1,5:MT,15:EN,N1$,10,T%:J769,A1:SP$""510J769,A1:SP$""510OD$;"RUN ";SP$OD$;"RUN ";SP$8ǹ769,A1:770,A2::(4);"BSAVE ";NF$;",A768,L127":28ǹPC,1,5:MT,15:EN,N1$,10,T%:unJ769,A1:SP$""510nOD$;"RUN ";SP$n8ǹ769,A1:770,A2::(4);"BSAVE ";NF$;",A768,L127":nj:(4)$;" RUN HELLOHI1"LOHI1"̈(4);"RUN HELLOHI1"ꈭ(222)9Ĺ216,0:35015ꈭ(222)9Ĺ216,0:350155ijRLgh #Lѥȥ ݠ8埅ȱ堅壅夅 ȪeȩeˠgLgh8 Ȫ󄫠 #eHI " bveȪi LT >ȥ Ȫ͆0 ҅ >&eee膝JJJJ)ŝƝ 0ȵƞढ़0 ,LƂLڂiiij8st PICK UP ACTUAL S/P # BASED ON MENU CHOICEQa&769,SP: POKE SUB-PROGRAM NUMBERja0(4);"RUN LESSONXX"pa:aD:RE:SY,3aNPC,10,10:TX,"INSERT THE NEXT DISK."aXPC,8,12:TX,"PRESS RETURN TO CONTINUE."ab16368,0:R$:bl(4);"RUN HELLOFL4`L$" "'`EN,L$,FL,T%,A%9`(L$)27580p`A%0560: IF ONLY CR THEN GOTO LESSONXX FOR SRF`SP(L$): SP=SUB-PROGRAM NUMBER`SP1360: INVALID CHOICE`SPNL1580: STOP`SPNL360: INVALID CHOICE +aSPNN(SP):1NL"_PC,3,(LSI3):TX,LN$(I)(_<_PC,3,(LSNL4)L_ST$(NL1)n_TX,ST$:TX,". --- STOP ---"_PC,1,(LSNL6):TX,"PLEASE TYPE A LESSON NUMBER, OR"_PC,1,(LSNL7):TX,"HIT RETURN TO START WHERE YOU LEFT OFF."_PC,1,LSNL8`SUFFIXES"$^LN$(2)"2. ROOT WORDS"?^J ********************]^T THIS CODE DISPLAYS MENUe^^:s^hRE:SY,3}^iCO,4^jDE,1,LS1,39,LSNL5:FI^kDE,2,LS2,38,LSNL4:INV:FI:NO^lCO,2^mDE,1,1,40,20^rPC,3,LS2:TX,LN$(0)_|I HOLDS MENU TEXTV]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)9]LN$(0)"STRUCTURAL SKILLS - BEGINNING LEVELS" ^LN$(1)"1. 2 \39076!\d HELLO PROGRAMl\i PACKAGE 2 / DISK 2 / SIDE 1 - STRUCTURAL SKILLS- BEGINNING LEVELSv\n120\x768,0:769,0\ ********************\NSP10: NSP=# OF SUBPROGRAMS\NL2: NL=# OF LINES IN THE MENU]LN$(NL):        ""SEBALL,FLYING,PLAYPEN,INSIDE,RICHEST,CAREFUL,UNCLEAR= JANSWERSBASE/BALL,FLY/ING,PLAY/PEN,IN/SIDE,RICH/EST,CARE/FUL,UN/CLEARR= 6 RIGHT IN A ROW. YOU HAVE":SY,1<fDI,4:SN1įCL,40zgPC,19,10:A$(RR%):IN:I0RR%:TX,A$::NO:DI,0:CL,0pRR%6A2%7zWR%2K%0:WR%5A2%51 7:NUMBER OF WORDS WORDS4BA0:16368,0:R$: 8502 RIGHT ANSWERN*R%R%1:RR%RR%1:WR%04SY,1:DE,1,1,20,9:CO,2:PC,12,9:TX,"GOOD":I200205:SN1įTN,I,5::PC,12,9:TX," "RPRINT SCORE & RETURN%\SY,3:DE,1,1,40,20:CO,2:NO:PC,1,19:TX,"GOAL ``x```?``XL9X@ eXL9XL9XcWdWxW|W_40eWLZ PW YeWLZcWdW eXL9X T eX T e???33~>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@@@@@@@@"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.FNUE 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)002 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,5W8eXTTT`QW eXL9X3W eXRWSWL9X3W RWSWL9X4W eXTWUWL9X4W TWUWL9X5W eXVWWWL9X5W VWWWL9XhWWWɗ eXhW eXL9X eXL[ eXL9X eX(W eXL9X(WcW eXdW eXeW eXfW eXgWcHING": '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 ' 21:"READ EACH WORD. THEN TYPE THE ROOT WORD."8eH1`eM24:1:"HIT RETURN TO GO ON";:1:heRK1qeS255wef:}epez DISPLAY SCOREeSY,1:DE,1,1,20,10eCO,2eSY,3:PC,1,19:TX,"GOAL = "eRR$(RR%):TX,RR$fTX," RIGHT IN AeRK1eS255ef:ep0ez DISPLAY SCOREHeSY,1:DE,1,1,20,10ReCO,2seSY,3:PC,1,19:TX,"GOAL = "eRR$(RR%):TX,RR$eTX," RIGHT IN A ROW."ePC,28,19:TX,"YOU HAVE"eSY,1ePC,19,10:DI,4:SN1įCL,40#fRR$(RR):INVOOT":"WORD. TYPE THE NEW WORD.";+d8409dJ2780d21:"READ EACH WORD. ADD ED TO EACH ROOT":"WORD. TYPE THE NEW WORD.";d255d840d 21:"READ EACH WORD. THEN TYPE THE ROOT WORD."dH1dM24:1:"HIT RETURN TO GO ON.";:1:(2)"STARTED":L$(3)"RAKED":L$(4)"WAITED"0cthcvW$(1)"TIME":W$(2)"CARE":W$(3)"RATE":W$(4)"LIVE"cL$(1)"TIMING":L$(2)"CARING":L$(3)"RATING":L$(4)"LIVING"cccc100cJ3770"d21:"READ EACH WORD. ADD ING TO EACH RO 110"bNN1:N4N0:X0:130+b2304b950sb&W$(1)"LOVING":W$(2)"DANCING":W$(3)"BAKED":W$(4)"HOPED"b0L$(1)"LOVE":L$(2)"DANCE":L$(3)"BAKE":L$(4)"HOPE"bLbNW$(1)"LOVE":W$(2)"START":W$(3)"RAKE":W$(4)"WAIT"*cXL$(1)"LOVED":L$#aPC,5,8:TX,L1$:16368,0:R$:,a450?aJ1950:JJ:EaSa SCORINGraL$L1$RR1:RRRR1:WR0aL$L1$WW1:WRWR1:RR0a900a(RRRR%)A27:950a(WR5)(W18)A25:950b IF WR > 2 THEN GOSUB 750:X = 0: GOT #$`D$;"BSAVE ";NF$;",A768,L127"F`::"BYE":D$;"RUN HELLOHI1"W`L$L1$420`PC,12,9:TX," ":PC,12,9:TX,"GOOD"`SN1āI200205:TN,I,5:`SN1āI1950:II:`430`I15:SN1įTN,255,10:: TONE FOR WRONG ANSWER0,9:INV:FI:NO:DE,1,1,20,10._SY,1:CO,4:_"PC,5,5H_8TX,W$(X)V_JL1$L$(X)j_hL$" "t_mFL10_oPC,5,7:CO,3_rENS,L$,FL,TL%,AL%_tAL%0L$"":409_wL$(L$,AL%)_DI,0:900_(L$)27409`769,SP:: SP IS S/PLLO" 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]2,3:^}RN0JJ1:1406^J(NS(1)1):JJ1130?^J1JN^JNSRN1X^NO:k^J550,590,630t^900}^750^SP,255^ ^230^I1400:II::: PAUSE^ QUESTIONS AND ANSWERS^XX1^SY,3:CO,2_SY,1:DE,1,4,2NE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982_]3SN(785)g]<:]FL1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$]PD$(4)]URN0:J0]ZW$(6),L$(6),IX$(3)]dWR0]nR0:RR0:X0:N0^xSY ROW."#fPC,28,19:TX,"YOU HAVE"-fSY,1NfPC,19,10:DI,4:SN1įCL,40fRR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,0ff770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"f:(4);"RUN HELLOHI1"O-10-82Y]2 VERSIET 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 WITU*U*U*U*U*}ժժժժsgsgsgOgsg~ժժժժՂתժտ+U*U*U~ժժժժ`ccsqOccc?~ժժժժՂߪծժկկժߪժտժߪwUժժOOgxscsgxOcccsg3fժժՂ}][k]w}]ww]]o[]{]]{w]}]{w{ժժժժժժժժժժժOgOgsgsxscsgOgsgsg?~ժժՂժժժժժժժժժժժժժժժժժժՂUժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂתժժկժվվժժժժժժժժժժժժժժժժժժՂ]U{]w}]Y{[]}]ww]Y]{}]U[]w{]wY}ծպժժժժժժժժժժժժժժժժժժՂծժպժժժժժժժժժժժժժժժժժժՂժժժժsgccscOccc~ժժժժՂժ+U*U*U~ժժժժ3fsgsxOgsg?~ժժժժՂߪծժկկժߪպժկժߪUIժժ~`|psg|ppsg`ժժՂ[][]]w]]Us]]_[k{]k{U][k{w[ժժժժժժժժժժժOO`3|sa`Ogsgsg?~ժժՂժժժժժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂծժվկպվկժժժժժժժժժժժժժՂkI[]w[k][[][kUw]]k{[]I[]U[]w][ծպժժժժժժժժժժժժժժժժժժՂծժպժժժժժժժժժժժժժժժժժժՂժժժժsgpppp~ժժժժՂժժժժ+U*U*U~ժժժժ3fsg3|Ogg?~ժժժժՂߪתկկժߪպժկժA]ժժ~`?~xsg?~xxsg`ժժՂgca]acc]AwccAawqcwqAcgwqcAժժժժժժժժժժժOO`~s``Ocsgsg?~ժժՂժժժժժժժժժժժժժժժժժժՂUժժժժժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂիվծժվկ׺վկժժժժժժիժժժժժժժժժՂw]Aacgw]Aa]gwAcc]wqgc]a]AAac]g||ծպժժժժժժժժժժժժժժժժժժՂծժպժժժժժժժժժժժժժժժժժժՂ ժժժժժժժժժժsgxxxx?~ժժժժՂjU@||ժժժժժժժժ3fsg~Ogc?~ժժժժՂ*]*D                 :JJ0RR:TX,RR$::NO:CL,0:DI,0)flf770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"f:(4);"RUN HELLOHI1"SP10:RR%6:NS3\* GRADE 3\, DROP FINAL E BEFORE ENDING\. BILL WAGNER\0 4-10-82Q]2 VERSION 1 DOT BELONGS IN THE SENTENCE. HIT RETURN TO GO ON.";:900@b255IbDK%1ObNcbXGET THE ANSWERbbSY,3:CO,2:PC,2(W1$(J%)),15bvENS,N$,8,TS%,AL%:(N$)2793b{(AL%0)(SN1)ĺ(7):1:630b|(AL%0)(SN1)Ģ1:630bA$(N$,AL%)cION7aSY,3:DE,1,13,40,18:IN:FI:NO:CO,2:PC,1,15QaA$W1$(J%)" ":TX,A$aTU,1:A$(95):I1(W$(J%)):TX,A$::TU,0aA$" "W2$(J%):TX,A$aaDIRECTIONSa100a:217b"EACH WORD HAS THE SUFFIX Y OR LY. TYPE THE WORD THA11:FI:DE,25,2,35,10:IN:FI:NO:CO,2K`I03:PC,7,2I3:TX,W3$(I):r`I03:PC,26,2I3:TX,W3$(4I):|`SC%1`"`,NEW INCREMENT COUNTER`6(R%W%NS%)J%J%1:330`@J1%J%:J%(NS%(1)):J%J1%320`J:`^aPRESENT QUESTQUESTIONS5_W$(NS%1),W1$(NS%1),W2$(NS%1),W3$(8)N_I0NS%1:W1$(I):g_I0NS%1:W2$(I):|_I07:W3$(I):_I0NS%1:W$(I):__CREATE SCREEN_CO,4:SY,3:DE,5,1,17,11:FI:DE,6,2,16,10:IN:FI:NO'`SY,3:DE,24,1,36,INIT VAR'S&^eSN(785): SOUND FLAGh^iL1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$v^s::RE:^xN$" ":TS%0:AL%0^}R%0:RR%0:W%0:WR%0^K%0:J%1:J1%0^A2%0:SC%0:A%1^D$(13)(4) _NS%:# SETS OF ECTIONS ]<600:GET THE ANSWERO]F(A$W$(J%))1700,800:WRONG/RIGHT ANSWERk]PA2%20:NEXT QUESTION]Z770,A2%:D$"RUN LESSONXX":DONE]]769,1:D$;"BSAVE ";NF$;",A768,L127":RE:PC,9,5:TX,"BYE":I15000:]_(13);(4)"RUN HELLOHI1": ^d \27902\952\ SUB XX/4 LEVEL 2 PG 51\VERSION 1 DONE BY M.D.FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC.\ 100:INIT VAR'S\300:INCREMENT COUNTER\SC%İ200:CREATE SCREEN\(400:PRESENT QUESTION]2K%İ500:DIR"GET HELP IF YOU NEED IT.":PC,12,9:TX,"THEN COME BACK.":35010F`L`S` Z` `v:RESET:TS,3:CO,1:FI:PC,5,3:CO,3:TX,"WONDERFUL!":PC,5,5:TX," ":TX,N1$:TX,"!!!":I200205:TN,I,20::I12000:II:` `510a MODULE #2WWWWW (((x|~~z@PPPTTWWzzzzzz:@PPPP@***** @@@pxx|zzzzWWWWW @PPPPPPPzzzz: @1uC pXj@`hhjj^_______****jjzz?@@PPPTVWjjjjjj* _~xxxxx8(??????@@`px|zzzW> \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$"NAMELESS.."<   ѪըՀըcM``/`cWRONG ANSWER.cW%W%1:WR%WR%1:RR%0LcSN1āI15:TN,255,10:ZcA$W$(J%)cSY,3:IN:PC,2(W1$(J%)),17:TX,A$:16368,0:R$:(R$)13įPC,2(W1$(J%)),17:NO:TX," ":799c730c850c RIGHT ANSWERd*R%R%1:RR%RR%1:1$,10,T%:"fJ769,A1:SP$""5105fOD$;"RUN ";SP$Kfj:D$;"RUN HELLO"Rq\x::D$(4)::RESET:TS,ST%\} ** 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)34517e׆(4);"RUNHELLO":8e؆:::D$;"RUN HELLO"Teˆ769,A1:770,A2:35050eLj:D$;"BSAVE ";NF$;",A768,L127":::5:8:"BYE":I1500:II::eȈë(4);"RUN HELLO"eꈭ(222)9Ĺ216,0:35015 fRE:TX,"DISK FULL":PC,1,5:MT,15:EN,N70,50:TN,57,50:TN,70,50:TN,96,2558d鄁I11000:II:d턯RE::CO,2:SY,3:PC,8,8:TX,"YOU'VE FINISHED SIDE A.":PC,8,10:TX,"TURN THE DISK OVER.":PC,8,12:TX,"PRESS RETURN TO CONTINUE"dΆ34520dӆ34517dԆ:D$;"DELETE";NF$eՆA$:A$(13OME BACK.":35010ccF&c510,c }2c}=c}34510CcIcTc34510^cڄ::cބRE:(4);"BLOAD I.BUS,A6144"cCO,4:PC,4,3:TX,"YOU WERE GREAT!"cᄯCO,2cℯDP,6144,15,13$d䄯TN,96,50:TN,96,50:TN,57,50:TN,57,50:TN,70,50:TN,,70,50:TN,57,50:TN,48,50:TN,57,50:TN,48,200:Dbh I11000:II:Mb 510]b MODULE #3~b SP$"SUBPROGRAM XX/3":40010b A232010,33010,34010,35010,3710,3810,3910c~SP$"":RE:SY,3:PC,7,5:TX,"MAYBE YOU SHOULD GET HELP.":PC,12,7:TX,"THEN Ca MODULE #2a7a SP$"SUBPROGRAM XX/2":40010fa A232010,33010,34010,35010,2710,2810,2910a SP$"":RE:SY,3:PC,5,10:TX,"STOP AND REST. THEN COME BACK.":35010a a a a^ RE:PC,1,5:TX,"YOU ARE DOING WELL!":0bc TN,96,50:TNT.":PC,8,7:TX,"GET HELP IF YOU NEED IT.":PC,12,9:TX,"THEN COME BACK.":35010V`\`c` j` `v:RESET:TS,3:CO,1:FI:PC,5,3:CO,3:TX,"WONDERFUL!":PC,5,5:TX," ":TX,N1$:TX,"!!!":I200205:TN,I,20::I12000:II:` a5103520: ,...,30520_35010(_A1A11;_:RESET:TS,3__A11010,2010,3010: ,...,30010j_ 34010z_ MODULE #1__SP$"SUBPROGRAM XX/1":40010_A232010,33010,34010,35010,1710,1810,1910P`SP$"":RE:SY,3:PC,13,5:TX,"STOP AND RES ^V360^Y216,0'^\(222)6340s^^A1(769):L1(N1$):769,A1:771,L1:I1L1:771I,((N1$,I,1))::515^hD$;"BLOAD ";NF$:A1(769):515^A1(769):A2(770):L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$_A11520,2520,:SP,255]FN1$"NAMELESS.."[]HSY,3:PC,1,18:TX,"THEN PRESS RETURN TO CONTINUE.":SY,1]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,0M \27902\60010'\ LESSONXX1\nST%3P\sNS3: NO. OF SUBPROGRAMSq\x::D$(4)::RESET:TS,ST%\} ** 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   _~|p🏏|x'''@۳`ӳ1u @@󀂊~x`TIFFSWR%06d4SY,1:DE,1,1,20,9:CO,2:PC,12,9:TX,"GOOD"]d5SN1āI200205:TN,I,5:I:823d6I11000:I: PAUSE IF NO TIME USED FOR MAKING SOUNDd7PC,12,9:TX," "dRPRINT SCORE & RETURN%e\SY,3:DE,1,1,40,20:CO,2:NO:PC,1,19:TX,"GOAL gӆhԆsՆtֆstsưƯsgůh.HENSION & STUDY SKILLSU\n120g\x768,0:769,0\ ********************\NSP12: NSP=# OF SUBPROGRAMS \NL11: NL=# OF LINES IN THE MENU \LN$(NL): HOLDS MENU TEXT8]NN(NL)ӆ ԆLsůtRLgӆhԆsՆtֆstsưƯsgůh@sgůhhӆhԆsՆtֆstsưƯsgůh4Ȫ󄫠 #eȩeѩLl` - H Lӆ ԆLsůtRLLѥȥ ݠ8埅ȱ堅壅夅 ȪeȩeˠgLgh8 Ȫ󄫠 #eȩeѩLl` - H L >ȥ Ȫ͆0 ҅ >&eee膝JJJJ)ŝƝ 0ȵƞढ़0 ,LƂLڂiiij8stijRLgh #ESS RETURN TO CONTINUE.""b]R$:8bb(4);"RUN HELLO">blELLO"alߥ ,LLtRL LƞƠeEgiEh8iejegeheeȪi LTNL1580: STOP5aSPNL360: INVALID CHOICE oaSPNN(SP): PICK UP ACTUAL S/P # BASED ON MENU CHOICEa&769,SP: POKE SUB-PROGRAM NUMBERa0(4);"RUN LESSONXX"a:aD:RE:SY,3aNPC,4,10:TX,"TURN THE DISK OVER."bXPC,4,12:TX,"PR:TX,"HIT RETURN TO START WHERE YOU LEFT OFF."@`PC,1,LSNL8I`FL4W`L$" "k`EN,L$,FL,T%,A%}`(L$)27580`A%0560: IF ONLY CR THEN GOTO LESSONXX FOR SRF`SP(L$): SP=SUB-PROGRAM NUMBER`SP1360: INVALID CHOICEaSPFI:NO_lCO,2"_mDE,1,1,40,20<_rPC,3,LS2:TX,LN$(0)H_|I1NLf_PC,3,(LSI3):TX,LN$(I)l__PC,3,(LSNL4)_ST$(NL1)_TX,ST$:TX,". --- STOP ---"_PC,1,(LSNL6):TX,"PLEASE TYPE A LESSON NUMBER, OR".`PC,1,(LSNL7)NANTS - B"9^LN$(2)"2. INITIAL & FINAL CONSONANTS - D"h^LN$(3)"3. INITIAL & FINAL CONSONANTS - F"^J ********************^T THIS CODE DISPLAYS MENU^^:^hRE:SY,3^iCO,4^jDE,1,LS1,39,LSNL5:FI_kDE,2,LS2,38,LSNL4:INV: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)2]NN(3)3]LN$(0)"WORD ANALYSIS - LEVEL 2" ^LN$(1)"1. INITIAL & FINAL CONSOR \39076!\d HELLO PROGRAMY\i DISK 3 / SIDE A - REV. INITIAL & FINAL CONSONANTc\n120u\x768,0:769,0\ ********************\NSP3: NSP=#OF SUBPROGRAMS\NL3: NL=# OF LINES IN THE MENU\LN$(NL): HOLDS MENU TEXTA]   꿫ժ꾫ꪪݪժݪꞃ1u ׀రתꪪ꺀쬬պꮯիվ𨨨ժ z#p ͠د ͠د  ͠د ͠د ͠د ͠د ͠د ɮϠ͠د  ɮҠƭ٠ƭԠ͠د" ͠د ͠د ͠د   ͠د ƭʠɮҠɮˠɮ̠ƭ֠ ͠د  ͠د ͠د ͠د ͠د ͠د ͠د Š" и ͭӠ ɮϠƭ͠ɮԠ ͠د ͠د Ϡ ؠ ɱر!ɮǠ ɠ  ƠҠ = 6 RIGHT IN A ROW. YOU HAVE":SY,1]<600:GET THE ANSWERm]F(A$W$(J%))1700,800:WRONG/RIGHT ANSWER]PA2%20:NEXT QUESTION]Z770,A2%:D$"RUN LESSONXX":DONE]]769,3:D$;"BSAVE ";NF$;",A768,L127"::]_(13);(4)"RUN HELLOHI1": ^d# \95\27902+\ SUBPROGRAM XX/9P\ GRADE-3 NEW SUFFIX FUL PG 33\VERSION 1 DONE BY M.D.FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC.\ 100:INIT VAR'S\300:INCREMENT COUNTER\SC%İ200:CREATE SCREEN ](400:PRESE  תվc]ժժO~sgpfsgpsgsg?~ժժՂgcqw]cC]ccqccq]Ac]Accwg]AcqsժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂUתիվտվժתժժժժժժժծժժպժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪժժծկժժժժժժժժժժժժժՂ]]A]cg]]Aacg]ccc]]Agc]qccA]wc]gsծպժժժժժժժժժժժժժժժժժժՂߪժժժժժժժժժժժժժժժժժժժՂU*U*U*U*U*}ժժժժsgsgpOgx?~ժժժժՂծժպժժժժժժժժՂתվw]ժժOOsgscgsgOcsgsg?~ժժՂ[]{wmw]]wwo]]{][]][w]s[][w{sժժժժժժժժ``sgsgsgsgxxxxժժՂժժժժժժժժժժժժժժժժժժՂתծտվժߪժժժժժժժվժժվժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪժժժվկժժժժժժժժժժժժժՂ]][mw[]][[][]ww]]][[]]{]w[msw][sծպժժժժժժժժժժժժժժժժժժՂծժժպժժժժժժժժժժժժժժժժժժՂU*U*U*U*U*}ժժժժsgsgscOgc?~ժժժժՂծժݪպժժժժOyxsgxxxժժժժՂתծժտժկתߪw]ժժOOccsgCgccOgsgsg?~ժժՂ}]{wuwM]ww_]_{A{]A{w]s}A{w{ժժ``sgscsgsgpppxժժՂժժժժժժժժժժժժժժժժժժՂUߪվתתժժժժժժպժժծժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪժժժժվկժժժժժժժժժժժժժՂA]{uw}AM{[]}Aww]MA{}]]{]w{uswM}ծպժժժժժժժժժժժժժժժժժժՂծժժպժժժժժժժժժժժժժժժժժժՂU*U*U*U*U*}ժժժժsgsgsgOgs?~ժժժժՂծժժպ+U*U*U~ժժժժppscppxժժժժՂ13);(4)"RUN HELLOHI1":,^dINIT VARIABLESG^eSN(785): SOUND FLAG^iL1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$^s::RE:^xN$" ":TS%0:AL%0^}R%0:RR%0:W%0:WR%0^K%0:J%1:J1%0:A%1^A2%0:SC%0 _D$CREATE SCREEN(](400:PRESENT QUESTIONB]2K%İ500:DIRECTIONS[]<600:GET THE ANSWER]F(A$W$(J%))1700,800:WRONG/RIGHT ANSWER]PA2%20:NEXT QUESTION]Z770,A2%:D$"RUN LESSONXX":DONE]]769,4:D$;"BSAVE ";NF$;",A768,L127"::^_( \95\27902,\ SUBPROGRAM XX/10k\SUBPROGRAM 3/10 GRADE-3 NEW SUFFIXES: FUL,LESS (PG.35)\VERSION 1 DONE BY M.D.FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC.\ 100:INIT VAR'S\300:INCREMENT COUNTER ]SC%İ200:   LESS,CARE,CARELESS,TOOTH,TOOTHLESSO FIRST ,ALLEN'S BABY BROTHER IS,f GfLAST PART OF SENTENCE}fFLOATED IN THE SKY.,.,TO BREAK THAT GLASS.,.,.,.f fCORRECT ANSWERSfCLOUD,CLOUDLESS,CARELESS,CARE,TOOTH,TOOTHLESSf fWORDS TO GO IN BOX"gCLOUD,CLOUD(RR%):IN:I0RR%:TX,A$::NO:DI,0:CL,0?epRR%6A2%7QezWR%5A2%5Xe1^edejeve6:NS%e eFIRST PART OF SENTENCE#f ONE FLUFFY,THE SKY WAS CLEAR AND,I WAS,HANDLE THE OLD MIRROR WITH,SAM'S LITTLE SISTER LOST HER200205:TN,I,5::823Kd6I11000:I: PAUSE IF NO TIME USED FOR SOUNDcd7PC,12,9:TX," "}dRPRINT SCORE & RETURNd\SY,3:DE,1,1,40,20:CO,2:NO:PC,1,19:TX,"GOAL = 6 RIGHT IN A ROW. YOU HAVE":SY,1dfDI,4:SN1įCL,40-egPC,19,10:A$cSN1āI15:TN,255,10:,cA$W$(J%)vcSY,1:CO,4:J110:NO:PC,4,8:TX,A$:910:IN:PC,4,8:TX,A$:910:c16368,0:R$:c850c RIGHT ANSWERc*R%R%1:RR%RR%1:WR%0c4SY,1:DE,1,1,20,9:CO,2:PC,12,9:TX,"GOOD"d5SN1āIETURN TO GO ON.":1:b255'bDK%1-bNAbXGET THE ANSWERYbbSY,1:CO,3:PC,4,7|bvENS,N$,9,TS%,AL%:(N$)2793b{(AL%0)(SN1)ĺ(7):1:630b|(AL%0)(SN1)Ģ1:630bA$(N$,AL%)bbWRONG ANSWERcW%W%1:WR%WR%1:RR%00,18:IN:FI:NO:CO,2:PC,1,109aA$W1$(J%)" ":TX,A$qaA$"":I1(W$(J%)):A$A$"-"::SY,4:TX,A$:SY,3aA$" "W2$(J%):TX,A$aaDIRECTIONSa100a:21a"TYPE THE WORD THAT FITS IN EACH SENTENCE.";:900b" HIT RIժժժժժժժժժժsgxxxx?~ժժժժՂjU@||ժժժժժժժժ3fsg~Ogc?~ժժժժՂ*]*DժժժժժժժժժժժO~sgx3dsgpsgsg?~ժժՂ{ժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪիվկվվժתժժժժժժժկժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪժժկ׺ծկժժժժՂ{ծպժժժժժժժժժժժժժժժժժժՂժߪժժժժժժժժժժժժժժժժժժՂժժժժsgsgxOgp?~ժժժժՂծպժժժժժժժժժժժժժժժժժժՂ \95\27902,\ SUBPROGRAM XX/11k\SUBPROGRAM 3/11 GRADE-3 NEW SUFFIXES: FUL,LESS (PG.35)\VERSION 1 DONE BY M.D.FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC.\ 100:INIT VAR'S\300:INCREMENT COUNTER ]SC%İ200:     FEAR%):IN:I0RR%:TX,A$::NO:DI,0:CL,0:dpRR%6A2%7LdzWR%5A2%5Sd1Yd_ded}d6:NUMBER OF WORDSd dWORDdCARELESS,WONDERFUL,WATCHFUL,HELPFUL,USEFUL,FEARLESSd dANSWERSeCARE,WONDER,WATCH,HELP,USE,k%"[$HoUBZIVKT%$VDҶU%%$HV"Rm$mk%A~"mK$U[R~ۖ$VRA~m%IjזTUhEԫ+JZI }IjV$V)%GUM"nHZ[_*P_$JUm 2-$BU۪T/%םD$풄mR~m/IֶJIU_R}"mWJcJ05:TN,I,5::823Fc6I11000:I: PAUSE IF NO TIME USED FOR SOUND^c7PC,12,9:TX," "xcRPRINT SCORE & RETURNc\SY,3:DE,1,1,40,20:CO,2:NO:PC,1,19:TX,"GOAL = 6 RIGHT IN A ROW. YOU HAVE":SY,1cfDI,4:SN1įCL,40(dgPC,19,10:A$(RRN1āI15:TN,255,10:%bA$W$(J%)qbJ110:NO:PC,11A%5,14:TX,A$:910:IN:PC,11A%5,14:TX,A$:910:b16368,0:R$:b850b RIGHT ANSWERb*R%R%1:RR%RR%1:WR%0b4SY,1:DE,1,1,20,9:CO,2:PC,12,9:TX,"GOOD"c5SN1āI2002RN TO GO ON.";:1:a255%aDK%1+aN?aXGET THE ANSWERRabPC,11A%5,12uavENS,N$,6,TS%,AL%:(N$)2793a{(AL%0)(SN1)ĺ(7):1:630a|(AL%0)(SN1)Ģ1:630aA$(N$,AL%)aaWRONG ANSWERaW%W%1:WR%WR%1:RR%0bSJ%:J%(NS%(1)):J%J1%3208`JA%A%3((A%1)3)1F`TSC%A%0L`^b`PRESENT QUESTION`SY,3:CO,2:PC,11A%5,10`A$W1$(J%):TX,A$``DIRECTIONS`100`:21`"READ EACH WORD. THEN TYPE THE ROOT WORD.";a"HIT RETU(13)(4)(_NS%:# SETS OF QUESTIONSB_W$(NS%1),W1$(NS%1)[_I0NS%1:W1$(I):s_I0NS%1:W$(I):y__CREATE SCREEN_SY,1:DE,1,1,20,8:IN:FI:NO_SC%1_"_,NEW INCREMENT COUNTER_6(R%W%NS%)J%J%1:330`@J1%0`@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_}:jjjjjj  | ]w ֚ꪪ@p<몪@تժժꅅ``pתꪺp`߫뫪1uC ꪪ뇇`뚚 \95\27902,\ SUBPROGRAM XX/12i\SUBPROGRAM 3/12 GRADE-3 NEW SUFFIXES: ER,EST (PG.36)\VERSION 1 DONE BY M.D.FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC.\ 100:INIT VAR'S\300:INCREMENT COUNTER ]SC%İ200:CREA  RR%):IN:I0RR%:TX,A$::NO:DI,0:CL,0]2K%İ500:DIRECTIONSW]<600:GET THE ANSWER]F(A$W$(J%))1700,800:WRONG/RIGHT ANSWER]PA2%20:NEXT QUESTION]Z770,A2%:D$"RUN LESSONXX":DONE]]769,6:D$;"BSAVE ";NF$;",A768,L127"::^_(13);ժՊԪժժՊԪժժՊժժժՀԀժՊՀԪժժ1us ՟ժ   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            c Y921,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         2%0:SC%0_D$(13)(4):_NS%:# SETS OF QUESTIONST_W$(NS%1),W1$(NS%1)m_I0NS%1:W1$(I):_I0NS%1:W$(I):__CREATE SCREEN_SY,1:DE,1,1,20,8:IN:FI:NO_SC%1_"_,NEW INCREMENT COUNTER `6(R%W%NS%)J%::$^_(13);(4)"RUN HELLOHI1":8^dINIT VARIABLESz^iL1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$^nST%3:SUPERTALKER SLOT^s::RE:TS,ST%:^xN$" ":TS%0:AL%0^}R%0:RR%0:W%0:WR%0^K%0:J%1:J1%0:A%1 _AEATE SCREEN&](400:PRESENT QUESTION@]2K%İ500:DIRECTIONSN]3SN(785)g]<600:GET THE ANSWER]F(A$W$(J%))1700,800:WRONG/RIGHT ANSWER]PA2%20:NEXT QUESTION]Z770,A2%:D$"RUN LESSONXX":DONE^]769,8:D$;"BSAVE ";NF$;",A768,L127" \95\27902,\ SUBPROGRAM XX/14i\SUBPROGRAM 3/14 GRADE-3 NEW SUFFIXES: ER,EST (PG.37)\VERSION 1 DONE BY M.D.FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC.\ 100:INIT VAR'S\300:INCREMENT COUNTER ]SC%İ200:CR  IN:I0RR%:TX,A$::NO:DI,0:CL,07dpRR%6A2%7IdzWR%5A2%5Pd1Vd\dbdzd6:NUMBER OF WORDSd dWORDdRICHEST,BRIGHTER,CLEANER,DULLEST,STRONGEST,STIFFERd dANSWERSeRICH,BRIGHT,CLEAN,DULL,STRONG,S5:TN,I,5::823Cc6I11000:I: PAUSE IF NO TIME USED FOR SOUND[c7PC,12,9:TX," "ucRPRINT SCORE & RETURNc\SY,3:DE,1,1,40,20:CO,2:NO:PC,1,19:TX,"GOAL = 6 RIGHT IN A ROW. YOU HAVE":SY,1cfDI,4:SN1įCL,40%dgPC,19,10:A$(RR%):āI15:TN,255,10:"bA$W$(J%)ybSY,1:CO,4:IN:PC,4,8:TX,A$:16368,0:R$:(R$)13įPC,4,8:NO:TX," ":799b730b850b RIGHT ANSWERb*R%R%1:RR%RR%1:WR%0b4SY,1:DE,1,1,20,9:CO,2:PC,12,9:TX,"GOOD"c5SN1āI20020 TO GO ON.":1:a255"aDK%1(aN">""֚ؠ՟굕ժꪺ֪՚ꀀ֪cVI hh,`ӠˠϠŠ̠ŠéԠé̠1u ؀؀ؚꪪﴀժZ5ժJE?TU%ZjχjjZkUTZ *VRUZTӅ vUIZRU*jO*tmU)ZR *BTU ZUjEjRZ]:TV[TZղʖMTRUKM-jUJKUiRmRZjjYU JV*[_JRR]ӕ ^$PUjU^mJVV^PPյUJJZ RuUTUKVU_*jmTJjTTTV Zj j1N rjK电sli8NZV98qqg8r8Zp9cU-5Gq 63999LINE TOO LONGINCREMENT = 0S(/S(bA0896