' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭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-(D 0Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`  !` !`b 0ȱ 1 w * + * + *80,+1- m,. ! m-/ 8./ .  m, ȱ m- Lhh`ưưرưư  ` 狩 狩 `)* ` ! `HHHHȌ /hhhhL/ߩ` ``΢`` z1ȱG45`E 45L ɁCD L'EɯϠ҇H6`` Ē ` e e 8 خ'( “ ͓ ` 狩 `,+ 狭+ 哭, `HJJJJ h) ɺi `-i#-- E#`ȱ з z пαhh8HH`뷥 *`掫hhhhiiH HHH` YN EL4 L- YE췭F zC ȱ   ɋ   0 .L Y` ȱ 8018 ȥ `81ȭ1ɋ船8 ȹ `` `"lHh0` ȱ췩 "# z-` -Lj i !6ɫɭɮǠ6  ` .L 1 # 0 1 .L91`$ɍdɯɯ  $ L %蘝%L ; K ` 1 ՐL01 ȱ 8  `%`  `  # .L` ȱ `  ` .L> X` ` i i n`# L26 #  `  ȥ  ȑ `$  # ````H6  iX6ӠְĠ Yɍ`%%ȹBi$ȹiH hɠ  %%Lq`׎ $$ɍɠ 6Ȍ׎LŎ׎`$׎`6 ՠ S!$)A015 hɍ ` a nL `ꋠ Š Ϡ Ϯ>ɠ Š Ϡ LL_L ` ` ϋ Ë6若7` stȑS LM7667`67` ۋ` Ë ϋ``ڕ``ڕ`L~ H         7--987tE                                      !  /.!* ;"                                                %           +                                       5Ӡ      +   -             *   /  ;  #      } COPYRIGHTED 19793} BY ED ZEIDMANJ} TEACHERQ} X}5j (FP) 936:11:10.*"THIS FILE IS EMPTY"4?:@zT" TO CONTINUE........ PRESS ";:50,63:"RETURN";:50,255hKEY(KBD):KEY1288040rKEY1418070:8040CLR,0:'7000\+N$""13500.20002300043500N";:50,63:"RETURN":50,255%2900;KEY128("Q")ıN$KEY1413600Yt32005_oX::10:10l"PROGRESS REPORT FOR:"D$;"OPEN NAME"D$;"READ NAME"N$D$;"CLOSE NAME"N$""72001520(N$)2:N$  :58 "DO YOU HAVE ANOTHER STUDENT DISC?":? 8~ "IF NOT, THEN TO QUIT PRESS ---> ";:50,127:"Q":50,255 18 "TO READ THE SCORES ON ANOTHER DISC:" 21 2:"(1) INSERT THE NEXT STUDENT DISC"  2:"(2) PRESS N$;"'S GRADE FILE."6l 17:"THIS IS WHAT I WANT.";dq 25:"PRESS ---> ";:50,127:"Y":50,255v 21:"NO! I DO NOT WANT TO CLEAR THIS FILE.":{ 25:"PRESS ---> ";:50,127:"N":50,255 2900:KEY128("Y")1000 KEY128("N")3200SS ---> ";:50,127:"C":50,255] 20:8:"IF NOT PRESS ---> ";:50,127:"RETURN":50,255g: 2900D KEY128("C")3170N KEY141ıX 3130b 936:4:15:"C L E A R":15:"---------"g 10:"THIS CLEARS AND ERASES ALL RECORDS IN"i :  :5, "DO YOU WANT TO CLEAR ";? (N$)103054c :16:"-----":N$;"'S"::3055} N$;"'S":16:"-----" "SCORES FROM THIS DISK. CLEARING": "THE SCORES MAKES THE DISK READY"::"FOR A NEW STUDENT."  :11:"TO CLEAR PRE9:25206 ((REC%1)9)2L$"MULTIPLY":NX28:2520L L$"DIVIDE":NX99p LINE:L$;:15:N$:LINE(37): "SKILL NUMBER NUMBER NUMBER";:35:"%" "LEVEL TIMES QUESTIONS CORRECT CORRECT" T KEY(KBD):KEY1282900 CLR,0QUES%)'V 10:"LEVEL";:26:"CORRECT"H` LINE(37)2:LINE23LINE1Rj 8000pt (37):K138:".";:K:w~ I}  LINE1ė MS%0:TTIM%0:TQUES%0:TC0R%0 ((REC%1)9)0L$"ADD":NX10:2520 ((REC%1)9)1L$"SUBTRACT":NX1  PC0R%9T5%36)  PC0R%99T5%35k $ 3:LVL%;:T2%:NTIM%;:T3%:NQUES%;:T4%:NC0R%;:T5%:PC0R% . R%(I1)NX2430 8 K138:"-";:K B :10:"MEAN";:26:"TOTAL"L L$;:10:"SKILL = ";(MS%10TTIM%)10;:28:"% = ";(TC0R%100TS%MS%LVL%NTIM%:TTIM%TTIM%NTIM%:TQUES%TQUES%NQUES%:TC0R%TC0R%NC0R%j T2%10:T3%19:T4%28:T5%37} NTIM%9T2%9 NTIM%99T2%8 NQUES%9T3%18 NQUES%99T3%17  NC0R%9T4%27 NC0R%99T4%26  PC0R%NC0R%100NQUES%XR fD$;"READ GRADE,R";R%(I)= pTIM%(I),QUES%(I),C0R%(I)D zIZ D$;"CLOSE GRADE"p D$;"CLOSE GRADE"~ I1MAXR REC%R%(I) REC%NXİ2450 LVL%REC%(REC%9)9:LVL%0LVL%9 NTIM%TIM%(I):NQUES%QUES%(I):NC0R%C0R%(I)J M dD$;"CLOSE RECORD" 3 LINE1:J0:NX0L D$;"OPEN RECORD,L2"X I136r D$;"READ RECORD,R";Iz R$ R$"0"JJ1:R%(J)I * 4D$;"CLOSE RECORD" >MAXRJ:R%(MAXR1)100 HMAXR0ı RD$;"OPEN GRADE, L12" \I1MA2 #F=3" .I136. 8D$;"WRITE GRADE,R";I; B0:0:0B LIY VD$;"CLOSE GRADE "_ :s D$;"OPEN NAME" D$;"WRITE NAME" "" D$;"CLOSE NAME" D$;"OPEN RECORD,L2" <R036 AREC%R FD$;"WRITE RECORD,R";REC% P"0" ZkR%(37),L$(10),N$(24)<TIM%(36),QUES%(36),C0R%(36)H D$(4)bKBD16384:CLR16368m210000{:11:12"CLEARING FILES"D$;"OPEN GRADE, L12"D$;"DELETE GRADE "D$;"OPEN GRADE, L12"D$;"WRITE GRADE,R0" $"L=1         $$!3b#(.#.-!#!'#& %$$)1$ &4,$ /%$+,"$"/"-%!%,%-&#!.%1""(+&0#$!)-0$##*+."& (0*%"" =%%!%#<*'!"D$$+)$ ')% ;#;&7E!! '!"+ K#'# "!!%!H ##!%"# "             1  "/"%"$. "-   "      '$("*+'u&{(1  /$ q%$%4'#&" ""$!           "% 95O-#(6 # !!   !           1٠          4 ]FP SUB YOUR SCORE IS:":5:NR%;" CORRECT ",NWR%;" WRONG">3+8020Z3+PB%PB%1:PB%511050d3+1840j3+~3+ADR%(1),SKILL%3+ADR%(2),33+ADR%(3),NR%3+ADR%(4),NWR%3$,D$;"RUN RESULTS"3N3} COPYRIGHT 19803} BY ED ZEIDMANL%0SKILL%(ADR%(1))+2e'22:31:SKILL%62* MAIN@2 +936`2+NPROB0:NR%0:NWR%0:RTS%0j2 +PB%1t2*+1400~24+DP%12>+20002H+21002\+RITE%1111502f+1800:REPET%12p+2000:21002z+REPET%REPET%1:RITE%1REPET%31112043+N$;",4:"HOW GOOD ARE YOU AT SUBTRACTION?":S1G'4:"ENTER YOUR SKILL LEVEL RATING.":z1L'4:"IT IS A NUMBER FROM 1 TO 9":1Q'4:"( 9 IS THE HIGHEST )"1V'22:4:"PRESS YOUR NUMBER --->"1['174430,962`'MAXTIME1000:2915:SKILL%DG%:SKILL%9SKILM E T O T H E":>0$'4:"S U B T R A C T I O N F A C T S"b0&':8:"L E A R N I N G A I D"v0*'D$;"OPEN NAME"0+'D$;"READ NAME"0.'N$03'D$;"CLOSE NAME"08'936:3:3:"E N T E R S K I L L L E V E L"0='4:3:I133:"-";:I(1B'10://@23O/T" TO CONTINUE........ PRESS ";:50,127:"RETURN";:50,255g/YMAXTIME1000:CLR,0r/^TIME1/hKEY(KBD):KEY1288060/rKEY1418070/|TIMETIME1:TIMEMAXTIME8040/CLR,0:936//':936:100'8:"W E L C O 3565/. BACKROUND:NUM%IDX1:1000:V%V%VZ%Y. ROW0HZ%1:V%,V%VZ%1H%ROW:ROW. 15:NUM%IDX:1000:920:900:CK%CK%3. IDXN2%ĺ:10:"NEXT, PRESS --> ";IDX1;" <--". IDXIDX1:NUMNUM1:NUMANS%3515/BACKROUND:NUM%IDX1:1000900:CK%CK%3O- 936:"VERY GOOD, ";N$:23:5:"PRESS THE NEXT NUMBER":3580- 936:" NO! YOU PRESSED ";DG%::10:"PRESS --> ";IDX;" <--"- SC%CK%:CK%64:LH%100:910:CK%SC%:3515- 936:10:"I'LL HELP YOU.". IDX1V%V%VZ%:BACKROUND: ERASE BLOCKS BY USER.?, BACKROUND39,0):NUMN1%:IDX1U, 2900:DG%03555h, DG%IDX3550, IDX1V%V%VZ%:BACKROUND:3530, BACKROUND:NUM%IDX1:1000:V%V%VZ%, ROW0HZ%1:V%,V%VZ%1H%ROW:ROW - 15:NUM%IDX:1000:920: YOU."0+ IL:NUM%IL:1000:920:CK%CK%3:900c+ ILNUMĺ:10:"NEXT, PRESS --> ";IL1;" <--"+ H1%H%:V1%V%:H%H%HZ%3:V%V%1:V%0V%0+ H%H1%:V%V1%+ H%H%3+ ILIL1:ILNUM3426: <<---- END LOOP + H%HS%:V%VS%+ ,936:5:"GOOD, ";N$:23:5:"PRESS THE NEXT ONE":CK%CK%3:900:3475*z :" NO! YOU PRESSED ";DG%::10:"PRESS --> ";IL;" <--":SC%CK%:CK%64:LH%100:910:CK%SC%:3440* IL1VS%V%:V%V%VZ%:39,0):NUM%IL1:1000:V%VS%+ 936:10:"I'LL HELPT LOOP <<-------()c H%1,H%1ILUL1F)d V%ILULS%(5):V%0V%0c)f V%S%(5)38V%39S%(5)o)k H%H%3)p 2900:DG%03455)q UNIT%DG%:UNIT%IL3450)r IL1VS%V%:V%V%VZ%:NS%IL1:2850:V%VS%)u IL:NUM%IL:1000:(QV%)1İ920E*w  ILNUMİ2850( H%H%36( ILIL1:ILNUM3326H(> H%HS%:V%VS%N(G (H -> INTERACTIVE BLOCK AND NUMBER LINE (M NUM0ı(R HS%H%:VS%V%:V%0:2:CK%50(\ UL0UL(NUM39)(] 0,ULNUM1H%(a IL1)b 4: <<-- STAR1 ' 0: <<---START LOOP7' H%1,H%1ILUL1U' V%ILULS%(5):V%0V%0r' V%S%(5)38V%39S%(5)' NS%IL:H%H%3:IL:IL(IL16)16BACKROUNDĠ4' NUM13IL13V%V%S%(5)1' 2800:NUM13IL13V%V%S%(5)1' NUM%IL:920(NUM13I113V%V%2@& RV%0V%V%VZ%:I1I11:I1NUM3225u& RV%1V%V%VZ%:NUM%I1:920:I1I11:I103225{& & ---- DRAW NUMBER LINE& NUM0ı& HS%H%:VS%V%:V%0:11& 15& UL0UL(NUM39)& 0,ULNUM1H%' IL130:900:H%H%1:3280@% ROW0HZ%1:V%,V%VZ%1H%ROW:ROW\% DP%2RV%1İ900:3280y% (VZ%3RV%0)I193270% 9I1:H%H%1:NUM%I1:1000:900:H%H%1:3280% H%H%8:NS%I1:NUM13I113V%V%2% 2800:900:I1NUMİ2850& H%H%8: <$ NUM0Ġ10:H%H%1:1005:H%H%1:CK%64:LH%100:910:^$ RV%1DP%DP%1:DP%2DP%0u$ I11:RV%1I1NUM$ I1:I1(I116)16BACKROUNDĠ4$ RV%1ĠBACKROUND$ RV%0CK%643I1$ RV%1I1NUMCK%CK%3% DP%1RV%1H%H%1:1# 3500# ANS%03080d# 936:N$;", COUNT WHAT IS LEFT"::5:"FIRST PRESS NUMBER";:1898,113# VS$"COUNT":990:CLR,0# NUMANS%:ULVZ%:H%H%HZ%:3400# 1330:H%39:BACKROUND15:DS%1:TPH%:2050# $ ---- DRAW NUMBERED BLOCKS%:RV%0:3200" HELP%03035A" V%V%VZ%:RV%1:NUMN2%:3200f" V%0:NUMANS%:ULVZ%:DP%23060" H%H%HZ%:3300:3080" N2%03060" 936:N$;", ERASE ";N2%;" BLOCKS BY COUNTING."::5:"START BY PRESSING";:1900,113" VS$"COUNT":990ROUND0:DP%1BACKROUND123! DP%2BACKROUND13j! BRDBACKROUND:1500:HZ%9:VZ%4:1320:N1%103015! HZ%7:VZ%3:1310:N1%133015! HZ%7:VZ%2! H%1:V%5:1:NS%N1%:2800:V%20:4:1100:V%30:9:NUM%N2%:1000 " H%20HZ%2:V%0:NUMN11) 6 ERS0S%(5):H%,H%S%(10)V%ERS:Q @ ERS0S%(5):H%,H%S%(10)V%ERS:^ S V%V9%:n T MAXTIME200y c TIME1 h KEY(KBD) j KEY1282950 m 176KEYKEY1852990 TIMETIME1:TIMEMAXTIME2920 CLR,0:DG%KEY176 ! BACK%TEN%10:V9%V%! TEN%028255 NUM%TEN%:1000G V%V%S%(5)1\ NUM%UNIT%:1000g V%V9%m! x" V9%V%' BACKROUND) H%S%(10)47H%47S%(10), ERS0S%(5):H%,H%S%(10)V%ERS:1 NS%102899 3 V%V%S%(5)1:NS%19V%V%NUM%ANS%:920"16301,0:936(8` (QV%)0ıUe RTS%1:22:NUM%N1%:920gj NUM%N1%:920t VI$VS$" "SIGN$" "~ NUM%N2%:920 RTS%0 VI$VI$" "VS$" EQUALS " VO VI$ VF CLR,0  TEN%NS%10:UNIT%NS205 2110*(QV%)1NUM%ANS%:920b936:21:"******** C O R R E C T *******"zNR%NR%1:RITE%1:936:" I HATE TO TELL ";:"YOU,BUT IT'S WRONG AGAIN.";:N$;", LET ME HELP YOU"VS$"LETME":990:3000NWR%1:GUESSGUESS1:936Ma1:1340:1350:VH%1H%23:V%15:1130:2155bfH%6:V%25:1130tkGUESS22200p:1:"SORRY,YOUR ANSWER IS WRONG."sRP%ANS%VS$"TWO HI":TN,3:990:TN,4:2170vVS$"TWO LO":TN,5:990:TN,4zTIME2002400:4ANS%N1%N2%*9GUESS1:RITE%0>>16301,0:936C22:"IF YOU NEED HELP PRESS ";:50,63:"ESC";:50,255:" KEY"HGUESS2İ2010M1900R936:HELP%1TIMEMAXTIMENWR%NWR%1:2205WRP%TEN%10UNIT%:RP%ANS%2180\NWR%1%9V%V%S%(5)21100RV%V%S%(5)1:9:N1%9S%(10)8S%(10)4V%V%1eNUM%N2%:1000V%V%S%(5)1:2:N1%9S%(10)4S%(10)6V%V%11120:4:V%V%S%(5)1:N1%9S%(10)10V%V%1DS%1NS%ANS%:2800:2099111032)S%(5):H2%39H2%39/H1%,H2%H%S%(10)2KH%H%S%(10)4:4:1110U2099r VH%=1 =>HORIZANTAL DSPH%S%(10)3920551550:H%S%(10)47H%47S%(10)V%1:1:NS%N1%:N1%9V%0DS%0V%2 2800 V%V%S%(5)2:8:N5:2020#VH%1H%11:V%1:2050A VH%=0 => VERTICAL DSP]1:N1%9V%V%S%(5)1oNS%N1%:2800H%H%S%(10)3:N1%10V%V%S%(5)28:1100V%V%S%(5)2:9:NUM%N2%:10002:H1%V%S%(5)S%(2):H1%0H1%0H2%V%S%(5VH%1H%28:V%26(VH%0V%10[NUM%TEN%:1000:V%V%S%(5)2:NUM%UNIT%:1000CLR,0:MAXTIMEM1%M2%:TIMET1T2VH%(1)2:DS%0BACKROUND(5)11:BRD(16):BRD4BRD1BRDBACKROUND1:1500:1340VH%0H%1:V%1M2%1100100SKILL%+T21:ANS%10M2%5HK2%(KBD):K1%1281980d176K2%K2%1851990K2%78K2%72K2%155HELP%1HELP%11995T2T21:T2M2%1970TEN%0:UNIT%K1%176:1995TEN%K1%176:UNIT%K2%176:NS%0:2850:4zGUESS2M1%200{T118K1%(KBD):K1%1281950T176K1%K1%1851960wK1%78K1%72K1%155HELP%1HELP%11995T1T11:T1M1%1920CLR,0:MAXTIMEM1%:TIMEM1%:CLR,0BACKROUND:1110:4NUM%K1%176:1000:NDKTP47:0,39K:K ?2NPROBNPROB1PN(NPROB)N1%:M(NPROB)N2%V/h0NPROB01899t5IPROB1:N1%N(IPROB):N2%M(IPROB)D2000:2100NIPROBIPROB1:IPROBNPROB1850klHELP%0:K1%0:K2%0xM1%3300300SKILL%1%(1)(SKILL%1)1:N2%(1)(SKILL%1)1>SKILL%91450VN1%N1%1:N2%N2%1fN1%N1%N2%ls BACKROUNDI0390,39IIBRD K01:0,39K39:0,39K39:K 16302,0TP38TP38BACKROUS%(6)4:S%(7)4:S%(8)5:S%(10)6:S%(9)6:2S%(1)1:S%(2)2:S%(3)2:S%(4)3:S%(5)4:S%(6)5:S%(7)6:S%(8)7:S%(9)8:S%(10)8:<S%(1)1:S%(2)2:S%(3)3:S%(4)4:S%(5)5:S%(6)6:S%(7)7:S%(8)8:S%(9)9:S%(10)10:FDB110:S%(DB)2S%(DB)::*xNS%(2):I0S%(4):V%I,H%S%(3)I:I:V%S%(4),H%S%(8):V%,H%S%(8):I0S%(4):V%I,H%S%(7)I:I|pV%S%(4),H%S%(2):S%(1)0:S%(2)1:S%(3)1:S%(4)2:S%(5)2:S%(6)3:S%(7)3:S%(8)3:S%(10)4:S%(9)4:*(S%(1)0:S%(2)1:S%(3)2:S%(4)2:S%(5)3:QV%,V%S%(4)H%S%(5):"V?[V%,H%S%(1):V%,V%S%(5)H%:V%S%(2),V%S%(5)H%S%(5):H%,H%S%(5)V%S%(5):H%S%(5),H%S%(7)V%S%(2):V%S%(2),H%S%(10):`=eV%S%(1),V%S%(4)H%S%(3):V%S%(1),V%S%(4)H%S%(7):j XcoV%,H%:IC:@.V%,V%S%(5)H%:V%,H%S%(1):H%,H%S%(10)V%S%(5):l8H%,H%S%(10)V%:H%,H%S%(10)V%S%(5)=IC0S%(10)S%(5):V%,V%S%(5)H%IC:IC:BH%,H%S%(5)V%:H%,H%S%(10)V%S%(5)GIC0S%(10)S%(5):V%,V%S%(5)H%IC:IC:L -CV%,V%S%(5)H%S%(5):H%,H%S%(5)V%:H%,H%S%(10)V%S%(5):tH%,H%S%(5)V%:H%S%(5),H%S%(10)V%S%(5)IC0S%(10)S%(5):V%,V%S%(5)H%IC:IC:$H%,H%S%(10)V%:H%S%(5),H%S%(10)V%S%(5))IC0S%(10)S%(5):V%,V%S%(5)H%IC%S%(10)V%S%(5):0 H%,H%S%(10)V%S%(3): V%,V%S%(5)H%:V%,V%S%(5)H%S%(4):V%,V%S%(5)H%S%(10):H%S%(4),H%S%(10)V%:H%,H%S%(4)V%S%(5):V%,V%S%(5)H%:V%S%(3),V%S%(5)H%S%(5):V%,V%S%(5)H%S%(10):H%,H%S%(10)V%S%(5): TEN%0UNIT%0VS$"ZERO"+ RTS%1ı= (QV%)1995a DY550SKILL%50:W81DY:W8:i VOr VS$z VF  NUM%11005,1010,1020,1030,1040,1050,1060,1070,1080,1090 V%,V%S%(5)H%:V%,V%S%(5)H%S%(10):H%,H%S%(10)V%:H%,HM%):9907 NUM%13NUM%15VS$V$(NUM%)" TEEN":990V VS$V$(UNIT%)" TEEN":990 TEN%5TEN%4VS$V$(TEN%)" TY ":970 TEN%2VS$"TWEN TY " TEN%3VS$"THIR TY " TEN%5VS$"FIF TY " UNIT%0980 VS$VS$V$(UNIT%):990SO,0:VS$SIGN$:995:SO,1$ c10000/ d100005 F CK%1CK%1W LH%1000CK% AS%(1),CK%:AS%(2),LH%:AS%(3),(LH%255)1 770: CALL BEEP  TEN%NUM%10:UNIT%NUM%TEN%10 TEN%1VS$"" TEN%1950 NUM%13VS$V$(NU V$(0)"ZERO":V$(1)"ONE":V$(2)"TWO":V$(3)"THREE":V$(4)"FOUR":V$(5)"FIVE":V$(6)"SIX":V$(7)"SEVEN":V$(8)"EIGHT":V$(9)"NINE":V$(10)"TEN":V$(11)"ELEVEN" V$(12)"TWELVE":V$(13)"THIR"::V$(15)"FIF" #PRT,0:SO,1:TN,4:EC,0 ((QV%)1Ĺ,KBD16384:CLR16368'D$(4);SIGN$"TAKAWAY"` N(5),M(5),S%(10),ADR%(4),AS%(3)lQV%800I14:ADR%(I)QV%I:IAS%(1)768:AS%(2)769:AS%(3)76828VS35630:VO35589:VF35592:PRT35604:SO35605:TN37282:EC35603 V$(30)                  BEGIN ---%'5000: STORE RESULTSB(6000: EVALUATE RESULTSL)8000R*e*D$;"RUN MENU"|} COPYRIGHT 1979 } ED ZEIDMAN RESULTS (FP)-- 'E TO CONTINUE ROUTINE 8JMAXTIME3000HOCLR%,0:23T" TO CONTINUE........ PRESS ";:50,127:"RETURN";:50,255^TIME1MAXTIMEhKEY(KBD%):KEY1288060rKEY141TIMEMAXTIME|TIMECLR%,0:: ' ---LL%1SKILL%1@:::5:"TRY THIS LESSON OR ANOTHER ONE AT"20:21:50,63:" ":50,255:21:5:"'SKILL LEVEL' = ";:50,63:" ";SKILL%;" "22:21:" ":50,2552334,SKILL%: SKILL% LEVEL PTR.@ ---- PRESS 'RETURN' ---................."::5:": G O O D :":5d"..............................."n6340"..............................."::5:": F A I R :":5"..............................."SKILL%SKILL%1:SKI1:63409V::5:"YOU MIGHT TRY A DIFFERENT LESSON AT"C`6350j"*******************************":5:"* V E R Y G O O D *":5t"*******************************"~SKILL%SKILL%1:SKILL%9SKILL%96340="..............:5:"I SUGGEST THAT YOU TRY":5:"THIS LESSON AGAIN AT"a $SKILL%SKILL%1:SKILL%1SKILL%1k .6350 8"*******************************":5:"* E X C E L L E N T *":5 B"*******************************"LSKILL%9SKILL%SKILL% PER CENT"$ 5:I131:"-";:I:? ::5:PRIT%906200\ PRIT%80PRIT%906250y PRIT%70PRIT%806280 PRIT%60PRIT%706310  PRIT% = % RIGHT < 60 "I'M SURE IT'S NO SURPRISE,":5:"THAT YOU NEED MORE PRACTICE.":  5:I131:"-";:I:4 5:TB25:NR%9TB24a "YOUR SCORE IS:";:TB:NR%;" CORRECT"x TB25:ND%9TB24 5:"OUT OF:";:TB:ND%;" PROBLEMS" 5:I131:"-";:I:: TB25:PRIT%100TB24 5:"THAT'S ---> ";:TB:PRIT%;"ORD,R";RECNUM% "1". D$;"CLOSE RECORD"4 oS p ---- STUDENT EVALUATIONy  INPUTS: NR%,NWRONG,SKILL% D$;"OPEN NAME" D$;"READ NAME" N$ D$;"CLOSE NAME" ND%NR%NWR%:PRIT%NR%100ND% :936:20(N$)2:N$:5UM% NTIM%,NQUES%,NC0R%< D$;"WRITE GRADE, R";RECNUM%` NTIM%1:NQUES%ND%:NC0R%NR%v D$;"CLOSE GRADE"  --- STORE RECORD NUMBER USED  IN RECORD FILE  "1" => RECORD STORED D$;"OPEN RECORD,L2" D$;"WRITE REC  KBD%16384:CLR%16368)D$(4);SKILL%(801)L(MENU%(802)[2NR%(803)k<NWR%(804)vd10000 ---- STORE RESULTS ON DISKND%NR%NWR%RECNUM%(MENU%2)9SKILL%D$;"OPEN GRADE, L12" D$;"READ GRADE, R";RECN      (FP)V------------------WT23:" TO CONTINUE........ PRESS ";:50,127:"RETURN";:50,255t^KEY(KBD):KEY1288030cCLR,0:KEY1418030h} : COPYRIGHTED: 1979 BY EDWARD A. ZEIDMAN READY FOR ARITHMETIC?p---------------# DRAW BLOCK[ INPUTS: SIZE,COLOR,H,V (=UPPERRIGHT HAND CORNER) ------------------------------ I0SIZE V,VSIZE1HI:I  @ ---- PRESS 'RETURN' ----- E TO CONTINUE ROUTINE J -------" COME BACK SOON." ;  ------- DRAW BACKROUNDU  AND BORDER r  INPUT: BACKROUND,BRD BACKROUND I039 0,39I I BRD: BRD=BORDER COLOR K01:0,39K39:0,39K39:K ? ---------------ART !" 8000> : NEED FOR DISK COMMAND FOLLOWING:Q D$;"RUN MENU"W g :936:10 " I DO NOT THINK YOU ARE READY"::" TO LEARN THE ADDITION FACTS.": " PLEASE ASK SOMEONE FOR HELP."::" I CAN'T HELP YOU YET.":::E AND BLUE)? IF SO PRESS -->";:2038,113@ 300:KEY177900K "QUESTT '950r , ---INPUT CHARACTER---- 6KEY(KBD) ;KEY128310 @KEY176KEY177340 J310 TCLR,0 ^ :936:10 15:"YOU ARE READY."::15:"LET'S ST/ 0:V1,VSIZEH1:H1,HSIZE1VSIZE:2^ ROW2COLM2ROW3COLM2ROW2COLM3Ġ9h 3000w COLM:ROW 936:21 "ARE THERE MORE BLUE BLOCKS? PRESS -->":1654,112 10:"OR"* "ARE THERE MORE BLOCKS ALTOGETHER (BOTH":"ORANG KBD16384:CLR16368'D$(4)Od936:10:11:"I WANT TO SEE IF":n10:"YOU ARE READY TO DO"::14:"ARITHMETIC."8000QUEST12:BACKROUND14:BRD1:1500SIZE4ROW14:COLM14 HROW8(3)2:VCOLM8(3)3    ōz #   ٠ Ҡ Ӡ Ӡ   ՠԠ4Š ٠Ҡÿ ĠӠ    Ϡ ӠŠϮ?ɠŠϠϠ Ġ Ġ Р Ԡ֠Š19:K  16302,0'BACKROUND?K4047:0,39K:KE?WNPROBNPROB1uN(NPROB)N1%:M(NPROB)N2%{/0NPROB018995IPROB1:N1%N(IPROB):N2%M(IPROB)D2000:2100NIPROBIPROB1:IPROBNPROB1850k lHELP%0:K6:S%(7)7:S%(8)8:S%(9)9:S%(10)10:GFDB110:S%(DB)2S%(DB)::wxN1%(1)(SKILL%1)1:N2%(1)(SKILL%1)1SKILL%9ıN1%N1%1:N2%N2%1: BACKROUNDI0390,39IIBRD K01:0,39K39:0,39K3(7)3:S%(8)3:S%(10)4:S%(9)4:w(S%(1)0:S%(2)1:S%(3)2:S%(4)2:S%(5)3:S%(6)4:S%(7)4:S%(8)5:S%(10)6:S%(9)6:2S%(1)1:S%(2)2:S%(3)2:S%(4)3:S%(5)4:S%(6)5:S%(7)6:S%(8)7:S%(9)8:S%(10)8:&<S%(1)1:S%(2)2:S%(3)3:S%(4)4:S%(5)5:S%(6)V%S%(1),V%S%(4)H%S%(3):V%S%(1),V%S%(4)H%S%(7):Aj XoV%,H%S%(2):I0S%(4):V%I,H%S%(3)I:I:V%S%(4),H%S%(8):V%,H%S%(8):I0S%(4):V%I,H%S%(7)I:IpV%S%(4),H%S%(2): S%(1)0:S%(2)1:S%(3)1:S%(4)2:S%(5)2:S%(6)3:S%H%S%(5):S%(4)3čV%4,H%4hRV2%V%S%(2):V2%,H%S%(3):V2%,H%S%(4):V2%,H%S%(6):V2%,H%S%(7):oV?[V%,H%S%(1):V%,V%S%(5)H%:V%S%(2),V%S%(5)H%S%(5):H%,H%S%(5)V%S%(5):H%S%(5),H%S%(7)V%S%(2):V%S%(2),H%S%(10):`=9eV%S%(5)H%:V%,H%S%(1):H%,H%S%(10)V%S%(5):]8H%,H%S%(10)V%:H%,H%S%(10)V%S%(5)=IC0S%(10)S%(5):V%,V%S%(5)H%IC:IC:BH%,H%S%(5)V%:H%,H%S%(10)V%S%(5)GIC0S%(10)S%(5):V%,V%S%(5)H%IC:IC:L+QV%,V%S%(4)5)H%S%(5):H%,H%S%(5)V%:H%,H%S%(10)V%S%(5):eH%,H%S%(5)V%:H%S%(5),H%S%(10)V%S%(5)IC0S%(10)S%(5):V%,V%S%(5)H%IC:IC:$H%,H%S%(10)V%:H%S%(5),H%S%(10)V%S%(5))IC0S%(10)S%(5):V%,V%S%(5)H%IC:IC:1.V%,5):! H%,H%S%(10)V%S%(3): V%,V%S%(5)H%:V%,V%S%(5)H%S%(4):V%,V%S%(5)H%S%(10):H%S%(4),H%S%(10)V%:H%,H%S%(4)V%S%(5): V%,V%S%(5)H%:V%S%(3),V%S%(5)H%S%(5):V%,V%S%(5)H%S%(10):H%,H%S%(10)V%S%(5):4V%,V%S%(%0VS$"ZERO" RTS%1ı. (QV%)1995R DY550SKILL%50:W81DY:W8:Z VOc VS$k VFq  NUM%11005,1010,1020,1030,1040,1050,1060,1070,1080,1090 V%,V%S%(5)H%:V%,V%S%(5)H%S%(10):H%,H%S%(10)V%:H%,H%S%(10)V%S%(UM%13NUM%15VS$V$(NUM%)" TEEN":990G VS$V$(UNIT%)" TEEN":990s TEN%5TEN%4VS$V$(TEN%)" TY ":970 TEN%2VS$"TWEN TY " TEN%3VS$"THIR TY " TEN%5VS$"FIF TY " UNIT%0980 VS$VS$V$(UNIT%):990 TEN%0UNIT:VS$SIGN$:995:SO,1 d10000& 7 CK%1CK%1H LH%1000CK%x AS%(1),CK%:AS%(2),LH%:AS%(3),(LH%255)1 770: CALL BEEP  TEN%NUM%10:UNIT%NUM%TEN%10 TEN%1VS$"" TEN%1950 NUM%13VS$V$(NUM%):990( NV$(0)"ZERO":V$(1)"ONE":V$(2)"TWO":V$(3)"THREE":V$(4)"FOUR":V$(5)"FIVE":V$(6)"SIX":V$(7)"SEVEN":V$(8)"EIGHT":V$(9)"NINE":V$(10)"TEN":V$(11)"ELEVEN" V$(12)"TWELVE":V$(13)"THIR"::V$(15)"FIF" #PRT,0:SO,1:TN,4:EC,0 ((QV%)1ĹSO,0*KBD16384:CLR16368'D$(4)7SIGN$"AND"\ N(5),M(5),S%(10),ADR%(4),AS%(3)hQV%800I14:ADR%(I)QV%I:IAS%(1)768:AS%(2)769:AS%(3)76828VS35630:VO35589:VF35592:PRT35604:SO35605:TN37282:EC35603V$(30)                 NE%SUM%:UL%VZ%:H%H%HSIZE:3300-$ 3080^$ NE%SUM%:UL%VZ%:936:N1%0SKILL%63075$ 22:" COUNT. START BY PRESSING NUMBER ";:1779,113$ VS$"COUNT":990$ 3400$ 1320:H%40:BACKROUND15:DS%1:2050:DS%0$ % ROW0HSIZE1:SUM%13V%V%3"# NE%N2%:3200D# H%H%2HSIZE3:SUM%103040b# H%H%HSIZE:SUM%143040r# H%H%HSIZE# DP%DP%1:DP%2DP%0:3065# H%H%HSIZE:V%0# NE%N1%:3200# NE%N2%:3200# SUM%13Ġ39,0):ERH%HSIZE39:0,39ER:#$1:NUM%N1%:1000:V%V%N1%VZ%2(N1%1)VZ%2(N1%0)(S%(5)1)" 4:1100:V%V%N2%VZ%2(N2%0)(S%(5)1)(N1%9N2%1)3:9:V%S%(5)39V%39S%(5):" NUM%N2%:1000" H%HSIZE:SUM%13H%H%3" V%0:NE%N1%:3200:VS$SIGN$:990# V%V%3:2920! CLR,0:DG%KEY176"! @! SUM%N1%N2%:SUM%03080e! BACKROUND13:DP%1BACKROUND12! BRDBACKROUND:1500:HSIZE9:VZ%4:1320:SUM%103015! HSIZE7:VZ%3:1310:SUM%133015! HSIZE5:VZ%2! H%1:V%N1%VZ%2:N1%1V%0@" S%102899, 3 V%V%S%(5)1:NS%19V%V%1T 6 ERS0S%(5):H%,H%S%(10)V%ERS:| @ ERS0S%(5):H%,H%S%(10)V%ERS: S V%V9%: T MAXTIME200 c TIME1 h KEY(KBD) j KEY1282950 m 176KEYKEY1852990! TIMETIME1:TIMEMAXTIMECLR,0  8 TENS%NS%10:UNITS%NS%TENS%10:V9%V%J TENS%02825_ NUM%TENS%:1000q V%V%S%(5)1 NUM%UNITS%:1000 V%V9%! " V9%V%' BACKROUND) H%S%(10)47H%47S%(10), ERS0S%(5):H%,H%S%(10)V%ERS: 1 NVS$"LETME":990 :30003NUM%ANS%:920G16301,0:936M]` (QV%)0ıze RTS%1:22:NUM%N1%:920j NUM%N1%:920t VI$VS$" "SIGN$" "~ NUM%N2%:920 RTS%0 VI$VI$" "VS$" EQUALS " VO VI$ VF LO":TN,5:990:TN,4(zTIME200220522110O(QV%)1NUM%ANS%:920936:21:"******** C O R R E C T *******"NR%NR%1:RITE%1:936:" I HATE TO TELL ";:"YOU,BUT IT'S WRONG AGAIN.";:N$;", LET ME HELP YOU"S%10UNITS%:RP%ANS%2180?\NWR%NWR%1:GUESSGUESS1:936ra1:1340:1350:VH%1H%23:V%15:1130:2155fH%6:V%25:1130kGUESS22200p:1:"SORRY,YOUR ANSWER IS WRONG."sRP%ANS%VS$"TWO HI":TN,3:990:TN,4:2170vVS$"TWO%ANS%:2800:20991110(32400:94ANS%N1%N2%M9GUESS1:RITE%0a>16301,0:936C22:"IF YOU NEED HELP PRESS ";:50,63:"ESC";:50,255:" KEY"HGUESS2İ2010M1900R936:HELP%1TIMEMAXTIMENWR%NWR%1:2205WRP%TEN6  28005 V%V%S%(5)2:8:N1%9V%V%S%(5)2?1100uV%V%S%(5)1:9:N1%9S%(10)8S%(10)4V%V%1NUM%N2%:1000V%V%S%(5)1:2:N1%9S%(10)4S%(10)6V%V%11120:4:V%V%S%(5)1:N1%9S%(10)10V%V%1DS%1NSS%(2):H1%0H1%09H2%V%S%(5)S%(5):H2%39H2%39RH1%,H2%H%S%(10)2nH%H%S%(10)4:4:1110x2099 VH%=1 =>HORIZANTAL DSPH%S%(10)3920551550:H%S%(10)47H%47S%(10)V%1:1:NS%N1%:N1%9V%0DS%1V%:1500:1340*VH%0H%1:V%15:2020FVH%1H%11:V%1:2050d VH%=0 => VERTICAL DSP1:N1%9V%V%S%(5)1NS%N1%:2800H%H%S%(10)3:N1%10V%V%S%(5)28:1100V%V%S%(5)2:9:NUM%N2%:10002:H1%V%S%(5)%0:UNITS%K1%176:19957TEN%K1%176:UNIT%K2%176QVH%0İ2850:4:V%10NUM%TEN%:1000:V%V%S%(5)2:NUM%UNIT%:1000CLR,0:MAXTIMEM1%M2%:TIMET1T2VH%(1)2BACKROUND(5)11:BRD(16):BRD4BRD1BRDBACKROUND1OUND:1110:4,VH%0ANS%9K1%177V%9WNUM%K1%176:1000:M2%1100100SKILL%oT21:ANS%10M2%5K2%(KBD):K1%1281980176K2%K2%1851990K2%78K2%72K2%155HELP%1HELP%11995T2T21:T2M2%1970TENS1%0:K2%0"xM1%3300300SKILL%7zGUESS2M1%200@{T11]K1%(KBD):K1%1281950y176K1%K1%1851960K1%78K1%72K1%155HELP%1HELP%11995T1T11:T1M1%1920CLR,0:MAXTIMEM1%:TIMEM1%:CLR,0 BACKRĠd            "                      ADR%(1),SKILL%2+ADR%(2),2.2+ADR%(3),NR%@2+ADR%(4),NWR%V2$,D$;"RUN RESULTS"\2Nx2} :COPYRIGHTED 19802} BY ED ZEIDMAN 2 ]FP ADD140014+DP%11>+2000"1H+210051\+RITE%111150H1f+1800:REPET%1X1p+2000:21001z+REPET%REPET%1:RITE%1REPET%2111201+N$;", YOUR SCORE IS:":5:NR%;" CORRECT ",NWR%;" WRONG"1+80201+PB%PB%1:PB%5110501+18401+2+ 1 TO 9":)0Q'4:"( 9 IS THE HIGHEST )"O0V'22:4:"PRESS YOUR NUMBER --->"_0['174430,960`'MAXTIME1000:2915:SKILL%DG%:SKILL%9SKILL%0SKILL%(ADR%(1))0e'22:31:SKILL%0* MAIN0 +9360+NPROB0:NR%0:NWR%0:RTS%00 +PB%11*+PEN NAME"/+'D$;"READ NAME"%/.'N$:/3'D$;"CLOSE NAME"o/8'936:3:3:"E N T E R S K I L L L E V E L"/='4:3:I133:"-";:I/B'10:4:"HOW GOOD ARE YOU AT ADDITION?":/G'4:"ENTER YOUR SKILL LEVEL RATING.": 0L'4:"IT IS A NUMBER FROM,0 .^TIME1*.hKEY(KBD):KEY1288060<.rKEY1418070`.|TIMETIME1:TIMEMAXTIME8040q.CLR,0:936w..':936:10.'6:"W E L C O M E T O T H E":.$'7:"A D D I T I O N F A C T S"::8:"L E A R N I N G A I D" /*'D$;"O,0,-tL%L%1:IL%N1%1(IL%1N1%1)3720?-yL%N1%1L%1l-~ :#3487 DETERMINE COLOR FOR NEXTBLOCK-IL%IL%1:IL%NE%3480-H%H9%:V%V9%--@23-T" TO CONTINUE........ PRESS ";:50,127:"RETURN";:50,255.YMAXTIME1000:CLRI,8H1%H%:V1%V%:H%H%HSIZE3:V%V%1:V%0V%0:NE%13IL%1V%V%1_,B3100:NE%93670,L12:H%H%2:NUM%IL%:1000:H%H%2:1320,VH%H1%:V%V1%,`H%H%3-jSKILL%5IL%N1%N2%0Ģ23:" START WITH -> ";N1%1;" <-":VS$"COUNT":990:CLRV%S%(5)1:NS%IL%1:NE%13V%V%15+2850:V%VS%g+936:"I'LL HELP YOU, ";N$:CK%64IL%3:900+$NS%IL%:NE%13IL%13V%V%S%(5)1+)L%:2800:IL%13NE%13V%V%S%(5)1,.IL%NE%ĺ:10:"NEXT, PRESS --> ";IL%1;" <--":VS$"COUNT":990%V%S%(5)1* NUM%IL%:920W* 936:CK%643IL%:900:SKILL%6IL%N1%N2%03640*22:" COUNT. PRESS A NUMBER.":3640*CK%64:LH%100:910* 936:" NO! YOU PRESSED ";RP%::10:"PRESS --> ";IL%;" <--":3540*IL%23610$+VS%V%:V%00:DG%03600) TENS%DG%2) 2900:DG%03600d) UNITS%DG%:RP%TENS%10UNITS%:RP%IL%3590t) IL%23570) VS%V%:V%V%S%(5)1:NS%IL%1:NE%13V%V%1) 2850:V%VS%) NS%IL%:NE%13IL%13V%V%S%(5)1 * L%:2800:IL%13NE%13V(H H9%H%:V9%V%:V%0:2/(z UL%0UL%NE%39C( 0,UL%NE%1H%R( L%1:IL%1Y( 4r( H%1,H%1IL%UL%1( V%IL%UL%S%(5):V%0V%0( V%S%(5)38V%39S%(5)( NS%IL%:H%H%3( SKILL%6IL%N1%3560( TENS%0:IL%103550) 29S%(5)38V%39S%(5)I' NS%IL%:H%H%3:IL%:IL%(IL%16)1639,0)Ġ4j' NE%13IL%13V%V%S%(5)1' 2800:NE%13IL%13V%V%S%(5)1' NUM%IL%:920'% IL%NE%İ2850'* H%H%3'/ IL%IL%1:IL%NE%3330'4 '9 H%H9%:V%V9%'G  I1%NE%Ġ39,0):NUM%I1%:1000.& H%H%7<& V%V%VZ%Y& I1%I1%1:I1%NE%3220_& z& H9%H%:V9%V%:V%0:11& 15& UL%0UL%NE%39& 0,UL%NE%1H%& IL%1& 0& H%1,H%1IL%UL%1& V%IL%UL%S%(5):V%0V%0' V%V%,V%VZ%1H%ROW::$% SUM%0ı5% NE%03219I% V%0V%V%VZ%y% 10:H%H%1:1005:H%H%1:VS$"ZERO":990:% I1%1% I1%:3100% SUM%133240% 9I1%:H%H%1:NUM%I1%:1000:920% H%H%1:3260% H%H%7:NUM%I1%:1000:920"&                          "                 &   AA    ;  \  O  J+              ANG >(?2Z),((  ' # )'$  ))("#  **)%)*/`$J#Q $'{9($7&5zI/3/,7  &                                                                                         $    "                                       UԠ    &'                                      %0 L`  - +4(,)}., ,*+ z"-+z+.,q%g pp5f 3  C  ( %31('%$ )##"+ T .`3g KC       I '   @ ?            ,  '                       *  NS%10M2%5)K2%(KBD):K1%1281980E176K2%K2%1851990hK2%78K2%72K2%155HELP%1zHELP%11995T2T21:T2M2%1970TEN%0:UNIT%K1%176:1995TEN%K1%176:UNIT%K2%176:NS%0:2850:4VH%1H%28:V%26 VH50176K1%K1%1851960AK1%78K1%72K1%155HELP%1SHELP%11995mT1T11:T1M1%1920CLR,0:MAXTIMEM1%:TIMEM1%:CLR,0BACKROUND:1110:4VH%0N1%9V%23NUM%K1%176:1000:M2%1100100SKILL% T21:AN(NPROB)N1%:M(NPROB)N2% /20NPROB01899>5IPROB1\:N1%N(IPROB):N2%M(IPROB)lD2000:2100NIPROBIPROB1:IPROBNPROB1850klHELP%0:K1%0:K2%0xM1%3300300SKILL%zGUESS2M1%200{T11K1%(KBD):K1%12819490!N1%(1)55:N2%(1)551N1%N1%N2%7> MBACKROUNDYI039e0,39IlIuBRD K01:0,39K39:0,39K39:K 16302,0TP38TP38BACKROUNDKTP47:0,39K:?NPROBNPROB17)6:S%(8)7:S%(9)8:S%(10)8:w<S%(1)1:S%(2)2:S%(3)3:S%(4)4:S%(5)5:S%(6)6:S%(7)7:S%(8)8:S%(9)9:S%(10)10:FDB110:S%(DB)2S%(DB)::xN1%(1)SKILL%1:N2%(1)SKILL%1SKILL%51490N1%4N2%41490(PB%2)PB%21pV%S%(4),H%S%(2):qS%(1)0:S%(2)1:S%(3)1:S%(4)2:S%(5)2:S%(6)3:S%(7)3:S%(8)3:S%(10)4:S%(9)4:(S%(1)0:S%(2)1:S%(3)2:S%(4)2:S%(5)3:S%(6)4:S%(7)4:S%(8)5:S%(10)6:S%(9)6:2S%(1)1:S%(2)2:S%(3)2:S%(4)3:S%(5)4:S%(6)5:S%(%,H%S%(5)V%S%(5):H%S%(5),H%S%(7)V%S%(2):V%S%(2),H%S%(10):L`=eV%S%(1),V%S%(4)H%S%(3):V%S%(1),V%S%(4)H%S%(7):j XoV%,H%S%(2):I0S%(4):V%I,H%S%(3)I::V%S%(4),H%S%(8):V%,H%S%(8):I0S%(4):V%I,H%S%(7)I:C:IC:L /ESS%(10)8čV%2,H%2:V%2,H%6:V%,V%4H%4:wTS%(10)6čV%1,H%:V%1,H%4:V%,V%2H%2:UV%S%(2),H%S%(3):V%,V%S%(4)H%S%(5):V%S%(2),H%S%(7):V?E[V%,H%S%(1):V%,V%S%(5)H%:V%S%(2),V%S%(5)H%S%(5):H%,V%S%(5)H%IC:IC:P.V%,V%S%(5)H%:V%,H%S%(1):H%,H%S%(10)V%S%(5):|8H%,H%S%(10)V%:H%,H%S%(10)V%S%(5)=IC0S%(10)S%(5):V%,V%S%(5)H%IC:IC:BH%,H%S%(5)V%:H%,H%S%(10)V%S%(5)GIC0S%(10)S%(5):V%,V%S%(5)H%I%(10)V%S%(5):SV%,V%S%(5)H%S%(5):H%,H%S%(5)V%:H%,H%S%(10)V%S%(5):H%,H%S%(5)V%:H%S%(5),H%S%(10)V%S%(5)IC0S%(10)S%(5):V%,V%S%(5)H%IC:IC:$H%,H%S%(10)V%:H%S%(5),H%S%(10)V%S%(5))IC0S%(10)S%(5):VS%(10)V%:H%,H%S%(10)V%S%(5):@ H%,H%S%(10)V%S%(3): V%,V%S%(5)H%:V%,V%S%(5)H%S%(4):V%,V%S%(5)H%S%(10):H%S%(4),H%S%(10)V%:H%,H%S%(4)V%S%(5):V%,V%S%(5)H%:V%S%(3),V%S%(5)H%S%(5):V%,V%S%(5)H%S%(10):H%,H%SV$(UNIT%):990- TEN%0UNIT%0VS$"ZERO"; RTS%1ıM (QV%)1995q DY550SKILL%50:W81DY:W8:y VO VS$ VF  NUM%11005,1010,1020,1030,1040,1050,1060,1070,1080,1090# V%,V%S%(5)H%:V%,V%S%(5)H%S%(10):H%,H%UM%13VS$V$(NUM%):990G NUM%13NUM%15VS$V$(NUM%)" TEEN":990f VS$V$(UNIT%)" TEEN":990 TEN%5TEN%4VS$V$(TEN%)" TY ":970 TEN%2VS$"TWEN TY " TEN%3VS$"THIR TY " TEN%5VS$"FIF TY " UNIT%0980 VS$VS$:VS$SIGN$:995:SO,11 HDS%1NS%ANS%:2800:< d10000B S CK%1CK%1d LH%1000CK% AS%(1),CK%:AS%(2),LH%(LH%256)256:AS%(3),(LH%255)1 770  TEN%NUM%10:UNIT%NUM%TEN%10 TEN%1VS$"" TEN%1950 NV$(0)"ZERO":V$(1)"ONE":V$(2)"TWO":V$(3)"THREE":V$(4)"FOUR":V$(5)"FIVE":V$(6)"SIX":V$(7)"SEVEN":V$(8)"EIGHT":V$(9)"NINE":V$(10)"TEN":V$(11)"ELEVEN" V$(12)"TWELVE":V$(13)"THIR"::V$(15)"FIF" #PRT,0:SO,1:TN,4:EC,0 ((QV%)1ĹSO,02/KBD16384:CLR16368'D$(4)7SIGN$"DIV"\ N(5),M(5),S%(10),ADR%(4),AS%(3)hQV%800I14:ADR%(I)QV%I:IAS%(1)768:AS%(2)769:AS%(3)76828VS35630:VO35589:VF35592:PRT35604:SO35605:TN37282:EC35603V$(30) ROWROW1:ROWANS%4050d'"J13:NS%0:H%0:V%20:2850:9:20,222:21,0:21,4:CK%24:900:J',(QV%)1VS$"DIV":995'6U0:BN1:DU7:USIZE4:N2%6DU5:USIZE3:N2%9DU4'@URN1N2%'J14URN(URN2)2'TJUUUSIZE:23,34J:J2K%1&URN1:COLRROW]&COLR:BK,BK1LI:BK,BK1LI1:NS%K%1:2850:NS%K%:COLR:2800y&K%(K%N2%)N2%4090&CK%K%:900:NUM%K%:920&BKBK2:K%(K%20)204110&BK0:LILI4:K%80LILI4&URNURN1:K%K%1:URNN2%4060'I'LL HELP YOU.":NS%ANS%:V%V01%W811000::N%H%S%(10)39VH%13620l%H%S%(10)39VH%0İ1550%2850:COLR:NS%ANS%:2800:%$DS%1:2050%s%BACKROUND13:BRD13::1500%1310:H%0:V%10:BK0%LI11:N1%40LI15&ROW1:0:NS%RP%:RP%9H%S%(10)40V%V%S%(5)2A$ 2850:COLR:RP%0S$ ANS%103585c$ DG%03595$RP%DG%10:NUM%DG%:1000:V%V%S%(5)2:2900$DG%03595$RP%RP%DG%:NUM%DG%:1000:RP%ANS%3550$NUM%ANS%:920:% 16301,0::10:"# NUM%ANS%:920:# -# 16301,0::21# " NO! YOU SAID ";RP%::10:"TYPE --> ";:50,127:ANS%;:50,255:" <--":CLR,0# SC%CK%:CK%64:LH%200:910:CK%SC%# H%S%(10)40VH%1DS%2:2050:V%V0# H%S%(10)39VH%0İ1550+$ 290S%10TEN%:RP%0:V0V%:VH%0ANS%9V0V%S%(5)2N" 2900:NS%1:2850:COLR`" ANS%103525p" DG%03595" RP%DG%10:VH%0V%V%S%(5)2" NUM%DG%:1000" V%V%S%(5)2:2900" DG%03595" RP%RP%DG%:NUM%DG%:1000:RP%ANS%355082950"!m 176KEYKEY1852990F! TIMETIME1:TIMEMAXTIME2920]! CLR,0:DG%KEY176c! ~! DP%DP%1:DP%1DP%0! N1%37DP%0İ4000! N1%37DP%1İ5000! DP%0N1%37İ5000! DP%1N1%37İ4000! 2" TEN%ANS%10:UNIT%AN0)47H%47S%(10): , ERS0S%(5):H%,H%S%(10)V%ERS:K 1 NS%102899m 3 V%V%S%(5)1:NS%19V%V%1 6 ERS0S%(5):H%,H%S%(10)V%ERS: @ ERS0S%(5):H%,H%S%(10)V%ERS: S V%V9%: T MAXTIME200 c TIME1 h KEY(KBD)!j KEY12 VO  VI$ VF  CLR,0& Cn V%S%(5)39V%39S%(5)l TEN%NS%10:UNIT%NS%TEN%10:V9%V%} TEN%02825 NUM%TEN%:1000 V%V%S%(5)1:TEN%1V%V%1 NUM%UNIT%:1000 V%V9%! " V9%V%' BACKROUND ) H%S%(1IT'S WRONG AGAIN.";6:N$;", LET ME HELP YOU"B:3000V16301,0:936aCLR,0gw` (QV%)0ıe RTS%1:22:NUM%N1%:920j NUM%N1%:920t VI$VS$" "SIGN$" "~ NUM%N2%:920 RTS%0 VI$VI$" "VS$" EQUALS "%ANS%VS$"TWO HI":TN,3:990:TN,4:2170LvVS$"TWO LO":TN,5:990:TN,4_zTIME2002205i2110(QV%)1NUM%ANS%:920936:21:"******** C O R R E C T *******"NR%NR%1:RITE%1:936:" I HATE TO TELL ";:"YOU,BUT IMENWR%NWR%1:2205:WRP%TEN%10UNIT%:RP%ANS%2180^\NWR%NWR%1:GUESSGUESS1:936a1:1340:1350:VH%0H%0:V%20:N1%10V%16dVH%1H%6:V%25:N1%9V%30f1130kGUESS22200p:1:"SORRY,YOUR ANSWER IS WRONG."*sRP25,3014#*V%7:9:NUM%N2%:1000H/4:H%3:V%16:N1%9V%20:1110[2GUESS2İ2400a3r4ANS%N1%N2%>16301,0:936C22:"IF YOU NEED HELP PRESS ";:50,63:"ESC";:50,255:" KEY"HGUESS2İ2010M1900R:HELP%1TIMEMAXT5V%V%S%(5)1:2:N1%9S%(10)4S%(10)6V%V%1i1120:4:V%V%S%(5)1:N1%9S%(10)10V%V%1DS%1NS%ANS%:2800:2400:11102098 VH%=0 => DIV DISPLAY 1:H%16:V%16:NS%N1%:2800%8:14,2714:14,2514:N1%9ĎRIZANTAL DSP#H%S%(10)392055H1550:H%S%(10)47H%47S%(10)hV%1:1:NS%N1%:N1%9V%0xDS%0V%4 2800 V%V%S%(5)2:8:N1%9V%V%S%(5)21100V%V%S%(5)1:9:N1%9S%(10)8S%(10)4V%V%1NUM%N2%:1000%0V%16<NUM%TEN%:1000:V%V%S%(5)2:NUM%UNIT%:1000bCLR,0:MAXTIMEM1%M2%:TIMET1T2hVH%(1)2:DS%0:GUESS1:RITE%0BACKROUND(5)11:BRDBACKROUND:1500:1340VH%02075VH%1H%11:V%1:2050  VH%=1 =>HO7} BY ED ZEIDMAN 17 ]FP DIVIDE;REPET%211120M6+N$;", YOUR SCORE IS:":5:NR%;" CORRECT ",NWR%;" WRONG"W6+8020s6+PB%PB%1:PB%511050}6+18406+6+ADR%(1),SKILL%6+ADR%(2),56+ADR%(3),NR%6+ADR%(4),NWR%6$,D$;"RUN RESULTS"6N6} COPYRIGHT 1980915:SKILL%DG%:SKILL%9SKILL%0SKILL%(ADR%(1))H5e'22:31:SKILL%S5* MAINY5 +y5+NPROB0:NR%0:NWR%0:RTS%05 +PB%15*+140054+DP%15>+20005H+21005\+RITE%1111505f+1800:REPET%15p+2000:21006z+REPET%REPET%1:RITE%1'4:3:I133:"-";:IE4B'10:4:"HOW GOOD ARE YOU AT DIVISION?":p4G'4:"ENTER YOUR SKILL LEVEL RATING.":4L'4:"IT IS A NUMBER FROM 1 TO 9":4Q'4:"( 9 IS THE HIGHEST )"4V'22:4:"PRESS YOUR NUMBER --->"4['174430,9645`'MAXTIME1000:233'::1083'6:"W E L C O M E T O T H E":`3$'6:"D I V I S I O N F A C T S":3&'8:"L E A R N I N G A I D"3*'D$;"OPEN NAME"3+'D$;"READ NAME"3.'N$33'D$;"CLOSE NAME"38'936:3:3:"E N T E R S K I L L L E V E L"4=D152xRR1:RQT%5150(2VH%SVH%.262@23w2T" TO CONTINUE........ PRESS ";:50,127:"RETURN";:50,2552YMAXTIME1000:CLR,02^TIME12hKEY(KBD):KEY12880602rKEY14180702|TIMETIME1:TIMEMAXTIME80402CLR,0:936UNIT%N%TEN%10:TEN%0H%39:V%14:NUM%TEN%:1000w1PH%39:V%22:NUM%UNIT%:1000:R1CN2%SKILL%5NUM%N%:9201ZCC1:CN2%51601dVH%1:H%39:1330:S1%N1%:N1%N%:TP38:BACKROUND12:DS%2:20502nCOLRR:ANS%N%N2%:3500:N1%S1%:BACKROUN30:DS%1:2050:NUM%ANS%:920=01500:0,3938:0,3938:13k0I1374:1,37I:I:J1374:1,37J:J0N%0:QT%N1%N2%:1330:TP38:15500R10C10(H%C42:V%R42:N%N%10215:15500<C:I02:H%,H%2V%I:I51FC:TEN%N%10:00:BACKROUND13:1310/L/:BACKROUND15:BRD2:1500:0,3938:0,3938_/13:SVH%VH%:x/I1374:1,37I:I/J1374:1,37J:J/:/R1ANS%/C1N2%:H%C42:V%R42:C/I02:H%,H%2V%I:I/C,R0H%39:TPH%:132)2X%DU2:Y%Y%2=.\J13:15:X%,X%1Y%:X%,X%1Y%1u.fCT%:X%,X%1Y%:X%,X%1Y%1:CK%55CT%5:900:J.p1550:CT%:1110:ANS%CT%:3500.zCT%CT%1:CT%ROW4690.VH%1:H%41:1320:TP40:BACKROUND12:DS%2:2050/ANS%N1%N2%:352%7N2%8U2(UN2%5)1-N2%9U2(U4N2%)O- ROW(ROW2)2BTMBTM2m-*ROWROW1:ROWANS%4290z-4ROWANS%->16301,0::22:" COUNT BLOCKS IN SQUARE 1":VS$"COUNT":990-HY%33:CT%1:H%41:V%1:1320:VH%0.RX%0:Y%Y%2:CT%(CT%TEN%0H%41:V%15:NUM%TEN%:1000f,H%41:V%20:NUM%UNIT%:1000:1310:ROW1URNN2%NUM%K%:920,K%K%1:BKBK2:UUDU,K%(K%20)201K%14600,BK0:LILI4:K%81LILI4,URNURN1:URNN2%4310,N2%6U3(U7N2%)- NN2%CK%MOVE:900+vMOVEA+BACKROUND:0,39TU%:0,39TU%1W+MOVETU%BTM22+BACKROUND:U,U1MOVE:U,U1MOVE1:COLR:U,U1MOVE2:U,U1MOVE3+MOVE+CK%K%9:900+15:TP40:1550:COLR:TEN%K%10:UNIT%K%TEN%10#,1320:OVE,MOVE1TU%:MOVE,MOVE1TU%1S*0COLR:MOVE2,MOVE3TU%:MOVE2,MOVE3TU%1n*:K%N2%CK%MOVE:900~*DMOVE:4490*NMOVEBKU22*XBACKROUND:MOVE,MOVE1TU%:MOVE,MOVE1TU%1*bCOLR:MOVE2,MOVE1TU%:MOVE2,MOVE1TU%1+lK%ROW1)URN1:COLRROW.)MOVELITU%22)BACKROUND:BK,BK1MOVE:BK,BK1MOVE1:COLR:BK,BK1MOVE2:BK,BK1MOVE3)K%N2%CK%MOVE:900)MOVE) MOVE ACROSS)BKU4490)BKU24430)MOVEBKU22!*&BACKROUND:M(^UUDU:H%35:V%BN:URN:NUM%URN:1000:BNBNDU}(hJ13:NS%0:H%0:V%25:2850:URN:NUM%URN:1000:CK%55URN5:900:J(rURN(|(QV%)1İ920(K%1:BK0:TU%21:U0:BTM31(LI11:N1%40LI15(DU7:N2%7N2%8DU5(N2%9DU4)̽ƽ%A  lJ .U  .0 :  CF6Y3 '*1))a4-/M"-)N(,$+O,-R#,$+Y-$#/")&"1$'':%$##!D#'"#$I"%##&"S##--N).o0^&J,,%Z ")."V$/!A/"9!/"./ b !Ӡ,-7<5.203,/,2()'.&(/*%1(&%()"! !           &       (KBD%):KEY1288060ArKEY1418070: KEY= "RETURN"K|TIME[CLR%,0::iCLR%,0:TIMEMAXTIME:TIME} COPYRIGHT :1980}  ]FP HELLO CHAR TO A$ I:" ":* " ":I24:I0 U@ ---- PRESS 'RETURN' ----- yE TO CONTINUE ROUTINE JMAXTIME500:LINECH,160O23:1T" TO CONTINUE........ PRESS ";:50,127:"RETURN";:50,255^TIME1MAXTIMEhKEYOTHER CONTROL CHARACTERS ' I22955f " ";H$;H$;: BACKSPACE &STORE A NULL CHAR. IN PREVIOUS A$ II1:A$(A$,I):LINECH,160:2950 C160 STORE CHARACTER C$(C) LINECH,(C$) I2A$C$:3040  A$(A$,I1)C$: APPEND I124 CHI4:LINECH,964 TIME1MAXTIMEB C(KBD%)[ C128C223Ă:8000v CLR%,0:TIMEMAXTIME: C1593020 CONTROL CHARACTER C1363000: <- C1493010: -> C1413045: RETURN 2955: IGNORE 7 802,2: MENU PTR. @ $322 SET MENU = 2 => ADDX 803,0: # RIGHT @ $323 x 804,0: # WRONG @ $324 :12:8:"A L M O S T R E A D Y" D$;"RUN MENU"  T MAXTIME500 r H$(8): <- w F$(21): -> | LINE1616 ,0:"EQUALS" VFT 15:958:21:LN%6(A$):LN%20(LN%2):LN%:"HELLO ";A$ D$;"BLOAD BEEP": BEEP A$300,L$26 800,1: $320 <=> VOICE/QUIET SWITCH. VOICE =1 ::: QUIET = 0 801,9: SKILL LEVEL PTR@ $321. SET SKILL=9.18:958 D$;"OPEN NAME"4 D$;"WRITE NAME"< A$Q D$;"CLOSE NAME" X23:4:"LOADING PHRASES TO BE SPOKEN." ]4:"THIS WILL TAKE ABOUT 10 SECONDS." bD$"BLOAD ^TSUBS" gPRT,0:SO,1:TN,4:EC,0 VS:VO "HELLO." SO A C T S"! (20(T$)2):T$:B T$"L E A R N I N G A I D"X (20(T$)2):T$l D$;"OPEN NAME" D$;"READ NAME" A$ D$;"CLOSE NAME" (A$)0600 19:6:"PLEASE TYPE YOUR NAME:"::2900 (A$)0Ģ21:958:2945:517 16384: $40 003 KBD%16384:CLR%16368wVS35630:VO35589:VF35592:PRT35604:SO35605:TN37282:EC35603D$(4)(D$"NOMON C,I,O"::6T$"W E L C O M E T O T H E"(20(T$)2):T$: T$"A R I T H M E T I C F     =( ,( F !**:#! (%'Š("%(37' !8    '                                tM    +(,'-'% , , - - ' '')))()(&%&%"&#)*&.-0+3 !4.& /,%&&$ &!)&$   "+ ! %  "!& ,2  -7  - )C),*H(.)B;$ *@26@/BM`#Ҡ?Z       !         #"  "      !          !   ,,(.+-*/+90/.+(J*6),)A;H(-3^7/1#8k2)g"ŠE&+!+! !#! -$ "-S#2= $2: %56 $7>#+I!$(J $'" #'% #'%  "("  !                  #   :   #>-+&')&*-())-((*/'(,&&+-%,+#$8%!%' )%( (&) (&+ ,)'9+&() #''*#)'!$104%.+>++)J+-$',/'#+/*%).4(+2+,#,0,."#)-                                  N  !( ED+ > 0"Kf.9%(),5=/'48EH6F"f4A"IQV.+$2/Ϡ        6%-,"-. /.44      14!-).++         &  &                "    '$*(&+!)(+& *     * ) $&  -'!  -(& .") .%      001+3*2D 8 Š%25C*16@(/A             !! !!!%# " "$  "$   #             '  '"    (##'), 21.1.1-0,0*.)/).(.(,( + #"!"!"!                         =ϮbG2 $ " #$$          !0 5                                    $                                                 =                                                                            #     ).   (:  (1 )'  )/>025Š K/8B/->D&*D8()=G*:;%(1I(2A)2L'=8)1>)09                # '  $ !%''#&#%' &#     !0Cz ">q,:(-Up!2Ԡ>                                                                               X   *           . [ $'2+`   ;AN <    .' %F( 73" m <    5 7$  b  $;-   '$0 ,A. /Π3'                      "    #     &#!  $"  "  &%%$*(    3-(   %         )          (    !  &3Z,ؠ                                                                                                                              $            n   * Y"c,_*`'/'&''!*") !!!&6 ( (                                    &$" "2+ &d&1B:I1$8?_H(&P3 1hV@z6"%D9Q _ 52GΠx               BƠV, -0     +     !              "#   "                       +                                                                                                           ! ' "$%,6'z'.8Q2:)-D.(K0&J.&)@Ҡ* )&/ -  '  !                                  &          ! !! 4;(7r*;%:+`)}!3$Q'(C)(B%.?#0;#/9#06"05 2524140   )+++  $   " " !                          1FyC5$ )+      ? )3%>Šx    %           >  8 $!                                 "_ r'x /(28 20)1./10+01-410&302&112%2,,,4+4#.2-(02-)1-2)+,7*/,2*>0-C.5 1//(06&/.0./&0/.%/.0$7.#&40+2;..>$"601"4>$!2 D"2?$!2"A!# !@!1"#"$" $"                    '$                       &   :Π       .   $    #                                 $ )   (. 5  4 |'![2   OJu0e% N                           %%  W  >  $B+ 2x *>4$?8Πx   { !s' #!!"  ! %  #    & $+' %*( %(( &&* && &% %  $!  ! !!$!! !  '!#!    "!)#!1(" P!      )  (            E          &  )''  SϠM*H-+ 1  :.                         (  !  !                    #   %@ 1" '#!'" !      (              #  " *46 *4H0/eA0(3SgJzA42?/!P٠x         + ,                                                                 4 = 2  % +A 2 ""* 0  A+P* (",+$/'"0#"-"##*%"#,%")#$#'$#!*!&%&)$"!(%,,&%  # $  %     x *                  ) *       #2 #9 )& A,#>1%$B4+$F3/,Z../I)77G*C.P.<0KH,-N*JΠ               )              #                      =610Z '.'%4.&'(-.&,' )$+*)% -$()+  *)+)8 ,*',*&3,"+')6**))*'.*+"%&)(.&*)(&S.%1 "   &'&9!) bL "J'8w5 R2N  ?,% .F   1>   09  0< % 1D*39E,29    !  !!)$* I+#("* 4 #-# %#0!# +- "%"$$# !( * ,#!$6%C !,'&                          !   "   "   "   ! "  !          #                                                    J<  & 3)(n 3)X 2,C3+@3(.*3#3'-(*/2%% *)Š3=-3-(+//4*-4-P04+ *.0>5,-( 9+3'&3$% ! !                             BK EB                                          -         5    'E <   2= \F                                                                                                                                                   &         "   $ɠ8 '  * G #" (   ! '  V     $      %      .            THIR"::V$(15)"FIF"0 #PRT,0:SO,1:TN,4:EC,0Y ((QV%)1ĹSO,0:VS$SIGN$:995:SO,1d d10000y VH%SVH%:2400:  CK%1CK%1 LH%1000CK% AS%(1),CK%:AS%(2),LH%:AS%(3),(LH%255)1 770: CALL BEEP  TEN%NUM%10:UN35589:VF35592:PRT35604:SO35605:TN37282:EC35603@ V$(30) V$(0)"ZERO":V$(1)"ONE":V$(2)"TWO":V$(3)"THREE":V$(4)"FOUR":V$(5)"FIVE":V$(6)"SIX":V$(7)"SEVEN":V$(8)"EIGHT":V$(9)"NINE":V$(10)"TEN":V$(11)"ELEVEN" V$(12)"TWELVE":V$(13)"t2C CHANGE:5 1400,1499 2017 2075,2099 2100 10050 11130 11210]KBD16384:CLR16368iD$(4){SIGN$"TIMES" N(5),M(5),S%(10),ADR%(4),AS%(3)QV%800I14:ADR%(I)QV%I:IAS%(1)768:AS%(2)769:AS%(3)768284 VS35630:VO           !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""O,0: SOUND OFF, MENU2pD (FP)T !X --- VOICE WANTED ---5b1:35:"VOICE"El(QV%)1ıqvQV%,1: VOICE/QUIET SWITCH ON => 1 SO,1: SOUND ONL --- QUIET WANTED ---V1:35:"QUIET"`(QV%)0ıjQV%,0: VOICE/QUIET SWITCH OFF=> 0 SIT":50,255-D$;"RUN SUB":S2" M U L T I P L I C A T I O N F A C T S":22}350,127:"PLEASE";:8:"WAIT":50,2557D$;"RUN MULT":<8:"D I V I S I O N F A C T S":22=50,127:"PLEASE";:8:"WAIT":50,255AD$;"RUN DIVIDE":50,127:"PLEASE";:8:"WAIT":50,255H D$;"RUN READY FOR ARITHMETIC?"r 8:"A D D I T I O N F A C T S":22 50,127:"PLEASE";:8:"WAIT":50,255 #D$;"RUN ADD": (5:"S U B T R A C T I O N F A C T S":22 )50,127:"PLEASE";:8:"WA3:DIGIT%5140,5150,5160,5170,5180X :10:" I GUESS IT'S TIME TO TAKE A BREAK.":21 5:"IT'S BEEN FUN WORKING WITH YOU"::5:"GOOD BYE......................": 8:"A R E Y O U R E A D Y":::7:"F O R A R I T H M E T I C ?":22$ BER ---> ";/ 187230,96:23:31:2900:" "O KEY128("V")İ7000:5100o KEY128("Q")İ7500:5100 DIGIT%0DIGIT%55120 MENU%(802):MENU%5MENU%2 802,MENU%:DIGIT%MENU% 936:10:15:DIGIT%0ĺ"L O A D I N G"" 1 86 4:"1 <-- ARE YOU READY FOR ARITHMETIC?":W 4:"2 <-- ADDITION FACTS":{ 4:"3 <-- SUBTRACTION FACTS": 4:"4 <-- MULTIPLICATION FACTS": 4:"5 <-- DIVISION FACTS" :4:"0 <-- LET'S TAKE A BREAK" 23:10:"PRESS A NUM18129600 r KEY128("V")KEY128("Q")2990: TIMEJ DIGIT%1:] DIGIT%KEY176| CLR%,0:TIMEMAXTIME:TIME  ---- M E N U ----- D$(4)  :936:3:4:"SELECT ONE FROM THE FOLLOWING:" 4:I130:".";:IEKBD%16384:CLR%163682QV%800:SO35605J 5000: -->MENU<--jT --INPUT A DIGIT ROUTINE--V INPUTS: NONEW OUTPUT : DIGIT^ MAXTIME3000c TIME1MAXTIMEh KEY(KBD%):KEY1282950 m 176KEYKEY    #!$+ ')P*" 3, #2-!!#O- #%/0 '),6!)-#/:%&#$!"1C'$,#02"1/!*)3Z)+1=r?6+(!>:83:C0zϠ114U;13HORIZANTAL DSPH%S%(10)3920551550:H%S%(10)47H%47S%(10)V%1:1:NS%N1%:N1%9V%0 DND1:1500:13402VH%0H%1:V%15:2020NVH%1H%11:V%1:2050l VH%=0 => VERTICAL DSP1:N1%9V%V%S%(5)1NS%N1%:2800H%H%S%(10)3:N1%10V%V%S%(5)28:1100V%V%S%(5)2:9:NUM%N2%:10002:H1%176:1995)TEN%K1%176:UNIT%K2%176CVH%0İ2850:4:V%10vNUM%TEN%:1000:V%V%S%(5)2:NUM%UNIT%:1000CLR,0:MAXTIMEM1%M2%:TIMET1T2VH%(1)2:DS%0:GUESS1:RITE%0BACKROUND(5)11:BRD(16):BRD4BRD1BRDBACKROU VH%0ANS%9K1%177V%9KNUM%K1%176:1000:M2%1100100SKILL%cT21:ANS%10M2%5K2%(KBD):K1%1281980176K2%K2%1851990K2%78K2%72K2%155HELP%1HELP%11995T2T21:T2M2%1970 TEN%0:UNIT%K1%xM1%3300300SKILL%*zGUESS2M1%2003{T11PK1%(KBD):K1%1281950l176K1%K1%1851960K1%78K1%72K1%155HELP%1HELP%11995T1T11:T1M1%1920CLR,0:MAXTIMEM1%:TIMEM1%:CLR,0BACKROUND:1110:4TP38TP38BACKROUND2KTP47:0,39K:K8?JNPROBNPROB1hN(NPROB)N1%:M(NPROB)N2%n/0NPROB018995IPROB1:N1%N(IPROB):N2%M(IPROB)D2000:2100NIPROBIPROB1:IPROBNPROB1850klHELP%0:K1%0:K2%0LL%1)1SKILL%5ı0N1%N1%1:N2%N2%1FN1%4N2%41499`(PB%2)PB%21499~N1%(1)55:N2%(1)55 BACKROUNDI0390,39IIBRD K01:0,39K39:0,39K39:K 16302,0 %(9)6:_2S%(1)1:S%(2)2:S%(3)2:S%(4)3:S%(5)4:S%(6)5:S%(7)6:S%(8)7:S%(9)8:S%(10)8:<S%(1)1:S%(2)2:S%(3)3:S%(4)4:S%(5)5:S%(6)6:S%(7)7:S%(8)8:S%(9)9:S%(10)10:FDB110:S%(DB)2S%(DB)::xN1%(1)(SKILL%1)1:N2%(1)(SKI4)3čV%4,H%4ZpV2%V%S%(2):V2%,H%S%(3):V2%,H%S%(4):V2%,H%S%(6):V2%,H%S%(7):S%(1)0:S%(2)1:S%(3)1:S%(4)2:S%(5)2:S%(6)3:S%(7)3:S%(8)3:S%(10)4:S%(9)4:(S%(1)0:S%(2)1:S%(3)2:S%(4)2:S%(5)3:S%(6)4:S%(7)4:S%(8)5:S%(10)6:SS%(2):V?[V%,H%S%(1):V%,V%S%(5)H%:V%S%(2),V%S%(5)H%S%(5):H%,H%S%(5)V%S%(5):H%S%(5),H%S%(7)V%S%(2):V%S%(2),H%S%(10):`=eV%S%(1),V%S%(4)H%S%(3):V%S%(1),V%S%(4)H%S%(7):j +oV%,V%S%(4)H%S%(5):S%(%S%(10)V%S%(5)AGIC0S%(10)S%(5):V%,V%S%(5)H%IC:IC:KL X MS%(10)8āK04:V%K,H%K2:V%4K,H%K2::QV%,H%S%(2):I0S%(4):V%I,H%S%(3)I:I:V%S%(4),H%S%(8):V%,H%S%(8):I0S%(4):V%I,H%S%(7)I:IRV%S%(4),H%V%:H%S%(5),H%S%(10)V%S%(5)P)IC0S%(10)S%(5):V%,V%S%(5)H%IC:IC:.V%,V%S%(5)H%:V%,H%S%(1):H%,H%S%(10)V%S%(5):8H%,H%S%(10)V%:H%,H%S%(10)V%S%(5)=IC0S%(10)S%(5):V%,V%S%(5)H%IC:IC:BH%,H%S%(5)V%:H%,HV%S%(3),V%S%(5)H%S%(5):V%,V%S%(5)H%S%(10):H%,H%S%(10)V%S%(5):V%,V%S%(5)H%S%(5):H%,H%S%(5)V%:H%,H%S%(10)V%S%(5):H%,H%S%(5)V%:H%S%(5),H%S%(10)V%S%(5)IC0S%(10)S%(5):V%,V%S%(5)H%IC:IC: $H%,H%S%(10)080,1090] V%,V%S%(5)H%:V%,V%S%(5)H%S%(10):H%,H%S%(10)V%:H%,H%S%(10)V%S%(5):z H%,H%S%(10)V%S%(3): V%,V%S%(5)H%:V%,V%S%(5)H%S%(4):V%,V%S%(5)H%S%(10):H%S%(4),H%S%(10)V%:H%,H%S%(4)V%S%(5):JV%,V%S%(5)H%: " TEN%5VS$"FIF TY "- UNIT%0980H VS$VS$V$(UNIT%):990g TEN%0UNIT%0VS$"ZERO"u RTS%1ı (QV%)1995 DY550SKILL%50:W81DY:W8: VO VS$ VF  NUM%11005,1010,1020,1030,1040,1050,1060,1070,1IT%NUM%TEN%10# TEN%1VS$""3 TEN%1950R NUM%13VS$V$(NUM%):990 NUM%13NUM%15VS$V$(NUM%)" TEEN":990 VS$V$(UNIT%)" TEEN":990 TEN%5TEN%4VS$V$(TEN%)" TY ":970 TEN%2VS$"TWEN TY " TEN%3VS$"THIR TY:E*SVH%VH%:HZ1:VT1::BACKROUND12:BRD12:1500:HN1:VN8N2%1P*CLM%1t*COLRCLM%:CK%30:COLR5COLR9~*COLR*ROW1*VT1,VT3HZ:VT,VT5HZ1:VT1,VT3HZ2*VTVT8*CLM%14630*+ROW1ė:16301,0:22:"HOW MANY ARE1%N2%:3500:N2%S2%:BACKROUND131)^ROW14220C)hROWN2%4240z)rBACKROUND:V%HN4:H%VN:1310:1130:V%,HN4VN6)|HZ1:VTVTDV:VNVNDV)ROW1NS%0:H%VNDV:V%HN:2850:COLR:1310:NUM%N1%:1000)ROWROW1:ROWN2%4040*VH%SVH%H%VN:V%HN:1310:NS%CLM%:2850:COLR:NUM%CLM%:1000X("900:CK%CK%5:NUM%CLM%:920x(,CLM%CLM%1:CLM%N1%4070(6ROW14170(@8:V%HN4:H%VN:1130:V%,HN4VN6(JVH%1:H%39:1330:S2%N2%:N2%ROW:TPH%:DS%2:BACKROUND15:2050!)TAS%N'CLM%1b'VT2,VT3HZ:VT1,VT4HZ1:VT,VT5HZ2:VT1,VT4HZ3:VT2,VT3HZ4:HZHZDHs'ROW14120':21:"HOW MANY ARE THERE? ":H%VN:V%HN:AS%CLM%:NS%0:1320'CLM%1VS$"COUNT":990'2850:COLR:VH%1:1110:3500:41406(39VH%0İ1550/&2850:COLR:NS%AS%:2800:N&$ANS%AS%:H%39:DS%1:2050T&s&SVH%VH%:HZ1:VT1::BACKROUND13:BRD13:1500:VN1:HN7N1%5:DH7&N1%5HN35:DH6&DV8:N2%5DV7&ROW1&COLRROW:CK%30:COLR5COLR9&COLR G%03595;%RP%DG%10:NUM%DG%:1000:V%V%S%(5)2:2900K%DG%03595y%RP%RP%DG%:NUM%DG%:1000:RP%AS%3550%NUM%AS%:920:% 16301,0::10:"I'LL HELP YOU.":NS%AS%:V%V0%W811000::%H%S%(10)39VH%13620&H%S%(10) --> ";:50,127:AS%;:50,255:" <--":CLR,0U$ SC%CK%:CK%64:LH%200:910:CK%SC%$ H%S%(10)40VH%1DS%2:2050:V%V0$ H%S%(10)39VH%0İ1550$ 2900:NS%RP%:RP%9H%S%(10)40V%V%S%(5)2$ 2850:COLR:RP%0$ AS%103585 % DS%103525# DG%03595># RP%DG%10:VH%0V%V%S%(5)2Q# NUM%DG%:1000i# V%V%S%(5)2:2900y# DG%03595# RP%RP%DG%:NUM%DG%:1000:RP%AS%3550# NUM%AS%:920:# # 16301,0::21-$ " NO! YOU SAID ";RP%::10:"TYPENS%0ī6000&" DP%DP%1:DP%3DP%0D" (N1%6N2%6)DP%04000b" (N1%6N2%6)DP%14500x" DP%0DP%25000" DP%1DP%35500" " TEN%AS%10:UNIT%AS%10TEN%:RP%0:V0V%:VH%0AS%9V0V%S%(5)2" 2900:NS%1:2850:COLR # A+!3 V%V%S%(5)2:V%S%(5)39V%39S%(5)S!6 ERS0S%(5):H%,H%S%(10)V%ERS:`!S V%V9%:p!T MAXTIME200{!c TIME1!h KEY(KBD)!j KEY1282950!m 176KEYKEY1852990! TIMETIME1:TIMEMAXTIME2920! CLR,0:DG%KEY176! " A%NS%10:UNIT%NS%TEN%10:V9%V%2  TEN%02825F  NUM%TEN%:1000h  V%V%S%(5)1:TEN%1V%V%1} NUM%UNIT%:1000  V%V9% ! " V9%V% ' BACKROUND ) H%S%(10)47H%47S%(10) , ERS0S%(5):H%,H%S%(10)V%ERS:!1 NS%102899:30002400:NUM%ANS%:920316301,0:9369I` (QV%)0ıfe RTS%1:22:NUM%N1%:920xj NUM%N1%:920t VI$VS$" "SIGN$" "~ NUM%N2%:920 RTS%0 VI$VI$" "VS$" EQUALS " VO VI$ VF CLR,0 ! TENTN,5:990:TN,4#zTIME2002205-2110J(QV%)1NUM%ANS%:920936:21:"******** C O R R E C T *******"NR%NR%1:RITE%1:936:" I HATE TO TELL ";:"YOU,BUT IT'S WRONG AGAIN.";:N$;", LET ME HELP YOU"0UNIT%:RP%ANS%2180:\NWR%NWR%1:GUESSGUESS1:936ma1:1340:1350:VH%1H%23:V%15:1100:2155fH%6:V%25:1100kGUESS22200p:1:"SORRY,YOUR ANSWER IS WRONG."sRP%ANS%VS$"TWO HI":TN,3:990:TN,4:2170vVS$"TWO LO":DS%1NS%ANS%:2800: *111032GUESS2İ240093J4ANS%N1%N2%^>16301,0:936C22:"IF YOU NEED HELP PRESS ";:50,63:"ESC";:50,255:" KEY"HGUESS2İ2010M1900R936:HELP%1TIMEMAXTIMENWR%NWR%1:2205WRP%TEN%1S%0V%4 2800= V%V%S%(5)2:8:N1%9V%V%S%(5)2G1100}V%V%S%(5)1:9:N1%9S%(10)8S%(10)4V%V%1NUM%N2%:1000V%V%S%(5)1:2:N1%9S%(10)4S%(10)6V%V%11120:4:V%V%S%(5)1:N1%9S%(10)10V%V%1 :+ADR%(4),NWR%(:$,D$;"RUN RESULTS".:NF:} COPYRIGHT 1980`:} BY ED ZEIDMAN s: ]FP MULT00:2100W9z+REPET%REPET%1:(RITE%1REPET%2)(RITE%1REPET%4N1%6N2%6)111209+N$;", YOUR SCORE IS:":5:NR%;" CORRECT ",NWR%;" WRONG"9+80209+PB%PB%1:PB%5110509+18409+9+ADR%(1),SKILL%9+ADR%(2),4:+ADR%(3),NR%->"8['174430,96[8`'MAXTIME1000:2915:SKILL%DG%:SKILL%9SKILL%0SKILL%(ADR%(1))o8e'22:31:SKILL%z8* MAIN8 +8+NPROB0:NR%0:NWR%0:RTS%08 +PB%18*+140084+DP%38>+20008H+21008\+RITE%1111508f+1800:REPET%19p+20 E R S K I L L L E V E L"87='4:3:I133:"-";:Il7B'10:4:"HOW GOOD ARE YOU AT MULTIPLICATION?":7G'4:"ENTER YOUR SKILL LEVEL RATING.":7L'4:"IT IS A NUMBER FROM 1 TO 9":7Q'4:"( 9 IS THE HIGHEST )"8V'22:4:"PRESS YOUR NUMBER --0406CLR,0:9366&6'::10O6'8:"W E L C O M E T O T H E":6$'2:"M U L T I P L I C A T I O N F A C T S"6&'8:"L E A R N I N G A I D"6*'D$;"OPEN NAME"6+'D$;"READ NAME"6.'N$63'D$;"CLOSE NAME"78'936:3:3:"E N TKEY1286200:CLR,0:KEY1416200>5B1500:H%15:DS%1:2050D5LL5@235T" TO CONTINUE........ PRESS ";:50,127:"RETURN";:50,2555YMAXTIME1000:CLR,05^TIME15hKEY(KBD):KEY12880605rKEY14180706|TIMETIME1:TIMEMAXTIME8EMPTY BOXES,AND EACH"D4"HAS NOTHING ( 0 ), THEN ALL YOU HAVE IS"_4NZ1Ĺ1892,112:61904NTB(354NZ)2:NTB0Ė(NTB)4$K1NZ1:"0 + ";:K:"0 =":18734NZNTB,1124.24:"........... TO CONTINUE PRESS ";::"RETURN";:"58KEY(KBD):,V%WIDEH%:V%,V%WIDEH%TALL:H%,H%TALLV%:H%,H%TALLV%WIDE}30:V%1,V%WIDE1H%1:H%1,H%TALL1V%WIDE1:K13V%V%WIDE2:K31340:H%5:DS%1:20503NZ1ĺ"IF YOU HAVE ONLY ONE EMPTY BOX, AND IT":61504"IF YOU HAVE ";NZ;" VH%SVH%:.2p:BACKROUND15:BRD15:1500:1N2zNUM%0:TEN%0:UNIT%0:936g2NZN1%:N1%0NZN2%v2NZ061202H%25:WIDE5:NZ660802NZ6WIDE42NZ7NZ8WIDE32NZ9WIDE22V%(39(WIDE2)NZ)2:TALL2WIDE:K1NZB3V%I1J1374:1,37J:J"1R1)1RH1C1N1%:H%C42:V%R42d1I02:H%,H%2V%I:Ij11VH%1:H%39:1330:S2%N2%:N2%R:TPH%:BACKROUND11:DS%2:20501COLRR:AS%N1%N2%:VH%1:3500:N2%S2%:BACKROUND151RR1:RN2%5550 21:H%39:1330:S2%N2%:N2%R:TPH%:BACKROUND15:DS%2:2050s0dCOLRR:AS%N1%N2%:VH%1:3500:N2%S2%:BACKROUND140nRR1:RN2%51500xH%39:13300VH%SVH%:0|:BACKROUND15:BRD0:SVH%VH%:1500:0,3938013:9361I1374:1,37I::J / N%0/R1;/C1N1%:H%C42:V%R42:N%N%1I/(15:1550h/2R:I02:H%,H%2V%I:I/<R:TEN%N%10:UNIT%N%TEN%10:TEN%0H%39:V%14:NUM%TEN%:1000/FH%39:V%22:NUM%UNIT%:1000:R1CN1%SKILL%5NUM%N%:920/P;0ZVH%J.R1N2%:R0.C1N1%:H%C42:V%R42L.I02:H%,H%2V%I:IU.C,R.N%N1%N2%:TEN%N%10:UNIT%N%TEN%10:H%39.1330:DS%1:TPH%:2050:2400:NUM%N%:920.1500:0,3938:0,3938:13/I1374:1,37I:I:J1374:1,37JHZHZ6:VT1:HNHN6,-zCLM%1N2%54760P-NS%0:H%VN:V%HN6:2850:COLR|-:16301,0:CLM%CLM%1:CLM%N1%4520-VH%SVH%:-:BACKROUND14:BRD2:1500:0,3938:0,3938-13::SVH%VH%-I1374:1,37I:I.J1374:1,37J:,4ROWROW1:ROWN2%4550-,>CLM%14700Y,HBACKROUND:ERS2839:0,38ERS::COLR,RV%1:BL1CLM%1:BL:NUM%N2%:1000:V%V%3:1130:V%V%3:BL,\VH%0:V%35:H%1:1330:S1%N1%:N1%CLM%::2020,fAS%N2%CLM%:3500:BACKROUND12:N1%S1%-p THERE? ":1769,96::1310:VS$"COUNT":990H+H%VN:V%HN:AS%ROW:NS%0Z+VN7404620d+1550+ 2850:COLR:1320:1110:VH%0:3500:4660+VN739İ1550+ H%VN:V%HN:1310:NS%ROW:2850:COLR:NUM%ROW:1000+*900:CK%CK%5:NUM%ROW:920