' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]$$8HIL,նh, ,`, ,`, , ,:/8` 鷎귭෍ᷩ췩緈JJJJx L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDEMETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!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Ӝ (   lϠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`    W8eXTTT`QW eXL9X3W eXRWSWL9X3W RWSWL9X4W eXTWUWL9X4W TWUWL9X5W eXVWWWL9X5W VWWWL9XhWWWɗ eXhW eXL9X eXL[ eXL9X eX(W eXL9X(WcW eXdW eXeW eXfW eXgWc``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@@@@@@@@ @@@@  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<0 IF DIRECTIONS NEEDED: ST%=SUPERTALKER SLOTw]-SP%,NS%,RM%: SP%=SUBPROGRAM NUMBER NS=NUMBER OF WORDS RM%=NUMBER CORRECT TO GRADUATE ]2N1$"":I1(771):N1$N1$((I771))::NF$"SRF-"N1$: N1$=STUDENTS NAME NF$=STUDENTS FILENAME ]3SN(785)*^7PR$" ":S%0: \ ONERR GOTO 60010$\27902A\SUBPROGRAM XX/2 LEVEL-8t\ COMPREHENSION: MAKING JUDGEMENTS (PG. 11)\"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\%INITIALIZATION](ST%3:RE:::TX," ":DI,0:NO7aBEGIN QUESTION LOOPLaSY,1:CO,5(1)jaPC,10,9:TX," ":PC,10,9aN$" ":ENS,N$,1,T%,AL% b(N$)27Ĺ769,SP%:RE:::(4);"BSAVE ";NF$;",A768,L127":RE:PC,9,5:TX,"BYE":I15000::(4);"RUN HELLOHI1"::J1%J%:J%NS%(1)1:J%J1%1402`K%0İ4000W`CO,2:FTXN,P(J%),3,3,N1$,PR$,S%aCO,4:INV:DE,1,1,40,20:PC,1,1:TX," ":DI,3:TX," ":DI,1:TX," ":DI,2:0 IF DIRECTIONS NEEDED N_PT%0:AL%0: T%,AL%=DUMMY VARIABLES FOR &ENS b_Z1000:GET DATA{_c5000:DISPLAY SCORE_dBEGIN SCREEN LOOP_xSY,3:DE,1,1,40,18:INV:FI:DE,1,1,40,18:NO:CLEAR SCREEN EXCEPT SCORE_R%W%NS%J%J%1:150!`S FOR &FTXN COMMAND 7^8PR$"PRESS RETURN TO CONTINUE"m^<L1$(NS%),L2$(NS%): L1$ = QUESTION L2$ = ANSWER _FR%0:RR%0:W%0:WR%0:J%0:K%1: R%=NUMBER RIGHT RR%=NUMBER RIGHT IN A ROW W%=NUMBER WRONG WR%=NUMBER WRONG IN A ROW J%=PROBLEM POINTER K%<>PC,28,19:TX,"YOU HAVE"?SY,1:PC,19,10:DI,4:SN1įCL,40uRR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,0{J770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"j:D$;"RUN HELLOHI1" " ::100a21:"READ STORY 4. TYPE THE LETTER OF":"THE ANSWER TO EACH QUESTION. HIT RETURN"t"TO GO ON. ";255:K1:1:$ DISPLAY SCORESY,3:CO,2:DE,1,1,40,20:PC,1,19:RR$(RR%):TX,"GOAL = ":TX,RR$:TX," RIGHT IN A ROW.":1)"A":L$(1)"C":(L$(1)"A"::L$(1)"YES":L>L$(1)"NO ":] PAUSE SUBSc i  INSTRUCTIONS AND BLOADS:RE:SY,3:PC,15,10:TX,"WORKING..."(4);"BLOAD BTCT,A6150"P(1)6170:I25:P(I)P(I1)(6148I): WW1:WRWR1:RR0 @50105 JRRRR%A27:40010V T(WR5)(W18)A25:40010x ^ IF WR > 2 THEN GOSUB 4080 c END QUESTION LOOP e3010 h m END SCREEN LOOP r120  DATA FOR QUESTIONS L$(1)"B": VL$(1)"C":L$(, PC,12,8:TX," ":PC,12,8:TX,"GOOD"C SN1āI11000:d SN1āI200205:TN,I,5:m 300 "SN1āI15:TN,255,10: $PC,13,8:TX,L$(X) %3010 &16368,0:R$:; , SCORING 1L$L$(X)RR1:RRRR1:WR0 6L$L$(X)ION LOOP X1NQD DISPLAY QUESTIONS AND SPEECH FOR QUESTIONW ANSWER ENTRYa CO,3 PC,10,8:L$" ":ENS,L$,1,T%,AL% CO,2 (L$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L127":::"BYE":D$;"RUN HELLOHI1" L$L$(X)282 290i>42:7DFP42``~bP3[sқ n]3n0- wx;PbP3Yt=g.@%l(0;*t\Yd;e;bi ,Pe;b=n:[/i / 4P0rSbP3SMITH JUNE 198282BY NORMAN D. SMITH JUNE 1982."::(4);"RUN LESSONXX"gj::SY,3:PC,5,10:TX,"WORKING..."::(4);"RUN HELLOHI1":g CODE SEGMENT BY NORMAN D. SMITH JUNE 198208fRR$(RR%):INV:I0RR%:TX,RR$::NO:CL,0:DI,0>ffJ770,A2%:::SY,3:PC,5,10:TX,"WORKING..."::(4);"RUN LESSONXX"fj::SY,3:PC,5,10:TX,"WORKING..."::(4);"RUN HELLOHI1":g CODE SEGMENT BY NORMAN D. 1:e255.e(4);"BLOAD BTCT-1,A6150"[eP(1)6170:I25:P(I)P(I1)(6148I):deK%0je$}eDISPLAY SCOREeSY,3:CO,2:PC,1,19:TX,"GOAL = ":RR$(RM%):TX,RR$:TX," RIGHT IN A ROW. YOU HAVE":fSY,1:PC,19,10:DI,4:SN1įCL,4BPROGRAM #, NUMBER OF QUESTIONS, NUMBER CORRECT TO GRADUATEGd 9,5,4^dI1NS%:L2$(I):mdB,C,C,A,CsdBdINSTRUCTIONSd:100d21:"READ STORY 5. TYPE THE LETTER OF THE ANSWER TO EACH QUESTION.";d" HIT RETURN TO GO ON. ";e1āI15:TN,255,10:Dc$SY,1:CO,4:PC,11,9:INV:TX,L2$(J%):NOYc&16368,0:R$:;fc,SCORING}c@5000:PRINT SCOREcJRR%RM%A2%7:40010cTWR%4A2%5:40010c^ IF WR% > 2 THEN K% = 1c100:END LOOPcDATA FOR QUESTIONS;dSUPRESSED#bN$"A"N$"C"277,b279 2 THEN K% = 1-d100:END LOOPHd DATA FOR QUESTIONSd SUBPROGRAM #, NUMBER OF QUESTIONS, NUMBER CORRECT TO GRADUATEd 5,4,4dI1NS%:L1$(I):d23,14,14,23dI1NS%:L3$(I)::"2,3","1,4","1,4","2,3" eI1NS%:cSN1āI200205:TN,I,5:(c300Dc"W%W%1:WR%WR%1:RR%0bc#SN1āI15:TN,255,10:c$SY,1:CO,4:PC,14,9:INV:TX,L1$(J%):NOc&16368,0:R$:;c,SCORINGc@5000:PRINT SCOREcJRR%RM%A2%7:40010cTWR%4A2%5:40010d^0::(4);"RUN HELLOHI1"::PRESSED7bAL%0277@b279PbSN1ĺ(7)\b1:220mbN$(N$,AL%)bN$L1$(J%)N$L2$(J%)N$L3$(J%)N$L4$(J%)282b290bR%R%1:RR%RR%1:WR%0:SY,1:CO,2:PC,14,9:TX,"GOOD"bSN1āI11000: @@+/VVXXPu?-*****WUUUUUUU********UUUUUUu}jjzz~??`*+>x@UUU|*j~?1u`@8.+*|wuu}};k++ `xx~~k__WWU+*******55UUUUU@@`````z*****_UUUUU?+******UUUUUUUU*******jUU55=/++  ```````@*******+UUUUUUUU******j~UUUU}/+*z^VWUUUU*******j  PbP"M%=@4ʛiP)Y:)s:)bP)7 ( 0;c]P:)7 ( 0;c]e@y,4pY+P"n3b[ /J%/g0#p/\ @&)NPbz+ ( J%9a[,Yl{)P"M4P#d;eb0#4*n%\(3[pJn0<:)p P4 (;PC,5,10:TX,"WORKING..."::(4);"RUN HELLOHI1":z CODE SEGMENT BY NORMAN D. SMITH JUNE 1982BY NORMAN D. SMITH JUNE 1982X9:TX,"GOAL = ":RR$(RM%):TX,RR$:TX," RIGHT IN A ROW. YOU HAVE":lSY,1:PC,19,10:DI,4:SN1įCL,40RR$(RR%):INV:I0RR%:TX,RR$::NO:CL,0:DI,0J770,A2%:::SY,3:PC,5,10:TX,"WORKING..."::(4);"RUN LESSONXX"2j::SY,3:,1,2,1,4,2,1B$INSTRUCTIONS/:10021:"READ THE FOUR GROUPS IN THE BOX. TYPE THE NUMBER OF THE GROUP TO WHICH EACH ITEM BELONGS.";" HIT RETURN TO GO ON. ";1:255:K%1$DISPLAY SCOREESY,3:CO,2:PC,1,1ROGRAM #, NUMBER OF QUESTIONS, NUMBER CORRECT TO GRADUATEF 4,16,6]I1NS%:L1$(I):RICE,SPAGHETTI,CARROTS,GRAPES,CHICKEN,HAM,BREAD,SPINACH,PEACHES,MILK,CHEESE,STEAK,BUTTER,CEREAL,SAUSAGE,CREAMI1NS%:L2$(I): 4,4,3,3,2,2,4,3,3,1I15:TN,255,20:A$SY,1:CO,4:PC,14,8:INV:TX,L2$(J%):NOV&16368,0:R$:;c,SCORINGz@5000:PRINT SCOREJRR%RM%A2%7:40010TWR%4A2%5:40010^ IF WR% > 2 THEN K% = 0100:END LOOPDATA FOR QUESTIONS9SUBP1"N$"4"277280&SN1ĺ(7)21:220CN$(N$,AL%)WN$L2$(J%)282`290R%R%1:RR%RR%1:WR%0:SY,1:CO,2:PC,14,9:TX,"GOOD":SN1āI11000:SN1āI200205:TN,I,5:300"W%W%1:WR%WR%1:RR%0#SN1X,L1$(J%):PRINT THE QUESTION6 BEGIN QUESTION LOOPT PC,14,7:TX," ":PC,14,7p N$" ":ENN,N$,1,T%,AL% (N$)27Ĺ769,SP%:RE:::(4);"BSAVE ";NF$;",A768,L127":RE:PC,9,5:TX,"BYE":I15000::(4);"RUN HELLOHI1"::PRESSED N$" dBEGIN SCREEN LOOPn xSY,3:DE,1,12,40,18:INV:FI:NO:DE,1,1,40,20:CLEAR SCREEN EXCEPT SCORE AND BOX }K%İ4000:PRINT DIRECTIONS R%W%NS%J%J%1:150 J1%J%:J%NS%(1)1:J%J1%140 CO,5(1) SY,1:PC,12(L1$(J%)),7:T ^SY,3:CO,0::DE,1,1,40,11:FI:DE,2,2,39,10:INV:FI:NO:DE,1,1,40,20 _CO,2:PC,10,3:TX,"1. DAIRY PRODUCTS":PC,10,5:TX,"2. MEAT AND POULTRY":PC,10,7:TX,"3. FRUITS AND VEGETABLES":PC,10,9:TX,"4. GRAINS AND PASTA" c5000:DISPLAY SCORE$=ANSWER FR%0:RR%0:W%0:WR%0:J%0:K%0: R%=NUMBER RIGHT RR%=NUMBER RIGHT IN A ROW W%=NUMBER WRONG WR%=NUMBER WRONG IN A ROW J%=PROBLEM POINTER K%=0 IF DIRECTIONS NEEDED PT%0:AL%0: T%,AL%=DUMMY VARIABLES FOR &ENS Z1000:GET DATAJLOTa -SP%,NS%,RM%: SP%=SUBPROGRAM NUMBER NS=NUMBER OF WORDS RM%=NUMBER CORRECT TO GRADUATE 2N1$"":I1(771):N1$N1$((I771))::NF$"SRF-"N1$: N1$=STUDENTS NAME NF$=STUDENTS FILENAME 3SN(785) <L1$(NS%),L2$(NS%): L1$=QUESTION L2{  60010279025SUBPROGRAM XX/3 LEVEL-8^ COMPREHENSION: CLASSIFYING (PG. 15)"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982%INITIALIZATION (ST%3:RE:::: ST%=SUPERTALKER S     UUTTPP@@** @****(( UUUUUUUU********UUUUUUUU********UUUUUUUU********UUUUU UUUTTPP@********UUUUUUUU********UUUUUUUU**** @***(( UUUUUUUU********UU1u @*P (((TUUUUUUU********UUUU ((****TUUUUUUU********((******UUUUUUUU********UUUUUUUU********UUUUUUUU********UUUUUUU*D$;"RUN LESSONXX"+j:D$;"RUN HELLOHI1" " MAIN IDEAS AND DETAILS\# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\% INITIALIZATION\(ST%3:RE::]2L1(771):N1$"":I1L1:N1$N1$(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:PC,5,10:TX,"WORKING..."::;:23:"YOUR ANSWER. THERE ARE MORE TO COME."JI3ĺ"WHICH OF THESE DETAILS SUPPORT THE MAIN":"IDEA OF THE ARTICLE? TYPE THE LETTERS OF";:23:"YOUR ANSWER." 24:1:"HIT RETURN TO GO ON. ";255:K1:1:$ DISPLAY SCORElSY,3:(6148I):!::100:21*JIJJI1ĺ"READ STORY 1. TYPE THE LETTER OF":"THE STATEMENT THAT BEST EXPRESSES THE":"MAIN IDEA OF THE ARTICLE.";-JI2ĺ"WHICH OF THESE DETAILS SUPPORT THE MAIN":"IDEA OF THE ARTICLE? TYPE THE LETTER OF "" "L$(X)L$/L$L$(X2)L$(X1)" "L$(X)L$RL$L$(X2)","L$(X1)L$(X)L$Xi PAUSE SUBSo u  INSTRUCTIONS AND BLOADS:RE:SY,3:PC,15,10:TX,"WORKING..."(4);"BLOAD BTCMID,A6150" P(1)6170:I23:P(I)P(I1)c END QUESTION LOOP e3010% h; m END SCREEN LOOPD r120]  DATA FOR QUESTIONSo L$(1)"B ": VL$(1)"A ": L$(3)"D":L$(4)"E":  CHECKING FOR RIGHT ANSWER X12X1:X22X2:L$(X)L$(X1)","L$(X2) L$L$(X1)L$(X2)5:TN,I,5: 3003 "SN1āI15:TN,255,10:I $PC,9,9:TX,L$(X)S %3010h &16368,0:R$:;v , SCORING 1L$L$(X)RR1:RRRR1:WR0 6L$L$(X)WW1:WRWR1:RR0 @5010 JRRRR%A27:40010 T(WR5)(W18)A25:40010 C,9,8:L$" ":ENS,L$,3,T%,AL%) CO,2} (L$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L127":::"BYE":D$;"RUN HELLOHI1" J3İ2005 L$L$(X)282 290 PC,14,9:TX," ":PC,14,9:TX,"GOOD" SN1āI11000: SN1āI20020 ) J1010,1110,1210,1310,1410,1510T SET UP SCREEN AND SCREEN PARTICULARS^ 4080| FTXN,P(J),1,1,N1$,PR$,R% 5010 BEGIN QUESTION LOOP X1NQ DISPLAY QUESTIONS AND SPEECH FOR QUESTION ANSWER ENTRY CO,3 P(I771))::NF$"SRF-"N1$( 3SN(785)b FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE."{ PNS3:SP1:NQ1:RR%3 ZK0 _4005 d BEGIN SCREEN LOOP nR0:RR0:X0 xSY,3: RN0JJ1:JNSJ1 J1J SET UP QUESTIONS -  2790260010L SUB-PRG XX/4 LEVEL-7C MAIN IDEAS AND DETAILS# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION(ST%3:RE:: 2L1(771):N1$"":I1L1:N1$N1$(     HTUZjڦ"jJ۪*IjZU-j*EVWjJUSm*JRU-Z*V+%UZjoBRTUV$UVU RUjZ$IUVVZTUmJUjZURU*)IZ[UJmURRjR֪JRZZTUVTRRJkkJU$![H]%To|+[I%~A/$}K]Iu) ~A$JjK_}VZIUJPt/IԪ /Bm%U"JRuV7גT%Im$iUj$jVXUãTBUZRU*VUqͫR*/YV 6z*(9jU)%yRU]UuTFP=eUŲXM5-Ej5 mNeyݪ5UJM뵬b..Ֆ,ZZiZ6UըVjiYeViVK+RQVJVZZVVeTK+-ZMcJeRKUJU5^U9*ij*WTtҥS9-aYY.du\l%]T%UuRk*U|UjV!}֢ZZU7!ݖhR[%?ouV*VYUKRUʴJ*3]5Je/eiYVe66eiUVUՒҔXǫhR9V.TUTjbVUW4ԪSSʱFq:m'(rZI9T*ȸX[Ւגt,m қVִJr4*eq,-M+MRWU.*)Jԫjj*^e/ijjZVVUZYUVMٶ%TTRKVDV%*7]**V_ ߒTJVV)՛P[j*y+[V*r*ZV~@[JjZDVuVՊlVijJRJ"jjjR *JleՇKC-jRKKTUO5R5.4鰴,UMSQZieUZk8.UM-MccU^-e*ZeYZLMjRjZU+-ZZUY5UK6ZTUժ*[ZUeeUJ-Uieʪ*5Z*jU5ZR-ghC:Vj*n+V/UoAUR_T[AuK_ &R }%j+~["wyV%@ %iV7Hvڕ/~T%6ZJ+VBݒjjHBQJ**? T{ZJ?zIJUTQ+)ݪjJ/EJ*jXSRZVƪX:ejeu$\ZUJ*˹\-u-Ϋ*R1X,ZYmcyRm)B )UҴja)VVe)Z$Vj*KLUuu*RYm]jJURjZRTTJӴu*UKRRVUJU}RJUVMITUZ^ZժVUTj)TV*XZReU˕F~juUeeV~ jiiiVn4Tii՟W V-UZVjsUJ,P|jhiTTUeç[M-UVY`beQժRSUXnYTT@Ur*? T,TjURziXuҪZcZUʪV j,!R *VUJTZz,IJUmժTJz-MRjUZZ$%UmժT*ITTRZ*VDIUmJe%RjT}-+IT구$%e iT jIZkUI*UZVKRk$)jVVKI Z$%ji%)jUTTJSRU-V-KSWE]Ɗr EUԪJUTZ,]+ɪʪJUZT*mH[RբVմZ Ҫ*U*UjZRSj*Ԫ&**ZUJVjUZUj*U*UK*UZjZ jUjZ jj*jVT ,jժVK jJ RN TO CONTINUE, OR ":PC,1,10:TX,"HIT 'ESC' TO GO BACK TO THE MENU."wkZù16368,0:N$" ":PC,1,12:ENS,N$,1,TS%,AL%k_í(N$)27::(4);"RUN HELLO"kdñkj:D$;"RUN HELLO"LLO" HELLO"NДЀUU* UT^VWUUUjjj*** 1uఐՀըхՀ4"c I1I%3:J%3;c (IX$(1)"I.DOG")(I1)I%5:J%4Oc I2I%15:J%3cc I3I%25:J%4c (IX$(3)"I.SUN")(I3)I%26c (IX$(2)"I.GUM")(I2)J%4:I%13c (IX$(1)"I.HAT")(I1)I%4:J%2c (IX$(3)"I.FOX")(I3)J%5d DP,614404b:IX$(1)"I.DOG":IX$(2)"I.BAT":IX$(3)"I.PEN">b2300Db*wb4:IX$(1)"I.MOP":IX$(2)"I.NET":IX$(3)"I.FOX"b92300bb:IX$(1)"I.HAT":IX$(2)"I.GUM":IX$(3)"I.SUN"b2300bbI13bSY,3c (4);"BLOAD ";IX$(I);",A614a SCORING@a(L1$L1$(X))(L2$L2$(X))RR1:RRRR1:WR0ta(L1$L1$(X))(L2$L2$(X))WW1:WRWR1:RR0~a5010a(RR6)A27:40010a(WR5)(W18)A25:40010aWR2İ4000:X0:70aNN1:N3N0:X0:100a300b4001AVE ";NF$;",A768,L127":::"BYE":(4);"RUN HELLO"`J(L1$L1$(X))(L2$L2$(X))įPC,12,9:TX," ":PC,12,9:TX,"GOOD":I200205:TN,I,5::350`YI15:TN,255,10:: TONE FOR WRONG ANSWER`ZPC,NC2,8:TX,A$(X):16368,0:R$:;`^400a(4);"BLOAD I.LIFE-1,A27904(hI150ChDP,6144,30,6:TN,8,10_h DP,27904,30,6:TN,8,10zh"DP,6912,30,6:TN,8,10h$h&I12000:II:hN510h }h}h}34510hhh34510GiڄRE:SY,3:PC,2,10:TX,"YOU'VE FINISHED SIDE ONEER.":35010g@ gg$ggRE:(4);"BLOAD I.LIFE,A6144":CO,4:PC,1,1:TX,"INTO EACH":PC,1,3:TX,"LIFE SOME":PC,1,5:TX,"RAIN MUST":PC,1,7:TX,"FALL.":CO,2:DP,6144,30,1g(4);"BLOAD I.LIFE-2,A6144":(4);"BLOAD I.LIFE-3,A6912"hf=fRE:PC,4,4:TX,"GOOD WORK ":PC,4,6:TX,N1$:TX,"!"QfI12000:II:\f50000eff510wfz MODULE #6 ~f fnSP$"SUBPROGRAM XX/6":40010fxA232010,33010,34010,35010,6710,6810,6910 g6SP$"":RE:SY,3:PC,5,10:TX,"TRY AGAIN LATT," ":+e2:NO:PC,4,3:CO,2:TX,"SUPER!"?e3I11000:II:He~510Xe MODULE #5^eeSP$"SUBPROGRAM XX/5":40010eA232010,33010,34010,35010,5710,5810,5910eNSP$"":RE:SY,3:PC,5,10:TX,"GET HELP IF YOU NEED IT.":35010eXe0102dA232010,33010,34010,35010,4710,4810,4910xdfSP$"":RE:SY,3:PC,5,10:TX,"REST NOW. TRY AGAIN LATER.":35010~dpdd.SP,255:CO,0:INV:I1192d/J110:CL,8(IJ):PC,I,J:TX," ":d0KI1e1J1011:CL,8(KJ):PC,K,J:TX10c*cFRE:(4);"BLOAD I.TOP,A6144"gcGCO,1:PC,4,2:TX,"YOU ARE TOPS":PC,4,4:TX,N1$:TX,"!"cHCO,2:CL,5:DP,6144,1,11:DP,6144,14,11:DP,6144,25,11cII11000:II:cK50000c510c MODULE #4c dSP$"SUBPROGRAM XX/4":40E:PC,4,5:TX,"WONDERFUL!":I12000:II:5bc 50000>b 510Nb MODULE #3ob 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 COME BACK.":350I200205:TN,I,20::I11000:II:-a 6a510Fa MODULE #2Lama SP$"SUBPROGRAM XX/2":40010a A232010,33010,34010,35010,2710,2810,2910a SP$"":RE:SY,3:PC,5,10:TX,"STOP AND REST. THEN COME BACK.":35010a a a *b^ Rⳃ񑐐񍇂ㄌČ̬Ⴤ㷶࠰㲒˨Ì棳࠰齀1uC జ𐐞Ӣఙ  *JVm*I)Zk)TjJJRTU*jR*Z*JjUJjJjJZJU*iRժ*TRi*J(JՅjTtxPժZUjJU%޻$m_ "zwHV$U $wED^I&$ڪ$IvoniZ-*0,6*Ee0,V-ժT|>êrV KjyU崪ZUj|aUeiZ4MUjUXMUjUJVT: RZURZҴZJվKIQVRiTZU*jReY*V*UZZjRV$)UmR TTUkJjV$IZkkZkURZU"$ZZURJժjkU$RVUZ׮PjVWUI -kIW0TQWUVURTj•W[-UTTRUK? +5]TjUiU}$\NZT~:.V*U-UV~ Z*]WV%V~*GR~UŪ0T:VVS?jRRhjY5U**?CjIZ ݪ*Ij'VU}*)mjU jVIVZRնTkTVJkUիVZJUVժJo*IRUZW,U[zm$*յJTUJmAj{BmHU[U)UmUnےHj[VK-RJUTUotʒZmUR*ZUժUjJ *%jRJVUVڭTmU*Ij*IڶJRBjU}Z[mU[%IVJڪj*ڪ*i/BW%Jv+I"ԶJRV~"[D"*IU!m[j[Em%J%RMJګJZURU(ڗ$VI[UT/WRT*IT QRQԷTRݪZJ/PnUTVUJoUITUk*)Zb"STRR*U@I:ZU*U-TkJ)@nH^UIIRI$m%. ڪJ?..hV)RW%VUJUvIںUzKUmU*qn[%vUuVTl۶n$nUH֪OTVRV)ڮjJIU@Qo[EJ][%)mۊDJJU*UV%U%7*j국BnmTUR U"I+D-@ ~CVJR7HU$U*-R-+Rj)$ E*jR $&zU*UDU!m[I_kAjRRH RRUտ@zA*TU7\[o*JZ_HWTTUhJZRijJRR=:(4);"RUN HELLO"UN LESSONXX"<j:(4);"RUN HELLO" HELLO"l,2 dNO[dSY,3:CO,2:PC,1,19:TX,"GOAL = 6 RIGHT IN A ROW.":PC,28,19:TX,"YOU HAVE"edSY,1dPC,19,10:DI,4:CL,40:RR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,0ddJ770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"ej A ROW.":PC,28,19:TX,"YOU HAVE"+fSY,1xfPC,19,10:DI,4:CL,40:RR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,0~ffJ770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"fj:(4);"RUN HELLO"O"27904,3Oe4080:23:18:"PRESS RETURN AFTER EACH ENTRY, AND TO GO ON. ";Ve1^eK1e:(4);"BLOAD W-DOG-9,A27904"eI1550:II:: (PAUSE)ee DISPLAY SCOREeSY,1:DE,1,1,20,10!fSY,3:CO,2:PC,1,19:TX,"GOAL = 6 RIGHT INcBOM 0 r70)inY4P;:)\84P7)>(n#sl ( ta8O8! d8t02,@isn;PO8!DP@(0! (i l));P35/%1.7/2```~))l]J! % %:/︯+@3M)k0!Il:o0!@; nΝa;P)YQ3[\\d  %;P;3jn o^@0!{ d %)Ir=0-yi ( s y8  10,1910`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.":35010``` ` &av:RESET:TS,3:CO,1:FI:PC,5,3:CO,3:TX,"VERY GOOD":PC,5,5:TX," ":TX,N1$:TX,"!!!":N1$((I771))::NF$"SRF-"N1$F_A11520,2520,3520,4520,5520,6520Q_35010]_A1A11p_:RESET:TS,3_A11010,2010,3010,4010,5010,6010_ 34010_ MODULE #1__SP$"SUBPROGRAM XX/1":40010`A232010,33010,34010,35010,1710,1869)0350&^TD$;"UNLOCK ";NF$:216,0/^V360:^Y216,0O^Z(769)0Ĺ769,1b^\(222)6340^^L1(N1$):A1(769):771,L1:I1L1:771I,((N1$,I,1))::515^hD$;"BLOAD ";NF$:A1(769):515 _A1(769):A2(770):L1(771):N1$"":I1L1:N1$]HSY,3:PC,1,14:TX,"THEN PRESS RETURN TO CONTINUE.":PC,1,18:TX,"REMEMBER, PRESS RETURN AFTER ANSWERING EACH QUESTION.":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(7 \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$" "            RTjڪ$UVJ }UJV VZREZRJ--٪jRJ RJJZժRUj *e*hJU[RRҫ*ԪjT֪JJ%QZk[UJJTUIߪDmV$)U[*I_mUVU%Vjj/jUZUj TUTZT*jJ*jTJUmUZ+ɪ*BmU*_HVJUZ ZTVV%Z*TkժJVKUZRUժJURRJ@ zUVR]IU[Uo"VJ jTUVJj%jUVU*mkd*V*R*VUeURǪԪ*iVV-ZZU崲,k-*eUi'ZUlTRU,LeUJղ4-ƪ*ʲj\JUhJUU RRURV$jVRZ$U+!)URIնRRTJT۪Rj"TuRJU۪ZURUVIUVTUJU忀lUWnVJȗZA*j)}i|JzKJR/ЫT+Uin5HЭTJU\ ZnUR+h"ݪZ Ҷj[I*%+vնJ/ڋRݒV*_B-JR(~A]U*c TOM p]\҉@-)@[tt*@3)a 90/eC`@/ o^@0-)d(rҘ /P/ (,znQ EP@Y$ p[$J%;%)@9f)o\|қ2 Xsfʘ|"\\ .@@p-@ҋ l0$@4P;(lL[nyr҉@﹯C`H/U8;PH<1>2[W\I7``~ (0!JcP&@ﻥ 63999LINE TOO LONGINCREMENT = 0S(/S(bA61u҉s In\\=!\J%J%P/ (rҘ;N5.p#Xt)@ :!y@҉@!9@`!t(l[+[8.ir;@9\c[)f)@҉ytd8et cMERLIN Iժժժժժժժ?xxsgxx`sg`sgxxxsgߪժՂjU@||ժժժժժssgsgO~OsgOs`c?~sgs`ߪժՂ*]*Dժժժժժժժժժx~sgOg?~3ds`{ժժժժժժժߪժՂժժժժժժժժժժժժժժժժժժՂߪիվկվվժתժժժժժժժկժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪժժկ׺ծկ{ծպժժժp?~OOp?pժժժՂժߪժժժժժժժժժժժժժժժժժժՂժssgsgxx~`~3dp?~sg3dߪժՂծպժժժժժժՂժժվիժժ1uC ՀՀꀀժժ1u҉s In\Ht04P;+[@+]4P!JcW8 Je0#Xt@!+@މnJ%Y:04 ( s;#n9@$\0 @/ %30 !P0t;t{תվc]p~sgOg?~fsgcqw]cC]ccqccq]Ac]Accwg]AcqsժժժժժժժժժժժժժժժժժժժժժժժժՂUתիվտվժתժժժժժժժծժժպժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪժժծկժժժժժժժժժժժժժՂ]]A]cg]]Aacg]ccc]]Agc]qccA]wc]gsծպժժժx?~OOx?xժժժՂߪժժժժժժժՂU*U*U*U*U*}ժssgsgpp~`~fx?~sgfߪժՂծժպժߪժՂתվw]scOsgOg?~gs[]{wmw]]wwo]]{][]][w]s[][w{sժժժժժժsg`sgxxsg`ժժժժժժժժժժժժժժժժժժՂתծտվժߪժժժժժժժվժժվժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪժժժվկժժժժժժժժժժժժժՂ]][mw[]][[][]ww]]][[]]{]w[msw][sծպժժժc~?~OOcxժժժՂծժժպժժժxsgx``xxժժժՂU*U*U*U*U*}ժssg3fOcscOsgOgc?~sggߪժՂծժݪպժ?xxsg~sg`sg`sgxxxsgߪժՂתծժտժկתߪw]sgOccOg?~Cgs}]{wuwM]ww_]_{A{]A{w]s}A{w{sc`sgpxsg`ժժժժժժժժժժժժժժժժժժՂUߪվתתժժժժժժպժժծժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪժժժժվկժժժժժժժժժժժժժՂA]{uw}AM{[]}Aww]MA{}]]{]w{uswM}J%c d+ ( %[/n 4;@|Njr@;#Xr;@<Sw04P4@҉@︥`0(g(74Hy8 a@s\;@HnSo @5P!P4P4@ n(9@(p7NJ% xi nsҌ 5Le,{8 (3҈t+a\)@%.@S5oSHT`````~Swc (`;r|€K(p_\.<︎҉rHn\|UUUUUUUu*jjz~?? X\\\xp@*******+uuuUUUUUxG~~~z8 */ FB.,(80(((U}UUQEjjk..2:Z//???y}uI]]]]___ժժꪪժЀЀՕp|Vw @`pX8,.++ (*5tUUUUU ЪՀՀՀՀժժժժ ДЀՠՕ   ;"RUN LESSONXX"(j:D$;"RUN HELLOHI1" 42: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:PC,5,10:TX,"WORKING..."::D$LOAD BTFO,A6150"=P(1)6170:I29:P(I)P(I1)(6148I):J::10021:"TYPE F IF THE SENTENCE SHOWS A FACT.":"TYPE O IF THE SENTENCE SHOWS AN OPINION.";"HIT RETURN TO GO ON. ";255:K1:1:$ DISPLAY SCOREiSY,3:CO,(1)"F":L$(1)"O":)L$(1)"F":9L$(1)"F":IJL$(1)"F":YL$(1)"O":iL$(1)"F":{L$(1)"YES":>L$(1)"NO ": PAUSE SUBS   INSTRUCTIONS AND BLOADS:RE:SY,3:PC,15,10:TX,"WORKING..."(4);"BWW1:WRWR1:RR0 @50106 JRRRR%A27:40010W T(WR5)(W18)A25:40010y ^ IF WR > 2 THEN GOSUB 4080 c END QUESTION LOOP e3010 h m END SCREEN LOOP r120  DATA FOR QUESTIONS L$(1)"O": VL$(1)"O": L$290D PC,12,8:TX," ":PC,12,8:TX,"GOOD":SN1āI11000:e SN1āI200205:TN,I,5:n 300 "SN1āI15:TN,255,10: $PC,10,8:TX,L$(X) %3010 &16368,0:R$:; , SCORING 1L$L$(X)RR1:RRRR1:WR0 6L$L$(X)QUESTION LOOP X1NQI DISPLAY QUESTIONS AND SPEECH FOR QUESTION\ ANSWER ENTRYf CO,3 PC,10,7:L$" ":ENS,L$,1,T%,AL% CO,2 (L$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L127":::"BYE":D$;"RUN HELLOHI1" L$L$(X)284  SET UP QUESTIONS Q J1010,1110,1210,1310,1410,1510,1610,1710,1810| SET UP SCREEN AND SCREEN PARTICULARS FTXN,P(J),1,6,N1$,PR$,R% CO,4:INV I140:PC,I,4:TX," ":PC,41I,10:TX," ": CO,2:NO 5010 BEGIN ))::NF$"SRF-"N1$! 3SN(785)[ FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE."t PNS9:SP6:NQ1:RR%6~ _4005 d BEGIN SCREEN LOOP nR0:RR0:X0:K0 xSY,3: RN0JJ1:150 J(NS(1)1):JJ1140 J1J:JNSRN1*  2790260010E SUB-PRG XX/1 LEVEL-7C FACT AND OPINION# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION(ST%3:RE:: 2L1(771):N1$"":I1L1:N1$N1$((I771     ,4,7:NC63_9X2įPC,10,7:TX,W$(2):PC,9,7:NC11^_:X3įPC,15,7:TX,W$(3):PC,14,7:NC16g_>390_GL1$" ":ENS,L1$,1,T%,AL%:AL%0ī307_HL2$"T":PC,NC,7:ENS,L2$,1,T%,AL%:AL%0ī3073`IDI,0:5010:((L1$)27)((L2$)27)Ĺ769,2::(4);"BSX1^2X4X1D^3SY,1:DE,1,7,20,9:INV:FI:NO:DE,1,1,20,10Y^4J1įTA,27904,Xr^5J2įTA,27904,(X3)^6J3įTA,27904,(X6)^7W$(X)(IX$(X),4,1):L1$(X)(IX$(X),3,1):L2$(X)(IX$(X),5,1):A$(X)(IX$(X),3,3) _8X1įPC,5,7:TX,W$(1):PC1$]7D$(4)4]<W$(3),L1$(3),IX$(3),L2$(3),A$(3)=]AWR0R]FR0:RR0:X0:N0^]KSY,3:z]dJ(3(1)1):JJ1100]eJ1J]fNO:]iJ2000,2100,2200]l5005]mK0İ4000]nSP,255] ]300]"], QUESTIONS AND ANSWERS^1X \27902%\ST%3:RESET:TS,ST%1\60010S\ SUB-PRG XX/2 GRADE-3 CIF\ VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\-:]2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"NN LESSONXX"Lfj::SY,3:PC,5,10:TX,"WORKING..."::(4);"RUN HELLOHI1":f CODE SEGMENT BY NORMAN D. SMITH JUNE 198282BY NORMAN D. SMITH JUNE 1982 RE_eSY,3:CO,2:PC,1,19:TX,"GOAL = ":RR$(RM%):TX,RR$:TX," RIGHT IN A ROW. YOU HAVE":eSY,1:PC,19,10:DI,4:SN1įCL,40eRR$(RR%):INV:I0RR%:TX,RR$::NO:CL,0:DI,0e fJ770,A2%:::SY,3:PC,5,10:TX,"WORKING..."::(4);"RU):dO,F,F,O,F,O,O,F,O,F,O$dB6dINSTRUCTIONSAd:100d21:"READ STORY 3. EACH SENTENCE IS NUMBERED.IF THE SENTENCE IS AN OPINION, TYPE 'O.'IF IT'S A FACT, TYPE 'F.'";d" HIT RETURN TO GO ON. ";d255:K%1:1:d$eDISPLAY SCOINGc@5000:PRINT SCORE5cJRR%RM%A2%7:40010McTWR%4A2%5:40010kc^ IF WR% > 2 THEN K% = 0~c100:END LOOPc DATA FOR QUESTIONScSUBPROGRAM NUMBER, NUMBER OF QUESTIONS, NUMBER CORRECT TO GRADUATEc 7,11,6dI1NS%:L2$(IR%R%1:RR%RR%1:WR%0:SY,1:CO,2:PC,14,9:TX,"GOOD"NbSN1āI11000:obSN1āI200205:TN,I,5:xb300b"W%W%1:WR%WR%1:RR%0:b#SN1āI15:TN,255,10:b$SY,1:CO,4:PC,17,5:INV:TX,L2$(J%):NOb&16368,0:R$:;c,SCOR,1,T%,AL%a(N$)27Ĺ769,SP%:RE:::(4);"BSAVE ";NF$;",A768,L127":RE:PC,9,5:TX,"BYE":I15000::(4);"RUN HELLOHI1"::PRESSEDaN$"O"N$"F"277a280aSN1ĺ(7)a1:220aN$(N$,AL%)aN$L2$(J%)282a2907bDE,2,4,39,12:INV:FI:NO:DE,1,1,40,20: DRAW A BLUE BOX`SY,1:CO,5(1):PC,4,3:A$"PART "(((J%1)6)1):TX,A$:PC,4,5:A$"SENTENCE "(J%6((J%1)6)):TX,A$`BEGIN QUESTION LOOP`SY,1`PC,16,5:TX," ":PC,16,5 aN$" ":ENS,N$ATA_c5000:DISPLAY SCORE3_dBEGIN SCREEN LOOP_xSY,3:DE,1,1,40,18:INV:FI:NO:DE,1,1,40,20:CLEAR SCREEN EXCEPT SCORE_}K%İ4000:PRINT DIRECTIONS_R%W%NS%J%J%1:150_J1%J%:J%NS%(1)1:J%J1%140:`CO,4:DE,1,3,40,13:FI:ON L2$=ANSWER ^FR%0:RR%0:W%0:WR%0:J%0:K%0: R%=NUMBER RIGHT RR%=NUMBER RIGHT IN A ROW W%=NUMBER WRONG WR%=NUMBER WRONG IN A ROW J%=PROBLEM POINTER K%=0 IF DIRECTIONS NEEDED ^PT%0:AL%0: T%,AL%=DUMMY VARIABLES FOR &ENS _Z1000: GET DLKER SLOTf]-SP%,NS%,RM%: SP%=SUBPROGRAM NUMBER NS=NUMBER OF WORDS RM%=NUMBER CORRECT TO GRADUATE ]2N1$"":I1(771):N1$N1$((I771))::NF$"SRF-"N1$: N1$=STUDENTS NAME NF$=STUDENTS FILENAME ]3SN(785)^<L1$(NS%),L2$(NS%): L1$=QUESTI \ 60010\279025\SUBPROGRAM XX/1 LEVEL-8d\ COMPREHENSION: FACT AND OPINION (PG.9)\"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\%INITIALIZATION ](ST%3:RE:::: ST%=SUPERTA      SET UP QUESTIONS M J1010,1110,1210,1310,1410,1510,1610,1710,1810x SET UP SCREEN AND SCREEN PARTICULARS FTXN,P(J),1,2,N1$,PR$,R% CO,4:INV I140:PC,I,1:TX," ":PC,41I,7:TX," ": CO,2:NO 5010 BEGIN QUEST:NF$"SRF-"N1$ 3SN(785)W FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE."p PNS5:SP8:NQ1:RR%5z _4005 d BEGIN SCREEN LOOP nR0:RR0:X0:K0 xSY,3: RN0JJ1:150 J(NS(1)1):JJ1140 J1J:JNSRN1   2790260010A SUB-PRG XX/5 LEVEL-7C TRANSITIONS# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION(ST%3:RE:: 2L1(771):N1$"":I1L1:N1$N1$((I771)):    j:D$;"RUN HELLOHI1" :D$;"RUN HELLO" :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:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"ME FOR B.";* " HIT RETURN TO GO ON. ";<255:K1:1:Uh(WR2)(X1)ī4900srFTXN,P(J),1,4,N1$,PR$,R%|CO,4:INVI140:PC,I,3:TX," ":PC,I,7:TX," ":CO,2:NO5010$ DISPLAY SCOREZSY,3:CO,2:DE,1,1,40,20 INSTRUCTIONS AND BLOADSC:RE:SY,3:PC,15,10:TX,"WORKING..."a(4);"BLOAD BTCCE,A6150"P(1)6170:I25:P(I)P(I1)(6148I):::10021:"IF A STATES A CAUSE, TYPE CAUSE. IF":"A STATES AN EFFECT, TYPE EFFECT. DO" "THE SATIONS)L$(1)"CAUSE ":L$(2)"EFFECT":MVL$(1)"EFFECT":L$(2)"CAUSE ":qL$(1)"EFFECT":L$(2)"CAUSE ":L$(1)"EFFECT":L$(2)"CAUSE ":L$(1)"CAUSE ":L$(2)"EFFECT":L$(1)"YES":>L$(1)"NO ": PAUSE SUBS  1L$L$(X)RR1:RRRR1:WR0@ 6L$L$(X)WW1:WRWR1:RR0J @5010c JRRRR%A27:40010 T(WR5)(W18)A25:40010 ^ IF WR > 2 THEN GOSUB 4080 c END QUESTION LOOP e3010 h m END SCREEN LOOP r120 DATA FOR QUESUN HELLOHI1" L$L$(X)282' 290Z SY,1:PC,14,9:TX," ":PC,14,9:TX,"GOOD"q SN1āI11000: SN1āI200205:TN,I,5: 300 "SN1āI15:TN,255,10: $PC,14,Y:TX,L$(X) &16368,0:R$:; (3010 , SCORING 20,17,40,18:FI:DE,1,1,40,20:NOQ DISPLAY QUESTIONS AND SPEECH FOR QUESTIONd ANSWER ENTRY{ SY,1:Y6:X2Y8 CO,3 PC,6,Y:L$" ":ENS,L$,6,T%,AL% CO,2 (L$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L127":::"BYE":D$;"R0,1210,1310,1410; SET UP SCREEN AND SCREEN PARTICULARSY FTXN,P(J),1,4,N1$,PR$,R%h CO,4:INV I140:PC,I,3:TX," ":PC,I,7:TX," ": CO,2:NO 5010 BEGIN QUESTION LOOP X1NQ! X2įSY,3:DE,1,11,40,12:INV:FI:DE,:WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE."G PNS5:SP2:NQ2:RR%6Q _4005i d BEGIN SCREEN LOOP~ nR0:RR0:X0:K0 xSY,3: RN0JJ1:150 J(NS(1)1):JJ1140 J1J:JNSRN1 SET UP QUESTIONS  J1010,111  2790260010}# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION(ST%3:RE::2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$3SN(785). FD$(4)     SLOTa]-SP%,NS%,RM%: SP%=SUBPROGRAM NUMBER NS=NUMBER OF WORDS RM%=NUMBER CORRECT TO GRADUATE ]2N1$"":I1(771):N1$N1$((I771))::NF$"SRF-"N1$: N1$=STUDENTS NAME NF$=STUDENTS FILENAME ]3SN(785)^7PR$" ":S%0: PR$,S%=DUMMY VARIABLE \ 60010\279025\SUBPROGRAM XX/6 LEVEL-8_\ COMPREHENSION: TRANSITIONS (PG. 24)\"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\%INITIALIZATION](ST%3:RE:::: ST%=SUPERTALKER  ,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:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"jSY,3:CO,4:INV:K15:I140:PC,I,K:TX," ":::NO:CO,2PC,2,2:TX," A. HISTORY C. PHYSICAL EDUCATION ":I239:PC,I,3:TX," "::PC,2,4:TX," B. ENGLISH D. SCIENCE "$ DISPLAY SCOREVSY,3:CO,2:DE,1,1,40,20:PCE SUBS   0 INSTRUCTIONS AND BLOADS;:10021:"READ THE CLASSES IN THE BOX. THEN READ":"THE LIST OF TOPICS. TYPE THE LETTER OF":"THE CLASS TO WHICH EACH TOPIC BELONGS.";:"HIT RETURN TO GO ON. ";255K1:1:<IX$(2)"WASHINGTON"-TL$(1)"B":L$(2)"A":UIX$(1)"CIVIL WAR":IX$(2)"PLANETS"oL$(1)"A":L$(2)"D":IX$(1)"WONDER":L$(1)"WON/DER "*>IX$(1)"CREATURE":L$(1)"CREA/TURE"IX$(1)"SPIRIT":L$(1)"SPIR/IT " PAUSL$(2)"D":=IX$(1)"ADJECTIVES":IX$(2)"BRITISH COLONIES"W(L$(1)"B":L$(2)"A":IX$(1)"TENNIS":IX$(2)"VOLLEYBALL"L$(1)"C":L$(2)"C":IX$(1)"INDEPENDENCE":IX$(2)"PARTICIPLES"L$(1)"A":L$(2)"B":JIX$(1)"VERBS AND NOUNS":e3010 h#m END SCREEN LOOP,r120E DATA FOR QUESTIONSjIX$(1)"CELLS":IX$(2)"COLUMBUS"L$(1)"D":L$(2)"A":VIX$(1)"SOCCER":IX$(2)"SEEDS"`L$(1)"C":L$(2)"D":IX$(1)"SOLAR ENERGY":IX$(2)"THERMOMETERS" L$(1)"D":,10: #PC,10,9:TX,L$(X)1 $16368,0:R$:;? , 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 GOTO 110 c END QUESTION LOOP CO,2^ (L$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L127":::"BYE":D$;"RUN HELLOHI1"p L$L$(X)282y 290 PC,12,8:TX," ":PC,12,8:TX,"GOOD" SN1āI11000: SN1āI200205:TN,I,5: 300 "SN1āI15:TN,255ESTIONS AND SPEECH FOR QUESTION[ (J6)(X1)įPC,5,4:TX,"DECLARATION":PC,9,5:TX,"OF" (J7)(X2)įPC,8,5:TX,"GEORGE" PS(11(IX$(X))2) SY,1:PC,PS,6:TX,IX$(X) ANSWER ENTRY CO,3 SY,1:PC,10,8:L$" ":ENS,L$,1,T%,AL%NSRN1( SET UP QUESTIONS W J1010,1110,1210,1310,1410,1510,1610,1710 SET UP SCREEN AND SCREEN PARTICULARS K0İ4010:5010 BEGIN QUESTION LOOP X1NQ SY,1:DE,1,4,20,9:INV:FI:NO:DE,1,1,20,10 DISPLAY QUNF$"SRF-"N1$ 3SN(785)0 <L$(10),IX$(10)j FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE." PNS8:NQ2:SP3:RR%6 d BEGIN SCREEN LOOP nR0:RR0:X0:K0 sSY,3: x RN0JJ1:150 J(NS(1)1):JJ1140 J1J:J  2790260010@ SUB-PRG XX/3 LEVEL-7C CLASSIFYING# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION(ST%3:RE:: 2L1(771):N1$"":I1L1:N1$N1$((I771))::      :100tc21:"TYPE THE WORD THAT FITS IN EACH":"SENTENCE. USE THE WORDS FROM THE BOX.":"HIT RETURN TO GO ON.";}c255c1:cK1cI1550:II:: (PAUSE)cc DISPLAY SCOREdSY,1:DE,1,1,20,10:CO,4:INV:PC,2,1:TX,BX$:NO:CO SKATE "b*Tb4IX$(1)"I'LL HAVE ANOTHER ":IX$(2)"PLEASE ":IX$(3)"THERE IS A "b9W$(1)" OF ICE CREAM.":W$(2)" AT THE RED LIGHT.":W$(3)" ON MY NEW SHIRT."bCL$(1)"SCOOP":L$(2)"STOP ":L$(3)"SPOT ":MX5:BX$" SCOOP STOP SPOT "bbc70aNN1:N3N0:X0:99(a3003a40010zaIX$(1)"THE KITTEN IS STILL VERY ":IX$(2)"CAN YOU ":IX$(3)"THE "aW$(1)" .":W$(2)" WITHOUT FALLING?":W$(3)" FELL ALL NIGHT."bL$(1)"SMALL":L$(2)"SKATE":L$(3)"SNOW ":MX5:BX$" SNOW SMALL55,10:: TONE FOR WRONG ANSWERG`ZPC,10,6:TX,L$(X):16368,0:R$:;P`^400V`d` SCORING`L$L$(X)RR1:RRRR1:WR0`L$L$(X)WW1:WRWR1:RR0`5010`(RR6)A27:40010`(WR5)(W18)A25:40010aWR2İ4000:X0:,1,1,20,10:PC,1,6_FCO,38_GENS,L$,MX,T%,AL%:CO,2H_HDI,0:5010_I(L$)27Ĺ769,4::(4);"BSAVE ";NF$;",A768,L127":::"BYE":(4);"RUN HELLO"_JL$L$(X)įPC,12,8:TX," ":PC,12,8:TX,"GOOD":I200205:TN,I,5::350`YI15:TN,2 ROW.":PC,28,19:TX,"YOU HAVE"FSY,1:PC,19,10:DI,4:SN1įCL,40|RR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,0J770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"j:D$;"RUN HELLOHI1" " SAGE":PC,7,9:TX,"NO.":PC,25,9:TX,"PURPOSE":PC,5,10:TX,"-------":PC,25,10:TX,"-------":SY,1:I14:PC,4,5I:A$(I):TX,A$:TX,".":$ DISPLAY SCORESY,3:CO,2:DE,1,1,40,20:PC,1,19:RR$(RR%):TX,"GOAL = ":TX,RR$:TX," RIGHT IN A HIT RETURN TO GO ON. ";!255.K1:1:}SY,3:CO,4:DE,1,1,40,6:FI:INV:CO,2:DE,2,2,39,5:FI:DE,1,1,40,20:NOPC,2,3:TX," A. TO INFORM C. TO TEACH A LESSON ":PC,2,4:TX," B. TO PERSUADE D. TO ENTERTAIN"SY,3:PC,5,8:TX,"PAS)IX$(1)"SPIRIT":L$(1)"SPIR/IT "/@ PAUSE SUBSF L j INSTRUCTIONS AND BLOADSu:10021:"READ STORY 6, IN WHICH EACH":"NUMBERED PASSAGE HAS A PURPOSE. TYPE THE";:23:"LETTER OF THE PURPOSE SHOWN IN THE BOX.";"ND QUESTION LOOP e3010 h6 m END SCREEN LOOP? r120^ FTXN,27904,1,3,N1$,PR$,R%w  DATA FOR QUESTIONS L$(1)"B":L$(2)"D":L$(3)"A":L$(4)"C"  IX$(1)"WONDER":L$(1)"WON/DER " * >IX$(1)"CREATURE":L$(1)"CREA/TURE"5:TN,255,10:% #PC,16,Y:TX,L$(X): $16368,0:R$:;D '3010R , SCORINGs 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 GOTO 110 c E,1,T%,AL% CO,2g (L$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L127":::"BYE":D$;"RUN HELLOHI1"y L$L$(X)282 290 PC,16,Y:TX," ":PC,16,Y:TX,"GOOD" SN1āI11000: SN1āI200205:TN,I,5: 300 "SN1āI1 SET UP SCREEN AND SCREEN PARTICULARS< K0İ4010:5010V BEGIN QUESTION LOOPb X1NQ SY,1:DE,14,6,20,9:INV:FI:NO DISPLAY QUESTIONS AND SPEECH FOR QUESTION YX5 ANSWER ENTRY CO,3 SY,1:PC,14,Y:L$" ":ENS,L$771))::NF$"SRF-"N1$$ 3SN(785)8 <L$(10),IX$(10)r FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE." PNS1:NQ4:SP10:RR%4 d BEGIN SCREEN LOOP nR0:RR0:X0:K0 sSY,3: x J1 SET UP QUESTIONS 1010'  2790260010H SUB-PRG XX/6 LEVEL-7C PURPOSE OF WRITING# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION(ST%3:RE:: 2L1(771):N1$"":I1L1:N1$N1$((I     :ITH JUNE 198282 NXX"]gj::SY,3:PC,5,10:TX,"WORKING..."::(4);"RUN HELLOHI1":g CODE SEGMENT BY NORMAN D. SMITH JUNE 1982 6fRR$(RR%):INV:I0RR%:TX,RR$::NO:CL,0:DI,0 2 THEN K% = 1c100:END LOOPcDATA FOR QUESTIONS)dSUBPROGRAM #, NUMBERN$"A"N$"D"277b279*bSN1ĺ(7)6b1:220GbN$(N$,AL%)[bN$L2$(J%)282db290bR%R%1:RR%RR%1:WR%0:SY,1:CO,2:PC,14,9:TX,"GOOD"bSN1āI200205:TN,I,5:b300b"W%W%1:WR%WR%1:RR%0c#SN1āI15:TN,255,NOaBEGIN QUESTION LOOP1aSY,1:CO,5(1)OaPC,10,9:TX," ":PC,10,9kaN$" ":ENS,N$,1,T%,AL%a(N$)27Ĺ769,SP%:RE::PC,3,5::(4);"BSAVE ";NF$;",A768,L127":RE:PC,9,5:TX,"BYE":I15000::(4);"RUN HELLOHI1":: PRESSEDb0`K%0İ40007`CO,2:FTXN,P(J%),3,3,N1$,PR$,S%aCO,0(1):INV:DE,1,1,40,20:PC,1,1:TX," ":DI,3:TX," ":DI,1:TX," ":DI,2:TX," ":DI,0::AL%0: T%,AL%=DUMMY VARIABLES FOR &ENS B_Z1000:GET DATA[_c5000:DISPLAY SCOREr_dBEGIN SCREEN LOOP_xSY,3:DE,1,1,40,18:INV:FI:DE,1,1,40,18:NO:CLEAR SCREEN EXCEPT SCORE_R%W%NS%J%J%1:150`J1%J%:J%NS%(1)1:J%J1%14RIABLES FOR &FTXN COMMAND M^<L1$(NS%),L2$(NS%): L1$=QUESTION L2$=ANSWER ^FR%0:RR%0:W%0:WR%0:J%0:K%1: R%=NUMBER RIGHT RR%=NUMBER RIGHT IN A ROW W%=NUMBER WRONG WR%=NUMBER WRONG IN A ROW J%=PROBLEM POINTER K%<>0 IF DIRECTIONS NEEDED ._PT%0TALKER SLOTh]-SP%,NS%,RM%: SP%=SUBPROGRAM NUMBER NS=NUMBER OF WORDS RM%=NUMBER CORRECT TO GRADUATE ]2N1$"":I1(771):N1$N1$((I771))::NF$"SRF-"N1$: N1$=STUDENTS NAME NF$=STUDENTS FILENAME ]3SN(785)^7PR$" ":S%0:PR$,S%=DUMMY VA \ 60010\279025\SUBPROGRAM XX/5 LEVEL-8f\ COMPREHENSION: PURPOSE OF WRITING (PG. 20)\"VERSION 1 DONE BY M.D. FULLMER ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\%INITIALIZATION ](ST%3:RE:::: ST%=SUPER     :.:10:5:"LOADING PROGRAMS...."M (4);"BLOAD BSYM-SYMTABS"i103,1:104,92:23552,0(4);"RUN HELLOHI"( 8H\ "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  1u{bD! a04 mJo oP40;03K oP4[oқL3 /L nzt L8 s0,% L@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     d-!=/P% /Y@eJ)Sw04P0ڙw҉@=/˗&, r︎9c\;3Ҋr %;8Sw P4P.,`;J%jr@3|N#=/\︎롶Y,ir8@K mP;@J)Sw P4P.,`;J%9cK;8@\r8n[[[cd`````~Shp!P4P430!|҉y+ M%;+&,7 rn je;#+47 rn je;3+ ( P%[8PSw04P0ڙw҉@﹩=K;8 =\;#X@0,4 reþ8LABCՆ>ֆ?sȥ Ȫ͆0 ҅ >&eee膝JJJJ)ŝƝ 0ȵƞढ़0 ,LƂLڂiiij8SPNN(SP): PICK UP ACTUAL S/P # BASED ON MENU CHOICE[b&769,SP: POKE SUB-PROGRAM NUMBERtb0(4);"RUN LESSONXX"zb:bD:RE:SY,3bNPC,10,10:TX,"INSERT THE NEXT DISK."bXPC,8,12:TX,"PRESS RETURN TO CONTINUE."bb16368,0:R$:cl(4);SNL8aFL4aL$" "1aEN,L$,FL,T%,A%Ca(L$)27580zaA%0560: IF ONLY CR THEN GOTO LESSONXX FOR SRFaSP(L$): SP=SUB-PROGRAM NUMBERaSP1360: INVALID CHOICEaSPNL1580: STOPaSPNL360: INVALID CHOICE 5b0)`|I1NL,`PC,3,(LSI3):TX,LN$(I)2`F`PC,3,(LSNL4)V`ST$(NL1)x`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."aPC,1,LG"&_LN$(7)"7. PURPOSES OF WRITING"F_J ********************g_T THIS CODE DISPLAYS MENUo_^:}_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$(8^NN(7)10?^LN$(0)"COMPREHENSION SKILLS - UPPER LEVELS"f^LN$(1)"1. MAIN IDEAS AND DETAILS"^LN$(2)"2. CAUSE AND EFFECT"^LN$(3)"3. CLASSIFYING"^LN$(4)"4. MAKING JUDGMENTS"^LN$(5)"5. FACT AND OPINION"_LN$(6)"6. PARAGRAPHINU"]LN$(NL): HOLDS MENU TEXTh]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]NN(4)5]NN(5)6^NN(6)< \39076 \d HELLO PROGRAMk\i PACKAGE 6 / DISK 1 / SIDE 1 - COMPREHENSION SKILLS-UPPER LEVELSu\n120\x768,0:769,0\ ********************\NSP11: NSP=# OF SUBPROGRAMS]NL7: NL=# OF LINES IN THE MEN        ҢUMUKcS*ZqYVXYc8rcqDZ8UUSUq9ss1fu59s8T3ƒ8ǜřS9)c+ǜqf̙SrI'Xű✒ӌӘ3-NkJTUZLTVUYUiVeZthiYYLUճ4 oU*IVR*[RIHm۶HV+گJHuk%"ҿJBխHJmT"jMDRRUTURUlVU*jSZUQժ*VJ$!mRU%ODBzk+IUmRK$Q_%RU[J"}-RURJnBTZU*MJP!jWoJIJBT[{*iZBTk{IժZIUaA^"J/Zګ*QUmK vTUJU ԶZ%U~eJjUR$UVzURUKU)U"Qn-VJj@v%Ej+ UuU%U_.QR׶$QU)U۪_*mRVTZ֖ZkRUZB$ZZ*UTJURUTUJVjRZUejUZUET%jjjURզZJjU*ZYTURURJiTRUJRJeYjj*/UPI*UU/UJVJ RmZjo[HT*_[D**_VH%TJ _~#RUԔ"HuUIUUBj$TUR[o$V$&!ےDնZ&J*RjHQ몊Zυ.IRjBޭjPVBJV*URZETTգVJ)UZZTPj*V*UjJVՊUmUIjJUZTU.-RTUkVUi*TU+RU^UTeU VYi'diZT>KRjU)]VjRHmTWbQ5TRmEVjUDJkU*jE+j֫V./ZQVZRmSIZ* (Rj%?C[VJUJURUժRjY!jZcY eYfeU8DZDZq11DZ*q+qǕXY8qqPC,1,3:TX,"YOU'RE ROLLING ALONG":PC,5,5:TX,N1$:TX,"!"?I226:DP,6144,I,15:SN1įTN,(150I),30@A6000CI12000:II:GM COMPLETED SUBPROGRAM N COME BACK.":51000  '  - l vA12000,2100,2125,2135,2180,2240,2300,2360,2420,2470,2180u 510  COMPLETED SUBPROGRAM XX/1 3000 CO,5(1):SY,1:PC,5,5:TX,"GREAT START!" 6000 I12000:II: !4 010,1710,1810,1910,1910" 35010. A1A116 A1F RE:TS,ST%W A1NS34010h  MODULE #Nn  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,"THE \(222)6340W ^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,35(Y,N) ":SN$"Y":PC,17,17:EN,SN$,1,T%,AL%:(SN$)27N1$(27):329a KSN$"Y"SN$"N"ī330| 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,1X,"PLEASE ENTER":PC,1,3:TX,"YOUR NAME.":CL,0:SP,255L FN1$"E " 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ĺD$;"RUN HELLOHI1"E JSY,3:PC,1,17:TX,"SOUND ON?  39076# ONERR GOTO 600102 LESSONXX<nST%3csNS11: NO. OF SUBPROGRAMS~uSN(785): SOUND FLAGx::D$(4)::RESET:TS,ST%:} ** DIM'S, DATA, INIT., BLOADS **6(768)994107 E768,99:PC,1,1:CL,30:SP,220:T     !VUTu]UITUZJJRZZUR^RZ)TUjURUum$J))RUjuJmJJV**IUV%V"WRQUZUJKVUjRURZҪ%ZUiNZRUJ[UiRJUZJURꪥ*lU+UiiVJJ*RTTTUUKURU֏O5T*/5%MTҒU-UYդ?⠭+zVjZU],jݢRTiJIATѭVj)JUO*RjSZ%J囪R*UV*QjmTVU%e*QRUZk*%)U֪JImTUjRRU֪JuJ"IUZZJJRJպJ$Rm[*%ImRuJJj)TUkzWB֪Z]Uz8TRiURu JMV%**{84ZjUZUZ] :V]U*%U :n-UVVK .NU*IU*U]Uut94u]jUZoAqQkjTjUE /^MJ*VUhRUjUR &]*V)kQkK*j%8:xkIիjɟV8kVUjժ$PURV U jUTimUI%UmURTV'J?YŧҪjjUmu URUkU)Uj*RTRVjJmJITj)UUJ*)UZZU"EkJԪѴjƖZN%EU*KUJK-eraiKUJTXuRT],Ryr)TΡNUE 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      08967 @!@"@ #@%$@ @@@@@/A@0A @.A` ͯ@@L@@N@@@N@@ @N @ @!@N!@!@"@N"@"@#@N#@#@Lʊ @@@L@@@@@@@ @ @ @!@!@!@"@"@"@#@#@#@`  0`@H@ڍ@I@@@@@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     @@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@ʊ @ 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          R SU֒JJTiVZOTնJ)mHUWUVvPEUJUJT*jJj[RJIUmUVJURZuURj+VUJREZRU[U%UVU RKhUWUIUTUV *VU*ZU{UUuJjJjmZJR 6٢ Zi-dKRUVJZժ*JU*JJjRKJj~UݶjRG j튤JDPjWI/IZ[VRժWTZJZժJUԪ*VUjjTUJU*URUJժe5U58Fhi\VEjUr9Z\FKRqi45.-K-ʪ[EHUTRIjJժRUR!U*VRU*VIIVUj Um[RQkWE*mRU^@ҋ@76N[ٯHbS︎Hn\3;n )seysSwIt3Is*b ( !i;]40 !#r,I@︎Ljc0 %\(@%3e 3 =r3"YzPiw9tқgd|Nrn m/ n"p;#N@︎">@9=2],@7Js 2i!)a/n(xiP@Si t7\J%l)e;8 )Mr0;#[%‹ /\-iJn0;@dSw҉@Zg+ (`4P;=53M)wdQy`````~d7\K ( .@ !W m/ nw@︎ nrn nh!+KӐ/҉r () !ieSw[sJ%=/ː4@c;!=m\m%) ( i%(9n\8 5ʛ3J)S@`px8p`@@@p88p`````````ppxx@`p`?|~````````pp`|~p@?````````|`x@?@````pp1u`````~?@`|x`````````@x~p|?    DJm-ERZR$ju*jղtY*zU)UU-jť*IV,UVVlJEj*Z)*ݪRUZZmVkU*Z VUjxVUMeYePZ8y,SRjUiPZj-cXrUQQ*^:R%QmwUjkUbZ[믁_V*U_EzJiU ڪRԮTjTTZRET[ JU[[U*UjjZ*ZVUIRT*j[VR)[JIRU[Z+Hm*RJVm*I*mVU)TڪJR*UVJIjURjVUJIUZVUJRUV eThhjRKT*uUH*IJնRj1;qiVi.qy1Ms:-SUe+++++* u `` PPpag}UU*****+*.uuuuuuuU**jj::.._WWUUUUUzj::*: 08((((8UUUUUUUU~j**jz>/UW_uuu}/{?+/{n.UUUUW_}:jjjjjj  JUeTKUZZUKjUTUVRRVU*UTUM ZUZZ*ڪP RJjZUJZRUZUZ$)VUTmU IT:VRVRUZUTmkT׭"BjjUT{RHQպmURRUWInJ"IU*(ZmB"mO Z.Im*I$}$&߂"-Jj+/jUR|KT%yKRՋ+[ R_Q^T+QV ijUH[UI݊Tk_Z%UTJTj JRVTVRVZVZUVZjRժTURG-*VJTZEUTJmEiUTiZUVJW˪TjTZ5*K)jZjTUVZ*ժJZ*jZiJVZVj. i5KjZR^UZe*+U֪jJKiZUIW)-JVnH%VUJ -H-I/^mJRmImI+WUHAꖨWHoJ~Av-Ho I-n }KH WH"W"oA&[~Q$KT[Z} +䷠ީV[U%TjUJVRUZժ*J[U%RjURz*IZj**Uw RUVJZIZkk*%VUjoJRRUU+IRUjUJ{DjJ[%TZT_*j*UZRVRV*S[j%OJCVUꢕ*jKKUTX*-ZVjQ֖JjR*M[4SVjJUZ@eKSZJSs@+KZU,jUYJYeKUZUZj?XRUJ+RՏZTRUTUTR+TZJZZUTVjJTi~%VZT}UJU*J")Z[VUJUJjVU*TVkTJUz*IJUjJVUIJUI^D-Tj/WZ@.򥢪~ꢪ^Z@V[J*EUTTJTJWUV4R%jW+VIVP\ hTSIJ hK)@jJ*_*,VTR5U.RTTUʟ*W5VkU*ԟժR~\XU HELLOHI1" (NAn02 %;8 %il );e/*aJd}"8uP3P$K@4P4ʜ ){#Ή@.@++ ( 2KP&07)@%Y ;҉y%;8 ( yr P.@7IrC4^@ޛ4CpUdg[W\@``~8uP) yd,Hy8t)!7l{/K;8 t;Y@5Hy8︎y@l{/K;eP3s*n@މn4y ;8 ( \ʛ,S)MgY);e︎)r| dz% %il ! !!TݪTj_ Em- i_*ZUUPWj/\T z[Pʒ ;W!i{Ao Vj) -HMH׊jK&ET$_ z ɮJZURJ[]TZ]j* ZBkWڪTGZ6QUSVj[TU*) ]kQU*Q-*DU.VUjT=E)oQ쿽ժ۪Ԫݚꪀܮꪪꀀꀀܪꀀܪꪪ߀cY``/`!cM``/`" \;cʙf\ %n@n0 ( L C ;e!8 (]s=/\% n"Ȁ`)028 ,3 \Ҍz҉i %is8/P3}a%nY+4@\ nse7$8Ms03gm[ xt ) (Ҝ\8 P#=5\[+0$\/J%; )@҉yjn (?[W\@``~!8 P0r !Jcr7Zt@4 ( ,9sz%P4^@8$9r ,3v :a Mr0;4[0J% jv \΋7 a;3҉@جip#)u )sxt )@["L80 /P7IrJ2YJ% ;," " "| ]w ֚ꪪ@p<몪@تժժꅅ``pתꪺp`߫뫪1uC ꪪ뇇`뚚"" "