' +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- (  wϠ@跻~!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`ٍ΍ōÍčԍččˍʍÍ͍čōٍ΍Í̍΍ōٍˍō΍ƍˍ̍̍̍ÍٍЍč͍ҍÍ̍ӍčҍÍٍōčٍ͍Íč{~<f~<<~w>8p8p 00 `0 0`0yφUUUUUU~{{~?30000000{{~88~~|xx~~~~{{~~~~<f~<<~~<8p~~````````~~p8~~~~<~Áp8{{~>>>>~~~~~~~~{~<8x~~~8p~~~~~80000~~~~~888888 08pp8`p88p`~>?<~t`8888888888ffffffffffff`g8pɉxx{s8p8p``````p888~<<~ۙ 08888p<~`I΍UUU UULU`dUeUeUX eUfUgUcU"fUcUԢ TLSȑhhL2S` TL % ̠ҮŠŮҠɤȮΤĮ̠Ů̠ĮɥԠĮ UUUUUUUUUUUUUUUU UU P ThU '0 ULT T' `% "$`TTijTTkl8`iiLTȱȱȱLSdF?0hԢ T cUۢUL]UfUgUfUȑ TBC SI TUL]UFȩȩ멍 ` eUi eUX eUfUgULR zTLRB>H)h ɠFȄBLRLSB𱦧C B FFLR=$<% " C0`݅ۅ߅,`߅_ h%<$=Ѕ  dUeUfUgUF ȄB@ iSi>  CBCC` S UH)HJJh)JJLR)hLSD D0 ELSQLQ`Ԣ TȱL.QUL]UcUF TH?@DE >LR UL]Ui0 ȢUL]U81Hȱ81Hȥ 8$Ʌ<ȥ 8$(=ȱ8"(>ȱ8#>LaQ?ȱ81@ȱ Dȱ Eȱ81ׅh<&    ̍΍č ?d)u6?d-6/? I--??q - )66:?$$ 66$?-- 666H)hɠFȄBLL$B<%=eB$$ " Eȱ81ׅh<&݅ۅ߅,`߅߅ h%<$=ЅFȄB@ i1i>CBCC`  EHLP)HJJh)JJL)%"# !L-`Ԣ ێȱLKТLF ێH?@DE >L- Li0 ࢏L81Hȱ81Hȥ 8$Ʌ<ȥ 8$(=ȱ8"(>ȱ8#>L~?ȱ81@ȱ Dȱ` 才` 才` Ii`` Lo0`LMLS0`LgLm JF8ȹe8ИL`Lø{{ttlnghab\\WWRRMNIIEEAA=>::673401..+,))&'$` 0 `{80 ``hhhhz{L2  c `#! "`#67 X ? T @UWWRP{``` 0䍃$% W `  ` Ii }1~20 y|1}2~00` L䇥ޅhhL-$(`L XL׉+**++8 $%` $%%#"%L"$$!L` 0`*U HmhHmh c` z獀筇`z{{z`䭀yxz`6 zzɡ`hhL2hh7n8o L2z F8   ` e vȱ e w|}~ vw ΁ }~`67 ( cTQLX hhL2 FhhL/ٍ΍ōÍčԍččˍʍÍ͍čōٍ΍Í̍΍čٍˍō΍ƍˍ̍̍̍ÍٍЍč͍ҍÍ̍ӍčҍÍٍōčٍ͍Íč ESC"y1000#@ ONERR ROUTINE0JY(222);L216,0KOY2551005TY9įBOX:4:"There is no more space in this file.":SPACE:1000YY9040030[1005^Z(218)(219)256h"ERROR "Y" OCCURRED AT "Z Cy ESC"y1000$@ ONERR ROUTINE1JY(222)<L216,0LOY2551005TY9įBOX:4:"There is no more space in this file.":SPACE:1000YY9040030[1005^Z(218)(219)256h"ERROR "Y" OCCURRED AT "Z C77XX,3X&R:y`I΍UUU UULU`dUeUeUX eUfUgUcU"fUcUԢ TLSȑhhL2S` TL % ̠ҮŠŮҠɤȮΤĮ̠Ů̠ĮɥԠĮ UUUUUUUUUUUUUUUU UU P ThU '0 ULT T' `% "$`TTijTTkl8`iiLTȱȱȱLSdF?0hԢ T cUۢUL]UfUgUfUȑ TBC SI TUL]UFȩȩ멍 ` eUi eUX eUfUgULR zTLRB>H)h ɠFȄBLRLSB𱦧C B FFLR=$<% " C0`݅ۅ߅,`߅_ h%<$=Ѕ  dUeUfUgUF ȄB@ iSi>  CBCC` S UH)HJJh)JJLR)hLSD D0 ELS̍΍Íٍ΍ōÍčԍččˍʍÍ͍čōٍˍ̍̍ÍٍЍčٍōčٍ͍Íčٍ΍ōÍčԍččˍʍÍ͍čōٍ΍Í̍΍Íٍˍō΍ƍˍ̍̍̍ÍٍЍč͍ҍÍ̍ӍčҍÍٍōčٍ͍Íč ,<,?,<'%?<$'%,->7.%,.>7?.--P@?,''%'/%?,%?,%?,%'/-&<-<'/-??<7->5?..?76>$4767&$<>??$$$766>$67=>467>6765''$$5$=,,?,='-?,%?,%?%=,%-6$<''$%,<67>6.>5>&<>>->7=>.>757=.5/.,.4%,&,&%'%/%'%/%'%/$5&%<-.>.>.>757->.>->5%5.,.,<%5,<-< ̍̍ ̍΍ 032&RX,3X279X,3X279X,177XX,177XX,3X90RX?:RIy ESCQ"y99mr ON ERR PROCESSING xt216,0w(222)255įBOX:99|(222)9040070BOX:99Y(218)(219)256"ERROR "(222)" OCCURRING AT "Y 22)" ÍčÍˍčǍč ٍ΍ōÍčԍččˍʍÍ͍čōٍ΍Í̍΍ٍˍō΍ƍˍ̍̍̍ÍٍЍč͍ҍÍ̍ӍčҍÍٍōčٍ͍Íč ɩ̤ɠ̤ɩ֤ɠ֤ɩԠΠΠϠɠ̤ɩƤɠƤɩ֤ɠ֤ɩԠɠɠ̤ɩ̤ƤɩƤ֤ɩ֤ΠΠϠ͠Š̍Ơ̠ΠΠΠΠϠҠɠ̠ϠκƤɠƤ̩Ƥ֤̩֤Ϡ͠ԠҠ̠ƠϠΠ̠ϠƠΠΠ̠ϠƠҤҤΠ̠̠Ơ̠ΠΠɠ̺ϠҠɠΠϠ̠Р̤ԤƤ̩̤ƠҤҤΠƠ̱̲ΠƠҤҤΠ̱̺Ϡ̲̺Ϡ͠ٯŠ̍ƠϠΠƠϠΠ̠Ϡ̤̩̤Ƥ͠ԯٯō͠ԠٍƠΠΠɠϠ̱̲ΠҤԤ̤̤ԤƤ̤̠Ԡ̱̲ҤԤ̤̩̤   ̍΍ ̍΍ ٍ΍ōÍčԍččˍʍÍ͍čōٍ΍Íٍˍō΍ƍˍ̍̍̍ÍٍЍč͍ҍÍ̍ӍčҍÍٍōčٍ͍Íč ҍ ΍΍΍΍ō΍  ٍ΍ōÍčԍččˍʍÍ͍čōٍ΍Íٍˍō΍ƍˍ̍̍̍ÍٍЍč͍ҍÍ̍Ӎčҍٍōčٍ͍Íč   "ERROR "(222)" OCCURRING AT "Y)INUE";&RZC(16384):ZC14121220kR16368,0:7:" ";:21::ZV1:ZH1:uy ESC"y9000r ON ERR PROCESSING t216,0w(222)255įBOX:9000|(222)9040070BOX:9000Y(218)(219)256#OBJ":(4)"BLOAD PRINTER COMMANDS.BIN"}O::12:5:"TURN ON YOUR PRINTER AND ADJUST":9:"THE PAPER AT THIS TIME.":21200OR SPACE-BAR ROUTINERZH(36):ZV(37):ZZ1200:ZZR24:7:16368,0R"PRESS ";(23)"RETURN";(26)" TO CONT:::10:2:"PRESS RETURN TO CONTINUE, ESC TO END"AN16368,0`NZC(16384):ZC12820150{NZC155ZC14120140NZC141ė:10:11::"WORKING & PRINTING"::20000:35,1:33,80:PACT:N9000: EXITNUNHOOK::&N(4)"BRUN PRUTIL.0162#(4);"RUN INITIALS"84#(4);"RUN HOF CLEARER"O6#(4);"RUN MANSYS"h8#(4);"RUN MENU-END" N DISPLAY ESC PROMPT*N23:11:"PRESS ESC TO STOP":N CHECK FOR ESC KEYN(16384)128ıN(16384)12827Ĺ16368,0:3NPOFF$"READ PROBLEM2"<Z$FX1Z15PZ$:P$(X)Z$<ZXTdD$"CLOSE PROBLEM2"Znlx PRINT FACTS:5:"ADDITION STUDY PROBLEM(S)":X1Z1X") "P$(X),X::(#POFF-#D$"BRUN HPRINT".#HOOK0#OPT9010,9012,9014,9lease...":D$"RUN MANSYS"6  PRINT NAMES AND LEVELSY "LEARNING THE ADDITION FACTS"} 8:"NAME LEVEL" :Y1X1 NF$(Y);:15:NL$(Y);:33:LV$(Y): Y   LEARNING FACTS P$(39) (D$"OPEN PROBLEM2"2D$(100) [X0" `F$"FACTS.LVLS"> jD$"OPEN"F$:D$"READ"F$H oXX1w tNF$(X):NF$(X)"EMPTY"ĺD$"CLOSE"F$:1180 ~NF$(X)"END"1170 NL$(X),LV$(X):1135 D$"CLOSE"F$: BOX:9:9:"The file is empty.":SPACE:BOX:9:9:"One moment pX   HOF PRINT7 5:"ADDITION HALL OF FAME"= i 5:" NAME SCORE TIME"o { X120 2:NF$(X);:15:NL$(X);:30:S(X);:34:(T$(X),2);":";(T$(X),2): X $ L NAME AND LEVEL VNF$(100),NL$(100),LV5:"ADDITION STUDY PROBLEM(S)":. *X1Z1G 4Y(X1)3((X1)3)X >X") "A$(X),a RX:g \q  HOFw  NF$(20),NL$(20),S(20),T$(20) F$"HALL OF FAME.CBF+" D$"OPEN"F$:D$"READ"F$ X120 NF$(X),NL$(X),S(X),T$(X) NTING"::20000 735,1:33,80* <PACTF FOPT800,1000,1200,1400P P9000f  TABLE CHALLENGEs A$(100) D$"OPEN PROBLEM" D$"READ PROBLEM" Z X1Z1 Z$:A$(X)Z$ X D$"CLOSEPROBLEM"   TABLE PRINT! %:* $PRINTER: UPDATED 12/23/86 TJB9HOOK:OPT(852)E40050N255wFF$(10):Z9(3)24:Z9(4)18:Z9(5)14Q(22002)256(22003)D$(4)OPT700,900,1100,1300 SET UP FOR PRINTER(20200 2::10:11::"WORKING & PRI  @ J777...%%%<<<'<7.67.%-.%<$%<7>$76?.-6%$-6-,5-$',$?><6-$..$5%%?,<<6:>>655-,,$''<677-..$%%?<:76.-%$<:<>.575%,.,<'%'7>  `UUU UULU`dUeUeUX eUfUgUcU"fUcUԢ TLSȑhhL2S` TL̠ҮŠŮҠɤȮΤĮ̠Ů̠ĮɥԠĮҍٍ΍ōÍčԍččˍʍÍ͍čōٍ΍Íٍˍō΍ƍˍ̍̍̍ÍٍЍč͍ҍÍ̍Ӎčٍōčٍ͍Íč@e<$?'?67..65<$'?6$<76$$''$75------,$....6?'?>6&$?6&$??$<76$$'''5--,-,-,%%45555>'?>..&'?755<.5.&'<77$<76$$''$75------,$....6?'?66$<76$EWR TPHEE2 ?hHh`0 i Hɝ67  9,T,Q Xhh`ɍ[Ɉ  D L-EɊ%%# bE "L-Eɇ L-EɌ**+*++8 $%QQHH Eh%HJJJ'hH*&'*&'*&')&&EH 0>7333000>;3>3?>60303733  0800633<3??337333333333>0p7>0  <3333333 33??33 333 ? ?<<0<z#??   ŮԠŠ  ŮʠůǮР ӮؠǮԠ   ͠ Ͳ̮ʠŮԠ ٠ҠӠ ӮԠ   ŠŮŠӠԠ Ҡ ҠӮΠ ҠԠ  Ԡ ԠŠŮԠ Ӡ ȮԠ "ՠ ! խĠ  ŮРӮӠ̠ƠŮƫ"ϠƠҠ ԠӠ ĮŠΠǠ!ɠĮԠҠ Ҳ ҮԠ ǠӠ3 3??> 33?3333333333333???3;3333?333 00003333?3???333337?;333333333333?>333303? 33333333333 333???333 3333 ?0 ? 0 ? 33333?<<<?? >< 7 ;8?>  000 ? ? ?  ? 0 3;?73  30??003??003<33?0 333333>0 0  0??  ?LD3 0? ? 3 ? 3 333a    ? m? ? >> ? ? ? l66l 6l6  aamam ??? 3?0 333?33?3 0 ???? ??? 0 268,YD272,YD  9 CO,X,Y:(TS$,NS):R ERASE OLD,DRAW NEWh PXPXDX:PYPYDY~ 0:1PXDX,PYDY 3:1PX,PY S,170LH220,170LH:1000? TS$"$%&'$%&'$%&'":X79:Y167:NS5Y (K120:2000:YY4:f -1PX,PYr 2I210 <16368,0:16384,128 F3000: P  270,170270,170LH DS0SK5:YD170DSUZ2 DS5(DS5)ē266,YD274,YD:1048192:230,64o(4)"BLOADTINYSNAKES.FNT,A33160":(4)"BLOADDOGGIE.SHP,A33198":232,174:233,129:1:0DFT,1,33160:AFT,1:HOOK:(14)SK8:UZ1.5:LHSKUZ10:DX4:DYLH10:PX138:PY169 :3 0,170LH40,170LH78,170142,170180 t&) 2~Lf~L~2~f2~Lf~L~2~f  <  @ ?$hi<$6h7h6>=<`ɍɌ ͳ ` I`H)hHɍ rh`PACPOFFEE!` G$H)h0,0R67 m 0N 󹥇9I7߭ r` L<=>6H7H67,0 < L'$H8$$ ? mͳ   ފ `B ֈ?F<?F<>ݦ >ݪ?Ȑ۩`?)8鍸ζ`H88HHԈՈ ߅$0HԈՈ LbLv?<>?>,>$f<<`L+ɇqr+Lɯd 8ɀ   Lޥ8e湥 HH L`qrL  216,0 w(222)255įBOX:90006|(222)9040070EBOX:9000]Y(218)(219)256"ERROR "(222)" OCCURRING AT "YJ56904xTT1150:?xCO,174,1:L2L1L13:(L2);:::L(xAFT,1:Vy ESCe"yCNV:9000| ERASE SUBROUTINEˆ21:" ";:CEW:̈21:2: ERASE INPUT BOX&BOX,6X39,28Y24,35X39,43Y24:r ON ERR PROCESSING t ERASE INPUT BOX:&BOX,6X39,28Y24,35X39,43Y24:Vr ON ERR PROCESSING at216,0|w(222)255įBOX:9000|(222)9040070BOX:9000Y(218)(219)256"ERROR "(222)" OCCURRING AT "YDHELICOPTER AWAYxL1Д2PX,PY:x0:2PX,PY2xBOX,154,0,173,21,0L x FLY HELICOPTER AWAY\xL156904lxTT1150:xCO,174,1:L2L1L13:(L2);:::(xAFT,1:y ESC"yAFT,1:CNV:9000 ERASE SUBROUTINEˆ21:" ";:CEW:̈21:2:,L1:187,L11190,L11::OwBOX,200,170(LHUZ10)8,250,170(LHUZ10)3,0hw RAISE ROPE & PUPPYqwL20wL1168(LHUZ10)9202wL2L21:CO,154,1:XX$(L2):L24L20w0:2PX,PY:PYL18w187,L1190,L1:187,L11190,L11 w3:(TS$,((1)41),1)6BwSXSX8:SXQRSXQX:SYSY4ELw:AFT,1:ew BRING CHOPPER ONTO SCREENwAFT,5:L101504:L214wCO,L2L1,1:XX$(L2)::w LOWER ROPEwL120168(LHUZ10)102wL214:CO,154,1:XX$(L2)w187,L1190Z3:SK4UZ2:SK6UZ1.5:SK10UZ1yvLH(SK1)UZ10:DX4:DY(LHUZ10)10:PX138:PY167:SX77:SY165:QXSX:QR117vC0:L132556:CC1:L2L1L15:XX$(C)XX$(C)(L2)::v$w DRAW NS SNAKES)wAFT,4:(14).wSS1NS:CO,SX,SY8w vVSVT14:HSHT8QvHS18,VS17HS7,VS17HS7,VS5HS18,VS5HS18,VS17W vl\v ERASE/DRAW DOGfvPXPXDX:PYPYDYpv0:1PXDX,PYDYzv3:1PX,PYvv INIT VARSvTS$"$%&'$%&'$%&'$%&'"'vUZ8:SK1UZ5:SK2UZ4:SK3U,168LHuLHLHUZ10/u270,170270,170LHCuEL2:SK7EL1luDS0(SK1)(10EL):YD170DSUZELuDS(10EL)(DS(10EL))ē266,YD274,YD:30140u268,YD272,YDu:1PX,PYuu DRAW INPUT BOXuHCvVT3Y(Y):HT6X(X)37,WA:848,RAWA:851,10:849,12F#D$"RUNSUMMARY"8'FR BORDERTR1:X03RX,3X279X,3X279X,177XX,177XX,3X&R:0u USER ROUTINESu DRAW PIT & # LINEuLHLHUZ10u3:0,168LH38,168LH76,168142,168180,168LH220 AFT,2JCO,243,168((X1)SKST)UZ:INP,(3,"-09E",1),IN$:A(IN$)UAFT,1[(#(12):WIND:CO:21000:9:9:"^ONE MOMENT PLEASE..."2#D$"OPENNAME":D$"DELETENAME":D$"OPENNAME":D$"WRITENAME":F$:L$:SK:ST:D$"CLOSE"<#845,RA:84A142:A:SH139,95::0:A140:A:SH139,95:PTWIND,60,20,219,170:CO:^CO,62,90:WA0ĺ"^YEA, ^"F$"! ^YOU SAVED THE PUPPY!"hWA0ĺ"^THE PUPPY DIDN'T MAKE IT."rSPACE:9000 INPUT15:22:"^HOW MANY"16:22:"SNAKES?",279,1911600)BOX,0,175,279,191<0:1PX,PY:3_2185,168(LHUZ10)1:AFT,2~PX185:PY168(LHUZ10)1CO,200,160(LHUZ10)8:"^ARF!":AFT,1BOX,0,0,279,20,0:30600@BOX,0,0,279,191,0:3:232,63:233,136:SH4:02J(B4)5):8448:QXQX7:SXSX7:QRQR7:SPACE::BOX,0,175,279,191,0:1222h<0:1PX,PY:3:1138,167AWAWA1:"^INCORRECT. ^THE ANSWER IS "B".":8449,92:2,((B4)5):8448dSPACE::1420nBOX,0,175,279,191,0xX1500BOX,0,175:"^ENTER YOUR ANSWER AND PRESS ^R^E^T^U^R^N":9:"^TYPE '^E' TO STOP."XAFT,1:1700o(IN$,1)"E"9000(BOX,0,175,279,191,0-AFT,1:CO,0,1752ABRARA1:"^CORRECT!":SPACE:30300:1390J7WF0ĺ"^INCORRECT! ^TRY AGAIN.":WF1:2,(EMS CORRECTLY.",SPACE:232,174:233,129PBOX,0,10,279,191:30400:30100|2:"^COUNTING UP BY "SK"'S";CC$:30100AFT,2:CO,243,168UZST:ST:AFT,1:ST0NSST:30500WF0:X211:NSSK:30500AFT,1BST(X1)SKGCO,0,175 ~BOX:VSP,1,1: 1:NOCNV:"COUNTING SNAKES";CC$:CNVK RA0:WA0:3p I1016030:2I,56::1230,7012:"^A PUPPY HAS FALLEN INTO A POISONOUS":"SNAKE PIT. ^YOUR JOB IS TO SAVE THE":"PUPPY FROM THE SNAKES BY ANSWERING":"ALL OF THE PROBL7:3:"^WHAT NUMBER DO YOU WANT TO USE":3:"FOR SKIP COUNTING? (1-10) ";~ VINP,(2,"-09",1),IN$:SK(IN$):SK1SK101100 `10:3:"^AT WHAT NUMBER DO YOU WANT TO":3:"START COUNTING? (0-10) "; jINP,(2,"-09",1),IN$:ST(IN$):ST0ST1011204:NOCNV! INP,(11,"-AZ",1),F$* CNVT 8:3:"^WHAT IS YOUR ^L^A^S^T NAME?"w $10:3:"^[ ^]" )10:4:NOCNV .INP,(11,"-AZ",1),L$ 8CNV BBOX,6,6,273,176 L3:3:"^WELCOME!, ^"F$" TO"::3:"^COUNTING ^SNAKES"J QNV:(14) D$(4):CC$(3)+ VSP,0,1G 21000:BOX,6,6,273,176 (849)1ĺD$"OPENNAME":D$"READNAME":F$:L$:SK:ST:D$"CLOSE":1150  START OF PROGRAM 3:3 "^WHAT IS YOUR ^F^I^R^S^T NAME?" 5:3:"^[ ^]" 5:BLOADTINYSNAKES.FNT,A33160":(4)"BLOADDOGGIE.SHP,A33198":(4)"BLOADWIGGLE.OBJ":(4)"BLOADCHOPPER.FNT,A33431" (4)"BLOADBORDER2,A34879":(4)"BLOADSNAKE/DOG.SHP,A35085" 230,64:HOOK:DFT,4,33160:232,13:233,137:1:0:DFT,5,33431 AFT,1:Cd COUNTING SNAKES3n (C) 1987 CHARLES LUNDLx 07/10/87 BY T.J.B.R}m RA=PEEK(845): #RIGHT WA=PEEK(847): #WRONG NA=PEEK(848): #ANSWD NQ=PEEK(851): #QSTNS FG=PEEK(849): 1-FLAG819240050o (4)"      8x8p@@8p8p8p8pxxx8x p`@8x888x8p8x8@`p 88p8@@p8``p00`p8x8xp88x`08p88xx8xp8tyB𰰘```000`p0```000     OCCURRING AT "Y 8pp8 ppppx|?>>>>?|xpppppx|? 8??>>>xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 8??>>?|xpppppppsw|xpppppx|?>><>??8 ?><888888???>>??8 @p?>>>>xxxx     0003f<ff<cc>cc>>cc>0000000t` ```````fffffff~l6iɆpq{0`0``0`00000`Z<`~~6(222)" OCCURRING AT "Y37030 @BORDERBJ(12):HC((1)2):2HC((1)2)4THC,0HC,182:2HC,02HC,182:278HC,0278HC,183:276HC,0276HC,183Y0,1278,1:0,182278,182^0,0278,0:0,183278,183: ,182278,182^0,0278,0:0,183278,183::(IN$,1)"Y"(IN$,1)"N"36020.251,0@Z$(IN$,1):SNUMERIC INPUTZB=MIN, ZT=MAX, ZC=C/R LEGAL (BOOLEAN)ZH(36)1:ZV(37)1IN$"":FI$"21"(ZV35)(ZH35)(((ZT))35)"#2 1":Z$IN$"":ZN(Z$)ZNZBZNZT30020+Xu1:868:1::ZV:ZH:16368,0:4yEND_@y40000:2:12:"^ONE MOMENT PLEASE..."Jy(4)"BRUNHPRINT":230,64:62450:(4)"RUNTEACHER OPTIONS"YES-NO251,1ZH(36)1:ZV(37)1:IN$"":FI$"21"(ZV35)(ZH35)"&$4AZ1"#:A32AA64:*#251,1:(A);:251,0:=#K:Q$:CTCTLC#S0uSPACEBAR r5uZH(36)1:ZV(37)1:ZF0:u22:1:868:7:"^PRESS ^S^P^A^C^E ^B^A^R TO CONTINUE";Du16368,0:16384,128:ZP(16384):ZP155ZFZF1:ZF231000NuZP1609110&F#JK6L:(S$,J,1)")"9100HP#X$(S$,K5,JK5):X((X$))[Z#X0X127X0wd#L$"":K1L$(S$,K1)n#R$"":LJR$(S$,LJ)x#S$L$(X)R$#LKLJ:9110#J#K#13:868:L(S$):K1L#A((S$,K,1)):PPCTK,A16368,0:251,0:.^(A8L0)ĺC$Q$;:8020<hA88080PrA34L198020c|A32AA64:(A);::S$S$C$:8020C$" "C$;:L1S$"":8020S$(S$,L1):8020(#SCAN FOR CHR$2#L(S$):L79120<#K1L6:(S$,K,5)"CHR$("L2:1:958::L256S$""İ9000:CTCT1:PPCT,13iL2:CTCT1:PPCT,0:PPCT1,255:PPCT2,25522:2:"^ARE THE ABOVE COMMANDS CORRECT? ";:36000L1(Z$"Y"):L1@INPUTJS$"":16368,0:251,1TL(S$):C$:A(C$):A13)Z$"N"ĹPP2,0:PP3,255:PP4,255::L111:CT140000:2:"^PLEASE TYPE IN THE SPECIAL COMMANDS":2:"FOR YOUR PRINTER. ^TYPE AN EXTRA":2:"'RETURN' WHEN YOU HAVE FINISHED."L215:72L2:6:958:"^PRINT "Q$;:8000S$""Ģ72ARDhb40000:7:2:"^THE PRINTER INTERFACE CARD MAY BE IN":2:"ANY SLOT 1-7. ^MOST COMMONLY 1 OR 2."l12:2:"^WHICH SLOT IS YOUR CARD IN? ";:ZB1:ZT7:37000:PP,128ZNv17:2:"^DOES YOUR PRINTER REQUIRE ANY SPECIAL":2:"COMMANDS? ";:36000:2:"^2. ^LOW SPEED (^USUALLY 10 CPS)"z12:2:"^WHICH PRINTING SPEED DO YOU WANT"::2:"TO USE? ";:ZB1:ZT2:37000PP2,128(ZN1)18:2:"^WHICH SLOT IS THE COMMUNICATIONS"::2:"CARD IN? ";:ZB1:ZT7:37000PP,ZN:XNOT COMM C0000:14:2:"^WHAT PRINTER ARE YOU MAKING THESE":2:"SETTINGS FOR? ";:251,1::251,0:P$IN$"":LP(P$):LP0ıiLP20P$(P$,20):LP20nL1LP:PP106L,((P$,L,1))::pSET COMM CARD'z40000:6:2:"1. ^HIGH SPEED (^USUALLY 30 CPS)":4:"^THE NORMAL SETTING FOR PAGE LENGTH IS":2:"66 LINES PER PAGE.":9:2:"^WHAT PAGE LENGTH IS YOUR PRINTER SET":2:"TO PRODUCE? ";ZB10:ZT120:ZC0:37000:PP1,ZN:PID FIELDZL120:PP106L,0:_IN$"":FI$"11 7$1 1"rd4::3:"^ENTER THE TYPE OF PRINTER":3:"INTERFACE YOU WILL BE USING":3:"AND PRESS ^R^E^T^U^R^N. ";:ZB1:ZT2:37000ZN6000,7000PP1,66:(12):APLİ51005200:D$;"BSAVEPRINTER COMMANDS.BIN,A"PP",L128"ADJ PAPER40000:20000}6:3:"1. ^APPLE COMMUNICATIONS BOARD":6:"(^AN OBSOLETE CARD THAT IS NOT":6:"COMPATIBLE WITH THE ^APPLE //E)":3:"2. ^ANY OTHER TYPE OF PRINTER":3:" INTERFACE CARD (E.G., ^PARALLEL":3:" OR ^SERIAL, ^CENTRONICS TYPE, ETC.)"w..":30000c40000:12:3:"^TESTING THE PRINTER...":D$"IN#0":D$"PR#0":PACT:"PRINTER TEST":I13:J3295:(J);:::J96127:(J);:::::FEEDPOFF17410:40000:10:3:"^PRINTER TEST COMPLETE.":30000NEW OPT4i 40000:11:2:"^NOW RETURNING THE PRINTER SETTINGS TO"::2:"THEIR ORIGINAL STATE (^SLOT ^SEARCH)." I0127:PPI,0: D$"BSAVE PRINTER COMMANDS.BIN,A"PP",L128" 30000:TEST PRINTER 40000:12:3:"^PLEASE PREPARE YOUR PRINTER.07~ 7:"^PRINT "(34)CA$;:L211:P(PPCT):CTCT1T P0P13P32PP64:u L2(P13):PP21L2:(P);: L2: L1: PRINTER TYPE :3:" ^TYPE OF PRINTER:"::"^";:7:L120:((PP106L));::: RETURN TO DEFAULTS :"^THE CURRENT PRINTER SETTINGS ARE:"p :3:" ^SLOT: ";(PP)128::APLĖ3:" ^PAGE LENGTH: ";(PP1): (PP2)0İ2400$ (PP107)0İ2500. 30000:` SPECIAL COMMANDSj 3:" ^COMMANDS:"::CT2t L115:(PPCT)0L15:2475 SD$"^LOW":SD10:(PP2)127SD$"^HIGH":SD30 10:3:"^THE SPEED IS SET TO '";SD$;"'":3:"(^USUALLY ";SD;" CHARACTERS PER SECOND)." :APLĺ:3:" ^PAGE LENGTH: ";(PP1) :(PP107)0İ2500 30000: USER SET& 40000:3EARCH"::3:"SLOTS 1 AND 2 FOR A RECOGNIZABLE CARD"` C:3:"EACH TIME THE DISKETTE IS USED."m H30000:| COMM CARD 40000 6:3:"^THIS DISKETTE IS CURRENTLY SET UP TO":3:"EXPECT AN APPLE COMMUNICATIONS BOARD":3:"IN SLOT #";(PP);".":ZT5:370004 8(12):ZN2000,5000,3000,4000,31040A BL00:L0U CHECK SETTINGSt JP1((PP)0)((PP)127) JP2100,2200,2300: 4DEFAULTS 9400004 >8:3:"^THIS DISKETTE IS CURRENTLY SET TO THE"::3:"DEFAULT SETTING, WHICH IS TO STTINGS":_ 3:"3. ^RETURN PRINTER SETTINGS TO THEIR":6:"ORIGINAL STATE (^SLOT ^SEARCH)": 3:"4. ^TEST PRINTER SETTINGS": $3:"5. ^RETURN TO TEACHER OPTIONS MENU" .::2:"^ENTER YOUR OPTION NUMBER":2:"AND PRESS ^R^E^T^U^R^N. ";:ZB1: d INIT8 nAPL0: SET =1 TO ADJUST PAPER LENGTHF xD$(4):h PP(948)(949)256:Q$(34)r MENU L011:40000:13:"^PRINTER ^OPTIONS"::2:"^YOU MAY:": 3:"1. ^CHECK CURRENT PRINTER SETTINGS": 3:"2. ^CHANGE PRINTER SEPROGRAM: PRINTER SUPPORT;PROGRAMMER: P.BOUCHARDSCOPYRIGHT (C) 1985sLAST UPDATED: TJB 11/27/86 34034:265287230,32:62450:<(4)"BRUN PRINT":(4)"BRUN INPUT"F(4)"BRUN PRUTIL.OBJ":(4)"BLOAD PRINTER COMMANDS.BIN"          ȍ΍4 INSERT AFTER L % ;NN10014007 <SR$R$LL1K =LNNIL:2140\ >INNL11 HNL$(I1)NL$(I):NF$(I1)NF$(I):LV$(I1)LV$(I) R \II1:NL$(I)NL$:NF$(I)NF$:LV$(I)((LV$)1) fNNNN1:1300 RBOX GENERATOR R1RXL11:L2NN10 SR$(NL$BL$,15)(NF$BL$,11)C L((L1L2)2)l R$(NL$(L)BL$,15)(NF$(L)BL$,11)} R$SR$2080 L11L22100 R$SR$L1L:2020 L2L:2020  ADVANCE L *NL$(L)NL$:NF$(L)NF$:LV$(L)((LV$)1) /1300   REWRITE FILE0 D$"OPEN"F$:D$"DELETE"F$M (D$"OPEN"F$:D$"WRITE"F$s 2I1NN:NF$(I):NL$(I):LV$(I): <"END":D$"CLOSE"F$ x EXIT D$"RUNMENU-END"  INSERT/ADVANCE  STUDENT ALPHABETICALLY NN0I0:2140 ent please...":I0. D$"OPEN"F$:D$"READ"F$j II1:X$:X$"EMPTY"X$"END"ĺD$"CLOSE"F$:II1:1100 NF$(I)X$:NL$(I),LV$(I):1030 L READ IN NAME AND LEVEL VNNI `D$"OPENNAME.FILE":D$"READNAME.FILE":NF$,NL$,LV$:D$"CLOSE" 2000:CC$(3):CL$(12):CN$(14):CO$(15)M (4)"BLOADASCII BOLD.FNT,A29696"Y D$(4)s DFT,1,29696:AFT,0,1 WIND,6,6,273,176:BOX NOCNV:PARSE NF$(100),NL$(100),LV$(100) "F$"FACTS.LVLS"  MAIN PROGRAM BOX:9:9:"One mom c40050"dPROGRAM: UPDATE=nPROGRAMMER: TIM BUEGEUxCOPYRIGHT (C) 1986qREVISION: TJB 10/07/87wFILES: FACTS.LVLS NAME.FILEFONTS: ASCII BOLD.FNT INITIALIZATION230,64:16384' CA$(1)1:NL$(I)NL$:NF$(I)NF$:LV$(I)LV$5fNNNN1:1800D DELETE L\LNNNNNN1:1800IL1NN:NF$(I1)NF$(I):NL$(I1)NL$(I):LV$(I1)LV$(I)::NNNN1:1800R BORDERR1:X03RX,3X279X,3X279X,177XX,177XX,3X&R:62200'O4FL4:1850F*NL$(L)NL$:NF$(L)NF$:LV$(L)LV$:1800\4 INSERT AFTER L p9O4FL1:1850;NN100FL2:1850<SR$R$LL1=LNNIL:2140>INNL11HNL$(I1)NL$(I):NF$(I1)NF$(I):LV$(I1)LV$(I)R#\IITUDENT ALPHABETICALLY)NN0I0:2140:L11:L2NN1^SR$(NL$BL$,15)(NF$BL$,11)qL((L1L2)2)R$(NL$(L)BL$,15)(NF$(L)BL$,11)R$SR$2080L11L22100 R$SR$L1L:2020L2L:2020  MODIFY/DELETE L%OD"F$qXF$:XF$"EMPTY"XF$"END"ĺD$"CLOSE"F$:12:"The student's name is not on the file.":SPACE:BOX:1910XL$,LV$:XF$NF$XL$NL$ĺD$"CLOSE"F$:10:"The student's current level is ";LV$:19701955 INSERT/MODIFY/DELETE S":SPACE:1910&lBOX:4:"DONE!"CC$Dv6:"Would you like to ";WwO4ĺ"enter";kxO5ĺ"modify";yO6ĺ"delete";{" another student?";:INP,(3,"YESNO",1),IN$(IN$,1)"Y"1600(IN$,1)"N"10001910D$"OPEN"F$:D$"REA"F$ 51900K:FL1įBOX:4:"Student is not on the file.":SPACE:1910DFL2įBOX:4:"There is no more space in this file.":SPACE:1000NFL3įBOX:4:"The file is empty.":SPACE:1000XFL4įBOX:4:"That student is already in the file.LOSE"F$:II1:17206NF$(I)X$:NL$(I),LV$(I):1700OI0O4FL3:1850^NNI:2000q REWRITE FILED$"OPEN"F$:D$"DELETE"F$D$"OPEN"F$:D$"WRITE"F$!NN0ĺ"EMPTY":1840&I1NN:NF$(I):NL$(I):LV$(I):0"END":D$"CLOSE.(A-F)?";:INP,(1,"-AF",1),LV$Xr17:"Is this entry correct?";:INP,(3,"YESNO",1),IN$o|(IN$,1)"Y"1680(IN$,1)"N"16001650BOX:9:9:"One moment please...":I0D$"OPEN"F$:D$"READ"F$II1:X$:X$"EMPTY"X$"END"ĺD$"CD"CC$:1620hT5:"[ ]":4:"Enter the student's first name.":2:INP,(15,"-AZ ",1),NF$^8:"[ ]":7:"Enter the student's last name.":2:INP,(15,"-AZ ",1),NL$cO5İ1950hO6Ģ14:"Enter the new starting levelOTO PRINTER852,3NBOX:9:9:"One moment please...":D$"RUN PRINTER"x@ INSERT,DELETE,MODIFY STUDENT RECORDJBOX:1OO4ĺ"INSERT A STUDENT RECORD"CC$:1620PO5ĺ"MODIFY A STUDENT RECORD"CC$:1620 QO6ĺ"DELETE A STUDENT RECOR please..."X(D$"OPEN"F$:D$"DELETE"F$:D$"OPEN"F$:D$"WRITE"F$:"EMPTY":D$"CLOSE"F$2BOX:9:7:"The file is now cleared."<SPACE:1000x RETURN TO TEACHER OPTIONS MENUBOX:9:9:"One moment please...":D$"RUNTEACHER OPTIONS"  GI)%I12(I12)įSPACE:2::CEWG:II1:I12(I12)įSPACEcWIND,6,6,273,176:1000y CLEAR NAME LISTBOX:8:"Are you sure you want to do this? ";:INP,(3,"YESNO",1),IN$(IN$,1)"Y"13101000 BOX:9:9:"One momentempty.":D$"CLOSE":SPACE:1000G tX$"END"ĺD$"CLOSE"F$:NSI1:1160j ~NF$(I)X$:NL$(I),LV$(I):1130 BOX:2:"Learning the Addition Facts"CC$:WIND,6,28,273,176:BOX:"Name";CA$;:36,28:"Level"::I1NS:NF$(I)" "NL$(I);CA$;:36,30:LV$(ion":6:"and press RETURN:";:INP,(1,"-17",1),O$:O(O$)c $O1100,1300,1500,1600,1600,1600,1400{ L SEE LIST OF NAMES VBOX:9:9:"One moment please..." `D$"OPEN"F$:D$"READ"F$:I0 jII1:X$:X$"EMPTY"įBOX:9:5:"The file is currently 3. Print the list of names and":" their current level":d " 4. Insert a student record." " 5. Modify a student record." " 6. Delete a student record.": " 7. Return to Teacher Options":" Menu."9 18:6:"Enter your opt"FACTS.LVLS"  MAIN PROGRAM+ 40000s BOX:2:1:"Learning Addition Facts"CC$:"Management System"CC$:4 " 1. See the list of names and":" their current level" " 2. Clear the list of names and":" their current level"? " CA$(1):CC$(3):CL$(12):CN$(14):CO$(15)X (4)"BLOADASCII BOLD.FNT,A29696"z (4)"BLOADLITTLE.FNT,A30472" DFT,1,29696:DFT,2,30472:AFT,2,1 WIND,6,6,273,176:NOCNV:PARSE:21000 D$(4) NF$(100),NL$(100),LV$(100) F$ c40000"dPROGRAM: MANSYS=nPROGRAMMER: TIM BUEGEUxCOPYRIGHT (C) 1986pREVISED: 08/24/87 TJBvFILES: FACTS.LVLSFONTS: ASCII BOLD.FNT LITTLE.FNT  INITIALIZATION16384:230,642      216,0! w(222)255įBOX:10057 |(222)9040070F BOX:1005^ Y(218)(219)256 "ERROR "(222)" OCCURRING AT "Y dh please..."# .A1ĺD$"RUNMANSYS"@ 8A2ĺD$"RUNHOF CLEARER"a =A3ĺD$"RUNPRINTER SUPPORT"w BA4ĺD$"RUNMENU" R BORDER R1:X03 RX,3X279X,3X279X,177XX,177XX,3X &R: y ESC "y1005 r ON ERR PROCESSING  tacts Management System":O " 2. Addition Challenge":" Hall of Fame":m " 3. Printer Support": " 4. Return to Main Menu":  "Enter your option"CC$:"and press RETURN:"CC$;:INP,(1,"-14"),A$ $A(A$):BOX:9:9:"One momentCO$(15)5 D$(4):D$"BLOADASCII BOLD.FNT,A29696"U HOOK:DFT,1,29696:AFT,0,1 WIND,5,6,274,175:NOCNV:21000:PARSE  MAIN PROGRAM 40050 BOX:::"Teacher Options"CC$:"MENU"CC$:  " 1. Learning The Addition":" F c40050*dPROGRAM:TEACHER OPTIONSEnPROGRAMMER: TIM BUEGE]xCOPYRIGHT (C) 1986y REVISED: 11/07/86 CHLFONTS: ASCII BOLD.FNT INITIALIZATION16384:230,64 CA$(1):CC$(3):CL$(12):CN$(14):    ING t216,0*w(222)255įBOX:1185@|(222)9040070OBOX:1185gY(218)(219)256"ERROR "(222)" OCCURRING AT "Yd"TE"F$:I120:NF$(I):NL$(I):S(I):T$(I)::D$"CLOSE"F$I SPACE:BOXk 9:9:"One moment please..." D$"RUNMENU-END" R BORDER R1:X03 RX,3X279X,3X279X,177XX,177XX,3X &R: y ESC "y1185r ON ERR PROCESS ~I120:5:NF$(I);CA$;:18:NL$(I);CA$;:32:S(I);:39:(T$(I),2);":";(T$(I),2):_ 23 "CONGRATULATIONS! Your score deserves a spot"CC$:"in the Addition Table Challenge Hall of Fame!";CC$;CO$9 D$"OPEN"F$:D$"DELETE"F$:D$"OPEN"F$:D$"WRI SCS(20)1190* L ADD SCORE TO LISTH VI2011:SCS(I)SLI `:I19SL1:S(I1)S(I):NL$(I1)NL$(I):NF$(I1)NF$(I):T$(I1)T$(I): jS(SL)SC:NL$(SL)N2$:NF$(SL)N1$:T$(SL)T$:BOX t:8:"NAME: SCORE: TIME:";CN$:CO,5,17W(20),T$(20) VSP,2,2+  MAIN PROGRAMR BOX:9:9:"One moment please..." D$"OPENNAME":D$"READNAME":N1$,N2$,SC,T$:D$"CLOSE" SC01190 F$"HALL OF FAME.CBF+":D$"OPEN"F$:D$"READ"F$:I120:NF$(I),NL$(I),S(I),T$(I)::D$"CLOSE"F$ON 16384:230,64I CA$(1):CC$(3):CL$(12):CN$(14):CO$(15) D$(4):D$"BLOADASCII BOLD.FNT,A29696":D$"BLOADLITTLE.FNT,A30472" HOOK:DFT,1,29696:DFT,2,30472:AFT,2,1 WIND,5,6,274,175:NOCNV:21000:PARSE NF$(20),NL$(20),S c40050$dPROGRAM: INITIALS?nPROGRAMMER: TIM BUEGEWxCOPYRIGHT (C) 1986u REVISED: 12/07/86 CHL{FILES: NAME HALL OF FAME.CBF+FONTS: ASCII BOLD.FNT LITTLE.FNT INITIALIZATI(219)2560"ERROR "(222)" OCCURRING AT "Y6 C:9:6:"The file has been cleared.":SPACE:1000>R BORDERLR1:X03{RX,3X279X,3X279X,177XX,177XX,3X&R:y ESC"y1005r ON ERR PROCESSING t216,0w(222)2551005|(222)90400701005 Y(218);":";(T$(I),2);CA$::CO$+~SPACE:1000L CLEAR HOF NAMES AND SCORESsBOX:9:9:"One moment please..."F$"HALL OF FAME.CBF+":D$"OPEN"F$:D$"DELETE"F$:D$"OPEN"F$:D$"WRITE"F$Z120:"...":"...":"0":"0000"::D$"CLOSE"F$1BOXse..."Y `(4)"OPEN"F$:(4)"READ"F$:Z120:NF$(Z),NL$(Z),S(Z),T$(Z)::(4)"CLOSE"F$ jBOX:1:"Addition Table Challenge";CC$: o3:8:"NAME SCORE: TIME:":CN$:tI120:5:NF$(I);CA$;:18:NL$(I);CA$;:31:S(I);CA$;:36:(T$(I),2) PARSEP $V4įBOX:9:9:"One moment please...":(4)"RUNTEACHER OPTIONS" )V3Ĺ852,2:BOX:9:9:"One moment please...":(4);"RUN PRINTER" .V21200 L DISPLAY HOF NAMES AND SCORES VF$"HALL OF FAME.CBF+":BOX:9:9:"One moment plea Addition":" Table Challenge":~ "3. Print the file of names and":" scores for Addition":" Table Challenge": "4. Return to the Teacher":" Options Menu": "Enter your choice":"and press RETURN. ";:INP,(1,"-14"),V$:V(V$)(20),S(20),T$(20)$  MAIN PROGRAM5 BOX:40050A NOJUSTl 1:3:"Hall of Fame Information Menu" 3:"1. See the file of names and":" scores for Addition":" Table Challenge":# "2. Clear the file of names and":" scores for16384:230,64C CA$(1):CC$(3):CL$(12):CN$(14):CO$(15)o HOOK:(4)"BLOADASCII BOLD.FNT,A29696" (4)"BLOADLITTLE.FNT,A30472" DFT,1,29696:DFT,2,30472:AFT,2,1 WIND,6,6,273,176:NOCNV:PARSE:21000 D$(4) NF$(20),NL$8 c40050'dPROGRAM: HOF CLEARERBnPROGRAMMER: TIM BUEGEZxCOPYRIGHT (C) 1986x REVISED: 11/25/88 CHL~FILES: HALL OF FAME.CBF+FONTS: ASCII BOLD.FNT LITTLE.FNT  INITIALIZATION      ˆ21:" ";:CEW: ̈21:2:6 ERASE INPUT BOX`&BOX,6X39,28Y24,35X39,43Y24:|r ON ERR PROCESSING t216,0w(222)255įBOX:9000|(222)9040070BOX:9000Y(218)(219)256"ERROR "(222)" OCCURRING A9000!y RANDOMIZE ROW ORDER 0"yX(9),Y(9)P,yI0LV41:X(I)I:Y(I)I:6yI0LV41:TY(I):J((1)(LV42)):Y(I)Y(J):Y(J)T:: { RANDOMIZE PROBLEMS{I0LV41:TX(I):J((1)(LV42)):X(I)X(J):X(J)T:: ERASE SUBROUTINE2)142414'uu7,X(LV1)96166,X:X-uBu DRAW INPUT BOXJuHCdvVT3Y(Y):HT6X(X)3y vVSVT14:HSHT8vHS27,VS17HS1,VS17HS1,VS5HS27,VS5HS27,VS17v3:HS26,VS17HS26,VS5:HS2,VS17HS2,VS5 vy ESCy7XX,3X&R:%0u USER ROUTINES6:u DRAW CHARTpDu2:2:LV2ĺ"+ 0 1 2 3 4 5 6 7 8 9":30030Iu"^+ 0 1 2 3 4 5"NuX0(LV41)Xu2:XbuXlu3quX22(LV42)242224suX,14X,(LV1)56108:X tuX24(LV4211020!4+A$"0"A$"9"11020/9+IL%IL%1b>+IN$IN$A$:37,VT1:36,HT4IL%:A$CU$:11020{. INCORRECT RESPONSE.3.HS22,VS15HS6,VS7.HS6,VS15HS22,VS7.R BORDERR1:X03 RX,3X279X,3X279X,177XX,1710000* GET INPUTI+16368,0:IN$"":IL%0:37,VT1:36,HT3:CU$g +10000:A$:A$(27)1400+A$(13)IL%0A(IN$):37,VT1:36,HTIL%3:" ": +A$(8)IL%0IL%IL%1:IN$(IN$,1):37,VT1:36,HTIL%2:CU$" ":IL%0IN$""*+IL%RA:T$:D$"CLOSE"-A#TT1ĺD$"RUN PRINTER"BF#D$"RUNINITIALS"X' DIGITAL TIMERm'(16384)127ı$'IZ%IZ%1:IZ%3610010.'IZ%.:IS%IS%1:IS%60IM%IM%1:IS%.:CO,80,176:08'CO,648(IM%9),176:IM%:CO,888(IS%9),176:IS%B'A:851,100*-#IM%10T$"0"(IM%):90078.#T$(IM%)[/#IS%10T$T$"0"(IS%):9009l0#T$T$(IS%)|1#TT190202#BOX,6,6,273,176,0:9:9:CNV:"^ONE MOMENT PLEASE..."<#D$"OPENNAME":D$"DELETENAME":D$"OPENNAME":D$"WRITENAME":F$:L$:ENGE";CC$AFT,3:CN$:I120:5:NF$(I);CA$;:18:NL$(I);CA$;:31:S(I);CA$;:36:(T$(I),2);":";(T$(I),2);CA$::AFT,2:CO$21:"^HERE ARE THE SCORES YOU MUST BEAT";CC$:"^G^O^O^D^L^U^C^K!!!";CC$SPACE: (#845,RA:847,WA:848,RAWp HOF+uNF$(20),NL$(20),S(20),T$(20)wzHF$"HALL OF FAME.CBF+":BOX,6,6,272,175:9:9:"^ONE MOMENT PLEASE..."D$"OPEN"HF$:D$"READ"HF$:Z120:NF$(Z),NL$(Z),S(Z),T$(Z)::D$"CLOSE"HF$ BOX,6,6,272,175:2:"^ADDITION";CC$:"^TABLE ^CHALL "X:TY:X%YD$"CLOSE PROBLEM"/^9000L READY,SET,GO DISPLAYiNOCNV:WIND,6,6,273,176BOX:10:CN$"READY..."CC$CO$:SPACEBOX:10:CN$"SET..."CC$CO$:SPACEBOX:10:CN$"GO!"CC$CO$:SPACECNV:WIND,0,0,279,191 60 1510" PRINTER SET-UP4NOCNV:852,1i"BOX,6,6,273,176,0:9:9:"One moment please..."'TT1:D$"OPEN PROBLEM":D$"DELETE PROBLEM":D$"OPEN PROBLEM"(D$"WRITE PROBLEM",Z:X0LV41:Y0LV416Z(X,Y)11620@Y" +"Z") "X" + "Y;:Z3(Z3)ĺ:[ZZ1:Z28Z55Z82ĺ:SPACE:BOX,6,6,273,176,0:2nY:X:VSP,1,118:2:"^WOULD YOU LIKE TO PRINT OUT "2:"THESE PROBLEMS? ";:NOCNV:INP,(3,"YESNO",1),IN$(IN$,1)"N"9000(IN$,1)"Y"15SED ?";:NOCNV:INP,(3,"YESNO",1),IN$:CNVA(IN$,1)"N"9000X(IN$,1)"Y"1470b1430wBOX,6,6,273,100Z1:2:VSP,0,1X0LV41:Y0LV41(Z1)3((Z1)3)Ė2:1490Z3(Z3)Ė25:149013Z(X,Y)11500184:WA:CN$:CO,153,167:"="B:12000:ZZ1500:ZZ:BOX,103,167,183,177:CO$U:qx PRINT WRONG PROBLEMSzTT1(12):VSP,1,1:HSP,2,1:21000WA09000*3:3:"^WOULD YOU LIKE TO SEE A":3:"LIST OF THE PROBLEMS THAT":3:"YOU MIS41:31500X0LV41*BX(X)Y(Y):HC3:30200cCN$:CO,103,167:Y(Y)" + "X(X):CO$qHT1:VT|11000HC0:30200ABRARA1:Z(X(X),Y(Y))1:CO,184,176:RA:BOX,103,167,183,177:1300 WAWA1:Z(X(X),Y(Y))1MCO,184,BOX:VSP,6,1?1:NOCNV:"ADDITION TABLE CHALLENGE";CC$:CNVJ31005zIZ%0:IS%0:IM%0:CO,8,176:"^TIME->00:00"CO,8,184:"^PRESS ^E^S^C TO STOP."CO,184,176:"0 ^CORRECT":CO,184,184:"0 ^INCORRECT"RA0:WA0:30000 Y0LVL OF ^FAME." VSPACE:6000; [WIND,6,6,273,176:BOX:8i \:"1. ^ADDENDS 0-5"::"2. ^ADDENDS 0-9" ]:"^ENTER YOUR OPTION AND PRESS ^R^E^T^U^R^N" ^6:"^WHICH ACTIVITY DO YOU WANT? ";:INP,(1,"-12",1),LV$ _LV(LV$):849,LV `5000 ~:";CC$::"^ADDITION ^TABLE ^CHALLENGE";CC$ Q::3:"^YOU MUST TRY TO ANSWER AS MANY"::3:"PROBLEMS AS POSSIBLE IN THE"::3:"SHORTEST AMOUNT OF TIME. ^IF YOUR" R:3:"SCORE IS HIGH ENOUGH, IT WILL BE"::3:"PLACED IN THE ^ADDITION"::3:"^HAL5:4:NOCNV% INP,(11,"-AZ",1),F$. CNVX 8:3:"^WHAT IS YOUR ^L^A^S^T NAME?"{ $10:3:"^[ ^]" )10:4:NOCNV .INP,(11,"-AZ",1),L$ 8CNV BBOX,6,6,273,176+ L3:3:"^H^E^L^L^O! ^"F$" ^"L$::"^W^E^L^C^O^M^E ^T^O Z(9,9)- X09:Y09:Z(X,Y)0:Y:XI "21000:BOX,6,6,273,176 ,(849)0ĺD$"OPENNAME":D$"READNAME":F$:L$:D$"CLOSE":LV(849):1150  START OF PROGRAM 3:3 "^WHAT IS YOUR ^F^I^R^S^T NAME?" 5:3:"^[ ^]" FLAG TO BYPASS NAME AND LEVEL( 163844 40050@ 230,64J HOOKz (4);"BLOAD TITLE.PFT,A30472":DFT,2,30472 (4);"BLOADLITTLE.FNT,A31300":DFT,3,31300 AFT,2,1:CNV CN$(14):CO$(15):CC$(3):CU$(96) D$(4) VSP,0,1 d ADD. CHALLENGE6n (C) 1987 BY CHARLES LUNDPx UPDATED 10/7/87 TJBu POKE 845,RA-# OF RIGHT ANSWERS POKE 847,WA-# OF WRONG ANSWERS POKE 848,RA+WA-# OF QUESTIONS ASWERED POKE 851,9-# OF TOTAL QUESTIONS POKE 849,LV-      !5įBOX:2300"#|(222)90400701#BOX:2300I#Y(218)(219)256n#"ERROR "(222)" OCCURRING AT "Yt# ertify that"CC$:::CNV:CN$"- ^"NF$" ^"NL$" -";CC$;CO$q"uNOCNV::"is a";CC$::CN$"AMAZING"CC$:"ADDER";CC$"u::CNV:"** ^CONGRATULATIONS!! **"CC$;CO$:NOCNV"u"y ESC""y2300"r ON ERR PROCESSING "t216,0:40000 #w(222)25,4:07!8'37,15:36,2(IM%9):IM%;:36,5(IS%9):IS%B!B'10000X!RBOX GENERATOR _!R1j!RX03!&RX,3X279X,3X279X,177XX,177XX,3X!0RX!:R!u SCREEN FOR COMPLETION OF ALL LEVELS!uSPACE:BOX8"uAFT,3,1:4:"This is to cITE PROBLEM2" LZ:P1NP0 VFL(P)16260F `N2(P)" + "N1(P):M tPg ~(4)"CLOSE PROBLEM2"~ (4)"RUN PRINTER" ' ' DIGITAL TIMER '(16384)127ı $'IZ%IZ%1:IZ%3610010!.'IZ%.:IS%IS%1:IS%60IM%IM%1:IS%.:37,15:36":"these problems ?";:INP,(3,"YESNO",1),IN$D(IN$,1)"N"2405[(IN$,1)"Y"6170e6130{ PRINTER SET-UP$852,4.BOX:9:9:"One moment please..."8(4)"OPEN PROBLEM2":(4)"DELETE PROBLEM2":(4)"OPEN PROBLEM2" B(4);"WR1)"Y"60506010%BOX:2:Z11P1NPR(Z1)3((Z1)3)Ė2:6090lZ3(Z3)Ė25:6090t13FL(P)16120Z") "N2(P)" + "N1(P);:Z3(Z3)ĺ:ZZ1:Z28ĺ:SPACE:BOXP:-18:"Would you like to print out21:"So 10 + "N2N110" = ?"?BOX,0,183,279,191,0:SPACEZBOX,6,150,273,176,0:xp DISPLAY WRONG PROBLEMSz11:"Would you like to see a list of":"the problems that you missed ?";:INP,(3,"YESNO",1),IN$(IN$,1)"N"2405 (IN$, LEVEL E":22:N1" + "N2" = ?"??N1N2TPN1:N1N2:N2TPmD21:"Start with "N1:21:"and count on."wN4500b LEVEL Fl22:N1" + "N2" = ?"qN1N2TPN1:N1N2:N2TPv22:N1" + "10N1" = 10":21:"and "N2" - "10N1" = "N2N1105(TP4)6Y1,XC7(TP3)5(TP2)6X1,YC7(TP7)5(TP4)6Y1,3JXP^ LEVEL Dw22:N1" + "N2" = ?" 22:N1" + "N1" = "N12:21:"so,"N1" + "N2" is"N12N1N2438021:"one more.":439021:"one less."&4500 0PN1:XC165:YC66:4200+CO,202,78:"+"GN20Ė29:9:"0":4100dTPN2:XC215:YC66:4200u32:9:"=?"4500h SUBROUTINE DRAW CUBESr3:X0TP1wX1(X3(X3))11|Y1(X3)11CBOX,XC(TP3)5(TP2)6X1,YC(TP7)ʺNL$:LV$:D$"CLOSE& D$"RUNUPDATE"9 DISPLAY HELPDHELP1^18:13:"Try again."21:5:"HINT:":160,50273,50273,107160,107160,50:(LV$)644020,4020,4020,4350,4400,4450 HELP LEVEL A,B,CN10Ė22:9:"0":4070T5,95F I16:CH$(64I):CH$LV$āX80I1595I15:X,80X,95::b CO,85I15,84:CH$::h | LINK TO UPDATE BOX:9:9:"One moment please..." D$"OPENNAME.FILE":D$"DELETENAME.FILE":D$"OPENNAME.FILE":D$"WRITENAME.FILE" NF$:ve completed all of the"::"levels in this program!":30100M. SPACE:3000i` Z1NP:FL(Z)1İ6000pb Ze BOX:9:9:"One moment please..."j D$"RUNMENU-END" DISPLAY LEVELS 3:X17:80X15,8080X15,95::95,80185,80:95,9518"You answered "C" problems correctly"::BOX,0,181,279,190,0b "out of "NP" problems."::850,2y CNPįSPACE:2400 C0NP0įSPACE:2400 "Congratulations on a perfect score!"::LV$"F"ĺ"You can now advance a level!"<$ LV$"F"ĺ"You harect":CF0D16::CEL:13:MS$:CF0HELP0İ4000:FL(P)1:2150bCF1CC1:FL(P)0:226018:7:"The correct answer is "ABOX,0,183,279,191,0:SPACE:BOX,53,6,274,176,0P<BOX:2::"Well, "NF$","::"this session is over."::B$;CO$:IZ%IZ%5R16368,0:10000:C$((16384)128):16368,0:C$(27)230016368,0:C$(8)C$(21)C$(127)įBOX,116,112,132,145:IZ%IZ%6:2170C$(13)IZ%IZ%3:2205X(A$)10(B$) MS$"Correct!":CF1:(XA)MS$"Incor$;CO$:IZ%IZ%4G16368,0:10000:B$((16384)128):B$(27)230016368,0:B$(8)B$(21)B$(127)įBOX,133,112,151,145:IZ%IZ%6:2160B$(13)B$A$:A$"0":2210B$"0"B$"9"IZ%IZ%3:218013:15:DB$DG$((B$)):CN$;DA$;DURN":WIND,6,6,273,176:1:"Press ESC to stop.";CC$xkBOX,116,112,151,145:3:115,111152,111152,146115,146115,111p16368,0:10000:A$((16384)128):16368,0:A$(27)2300uA$"0"A$"9"IZ%IZ%3:2160z13:17:DA$DG$((A$)):CN$;DA0:IZ%0:15:2:"TIMER":2:"00:00":P1NPIN1N1(P):N2N2(P):AN1N2THELP0_45:17{>N1$DG$(N1):N2$DG$(N2)HSY$DG$(11)RCN$;N1$:15:SY$;N2$;CO$\BOX,113,107,154,108,33fWIND,0,183,279,191::"Enter your answer and press RETPP1::I29:N1(P)I:N2(P)I1:PP1::NPP:P1:I19:J13:N1(P)I:N2(P)J:PP1:::I49:J13:N2(P)I:N1(P)J:PP1:::NPP:P1:I29:J(11I)9:N1(P)I:N2(P)J:PP1:::NPP: DO NP PROBLEMS+AFT,2,1:C0:BOX:IM%0:IS%P)T1:N2(P)T2:cP1:I09:N1(P)0:N2(P)I:PP1::I19:N1(P)I:N2(P)0:PP1::NPP:xP1:I19:N1(P)1:N2(P)I:PP1::I29:N1(P)I:N2(P)1:PP1::NPP:P1:I09:N1(P)I:N2(P)I:PP1::NPP:/@P1:I18:N1(P)I:N2(P)I1:"A":D$"CLOSE"F$:7jXL$,LV$:XF$NF$XL$NL$1120JtD$"CLOSE"F$:dRND DRAW W/O RPLCMNT~N1(55),N2(55),FL(55)(LV$)641300,1400,1500,1600,1700,1800NPNP1:I1NP:T1N1(I):T2N2(I)P((1)NP1):N1(I)N1(P):N2(I)N2(P):N1( )2500 .SPACE:BOX:I 89:9:"One moment please...":1200:2000e L READ IN LIST OF NAMES N IF NAME NOT IN LIST, P START AT LEVEL A. QBOX:9:9:"One moment please..." VD$"OPEN"F$:D$"READ"F$`XF$:XF$"EMPTY"XF$"END"LV$,(15,"-AZ",1),NL$:P D$"OPEN NAME":D$"WRITE NAME":NF$:NL$:D$"CLOSE NAME"Z 1100m !LV$"G"1060 "BOX:8:"You have finished all the levels.":SPACE #849,0:243 $BOX:::"Welcome, "NF$". Today you will be working on level "LV$"."1000E AFT,3,1:8:11:CN$"LEARNING THE":"ADDITION FACTS";CC$;CO$W SPACE:BOX:j (849)11055 3:"[ ]":2:"What is your FIRST name?":2:INP,(11,"-AZ",1),NF$: 6:"[ ]":5:"What is your LAST name?":2:INP(849)1ĺD$"OPEN NAME":D$"READ NAME":NF$:NL$:D$"CLOSE NAME"n DFT,1,29696:DFT,2,30472:DFT,3,32400 HOOK:WIND,6,6,273,176:BOX NOCNV:PARSE I014:DG$(I)(32I2)(33I2): "D$(4):F$"FACTS.LVLS"  MAIN PROGRAM 2 NAME.FILE * INITIALIZATION= 230,64:16384J DG$(14)V 40000 CA$(1):CC$(3):CL$(12):CN$(14):CO$(15) (4)"BLOADASCII BOLD.FNT,A29696" (4)"BLOADMATH.FNT,A30472" (4)"BLOADTITLE.PFT,A32400" D$(4)C vdPROGRAM: ADDITION 8i TRAINING\n PROGRAMMERS:TIM BUEGE/C. LUNDtxCOPYRIGHT (C) 1986 REVISION: CHL 11/30/86 FILES: MATH.FNT ASCII BOLD.FNT TITLE.PFT FACTS.LVLS          Ǎ΍ȍ΍ȍ΍ȍ΍ʍʍ ,80X V: y ESC "y1204 @ ONERR ROUTINEA JY(222)V TY90Y255ī120 ^"ERROR "Y" OCCURRED AT "(218)(219)256 NHC((1)2):2HC((1)2)4 THC,0HC,180:2HC,02HC,180:278HC,0278HC,181:276HC,0276HC,181 Y0,127 n18:"^SO LONG FOR NOW."] xSPACE:BOX:9:9:"^ONE MOMENT PLEASE...":D$"RUNMENU-END"k R BORDERy R1:X03 RX,3X279X,3X279X,177XX,177XX,3X &R: UBORDER U1:X03 V22X,80X260X,80X260X,117X22X,117X22X ("^WELL, ^"A$",";:NANQĺ" YOU DIDN'T FINISH"::"THE LESSON BUT HERE IS YOUR SCORE"::"FOR THE PORTION YOU DID DO.":60 2" HERE IS YOUR SCORE FOR THE LESSON." <22000 Z10:5:N1" PROBLEM(S) CORRECT" d12:5:NW" PROBLEM(S) INCORRECT" SUMMARY - BY H.N. 8/19/86; UPDATED 11/26/86 CHLAM 40000yN1(845):NW(847):NQ(851):NA(848)D$(4)D$"OPEN NAME":D$"READ NAME":A$:D$"CLOSE NAME"!HOOK:AFT,2,1:CNV#21000:WIND,6,6,273,176:BOX %CO:2   ppxp````pp pppppx```x@ 000 P`0pxxxx```xpppppxp````pp ppppp8``8 000`t`````PPP0xx0 X`hh0`0```0`000`pp 0`@ @pp0p00xppxxp0``ppppxp@@@@0``0`0`p`pppxxxx```xppp΍΍΍΍ō΍ʍʍ͠ҠōҽԠϠϠϠϠԠϠϠϠϠԠϠϠϠϠΠήˠΠ  ԠҠӠҠϠĠӠήˠΠ  ԠҠҠĠӠήˠΠΠԠŠ ԠǠŠծԠҤΠբƠˠΠ  Š̠Π  ԠҠҠΠĠӠލ͠ŠҠȠӍΠˠϠ  ԠӠŠҠϠŬ ԠàϠĮŠԠƠˠ  P Pxp @ @  @  @hPPP P PP  @@  P@ pxxxxxxpx0H@@@@pxp ` p0`` pبppxxxp@@@@H0hP @ppppx @ @@ @  @p px Pppxxp ppبȨppph𠐈ppp pP AUSCWININjXmemfj4kWkkkkkkkdkkllBmmmm` PPPPPPPP xp(  @@@h @ @@  p p @  @pȈp ` pp0@0p0Pp8@p @@Ɲo) +po9pp Ъ 8pLo ` ֩PyQ AL +pppAp`#p"p p"p#p` ~L pH)hJJJAp`LANCS AZ09!/:@[`{~ @BOHOOUNHOOCECRDFAFPARSNOJUSJUSCNNOCNGCDVSHSSPACCEP QpRpZp[p߹Zp[pIo pIo , g =p ,Ho $pMp) Np OpPp)?p ߅ l Mo ) L{o HHH>p hhh ɛ Moo0LooɈ95ɍ=p7,?p >p h5880`L =p>p?pHoAp ( $pL!o | {$0! >p ,Ln ^ {$0LnNHo Lo|Jo nr- p nKo n p-KoKoKo pLnnJoLoJo^`NHo Qphh,lp` ֩PyQ ALŠҠ僁iimiʈ i i &'iq& iLi N8`f `.f`xmym ` ң Σ  h`+ hR("  LPj,Hk  l  hl`L, HHHHHHHHH k ީl wjlNO,ɍɠ ɛ8nl,lPݩ lhhhhhhhmHihʍ i i i LiL 2k 3kM4k2k g<>=M4k?'<>2k2k3k` H g Rh PQ`L     խ)?` ` @)`,` Rj ެiii g&' i jQ&-iQ&&ii i`*U U*ժ Fj')JMFj)i Q&,iP 0=Kj`Gj`J&)` `L3f̙ujvj ߅$0Hujvj LbLvjj j` hiii h8)h` g R  QP (`L h`L)  @ iiiiiiiii g iii i i g iii i iBi g&' i jQ&-iQ&&ȭi i j& jQ&-iQ&&ii i`i-hhh hJ` &eeieh ghIiVhi 썛h gmh﬜hMhVhPjjjjjjj0jj) h0ȱjhjhhУ`8pPH)8 qȥq-`,f`imimʈ i iiʎ iLi Aggg` gg }ggg` g Ag }gggg`{g|g|g8pug.{g(ugg|gm{gg`8p g)gJJ gg gg .g .g ngg)ggmgg`hH80 " Jfm8h)` dem88eLf` deme` d8` f@ yf yf f`Lb dffL(f ``fʽ`) ` `fH`mS` dS`)We`Ve hWe gVe}`mf8ff`f` dLb,0*`%f 8fHfJhj`mfff` b d` b dI``L defff`) ffffffO,0 `)  d`f(`HHf,Pf88`f d fhLcfHfHff,P d fhf8hfffffff``S`S```f穀f f`f3f'ff ``)    LX8e湥 pHpH L`@ @ʩ WRPT` J  dȱȱȱ` hfH) #,f h`` fffffffh`f fS```emffff f`em (f%%h $20 LPc $ aHaH`dWeceWeeeee'fIfbffffff(bb d cf hf gNOH c h f ghH ,aɈ( cb h) e f g c ebbh`xo 8ɀ`?```L`bbbbp$% `@ GaLa6 ,fLbLcfPa bHaa,aaɠ,wa ` a欇aah`ɀ)?  @IH c$ d e$%0 d              000`0x |||| ||x|8l````|| x0p000x8pp00000xxx|| |x ````l8|x0x0x| x0`00`0000000000`0000`l0`x000x|0xxx||00000 xxxxlxx x000000xx0܌x0xx0000 0``0 0xp`000000lllXXXXX0|x<00` ``t0`0``00 00x0x00000 @0 0`xx0p0000xx 8` 8 x8x x<`x 0```xxxx| 00000`0``0`0 !!!!!9040070BOX:4-Y(218)(219)256R"ERROR "(222)" OCCURRING AT "YXHE COMPUTER OFF. ^THE":5:"SWITCH IS LOCATED BEHIND THE":5:"COMPUTER ON THE LEFT."[r15:2:"3. ^TURN YOUR TELEVISION OR":5:"MONITOR OFF."`r29280y ESC"y4@r ON ERR PROCESSING t216,0w(222)255įBOX:4 |(222)rA(999)(1000)256:B(A)(A1)256:CS(B1)16:CS1CS7CS6\ Br:(13)(4)"PR#"CSb Gr LrBOX:5:2:"^TO TURN THE COMPUTER OFF:" Qr7:2:"1. ^REMOVE THE DISK FROM THE":5:"DRIVE AND PUT IT IN A":5:"SAFE PLACE."UVr11:2:"2. ^TURN THO AND PRESS ^R^E^T^U^R^N"x r10:8:"^WOULD YOU LIKE TO USE":9:"ANOTHER DISK? ";:NOCNV:INP,(3,"YESNO",1),IN$:CNV: r(IN$,1)"Y"(IN$,1)"N"29207 r(IN$,1)"Y"29260 .rBOX 8r10:9:"^INSERT THE NEW DISK." 9rSPACE:::UNHOOKD =KES", nOP2ĺ(4);"RUN ADDITION TRAINING"Q sOP3ĺ(4);"RUN ADD. CHALLENGE"w xOP4ĺ(4);"RUN TEACHER OPTIONS" 29200 R BORDER R1:X03 RX,3X279X,3X279X,177XX,177XX,3X &R: rBOX r16:2:"^ENTER ^Y^E^S OR ^N^R AND":"PRESS ^R^E^T^U^R^N ";:INP,(1,"-14",1),IN$:O(IN$)K PO429200 ZO3įBOX:9:9:"^ONE MOMENT PLEASE...":D$"RUN MENU" d OPTIONS eOP3Ĺ849,1 fO2Ĺ849,0 hBOX:9:9:"^ONE MOMENT PLEASE..." iOP1ĺ(4);"RUN COUNTING SNA"^WHAT WOULD YOU LIKE TO DO NEXT?"h (:"1. ^RUN THIS PROGRAM AGAIN":1:" USING THE SAME OPTIONS." -:"2. ^RUN THIS PROGRAM AGAIN":4:"USING DIFFERENT OPTIONS." 2:"3. ^RETURN TO MAIN MENU." <:"4. ^END."< F:"^ENTER YOUR OPTION NUMBEZ MENU-END& PEEK(850)=OPT #< POKE849,LV-FLAGj (C) 1986 CHARLES LUND VERSION 11-26-86v4000016384HOOK:AFT,2,1:(15) OP(850):D$(4):CNV:VSP,1,121000:WIND,6,6,273,176:BOX(846)129200# 3:2:! ! ! ! ! !!!!T "Y C PRINTERS."R BORDER-R1:X03\RX,3X279X,3X279X,177XX,177XX,3Xd&R:ny ESCv"y20r ON ERR PROCESSING t216,0w(222)255įBOX:20|(222)9040070BOX:20Y(218)(219)256"ERROR "L THE":"ADDITION FACTS. ^PLAYERS"g`"ARE CHALLENGED TO BEAT THEIR OWN":"TIME OR BE IN THE TOP 20."my~3:"^TEACHER ^OPTIONS"(3):"^THIS PROGRAM LETS A TEACHER":"MANAGE OPTIONS 2 AND 3 AND SET" "THE SYSTEM FOR USE WITH":"DIFFERENTD THE COMPUTER MONITORS THE":"PROGRESS OF EACH STUDENT. 100% MASTERY OF ";8"EACH LEVEL IS REQUIRED IN ORDER ";:"TO MOVE ON TO THE NEXT LEVEL."GL3:"^ADDITION ^TABLE ^CHALLENGE"(3)"V:"^THIS IS A TIMED BASIC FACTS":"ACTIVITY USING ALSKIP COUNTING WITH NUMBERS":"FROM 1-10."/ V 3:"^LEARNING ^THE ^ADDITION"(3)h "^FACTS"(3) $:"^THIS IS A SIX LEVEL ACTIVITY":"DESIGNED TO PROVIDE STRATEGIES":"FOR LEARNING VARIOUS FACTS. ^THE"L."LEVELS ARE CAREFULLY SEQUENCED":"AN"' OPT3ĺ(4);"RUN ADD. CHALLENGE"N OPT4ĺ(4);"RUN TEACHER OPTIONS"i X END-BOOT DISK OR NOTt b846,1 lBOX:9:9:"^ONE MOMENT PLEASE...":(4);"RUN MENU-END" 3:"^ADDITION ^SNAKES"(3)) :"^THIS PROGRAM PROVIDES PRACTICE":"IN ):850,OPT ,OPT5330( 6OPT66001 @470B JDS14:BOX^ TDS1000,1050,1100,1150i |SPACEq DSz 100 BOX 849,0 9:9:"^ONE MOMENT PLEASE..." OPT1ĺ(4);"RUN COUNTING SNAKES" OPT2ĺ(4);"RUN ADDITION TRAININGADDITION ^TABLE ^CHALLENGE"! = "4. ^TEACHER ^OPTIONS"C [ "5. ^DESCRIPTIONS"a p "6. ^END" 19:"^TYPE THE NUMBER OF THE PROGRAM":"YOU WANT AND PRESS ^R^E^T^U^R^N. "; "X((78)): RND PATCH 'INP,(1,"-16",1),IN$:OPT(IN$,6,6,273,176:BOX0 }3:X1040:29,X251,X:X6 b NOCNV:2:"Conquering Basic Facts"(3)p 3:(14) "Addition Main Menu"(3) :(15) CNV:6:"1. ^COUNTING ^SNAKES" "2. ^LEARNING ^THE ^ADDITION ^FACTS"  "3. ^  MENU+ (C) 1987 BY CHARLES LUNDC 1/06/90 BY C.L._ POKE 850,OPT-OPTION #u POKE 849,0-FLAG POKE 846,1-FLAG TO END16384846,0:40050CC$(3)dZM24:HOOKsCNV:AFT,2,1:(15) xVSP,0,1:21000:WIND"""""""""!BOX:99# r ON ERR PROCESSING . t216,0G w(222)255įBOX:99] |(222)9040070j BOX:99 Y(218)(219)256 "ERROR "(222)" OCCURRING AT "Y C6:"^APPLE ^COMPUTER PRODUCTS.":14:11:"^COPYRIGHT 1981":16:8:"^APPLE ^COMPUTER, ^INC."l SPACE:BOX 9:9:"^ONE MOMENT PLEASE...":D$"RUN MENU" R BORDER R1:X03 RX,3X279X,3X279X,177XX,177XX,3X &R: y ESC "y ^PUBLISHING ^COMPANY"(3):"^ALL ^RIGHTS ^RESERVED"(3)H rSPACE:BOXj |NOCNV:3:"CREDITS"(3):CNV 6:106,21170,21170,33106,33106,21 8:5:"^PARTS OF ^C^O^N^Q^U^E^R^I^N^G ^B^A^S^I^C"\ 10:5:"^F^A^C^T^S WERE DEVELOPED USING":12:O,98,31:(3)"Volume 1" ;( =AFT,1a @7:"ADDITION"(3):CNV:9:"^BY ^CHARLES ^LUND"(3)z E12:9:"^COPYRIGHT" J3:148,104157,104:X105113:147,X158,X:X:148,114157,114 O12:19::"C" Q:12:21:"1987"8 T:::"^WHITE ^BEAR0" c40050J dCNV:DFT,1,29696:DFT,2,30472:DFT,3,30960:AFT,1:CN$` WIND,6,6,273,176 "21000:3:X1545:29,X251,X:X ,6:22,10258,10258,5022,5022,10 .AFT,3,1 1NOCNV: 3CN$ 6CO,32,16:(3)"Conquering Basic Facts":C 400502 (C)1987 CONQUERING BASIC FACTSH BY CHARLES LUNDj(CL$(12):CN$(14):CO$(15)vP230,64Z16384_D$(4):D$;"BRUN HPRINT":D$;"BLOAD ASCII BOLD.FNT,A29696"`D$;"BLOAD LITTLE.FNT,A30472" aD$;"BLOAD BIG.FNT,A3096""" " " " "