' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųų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`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( N  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL 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<ֆ?s<~b4!:04]8D'Yn#e3)yt@04:07 sKuӀn0#8lL-t0;@p04 s:l sKuӀN|xt hrP;a ) /Jrsia҉rr /@7t 5: J% {; c)a;8 %nﴎy@e<Ӏ@!IrHn)a (P'i@@448NHn)a (ﴎ@-MP@)8wc#@4!NN 5ﴎ#@4;eMWKIUVO`````~"k=2!n ((c;8 d,Cﴎ+@4P48@)a@9P9 J% @ir8N(l;# #@P4% e !Ir@y@4;8 dt+;#@0e %s8)aJfÀP1u8 ,33yl sa!tk;H,i@4P,@P) Y;!=5/ ( ;L7=%9wy@)@[p@)K҉@9a;P7 a %L ( |5 /\Ny@Y@eHmy@4P3]J% !{ n)Y((0!P. /yr jUT/QՖR^RjJDTVR iZ WV _UR*ZTRUZjJRJUʪJMRTJU4Tƪ88e4.XÙfXUi8Vʲ,-㲌88NSqLrYZj:2GcUNU9pUZV6::8UTUS 'iqʲVTZK'ZՊJVZUZtj+KRU*eVZ*jjUEEOR*URVVRZUV!}U)IUVUDIUVJRUJJU@mUT_ [&j++U%jU+ҿ@W[UVRUԪ *m*TKBmUTUJUVԥJ%U/QRUVUiZZiiU*ԪnRRk*UTI+ReZU ZU jiYejVUJUպUHZ[!UVJmmTV*!ڶU)꭪Hj۪*RTTZJJlUV6"ک*jJNSV**YZUefXX"f:(4);"RUN HELLO"N"j)ZZ꽭H*Uvo[JTZJTV jݶ*TUkw$TUնJժjZTVRVRjZUJTUV TUժV*$VUZ*-TJJZrJVRJTUmjUJj J*IIU]VRJZJ)IVV!%k{JD$jmJIJTUmkJR$VIDm{J$"RUն$%IVk֪T*UjDJJImmmUJZ۶$)j*JRk"mnJ$I$In*I"TRRRjU*%"*ZmUITkUTUJDRV[%RJRUZ[IJ/;T%WU$UնmURIZkkUIz *IJoU$I)UZJJjUIT$%i[*$ֶR%jmImE$%QVU!uR$)mVR]I"RkۻURTm*j[Uk%IjK QZj$IJImm۶V*%IRZ*KV*AUZU%Z%RkkU*Jk%U[%J*V%U$"Tv[HRjm*JUJڻm[%RTjURTRUݻm$I$)Um۶*%)TUV*JJUֶUDmۭJ)I$Ujm$v*Iv[T"$UV$R*U*_I% UTV)UHmwk$)jmj%_I}%PU"ֶwRStE*ljjNZХ&ZjieVZbSK---E]\E]\RK.6b+-J++mlqVU6hUKM-R-jы6h-Jժ]*E]J-J+JZjEzEvԅ-J+**-uUVTU-JUJRUmUZUTjպJV%]%UH["iZ R*R%ժV T JzR%JUjT VZ[mjJZUV* ZVURJIZ* ZR JժZ9&Z0V6ZZNfjJ!\jYiVZVjiEGWZ:hV6TբVZZUZhJKK+J+---TUj*jmJOV@UIڶ֭TU$TUj*I_[@ڪJUڪJ)`/-PWҮjkTU@WPhWRURR[*U}_EvUmURUjVV*U~ЅJUVҪT~z.VZJVVjR^FT%T+jjVJU#T%ڪVJVI%9a8L/3›, !P$=2d9af;CP#3P3@aP4 ( ;"@/҉rHmy@s[JcCeXN8 yIs+J%9a06eK3y@Y@eHmy@4P3]J% !{ n)Y8 ( 03ts\s;$)p'n Jv IN@]8 ,)@,])[8 )P/ ( !@-" m+@"@Md JgϾ`````~8 )P/ ( !@-" m+@"@Md J%9a8H30nnl a %5 %++ C8)LXr4P/Xnk/ ;& /!@'0$ L8 yIs+J%9a06eK3@P38 Mm I@]P)K҉@  ijJR jʪ*ʖ[JRVLJR֪*Z*UTYPUUAuKJV$*U^j["mZU(++TQMT*,.*體VJAQ"U mIjUJHVu[$URUտPHnےTVVU[JTJzVZU*U}UTVRzUT蕴R[I[Uj**VR[ZUjR hTUmI*jj}jTZZZjRRZEmVVTZ+VTUKHUZ+VU+IUTZR UJUVjjT~J_R TK* VJZJVRVJUJJJTۭJV*$UZ%mVTVV!U۪*j[%jJUkTժJUjjUZj PU+UժTRU *-j)կDZIU%UJ*ij&ԭ*^IU$ZjRUhV[JݒjjRtTUJJԕ[VՒJЛTRKiVzVZUjTIUi+RVDڶVRR u]JEjU=PkkU*JP]_HUZV[ʪZTVRUP*Vj ZVZZjUJJJEVvUJIoUlk-Zm%UV俐VUHjZIZJo$* ZUjJDUTUU귪mUJjjU{U*AU*Z*DjkVIT*ZU_*j**ڊQ V"U[jKJm?WIj[UUWZRJZ_*QZRj0HھR$mIRuU%U?4H^DU[?,HT[[JWiRU d+ikTT-@Z~mmKIj*HUm)Z*/TVRUjU*VRUJJUjVrZUeSJZ*jJ*-TYU*YjUZ V*V귐Z%[UZ /UԭjR JJUJJn*!)UVJTUVJu"$m[*Tk*V%BRm*U*kTU$IUmVU)RkR 2WUQUTZ T^RUmVU/JjUTK-V٦J+hVZI;Jz+vR+][TU+Z:ij jTU*t^UժJjUmITJ[TjRVږTlA-tKV*U݊*ZUjPTUURUj[%VjPeTVRUj*ZAURROj[Rj Vժ-*ժVUTU ZUZI iV*/-JmU[*Uڪ*UKZ_BjjRWP[IUN LESSONXX"$hj:D$;"RUN HELLOHI1":D$;"RUN HELLOHI1"erUSIR@+2><~@704P3 S@Ly@Ίp|% nJ%r Hy򺛧8\xs;Y@4P38e@*t[4P,xﻯxsr;PP3@$8pXrC5)rxsr J%8r( )P70(z Jڶ$RUJV*IjU%Ro$Jժj[UJZU۪ZTRV RUj*jJUj[URTZ*RU*jU jRUm*JTUZ*UZ RjjU)UZR TVZ*j*JZZj[Z*TZUʪ-ɒV*IZTRT)I~j+!TuWkU"*TUU*T?DZV{*%QjVTVT*?tK*!m֭$jDRUmIVUIU{T"նն$*nTV*UDHv")IjwUIHUkVIJVjJ_UE TmmHRDmk%Tն[%IJնVUvJI$IڭZ5jUjZVVVSZYZjjڢj[hU VV-ٕTR[TJժjJ*UZժj**VQ+U*JR!jVJRIjUժ{U[JD%m*$UmmU%)Ov-U"V$ITm*U_ U~m+Q%RZJ*UkV"?#}kVݭJZZjUZZUTUj RZUTUjRWTJZZV j8 jsV,Tj*ZU*ZUZ-J*T*+URSUVMTZ5UKU+T+RUZR*JUVZRRUJURuiRVUJlRRU[U-*ZiVJU*ʲZV*JiUTҴ*UJӪe֪T*ZTZJZ-ZiVZU j*VUYZ,U-ZZŦKURTUiiJԪ*Z*VZ-VUiJRUZKժJUڪ%ڶJ*R) jU"iZ%VVIU*JUUJRڶ$IjRjT*T*%iVRVj[%RJUjUJUBR)Uu[IZjZjTW$֪նJRUkUTURjJZUZ%RTjmT ZjJJURZ%UDUjIUmJD%UDjUZRUJRU%V%HJDZJU*IJTR VJ$(Z+V%UURZUIU@ުT-Iޭ$ZTUU V"ޫZkURURUJڪJjU*PݶVE$*IUm+)UJUJjTU*Bm@HmU*!VJRkUV%IHVUZAԶUJjU)H@^U ]%VU*ZRUIJ$VUUUjjJ*RUJ+{HߒZUZR J o%IV%ժ*V%+m%"*IJVURJRUJUER߶ZI$JRU*ZIW$ݻViJJUZRRm֒VUԪJUZRUjTI"Zw$ZUIW"UZI)Imk$V*IR"ImV$Jv[*UTkk*%$$IjVJ$ZUm[JV)"%%o$IVVJJDJ*TUJmJJVZ JuoDjRZTZV%VJU+nlRE[ll jZj*iJjRKTU*Ҋ.mtqŖZiVKUZUKTUTR--TՖZժ*JUtRZRTUr-ElqF7lыVZiViVZjVZUi-dK6TKJ+R+JG(j*V.P*UkJTWZZVP[t%[բ^QZ[* j VVUTRRVZ* RZժ*%))[RJZZ*j.ZRkU*Z)VVU*֪RTZFZ7J*TK ժZJU[lijɖZVҪJYZZjiieUeVbK'[UZZYTUiɥVMZjiijeUSjUJRէ'BURUVUR*U V/.d%mJTVү%URTUjmRU*RU*^VUTRRUZRe{R"%)j ZUTު֪VTTZZT RUV**RZ[ժZ%JR֪ZV j VU[$RVkmjVRjV$)ZھVթT% ?>*uDjQzmPTuBhz*IJNO:CL,0:DI,0DJ770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"j:D$;"RUN HELLOHI1"SROW GOAL\ NS=NUMBER OF SENTENCES: NQ=NUMBER OF QUESTIONS\"SP4:NS12:RR%8:NQ1b]INION, TYPE O.";0:"HIT RETURN TO GO ON. ";91:B255H$\ 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,40L$(1)"F":PP(11) *6>L$(1)"O":PP(12)<M PAUSE SUBSS Y w INSTRUCTIONS AND BLOADS}K110021:"READ STORY CARD 8. THEN READ THESE SENTENCES. IF A SENTENCE IS A FACT, TYPE F. IF IT IS AN OP"F":PP(1)B%VL$(1)"O":PP(2)+@L$(1)"O":PP(3)F [L$(1)"F":PP(4)anvL$(1)"O":PP(5)|L$(1)"F":PP(6)6JL$(1)"O":PP(7)L$(1)"F":PP(8)L$(1)"O":PP(9)bvL$(1)"F":PP(10)"YES")WW1:WRWR1:RR0$@5010=JRRRR%A27:40010^T(WR5)(W18)A25:40010~^ IF WR > 2 THEN GOTO 110c END QUESTION LOOPe3010hXm END SCREEN LOOP ********************r120 DATA FOR QUESTIONS L$(1)3SY,1:PC,12,8:TX," ":PC,12,8:TX,"GOOD"ISN1āI1950:jSN1āI200205:TN,I,5:s300"SN1āI15:TN,255,10:$CO,2:PC,10,7&TX,L$(1):16368,0:R$:;, SCORING1(AX$"YES")RR1:RRRR1:WR06(AX$:CO,0 PC,10,6:CO,3% L$" "@ ENS,L$,2,T%,AL%:CO,2W AL%0L$"G":280h L$(L$,AL%)z (L$)27272 280 769,SP::D$;"BSAVE ";NF$;",A768,L127" ::"BYE":D$;"RUN HELLOHI1" L$L$(1)AX$"YES":282AX$"NO":290INV:I140:PC,I,2:TX," ":PC,41I,8:TX," "::CO,2:NOE 5010u BEGIN QUESTION LOOP ******************** X1NQ SY,1:DE,1,7,20,9:INV:FI:NO:DE,1,1,20,10 DISPLAY QUESTIONS AND SPEECH FOR QUESTION ANSWER ENTRY SY,10JJ1:150) J(NS(1)1):JJ1140> J1J:JNSRN1] SET UP QUESTIONS J1010,1110,1210,1310,1410,1510,1610,1710,1810,1910,2010,2110 SET UP SCREEN AND SCREEN PARTICULARS K0İ4010 FTXN,P,1,4,N1$,PR$,R%; CO,4:2)< FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE."g GSY,3:CO,2:PC,15,10:TX,"WORKING..." H(4);"BLOAD BTFO-L6-D2,A6150" JP(1)6170:I212:P(I)P(I1)(6148I): _ d BEGIN SCREEN LOOP nR0:RR0:X0:K0 xSY,3: RNd # VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982y % INITIALIZATION (ST%3:RE:: ,L$"B " 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$ 3SN(785) <L$(10),IX$(10),P(1  2790260010& LEVEL 6Y COMPREHENSION: FACT AND OPINION PAGE 27k BILL WAGNERy 5-25-82 SP=SUBPROGRAM NUMBER: RR%=RIGHT IN A ROW GOAL NS=NUMBER OF SENTENCES: NQ=NUMBER OF QUESTIONS"SP14:NS12:RR%6:NQ1     cZժժվիժժ1uC ՀՀꀀժժ   :TX,RR$::NO:CL,0:DI,0 eceJ770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"|ej:D$;"RUN HELLOHI1" L " RULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION ( ST% = 3: & RE: & TS,T RETURN TO GO ON. ";"d255:K1+d1:1d$Ed DISPLAY SCOREdSY,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"dSY,1:PC,19,10:DI,4:SN1įCL,40eRR$(RR):INV:JJ0RR10:TX,"WORKING..."0c(4);"BLOAD BTFO,A6150"]cP(1)6170:I28:P(I)P(I1)(6148I):jc::100c21:"READ STORY 7. THEN READ THE SENTENCE ONTHE SCREEN. IF THE SENTENCE STATES AN OPINION, TYPE O. IF IT STATES A FACT, TYPE F.";d" HIQUESTIONSbL$(1)"F":)bVL$(1)"F":9bL$(1)"O":IbL$(1)"F":YbL$(1)"O":ibL$(1)"O":ybJL$(1)"F":bL$(1)"O":bL$(1)"YES":b>L$(1)"NO ":b PAUSE SUBSb b b INSTRUCTIONS AND BLOADSc:RE:SY,3:PC,15, a1L$L$(X)RR1:RRRR1:WR0Ba6L$L$(X)WW1:WRWR1:RR0La@5010eaJRRRR%A27:40010aT(WR5)(W18)A25:40010a^ IF WR > 2 THEN GOSUB 4080ac END QUESTION LOOPae3010aham END SCREEN LOOPar120 b DATA FOR ::"BYE":D$;"RUN HELLOHI1"/`L$L$(X)2828`290`PC,12,8:TX," ":PC,12,8:TX,"GOOD":SN1āI200205:TN,I,5:`SN1āI1950:`300`"SN1āI15:TN,255,10:`$PC,10,7:TX,L$(X):16368,0:R$:;`%3010`, SCORING,40,9:FI:CO,2:DE,1,1,40,20'_5010A_ BEGIN QUESTION LOOPM_X1NQ}_ DISPLAY QUESTIONS AND SPEECH FOR QUESTION_ ANSWER ENTRY_CO,3_PC,10,6:L$" ":ENS,L$,1,T%,AL%_ CO,2`(L$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L127":^RN0JJ1:1501^J(NS(1)1):JJ1140F^J1J:JNSRN1e^ SET UP QUESTIONS ^J1010,1110,1210,1310,1410,1510,1610,1710^ SET UP SCREEN AND SCREEN PARTICULARS^FTXN,P(J),1,3,N1$,PR$,R%_DE,1,1,40,1:CO,4:FI:DE,1,9ST%: HOME : HGR ]):Z]2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$h]3SN(785)]FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE."]PNS8:SP13:NQ1:RR%6]_4005]d BEGIN SCREEN LOOP]nR0:RR0:X0:K0]xSY,3:~ \60010\ 279021\ ONERR GOTO 60010j\ SUB-PRG XX/2 LEVEL-4C FACT AND OPINION\# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982\% INITIALIZATION]( ST% = 3: & RE: & TS,      )@l@/k3@; 3ts;\)@iHk& 7+s8P 3 !P. n[,ynS 7 4P3% 30;[,P(@4 oS@ ,);\@Xc@e\8 )3)@/P#[$t[@k;PoS+(, '+"3%,~ 3@k0!P"8@ ) sir naK/: Ne )K@4;\ޛ,-Nee 4P!H@Ý(!P;rP3;P 3 3y8@P; 3 !P-@m\PrP )|Λ, /  J0RR:TX,RR$:$NO:CL,0:DI,0*mJ770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"j:D$;"RUN HELLOHI1",UMBER: RR%=RIGHT IN A ROW GOAL NS=NUMBER OF SENTENCES: NQ=NUMBER OF QUESTIONS"SP12:NS6:RR%5:NQ1^ # TYPE NO. HIT RETURN TO GO ON. ";.255:1:4$H DISPLAY SCORESY,3: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:JL$(1)"NO":PP(5)0L$(1)"YES":PP(6)66G PAUSE SUBSM S q INSTRUCTIONS AND BLOADSwK110021:"IF YOU THINK THE PERSON IN THESE STORIES";22:"COULD HAVE AVOIDED TROUBLE TYPE YES. IF" 23:"NOT, R > 2 THEN GOTO 110,c END QUESTION LOOP6e3010=hXim END SCREEN LOOP ********************rr120 DATA FOR QUESTIONSL$(1)"YES":PP(1)BVL$(1)"NO":PP(2)L$(1)"NO":PP(3) L$(1)"YES":PP(4)n"SN1āI15:TN,255,10:0$CO,2:PC,9,8O&TX,L$(1):16368,0:R$:;Y'3010g, SCORING1(AX$"YES")RR1:RRRR1:WR06(AX$"YES")WW1:WRWR1:RR0@5010JRRRR%A27:40010T(WR5)(W18)A25:40010^ IF W2 2806 769,SP::D$;"BSAVE ";NF$;",A768,L127"X ::"BYE":D$;"RUN HELLOHI1"u L$L$(1)AX$"YES":282 AX$"NO":290 SY,1:PC,12,8:TX," ":PC,12,8:TX,"GOOD":CO,2 SN1āI1950: SN1āI200205:TN,I,5:300 X1NQ< SY,1:DE,1,7,20,9:INV:FI:NO:DE,1,1,20,10l DISPLAY QUESTIONS AND SPEECH FOR QUESTION ANSWER ENTRY SY,1:PC,9,7:CO,3 L$" " ENS,L$,7,T%,AL% AL%0L$"G":280 L$(L$,AL%) CO,2 (L$)2727(NS(1)1):JJ1140+ J1J:JNSRN1J SET UP QUESTIONS o J1010,1110,1210,1310,1410,1510 SET UP SCREEN AND SCREEN PARTICULARS K0İ4010 FTXN,P,1,4,N1$,PR$,R% 5010 BEGIN QUESTION LOOP ******************** 4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE."[ GSY,3:CO,2:PC,15,10:TX,"WORKING..."x H(4);"BLOAD BTMJ,A6150" JP(1)6170:I26:P(I)P(I1)(6148I): Z d BEGIN SCREEN LOOP nR0:RR0:X0:K0 xSY,3: RN0JJ1:150 JVERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982s % INITIALIZATION (ST%3:RE:: ,L$"B " 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$ 3SN(785) <L$(10),IX$(10)0 FD$(  2790260010& LEVEL 6T COMPREHENSION: MAKING JUDGEMENTS PAGE 9f BILL WAGNERt 5-20-82 SP=SUBPROGRAM NUMBER: RR%=RIGHT IN A ROW GOAL NS=NUMBER OF SENTENCES: NQ=NUMBER OF QUESTIONS"SP12:NS6:RR%5:NQ1^ #      ZKTkW%ժ*j$^I}UIUժJHQR۪TU[Rm%ږRUZB ݵ UV Rj$m"UBT'IX[mmUZjmjU*UVʢZ*EkY*MJiJRVURjQUJTUTJTUZ?*URZTTj+cJ ,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"Dj:D$;"RUN HELLOHI1"":TX,RR$:lNO:CL,0:DI,0rJ770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"j:D$;"RUN HELLOHI1"UQ=NUMBER OF QUESTIONS]"SP11:NS9:RR%7:NQE`SY,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):INVJJ0RR:TX,RR$:NO:CL,0:DI,0+J770,A2::SY,3:PC K1100?21:"READ STORY 6. IF THE STATEMENT IS"r22:"TRUE OF BOB'S GARDENING JOB, TYPE G. IF"23:"IT IS TRUE OF HIS DELIVERY JOB, TYPE D."24:"IF BOTH ARE TRUE, TYPE B. HIT RETURN. ";255:1:$ DISPLAY SCORL$(1)"B":PP(3) 3L$(1)"G":PP(4)9nNL$(1)"G":PP(5)TiL$(1)"D":PP(6)o6JL$(1)"B":PP(7)L$(1)"G":PP(8)L$(1)"D":PP(9)b PAUSE SUBS   INSTRUCTIONS AND BLOADSRRRR%A27:400106T(WR5)(W18)A25:40010V^ IF WR > 2 THEN GOTO 110nc END QUESTION LOOPxe3010hXm END SCREEN LOOP ********************r120 DATA FOR QUESTIONSL$(1)"B":PP(1)BVL$(1)"D":PP(2)C,12,8:TX,"GOOD"'SN1āI1950:HSN1āI200205:TN,I,5:Q300o"SN1āI15:TN,255,10:|$PC,10,7&TX,L$(1):16368,0:R$:;, SCORING1(AX$"YES")RR1:RRRR1:WR06(AX$"YES")WW1:WRWR1:RR0@5010J " ENS,L$,2,T%,AL%:CO,25 AL%0L$"XX":280F L$(L$,AL%)X (L$)27272a 280 769,SP::D$;"BSAVE ";NF$;",A768,L127" ::"BYE":D$;"RUN HELLOHI1" L$L$(1)AX$"YES":282 AX$"NO":290SY,1:PC,12,8:TX," ":P3:TX," ":PC,41I,7:TX," "::CO,2:NO2 5010b BEGIN QUESTION LOOP ********************n X1NQ SY,1:DE,1,7,20,9:INV:FI:NO:DE,1,1,20,10 DISPLAY QUESTIONS AND SPEECH FOR QUESTION ANSWER ENTRY PC,10,6:CO,3 L$"GJ1:150% J(NS(1)1):JJ1140: J1J:JNSRN1Y SET UP QUESTIONS J1010,1110,1210,1310,1410,1510,1610,1710,1810 SET UP SCREEN AND SCREEN PARTICULARS K0İ4010 FTXN,P,1,5,N1$,PR$,R%( CO,4:INV:I140:PC,I,9 FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE."d GSY,3:CO,2:PC,15,10:TX,"WORKING..." H(4);"BLOAD BTCO-L6-D2,A6150" JP(1)6170:I29:P(I)P(I1)(6148I): _ d BEGIN SCREEN LOOP nR0:RR0:X0:K0 xSY,3: RN0J1g # VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982| % INITIALIZATION (ST%3:RE:: ,L$"B " 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$ 3SN(785) <L$(10),IX$(10)F  2790260010& LEVEL 6] COMPREHENSION: COMPARISON AND CONTRAST PAGE 31o BILL WAGNER} 5-25-82 SP=SUBPROGRAM NUMBER: RR%=RIGHT IN A ROW GOAL NS=NUMBER OF SENTENCES: NQ=NUMBER OF QUESTIONS "SP11:NS9:RR%6:NQ       Iժժժժժժժppccpp`sg`sgpxpsgߪժՂjU@||ժժժժժcsgsgO3|OsgOsag?~sgsaߪժՂ*]*Dժժժժժժժժժ~O`Og?~s`s`{ժժժժժժժ?xxsgxx`sg`sgxxxsgߪժՂժժժժժժժժժժժժժժժժժժՂ1įCL,40>RR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,0DJ770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"j:D$;"RUN HELLOHI1" 0 INC. COPYRIGHT 1982% INITIALIZATION( ST% = 3: & RE: & TS,ST%: HOME : HGR FOR":"EACH QUESTION. HIT RETURN TO GO ON. ";= K1İ5010O255:K1:1:U$i 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:SN100:21 JIJ:(J1)(XNQ)ı4(J2)(XNQ)ıJI1ĺ"READ STORY 5. THEN READ THE":"QUESTIONS ON THE SCREEN. TYPE THE NUMBER";:23:"OF ONE ANSWER FOR EACH QUESTION.";::"HIT RETURN TO GO ON. ";.JI2ĺ"NOW TYPE THE NUMBERS OF TWO ANSWERSX2)L$(X1)" "L$(X)L$:L$L$(X2)","L$(X1)L$(X)L$@Q PAUSE SUBSW ] { INSTRUCTIONS AND BLOADS:RE:SY,3:PC,15,10:TX,"WORKING..."(4);"BLOAD BTCO,A6150"P(1)6170:I24:P(I)P(I1)(6148I):::m END SCREEN LOOPr1206 DATA FOR QUESTIONSTL$(1)"1 ":L$(2)"2 ":V:L$(3)"1":L$(4)"3":L$(5)"1":L$(6)"2": CHECKING FOR RIGHT ANSWERX12X1:X22X2:L$(X)L$(X1)","L$(X2)L$L$(X1)L$(X2)" "L$(X)L$L$L$((X):16368,0:R$:; %3010, , SCORINGM 1L$L$(X)RR1:RRRR1:WR0o 6L$L$(X)WW1:WRWR1:RR0y @5010 JRRRR%A27:40010 T(WR5)(W18)A25:40010 ^ IF WR > 2 THEN GOSUB 4080 c END QUESTION LOOP e3010 hD$;"BSAVE ";NF$;",A768,L127":::"BYE":D$;"RUN HELLOHI1"J J2İ2005\ L$L$(X)282e 290 PC,14,9:TX," ":PC,14,9:TX,"GOOD":SN1āI200205:TN,I,5: SN1āI1950: 300 "SN1āI15:TN,255,10: $PC,15,2:TX,L$1NQ4 DISPLAY QUESTIONS AND SPEECH FOR QUESTIONn X2įSY,3:DE,27,17,40,18:INV:FI:NO:DE,1,1,40,20 X2įFTXN,P(2J),1,1,N1$,PR$,R%:SY,1 ANSWER ENTRY CO,3 PC,10,2:L$" ":ENS,L$,3,T%,AL% CO,2; (L$)27Ĺ769,SP::1:150$ J(NS(1)1):JJ11409 J1J:JNSRN1X SET UP QUESTIONS } J1010,1110,1210,1310,1410,1510 SET UP SCREEN AND SCREEN PARTICULARS 4080 FTXN,P(2J1),1,1,N1$,PR$,R% 5010 BEGIN QUESTION LOOP X ):I 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$W 3SN(785) FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE." PNS2:SP10:NQ2:RR%4 ZK0 _4005 d BEGIN SCREEN LOOP nR0:RR0:X0 xSY,3: RN0JJ 60010 279021 ONERR GOTO 60010Y SUB-PRG XX/8 LEVEL-4C COMPARISON# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION( ST% = 3: & RE: & TS,ST%: HOME : HGR      ߪիվկվվժתժժժժժժժկժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪժժկ׺ծկxgx{ծպժժժc~?~OOcժժժՂժߪժժժժժժժժժժժժժժժժժժՂժssgsgO~OsgOs`c?~sgs`ߪժՂծպժժժxsgx~~xxժժժՂתվc]x~sgOg?~3ds`gcqw]cC]ccqccq]Ac]Accwg]AcqsժժժժժժժߪժՂժժժժժժժժժժժժժժժժժժՂUתիվտվժתժժժժժժժծժժպժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪժժծկ]]A]cg]]Aacg]ccc]]Agc]qccA]wc]gsծպժժժp?~OOpxժժժՂߪժժժժժժժժժժժժժժժժժժժՂVE"*SY,1:PC,19,10:DI,4:SN1įCL,40`RR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,0fJ770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"j:D$;"RUN HELLOHI1"0RR:TX,RR$::NO:CL,0:DI,0.J770,A2::SY,3:PE THE NUMBER OF THE WORD THAT"J"COMPLETES EACH ANALOGY. HIT RETURN";_ :"TO GO ON. ";q255:K1:1:w$ 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 HA1)"1":L$(1)"1":(L$(1)"3":8L$(1)"2":I PAUSE SUBSO U s INSTRUCTIONS AND BLOADS:RE:SY,3:PC,15,10:TX,"WORKING..."(4);"BLOAD BTCA,A6150"P(1)6170:I26:P(I)P(I1)(6148I)::10021:"TYWW1: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)"3": VL$(1)"2":L$( PC,12,8:TX," ":PC,12,8:TX,"GOOD"A SN1āI1950:b SN1āI200205:TN,I,5:k 300 "SN1āI15:TN,255,10: $SY,1:PC,10,7:TX,L$(X):16368,0:R$:; %3010 , SCORING 1L$L$(X)RR1:RRRR1:WR0 6L$L$(X)ON LOOP X1NQC DISPLAY QUESTIONS AND SPEECH FOR QUESTIONV ANSWER ENTRY` CO,4 PC,10,6:L$"1":ENS,L$,1,T%,AL% CO,2 (L$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L127":::"BYE":D$;"RUN HELLOHI1" L$L$(X)282 290+J1J:JNSRN1/ SET UP QUESTIONS T J1010,1110,1210,1310,1410,1510 SET UP SCREEN AND SCREEN PARTICULARS FTXN,P(J),1,3,N1$,PR$,R% SY,3:CO,4:DE,1,1,40,1:FI:DE,1,8,40,8:FI:DE,1,1,40,20:CO,2 5010 BEGIN QUESTI::NF$"SRF-"N1$ 3SN(785)3 <L$(10),IX$(10)m FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE." PNS6:SP9:NQ1:RR%6 _4010 d BEGIN SCREEN LOOP nR0:RR0:X0:K0 xSY,3: RN0JJ1:150 J(NS(1)1):JJ1140   2790260010C SUB-PRG XX/1 LEVEL-5C ANALOGIES# 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))    U*U*U*U*U*}ժssgsgxx~`~3dp?~sg3dߪժՂծժպժժժժժժՂתվw]p~sgOg?~fs[]{wmw]]wwo]]{][]][w]s[][w{sժժժժժժժժժժժժժժժժժժժժժժժժՂתծտվժߪժժժժժժժվժժվժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪժժժվկժժժժժժժժժժժժժՂ]][mw[]][[][]ww]]][[]]{]w[msw][sծպժժժx?~OOx?pժժժՂծժժպժժժժժժՂU*U*U*U*U*}ժssgsgpp~`~fx?~sgfߪժՂծժݪպժߪժՂG..."::D$;"RUN LESSONXX"3j:D$;"RUN HELLOHI1" P SUB-PRG XX/5 LEVEL-4C ANALOGIES# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION ( ST% = 3: & RE: & TS,ST%: HOME :SY,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:PC,5,10:TX,"WORKIN:RE:SY,3:PC,15,10:TX,"WORKING..."C(4);"BLOAD BTA,A6150"pP(1)6170:I29:P(I)P(I1)(6148I):}::10022:"TYPE THE NUMBER OF THE CORRECT ANSWER.";:"HIT RETURN TO GO ON. ";255:K1:1:$ DISPLAY SCOREtFOR QUESTIONSL$(1)"2":-VL$(1)"1":=L$(1)"1":ML$(1)"2":]L$(1)"3":mL$(1)"2":}JL$(1)"3":L$(1)"1":L$(1)"3":L$(1)"YES":>L$(1)"NO ": PAUSE SUBS   INSTRUCTIONS AND BLOADS'ING$ 1L$L$(X)RR1:RRRR1:WR0F 6L$L$(X)WW1:WRWR1:RR0P @5010i 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 27":::"BYE":D$;"RUN HELLOHI1"3 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,10: $PC,10,7:TX,L$(X):16368,0:R$:; %3010 , SCOR,1,9,40,9:FI:DE,1,1,40,20:CO,2+ 5010E BEGIN QUESTION LOOPQ X1NQ DISPLAY QUESTIONS AND SPEECH FOR QUESTION ANSWER ENTRY CO,3 PC,10,6:L$" ":ENS,L$,1,T%,AL% CO,2! (L$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L1J1:150% J(NS(1)1):JJ1140: J1J:JNSRN1Y SET UP QUESTIONS J1010,1110,1210,1310,1410,1510,1610,1710,1810,1910 SET UP SCREEN AND SCREEN PARTICULARS FTXN,P(J),1,3,N1$,PR$,R%! CO,4:SY,3:DE,1,1,40,1:FI:DE HGR ):O 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$] 3SN(785) FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE." PNS9:SP8:NQ1:RR%6 _4005 d BEGIN SCREEN LOOP nR0:RR0:X0:K0 xSY,3: RN0J5 60010 279022 ONERR GOTO 60010_ SUB-PRG XX/5 LEVEL-4C ANALOGIES# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION ( ST% = 3: & RE: & TS,ST%: HOME :     תծժտժկתߪw]scOsgOg?~gs}]{wuwM]ww_]_{A{]A{w]s}A{w{sg`sgxxsg`ժժժժժժժժժժժժժժժժժժՂUS6`LxQɿu3'RͲʎRʎ]]]ɤR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɤ`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& 68,L127":hnj:(4)$;"RUN HELLOHI1"nmLY^^ȱ^ȱ^eȱ^e(ӊ0Цe^^Ӝu`".Q`pNФbptťܥm2<(-Py0\|66e<g< JJJJj귍h68,L127"SLǯPC,9,13:TX,"PRESS RETURN TO START":PC,11,15:TX,"THE LESSON AGAIN."vVǹ16368,0:A$:A$(13)51030j:(4);"RUN HELLOHI1"oO'wr  (4);"RUN ";SP$'wr  (4);"RUN ";SP$Ln8ǹ769,A1:770,A2::(4);"BSAVE ";NF$;",A7SY,1:PC,19,10:DI,4:SN1įCL,40ZRR$(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" PYRIGHT 1982% INITIALIZATION ( ST% = 3: & RE: & TS,ST% BEST EFFECT TO FINISH EACH"Y"SENTENCE. TYPE ITS NUMBER. HIT RETURN":"TO GO ON. ";k255:K1:1:q$ 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"$L$(1)"3":L$(1)"YES":/>L$(1)"NO ":@ PAUSE SUBSF L j INSTRUCTIONS AND BLOADS:RE:SY,3:PC,15,10:TX,"WORKING..."(4);"BLOAD BTE,A6150"P(1)6170:I25:P(I)P(I1)(6148I):::10021:"CHOOSE THE JRRRR%A27:400108 T(WR5)(W18)A25:40010[ ^ IF WR > 2 THEN GOSUB 4080s c END QUESTION LOOP} e3010 h m END SCREEN LOOP r120  DATA FOR QUESTIONS L$(1)"2": VL$(1)"1": L$(1)"1": L$(1)"3":  ":PC,12,8:TX,"GOOD":SN1āI200205:TN,I,5:J SN1āI1950:S 300q "SN1āI15:TN,255,10: $PC,10,8:TX,L$(X):16368,0:R$:; %3010 , SCORING 1L$L$(X)RR1:RRRR1:WR0 6L$L$(X)WW1:WRWR1:RR0 @5010/ DISPLAY QUESTIONS AND SPEECH FOR QUESTIONB ANSWER ENTRYL CO,3q 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)282 2904 PC,12,8:TX," RN0JJ1:150- J(NS(1)1):JJ1140B J1J:JNSRN1a SET UP QUESTIONS J1010,1110,1210,1310,1410,1510 SET UP SCREEN AND SCREEN PARTICULARS FTXN,P(J),1,1,N1$,PR$,R% 5010 BEGIN QUESTION LOOP X1NQ: HOME : HGR  ):W 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$e 3SN(785) FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE." PNS5:SP7:NQ1:RR%5 _4005 d BEGIN SCREEN LOOP nR0:RR0:X0:K0 xSY,3:  60010 279021 ONERR GOTO 60010h SUB-PRG XX/7 LEVEL-4C CAUSE AND EFFECT 2# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION ( ST% = 3: & RE: & TS,ST%     AVE ";NF$;",A768,L127":::5:8:"BYE":I1500:II::Q̈(4);"RUN HELLOHI1"nꈭ(222)9Ĺ216,0:35015RE:TX,"DISK FULL":PC,1,5:MT,15:EN,N1$,10,T%:J769,A1:SP$""510O(4);"RUN ";SP$8ǹ769,A1:770,A2::(4);"BSAVE ";NF$;",A70ڄ cRE:SY,3:PC,3,9:TX,"INSERT THE NEXT DISK.":PC,1,11:TX,"PRESS RETURN TO CONTINUE."|A$:A$(13)34050Ά34520ӆ:(4);"DELETE ";NF$:(4);"RUN HELLOHI1"؆::(4);"RUN HELLOHI1"ˆ769,A1:770,A2:350508Lj:(4);"BSDP,6144,6,4K SN1įTN,255,200:I12:TN,255,100::I13:TN,255,200:y (4);"BLOAD I.QUEEN,A6144":DP,6144,22,4 SN1įTN,60,200:I12:TN,60,100::I13:TN,60,200: I12000:> \32010dDP,6144,14,10 }}}3451PLETED SUBPROGRAM XX/13c RE:CO,4:PC,5,5:TX,"TERRIFIC!!":I120:SN1įTN,75,20:TN,150,20:{ SN1āI12000:I  COMPLETED SUBPROGRAM XX/14 RE: :(4);"BLOAD I.KING,A6144" CO,3:PC,1,8:TX,"YOU DID A ROYAL JOB."  X,"YOU'RE ROLLING ALONG":PC,5,5:TX,N1$:TX,"!"_ I226:DP,6144,I,15:SN1įTN,(150I),30e k  COMPLETED SUBPROGRAM XX/12& RE:CO,4:PC,5,5:TX,"GOOD WORK!":I120:SN1įTN,75,20:TN,150,20:0 SN1āI12000:Iv  COM: SN1āI12000:I J AT COMPLETED SUBPROGRAM XX/10^ RE:CO,4:PC,5,5:TX,"WONDERFUL!":I120:SN1įTN,75,20:TN,150,20:h SN1āI12000:I  COMPLETED SUBPROGRAM XX/11 RE::(4);"BLOAD I.BALL,A6144"0 PC,1,3:TSY,1:PC,19,10:DI,4:SN1įCL,40WRR$(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" TPYRIGHT 1982% INITIALIZATION ( ST% = 3: & RE: & TS,ST%: EST CAUSE TO FINISH EACH"V"SENTENCE. TYPE ITS NUMBER. HIT RETURN":"TO GO ON. ";h255:K1:1:n$ 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"!(1)"2":L$(1)"YES":->L$(1)"NO ":> PAUSE SUBSD J h INSTRUCTIONS AND BLOADS:RE:SY,3:PC,15,10:TX,"WORKING..."(4);"BLOAD BTC,A6150"P(1)6170:I25:P(I)P(I1)(6148I):::10021:"CHOOSE THE BRRRR%A27:400106 T(WR5)(W18)A25:40010Y ^ IF WR > 2 THEN GOSUB 4080q c END QUESTION LOOP{ e3010 h m END SCREEN LOOP r120  DATA FOR QUESTIONS L$(1)"1": VL$(1)"3": L$(1)"3": L$(1)"2": L$":PC,12,8:TX,"GOOD":SN1āI200205:TN,I,5:H SN1āI1950:Q 300o "SN1āI15:TN,255,10: $PC,10,8:TX,L$(X):16368,0:R$:; %3010 , SCORING 1L$L$(X)RR1:RRRR1:WR0 6L$L$(X)WW1:WRWR1:RR0 @5010 J DISPLAY QUESTIONS AND SPEECH FOR QUESTION@ ANSWER ENTRYJ CO,3o PC,10,7:L$" ":ENS,L$,1,T%,AL%y CO,2 (L$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L127":::"BYE":D$;"RUN HELLOHI1" L$L$(X)282 2902 PC,12,8:TX," N0JJ1:150+ J(NS(1)1):JJ1140@ J1J:JNSRN1_ SET UP QUESTIONS J1010,1110,1210,1310,1410,1510 SET UP SCREEN AND SCREEN PARTICULARS FTXN,P(J),1,2,N1$,PR$,R% 5010 BEGIN QUESTION LOOP X1NQ- HOME : HGR  ):U 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$c 3SN(785) FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE." PNS5:SP6:NQ1:RR%5 _4005 d BEGIN SCREEN LOOP nR0:RR0:X0:K0 xSY,3: R 60010 279021 ONERR GOTO 60010e SUB-PRG XX/6 LEVEL-4C CAUSE AND EFFECT# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION ( ST% = 3: & RE: & TS,ST%:      z# ?? ͠د ӭˠ ƭʠ ƭڠ ƭȠ٭٭ ٭נ ϭ̶IJƭŠŠ" ɮǠɮΠɮ̠ɮŠ   Ϡ ϭ̶IJ ʠ ϠƭΠƭ Ӡ àŠà Š ͠د ͠د ͠د ͠د ͠د ɠĠ ͠د !͠د "͠د ͠د ͠د ͠د ͠د  ͭӠɮϠ ɮǠɮҠɮˠ͠د͠دϠɠ ɱؠ رƠҠ иNN SKILLS k\n120}\x768,0:769,0\ ********************\NSP14: NSP=#OF SUBPROGRAMS\NL8: NL=# OF LINES IN THE MENU]LN$(NL): HOLDS MENU TEX7 @!@"@ #@%$@ @@@@@/A@0A @.A`NS`NLLS@L$  " NN ͯLINES 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(bA6 wNp ( )r 7nyr;N nmҀ3@4,Y8H@b]Znfd2:8*0@4@ !P)4P7Ir8t88r@7[҉@t03X| 9P90/ 8echp$o wNp ( )r 7nyr;N|0!3!:!;c;#m{] !\84\xs3(pn;eK)@@@Jl z4d( n4 @\ .;echp$o+@=`````~@*,@Έr7Ӝ%sechp$o w 9P4P.إ0;`4!=38*0% )9l n4P"ztm;#m0&9@%8L@d0g@(i@YnK )dK]K҉@t8;@)@@@   :.:10:5:"LOADING PROGRAMS...."M (4);"BLOAD BSYM-SYMTABS"i103,1:104,92:23552,0(4);"RUN HELLOHI"( JTUCTUBRUTGVuTTRJoMPսVIQUժzU%)U ZQU-tʥ***UiJҪZMUVV*KXN+] 5YjҤMWZ[jV*jEĶ&VUR^$}UE [HJ W JǂץBժҫCp84:^V*YVz*UUKeY+[[ :gCe8 %)d(صyr@.@;78 %\ M鎀38 %;iY\\;Lq[R@+2><~8 ( g )[)id;!Ir88 ( g )9d:%04 29rP4P$J%mssYҋ a3P8 /a$(3*e ;)8 ( %*n KŠn ʼeҊn )P2Hr8L$(LLO" ET 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$:?@ SRF MANAGEMENTB(4);"RUN SRF DELETER"'#*#j::(4);"RUN HE,1,40,20dPC,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 WITH A BLUE FIELD." PC,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     mUEK ]-T[UQrA*i_.HRB%mJ*][֪JE[*֪@v%%jV@mKVTIBֶ+jR_(ڶZU JVU*U*WKj*U*U]-IVRUUK,UiVMҲZMURZZZ4)sZU8MUӔ5jirjL* Ӫj%kǓU*TjPC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"Gj:D$;"RUN HELLOHI1"8 n.@@(;3Ή@ %@X9@uNP$,@/ \ﴎ@@)@,Hy8 %dK*nl !@4P"XdJd(ks]t;8 txs(@$;#҉@inxsMrY;3҉@inxs,M, / /@ !,\Jd} a /Hn)c\]8N:%xss)s [-ghuliIII```~"J[4:cs]t;8 t / u;#Ή@[p@/\ 5K%8 ,d\*eAP;e3Kxsn.@X9@uN@%k8ﴎ8madKzm8 {KYdmP4P-J2.@iij8stijRLgh #Lѥȥ ݠ8埅ȱ堅壅夅 ȪeȩeˠgLgh8 68,0:R$:#cl(4);"RUN HELLOHI ")cveȪi LT >ȥ Ȫ͆0 ҅ >&eee膝JJJJ)ŝƝ 0ȵƞढ़0 ,LƂLڂiNVALID CHOICE JbSPNN(SP): PICK UP ACTUAL S/P # BASED ON MENU CHOICEpb&769,SP: POKE SUB-PROGRAM NUMBERb0(4);"RUN LESSONXX"b:bD:RE:SY,3bNPC,10,10:TX,"INSERT THE NEXT DISK."bXPC,8,12:TX,"PRESS RETURN TO CONTINUE." cb163EFT OFF."aPC,1,LSNL8$aFL42aL$" "FaEN,L$,FL,T%,A%Xa(L$)27580aA%0560: IF ONLY CR THEN GOTO LESSONXX FOR SRFaSP(L$): SP=SUB-PROGRAM NUMBERaSP1360: INVALID CHOICEaSPNL1580: STOPbSPNL360: IrPC,3,LS2:TX,LN$(0)#`|I1NLA`PC,3,(LSI3):TX,LN$(I)G`[`PC,3,(LSNL4)k`ST$(NL1)`TX,ST$:TX,". --- STOP ---"`PC,1,(LSNL6):TX,"PLEASE TYPE A LESSON NUMBER, OR" aPC,1,(LSNL7):TX,"HIT RETURN TO START WHERE YOU L!_,LN$(7)"7. MAKING JUDGMENTS"C_6LN$(8)"8. FACT AND OPINION"^_J ********************|_T THIS CODE DISPLAYS MENU_^:_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`0)"COMPREHENSION SKILLS - MIDDLE LEVELS"Q^LN$(1)"1. MAIN IDEAS AND DETAILS"u^LN$(2)"2. SEQUENCE OF EVENTS"^LN$(3)"3. EVIDENCE TO SUPPORT CONCLUSIONS"^LN$(4)"4. CAUSE AND EFFECT"^LN$(5)"5. ANALOGIES"^"LN$(6)"6. COMPARISON"TE]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)3]NN(3)4]NN(4)6]NN(5)8]NN(6)10]NN(7)12]NN(8)13)^LN$(Q \39076 \d HELLO PROGRAMa\i PACKAGE 5 / DISK 1 / SIDE 1 - COMPREHENSION SKILLS k\n120}\x768,0:769,0\ ********************\NSP14: NSP=#OF SUBPROGRAMS\NL8: NL=# OF LINES IN THE MENU]LN$(NL): HOLDS MENU TEX                    ֚ؠ՟굕ժꪺ֪՚ꀀ֪1u ؀؀ؚꪪﴀժ L)?JJȭ Ѐښ~>ǍШ@` qP@@C@@Օ1uC @`@pxxp @aa@>> ***(((((***!!!!%--%%%5***Յ++----=--"4uNYl /@Xl+H4@#[$)a+LId;@3҉@t҉@Pb,d)asw+ c҈t]8N@Xdޝ(]K›8 %)a@)n)=%@;3P0e Ҁ(0#,@@$@.Y% %0 ]8N@nY@(`;#P2/@/ !@:n /l )P0-&dId04hqomIII```~+703:uӀD(0'( ,idﴎ@Hy@(@+8(s(l ) P3P*|xs,[;uNΉ@4P2i ;#Ή@#Y @4;c΋8 )Y\]Xn@P-   = LESSONXX390765(4);"RUN LESSONXX1";( ЀЀT*𠠨UՕ*Us ЂÀՑ՞ƆÀՁՂЂT*U*U ЀAAAAAaqߪЂA߅1u ՅՀՀՀЂŅr2r{o))/awtw{ #"#=$<$$_[C{_3:CO,2:PC,1,19:TX,"GOAL = 6 RIGHT IN A ROW.":PC,28,19:TX,"YOU HAVE"ReSY,1ePC,19,10:DI,4:CL,40:RR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,0ee770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"f:(4);"RUN HELLO"7904,1:8706d" OTHERWISE,PRESS THE / SLASH KEY. ";Kd*TA,27904,2:870sd4"HIT RETURN TO GO ON.";:1:zdH1dRK1d\:(4);"BLOAD PW-STAR-6B,A27904"dfI1550:II:: (PAUSE)dpdz DISPLAY SCOREdSY,1:DE,1,1,20,10HeSY,:J%3cI2I%14:J%3-cI3I%28:J%3Rc(IX$(3)"I.STREET")(I3)I%29ecDP,6144,I%,J%kcucSY,1{cc:(4);"BLOAD PWI-STR,A27904"cc21:"IF THE PICTURE BEGINS WITH THE /STR/ SOUND, PRESS THE LETTERS STR."; d TA,22)"STR":L$(3)"STR"bNUbX:IX$(1)"I.STRAWS":IX$(2)"I.STEPS":IX$(3)"I.STREET"^bb650blW$(1)"STRAWS":W$(2)"STEPS":W$(3)"STREET"bvL$(1)"STR":L$(2)"/":L$(3)"STR"bbI13bSY,3b(4);"BLOAD ";IX$(I);",A6144"cI1I%2a(RR6)A27:9505a(WR5)(W18)A25:950MaWR2İ750:X0:110jaNN1:N3N0:X0:130sa230|a950a&:IX$(1)"I.STAR":IX$(2)"I.STRING":IX$(3)"I.STREAM"a0650a:W$(1)"STAR":W$(2)"STRING":W$(3)"STREAM"bDL$(1)"/":L$(GOOD":I200205:TN,I,5::430`I15:TN,255,10::PC,6X4,8:CO,4:INV:TX,L1$:16368,0:R$::PC,6X4,8:NO:TX," ":PC,6X4,7:TX," "`450`` SCORING`L$L1$RR1:RRRR1:WR0`L$L1$WW1:WRWR1:RR0`900XXX" _mFL4$_rENS,L$,FL,TL%,AL%:_tAL%0L$"":260K_wL$(L$,AL%)Z_DI,0:900_(L$)27Ĺ769,2::(4);"BSAVE ";NF$;",A768,L127"::RE:PC,9,5:TX,"BYE":I15000::(4);"RUN HELLO"_L$L1$420!`PC,12,9:TX," ":PC,12,9:TX,"^!^ QUESTIONS AND ANSWERS+^XX19^X4X1k^SY,1:DE,1,8,20,9:INV:FI:NO:DE,1,1,20,10^J1įTA,27904,X^J2įTA,27904,(X3)^"PC,6X4,7^@L$(X)"STR"L1$"STR":LS5:440^JL$(X)"STR"L1$"/":LS6:440_hL$" X||~~㸏|?????@@?1u pԴ./*jZUUUUU PX<,*jZVVUUUWVVVTJj+-5U**j+)5uUVvW΃VZk.􍉈 #3eP;cg+04 Ir@04]8D"( #L&J%P;cbXd%@! \04]8wH'L$ʛeP;:04 !@) /N#@L,i@@ ;ch 93%04]8N|xl<e ;cgYn'ފt sKuӀD")H3L3;P;cf sK@04]8NgIIPHIJIII```~ctn404]8n#dL7Ylecf( ) /*rsmrt;N)a#XL0,cp-s sKn\0(e /N%8 )3*t ;P8cfNUE 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","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          )ժZR^UEUjժjU*VUQTUUjUTURUJTVVJjݪjk*Zڶ* ZJTUVU%Tn۪$jU*%IjVUTVV}QNVj*KeeTWUKjVUR-UiKRTj$]VeRuT)[U*IۮVPJJnR7&U@Tij*j*uTU[R?TWTՕjR'TjJ j*[QVVdV@UTZJV?ZRZ_PU5VUT/P˪TV-lJ_PUZjVTU Vj/jZHZJI*K˕(MӮqjZաVK8.S(RJTLW(UժTV%(RRJj(W%VHVTEE mբRRzJJժT@_;Ri/R)UJU_v#j+CUJRV*mEoRWUԪR"^ҭJjUVUIn-Z@Tڥ*RVT @@+/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 P!=);#҉@! %LXl;3҉@! %L8J%- %;3҉@*z@Xrv0) Jeʘ8704P3@+:Xrn*z@Xr;8 (,i@.-(eʘ8H4^@)@҉@e:z;3҉yXt=3+3@#(p) ( /XrJf\@&@( 򧮬'D4P0r)a )\49y~III```~04P3@+ /Xrn*z@Xr;8 (%@&:8 (,i@4P!=);3҉yXtl@!@'3 p) ( 򧮬 $i[l҉@c'D4P'ʞ"3;a;m8 ( 򧮬 ) ( !ys@`px8p`@@@p88p`````````ppxx@`p`?|~````````pp`|~p@?````````|`x@?@````pp1u`````~?@`|x`````````@x~p|?    ДЀ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 ЪՀՀՀՀժժժժ ДЀՠՕ @4P2@%Jn !n !\қe8e85"!!$$%1`~ !07@tK nJ%(i;|^%:s;; Zr07Z@7*@e@#s*g@!N@K8@|]$8e}P$ JT"ZjR @RV]oj%mWTTURVE V[$Z%U-TkTR*D [$Z%UۭRkURJժTVEt_.oIRԶD*֪RUVE @_IERU޵ZUjUVI$mK@-V%Iz_$*UJZRJ[K)$j[K@w[QUo%**UU_UJv*UIZVU**U]ZZU kHjU}J k[Tm$W$Qn$m$IjZHUjE $}J$VTJVUJHTJRUJjRJ7HVmjVJUժZR V+JڶJT*J+I{ wUMUTK-tj-UժRҪɪRƦUjjjjZjjV-UK-5TUVUʪTԲR*U-jU*VZըj*YZZڪ%TҢV[VR*٤VjiVՖ*U+U[jURkeUNZRjUIm%-]ZUR-k*:mhiiZtiieeV*-K-uZIj+ZT.R]RE$mcM``/`ժժժժժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂծժվկպվկժժժժժժժժժժժժժՂkI[]w[k][[][kUw]]k{[]I[]U[]w][ծպժժժccsq?~OOccccժժժՂծժպժժժsgsx?~OgOgsgcժժժՂժcccCaOcscOgsgOgsgcc?~ccsgߪժՂժժժժ+U*U*U~ժGgsgsgOsxOgsgOgscsg?~sgscߪժՂߪתկկժߪպժկժA]p`|pxsgpgca]acc]AwccAawqcwqAcgwqcAժժժժժժժժժ3|O`Og?~sasgժժժժժժժժժժժժժժժժժժՂUժժժժժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂիվծժվկ׺վկժժժժժժիժժժժժժժժժՂw]Aacgw]Aa]gwAcc]wqgc]a]AAac]g||ծպժժժpscx~~ppժժժՂծժպժժժg3|?~OOgGժժժՂ ժժժժժժժppccpp`sg`sgpxpsgߪժՂjU@||ժժժժժcsgsgO3|OsgOsag?~sgsaߪժՂ*]*D       ;J% 3P!)e!Ir=n;n7044)dK( -J/]ʳrIarxs%Jn ( !\8PrCtxsIldkJ2P(\8 ܎rʝ !SeC"M900@28%8p@"zn҉@Ҋn+N@ҙdKN@ʝ7[҉r @ r"r: i]% sP;xst 8P›.0&ʙn0"y % /{kvS[K\`````~-@Xn@& /@4 :҉@[`#\\P7%"k %CP70,曧҉@+C›@;[ 4P,I%;t4P#@/nG @70-I@!K%;dJ2{/P2ir8P҉3J%L2)K  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  ժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂտժժժժվծժժժժժժժժժժժժժժժժժժՂ]]saw}]Us[]}]ww]U]{}]]c]wsawU}ծ׺ժժժs3|?~OOsgժժժՂծժպժժժpscx``p`ժժժՂU*U*U*U*U*}ժcsgdOgsgOsgOCgs?~sgCgߪժՂתժտ+U*U*U~ժppsg~sc`sg`sgpxpsgߪժՂߪծժկկժߪժտժߪwUsgOgGqOg?~cgsg}][k]w}]ww]]o[]{]]{w]}]{w{ժժժժժժժժժsqOgsgOc?~sgcgժժժժժժժժժժժժժժժժժժՂUժժժժժժժժժժժժժժՂժժժժժժժժժժժժժժժժժժՂתժժկժվվժժժժժժժժժժժժժժժժժժՂ]U{]w}]Y{[]}]ww]Y]{}]U[]w{]wY}ծպժժժsgsx?~OOsgsgժժժՂծժպժժժccsq?~OgOgccsժժժՂժGgsg`OgsgOgsgOgcgsg?~sgcgߪժՂժ+U*U*U~ժcccsgOsqOgsgOgsgcc?~ccsgߪժՂߪծժկկժߪպժկժߪUIscOgxOc?~sgcc[][]]w]]Us]]_[k{]k{U][k{w[ժժժժժժժժժsxOgsgOg?~scsgժժժժժժժժժժժժժժժժժժՂJ:JJ0RR:TX,RR$::NO:CL,0:DI,01gzgJ770,A2::SY,3:CO,2:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"gj:D$;"RUN HELLOHI1"Jsk9(pr])[n3 4P0H 0)aJf;J! ( \te4P3% , J% tr !Cn ( \tXt84P0H 00 :+ n|LyrJ!n \,Pه4;#N.@FJ```~4P6sk9(p ,҈tXtXt8}e4P6sk9(p8tsk)0!@;( 3,-g;P%Jn0)w[P;7[)9c /:% ( %`/@･\t J%a9st8@︲6  | ]w ֚ꪪ@p<몪@تժժꅅ``pתꪺp`߫뫪1uC ꪪ뇇`뚚  ծպժժժc~?~OOccժժժՂծժժպժժժxsgx``x`ժժժՂU*U*U*U*U*}ժssg3fOcscOsgOgc?~sggߪժՂծժժպ+U*U*U~ժ?xxsg~sg`sg`sgxxxsgߪժՂתծժկտժծժߪw]sgOccOg?~Cgs}]cwaw}AwwCcgc]{]]{w]}]{wssc`sgpxsg`ժժժժժժժժժժժժժժժժժժՂ0JJ770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"cj:D$;"RUN HELLOHI1""SN1įCL,40gRR$(RR):INVgCO,4:JJ0RR:TX,RR$::CO,2gNO:CL,0:DI,0g hJ770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RU DISPLAY SCOREsSY,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):INVCO,4:JJ0RR:TX,RR$::CO,2NO:CL,0:DI,22:"OF SENTENCES. TYPE M AFTER THE MAIN"X23:"IDEAS. TYPE D AFTER THE DETAILS."y"HIT RETURN TO GO ON. ";:1255:RE:SY,3:PC,15,10:TX,"WORKING...":(4);"BLOAD BTCMI,A6150"P(1)6170:I23:P(I)P(I1)(6148I):$M":L$(3)"D":PP(1)BBVL$(1)"D":L$(2)"D":L$(3)"M":PP(2)HqL$(1)"M":L$(2)"D":L$(3)"D":PP(3)w  PAUSE SUBS   INSTRUCTIONS AND BLOADSK110021:"READ STORY 1. THEN READ THE GROUPS",1:WRWR1:RR0@50102JRRRR%A27:40010ST(WR5)(W18)A25:40010s^ IF WR > 2 THEN GOTO 110c END QUESTION LOOPe3010hXm END SCREEN LOOP ********************r120 DATA FOR QUESTIONSL$(1)"D":L$(2)"āI200205:TN,I,5: 300>"SN1āI15:TN,255,10:q$SY,3:PC,7,15:TX,"THE CORRECT ANSWERS ARE: "&TX,L$(1):TX,",":TX,L$(2):TX,",":TX,L$(3)(16368,0:R$:;, SCORING1(AX$"YES")RR1:RRRR1:WR06(AX$"YES")WW280/ 769,SP::D$;"BSAVE ";NF$;",A768,L127"Q ::"BYE":D$;"RUN HELLOHI1" (AN$(1)L$(1))(AN$(2)L$(2))(AN$(3)L$(3))AX$"YES":282 AX$"NO":290 SY,1:PC,12,8:TX," ":CO,4:PC,12,8:TX,"GOOD":CO,2:SN1āI11000:SN1E,1,1,20,10; DISPLAY QUESTIONS AND SPEECH FOR QUESTIONN ANSWER ENTRY^ SY,3:CO,2i I13} KQ%((I1)2)3 PC,39,KQ% L$" " ENS,L$,1,T%,AL% AL%0AN$(I)"X":266 AN$(I)(L$,AL%) (AN$(I))27272 I UP SCREEN AND SCREEN PARTICULARS/ K0İ4010M FTXN,P(J),1,3,N1$,PR$,R% SY,3:CO,4:DE,1,1,40,1:FI:DE,1,9,40,9:FI:DE,1,1,40,20:CO,2 5010 BEGIN QUESTION LOOP ******************** X1NQ SY,1:DE,1,7,20,9:INV:FI:NO:DX$(10)@ FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE."X d BEGIN SCREEN LOOPm nR0:RR0:X0:K0y xSY,3: RN0JJ1:150 J(NS(1)1):JJ1140 J1J:JNSRN1 SET UP QUESTIONS J1010,1110,1210 SET RR%3:NQ1o # VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982 % INITIALIZATION (ST%3:RE:: ,L$" " 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$ 3SN(785) <L$(10),Ie  2790260010& LEVEL 5` COMPREHENSION: MAIN IDEA AND DETAILS PAGE 30 r BILL WAGNER 4-26-82  SP=SUBPROGRAM NUMBER: RR%=RIGHT IN A ROW GOAL NS=NUMBER OF SENTENCES: NQ=NUMBER OF QUESTIONS "SP1:NS3:      ߪվתתժժժժժժպժժծժժժժժժժՂժժժժժժժժժժժժժժժժժժՂߪժժժժվկժժժժժժժժժժժժժՂA]{uw}AM{[]}Aww]MA{}]]{]w{uswM}Ȫ󄫠 #eȩeѩLl` - H Lӆ ԆLsůtRLgӆhԆsՆtֆstsưƯsgůhgӆhԆsՆtֆstsưƯsgůhhijg` Lӆ Ԇ8stiRR$(RR):INV(JJ0RR:TX,RR$:<NO:CL,0:DI,0BJ770,A2::SY,3:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"j:D$;"RUN HELLOHI1""OHI1"L NS=NUMBER OF SENTENCES: NQ=NUMBER OF QUESTIONS"SP2:NS4:RR%4:NQ1a # ";:4046""THE THIRD ";:4046322:T2$(KK)A255:1:G$[ 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)L$:6 (L$"31")(L$"1,3")(L$"3,1")L$(X)L$:G PAUSE SUBSM S q INSTRUCTIONS AND BLOADSwK1100KK2:J1KK121:T1$(KK)KK14046J4030,4030,4032,4034"THE FIRST ";:4046 "THE SECONDUBSH(L$"254")(L$"425")(L$"452")(L$"524")(L$"542")L$(X)L$(L$"2,5,4")(L$"4,2,5")(L$"2,4,5")(L$"4,5,2")(L$"5,2,4")(L$"5,4,2")L$(X)L$:>(L$"32")(L$"2,3")(L$"3,2")L$(X)L$:(L$"41")(L$"1,4")(L$"4,1")L$(XGOTO 110 c END QUESTION LOOP*e30101hX]m END SCREEN LOOP ********************fr120 DATA FOR QUESTIONSL$(1)"245":P6800BVL$(1)"23":PP(1)L$(1)"14":PP(2) L$(1)"13":PP(3)n SPECIAL SSN1āI15:TN,255,10:$$PC,8,8C&TX,L$(1):16368,0:R$:;M'3010[, SCORING1(AX$"YES")RR1:RRRR1:WR06(AX$"YES")WW1:WRWR1:RR0@5010JRRRR%A27:40010T(WR5)(W18)A25:40010^ IF WR > 2 THEN 10  2807769,SP::D$;"BSAVE ";NF$;",A768,L127"Y::"BYE":D$;"RUN HELLOHI1"vL$L$(1)AX$"YES":282AX$"NO":290PC,12,8:TX," ":PC,12,8:TX,"GOOD"SN1āI1950::300SN1āI200205:TN,I,5:300"OOP ********************$ X1NQT DISPLAY QUESTIONS AND SPEECH FOR QUESTIONj ANSWER ENTRY t SY,1 PC,8,7:CO,3 L$"1 ":ENS,L$,5,T%,AL%:CO,2 AL%0L$"XX":280 L$(L$,AL%) (L$)27272 J2010,2110,2210,23 RN0JJ1:1500 J(NS(1)1):JJ1140E J1J:JNSRN1d SET UP QUESTIONS  J1010,1110,1210,1310 SET UP SCREEN AND SCREEN PARTICULARS 4010 RN1XN1 FTXN,P,1,1,N1$,PR$,R% 5010 BEGIN QUESTION LN0:J0:PR$"PRESS RETURN TO CONTINUE."R GSY,3:CO,2:PC,15,10:TX,"WORKING..."p H(4);"BLOAD BTMID,A6150" JP(1)6170:I23:P(I)P(I1)(6148I): L(4);"BLOAD BTMA-1-16,A6800" _ d BEGIN SCREEN LOOP nR0:RR0:X0:K0 xSY,3: THE NUMBER OF"c 8T2$(1)"THE THREE MAIN IDEAS IN THE PARAGRAPHS. ALWAYS PRESS RETURN TO GO ON. " 9T1$(2)"NOW TYPE THE NUMBER OF TWO DETAILS IN" :T2$(2)"PARAGRAPH OF STORY 2." <L$(10),IX$(10) ACC3: COLOR TO BE USED ' FD$(4):WR0:R VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982v % INITIALIZATION (ST%3:RE:: ,XN0 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$ 3SN(785) 7T1$(1)"READ STORY 2. TYPE  2790260010& LEVEL 6X COMPREHENSION MAIN IDEA AND DETAILS PAGE 33j BILL WAGNERx 5-27-82 SP=SUBPROGRAM NUMBER: RR%=RIGHT IN A ROW GOAL NS=NUMBER OF SENTENCES: NQ=NUMBER OF QUESTIONS"SP2:NS4:RR%4:NQ1a #     1910,1910 35010 A1A110 RE:TS,ST%A A1NS34010R  MODULE #NX ~ 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.":51000340G ^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,PC,17,17:EN,SN$,1,T%,AL%:(SN$)27N1$(27):330O LSN$"Y"SN$"N"ī331j 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)61,3:TX,"YOUR NAME.":CL,0:SP,2557 FN1$"ANNIE "u 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"3 KSY,3:PC,1,17:TX,"SOUND ON? (Y,N) ":SN$"N":=  60010 LESSONXX19nST%3:SUPERTALKER SLOTZsNS14: # OF SUBPROG'S uuSN(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,     !!!!""""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" ST% = 3: & RE: & TS,ST%: HOME : HGEACH SENTENCE. THEN TYPE THE NUMBER OF THE EVENT THAT HAPPENED FIRST.";k "HIT RETURN TO GO ON. ";}255:K1:1: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.":L$(1)"1":"L$(1)"YES":4>L$(1)"NO ":E PAUSE SUBSK Q o INSTRUCTIONS AND BLOADS:RE:SY,3:PC,15,10:TX,"WORKING..."(4);"BLOAD BTS,A6150"P(1)6170:I26:P(I)P(I1)(6148I):::100M21:"READ A27:40010- T(WR5)(W18)A25:40010P ^ IF WR > 2 THEN GOSUB 4080h c END QUESTION LOOPr e3010x h m END SCREEN LOOP r120  DATA FOR QUESTIONS L$(1)"2": VL$(1)"1": L$(1)"2": L$(1)"1":L$(1)"1":8:TX,"GOOD":SN1āI200205:TN,I,5:? SN1āI1950:H 300f "SN1āI15:TN,255,10: $PC,10,8:TX,L$(X):16368,0:R$:; %3010 , SCORING 1L$L$(X)RR1:RRRR1:WR0 6L$L$(X)WW1:WRWR1:RR0 @5010 JRRRR%AY QUESTIONS AND SPEECH FOR QUESTION7 ANSWER ENTRYA CO,3f PC,10,7:L$" ":ENS,L$,1,T%,AL%p CO,2 (L$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L127":::"BYE":D$;"RUN HELLOHI1" L$L$(X)282 290) PC,12,8:TX," ":PC,12,:150" J(NS(1)1):JJ11407 J1J:JNSRN1V SET UP QUESTIONS { J1010,1110,1210,1310,1410,1510 SET UP SCREEN AND SCREEN PARTICULARS FTXN,P(J),1,2,N1$,PR$,R% 5010 BEGIN QUESTION LOOP X1NQ$ DISPLR ):L 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$Z 3SN(785) FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE." PNS6:SP3:NQ1:RR%6 _4005 d BEGIN SCREEN LOOP nR0:RR0:X0:K0 xSY,3: RN0JJ1 60010 279021 ONERR GOTO 60010\ SUB-PRG XX/3 LEVEL-4C SEQUENCE# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION ( ST% = 3: & RE: & TS,ST%: HOME : HG    11: KSY,1TCO,3:PC,5,3:TX,"WHALES HAVE":PC,5,5:TX,"A COOL LIFE."eI12000:Ik COMPLETED SUBPROGRAM XX/4 RE:CO,1:PC,6,4:TX,"HOORAY!":PC,6,6:TX,N1$:PC,3,8:TX,"IS DOING WELL." SN1āI120:TN,75,20:TN,15X/3::RE/(4);"BLOAD I.WHALE,A6144"vCO,1:FI:DE,2,2,19,9:INV:FI:DE,1,6,20,9:FI:NO:DE,1,1,20,10K22812SY,3:DE,1,1,40,20:CO,2DP,6144,K,12:SN1āI20054:TN,I,2:I120:DP,7168,K6,12:DP,7168,K6,120:SN1įTN,75,20:TN,150,20:9SN1āI12000:I?*_4 COMPLETED SUBPROGRAM XX/2>RE:CO,0:PC,5,4:TX,"FINE JOB":PC,5,6:TX,N1$:TX,"!"HSN1āI120:TN,75,20:TN,150,20:RSN1āI12000:I COMPLETED SUBPROGRAM X      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:CO,4:PC,5,5:TX,"VERY GOOD!":IX"j:D$;"RUN HELLOHI1" " ) GOTO 60010x SUB-PRG XX/4 LEVEL-4C EVIDENCE TO SUPPORT CONCLUSIONS# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION ( ST% = 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$;"RUN LESSONXI26:P(I)P(I1)(6148I):+::100S21:"READ STORY 3. THEN READ THE""QUESTIONS ON THE SCREEN. TYPE THE":"ANSWERS.";" HIT RETURN TO GO ON. "; K1İ5010255:K1:1:$ DISPLAY SCORE\SY,3:CO,2:DE,1,1,40,L$(4)" "L$(2)L$4L$L$(3)","L$(4)L$(2)L$UL$L$(4)","L$(3)L$(2)L$[m>L$(1)"NO ":~ PAUSE SUBS   INSTRUCTIONS AND BLOADS:RE:SY,3:PC,15,10:TX,"WORKING..."(4);"BLOAD BTESC,A6150"P(1)6170:e3010h$m END SCREEN LOOP-r120F DATA FOR QUESTIONSlL$(1)"NO ":L$(3)"2":L$(4)"3":VL$(1)"YES":L$(3)"1":L$(4)"2":L$(1)"NO ":L$(3)"1":L$(4)"2": CHECKING FOR RIGHT ANSWERL$(2)L$(4)L$(3)" "L$L$(3)$PC,9,9:TX,L$(X):16368,0:R$:;. %3010< , 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 4080 c END QUESTION LOOPL$)27Ĺ769,SP::D$;"BSAVE ";NF$;",A768,L127":::"BYE":D$;"RUN HELLOHI1"[ X2İ2005m L$L$(X)282v 290 PC,14,8:TX," ":PC,14,8:TX,"GOOD":SN1āI200205:TN,I,5: SN1āI1950: 300 "SN1āI15:TN,255,10:$ QUESTION LOOP X1NQI DISPLAY QUESTIONS AND SPEECH FOR QUESTION X2įSY,1:DE,1,6,20,9:INV:FI:NO:DE,1,1,20,10 X2įFTXN,P(2J),1,1,N1$,PR$,R%:SY,1 ANSWER ENTRY CO,3 PC,9,8:L$" ":ENS,L$,3,T%,AL% CO,2L (:X0 xSY,3:% RN0JJ1:150B J(NS(1)1):JJ1140W J1J:JNSRN1v SET UP QUESTIONS J1010,1110,1210,1310,1410,1510 SET UP SCREEN AND SCREEN PARTICULARS FTXN,P(2J1),1,10,N1$,PR$,R% 5010 BEGIN 3: & RE: & TS,ST%: HOME : HGR & ):h 2L1(771):N1$"":I1L1:N1$N1$((I771))::NF$"SRF-"N1$v 3SN(785) FD$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE." PNS3:SP4:NQ2:RR%6 ZK0 _4005 d BEGIN SCREEN LOOP nR0:RR0 60010 279021 ONERR GOTO 60010x SUB-PRG XX/4 LEVEL-4C EVIDENCE TO SUPPORT CONCLUSIONS# VERSION 1 DONE BY M.D. FULLMER & ASSOC. FOR AMERICAN EDUCATIONAL COMPUTER INC. COPYRIGHT 1982% INITIALIZATION ( ST% = !! ! ! ! ! !!!!!T V , COMPLETED SUBPROGRAM XX/8x RE:CO,4:PC,5,5:TX,"KEEP IT UP":I120:SN1įTN,75,20:TN,150,20: SN1āI12000:I  COMPLETED SUBPROGRAM XX/9 RE:CO,4:PC,5,5:TX," GREAT !":I120:SN1įTN,75,20:TN,150,20110(1))6 SN1įTN,200(1),50(1):8 CO,4.5(1)H: PC,X%,Y%P< NO\> TX,N1$j@ J1T%:xB PC,X%,Y%D INVF TX,N1$H J1T%:J L I1200N SN1įCL,IP PC,I20((I1)20),1(I1)20R NO:TX," ":INV:TX,N1$C,5,5:TX,"DOING":PC,9,7:TX,"JUST FINE!"S SN1āI120:TN,100,20:TN,30,20:g I11500:II:m ( COMPLETED SUBPROGRAM XX/7* N1$"":I1(771):N1$N1$((771I)):, T%40. L%20(N1$)0 RE:2 I140 4 X%1L%(1):Y%0,20: SN1āI12000:I$V D` COMPLETED SUBPROGRAM XX/5nj RE:CO,0:PC,5,4:TX," A - OK!! "t SN1āI120:TN,75,20:TN,150,20:~ SN1āI12000:I  COMPLETED SUBPROGRAM XX/6 RE:CO,1* PC,1,3:TX,"YOU'RE":P A ROW.":PC,28,19:TX,"YOU HAVE"+fCO,4RfSY,1:PC,19,10:DI,4:SN1įCL,40fRR$(RR):INV:JJ0RR:TX,RR$::NO:CL,0:DI,0ffJ770,A2::SY,3:CO,2:PC,5,10:TX,"WORKING..."::D$;"RUN LESSONXX"fj:D$;"RUN HELLOHI1"SLLOHI1"255eK14100=e:RE:SY,3:PC,15,10:TX,"WORKING.."Ze(4);"BLOAD BTCE,A6150"eP(1)6170:I23:P(I)P(I1)(6148I):eK0e$e DISPLAY SCORE!fSY,3:CO,2:DE,1,1,40,20:PC,1,19:RR$(RR%):TX,"GOAL = ":TX,RR$:TX," RIGHT INd d PAUSE SUBSd #d Ad INSTRUCTIONS AND BLOADSGdPd100d21:"READ STORY 4. THEN FIND TWO STATEMENTS ABOVE TO SUPPORT EACH CONCLUSION. TYPE THE NUMBERS. PRESS RETURN AFTER EACH ITEM,";d" AND TO GO ON. ";d1:e0010 c^ IF WR > 2 THEN K = 18cc END QUESTION LOOPBce3010IchXucm END SCREEN LOOP ********************~cr120c DATA FOR QUESTIONScL$(1)"2":L$(2)"3":PP(1)cBcVL$(1)"1":L$(2)"2":PP(2)cdL$(1)"1":L$(2)"3":PP(3)300$b"SN1āI15:TN,255,10:0b#PC,6,8Tb&TX,L$(1):TX," ":TX,L$(2)ib'16368,0:R$:;wb, SCORINGb1(AX$"YES")RR1:RRRR1:WR0b6(AX$"YES")WW1:WRWR1:RR0b@5010bJRRRR%A27:40010cT(WR5)(W18)A25:4P::D$;"BSAVE ";NF$;",A768,L127"Ca::"BYE":D$;"RUN HELLOHI1"ua(AN$(1)L$(1))(AN$(2)L$(2))AX$"YES":282aAX$"NO":290aSY,1:PC,14,8:TX," ":CO,1:PC,14,8:TX,"GOOD":CO,2aSN1āI1950:aSN1āI200205:TN,I,5:b1,1,20,109` DISPLAY QUESTIONS AND SPEECH FOR QUESTIONL` ANSWER ENTRY\`SY,1:CO,0g`I12s`KQ%I6`L$" 0"`PC,KQ%,7`ENS,L$,2,T%,AL%`AL%0L$"X":281`AN$(I)(L$,AL%)`(AN$(I))27272` I` 280!a769,SND SCREEN PARTICULARS%_K0İ4000I_CO,2:FTXN,P(J),1,3,N1$,PR$,R%_SY,3:CO,4:DE,1,1,40,1:FI:DE,1,11,40,11:FI:DE,1,1,40,20:CO,2_5010_ BEGIN QUESTION LOOP ********************_X1NQ `SY,1:DE,1,7,20,9:INV:FI:NO:DE,$(4):WR0:RN0:J0:PR$"PRESS RETURN TO CONTINUE."L^d BEGIN SCREEN LOOPb^nR0:RR0:X0:K1n^xSY,3:^RN0JJ1:150^J(NS(1)1):JJ1140^J1J:JNSRN1^ SET UP QUESTIONS ^J1010,1110,1210_ SET UP SCREEN ARR%3:NQ1o]# 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)]<L$(10),IX$(10)4^FD \ 27902\60010&\ LEVEL 5f\ COMPREHENSION: EVIDENCE TO SUPPORT CONCLUSIONS PAGE 32x\ BILL WAGNER\ 4-24-82\ SP=SUBPROGRAM NUMBER: RR%=RIGHT IN A ROW GOAL\ NS=NUMBER OF SENTENCES: NQ=NUMBER OF QUESTIONS ]"SP5:NS3:"" " " " " """""