' +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- ( l  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠Ġ MX*@#nj@#_MF$(I)MF$(I)C$H1000 D000 DT"# v"TO DISPLAY THE MENU AGAIN") 4 (13)G D$;"RUN ";GN$e :"LEAVING MENU PROGRAM"m : "PRESS OPEN APPLE - CONTROL - RESET " "TO SEE MENU AGAIN"   ********************  READ MENUFILE SUBROUTINE *****:  ********************4  FIND AND RUN GAMEP  *********************\ I1CT (MF$(I),1)CH$GN$(MF$(I),5,30) &I X"NOW RUNNING ";GN$ b k:: l:" WHEN DONE WITH PROGRAM. " q" PRESS OPEN APPLE - CONTROL - RESEF YOUR CHOICE-> "; YCH$7 ZCH$"X"CH$"x"ī350h [936:"DO YOU REALLY WANT TO EXIT? ->";:R$ \R$"Y"R$"y"ī740 ]355 ^(CH$)64(CH$)64CTī500 c936 d:CH$; e h" NOT A VALID CHOICE. TRY AGAIN." r340 :O "ī210Z MF$(I)"STOP "ī300g :MF$(I)p CTIw I ,D$;"CLOSE MENUFILE" -"X - EXIT": ."MAKE SURE CAPS LOCK IS ON ": 6 GET CHOICE @34,CT6:: T"TYPE THE LETTER O"PROJECT ACCESS PD/SHAREWARE COLLECTION"0 c "BY L. DEMARAIS, W. HILLER AND G. MODELL" t " M E N U" " -------" READ MENUFILE FROM DISK R$;D$;"OPEN MENUFILE" D$;"READ MENUFILE" I1100 1000$ MF$(I)"HELLv :"PROGRAM. HAVE FUN!"G$ 24:7)"PRESS SPACE BAR TO BEGIN:";:X$Q$ 2320ACTION, OR MULTIPLICA-"B#D :"TION. THEN CHOOSE THE SIZE OF THE"s#N :"NUMBERS YOU WANT IN YOUR PROBLEMS. YOU"#X :"GET A COLORED SQUARE FOR EACH RIGHT"#b :"ANSWER. FIVE IN A ROW=BINGO! YOU MAY"#l :"ENTER -1 AT ANY TIME TO RESTART THE"$L BINGO SQUARE+" 1220: CHECK FOR BINGOA" 1960: CLR TEXTK" 2950Q" d" INSTRUCTIONSl" :" 3:14)"INSTRUCTIONS""& :"MATHEMATICS BINGO IS BOTH A BINGO GAME""0 :"AND A MATH DRILL PROGRAM. CHOOSE FROM"#: :"ADDITION, SUBTRALTIPLICATION BINGO**!r :2!| 460: DRAW CARDN! 2080: SELECT NUMBERSk! 1030: DISPLAY PROBLEMu! RAB! 2200: GET ANSWER! CRİ1800: WRONG ANSWER ROUTINE! CR2960! Q0! 1990: RIGHT ANSWER ROUTINE" 1090: FILCT NUMBERS( 1030: DISPLAY PROBLEM 2 RABJ  2200: GET ANSWERZ  CRİ1800i  CR2800q " Q0 , 1990: RIGHT ANSWER ROUTINE 6 1090: FILL BINGO SQUARE @ 1220: CHECK FOR BINGO J 1960: CLR TEXT T 2790 ^ !h **MUWRONG ANSWER ROUTINE $x CR2640, Q0M 1990: RIGHT ANSWER ROUTINEk 1090: FILL BINGO SQUARE 1220: CHECK FOR BINGO 1960: CLR TEXT WINDOW 2630  **SUBTRACTION BINGO** : 460: DRAW CARD 2080: SELEİ310 (N3)(X%12)ī24809 N2600,2760,2920,3080O 390: TITLE PAGEW :] w( **ADDITION BINGO**2 :< 460: DRAW CARDF 2080: SELECT NUMBERSP 1030: DISPLAY PROBLEMZ RABd 2200: GET ANSWERn CRİ1800: :Z N3Ģ10:"WHAT IS THE BIGGEST NUMBER YOU WANT IN"::"YOUR PROBLEMS (1-12):";X% (N3)Ģ10:"WHAT IS THE BIGGEST NUMBER YOU WANT IN"::"YOUR PROBLEMS (1-100):";X% INPUT ERROR TRAP X%100İ310 X%100ī2480 (N3)(X%12)O X":"8 10)"4. INSTRUCTIONS"9B :10)"0 TO QUIT"]L 23:"ENTER YOUR CHOICE.==> ";NkV N02570y` N43080j N0N42440t 320: INPUT ERROR TRAP~ 2380 N1S$"+" N2S$"-" N3S$"X" NUMBER SIZE SELECTION1960: CLR TEXT C1Ĭ&,F ** MAIN PROGRAM **]390: TITLE PAGEq 360: PAUSE  ::::10)"MATHEMATICS BINGO" :10)"1. ADDITION BINGO +":$ 10)"2. SUBTRACTION BINGO -":. 10)"3. MULTIPLICATION BINGNUMBER SELECTION!*A((1)X%)24B((1)X%)B>(BA)2100RHA10A%19aRA9A%18q\A99A%17fB10B%19pB9B%18zB99B%17 ANSWER INPUTR9T%19R9T%18R99T%1724:T%:"";C)2R$"CORRECT!"Į)23:D%)R$;I360:1960: PAUSE/CLR TEXTO  VERY GOOD!,GREAT!,KEEP ON TRUCKIN!,RIGHT AGAIN! ,GOOD WORK,YOU'RE AMAZING!,GOOD COMPUTING!,I LOVE IT!,SMASHING!,YOU'RE BRILLIANT!,RIGHT ON!,CORRECT!  RANDOM b1960: CLR TEXTl100Yv21:A%)A:16)S$;:B%)B:17)"---":16)"=";:T%)R;b255360:1960: PAUSE/CLR TEXT  CLR TEXT WINDOW21:958: CORRECT ANSWER REINFORCEMENTR$:D%(R$):D%(40D%,10)HUE1780%19,15)HUE1780<14,20)HUE1780R9,25)HUE1780[560ag WRONG ANSWER ROUTINE BEEPBEEP125:BEEPDQQ1NQ2Ģ23:11)"WRONG! TRY AGAIN.":360:1960: PAUSE/CLR TEXTXQ2ı)HUE16106Z@560)JZ5255?T29,Z)HUE1660F^ZOh560gr CHECKS DIAGIONALS||9,5)HUE172014,10)HUE172019,15)HUE172024,20)HUE172029,25)HUE172056029,5)HUE178024n560xI9295*I,24)HUE14501I:560L CHECKS ROWSZZ5255o9,Z)HUE1490vZ560Z525514,Z)HUE1530Z560Z525519,Z)HUE1570Z560"Z5255 ,24,Z3) # CHECK FOR WIN8 CHECKS COLUMNSFI9295[I,4)HUE1280bIk560yI9295 I,9)HUE1320I560(I92952I,14)HUE1360<IF560PI9295ZI,19)HUE1400dI:A16)S$;:B%)B&$17)"---",.28XB RANDOM FILL-IN OF BINGO SQUAREScLHUE11lVHUE`O(((1)5).4)5jP(((1)5)1.8)5tP2,O3)21160~1120O,(O3)PO,(O3)(P1)O,(O3)(P2)O,(O3)(P:770768,144:769,80:770:768,128:769,200:770i"***************************************""CONGRATULATIONS!!!! YOU GOT A BINGO."370: PAUSE4:"PRESS SPACE BAR TO CONTINUE:";:X$:2320 DISPLAY PROBLEM21:A%173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0768,152:769,80:770768,128:769,160:770768,152:769,405,3523:5,1029:5,1028:25,3528:25,3529:24,275:24,276:24,2734:24,2735kH26,2923:26,2924R GRAPHICS FOR 'O'\2f5,3532:5,3538:33,375:33,3735p5,3533:5,3539:33,376:33,3734zI12000:14080]770,0,517:0,518) GRAPHICS FOR 'I'F5,75:16,195:33,355M6b5,359:5,3510y GRAPHICS FOR 'N' 85,3512:5,3513:5,3518:5,3519 5,1114:10,1615:15,2116:20,2617* GRAPHICS FOR 'G'44S>5,3522:769,80:770&v768,128:769,160:770@768,152:769,40:770Z768,144:769,80:770u768,128:769,200:770 GRAPHIC FOR 'BINGO':1 GRAPHICS FOR 'B'5,350:5,351:6,167:19,347:5,3560,65:0,76:0,635:0,734GOT A BINGO ROUTINE ::& D TUNE1 N14080 X770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202 b782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0 l768,152::13:"COPYRIGHT, 1984":23:360: PAUSE0 6 L  DRAW BINGO CARDu  BACKGROUND COLOR FOR BINGO SQUARES~ :2 I932:2,26I:I  LINES FOR BINGO SQUARES 15 D8335:1,26D:D E1265:8,33E:E  & 0 RAP8 @1960:23::"ILLEGAL ANSWER! PLEASE REENTER.":X J360:1960: PAUSE/CLR TEXT^ Td ^p h PAUSE rPAUSE11500:PAUSE: |  TITLE PAGE : 10:12:"MATHEMATICS BINGO" :3:"AUTHOR/PROGRAMMER: ROBERT V. PRICE"* PERATOR (+-*)0 X%-LARGEST NUMBER TO BE USEDa PROGRAM CTRL VARIABLES: I,D,E,O,X$,P,Z,S A%,B%,T% =TAB SETTINGS 2290   ********************  * GEN. SUBROUTINES * " ******************** , 6 INPUT ERROR T:216,0:A(0) x( VARIABLE KEYN A&B-RANDOM NUMBERS FOR PROBLEMSq C-USER'S ANSWER TO PROBLEM D%-LENGTH OF R$ N-USER'S CHOICE OF DRILL ROUTINE R-CORRECT ANSWER TO PROBLEM R$-REINFORCEMENT MESSAGE S$-MATH OR ***********************= * MATHEMATICS BINGO *[ * ROBERT V. PRICE *y2 * COPYRIGHT, 1984 *< * FROM *F *LEARNING PGMS FOR THE*P * APPLE II COMPUTER *Z ***********************d n::          .X:"TO START PROGRAM HIT SPACE BAR";: D$4O@:10:15:"END":22:XAR TO BE COMPUTED ? 1978"=`" MONTH OF THE YEAR ? 1 "`t" DAY OF THE MONTH ? 31 ":"THIS PROGRAM WILL THEN DISPLAY THE DAY OF THE WEEK FOR THAT DATE."::" NOTE ";:" TO EXIT PROGRAM TYPE A -1 AFTER THE YEAR TO COMPUTED.")"DAY OF THE WEEK PROGRAM"2 S0 39:"-";:b:"THIS PROGRAM WILL CALCULATE THE DAY OF""THE WEEK FOR ANY DATE FROM SEPTEMBER 9,""1752 UNTIL DECEMBER 31,1999.":"PLEASE ENTER THE DATES IN THE FOLLOWING"$"MANNER:":8"YE " DAY OF THE MONTH ? ";D; H (A$)1752 C9 3150` (A$)1752 C9 D14 3150r  D32 4000 t: 50,63 "THERE SHOULD BE NO MORE THAN 31 DAYS IN A MONTH -- BUT HAVE IT YOUR WAY -- "  50,255:  p::718000" D (A$) 1751 3200/ N :50,63` X " DATES PAST SEPT. 9, 1752 NOT VALID "v l 50,255:: 3100 " MONTH OF THE YEAR ? ";C C12 3300 : 50,63 "NO MORE THAN 12 MONTHS TO A YEAR PLEASE" 50,255:: 3200 2400 z C2 C4:24009  C3 C11 C4: 2400^  C4 C7 C0: 2400t  C5 C2:2400  C6 C5:2400  C8 C3:2400  C9 C12 C6  C10 C1 ` 6  "YEAR TO BE COMPUTED ? ";A$ 0 (A$)) A(A4)A" E((A$,2)) 4  E20 E1E  E19 E0V  E18 E2g  E17 E4  C1 C2 A$"1900" E1  C1 C2 A$"1800" E3 C1(A$)4((A$)4)C3 C1C2 u C2 (A$)4((A$)4) C3:EDNESDAY"% d DAY5 C$"THURSDAY"? f DAY6 C$"FRIDAY"G n: x(A$)1978ĺ"IN ";A$" THAT DAY WILL BE A ";C$:1980 " IN ";A$;" THAT DAY WAS A ";C$ :::" HIT SPACE BAR TO ENTER NEW FIGURES ";:A$ :::30  A((A$,2)QA(X)(X1.5)1# 6000)4 3000?( 2000X2FA CDE b<GF7sFG7(G(G))PDAYA(G)U DAY0 C$"SATURDAY"Z DAY1 C$"SUNDAY"^ DAY2 C$"MONDAY"` DAY3 C$"TUESDAY" b DAY4 C$"W      JOHN BACHMAIER; JULY, 1981F1,4F1,6F,5 F-G15004GBF1392J13bF,32:F1,33:F,34kF,4vF1,5F,60F1,32:F,33:F1,34F1,4F,5F1,6FH150HTl:: BY4,23:4,25:4,26 8,259$16,23:16,24:16,25G)23,2618U.23,2622u332,22:32,23:32,25:32,26836,25:38,23LT11500:T::l:: BY JOHN BACHMAIER; JULY, 1981N0F1,32:F1,34:F,337,24:7,25p11,22:11,24.u15,22:15,26@z19,22:21,22R27,22:27,26d31,23:33,25}37,22:37,24:37,26013,15412,12:12,13:12,15:12,1618,15:18,1626,15 32,12:32,13:32,15:32,1638,13:38,14K$"S"ī190010 "%30*N2382=/12,16NJ422,26NQ9Na>3,12:3,16qC7,12:7,16H11,13:13,13M17,12:17,14R21,12:21,14W25,12:25,14:25,15\31,13:33,15a37,12:37,16f3,22:3,24 k7,22:N2(N2)ĺAN2(N2)ĺ"PLEASE CHOOSE A WHOLE NUMBER"P&N21ī450`0N2D2ī450t:N2(N2)ī450zD"TO STOP PRESS S AND RETURN""IF YOU WOULD LIKE TO TRY THIS AGAIN""PRESS ANY OTHER KEY AND RETURN"K$  WHOLE NUMBER"N11ī305-N1D1ī305AN1(N1)ī305GON2[N21ĺgN21ĺN21ĺ"PLEASE CHOOSE A NUMBER NO SMALLER THAN 1"N2D2ĺN2D2ĺ"PLEASE CHOOSE A NUMBER NO HIGHER"N2D2ĺ"THAN ";D2N2(N2)NTINUE ";QA$:,1N1(6N11ĺ4@N11ĺjJN11ĺ"PLEASE CHOOSE A NUMBER NO SMALLER THAN 1"wTN1D1ĺ^N1D1ĺ"PLEASE CHOOSE A NUMBER NO HIGHER"hN1D1ĺ"THAN ";D1jN1(N1)ĺkN1(N1)ĺlN1(N1)ĺ"PLEASE CHOOSE A"PRESS RETURN TO CONTINUE ";QA$:+7005::?::Er" THE PURPOSE OF THIS PROGRAM IS"::" TO DISPLAY TWO FRACTIONS VISUALLY"::"IN ORDER TO SEE WHICH ONE IS LARGER.": ""PRESS RETURN TO CO";QA$::3"PRESS RETURN FOR THE ANSWER.";H$Ai"AS YOU CAN SEE, ";N1;"/";D1;" IS"~N1D1N2D2230N1D1N2D2234"LESS THAN ";N2;"/";D2236"GREATER THAN ";N2;"/";D2236"EQUAL TO ";N2;"/";D2"";D1;" AND ";N2;"/";D2="PRESS RETURN TO CONTINUE ";QA$:E:s"CAN YOU TELL WHICH FRACTION IS LARGER?""PRESS RETURN TO CONTINUE ";QA$:16079"THE VERTICAL LINES MAY HELP YOU DECIDE.""PRESS RETURN TO CONTINUE M34W,96WM!166,C01U180D2N230C,20180D2N230C,28~180D2N230C,52180D2N230C,78180D2N230C,102180D2N230C,110C:"NOW YOU SEE A PICTURE OF BOTH":"OF YOUR FRACTIONS, ";N1;"/S."*"PRESS RETURN TO CONTINUE ";QA$:2:l"WE'LL CALL THE NUMERATOR OF THIS":"FRACTION N2.":"PRESS RETURN TO CONTINUE ";QA$:"TYPE IN N2 NOW.""N2=";450M0N211W0180D281 180D2M34W,84180D2D2)ĺ4mD2(D2)ĺ"PLEASE CHOOSE A WHOLE NUMBER"EnD2(D2)ĺYoD2(D2)ī100isK1D211vxT121180D2K30T1,80180D2K30T1,100T:K"THIS DENOMINATOR DIVIDED THE SECOND":"RECTANGLE INTO ";D2;" EQUAL PARTTURN TO CONTINUE ";QA$:1Z:"TYPE IN D2 NOW."@_5:"D2=";HdD2UeD20ĺbfD20ĺgD20ĺ"PLEASE CHOOSE A POSITIVE NUMBER"hD220ĺiD220ĺ"PLEASE CHOOSE A NUMBER NO HIGHER THAN 20"jD20ī100kD220ī100lD2(78- R180D1N130B,102180D1N130B,1104 SB: Ta U"PRESS RETURN TO CONTINUE ";QA$: V::"NOW THINK OF A SECOND FRACTION." W"PRESS RETURN TO CONTINUE ";QA$:::"WE'LL CALL THE DENOMINATOR OF THIS" X"FRACTION D2.":Y"PRESS RE H305 IL0N111+ JV0180D181R K180D1L34V,34180D1L34V,46Y LVb ML: N"NOW YOU SEE A PICTURE OF YOUR":"FRACTION ";N1;"/";D1:85 OB01:2 P180D1N130B,20180D1N130B,28 Q180D1N130B,52180D1N130B, CAN SEE, YOUR DENOMINATOR"W B"DIVIDED THE FIRST RECTANGLE INTO ";D1:"EQUAL PARTS."~ C"PRESS RETURN TO CONTINUE ";QA$: D"LET'S CALL THE NUMERATOR OF THE" E"FRACTION N1." F"PRESS RETURN TO CONTINUE ";QA$: G"TYPE IN N1 NOW":"N1=";R NO HIGHER THAN 20"# +D10ī402 ,D120ī40C -D1(D1)ĺr .D1(D1)ĺ"PLEASE CHOOSE A WHOLE NUMBER" /D1(D1)ĺ 0D1(D1)ī40 12 2K1D111 7T121 <180D1K30T1,30180D1K30T1,50 >T ?K A"AS YOU DENOMINATOR NO LARGER THAN 20"D "PRESS RETURN TO CONTINUE ";QA$j "LET'S CALL THE DENOMINATOR D1." "TYPE IN D1 NOW" &"D1="; (D1:D10ĺ )D10ĺ:D10ĺ"PLEASE CHOOSE A POSITIVE NUMBER" *D120ĺ:D120ĺ"PLEASE CHOOSE A NUMBE800:!250' . 2?30,3030,50Q30,50210,50j210,50210,3030,30q530,8030,100210,100210,80210,8030,8031,8031,100211,80211,100:"THINK OF A FRACTION WITH NUMERATOR" "AND         00:Dl2009:936:(10):"THAT'S ALL FOR NOW!!!"i(20):" GOOD BYE"o'':"THAT'S ALL FOR NOW!!!"(20):" GOOD BYE"'TI026:9,31I:I 01 I125:10,30I:I8 XN 15,175:23,255d 15,176:23,256| &19,2111:19,2112 018,2220:18,2221 :16,1819:22,2419 D16,1818:22,2418 N14,1617:24,2617 X14,1616:24,2616bD115& :"SORRY, PLEASE TRY AGAIN ";:T24 T2R500: :"YOU ARE STILL WRONG - - "::"THE ANSWER IS";:" >> ";R;" <<" ::"DO YOU WANT ANOTHER ONE ";:Y$ Y$"Y"100 Y$"YES"100 900   X((1)131)::X UR THOUSANDTHS,1.034 cEND,4) dW$,R; fW$"END"900I i:936:n n"WRITE THE STANDARD NUMERAL:": s"===============================" t:W$: u"===============================" x:"WHAT IS YOUR ANSWER ";:T1 T1R500 $ 3EIGHT THOUSAND FORTY FIVE,8045V 4FOUR HUNDRED FIFTY NINE AND SIX TENTHS,459.6 5SEVEN THOUSAND TWO HUNDRED TWELVE,7212 6 NINETY-NINE,99 7 THIRTEEN THOUSAND SIX HUNDRED SEVEN,13607 8 EIGHTY FOUR HUNDREDTHS,.84 9 ONE AND THIRTY FO 'FORM'THAT I DID& ***********, K PROGRAM BY CARY GRIFFITH  NASHUA, IOWA  ************  2FOUR THOUSAND EIGHT HUNDRED THIRTY SEVEN,4837p WORD LIST LINES 50-100=-------------------------Y TO MAKE NEW QUESTIONSy TYPE NEW LINES.START WITH LINE 50. WHEN DONE, GIVE YOUR PROGRAM A NEW NAME BY TYPING 'SAVE - - - - " BE SURE TO USE THE SAME  NVERTED FROM HP2000F BASIC TO APPLESOFT BASIC, SUMMER 1979, BY TIES INSTRUCTIONAL DESIGN AND DEVELOPMENT STAFF.d}:<><> COPYRIGHT (C) AUGUST 1979 BY MINNESOTA SCHOOL DISTRICTS DATA PROCESSING JOINT BOARD (TIES). 1590"""TIME'S UP TRY ANOTHER.",,1370;6E01710P@(N1E)L11630`J"RIGHT ON"jT1370^(N1E)L21680hK21690r"TRY AGAIN."|K21470"CLOSE. VERY GOOD.""TRUE VALUE ";N11370t}:<><> COIT, B = RETURN TIME, E = INPUT VARIABLE. C:EE$"":B0:16368,0e:BB1:BR50B12800:1540~:(16384)1281500:AA(16384)128:AA131540:EE$EE$(AA):(AA);:16368,0:BB2:1500:36,0:BB50:E(EE$)B256HIT ANY KEY WHEN YOU ARE READY TO BEGIN"3 ": ";< (GT$F 2936O <R10Y FL1.2c PL2.5i Zo dw nK1 xN(100(1))2 N321400 X1N "-"; X N1NN9  "ESTIMATE: ";): ENTER ROUTINE, R = TIME LIM YOU NEED TO ADJUST MY MEASUREMENTS"* < "----------"B p "USE YOUR RULER TO MEASURE THIS LINE IN" "CENTIMETERS. TYPE THIS MEASUREMENT" "FOLLOWED BY A "; N9 N9N910: <><><> N9 IS CALIBRATION FACTOR.( 23:"GMENT IN CENTIMETERS. TYPE YOUR"P t"ANSWER AFTER THE WORD ";::"ESTIMATE:";[ ~:"." "DON'T FORGET TO HIT ";::"RETURN"; :" AFTER" "ENTERING YOUR ESTIMATE. ANSWER WITH 0" "FOR ESTIMATE TO STOP THE PROGRAM." :$ "FIRST * Y . ******************************************************************* g 8:936: B" ESTMAT " L"PRACTICE IN ESTIMATING METRIC LENGTHS " V:: `"ESTIMATE THE LENGTH OF EACH LINE"! j"SECE IN ESTIMATING METRIC LENGTHS BY * x  * PRODUCING LINE SEGMENTS OF RANDOM LENGTH. *  * VARIABLES: R-RESPONSE TIME, L1-CORRECT ANSWER RANGE, *  $ * L2-CLOSE ANSWER RANGE. L *******************************************************************  * THE FOLLOWING REMARKS ARE FROM THE ORIGINAL TIMESHARE VERSION. *  * D. HOLZNAGEL - 4/22/71 * -  * PROGRAM GIVES PRACTI    (A1$,J)$(12):(31J):(A2$,J)+J4255>(23)LJ15000SJY OXXXXXXXXXXXXXXXXXX"J14J:(9):8);"XXXXXXXXXXXXXXXXXXXXXXXXX"UJ14k8);"X";32);"X"rJ8);"XXXXXXXXXXXXXXXXXXXXXXXXX"A2$"WRITTEN BY GENE CAREY"A1$" INTEGER ARITHMETIC "200J121(11):(31J):. YOU NEED MORE PRACTICE."P:"PRESS 'RETURN' TO CONTINUE. ";L$:X:M2ĺ"SINCE YOU MISSED MORE THAN TWO ON THE LAST SET OF EXERCISES, YOU SHOULD SELECT";N;" FROM THE LIST BELOW."140800HO;ME:(9:PLR8);"XXXXXXX):A \25):(E) fEE11 pAYĺ"CORRECT"7 zO AYĺ"INCORRECT";U g AYĺ" ";Yw AYMM1~ J M0ĺ"EXCELLENT, YOU GOT THEM ALL RIGHT." M1M2ĺ"YOU MISSED ";M;". THAT IS PRETTY GOOD."M2ĺ"YOU MISSED ";M;"Bī600 vAB(AB)6008 "(";A;") / (";B;") = "B YABH Z C(4(1)1)q C300,400,500,600w  :E2:M0 *J120 4(E):"#";J;5) >N300,400,500,600,700 H(23):"TYPE YOUR ANSWER AND PRESS 'RETURN'." R20):(E40(1)20) B(40(1)20)0 A0B0410L "(";A;") - (";B;") = "V YAB\ p A(40(1)20) B(20(1)10) BO510 "(";A;") X (";B;") = " YAB & XA(200(1)100) bB(100(1)50) lB0B1610 qAINTEGERS"% " 4) DIVIDE INTEGERS"F " 5) MIXTURE OF THE ABOVE"W " 6) QUIT" "TYPE THE NUMBER AND PRESS 'RETURN'.";N N699 ,A(40(1)20) 1A0300 6B(40(1)20) @"(";A;") + (";B;") = " JYAB T A(R WILL TELL YOU IF YOU ARE CORRECT. :"IF YOU DO NOT ANSWER CORRECTLY THE COMPUTER WILL GIVE YOU THE CORRECT ANSWER." :"SELECT WHAT YOU WANT YOU WANT TO DO." " 1) ADD INTEGERS" " 2) SUBTRACT INTEGERS" " 3) MULTIPLY [ 1200 :100800'c:d:"THIS PROGRAM WILL GIVE YOU PRACTICE IN ADDING, SUBTRACTING, MULTIPLYING, AND DIVIDING INTEGERS."n:"YOU WILL BE GIVEN TWENTY EXERCISES."% x:"AFTER EACH EXERCISE, TYPE IN YOUR ANSWERAND THE COMPUTE    96,64,32,64,96,72,32,72,255,43,96,43,32,43,96pHg4 48,32,43,96,40,32,36,128,48,96,48,32,48,96,54,32,48,96,43,32Hl4 40,128,36,96,43,32,48,96,54,32,54,96,48,32,43,128,54,96,64,32Hq4 64,96,72,32,72,255,72,255 ,1,90,86,90,64,255,57,90,51,255,48,90,43,90,38,90,57,255dG+4 38,90,43,248,51,22,48,68,57,22,64,255GX4 72,96,72,32,72,96,86,32,72,96,64,32,54,128,64,96,64,32,64,96G]4 72,32,64,96,57,32,54,96,48,32,43,96,43,32,48,96,72,32,72,96-Hb4 48,32,43,128,54,68,45,64,45,57,180,1,90,57,90,54,135,54,45mF4 57,45,54,45,48,45,43,45,57,180,1,90,54,45,57,45,64,135,64,45F4 64,45,54,45,57,45,64,45,64,45,68,45,68,90,1,158,43,22,43,248F!4 43,22,51,68,64,22,57,255,1,68,43,22,43,248,43,22,51,68,64,228G&4 57,1808,51,22,51,45,57,45,57,135,1,45aE4 57,68,51,22,48,90,48,90,48,90,43,68,48,22,51,180,1,90,43,68E4 43,22,43,90,51,68,64,22,43,90,51,68,64,22,86,180,1,68,86,22E 4 86,45,68,45,57,180,48,90,57,45,68,45,64,90,64,90,72,180,76,90*F4 64,45,64,45,64,90,,64WD3 72,64,54,192,48,64,43,64,40,64,36,255,54,64,48,64,43,192,40,64,48,128,54,255D3 86,22,86,68,86,22,64,90,64,90,57,90,57,90,43,135,51,45,64,68D3 64,22,51,68,64,22,76,90,48,180,57,68,68,22,64,225,1,45,64,68E3 57,22,51,90,51,90,51,90,48,68,36,128,36,255,40,64,43,64,48,128,43,128rC3 40,128,40,255,40,64,40,64,43,192,48,64,54,128,57,255, 64,64,57,64 C3 54,128,86,128,76,128,72,255,72,128,54,128,54,128,54,64,57,64,64,128D3 64,128,64,128,48,128,40,64,43,64,48,64,54,64,54,128,57,255,72 MB3 54,128,54,128,72,128,86,128,108,128,72,96,86,32,108,128,86,128,72,128B3 54,255,43,96,48,32,54,128,86,128,76,128,72,255,72,64,72,64,43,192B3 48,64,54,128,57,255,64,64,57,64,54,128,54,128,72,128,86,128,108,128)C3 43,64,43,64,43,128,40,122,51,64,57,128,51,128nA;3 48,64,51,64,57,64,64,64,51,192,48,64,43,128,38,64,43,32,48,32,51,128,57,128,64,255A3 72,96,86,32,108,128,86,128,72,128,54,255,43,96,48,32,54,128,86,128B3 76,128,72,255,72,64,72,64,43,192,48,64,54,128,57,255,64, 64,57,64@2I1PLAY:PT,TM:PITCH,PT:TIME,TM:768:3@2~@,3 64,128,64,128,57,128,68,192,64,64,57,128,51,128,51,128,48,128,51,192@13 57,64,64,128,57,128,64,128,68,128,64,255, 1,128,43,128,43,128,43,128 A63 43,192,48,64,51,128,48,128,48,128,48,128,48,19)100)(P%(P,0)10):P%(P,0);:P,?+E10ı:?+1:100:?.POK$"173,048,192,136,208,004,198,001,240,008,202,208,246,166,000,076,000,003,096"?.PK018:768PK,((POK$,PK41,3)):PK?.PITCH0:TIME1:?2:SKIP013020?2I1SKIP:PT,TM:-P,E):WNRP>p+P>z+TYE1>>+P1NP:P%(P,E)HPTYETYE1P>+P:TYE11200>+SKIP17:PLAY26:C(WNR)2SKIP117:PLAY28>+C(WNR)3SKIP145:PLAY18>+C(WNR)4SKIP261:PLAY27>+13000>+22:A$:"TOTAL";6);C$; ?+P1NP:7P7(P%(P,0P%(P,E)0)= +P%(P,0)P%(P,0)P%(P,E):P==+" * EVENT * ";^= +P1NP:7P5)NAME$(P);:Ph=*+:A$=4+I1E:E$(I);:12)C$;=>+P1NP:8P7(P%(P,I)10):P%(P,I);:P=H+:12)B$:I=R+NP111200=\+HP0:WNR0 >f+P1NP:P%(P,E)HPHPP%(4#NUM(NUM(MAX1))(MAX1)190804#:3:"WE'LL BEGIN WITH A STACK OF ";NUM;" PENNIES."::"YOU MAY PICK UP FROM 1 TO ";MAX;" OF THEM.":4#"YOU TAKE HOW MANY? ";N1$:N1(N1$):N11N1MAX9120-5#NUMNUMN1:NUM1ĺ:"YP AT LEAST ONE PENNY ON EACH TURN, BUT NO MORE THAN THE MAXIMUM WHICH I'LL SPECIFY."3P#:"I'LL GIVE YOU THE ADVANTAGE BY LETTING YOU PICK UP FIRST."3Z#903d#NXT100003n#PROB13:NUM23:MAX33x#S(P)1NUM((1)1020)4#S(P)2NUM((1)N$42 A2(((N1N2N3)N4N5)N6N7N8)N9:PX10:30L2 100:PROB,P:11000Z2(#E9:NXT0j22#P1NP:102<#"IN THIS EVENT YOU AND I WILL TAKE TURNS REMOVING PENNIES FROM A STACK, AND THE ONE WHO PICKS UP THE LAST PENNY LOSES."U3F#:"YOU MUST PICK UULTIPLY BY ";N6F1M1M1.59:M:N7((1)5)5::10:17)"ADD ";N7f1M1M1.50:M:S(P)181901N8((1)10)3::10:15)"SUBTRACT ";N81M1M1.4:M:N92::10:14)"MULTIPLY BY ";N91M1M1.3:M2:10:11)"THE ANSWER IS: ";:A:14)"MULTIPLY BY ";N2T0M1M1.9:M:N3((1)42)2::10:15)"SUBTRACT ";N30M1M1.83:M:N42::10:15)"DIVIDE BY ";N40M1M1.75:M:N5((1)10)5::10:17)"ADD ";N50M1M1.67:M:S(P)081901N6((1)2)2::10:14)"M."m/h:"BEWARE!! I'LL START OUT SLOWLY, BUT THEN I'LL START SPEEDING UP, SO BE SURE TO PAY ATTENTION!"u/r90/|NXT9000/PROB13:N61:N70:N80:N91:N1((1)7)3::10:9)"START WITH THE NUMBER ";N10M1M1:M:N2((1)32)2::1010ĺ"0";. M2).100:PROB,P:110007.@E8:NXT0C.JM12000S.TP1NP:10/^"IN THIS EVENT I WILL START BY GIVING YOUA NUMBER, AND THEN GIVE YOU A SERIES OF MATHEMATICAL OPERATIONS TO DO, ONE AFTERTHE OTHER. THEN, I'LL ASK YOU FOR THE ANSWER10ĺ"0";x-M1:::" WHAT TIME WILL IT BE IN ";M;" MINUTES?":::"(TYPE HOUR, COMMA, MINUTES, 'RETURN'.)":16368,0-20:18:H$,M$:HH(H$):MM(M$)-HHH2MMM2PX10:50:7190 .:"SORRY, ";PL$(P);", THE CORRECT":"ANSWER IS ";H2;",";:M22)1):M1((1)MOD):M((1)MODMODM1)(S(P)1)],H((M1M)MOD):H2H1H:M2M1MMODH,M2MODM2M2MOD:H2H21:7110,H212H2H212-:5:" IF THERE ARE ";MOD;" MINUTES IN AN HOUR,":::11)"AND THE TIME NOW IS"::18)H1;",";:M1IN NUMBER OF MINUTES FROM NOW."+"TYPE IN YOUR ANSWER WITH THE HOUR AND MINUTES SEPARATED BY A COMMA--SUCH AS 2,15 OR 12,08."+90+NXT8000+PROB13:MOD50:S(P)1MOD10((1)54)+S(P)2MOD5((1)204)3,H1((1)(8S(P) HOUR! (THERE ARE STILL 24 HOURS IN THE DAY, DIVIDED INTO 12-HOUR PERIODS.)"+v:"IN EACH OF YOUR PROBLEMS, I WILL TELL YOU HOW MANY MINUTES THERE ARE IN AN HOUR, AND WHAT THE PRESENT TIME IS. THEN, I'LL ASK YOU WHAT TIME IT WILL BE A CERTA0:6280>)j:"SORRY, ";PL$(P);":":" X = ";SQ(X);:Y06280^)t" Y = ";SQ(Y);:Z06280t)~" Z = ";SQ(Z);)100:PROB,P:11000)XE7:NXT0)bP1NP:10M*l"IN THIS EVENT YOU ARE TO IMAGINE THAT THERE ARE NO LONGER SIXTY MINUTES IN ANIYIZĺSQ(I);:6200.(67II:IXĺ"X"<($IYĺ"Y"J(.IZĺ"Z"Q(8I(BX$"0":Y$"0":Z$"0"::18:"VALUE OF X = ? ";X$:Y06240(L"VALUE OF Y = ? ";Y$:Z06240(V"VALUE OF Z = ? ";Z$)`SQ(X)(X$)SQ(Y)(Y$)SQ(Z)(Z$)PX10:5AC:SQ(8)ABC:SQ(9)AB*'X0:Y0:Z0I'X((1)9)1:S(P)06140e'Y((1)9)1:YX6110v'S(P)16140'Z((1)9)1:ZYZX6130':II0'I19:25((I1)3):IIII1:II4II1(67II(SQ(I)0)(SQ(I)9)(SQ(I)9):IX THIS'MAGIC NUMBER' YOU CAN FIGURE OUT THE MISSING QUANTITIES."S&90:NXT7000&PROB13:A((1)7(S(P)1))1:B((1)4(S(P)1))1&C((1)3(S(P)21))1:CB6070'SQ(1)AB:SQ(2)ABC:SQ(3)AC:SQ(4)ABC:SQ(5)A:SQ(6)ABC:SQ(7)MAGIC SQUARE WITH ONE OR MORE NUMBERS MISSING.YOU ARE TO SUPPLY THE MISSING NUMBERS."%:"A MAGIC SQUARE IS A SQUARE ARRANGEMENT OF NUMBERS IN WHICH EVERY COLUMN, EVERY ROW, AND EACH LONG DIAGONAL ADDS UP TO"A&"THE SAME TOTAL. ONCE YOU DETERMINE:15)"--- ---":16)A;:23)B:LCDDW$I(D2)21:(IA)IA(IB)IBLCDI^$(I$216:" LOWEST COMMON DENOMINATOR = ? ";AN$::A2LCD:PX10:30$<100:PROB,P:11000$pE6:NXT0$zP1NP:10V%"IN THIS EVENT I WILL PRINT OUT A AB5070#S(P)051309#C((1)4)2:CACB5090#DABC::10:13)"1 1 1":12)"--- --- ---":13)A;:20)B;:27)C:LCDD#I(D2)21:(IA)IA(IB)IB(IC)ICLCDI#I:5170'$ DAB::10:16)"1 1"0"P1NP:10""IN THIS EVENT I WILL SHOW YOU A SET OF FRACTIONS, AND YOU ARE TO FIND THE LOW- EST COMMON DENOMINATOR. THERE WILL BE THREE SETS IN ALL.""90"NXT6000"PROB13"A((1)(4S(P)3))3#B((1)(4S(P)3))3:!NUMNUM7:I12000:IF!:8:"HOW MANY STARS? ";AN$:AN(AN$)o!P%10(20(NUMAN)NUM):P%0P%0!":"THE ACTUAL NUMBER WAS ";NUM;";"!,:"YOUR SCORE IS ";P%;" OUT OF 10."!6P%(P,E)P%(P,E)P%!@100!JPROB:P:11000"E5:NXTE TO GUESS HOW MANY STARS THERE ARE. THE CLOSER YOUR GUESS, THE MORE POINTS YOU'LL GET."l 90:NXT5000 PROB13::NUM0:X$"" R(1).09(S(P)1).03.02S(P) I1137:(1)RX$X$" "::4090 X$X$".":NUMNUM1:!I17:X$;:(1)10(S(P)21))5:B((1)(A3(S(P)1)))3:CAB:F$"-":w A((1)10(S(P)1)):B((1)6.9)3:CAB:F$"X":E4:NXT0P1NP:10"IN THIS EVENT I WILL BRIEFLY SHOW YOU A BLACK NIGHT SKY WITH A NUMBER OF STARS"Z "IN IT. YOU ARD$):DI43170D PSNPSN1#N T=X ::"TIME'S UP. . ."cb K1DI:A1A1NUM(K)10(DIK):Kl A2C:PX10(10T(600S(P)100)):40v 100 PROB,P:11000:4000 A((1)10(S(P)21))1:B((1)10(S(P)21))1:CAB:F$"+":> A(" ";B:17)"------":21)"?"::::10)"ANSWER:";S DI0:A10:PSN20:T1300:T T1600S(P)100:PSN:(16384)1273150 D$:16368,0:(D$)83120 PSNPSN1:DIDI1:DI0DI0& 31500 (D$)133170: DIDI1:(D$);:NUM(DI)(CT ANSWER, THE HIGHER YOUR SCORE WILL BE." :"IF YOU TYPE IN THE WRONG ANSWER, OR RUN OUT OF TIME, YOUR SCORE FOR THAT PROBLEMWILL BE ZERO." 90:NXT4000 PROB13:PROB3210,3220,32302 :5:19(A10)(A100):A::17(B10)(B100):F$;z"TOO HIGH"::2120W"SORRY, ";PL$(P);", NO MORE GUESSES.":"THE NUMBER WAS ";NUMo100:PROB,P:11000} E3:NXT0 P1NP:10+ "IN THIS EVENT I WILL GIVE YOU A SERIES OF THREE MATH PROBLEMS. THE MORE QUICK-LY YOU CAN TYPE IN THE CORRE000 P%(P,E)31>*PROB13::3:PL$(P);" -- #";PROB::T4NUM((1)LIM)1\>I0rHP%(P,E)P%(P,E)1RII1:I112180\"GUESS # ";I;:": ";AN$:AN(AN$)fANNUMĺ"YOU GUESSED IT, ";PL$(P)"!":2190pANNUMĺ"TOO LOW"::2120UR GUESS AND PRESS 'RETURN', AND I WILL TELL YOU IF YOUR GUESS IS LOW, HIGH, OR RIGHT ON!"xLIM10:S(P)1LIM30S(P)2LIM100 :PL$(P);", IT'S YOUR TURN.":"EACH OF YOUR THREE NUMBERS WILL BE BETWEEN 1 AND ";LIM;"."100:NXT3SE(0)((1)30)9:INCR((1)3)3JI15:SE(I)SE(I1)IINCR:I^X((1)5)1:lE2:NXT0|P1NP:10"IN THIS EVENT I WILL CHOOSE A NUMBER AT RANDOM, AND YOU MUST TRY TO GUESS IT IN AS FEW TRIES AS POSSIBLE."^:"TYPE IN YO5)1:PSE(0)((1)9)1;ZI15:SE(I)SE(I1)2:IOdX((1)5)1:vxSE(0)((1)9)1:INCR((1)5)3I15:INCRINCR1:SE(I)SE(I1)INCR:IX((1)5)1:SE(0)((1)4)1I15:SE(I)SE(I1)I:IX((1)6):')I:IX5:6SE(0)((1)10):INCR((1)5)3WI15:SE(I)SE(I1)INCR:IaX5:SE(0)((1)15)5:INCR((1)3)2 I15:SE(I)SE(I1)IINCR:IX((1)6):(SE(0)((1)9)12I15:SE(I)SE(I1)2:I<X((1);:1110LSE(I);", ";VI^`". . .":12:"MISSING NUMBER = ? ";AN$:PX10:A2SE(X):30oj100:PROB,Pt11000:2000SE(0)((1)10):INCR((1)5)3I15:SE(I)SE(I1)INCR:IX5:SE(0)((1)10)I15:SE(I)SE(I1OU ARE READY FOR THE NEXT SERIES, PRESS THE SPACE BAR (THERE WILL BE THREE SERIES FOR EACH CONTESTANT)."90:NXT2000PROB13$(((1)3)1S(P)3)1160,1200,1240,1280,1320,1360,1400,1440,1480.:8:58I05BIXĺ" ? , ""IN THIS EVENT, I WILL LIST A SERIES OF NUMBERS WHICH ARE RELATED TO ONE ANOTHERIN SOME WAY. ONE OF THE NUMBERS WILL BEMISSING, AND YOU MUST TRY TO DETERMINE WHAT THAT NUMBER IS."p:"TYPE IN YOUR ANSWER AND THEN PRESS THE 'RETURN' KEY. WHEN Y)):NAME$(P)"!":L6600?NNAME$(P)NAME$(P)(PL$(P),6):630QXSS((6L)2)vbJ1SS:NAME$(P)NAME$(P)" ":JlNAME$(P)NAME$(P)PL$(P)vP:10:"L E T T H E G A M E S B E G I N !"I12500:IE1:NXT0P1NP:10" 2. UNITED STATES":" 3. FRANCE":" 4. SCOTLAND"w"(TYPE IN 1, 2, 3, OR 4): ";X$:C(I)(X$):C(I)1C(I)4530:PL$(I);", WHAT SKILL LEVEL DO YOU":"CHOOSE (0, 1, OR 2)? ";X$&S(I)(X$):S(I)0S(I)25400I:P1NPDL(PL$(PNTS WILL BE COMPETING":"(1, 2, 3, OR 4)? ";X$JNP(X$):NP1NP4480[I1NP::3:"CONTESTANT #";I;", PLEASE TYPE IN YOUR":"NAME, AND PRESS 'RETURN': ";PL$(I)5:PL$(I);", WHICH COUNTRY ARE YOU":"REPRESENTING:":" 1. GREAT BRITAIN":SKED FOR AN ANSWER, TYPE IN THE NUMBER AND PRESS 'RETURN'. TO CONTINUE WITH THE NEXT PROBLEM, PRESS THE SPACE BAR.":"IF YOU SHOULD WANT TO SKIP AN EVENT, PRESS 'ESC' WHEN THE INSTRUCTIONS ARE GIVEN."100.:10:"HOW MANY CONTESTAPLAYED IF THERE WAS A TIE.)":u"AT THE VERY END, I'LL PLAY THE COMPLETE NATIONAL SONG OF THE WINNING PLAYER(S).":"EACH PLAYER MAY CHOOSE ONE OF THREE SKILL LEVELS: 0 (BEGINNER), 1 (INTER- MEDIATE), OR 2 (ADVANCED)."y:"WHEN YOU ARE ARATE EVENTS:":) I110:3)EE$(I):Il :"IN EACH EVENT THERE IS A POSSIBLE SCORE OF THIRTY POINTS."u 100::"BETWEEN EVENTS I'LL SHOW THE SCOREBOARD,AND PLAY PART OF THE NATIONAL SONG OF THE PLAYER WHO WON THE LAST EVENT. (NO SONG IS h:6:7)"M A T H D E C A T H L O N":10:8)"WELCOME TO THE OLYMPICS!!" r15:" WOULD YOU LIKE INSTRUCTIONS? ";X$:(X$,1)"N"480 |::"THIS IS A GAME OF MATHEMATICAL SKILLS AND REASONING FOR ONE TO FOUR PLAYERS."::"THERE ARE TEN SEPAOR" JEE$(6)" 6. MAGIC SQUARES":EE$(7)" 7. CLOCK MATH":EE$(8)" 8. MENTAL MATH":EE$(9)" 9. PENNY BATTLE":EE$(10)"10. BINARY NUMBERS" TA$"-----------+------+------+------+------":B$"+ + + +":C$"! ! ! !" ^12000M":E$(6)"MAGIC SQR":E$(7)"CLOCK MATH":E$(8)"MENTAL MATH":E$(9)"PENNIES":E$(10)"BINARY #'S" @EE$(1)" 1. FIND THE MISSING NUMBER":EE$(2)" 2. GUESS A NUMBER":EE$(3)" 3. SPEED MATH":EE$(4)" 4. STARRY STARRY NIGHT":EE$(5)" 5. LOWEST COMMON DENOMINATE SPACE BAR TO CONTINUE <<<";:6 n(16384)127110O x(16384)155NXT1_ 16368,0: ,E$(10),SE(6),PL$(4),S(4),P%(4,10),NAME$(4),NUM(4),SQ(9),C(4),EE$(10)^ 6E$(1)"MISSING #":E$(2)"GUESS A #":E$(3)"SPEED MATH":E$(4)"STARS":E$(5)"L.C.D.@ 300* :3:"EVENT #";EE$(E):7:8A1(AN$)I(:A1A2602"THAT'S RIGHT, ";PL$(P);"!":P%(P,E)P%(P,E)PX:<"SORRY, ";PL$(P);", THE CORRECT":"ANSWER IS ";A2:Z:PL$(P);", IT'S YOUR TURN." d16360,0:24:1::">>> PRESS TH                            MX*@#nj@#_>'/-.g--?666$$$-66..%%$$&65.6$%,$&66..$$66%%$$&..677,,55<<$%%&..66$$%%&-->>677--G6$?-$6-?:$-6GUI2'27/ I77755=--=?/-E*..>>>EI*,557& 176..=''$,,55>><4,-=E1766$--6$$<&-&'-G66$?--?$ I27/ --GI>,I177>>&I176..%%$<67DI1)666/=$$d*,557777--G*,557?-.>>'/I6.-=6&$$4 6-55>>?E/-=I>>>65-,<<& -->>>6&$-175>..%%'?-,<?/5$$$.E.>77f 5'EHI&?6555&<>><,,D I>>%eI9>665=556>>%%$DK: 600:::L1100::2860L 0:140,70140X,70Y:140,70140XX,70YY:2050 %.:I`k~!0@Nm|0@MZk~I 6&$d6d 6d,166&<--7&$?/5$$$.E.>77f 5'E TIME HH:MM U 24:19);1 ^ G$:G$(13)3000\ h A$A$G$:19J);:24:G$;:JJ1:2910h A(A$)y B((A$,2)) V100AB  100K2K1VĢ24::18);"RIGHT!":I11000::3500 PP1:P32867 ::22:13);"WRONG, TRY AGAIN":I1100K212K2 K20K212. K20K212K24 " < ' P0D , J0R 1 P32867\ 2 2870 3 :K1$(K1):23:8);"SORRY, THE CORRECT TIME IS:"::((K1))2K1$"0"(K1) 4 K2$(K2):19);K2$;":";K1$:I15000::3500 6 A$"" T 24:13);"ENTER3)5:K10K160K1' 4Z(THETA12)GN9 f6:60140,70@ 3X X55(Z):Y55(Z)l JN((1)111)~ JN((1)12) ZZ(THETA12)JN(THETA60)K112 XX35(ZZ):YY35(ZZ):140,70140XX,70YY 140,70140X,70Y K2JN3 K220 ("6")31137,1300 ("7")31105,121E x("8")3182,96Z ("9")3175,68 @("1")3179,38:("0")3185,38 ("1")31102,13:("1")31108,13 ("1")31135,3:("2")31142,3 THETATHETA100 GN((1)12) K1(GN0: THETA23.1415926100G ZTHETA:XR(Z):YR(Z):140X,70YT 2I1101b <ZTHETAIo dXR(Z)| YR(Z) ,140X,70Y  ("1")31170,12 ("2")31192,37 ("3")31200,68 ("4")31192,99 L("5")31170,1 :10A">>>>>>>>>>>>>>TIME TEACHER<<<<<<<<<<<<<<"b15:13);"STEPHEN C. SHANK"rI15000:z : 232,00:233,151:0:3R70I19:(("WHAT TIME",I,1))3107I,20: I16:(("IS IT?",I,1))312107I,2     111111 111111 "E=H16:11:" 11 22222 "aI17:11:" 111 2 2 "J18:11:" 11 2 "K19:11:" 11 222 "L20:11:" 11 2 "M21:11:" 11 2 "N22:11:"1111 00000 ";;>16:11:" 11 11 "_?17:11:" 111 111 "@18:11:" 11 11 "A19:11:" 11 11 "B20:11:" 11 11 "C21:11:" 11 11 "D22:11:" 9 "19416:11:" 11 00000 "]517:11:" 111 0 0 "618:11:" 11 0 0 "719:11:" 11 0 0 "820:11:" 11 0 0 "921:11:" 11 0 0 ":22:11:" 118888 "'7*16:11:" 999999 "[+17:11:" 9 9 ",18:11:" 9 9 "-19:11:" 999999 ".20:11:" 9 "/21:11:" 9 "022:11:" "5 16:11:" 88888 "Y!17:11:" 8 8 "}"18:11:" 8 8 "#19:11:" 88888 "$20:11:" 8 8 "%21:11:" 8 8 " &22:11:" 8 "316:11:" 7777777 "W17:11:" 7 "{18:11:" 7 "19:11:" 7 "20:11:" 7 "21:11:" 7 " 22:11:" 7 "  1 16:11:" 66666 "U 17:11:" 6 6 "y18:11:" 6 "19:11:" 666666 "20:11:" 6 6 "21:11:" 6 6 " 22:11:" 66666 " /16:11:" 5555555 "S17:11:" 5 "w18:11:" 5 "19:11:" 555555 "20:11:" 5 "21:11:" 5 5 "22:11:" 55555 " -16:11:" 4 "Q17:11:" 4 4 "u18:11:" 4 4 "19:11:" 4444444 "20:11:" 4 "21:11:" 4 "22:11:" 4 " + 16:11:" 33333 "O 17:11:" 3 3 "s 18:11:" 3 " 19:11:" 33 " 20:11:" 3 " 21:11:" 3 3 "22:11:" 33333  ) 16:11:" 22222 "M 17:11:" 2 2 "q 18:11:" 2 " 19:11:" 222 " 20:11:" 2 " 21:11:" 2 " 22:11:" 2222222 ' 16:11:" 11 "K 17:11:" 111 "o 18:11:" 11 " 19:11:" 11 " 20:11:" 11 " 21:11:" 11 " 22:11:" 111111 "% 16:11:" 00000 "I 17:11:" 0 0 "m 18:11:" 0 0 " 19:11:" 0 0 " 20:11:" 0 0 " 21:11:" 0 0 " 22:11:" 00000 " T12000,2010,2020,2030,2040,2050,2060,2070,2080,2090,2100,2110,2120,2130,2140,2150] #X1l (T01400v )TT1 -1030 xT0:SC(U)SC(U)T:2210 }(7) 1999 AAR1400 TT1 SC(U)SC(U)T:1:(7):(7) (7):(7) y d6000!T15:C0:AR0:X0/16368,0>T01999NX401300^R(16384)nR1271110xBXX1L1030V16368,0ZR1411500[R176R1851090`RR176e11:27C:Rj(7)oARAR10R:CC1t1090U           #J ** BY **6#T ** TOM JACOBSEN **Q#^ **THE GREEN APPLES**l#h **CEDAR FALLS IOWA**r# Nx#%NHOW MANY PROBLEMS IN THIS COMPETITION?"/"vNPH"{NP1NP(NP)7045R"7020X"d"X1NS"1:"NAME OF STUDENT # ";X"11X:S$(X)"S$(X)S$(X)" ""S$(X)(S$(X),24)""3000#@ **TOM'S MATH DRILL**="!!p*!uS$(5),S(5),SC(5),ST(5)5!zX15Z!S$(X)" "u!S(X)2:SC(X)0:ST(X)0{!!U1:P1!X!\12:"HOW MANY STUDENTS WILL COMPETE?(1TO5)"!]NS!bNS1NS5NS(NS)7020!g7000!l'"q12:"5230,5240,5250 ZP310" _5260, dP3506 i5260A nP3100K s5260V xP3200` }5260l P31000 P1((1)(P31)) P2((1)(P11)) AP1P2 11:" "!11:11:P1;16);"-";19);P2;24);"5060P3505060$P3100.50609P3200C5060OP31000eP1((1)(P31)){P2((1)(P31))AP1P211:" "11:11:P1;16);"+";19);P2;24);"=" PS(U)5210,5220,5S(U)5D 3155#I S(U)S(U)16N S(U)1S(U)1BS SC(U)0IX UP] Pxb 23:1:"DO YOU WANT TO TRY AGAIN?"g S$(0):(S$(0),1)"N"20000l m X15n SC(X)0:ST(X)0o q 3000S(U)5010,5020,5030,5040,5050P310X  X(1) X.5İ5200. X.5İ50008 2160B 1000T ST(U)ST(U)Td U2:27:Px U2:35:ST(U) X11000 X U! P3(P3)3165& U1NS+ SC(U)3031300 SC(U)1531455 3155: S(U)S(U)1 ? S(U) N O O "419:11:" N N N O O "X20:11:" N N N O O "|21:11:" N NN O O "22:11:" N N OOO "  P1NP U1NS 2200  U2:1:S$(U)  X11000 2:11:" GGG OOO "#wX1:1:" STUDENT PROBLEM SCORE "f3:S$(1)t4:S$(2)5:S$(3)6:S$(4)7:S$(5)16:11:" N N OOO "17:11:" NN N O O "18:11:" N N 11:" 111111 55555 "!mEp16:11:" GGG OOO "iq17:11:" G G O O "r18:11:" G O O "s19:11:" G O O "t20:11:" G GGG O O "u21:11:" G G O O "v21:" 111111 4 "cCf16:11:" 11 5555555 "gg17:11:" 111 5 "h18:11:" 11 5 "i19:11:" 11 555555 "j20:11:" 11 5 "k21:11:" 11 5 5 "l22:" 111111 33333 "YA\16:11:" 11 4 "e]17:11:" 111 4 4 "^18:11:" 11 4 4 "_19:11:" 11 4444444 "`20:11:" 11 4 "a21:11:" 11 4 "b22:1 111111 2222222 "O?R16:11:" 11 33333 "cS17:11:" 111 3 3 "T18:11:" 11 3 "U19:11:" 11 33 "V20:11:" 11 3 "W21:11:" 11 3 3 "X22:11:3)"C"39)"C":3)"D"39)"D":3)"M"39)"M":3)"I"39)"I":3)"V"39)"V":3)"X"39)"X":3)"L"39)"L3)"C"39)"C":3)"D"39)"D":3)"IVXLCDMIVXLCDMIVXLCDMIVXLCDMIVXLCDMIV":32,6:33,29:34,4:35,19:6:4): PR C2340,2450,2560,2670,278":6)"IVXLCDMIVXLCDMIVXLCDMIVXLCDMIVX":DL1300:DL:1::3)"IVXLCDMIVXLCDMIVXLCDMIVXLCDMIVXLCDMIV":3)"V"39)"V":3)"X"39)"Xg3)"L"39)"L":3)"C"39)"C":3)"D"39)"D":3)"M"39)"M":3)"I"39)"I":3)"V"39)"V":3)"X"39)"X":3)"L"39)"L":CDMIVXLCDMIVXLCDMIVX":6)"V"36)"V":6)"X"36)"X":6)"V"36)"V":6)"X"36)"X":6)"L"36)"L":6)"C"36)"C":6)"D"36)"D":6)"M MEET THE ROMANS"36)"M6)"I"36)"I":6)"V"36)"V":6)"X"36)"X":6)"L"36)"L":6)"C"36)"C":6)"D"36)"D8)"V"34)"V":8)"X"34)"X":8)"L"34)"L":8)"C"34)"C":8)"C"34)"C":8)"D MEET THE ROMANS"34)"D":8)"M"34)"M":8)"I"34)"I":8)"V"34)"V":8)"X"34)"X":8)"L"34)"L8)"IVXLCDMIVXLCDMIVXLCDMIVXLCD":DL1300:DL:3:6)"IVXLCDMIVXL":7:10)"IVXLCDMIVXLCDMIVXLCDM1V":10)"V"32)"V":10)"X"32)"X":10)"L"32)"L":10)"C MEET THE ROMANS"32)"C":10)"D"32)"D":10)"M"32)"M":10)"D"32)"D":10)"IVXLCDMIVXLCDMIVXLCDM1V":DL1300:DL:58)"IVXLCDMIVXLCDMIVXLCDMIVXLCD"::510w"IS THERE SOMEONE ELSE WAITING TO TRY?":A$:A$"YES"260:::10:"OK - COME AND SEE ME AGAIN SOON!":3920SS1:630TT1:760:"O.K., IS ANYONE ELSE WAITING TO TRY?"(YES OR NO)";:A$:A$"YES"130:A$"NO"1530:3920X"39)"X":3)"L"39)"L":3)"C"39)"C":3)"D"39)"D":3)"IVXLCDMIVXLCDMIVXLCDMIVXLCDMIVXLCDMIV":32,6:33,29:34,4:35,19:(10):3)"WOULD YOU LIKE TO TRY AGAINF"(YES OR NO)";:A$:A$"YES"1390:A$"NO"1350:1520nC0:R0:S0:T0:A0:B0:P0:XLCDMIVXLCDMIVXLCDMIV":3)"V"39)"V":3)"X"39)"X":3)"L"39)"L":3)"C"39)"C":3)"D"39)"D":3)"M"39)"M":3)"I"39)"I":3)"V"39)"V":3)"X"39)"X":3)"L"39)"L":3)"C"39)"C":3)"D"39)"D3)"M"39)"M":3)"I"39)"I":3)"V"39)"V":3)"30:1100p::7:2,375:5,3737:3,59:3,516:3,523:3,530:13:A(S30C):A35A:A,3610:A,3611:B(T30C):B35B:12:B,3626:B,3627:7)N$24)M$:4:"PRESS TO CONTINUE..";BA$:(A$)131090L:936:3)"IVXLCDMIVXLCDMIV:C$:3750:640P C$R$1500:2890:16368,0::"PRESS RETURN TO CONTINUE..";s 16368,0:A$:(A$)13740: C5490:ST3020 936:5:3)"WANT TO SEE A GRAPH OF THE SCORES!>"(YES OR NO)";:A$:A$"YES"880:A$"YES"880:A$"NO"8READY FOR THIS TODAY!":DL12000:DL:15201 k 20:N$" HAS "S" "M$" HAS "T:5:CC1:P((1)5)1 N$", WHAT NUMERAL IS";:2330:Q1:C$:3750:530 bC$R$1480:2890 v: {R(5(1))1:RP635 M$", WHAT NUMERAL IS ";:2320:Q2A$"YES"3480:A$"NO"ė:340? |:"ARE YOU READY TO START? "(YES OR NO)";:A$:A$"YES"490:A$"NO"390::"WOULD YOU LIKE TO SEE THE INSTRUCTIONS AGAIN?+ "(YES OR NO)";:A$:A$"YES"3480:A$"NO"430::"WELL, I GUESS YOU JUST AREN'T NAME";:M$:M$""ĺ:"COME ON NOW...":290U ,(N$)10ė:"THAT'S TOO LONG!":290 6N$M$ĺ:"THAT'S THE SAME AS YOUR'S!":"TRY A DIFFERENT ONE.":290 @:6:"WELL, "N$" AND "M$ T::"WOULD YOU LIKE TO SEE THE INSTRUCTIONS?(YES OR NO)";A$: ARE READY!";S (16384)141210:16368,0::16368,0:::" GREAT!! ::"WHAT IS THE FIRST PLAYER'S NAME";:N$:N$""ĺ:"COME ON NOW...":260 (N$)10ė:"THAT'S TOO LONG!":260 :"HI, "N$, ""WHAT'S YOUR PARTNER'S zdA$(5,1):::1570"TODAY WE ARE GOING TO WORK WITH ROMAN NUMERALS":DL11000:DL::::" DO YOU HAVE A FRIEND THAT MIGHT LIKE TO WORK WITH YOU?"::" I WOULD LIKE TO PLAY WITH TWO OF YOU TODAY!": :"PRESS WHEN YOU            KEY TO CONTINUE...";I"<Q$:(Q$)133900::"TRY AGAIN":]"HZ::Q610,710y"P::D$(4):D$"RUNMENU810:Z248Z2573912:"THAT'S NOT A VALID ANSWER":"TRY AGAIN": "Z273Z286Z288Z276Z267Z268Z2773912:"THAT'S NOT A VALID ANSWER!":"THE CHARACTERS FOR THE ROMAN NUMERALS CAN BE FOUND":"IN THE SQUARE ENCLOSING THIS WRITING":"PRESS THE A NUMBER LIKE 37, YOU WOULD ENTER ";:DL11000:DL:50:"XXXVII.":255:3730:::"YOU CAN TAKE TURNS ANSWERING MY QUESTIONS AND I WILL KEEP SCORE. GOOD LUCK!":380 DL12000:DL: C$""C$" C!Z1(C$):Z2$(C$,Z,1):Z2(Z2$):(R$)03YOU A ROMAN NUMERALYOU SHOULD TELL ME WHAT YOU THINK IT MEANS - LIKE THIS -":3730::"IF YOU SEE ";:50:"XXIII -":255::"YOU WOULD ENTER ";:SP50"23":255::"PRESS TO CONTINUE.."; $A$:A$""3620:(A$)133620:::"IF I SHOW YOUU WIN ! !":DL11500:DL:3470Up TT1:"YOU BOTH GOT IT RIGHT ! !":DL11500:DLx "PRESS TO CONTINUE"; 16368,0:A$:(A$)133472:16368,0:790 ::"I AM GOING TO ASK EACH OF YOUTWO KINDS OF QUESTIONS - ":3730::"IF I SHOW 3320:D$H$3320::" SORRY, YOU BOTH MISSED IT !"::"BUT THIS WAS GOOD PRACTICE!":DL11500:DL:3470 TT1::"GOOD WORK, "M$::" YOU GOT IT RIGHT ! !":DL11500:DL:3470* SS1:D$R$3440:D$R$3440:" CONGRATULATIONS, "N$::" YOXCVIII= ?":R$"CXXXIV":H$"134":3200_D :" CXXXIV+XCIX= ?":R$"CCXXXIII":H$"233":3200b :" CCXLVII+CLIV = ?":R$"CDI":H$"401":3200i :N$", WHAT IS YOUR ANSWER?":C$::"NOW, "M$", WHAT DID YOU GET?":D$:C$R$3370:C$H$3370:D$R$ WELL!"::"HOW ABOUT ONE MORE QUESTION TO TRY TO BREAK THE TIE!"::"YOU WILL BOTH HAVE THE SAME QUESTION - WORK THE PROBLEM AND TELL ME YOUR ANSWER!":DL11000:DL:CC1:"YOUR QUESTION IS - ":P(3(1))1 P3110,3140,3170%& :" XXXVI + 6 " 3119":R$"MMMCXIX":=J X(3(1)):X2920,2950,2980{h "OOPS, YOU MISSED THAT ONE!":"IT SHOULD HAVE BEEN "R$: "NO, THINK CAREFULLY -":"THE RIGHT ANSWER IS "R$: "SORRY, THAT'S WRONG - ":"IT WOULD BE "R$: :"YOU BOTH DID VERYROMAN)":R$"LII":6 " 19 (IN ROMAN)":R$"XIX":Y " 490 (IN ROMAN)":R$"XD":~ " 655 (IN ROMAN)":R$"DCLV": P2790,2810,2830,2850,2870 " 240":R$"CCXL": " 1090":R$"MXC": " 2010":R$"MMX":" " 2400":R$"MMCD":$"115":! " MCL":R$"1150":A P2570,2590,2610,2630,2650U " IX":R$"9":i " IV":R$"4":~2 " XL":R$"40":F " XC":R$"90":Z " IL":R$"49":n P2680,2700,2720,2740,2760x " 36 (IN ROMAN)":R$"XXXVI": " 52 (IN 0!$ P2350,2370,2390,2410,24307. " VIII":R$"8":MB " XII":R$"12":bV " XV":R$"15":wj " LX":R$"60":~ " LVI":R$"56": P2460,2480,2500,2520,2540 " XXII":R$"22": " DCX":R$"610": " LXXI":R$"71":  " CXV":RH((Y)121):M((X)60):8 VQ75:C3.1415865180:I VR(D690)C] VX0(R):Y0(R)v VXX0Q140:YY0Q80| W W END OF CLOCK.:Y1Y JV140,75X1,Y15 TVDM:Q72:22250:X2X:Y2YG ^V140,75X2,Y2R hV22150x rV0:140,75X1,Y1:140,75X2,Y2:7 |V22070 VJ13 V"WHAT TIME IS IT?";P,Q VPHQM22210 V V"TIME IS ";H;":";M V V"YOU'RE RIGHT" V V6:20(C$)2:C$A X15:"ENTER TIME AS FOLLOWS: HOUR,MINUTES"h l23:"PRESS 'RETURN' TO BEGIN ";A$r :24{ U:7 U22240 VD060 V22250 VX,Y "V ,VQ7377:D0555:22250:X,Y:: 6V22230 @VD(HM60)5:Q50:22250:X1Xd****************-x* *C* TELLING TIME *Y* *o* BY ART LEW ** HONOLULU, HI ** ***************** :C$"TELLING TIME"3:20(C$)2:C$0C$"BY ART LEW" D   331,33431,336)31,33854,833I DRAW NUMBER 4V17,195b5,819o17,217  DRAW NUMBER 518,201717,1918(18,2019219,2120<18,2021F DRAW NUMBER 6P31,3317Z17,2131d30,393939,039"$0,390/.0,3913<80,3926IB0,3913VL0,3926|V NUMBER THE SQUARES 1-9 IN WHITE` DRAW NUMBER 1j4,86t DRAW NUMBER 2~18,2044,62018,2066,81818,208 DRAW NUMBERNONE OF THE BOXES ARE COLORED AT THIS POINT.BI19:BX(I)0:IHN DRAW A COLOR GRAPHICS TIC TAC TOE GAMEBOARD COLOR BACKGROUND ORANGE9I1381,38II DRAW LINES OF GAMEBOARD130,390  T0:C0I* BOX OF 9. ARRAY KEEPS TRACK OF WHICH BOXES ARE COLORED.T4BX(9)Z>H11:"DO YOU WANT EASY PROBLEMS?"R16:"PRESS Y FOR YES OR N FOR NO.":B$\B$"N"P1fB$"Y"P0pB$"N"B$"Y"830z(B$)27İ3000, S TO CONTINUE OR TO END";:C$c(C$)27ė:"THANKS FOR PLAYING!!!":"RUN MENU"y(C$)13ĺ:750  T COUNTS THE NUMBER OF PROBLEMS THE STUDENT IS GIVEN C COUNTS THE NUMBER OF PROBLEMS THE STUDENT ANSWERS CORRECTLY 9:"TAC TOE. YOU WILL PICK A BOX AND SOLVE"`11:"THE MATH PROBLEM. WHEN YOU GET THREE"13:"IN A ROW - YOU WIN. YOU MAY GO"15:"VERTICALLY, HORIZONTALLY, OR DIAGONALLY."17:"THINK BEFORE YOU ANSWER. GOOD LUCK!"-22:"PRES0b10:"HELLO, "A$". WELCOME TO TIC TAC ADD."Zl:::A$;", DO YOU NEED DIRECTIONS?"v"PRESS Y FOR YES OR N FOR NO.":B$B$"N"ī770B$"Y"ī6003:11:"RULES OF THE GAME"7:7:"TIC TAC ADD IS A GAME LIKE TIC"/9$21:10:"BY LINDA Y. JOHNSEY"_:"PRESS TO CONTINUE OR TO END";:CN$(CN$)27ė:"THANKS FOR PLAYING!!!":"RUN MENU"!(CN$)13ľCN$:540&0:D12:"WHAT IS YOUR FIRST NAME? ";A$NA$""570XJ DRAW CT33,378$^8,14332h33,3714?r DRAW AM|10,1523[23,2910i23,2915w10,1526 DRAW D17,222323,291823,292217,2229 DRAW D24,292323,292523,292924,292TAC ADD IN COLOR GRAPHICS." 13/ DRAW T: 1,58F 8,143S DRAW I_ 8,148l DRAW Cy 10,148 8,1410 10,1414 DRAW T 21,258 8,1423  DRAW A "27,318 ,8,1427 68,1431 @27,3111 Y x: THIS PROGRAM IS DESIGNED TO GIVE A STUDENT RANDOM ADDITION PROBLEMS WITH SUMS OF 20 OR LESS. THIS PROGRAM UTILIZES A TIC TAC TOE GAMEBOARD PROVIDING THE STUDENT DRILL AND PRACTICE OF ADDITION FACTS WITH SUMS OF 20 OR LESS.  : PRINT TIC MAY NOT BE SOLD.COPY-*4 ! *RIGHT 1982 CUE, INC. *R " ***********************[ #100 224:"PRESS TO GO ON, TO END "; 4IN$:(IN$)152 6(IN$)(27)3000 7(IN$)1352 8: d n TIC TAC ADD BY LINDA Y. JOHNSEREET *&  * REDWOOD CITY *D  * CA 94063 *b  * (415) 363-5472 *  * *  * *  ***********************  *PROGRAM MAY BE COPIED*  *FOR EDUCATIONAL USE &* * * SAN MATEO COUNTY *6  * OFFICE OF EDUCATION *T  * & *r  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * *  * 333 MAIN STM TIC TAC ADD 12/25/81, I PROGRAM TEST ADDITIONg SKILLS THROUGH TIC TACx TOE GAME.~ APPLE II W/APPLESOFT LINDA Y. JOHNSEY  *********************** * *           T0ī3130$& G%(100TC)D$0 16:A$", THAT IS A SCORE OF "G%"%"L$: : MENU"PROBLEMS."r$ T0ī3130$& G%(100TC)$0 16:A$", THAT IS A SCORE OF "G%"%"$: "RUN MENU"CCN$: #r 4#| 10:A$", DO YOU WANT TO PLAY AGAIN?"`# 13:"PRESS Y FOR YES OR N FOR NO.":B$q# B$"Y"ī830# B$"N"2930# 3000# # # ESCAPE# # # # 10:A$","# 13:"YOU SOLVED "C" OUT OF "T" PROBLEMS." $ IVES PER CENT CORRECT#"" 7:A$","O", 10:"YOU HAVE SOLVED "C" OUT OF "Td"6 11:"PROBLEMS.""@ ROUND UP TO THE NEXT HIGHEST INTEGER"J T0ī2990"T G%(100TC)"^ 15:A$", THAT IS A SCORE OF "G%"%."#h 20:"PRESS TO CONTINUE": ! 1550:! STUDENT DID NOT ANSWER PROBLEM CORRECTLY.j! 23:4:A$", BE CAREFUL. "X%" + "Y%" = "Z%r! 50|! 1550! ! WE HAVE A WINNER! 22::A$", YOU ARE A WINNER!!":! :"PRESS TO CONTINUE";:CN$! ! " G% G)1ī2780, d BX(1)1BX(4)1BX(7)1ī2780O n BX(2)1BX(5)1BX(8)1ī2780r x BX(3)1BX(6)1BX(9)1ī2780 BX(1)1BX(5)1BX(9)1ī2780 BX(3)1BX(5)1BX(7)1ī2780 STUDENT DOES NOT HAVE TIC TAC TOE. RETURN TO PICK A BOX.! 50 COLOR IN BOX 8 15$ I27381 14,25IA J1100:JH IR 2630g COLOR IN BOX 9o 15| I2738( 27,38I2 J1100:J< IF BX(1)1BX(2)1BX(3)1ī2780P BX(4)1BX(5)1BX(6)1ī2780 Z BX(7)1BX(8)1BX(9IN BOX 515 I1425* 14,25I: J1100:JA$ IK. 2630`8 COLOR IN BOX 6hB 15uL I1425V 27,38I` J1100:Jj It 2630~ COLOR IN BOX 7 15 I2738 1,12I J1100:J I 2630 X 2 *154I112$>14,25I4HJ1100:J;RIE\2630Zf COLOR IN BOX 3bp15nzI112{27,38IJ1100:JI2630 COLOR IN BOX 415I14251,12IJ1100:JI2630 COLOR E BOXvBX(A)1 A1ī2010/A2ī2080>A3ī2150MA4ī2220\A5ī2300kA6ī2360zA7ī2430A8ī2510A9ī2570 COLOR IN BOX 115I1121,12IJ1100:J I2630  COLOR IN BO BEEN GIVEN&TT1>0" TYPE ANSWER AND PRESS "^:22:14:X%;" + ";Y%" = ";:D22:24:S$:(S$)0S$"0"TT1:1810NZ%(S$)ī2740X23:10:A$", THAT'S SUPER!!"bCC1l STUDENT HAS SOLVED PROBLEM. TIME TO COLOR TH9 P = 1 RANDOM PROBLEMS WILL HAVE SUMS OF 20 OR LESSV X% IS THE FIRST ADDENDiX%(9)21010 Y% IS THE FIRST ADDENDY%(9)21010 Z% IS THE SUM OF X% PLUS Y%Z%X%Y%  T IS THE NUMBER OF PROBLEMS THE STUDENT HASPROBLEMS WITH SUMS 20 OR LESS.-rP1ī1740i| P = 0. RANDOM PROBLEMS WILL HAVE SUMS OF 10 OR LESS. X% IS THE FIRST ADDENDX%(9)21020 Y% IS THE SECOND ADDENDY%(9)21020 Z% IS THE SUM X% PLUS Y%Z%X%Y%181021:"CHOOSE A BOX (1-9)":B$*"A(B$)>,A0A10ī1600H61550c@ IS THIS BOX COLORED?vJBX(A)0ī1640T BOX IS ALREADY COLORED.^1550h P = PROBLEMS. IF P = 0 THEN RANDOM PROBLEMS WITH SUMS OF 10 OR LESS. IF P = 1 THEN MIXED 1,3319n31,3321#x19,21337 DRAW NUMBER 7C5,730P30,347d DRAW NUMBER 8r18,203018,203218,203430,341830,3420 DRAW NUMBER 931,333031,333230,323130,3433:P(P$):P0P$"0"845%P%4X%;PP%MM1:3705LPP%İ3765SI]4045 FORMULA PERIMETER/RECTANGLE P% = 2 * X% + 2 * Y%I110RR13925 X%2305,2385,2545,2685,2805,2965,3125,3225,3385,35454MPTED0% FORMULA PERIMETER/SQUARE P% = 4 * X%</I110B9LC3925RMWX%2305,2385,2545,2685,2805,2965,3125,3225,3385,3545a12k11,298u11,29358,35118,352921:"ENTER THE PERIMETER AND PRESS ";P$24:"TYPE S, R, OR T - ";:D$.D$"S"1555L PROGRAM FOR AREA/SQUARE]D$"R"1725~ PROGRAM FOR AREA/RECTANGLED$"T"1905 PROGRAM FOR AREA/TRIANGLE VALIDITY STATEMENT 625 M = COUNTER FOR NUMBER OF PROBLEMS ATTEIOP#q: BEGINNING AREA PROGRAM>{2:12::"HELLO ";Z$Dg4:10:"WELCOME TO AREA LAND"6:2:"YOU MAY SELECT ONE OF THE FOLLOWING"12:5:"S - SQUARE";14:5:"R - RECTANGLE";16:5:"T - ISOSCELES RIGHT TRIANGLE"L TRIANGLE". 24:"TYPE S, R, OR T - ";:C$>C$"S"805f! 4000 PROGRAM FOR PERIMETER/SQUAREv+C$"R"9755 6000 PROGRAM PERIMETER/RECTANGLE?C$"T"1165I 8000 PROGRAM PERIMTER/TRIANGLES 630 IS VALIDITY STATEMENT]435g BEGINNING OF PERIMETER PROGRAM46:16:" ";Z$O2:12::"HELLO ";Z$U|4:7:"WELCOME TO PERIMETER LAND"6:2:"YOU MAY SELECT ONE OF THE FOLLOWING"12:5:"S - SQUARE";14:5:"R - RECTANGLE"; 16:5:"T - EQUILATERAWHAT SECTION, AREA OR PERIMETER THE STUDENT WANTS TO WORK OFDYM0Jc|m6:"WHICH DO YOU WANT TO WORK WITH, ";Z$;"?"w10:5:"P - PERIMETER";12:5:"A - AREA";20:"TYPE P OR A - ";:B$B$"P"435B$"A"625355 :ND";:CN$D(CN$)27ė:12:"THANKS FOR PLAYING!!!":"RUN MENU"^(CN$)13ľCN$:275d': VARIABLE Z$ = NAME OF STUDENT123:"TYPE YOUR NAME AND PRESS ";12:8:"WHAT IS YOUR NAME? ";Z$EZ$""295<O TO DETERMINE RT PROGRAM+6:11:"DRILL AND PRACTICE">R$(10),W$(10)TI110:R$(I):IjI110:W$(I):I8:11:"PERIMETER AND AREA"10:19:"OF"12:4:"SQUARES - RECTANGLES - TRIANGLES"  23:"PRESS TO CONTINUE OR TO E Z$ = NAME OF STUDENTR STUDENT WILL BE INSTRUCTED TO PRESS RETURN TO CONTINUE VARIABLE B$ = CHOICE OF AREA OR PERIMETER VARIABLE C$ = SELECTION OF SHAPE FOR PERIMETER VARIABLE D$ = SELECTION OF SHAPE FOR AREA 0  LOOP TO STA$:(IN$)152, 6(IN$)13(IN$)2752b 7(IN$)27ĺ:::12:"THANKS FOR PLAYING!!!"::j 8: K VARIABLE P = PERIMETER U VARIABLE A = AREA _ VARIABLE S= SQUARE i VARIABLE R = RECTANGLE s VARIABLE T = TRIANGLE } VARIABLE *!  ***********************?  *PROGRAM MAY BE COPIED*]  *FOR EDUCATIONAL USE &*{ *MAY NOT BE SOLD.COPY-* ! *RIGHT 1982 CUE, INC. * " *********************** # -75 224:"PRESS TO GO ON, TO END "; 4IN *1  * SOFTSWAP *O  * *m  * 333 MAIN STREET *  * REDWOOD CITY *  * CA 94063 *  * (415) 363-5472 *  * *  * HARDY AND RUSSEL # A ***********************_ * *}  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * & *  * COMPUTER-USING *  * EDUCATORS *  * ! PERIMETER & AREA DRILL+  PROGRAM TO GIVE STUDENT'S DRILL AND PRACTICE IN DETERMINING THE PERIMETER AND AREA OF SQUARES, RECTANGLES, AND TRIAGLES.   APPLE II W/APPLESOFT               TINE TO PRODUCE RANDOM NUMBERS WHICH ARE NOT EQUALD&UX%(9)2559Y&_RR1X%43925n&iX%1X%103925&sRR13995&}Y%(9)2559&Y%1Y%103965&Y%X%3965&' THAT'S RIGHT, GREAT!!! RIGHT AGAIN, GOOD WORK!!!!, WOW!!!!!,) %:50%#%W%(9)25568%W%1W%103765F%21:868V%22:W$(W%)f%PP0PPP%|%23:"IT IS ";PP%PP0%50%% SQUARE/ AREA%:7%I839%11,29I%#I%-%7 RECTANGLE/AREA%A:92&K SUBROU $ 19,233$ $ 12%$ :122$ 21,231?$ 21,235K$1,519W$ 1,521c$1,523i$q$)12{$3:12$=3,519$G3,523$Q19,231$[19,233$e19,235$o$yU%(9)2556$U%1U%103705$21:868%R$(U%521 # # 8 SIDE# 10+# 1,3197# 1,321C# 1,323P# 19,231]#% 19,233c#/ o#9 9 TOPv#C 5#M 19,211#W 19,213#a 19,215#k 1,319#u 1,521# # 9 SIDE# 5# 1,319# 1,321# 1,323$ 19,211E" 5" 1,319 " 1,321," 1,3239" 19,231F"! 21,233L"+ X"5 7 TOP_"? 6l"I 19,211x"S 2,521~"] "g 7 SIDE"q 6"{ 1,319" 19,233" " 8 TOP" 10" 19,211" 19,213" 19,215" 1,519# 1,! 9! 19,211! 19,213,! 19,2158!' 1,319D!1 3,521J!; W!E 5 SIDE^!O 9j!Y 1,319v!c 1,321!m 1,323!w 1,20! 3,22! ! 6 TOP! 5! 19,211! 19,213! 19,215! 1,519! 3,521! " 6 SID19,213  19,215 # 1,521& - 3 7 3 SIDE; A 10G K 1,319S U 1,321_ _ 1,323l i 19,233r s ~ } 4 TOP 11 19,213 1,319 2,521 4 SIDE 11 1,321 19,211 20,233 5 TOP ) 1 SIDE3 14!= 19,231'G 3Q 2 TOP;[ 12He 19,211Uo 19,213by 19,215n 1,321z 3,519  2 SIDE 12 1,319 1,321 1,323 19,213 21,231  3 TOP 10 19,211  6,288:8,306YT29=TY829:YTYT1:YT,TY:TY21:"ENTER THE AREA AND PRESS ":"";P$:P(P$):P0P$"0"1945PPX%X%2PPPMM1:3705PPPİ3765I4045 1 TOP 14 1,519 IPP%MM1:3705%SPP%İ3765,]I6g4045bq FORMULA AREA/TRIANGLE P% = X% * X% /2n{I110t~3925X%2305,2385,2545,2685,2805,2965,3125,3225,3385,3545X%2345,2465,2615,2745,2885,3045,3175,3305,3465,36252%2305,2385,2545,2685,2805,2965,3125,3225,3385,3545mY%2345,2465,2615,2745,2885,3045,3175,3305,3465,3625z 8,32128,3228!12,288+12,2832521:"ENTER THE AREA AND PRESS ":"";P$:P(P$):P0P$"0"1775?P%X%Y%w8,3529Z21:"ENTER THE AREA AND PRESS ":"";P$:P(P$):P0P$"0"1595gP%X%X%}PP%MM1:3705PP%İ3765I4045 FORMULA FOR AREA/RECTANGLE P% = X% * Y%I110RR139253X0"1205P%3X%)PP%MM1:3705:PP%İ3765AIK 4045r FORMULA AREA/SQUARE P% = X% * X%~I110'13925;EX%2305,2385,2545,2685,2805,2965,3125,3225,3385,3545O14Y11,298c11,2935m8,3511 11,17710,18A9,19&K8,200U21,9;_22,10Fi23,11Qs24,12\}25,13g26,14r27,15}28,1629,1730,1831,1932,208,322021:"ENTER THE PERIMETER AND PRESS ";P$:P(P$):P0P$"I 40458 FORMULA PERIMETER/TRIANGLE P% = 3 * X%DI110JT3925ZX%2305,2385,2545,2685,2805,2965,3125,3225,3385,3545220,819,918,1017,1116,1215,1314,1413,15#12,16-Y%2345,2465,2615,2745,2885,3045,3175,3305,3465,3625<14I)8,3212V38,3228c=12,288qG12,2832Q21:"ENTER THE PERIMETER AND PRESS ";P$:P(P$):P0P$"0"1025[P%2X%2Y%ePP%MM1:3705oPP%İ3765y* C$"Y"345"*C$"N"4045e*::"THANKS FOR WORKING WITH ME TODAY. SEE YOU LATER....":IR N":15:42:C$ ) C$"Y"3452)C$"N"4045)::"THANKS FOR WORKING WITH ME TODAY. SEE YOU LATER....":"RUN MENU" MENU"";M;" PROBLEMS RIGHT OUT OF 10")15:"WOULD YOU LIKE TO TRY SOME MORE PROBLEMS?"*"TYPE Y OR N":15:42:C$RY AGAIN, GOOD TRY BUT NOT QUITE RIGHT, SORRY YOUR ANSWER IS NOT CORRECTd(:: GIVE NUMBER RIGHTr(M84075(5:"GOOD WORK, ";Z$(7:"YOU GOT ";M;" PROBLEMS RIGHT OUT OF 10"(15:"WOULD YOU LIKE TO TRY SOME MORE PROBLEMS?")"TYPE Y O SUPER RIGHT AGAINl' GOOD JOB, YOU'RE A GOOD WORKER, RIGHT ON TARGET, NICE WORK!!!!!, RIGHT!! YOU DID IT' SORRY TRY AGAIN, NOT QUITE RIGHT TRY AGAIN, WHOOPS!!!, DARN MISSED IT, SHUCKS TRY AGAINH( SORRY NOT QUITE RIGHT, WHOOPS MISSED IT, DARN TLAG1N1N1I:J:ER.":540)&:"OKAY. THE NUMBER IS ";NqN21:958:"TRY ANOTHER ONE? (Y/N) ";:IN$::IN$"Y"IN$"N"590XIN$"Y"300g:12:7:" * * * T H E E N D * * *":21lFLAG0:N1N:J05:N1I(N1I)FLAG1N1N1I:J::1I)Fĺ:540450?12:"ENTER NEXT NUMBER: ";IN$:IN$""540LA(IN$)h ANĺ:"CORRECT!":590r!958"14:"SORRY, NOT IT. GUESS AGAIN (Y/N) ?";:IN$::IN$"Y"IN$"N"546 $IN$"Y"Ģ11:958:23:"PRESS AFTER TYPING IN NUMB5:16:958::404=7:"SMALLER NUMBER = ";I$:I$""408fI(I$):INI1Ģ7:18:958::408pC0:X((1)3.91):X4İ700:FLAG1440N;", ";X1NNI:510X2NNI:510X3NNI:510NNICC1C5350hZ1L10rZ2L50.|Z3L1004f23:"PRESS AFTER TYPING IN NUMBER."2:"CHOOSE TWO NUMBERS BETWEEN 1 AND ";L;" AND""TYPE IN THE LARGER ONE FIRST. "5:"LARGER NUMBER = ";N$:N$""404N(N$):N1NLK6::"CHOOSE LEVEL OF DIFFICULTY BY TYPING IN THE APPROPRIATE NUMBER."p@:7)"1) NUMBERS FROM 1 TO 10"J:7)"2) NUMBERS FROM 1 TO 50"T:7)"3) NUMBERS FROM 1 TO 100"^12:"WHICH NUMBER? ";:IN$::IN$""350`Z(IN$):Z1Z3."4 ::"YOU WILL SEE THE FIRST FIVE NUMBERS OF"I "THE SEQUENCE."g ::"STUDY THE PATTERN." ::"WHEN THE COMPUTER ASKS FOR THE NEXT" "NUMBER, TYPE IN YOUR ANSWER." 21:"PRESS TO CONTINUE. ";:IN$::(IN$)13280,BY BOB ALBRECHT"< " IN INTERFACE AGE, DECEMBER , 1979"T ::16)"********" 21:"PRESS TO CONTINUE. ";:IN$::(IN$)13170 : "YOU WILL CHOOSE TWO NUMBERS WHICH THE COMPUTER WILL USE TO GENERATE A" "SEQUENCERAM MAY BE COPIED*/ *FOR EDUCATIONAL USE &*L *MAY NOT BE SOLD.COPY-*i !*RIGHT 1981 CUE,INC * "*********************** d16368,0:16300,0:16298,0:: n6 x" THIS IS THE GAME OF SEQUENCES" : " FROM AN ARTICLE *# * *@ * 333 MAIN STREET *] * REDWOOD CITY *z * CA 94063 * *(415)364-5600 EX 4401* * * *********************** * *********************** *PROG GRIMM, 4/81) ; ***********************X * *u * OFFICE OF EDUCATION * * & * * COMPUTER-USING * * EDUCATORS * * * * SOFTSWAP SEQUENCES DECEMBER/1979& [ A NUMBER SEQUENCE GAME OF DEDUCTIONau APPLESOFT 8K{ BY MARGE COLE (ADAPTED FROM AN ARTICLE BY BOB ALBRECHT IN INTERFACE AGE) (REVISED BY LESLIE      ":"AGAIN, ";N$:ING":"AGAIN, ";N$: OR N) ==>";:A$A$"Y"Ĭ5A$"N"ė:2:711;A["THAT'S IT, "N$".":z"CORRECT ANSWER, "N$".":"GOOD WORK! KEEP IT UP, "N$".":"YOUR A REAL LIVE GENIUS!":"GO, ";N$;", GO!": "I THINK YOU HAVE BEEN STUDYINGWANT TO TRY AGAIN, "N$"? ":.v"Y OR N.";C$=C$""590XC$"Y"Č936:10:230iC$"N"590q:{936255:"THANKS FOR WORKING SO HARD,"::N$". COME BACK AGAIN.":"IS ANYONE ELSE WAITING TO PLAY, (YSS1S10580350R&:N$:"THE RIGHT ANSWER IS":A;" X ";B;" = "ABc0Z11000:Zl:370uDY0N::936:2XN$", YOU ANSWERED 10 MULTIPLICATION"::"PROBLEMS IN "Q" TRIES."::Q10ĺ"CONGRATULATIONS.":b:l"DO YOU C(C$)CAB490%TT12T3550]CABĺ"TRY A BIGGER NUMBER, "N$".":CABĺ"TRY A SMALLER NUMBER, "N$".":CV(37):CV16āI1600:I:936:37,8390936:R(6(1))1R730,740,750,760,770,780A11GA!6A0A11Ģ11:2708@936:33,31:32,6BJ34,6JT10]^B((.05)10)vhG11A((.05)10)|r|T0:A;" X ";B;" = ";QQ1C$:C$""410(C$)48(C$)57ĺ"NOT A VALID ANSWER!":"TRY AGAIN =>";:410 : Q0:S0i "I WILL GIVE YOU A PROBLEM. PLEASE TYPE IN THE ANSWER. THEN PRESS ."q G0 :"WHAT TABLE WOULD YOU LIKE TO PRACTICE?"  ""0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, OR 11 FOR PRACTICE FROM ALL TABLES=>";:A , *";8 "****************************************";B :21g "PRESS TO CONTINUE=>";~ A$:(A$)13165 936:3 "HI, WHAT'S YOUR NAME? ";N$:N$""200 N$(N$,8) :"IT'S GREAT TO HAVE YOU HERE TODAY,":N$;"!"81 CUE,INC *- "************************< d::255:C n5t x"****************************************"; "* *"; "* M U L T I P L I C A T I O N *"; "* CA 94063 */ * (415)364-5600 EX 4401*M * *k ************************r *y * ************************ *PROGRAM MAY BE COPIED * *FOR EDUCATIONAL USE & * *MAY NOT BE SOLD. COPY-* !*RIGHT 19 *! * OFFICE OF EDUCATION *? * *] COMPUTER-USING EDUCATORS{ * * * SOFTSWAP * * * * 333 MAIN STREET * * REDWWOD CITY * *   MULTIPLICATION AUG 1980( G STUDENT SELECTS TABLE(S)W FOR DRILL]q 16K APPLESOFTy  AUTHOR UNKNOWN    ************************ * * * SAN MATEO COUNTY      T(T$) TS830%F*" OH DEAR, THAT SHOULD HAVE BEEN ";SP4WW1Z91500c:840i>C:"RIGHT YOU ARE!"DZ111000:Z1HIMR::"THAT'S ALL!!!!"\DL12000:DLf:p10u16368,0z10)"LET'S SEEALWAYS GIVES INTEGER ANSWER8 6)I9,Q;" / ";R;" = ";F16368,0NT$]T$""796{Z((T$,1)):P((T$,1))(T$)2R1((T$,2,1)):R148R157796Z48Z57P48P57796798:"THAT'S NOT A VALID ANSWER..."::780THAT'S NOT A VALID ANSWER..."::6600T(T$)=TP710CY" NO, IT IS ";PcWW1m1500v720|:"THAT'S RIGHT!"Z111000:Z1II13S((1)H)1R((1)H)1QRS > > DIVISION :Z1 bIlI13(vM((1)H)1:G((1)H)1@JPMGg6)I6,M;" X ";G;" = ";u16368,0T$:T$""675(T$)2R((T$,2,1)):R48R57675Z((T$,1)):Q((T$,1))Z48Z57Q48Q57675679$:"4(T$)2R((T$,2,1)):R48R57567F5Z48Z57Q48Q57567O6568|7:"THAT'S NOT A VALID ANSWER..."::5408T(T$):TF600?D" OOPS, THAT SHOULD BE ";FNWW1O1500S610X]:"CORRECT!"^Z111000RY GOOD!"Z111000:Z1#I.I13>D((1)X)KD0510[E((1)D)a kFDE6)I3,D;" - ";E;" = ";& > > SUBTRACTION ALWAYS GIVES POSITIVE ANSWER/16368,00T$1T$""5673Z((T$,1)):Q((T$,1)))(T$,2,1)):R48R57444C(T$)4R((T$,3,1)):R48R57444`Z48Z57Q48Q57444i445:"THAT'S NOT A VALID ANSWER..."::430T(T$)TC480:" SORRY, THE ANSWER IS ";CWW11500490 :"VE14 |I13C((1)X)*C0390:B((1)C)c > > ANY TWO NUMBERS ADDED TO MAX XmACBs6)I,A;" + ";B;" = ";16368,0T$:(T$)4ĺ"TOO BIG!"::435T$""444Z((T$,1)):Q((T$,1))(T$)2R( FOR * AND /X10:H4:3101X25:H10:310E"X100:H12:310U,X1000:H20b6:6:W0@ > > W COUNTS WRONG ANSWERSJ"OK, ";A$T" ANSWER THESE QUESTIONS -"^:"(REMEMBER TO PRESS 'RETURN' AFTER EACH ANSWER!)"h34,12r> KEY TO END..."A 9:"WHAT LEVEL DO YOU WANT TO START WITH?";O 16368,0b L$:L$""205u (L$)271069 (L$)49(L$)52204 L(L$) :5 L270,280,290,300  > > SETS LEVELS OF DIFFICULTY. X IS MAX FOR + AND -, H IS MAX6:" HI, ARE YOU READY FOR A MATH QUIZ? "T :"FIRST TELL ME YOUR NAME - ";A$h A$""Ģ10:140| :2:"OK, ";A$ :" THERE ARE FOUR LEVELS TO THIS QUIZ - " :"LEVEL 1 IS THE EASIEST, 4 IS THE HARDEST" 23:5:"...PRESS  *FOR EDUCATIONAL USE &*\ *MAY NOT BE SOLD.COPY-*z ! *RIGHT 1981 CUE,INC * " *********************** d::298,0:16300,0:16368,0 n > > J IS PASSMARK:NUMBER CORRECT OUT OF 12 xJ9:Y1:N0- AP *(  * *F  * 333 MAIN STREET *d  * REDWOOD CITY *  * CA 94063 *  *(415)364-5600 EX 4401*  * *  ***********************  *  **********************************+ * *I  * SAN MATEO COUNTY *t 16368,0: * OFFICE OF EDUCATION *  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSW  MATH QUIZ OCTOBER '80) F FOUR FUNCTION, WHOLEd NUMBER DRILL-4 LEVELSl  APPLESOFT, 8K ADAPTED FOR APPLE BY B. GOODSON FROM THE COMPUTING TEACHER **********          !!! ! ! OD JOB! ! !"DL12000:DL':3(5:950;x:i24:6:"PRESS TO CONTINUE....";U$:(U$)27950ī950x:24:6:"PRESS TO CONTINUE....";U$:(U$)27950@16368,0`U$:U$""11204eU$"Y"ė:10:15FjU$"N"1119lt:3:" GOOD-BYE!"r~z:C019((1)13)120C,20C20C20C,20C20C20C,20C20C20C,20C20CC  ::13)"GO:Y$""1010)Y$"Y"ĉ:936:10:160;Y$"N"1008E1070K-^.::"OK, ";A$8" STUDY A LITTLE MORE AND THEN COME TO SEE ME AGAIN!"BDL12000:DLV:" IS SOMEONE ELSE WAITING TO TRY?"["(Y FOR YES, N FOR NO)=>"; _::"WOULD YOU LIKE TO TRY THIS LEVEL AGAIN?"O"(Y FOR YES, N FOR NO)=>";]16368,0pU$:U$""955U$"Y"310U$"N"954936:8:"WOULD YOU LIKE TO TRY A DIFFERENT LEVEL?""(Y FOR YES, N FOR NO)=>";16368,0 Y$ HOW YOU DID!",::"M-M-M-M-M OK ";A$c:"YOU HAD ";12W;" QUESTIONS OUT OF 12 CORRECT!"zZ((12W)10012):"THAT'S A SCORE OF ";Z;"%."1500Z$""Z951210Z75Z$"THAT'S NOT A VERY HIGH GRADE!"::2:Z$/RE PRACTICE!" 6& :"DO YOU WANT TO TRY AGAIN?"A+ "";L$_0 (L$,1)"Y"ė::6::70 ::"OKAY, SEE YOU LATER, ";N$;"." :6M(1)7N(1)6O(1)6G((1)9)2H((1)9)2dJL ";NQ;" QUESTIONS, ";N$;"."" P "YOU GOT ";QR;" RIGHT AND ";QW;" WRONG."V u QRNQĺ"PERFECT SCORE!!!" QRNQ1.0QRNQ.90ĺ"EXCELLENT WORK! ALMOST ALL RIGHT!"  QRNQ.75ĺ"GOOD TRY, ";N$;", BUT I THINK YOU":"COULD USE A LITTLE MO2010. A$(M);" THINKS YOU'RE WRONG!":2010C "NOT IT!":2010o "WRONG. YOU MUST NOT BE A COMPUTER!!!" T1T0:P13500:: QWQW1 T1 :"LET'S TRY AGAIN.":P13500:::6::300 P13500:  :12 "THAT'S AL":1010( "RIGHT! GOOD WORK, ";N$;"."C T1T0:P13500::^ T1T0:P13500::j QRQR1z P13500:  :15:R(((1)5)1):R2001,2002,2003,2004,2005 "SORRY, ";N$;". THAT'S NOT IT.":2010 "NO. TRY AGAIN, ";N$;".":GHİ2000 ZNQİ3000# 210Y :15:R(((1)5)1):R1001,1002,1003,1004,1005 "I'M PROUD OF YOU, ";N$;"!":1010 "YOU'VE BEEN STUDYING! WOW!":1010 "I THINK YOU'RE SMART ENOUGH TO MARRY ME!":1010 A$(M);" SAYS YOU'RE RIGHT!!!OW MANY QUESTIONS TODAY, ";N$;"?", "";NQ6 ZZ1? :8I 4000r ,"IF ";A$(M);" HAD ";G;" ";B$(N);","x 6 @"AND ";C$(O);" GAVE ";H;" MORE ";B$(N) J T"HOW MANY WOULD ";A$(M);" HAVE IN ALL?" ^ h"";A rAGHİ1000 |AESTOR","JOSHUA","MANESSA","COOKIE","EDELWEISS","ELIOT","PEACE" "KITTENS","TENNIS BALLS","COOKIES","PENNIES","MICE","SEEDS" "PAULA","BOBBY","TAMMY","HEATHER","TONY","RICHIE" "HI! I'M ADDLE APPLE. WHAT'S YOUR NAME?" "";N$:::! "H# WORD PROBLEMS: ADDING TO 200::255811e(">>>>> ADDLE APPLE WORD PROBLEMS <<<<<"2:" ADDING TO TWENTY"<P12500:F:12dJ06nA$(J)sxJ05B$(J)J05C$(J)> "N"" " " " " ""