2IMGCdrP@@@ 8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RSEVEN1 ' %@$MENU)1 k , 'LEVEL.1 u'LEVEL.2 'LEVEL.3g 'LEVEL.4  'LEVEL.5( 'LEVEL.6/ 'LEVEL.79 'LEVEL.8C'LEVEL.9I(LEVEL.10N (LEVEL.11Z L(LEVEL.12a @(LEVEL.13j F(LEVEL.14t+ (LEVEL.15| u3 (LEVEL.16L&L)(LEVEL.174 (LEVEL.18 K4 STARTUP  &PRODOS }<  ,BASIC.SYSTEM(  ʮ (LEVEL.19 k L,(LEVEL.20 5 (LEVEL.21 5 (LEVEL.22 T5 (LEVEL.24c5 (LEVEL.23& 5 (LEVEL.262 B6 (LEVEL.25> 6 -GAMBLERS.RUINJ k 'k (GOLF.IIIR1k 'k .LOGIC.PRACTICEl9k 'k /WHEEL.OF.FORTUN50k 'k )/ASSERTIVENESS.T"Ak 'k %MENU2k /WHELL.OF.FORTUNU0L4L4Q3:Z19A$(Z),B$(Z)' :1(1000D2--CENTER A$--\7(42(A$))2:A$:s<--SCREEN BORDER--A:1:2:X239:" ";::2:2:" ";:39:" ":X222:X:1:" ";:40:" ":F22:2:" ";:39:" ":23:2:X239:" ";::: 60 X1Z:A$(X):( X1Z:B$(X):7  LEVEL 1F  LEVEL 2U  LEVEL 3d  LEVEL 4s  LEVEL 5  LEVEL 6  LEVEL 7  LEVEL 8  LEVEL 9  LEVEL 10  LEVEL 11  LEVEL 12  LEVEL 13  LEVEL 14   LEVEL 15  LEVEL 16/  LEVEL 17>  LEVEL 18J  MENU2 :A$"THE APPLE BEST 100 - V2.0":2:50:A$"+ + + BONUS DISK #1 + + +":3:50: X1Z:A$A$(X):XQ:50: C1 :A$A$(C):A$A$" ":A$" "A$:CQ:50: 49152,128:K(49152)128 49168,0[ K10K21ĝ:A$A$(C):A$A$" ":A$" "A$:CQ:50:CC1h CZC1| K10K211033 K8K11ĝ:A$A$(C):A$A$" ":A$" "A$:CQ:50:CC1 K131050 C1CZ 1033 :(4)"RUN "B$(C)  LEVE MATH LEVEL 1,BY RICHARD PITSCHKA=REVISED BY:R(GUY B. PURCELL 2A$"NUMBER OF PROBLEMS":B$"NUMBER RIGHT":::97"****************************************"816:"LEVEL 1":9"****************************************" :I12500:I::370$ <CO0::90 FCOCO1:NTNANBNCND:RTRARBRCRD:::PK(16384):16368,0:PK155320:SC((RT10NT))2RTRT P"LEVEL 1 SCORE....."(SC)& ZZ((1)4):Z130,190,280:8:"HOW MANY *'S ARE THERE?":X((1)20 1):NANA1:11:M1X:"*";::100r d11:30:Y:216,0:XY110:14:"NO....THE RIGHT ANSWER IS "X:370:120 n14:"VERY GOOD !":RARA1:370 x70 A((1)10):B((1)10):CAB:C10130:8:14:A:13:"+"B:13:"--":140Z 18:"WHAT IS THE SUM ? ";AN:216,0:NBNB1:ANC150:21:"NO....THE RIGHT ANSWER IS "C:370:180 RBRB1:C9160:11:14:C;:170 11:13:C; 22:"VERY GOOD !":370 70 X((1)17):Y((1)2):8:X", "X1", ";:Y1200::" ";::", "X3", "X4:210, X2", ";::" ";::", "X46 220 11:"GIVE THE MISSING NUMBER. ";Z:216,0:NCNC1:14:ZX2Y0260 ZX3Y1260:Y1240:"NO....THE RIGHT ANSWER IS "X2:250 "NO....THE RIGHT ANSWER IS "X3 370:270 "VERY GOOD !":RCRC1:370 70g A((1)10):B((1)10):AB10280:CAB:8:A" + "B" = ?":290 "11:D:216,0:NDND1:CD300:14:"NO....THE RIGHT ANSWER IS "C:310 ,8:A" + "B" = "C:RDRD1:14:"VERY GOOD ! 6370:CO25320:70h@:"COUNTING":4:A$;:30:NA:4:B$;:30:RA:"VERTICAL ADDITION TO 10":4:A$;:30:NB:4:B$;:30:RBJ"MISSING NUMBERS TO 20":4:A$;:30:NC:4:B$;:30:RCT"HORIZONTAL ADDITION TO 10":4:A$;:30:ND:4:B$;:30:RD:::%^"TOTAL PROBLEMS";:30:NT:"TOTAL RIGHT";:30:RT:\h"PERCENTAGE RIGHT";:30:(100RTNT)"%":370:60r16368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ı|(4)"RUN MENU"  *****************  * MODIFIED BY * * TOM McCORD *, * EDUCATIONAL *D * MEDIA *\ * SERVICES *t ***************** MATH LEVEL 2,BY RICHARD PITSCHKA<REVISED BYQ(GUY B. PURCELL 2A$"NUMBER OF PROBLEMS":B$"NUMBER RIGHT":::94"****************************************"516:"LEVEL 2":6"****************************************" 7I12500:I:# ;550:CO0::80 <COCO1:RTRARBRCRDRERF:NTNANBNCNDNENF:::PK(16384):16368,0:PK155490:SC((RT10NT))2RTRT F"LEVEL 2 SCORE....."(SC) PZ((1)6):Z090:Z130,190,280,320,360E Z8:"HOW MANY *'S ARE THERE?":X((1)201):NANA1:11:M1X:"*";::100 d11:30:Y:216,0:XY110:14:"NO....THE RIGHT ANSWER IS "X:550:120 n14:"VERY GOOD !":RARA1:550:CO25490 x60 A((1)10):B((1)10):CAB:C10130:8:14:A:13:"+"B:13:"--":140 18:"WHAT IS THE SUM ? ";AN:216,0:NBNB1:ANC150:21:"NO....THE RIGHT ANSWER IS "C:550:180 RBRB1:C9160:11:14:C;:170 11:13:C; 22:"VERY GOOD !":550:CO25490 60B X((1)17):Y((1)2):8:X", "X1", ";:Y1200::" ";::", "X3", "X4:210c X2", ";::" ";::", "X4m 220 11:"GIVE THE MISSING NUMBER. ";Z:216,0:NCNC1:14:ZX2Y0260 ZX3Y1260:Y1240:"NO....THE RIGHT ANSWER IS "X2:250 "NO....THE RIGHT ANSWER IS "X3. 550:270Z "VERY GOOD !":RCRC1:550:CO25490b 60 A((1)10):B((1)10):AB10280:CAB:8:A" + "B" = ?":290 "11:D:216,0:NDND1:CD300:14:"NO....THE RIGHT ANSWER IS "C:550:310<,8:A" + "B" = "C:RDRD1:14:"VERY GOOD !":550:CO25490D660@A((1)6)5:B((1)(A1)):CAB:8:A" - "B" = ?":330J11:D:216,0:NENE1:CD340:14:"NO....THE RIGHT ANSWER IS "C:550:350T8:A" - "B" = "C:RERE1:14:"VERY GOOD !":550:CO25490^60_hA((1)6)5:B((1)(A1)):CAB:8:A10370:14:A:380jr13:A|A10390:13:"-"B:41012:B10400:"- "B:410"-"BA10420:13:"--":43012:"---440R18:"WHAT IS THE DIFFERENCE? ";D:216,0:NFNF1:CD450:21:"NO....THE RIGHT ANSWER IS "C:550:480yRFRF1:C10460:11:14:C;:47011:13:C;22:"VERY GOOD !":550:CO2549060&:"COUNTING":4:A$;:30:NA:4:B$;:30:RA:"VERTICAL ADDITION TO 10":4:A$;:30:NB:4:B$;:30:RBc"MISSING NUMBERS TO 20":4:A$;:30:NC:4:B$;:30:RC"HORIZONTAL ADDITION TO 10":4:A$;:30:ND:4:B$;:30:RD"HORIZONTAL SUBTR. TO 10":4:A$;:30:NE:4:B$;:30:REU"VERTICAL SUBTR. TO 10":4:A$;:30:NF:4:B$;:30:RF::"TOTAL PROBLEMS";:30:NT:"TOTAL RIGHT";:30:RT"PERCENTAGE RIGHT";:30:(100RTNT)"%":550:&16368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ı0(4)"RUN MENU": D*****************$N* MODIFIED BY *;X* TOM McCORD *Rb* EDUCATIONAL *il* MEDIA *v* SERVICES ******************:"LEVEL II":20:29:"R. PITSCHKA":550:CO0::80 MATH LEVEL 3,BY RICHARD PITSCHKA<REVISED BYQ(GUY B. PURCELL ~2A$"NUMBER OF PROBLEMS":B$"NUMBER RIGHT<::CO0:9="***************************************">:16:"LEVEL 3": ?"***************************************" @I12500:I:& E600::90 FCOCO1:RTRARBRCRDRERF:NTNANBNCNDNENF:::PK(16384):16368,0:PK155530:SC((RT10NT))2RTRT P"LEVEL 3 SCORE....."(SC) ZZ((1)6):Z0100:Z1220:Z2280:Z3320:Z4360:400^ dA((1)9)1:B((1)9)1:K10AB:8:A1B1110:A" TENS "B" ONES = ?":140 nA1B1120:B1130:A" TEN "B" ONES = ?":140 xA" TEN "B" ONE = ?":140 A" TENS "B" ONE = ? 150$ 11:C:216,0:NANA1:CK160:14:"NO....THE RIGHT ANSWER IS "K:600:200o 14:"VERY GOOD !":RARA1:8:A1B1170:A" TENS "B" ONES = "K:210 A1B1180:B1190:A" TEN "B" ONES = "K:210 A" TEN "B" ONE = "K:210 A" TENS "B" ONE = "K:600 CO25530 600:70P A((1)10):B((1)10):CAB:C14220:8:14:A:13:"+"B:13:"--":230 18:"WHAT IS THE SUM ? ";AN:216,0:NBNB1:ANC240:21:"NO....THE RIGHT ANSWER IS "C:600:270 RBRB1:C9250:11:14:C;:CO25530:260 11:13:C; 22:"VERY GOOD !":600, CO25530:70o A((1)9)1:B((1)10):C10AB:8:10A" + "B" = ?":290 "11:D:216,0:NCNC1:14:DC300:"NO....THE RIGHT ANSWER IS "C:600:310 ,"VERY GOOD !":8:10A" + "B" = "C:RCRC1:6006CO25530:70P@A((1)10):B((1)10):AB14320:CAB:8:A" + "B" = ?":330J11:D:216,0:NDND1:CD340:14:"NO....THE RIGHT ANSWER IS "C:600:350T8:A" + "B" = "C:RDRD1:14:"VERY GOOD !":600^CO25530:70JhA((1)10)5:B((1)10):CAB:C9C0360:8:A" - "B" = ?":RTRARBRCRDRERF:370r11:D:216,0:NENE1:CD380:14:"NO....THE RIGHT ANSWER IS "C:600:390|8:A" - "B" = "C:RERE1:14:"VERY GOOD !":600CO25530:70/A((1)10)5:B((1)10):CAB:C9C0400:8:A9410:14:A:420:13:AVA9430:13:"-"B:450t12:B10440:"- "B:450~"-"BA9460:13:"--":47012:"---480 18:"WHAT IS THE DIFFERENCE? ";D:216,0:NFNF1:CD490:21:"NO....THE RIGHT ANSWER IS "C:600:520GRFRF1:C10500:11:14:C;:510W11:13:C;s22:"VERY GOOD !":600CO25530:70:"TENS + ONES":4:A$;:30:NA:4:B$;:30:RA"VERTICAL ADDITION TO 14":4:A$;:30:NB:4:B$;:30:RB:"10X + YE&4:A$;:30:NC:4:B$;:30:RC:"HORIZONTAL ADDITION TO 1404:A$;:30:ND:4:B$;:30:RD:"HORIZONTAL SUBTR. TO 14:4:A$;:30:NE:4:B$;:30:RE:"VERTICAL SUBTR. TO 14":4:A$;:30:NFBD4:B$;:30:RF::"TOTAL PROBLEMS";:30:NT:"TOTAL RIGHT";:30:RT:"PERCENTAGE RIGHT";:30:(100RTNT)"%YN600:16368,0:60X16368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ıb(4)"RUN MENU"l v****************** MODIFIED BY * * TOM McCORD *!* EDUCATIONAL *8* MEDIA *O* SERVICES *f***************** MATH LEVEL 4,BY RICHARD PITSCHKA=REVISED BY:R(GUY B. PURCELL 2A$(30),B$(30):A$"NUMBER OF PROBLEMS":B$"NUMBER RIGHT<::CO0:9="****************************************">16:"LEVEL 4": ?"****************************************"' @I12500:I:6 E620::90l FCOCO1:RTRARBRCRDRERF:NTNANBNCNDNENF P::PK(16384):16368,0:PK155550:SC(((RT10)NT))2RTRT:"LEVEL 4 SCORE..........."(SC) ZZ(6(1)):Z0100:Z1210:Z!"#$%&2270:Z3310:Z4370:430a dR(3(1)):16368,0:R1110:R2120:X(90(1)):Y1:130 nX(16(1)):X5X:Y5:130 xX(6(1)):X10X:Y10 R(2(1)):8:R1160:X", "XY", "X2Y", "X3Y", ";::" "::1401 11:"GIVE THE MISSING NUMBER. ";AN:216,0:NANA1:ANX4Y190f 14:"NO....THE RIGHT ANSWER IS "X4Y:620:200 X", "XY", "X2Y", ";::" ";::", "X4Y:170 11:"GIVE THE MISSING NUMBER. ";AN:216,0:NANA1:ANX3Y190 14:"NO....THE RIGHT ANSWER IS "X3Y:620:200> 14:"VERY GOOD !":RARA1:620R CO25550:70 A(10(1)):B(10(1)):CAB:16368,0:C18210:8:14:A:13:"+"B:13:"--":220 18:"WHAT IS THE SUM ? ";AN:216,0:NBNB1:ANC230:21:"NO....THE RIGHT ANSWER IS "C:620:260> RBRB1:C9240:11:14:C;:250N 11:13:C;j 22:"VERY GOOD !":620~ CO25550:70 A(10(1)):B(10(1)):C(10(1)):16368,0:DABC:D18270:8:A" + "B" + "C" = ?":280L11:"WHAT IS THE SUM? ";AN:216,0:NCNC1:AND290:14:"NO....THE RIGHT ANSWER IS "D:620:300"8:A" + "B" + "C" = "D:14:"VERY GOOD !":RCRC1:620,CO25550:706A(9(1))1:B(9(1))1:C(9(1))1:DABC:16368,0:D18310:8:14:A:14:B:13:"+"C:13:"--":320z@18:"WHAT IS THE SUM? ";AN:216,0:NDND1:AND330:21:"NO....THE RIGHT ANSWER IS "D:620:360JD9340:12:14:D;:350T12:13:D^RDRD1:22:"VERY GOOD !":620hCO25550:70(rA(100(1)):B(100(1)):AB370:16368,0:8:A"...."B:ABCA5|ABCB?40011:"WHICH NUMBER IS GREATER? ";AN:216,0:NENE1:ANC410:14:"NO....THE RIGHT ANSWER IS "C:620:42014:"VERY GOOD !":RERE1:620CO25550:70FA(10(1))9:B((A1)(1)):CAB:B9430:16368,0:C10430:8:A9440:14:A:450Q13:AmA9460:13:"-"B:48012:"- "B:480"-"BA9490:13:"--":50012:"---":500*18:"WHAT IS THE DIFFERENCE? ";D:216,0:NFNF1:CD510:21:"NO....THE RIGHT ANSWER IS "C:620:540PRFRF1:C9520:11:14:C;:530`11:13:C;|22:"VERY GOOD !":620CO25550:70&:"COUNTING, 1'S, 5'S, 10'S":4:A$;:30:NA:4:B$;:30:RA0"VERTICAL ADDITION TO 18":4:A$;:30:NB:4:B$;:30:RB:"3 ADDENDS, HORIZONTAL":4:A$;:30:NC:4:B$;:30:RC:"3 ADDENDS, VERTICAL":4:A$;:30:ND:4:B$;:30:RDD"WHICH IS GREATER TO 99":4:A$;:30:NE:4:B$;:30:REN"VERTICAL SUBTRACTION TO 18":4:A$;:30:NF:4:B$;:30:RF:iX"TOTAL PROBLEMS";:30:NT:"TOTAL RIGHT";:30:RT:"PERCENTAGE RIGHT";:30:((100RT)NT)"%b620:16368,0:60l16368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ıv(4)"RUN MENU" ****************** MODIFIED BY *1* TOM McCORD *H* EDUCATIONAL *_* MEDIA *v* SERVICES ****************** MATH LEVEL 5,BY RICHARD PITSCHKA<REVISED BYQ(GUY B. PURCELL 2A$"NUMBER OF PROBLEMS":B$"NUMBER RIGHT"::<9="****************************************">16:"LEVEL 5": ?"****************************************" @I12500:: E460% F:90n PRTRARBRCRDRERF:NTNANBNCNDNENF:SC(((RT10)NT))2RTRT Z"LEVEL 5 SCORE..........."(SC):34,2:SC100260:V70110:V77V78220:V78100 dZ(5(1))1:Z0110:Z220,260,330,37')*+,-0b nA(9(1))1:B(9(1))1:K10AB:16368,0:8:A1B1120:A" TENS "B" ONES = ?":150 xA1B1130:B1140:A" TEN "B" ONES = ?":150 A" TEN "B" ONE = ?":150 A" TENS "B" ONE = ?, 420:NANA1:CK160:12:958:14:"NO....THE RIGHT ANSWER IS "K:460:34,0::V70:210 12:958:14:"VERY GOOD !":SCSC10:RARA1:V7V71:8:A1B1170:A" TENS "B" ONES = "K:200 A1B1180:B1190:A" TEN "B" ONES = "K:200 A" TEN "B" ONE = "K:200 A" TENS "B" ONE = "K 460:34,0: 70 A(7(1))2:B(10(1))10:AN10AB:8:A" TENS "B" ONES = ?":16368,0:420:NBNB1:12:958:CAN240 14:"NO....THE RIGHT ANSWER IS "AN:V70:460:34,0::250 8:A" TENS "B" ONES = "AN:14:"VERY GOOD !":SCSC10:RBRB1:V7V71:460:34,0:( 70 R(4(1)):16368,0:A(9(1))1:R0270:R1280:R2290:8:"10 + ";::" ";::" = "A10:ANA:300 8:"10 + "A" = ";::" "::ANA10:300 8:A" + 10 = ";::" "::ANA10:300"8:A10" - 10 = ";::" "::ANAu,420:12:958:NCNC1:CAN310:14:"NO....THE RIGHT ANSWER IS "AN:V70:460:34,0::320614:"VERY GOOD !":SCSC10:RCRC1:V7V71:460:34,0:@70/JA(9(1))1:B(9(1))1:AN10AB:8:10A" + "B" = ?":34,11:16368,0:420:NDND1:12:958:14:CAN350eT"NO....THE RIGHT ANSWER IS "AN:460:34,0::360^"VERY GOOD !":SCSC10:8:10A" + "B" = "AN:RDRD1h460:34,0::70rA(8(1))1:B(10(1))10:AN10AB:8:10A" + "B" = ?":16368,0_|420:NENE1:12:958:14:CAN390:"NO....THE RIGHT ANSWER IS "AN:460:34,0::V70:400"VERY GOOD !":SCSC10:8:10A" + "B" = "AN:RERE1460:34,0::7034,0::12:"SCORE................"SC:460:70=11:"GIVE THE MISSING NUMBER=>";C$:(C$,1)"Q"410:(C$"0"(C$)0)(C$)1000440:"THAT IS AN INVALID VALUE - PLEASE TRY AGAIN...":34,10:L11000:::420C(C$):460:16368,0:6016368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ı(4)"RUN MENU"" 9*****************P* MODIFIED BY *g* TOM McCORD *~* EDUCATIONAL ** MEDIA ** SERVICES *&***************** MATH LEVEL 6.MATH PRACTICE & DRILLGBY RICHARD PITSCHKAX(REVISED BY:m2GUY B. PURCELL <A$"NUMBER OF PROBLEMS":B$"NUMBER RIGHT":::9="****************************************">16:"LEVEL 6": ?"****************************************"+ @I12500:I:4 E740D FCO0::390~ PCO15640:RTRARBRCRDRERF:NTNANBNCNDNENF Z::PK(16384):16368,0:PK155640:SC(((RT10)NT))2RTRT d"LEVEL 6 SCORE..........."(SC):FG4390:Z.01234567(6(1))A nZ0120:Z1240:Z2280:Z3320:Z4390:520 xR(3(1)):16368,0:R1130:R2140:X(45(1)):X2X:Y2:150 X((1)16):X5X:Y5:150 X((1)6):X10X:Y10 R((1)2):8:R1180:X", "XY", "X2Y", "X3Y", ";A :" "::11:16368,0:"GIVE THE MISSING NUMBER. ";AN$ AN(AN$):NANA1:ANX4Y210:14:"NO....THE RIGHT ANSWER IS "X4Y:740:230 X", "XY", "X2Y", ";::" ";::", "X4Y:11 "GIVE THE MISSING NUMBER. ";AN$:AN(AN$):NANA1:ANX3Y210H 14:"NO....THE RIGHT ANSWER IS "X3Y:740:220g 14:"VERY GOOD !":RARA1p 740 COCO1:80 A((1)7):B((1)10)10:16368,0:C10AB:8:A" TENS "B" ONES = ?":11:"GIVE THE MISSING NUMBER. ";AN$B AN(AN$):NBNB1:ANC260:14:"NO....THE RIGHT ANSWER IS "C:740:270 8:A" TENS "B" ONES = "C:14:"VERY GOOD !":RBRB1:740 COCO1:80 A((1)9)1:B((1)10):C10AB:16368,0:8:10A" + "B" = ?*"11:AN$:D(AN$):NCNC1:14:DC300:"NO....THE RIGHT ANSWER IS "C:740:310_,"VERY GOOD !":8:10A" + "B" = "C:RCRC1:740o6COCO1:80@A((1)9)1:B((1)9)1:C((1)9)1:DABC:D18320:8:14:AJ14:B:13:"+"C:13:"--":18:"WHAT IS THE SUM? ";AN$:AN(AN$)ETNDND1:AND350:21:"NO....THE RIGHT ANSWER IS "D:740:380c^D9360:12:14:D;:370rh12:13:DrRDRD1:22:"VERY GOOD !":740|COCO1:80A((1)7)2:B((1)10)10:16368,0:B11390:4:"REGROUP TO MAKE ANOTHER TEN.":7:A" TENS "B" ONES = ?R((1)3):R0440:R1470:10:5:"A "A1" TENS "B10" ONES":12:5:"B "A" TENS "B10" ONES14:5:"C "A1" TENS "B" ONES17:958:"A,B OR C? ";C$:(C$)0420:J1(C$):(C$,J,1)" "430::420SNENE1:C$(C$,J,1):D$"A":C$D$500:20:"NO....THE RIGHT ANSWER IS A.":FG0:740:51010:5:"A "A1" TENS "B" ONES":12:5:"B "A1" TENS "B10" ONES":14:5:"C "A" TENS "B10" ONES17:"A, B OR C ? ";C$:(C$)0450:J1(C$):(C$,J,1)" "460::450lNENE1:C$(C$,J,1):D$"B":C$D$500:20:"NO....THE RIGHT ANSWER IS B.":FG0:740:51010:5:"A "A1" TENS "B" ONES":12:5:"B "A" TENS "B10" ONES":14:5:"C "A1" TENS "B10" ONES'17:"A, B OR C ? ";C$:(C$)0480:J1(C$):(C$,J,1)" "490::480NENE1:C$(C$,J,1):D$"C":C$D$500:20:"NO....THE RIGHT ANSWER IS C.":FG0:740:51020:"VERY GOOD !":RERE1:FGFG1:740COCO1:80A((1)10)9:B((1)(A1)):B9520:16368,0:CAB:C10520:8:A9530:14:A:540*13:AFA9550:13:"-"B:570Z&12:"- "B:570d0"-"B:A9580:13:"--":590D12:"---N18:"WHAT IS THE DIFFERENCE? ";AN$:D(AN$):NFNF1:CD600:21:"NO....THE RIGHT ANSWER IS "C:740:630&XRFRF1:C9610:11:14:C;:6206b11:13:C;Rl22:"VERY GOOD !":740bvCOCO1:80:"COUNTING, 2'S, 5'S, 10'S":4:A$;:30:NA:4:B$;:30:RA"4 TENS 12 ONES = ?":4:A$;:30:NB:4:B$;:30:RB:"70 + 1 = ?64:A$;:30:NC:4:B$;:30:RC:"3 ADDENDS, VERTICAL":4:A$;:30:NDu4:B$;:30:RD:"REGROUPING, ONE MORE 10":4:A$;:30:NE4:B$;:30:RE:"VERTICAL SUBTRACTION TO 18":4:A$;:30:NF4:B$;:30:RF::"TOTAL PROBLEMS";:30:NT:"TOTAL RIGHT";:30:RTl"PERCENTAGE RIGHT";:30:((100RT)NT)"%":16368,0:Q$:::11:"IF YOU WANT TO QUIT, THEN PRESS THE13:" KEY. IF NOT, PRESS .16368,0:PK(16384):PK141Ĺ16368,0:70PK155750:720'23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ı;(4)"RUN MENU"B Y*****************p * MODIFIED BY ** TOM McCORD * * EDUCATIONAL *** MEDIA *4* SERVICES *>***************** MATH LEVEL 7.MATH PRACTICE & DRILLGBY RICHARD PITSCHKAXREVISED BY:mGUY B. PURCELL #A$"NUMBER OF PROBLEMS":B$"NUMBER RIGHT":::9$"****************************************"%16:"LEVEL 7": &"****************************************"+ 'I12500:I:4 (475: -| 234,0:CO15420::RTRARBRCRDRERF:NTNANBNCNDNENF 7SCRT10:"LEVEL 7 SCORE......"(SC):34,2:FG465 <Z((1)5):Z065:Z150,200,350:240, AA((1)7)3:B8:;<=>?@A((1)10):4:"REGROUP TO MAKE MORE ONES.g F7:A" TENS "B" ONES = ?":R((1)3):R090:R1105 K10:5:"A "A1" TENS "B10" ONES":12:5:"B "A" TENS "B10" ONES P14:5:"C "A1" TENS "B" ONES":130:D$"A":C$D$120:FG0# U20:"NO....THE RIGHT ANSWER IS A.":475:125l Z10:5:"A "A" TENS "B10" ONES":12:5:"B "A1" TENS "B10" ONES _14:5:"C "A1" TENS "B" ONES":130:D$"B":C$D$120 d20:"NO....THE RIGHT ANSWER IS B.":FG0:475:125% i10:5:"A "A1" TENS "B" ONES":12:5:"B "A" TENS "B10" ONESd n14:5:"C "A1" TENS "B10" ONES":130:D$"C":C$D$120 s20:"NO....THE RIGHT ANSWER IS C.":FG0:475:125 x20:"VERY GOOD !":RARA1:FGFG1:475 }COCO1:50$ 17:958:"A,B OR C? ";C$:(C$)0130:J1(C$):(C$,J,1)" "140:- 130H NANA1:C$(C$,J,1):Q 150 R((1)4):34,11:16368,0:11:"GIVE THE MISSING NUMBER. A((1)9)1:R0165:R1170:R2175:8:"10 + "; :" ";::" = "A10:CA:1808:"10 + "A" = ";::" "::CA10:180C8:A" + 10 = ";::" "::CA10:180m8:A10" - 10 = ";::" "::CA:18011:29:AN:12:958:NCNC1:ANC19014:"NO....THE RIGHT ANSWER IS "C:475:19514:"VERY GOOD !":RCRC1:475COCO1:34,0:50NA((1)9)1:B((1)9)1:C((1)9)1:DABC:D18200:8:14:A~14:B:13:"+"C:13:"--":16368,0:34,1818:"WHAT IS THE SUM? ";AN:19:958:NDND1:AND22021:"NO....THE RIGHT ANSWER IS "D:475:235 D9225:12:14:D;:23012:13:D?RDRD1:22:"VERY GOOD !":475OCOCO1:50A((1)7)2:B((1)10)10:16368,0:B112404:"REGROUP TO MAKE ANOTHER TEN.":7:A" TENS "B" ONES = ? R((1)3):R0280:R1310:10:5:"A "A1" TENS "B10" ONESP12:5:"B "A" TENS "B10" ONES":14:5:"C "A1" TENS "B" ONES17:958:"A,B OR C? ";C$:(C$)0260:J1(C$):(C$,J,1)" "270 :260NENE1:C$(C$,J,1):D$"A":C$D$34020:"NO....THE RIGHT ANSWER IS A.":FG0:475:345P10:5:"A "A1" TENS "B" ONES":12:5:"B "A1" TENS "B10" ONESu14:5:"C "A" TENS "B10" ONES"17:"A, B OR C ? ";C$:(C$)0290:J1(C$):(C$,J,1)" "300':290,NENE1:C$(C$,J,1):D$"B":C$D$340,120:"NO....THE RIGHT ANSWER IS B.":FG0:475:345r610:5:"A "A1" TENS "B" ONES":12:5:"B "A" TENS "B10" ONES;14:5:"C "A1" TENS "B10" ONES@17:"A, B OR C ? ";C$:(C$)0320:J1(C$):(C$,J,1)" "330E:320JNENE1:C$(C$,J,1):D$"C":C$D$340PO20:"NO....THE RIGHT ANSWER IS C.":FG0:475:345|T20:"VERY GOOD !":RERE1:FGFG1:475YCOCO1:50^A((1)10)9:B((1)(A1)):CAB:B9350:C10350:8:A9360c14:A:365h13:A mA9370:13:"-"B:380r12:"- "B:380)w"-"BE|A9385:13:"--":390S12:"---16368,0:34,18:18:"WHAT IS THE DIFFERENCE? ";D:19:958:NFNF1CD400:21:"NO....THE RIGHT ANSWER IS "C:475:415RFRF1:C9405:11:14:C;:41011:13:C;+22:"VERY GOOD !":475;COCO1:50|::"REGROUPING, MORE ONES":4:A$;:30:NA:4:B$;:30:RA"COMBINING WITH 10":4:A$;:30:NC:4:B$;:30:RC"3 ADDENDS, VERTICAL":4:A$;:30:ND:4:B$;:30:RD/"REGROUPING, ONE MORE 10":4:A$;:30:NE:4:B$;:30:REq"VERTICAL SUBTRACTION TO 18":4:A$;:30:NF:4:B$;:30:RF"TOTAL PROBLEMS";:30:NT:"TOTAL RIGHT";:30:RT:"PERCENTAGE RIGHT";:30:(100RTNT)"%":16368,0:Q$::11:"IF YOU WANT TO QUIT, THEN PRESS THEF13:" KEY. IF NOT, PRESS .w16368,0:PK(16384):PK141Ĺ16368,0:45PK155480:46516368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ı(4)"RUN MENU" *****************&* MODIFIED BY *=* TOM McCORD *T* EDUCATIONAL *k* MEDIA ** SERVICES ****************** MATH LEVEL 8.ELEMENTARY MATH DRILLJWRITTEN BY R. PITSCHKA[(REVISED BY:p2GUY B. PURCELL <300:NT0:RT0:CO0:::80F::SCSC10:"LEVEL 8 (CARRYING) SCORE...."(SC):34,1 PER0:6:10:"XXXXXXX":M17:10:"X X"::10:"XXXXXXXX Z9:11:"+":10:12:"---":12:14:"^":A((1)9)1:B((1)10) dC10AB:D((1)10):E((1)10):F10DE:8:16368,0:34,19:13:C:9:F9110:14:F:120 n13:F x330 20:"=>";G:NTNT1:V1BE:V19140:GV1150BDEFG:160" GV110150:310:130 9:22:" ":11:22:" ":11:14:G:12:13:"^ ":RTRT1:20:" ":170 310:130 330 20:"=>";H:NTNT1:V2AD:V19200:V29190:V2H220:230 HV210220:230 V28210:HV21220:230) HV29220:230 9:22:" ":11:22:" ":RTRT1:11:13:H:12:12:"^";:" ":20:" ":240 310:180 SMCF:SM99270" 12:12:" ":18:" ":20:958:11:22:"VERY GOOD !":380:ER0260:70/ 340:708 330 20:"=>";I:NTNT1:I1290:310:ER1:20:" ":280 "11:12:I:RTRT1:250 ,:9 -"****************************************" .16:"LEVEL 8": /"****************************************"- 0I12500:I:8 5380: 6M12:9:22:"NOT RIGHT":11:22:"TRY AGAIN":Z1100::9:22:" ":11:22:" ":Z1100:: @9:22:"NOT RIGHT":11:22:"TRY AGAIN":ER1:20:"":20:958:16368,0:2J20:958:18:"WHAT GOES ABOVE ^ ?":16368,0:wT::X20:Y20:M1901:((1)15)1:XM,XMYM:XM,XMYM^YM,YMXM:YM,YMXM::Z11000::M019:0:XM,XMYMhXM,XMYM:YM,YMXM:YM,YMXM::Z1250::rEND ROUTINEW|16368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ık(4)"RUN MENU"r ****************** MODIFIED BY ** TOM McCORD ** EDUCATIONAL ** MEDIA ** SERVICES ****************** MATH LEVEL 9/WRITTEN BY R. PITSCHKA@REVISED BY:U(GUY B. PURCELL `2::93"****************************************"416:"LEVEL 9":5"****************************************"6I12500:I:<250::800 FSCSC10:"LEVEL 9 (BORROWING) SCORE....."(SC) P6:10:"XXXXXXX":M17:10:"X X"::10:"XXXXXXX":9:11:"-":10:12:"---":12:14:"^" ZAB((1)7030):CD((1)(AB10)):Q((1)3):AB(AB10)10CD(CD10)10Q090:8:13:AB:CD1HJKL0110 d13:CD:120$ n14:CD9 x16368,0:34,18 280:"=>";G:NTNT1:EFABCD:E(EF10):FEF(EF10)10:M1150::EF10140:GF150 QQ12:9:22:"NOT RIGHT":11:22:"TRY AGAIN":270:HQ175:::958:ER1:130^ 9:22:" ":11:22:" ":11:14:F:M1200::RTRT1:M1300::12:14:" ":12:13:"^m 270:958 16368,0:280:"=>";G:NTNT1:M1400::GE180:9:22:"NOT RIGHT":11:22:"TRY AGAIN":270:958:ER1:170C 11:13:E:9:22:" ":12:13:" ":11:22:"VERY GOOD !":RTRT1:250:ER0İ200T ER0:::70 ::X20:Y20:M1901:((1)151):XM,XMYM:XM,XMYM YM,YMXM:YM,YMXM::Z11000::M019:0:XM,XMYM XM,XMYM:YM,YMXM:YM,YMXM::Z1250::O ::12:"PRESS TO QUIT, TO CONTINUE 16368,0:PK(16384):PK155260:PK14150:240 16368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ı (4)"RUN MENU" 18:" ":E18:"WHAT GOES ABOVE ^ ?"::L" c,*****************z6* MODIFIED BY *@* TOM McCORD *J* EDUCATIONAL *T* MEDIA *^* SERVICES *h***************** MATH LEVEL 10/ELEMENTARY MATH DRILLKWRITTEN BY R. PITSCHKA\(REVISED BY:n2MARK FROST &<GUY B. PURCELL FA$"NUMBER OF PROBLEMS"PB$"NUMBER RIGHT"Z:d9:"****************************************" e16:"LEVEL 10":6 f"****************************************"I gI12500:I:S n3000^ x:190w RTRARBRCRDRERF NTNANBNCNDNENF COUNT0 ::PK(16384):16368,0:PK1552720 SC((RT10NT))2RTRT SC26002720& "LEVMOPQRSTUVWXEL 10 SCORE.....";(SC)2 CLCL1B CL252720T Z((1)6)1r Z260,750,1140,1410,2390| 2390 18:22:Q$ A((1)10) B((1)10) C((1)10) "D((1)10) ,RN(2(1)) 6RN1BD10260 @AB10AB:CD10CD JAB10ī260% T81 ^13:AB@ hCD9ī380Q r14:CD:390] |13:CDm 9:12:"+" 10:12:"---" SMABCD NANA1 18:"WHAT IS THE SUM? ";Q$ AA(Q$) 19:958 AASMī630 2950 COUNTCOUNT1 COUNT3600 4301 18:22:868? 16368,0K 1:430X AA(Q$)f &19:958v 0AASMī630 :9:22:868 D11:22:868 N X21:"NO....THE RIGHT ANSWER IS ";SM b3000 l740 vRARA1 SM9ī670 11:14:SM 700 SM99ī6904 11:13:SM:700D 11:12:SMU 9:22:868g 11:22:868 11:22:"VERY GOOD !" 3000 130 AB(80(1))20 CD((1)(AB1)) R(3(1)) R1(AB(AB1010))(CD(CD1010))7508:13:AB CD9ī8202*9:14:CD:830A49:13:CDQ>9:12:"-"dH10:12:"---"qRDFABCD}\NBNB1f18:"WHAT IS THE DIFFERENCE? ";Q$pBB(Q$)zBBDFī10402950COUNTCOUNT1COUNT3100018:27:86816368,01:870,BB(Q$)=BBDFī1040N9:22:868`11:22:868f21:"NO....THE RIGHT ANSWER IS ";DF30001120RBRB1DF9ī1080$11:14:DF.1090811:13:DFB9:22:868L11:22:"VERY GOOD !"V3000%`.j130@tA(9(1))1Q~B(10(1))bC(10(1))xABACBC1140R(3(1)):8R01220A;B;C;"....";::" ";::" IS IN THE ONES PLACE."ANC:1270R11250%A;B;C;"....";::" ";::" IS IN THE TENS PLACE."4ANB:1270oA;B;C;"....";::" ";::" IS IN THE HUNDREDS PLACE."xANA11:"=>";Q$Q$""1270 D(Q$)12:958NCNC1(DAN1370214:"VERY GOOD !"<3000FRCRC1P130.Z14:"NO....THE RIGHT ANSWER IS ";AN8d3000An130Gx:WR((1)2)^8gFG0uR01880R(9(1))1R;" + ";R;" = ?"S12RNANA111"WHAT IS THE SUM? ";Q$:AN(Q$)Q$""149012:958AN2R1860FG1$8<R;" + ";R;" = ";S1D"14W,"VERY GOOD !"c6RARA1m@3000sJTRTRARBRCRDRERF^NTNANBNCNDNENFhSC((RT10NT))2RTRTr"LEVEL 10 SCORE.....";(SC)|CLCL1 CL25272010:958,R(9(1))17S12RCNDND1X"2 X ";R;" = ?"`13n16368,0"WHAT IS THE PRODUCT? ";Q$:AN(Q$)Q$""173014:958ANS12350FG1RDRD110"2 X ";R;" = ";S116&"VERY GOOD !"03000(:1302D2310<N1610NXR((1)6)1lbR;" + ";R;" + ";R;" = ?"wlS13RvNANA111"WHAT IS THE SUM? ";Q$:AN(Q$)Q$""193012:958ANS12290FG18R;" + ";R;" + ";R;" = ";S116-"VERY GOOD !"9RARA1C3000IbRTRARBRCRDRERF{ NTNANBNCNDNENFSC((RT10NT))2RTRT "LEVEL 10 SCORE.....";(SC)*CLCL14CL252720>10:958HR((1)6)1 RS13R"\"3 X ";R;" = ?"*f138p16368,0dz"WHAT IS THE PRODUCT? ";Q$:AN(Q$)tQ$""2150NDND114ANS12350FG1RDRD110"3 X ";R;" = ";S116"VERY GOOD !"30001302310 130 148 "NO....THE RIGHT ANSWER IS ";S1B 3000H$ P. 16u8 "NO....THE RIGHT ANSWER IS ";S1B 3000L 130V X((1)900)100` H((1)2)j 8t H0ī2570~ Y03 XY;", ";  :" ": 11' "WHAT NUMBER IS MISSING? ";Q$:O(Q$)7 Q$""2470C NENE1Q 12:958b OX4ī2680j 14 "NO.....THE RIGHT ANSWER IS ";X4 3000 2710 X;", ";X1;", ";X2;", "; :" ";: ", ";X4( 112 "WHAT NUMBER IS MISSING? ";Q$:O(Q$)&< Q$""26002F NENE1@P 12:958QZ OX3ī2680|d 14:"NO.....THE RIGHT ANSWER IS ";X3n 3000:2710x 14:"VERY GOOD !" RERE1 3000 130  "ADDITION, TRAD. FORM" 4:A$;:30:NA  4:B$;:30:RA+ "SUBTRACTION, TRAD. FORM"? 4:A$;:30:NBS 4:B$;:30:RBp "PLACE VALUE, TO 100'S" 4:A$;:30:NC 4:B$;:30:RC "MULTIPLICATION" 4:A$;:30:ND 4:B$;:30:RD" "COUNTING TO 999", 4:A$;:30:NE6 4:B$;:30:RE@ :J "TOTAL PROBLEMS";:30:NTVT "TOTAL RIGHT";:30:RT\^ h "PERCENTAGE RIGHT";:30:(100RTNT);"%"r 3000| ::190 9:22:"NOT RIGHT" 11:22:"TRY AGAIN"  COUNT0 3000:2710F 16368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ıZ (4)"RUN MENU"q ***************** * MODIFIED BY * * TOM McCORD * * EDUCATIONAL * * MEDIA * * SERVICES * ***************** MATH LEVEL 115ELEMENTARY MATH DRILLQWRITTEN BY R. PITSCHKAb(REVISED BY:t2MARK FROST &<GUY B. PURCELL F9:"****************************************":16:"LEVEL 11":K"****************************************" MD12500: NA(30)I P:12:"WHAT IS YOUR NAME? ";N$:N$""80: ZX130:A(X)0::N0:"LEVEL 11":"PROBLEM # "N1 d8:14:4:12:"+ "3:12:"---":A6:B7:C8:D9:R$"B":P1:300 n8:13:14:12:"+ "3:12:"---":A11:B16:C17:D18:R$"CY[\]^_":P2:300T x8:13:12:12:"+ "6:12:"---":A4:B10:C14:D18:R$"D":P3:300 8:14:6:12:"+ "9:12:"---":A15:B16:C19:D20:R$"A":P4:300 8:14:6:12:"+ "3:12:"---":A8:B9:C10:D12:R$"B":P5:300- 8:14:46:12:"+ "10:12:"----":A36:B56:C66:D86:R$"B":P6:300w 8:14:23:12:"+ "65:12:"----":A8:B78:C88:D90:R$"C":P7:300 10:8:"6 + 3 = ?":A3:B7:C8:D9:R$"D":P8:300 10:8:PR"7 + 8 = ?":A15:B16:C18:D19:R$"A":P9:300) 10:6:" + 2 + 4 = ?":A3:B7:C8:D9:R$"B":P10:300t 8:14:9" ":12:"- "5" ":12:"---":A4:B5:C8:D9:R$"A":P11:300 8:14:6:12:"- "4:12:"---":A0:B2:CD6:R$"B":P12:300 8:14:55:12:"- "1:12:"----":A54:B55:C56:D65:R$"A":P13:300O 8:14:35:12:"- "21:12:"----":A10:B12:C14:D16:R$"C":P14:300 8:14:38:12:"- "2:12:"----":A30:B32:C34:D36:R$"D":P15:300 8:14:41:12:"- "30:12:"----":A5:B10:C11:D71:R$"C":P16:30028:14:29:12:"- "5:12:"----":A22:B24:C26:D28:R$"B":P17:300|8:14:23:12:"- "23:12:"----":A0:B1:C23:D46:R$"A":P18:30010:8:"19 - 0 = ?":A0:B18:C19:D22:R$"C":P19:300"10:8:"9 - 4 = ?":A1:B3:C4:D5:R$"D":P20:300:380i,6:26:"(A) "A" ":8:26:"(B) "B" ":10:26:"(C) "C" ":12:26:"(D) "D" ":23:11:""620:12:"A, B, C OR D? ";A$:A$""310@A$"A"A$"B"A$"C"A$"D"A$"Q"310:A$"Q"380:F0NN1JA$R$F0A(N)1aTA$R$200:18:12:958:A$" IS CORRECT"::13:"VERY GOOD !":450::"LEVEL 11":"PROBLEM #"N1:F0:^18:15:958:A$" IS INCORRECT"::10:"THE CORRECT ANSWER WAS "R$:450h:"LEVEL 11":"PROBLEM # "N1::F1:NN1:PP1:rP100,110,120,130,140,150,160,170,180,190,200,210,220,230,240,250,260,270,280,290w|::"LEVEL 11 (CAT 11)"::"STUDENT: "N$::N20N20"PROBLEMS #1-10"::X1N:X11ĺ:"PROBLEMS #11-20" A(X)" ";:::::8:"0= PROBLEM WAS INCORRECT"::8:"1= PROBLEM WAS CORRECT":20J"TO START AGAIN, PRESS "::"TO QUIT, PRESS s16368,0:PK(16384):PK141ė:90PK15546042016368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$:::Z$(27)ı(4)"RUN MENU *****************&* MODIFIED BY *=* TOM McCORD *T* EDUCATIONAL *k* MEDIA ** SERVICES ****************** MATH LEVEL 12/ELEMENTARY MATH DRILLKWRITTEN BY R. PITSCHKA\(REVISED BY:n2MARK FROST &<GUY B. PURCELL FA1$"NUMBER OF PROBLEMS":B1$"NUMBER RIGHT":::9:X140:"*";:::16)"MATH LEVEL 12"::X140:"*";: HD12500: P::100` ZRTRARBRCRDRERF:CO0:NTNANBNCNDNENF:::SC((RT10NT))2RTRT d"LEVEL 12 SCORE....."(SC):16368,0:CLCL1:CL25580:Z((1)6)1:Z110,230,330,410,460,530 nA((1)10):B((1)10):C((1)10):D`bcdefgh((1)10)n xRN(2(1)):RN1BD10110:AB10AB:CD10CD:AB10110:8:13:AB:CD9130:14:CD:140z 13:CD 9:12:"+":10:12:"---":SMABCD:NANA1 18:"WHAT IS THE SUM? ";Q$:AA(Q$):19:958:AASM1704 9:22:"NOT RIGHT":11:22:"TRY AGAIN":COCO1:CO3180:1:150s AA(Q$):19:958:AASM190:9:22:868:11:22:868: 21:"NO....THE RIGHT ANSWER IS "SM:680:90 SM9200:11:14:SM:220 SM99210:11:13:SM:220 11:12:SM: 9:22:868:11:22:868:11:22:"VERY GOOD !":RARA1:680:90 AB(80(1))20:CD((1)(AB1)):R(3(1)):R1(AB(AB1010))(CD(CD1010))230:8:13:AB CD9250:9:14:CD:260 9:13:CD 9:12:"-":10:12:"---":DFABCD:NBNB1G 18:"WHAT IS THE DIFFERENCE? ";Q$:BB(Q$):BBDF300:COCO1 CO3290:9:22:"NOT RIGHT":11:22:"TRY AGAIN":1:270 "9:22:868:11:22:868::21:"NO....THE RIGHT ANSWER IS "DF:680:90 ,DF9310:11:14:DF:320611:13:DF<@9:22:868:11:22:"VERY GOOD !":RBRB1:680:90JA((1)5050):B((1)5050):AB330:8:A" ";::" ";::" "B:NCNC1T::"USE < OR >. ";Q$:Q$""Ģ9:340^390:AB360:B$">":370hB$"<"rQ$B$380:14:"NO....THE RIGHT ANSWER IS "B$:680:90T|14:"VERY GOOD !":RCRC1:8:A" "Q$" "B:680:90M1(Q$):(Q$,M,1)" "400::9:340Q$(Q$,M,1):A((1)10):B((1)10):CAB:NDND1:AC((1)2):AC0430:8:A" + ";::" ";::" = "Ch11:"WHAT NUMBER IS MISSING? ";Q$:G(Q$):Q$""420:GB450:14:"NO....THE RIGHT ANSWER IS "B:680:908::" ";::" + "B" = "C11:"WHAT NUMBER IS MISSING? ";Q$:G(Q$):Q$""440:AG450:14:"NO....THE RIGHT ANSWER IS "A:680:9048:A" + "B" = "C:14:"VERY GOOD !":RDRD1:680:90A((1)2010):C(A2):BA2C:NENE1:B1470:7:M1C:"*";:::8:M1(C((0)21)):"*";:::4807:M1C:"*";:::8:M1C:"*";::"*11:"ODD OR EVEN (O OR E)? ";A$:A$""480:B0B$"EVEN&B1B$"ODD^(A$,1)(B$,1)510:14:"NO....IT IS "B$:680:9014:"VERY GOOD !":RERE1:680:9090A(10(1)):B(10(1)):C(10(1)):DABC:D18530:NFNF1:8:A" + "B" + "C" = ?W11:"WHAT IS THE SUM? ";Q$:AN(Q$):Q$""540:AND560:14:"NO....THE RIGHT ANSWER IS "D:680:90_&9008:A" + "B" + "C" = "D:14:"VERY GOOD !":RFRF1:680:90:90D:"ADDITION, TRAD. FORM":4:A1$;:30:NA:4:B1$;:30:RA1N"SUBTRACTION, TRAD. FORM":4:A1$;:30:NB:4:B1$;:30:RB:"< OR >zX4:A1$;:30:NC:4:B1$;:30:RC:"MISSING ADDEND":4:A1$;:30:NDb4:B1$;:30:RD:"ODD OR EVEN":4:A1$;:30:NE:4:B1$;:30:RE5l"3 HORIZONTAL ADDENDS":4:A1$;:30:NF:4:B1$;:30:RF::"TOTAL PROBLEMS";:30:NT:"TOTAL RIGHT";:30:RT:mv"PERCENTAGE RIGHT";:30:(100RTNT)"%":16368,0PK(16384):PK127640:::11:"IF YOU WANT TO QUIT, THEN PRESS THE13:" KEY. IF NOT, PUSH .":16368,0PK(16384):PK141Ĺ16368,0:::1002PK155690:66016368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ı(4)"RUN MENU" ****************** MODIFIED BY ** TOM McCORD ** EDUCATIONAL ** MEDIA *(* SERVICES *?***************** MATH LEVEL 13/ELEMENTARY MATH DRILLKWRITTEN BY R. PITSCHKA\(REVISED BY:n2MARK FROST &<GUY B. PURCELL FE$"NUMBER OF PROBLEMS":F$"NUMBER RIGHT":::9:X140:"*";:::16)"MATH LEVEL 13"::X140:"*";: PD12500::: U100v ZRTRARBRFRGRH:NTNANBNFNGNH:::PK(16384):16368,0:PK155640:SC((RT10NT))2RTRT dCOCO1:CO25640:"LEVEL 13 SCORE....."(SC):Z((1)5):Z210,110,520,300,460 nR((1)3):16368,0:R120,130:Xiklmnopqr((1)45):X2X:Y2:140< xX((1)16):X5X:Y5:140X X((1)6):X10X:Y10 R((1)2):8:R1170:X", "XY", "X2Y", "X3Y", ";::" ": 11:"GIVE THE MISSING NUMBER. ";AN$:AN$""150:AN(AN$):12:9584 NANA1:ANX4Y200:14:"NO....THE RIGHT ANSWER IS "X4Y:720:90e X", "XY", "X2Y", ";::" ";::", "X4Y 11:"GIVE THE MISSING NUMBER. ";AN$:AN$""180:AN(AN$):12:958 NANA1:ANX3Y200:14:"NO....THE RIGHT ANSWER IS "X3Y:720:90# 14:"VERY GOOD !":RARA1:720:90 A((1)800)10:BA((A10)10):(A100)1A(A10)101(A10)((A10)10)101210:16368,0 A99260:C(A10):8:C" TENS "B" ONES 11:"WHAT IS THE NUMBER? ";G$:G$""230:G(G$):12:958:AG250? 14:"NO....THE RIGHT ANSWER IS "A:720:NHNH1:90o RHRH1:14:"VERY GOOD !":NHNH1:720:90 E(A10):CE(E10)10:D(A100):8:D" HUNDREDS "C" TENS "B" ONES":11:95811:"WHAT IS THE NUMBER? ";G$:G$""270:G(G$):12:958:AG290I14:"NO....THE RIGHT ANSWER IS "A:720:NHNH1:90y"RHRH1:14:"VERY GOOD !":720:NHNH1:90,A((1)980)20:B((1)980)20:ABAB:A100B100300:16368,0:A99310:8:14:A:32068:13:A @9:B99330:12:"+ "B:340J12:"+"B1TA100B100350:360S^9:12:" +"B:13:"---":370bh12:"----r18:"WHAT IS THE SUM? ";G$:G$""370:G(G$):19:958:GAB420:9:22:"NOT RIGHT"::22:"TRY AGAIN"|18:"18:"WHAT IS THE SUM? ";G$:G$""390:G(G$):19:9589:22:" ":11:22:" ":GAB410:20:"NO....THE RIGHT ANSWER IS "AB:720:NBNB1:909:22:"11:22:"VERY GOOD !":RBRB1:AB999430:AB100440:11:13:AB:45011:12:AB:450 11:14:AB 720:NBNB1:90A((1)9)1:B((1)9)1:C((1)9)1:ABABC:AB16460:7:13:A:13:B:12:"+"C:12:"--":16368,014:"WHAT IS THE SUM? ";G$:G$""470:G(G$):15:958:GAB49017:"NO....THE RIGHT ANSWER IS "AB:720:NFNF1:90oRFRF1:11:22:"VERY GOOD ! ":AB9500:11:13:AB:51011:12:AB720:NFNF1:90A((1)9)1:B((1)9)1:C((1)9)1:AC100A10BC*D((1)AC)20:DAC530:16368,0:ABACD:8:13:AC:9:12:D100540:"-"D:5505"- "DD&12:"----018:"WHAT IS THE DIFFERENCE? ";G$:G$""560:G(G$):19:958:GAB600:9:22:"NOT RIGHT":11:22:"TRY AGAIN":18:"D18:"WHAT IS THE DIFFERENCE? ";G$:G$""580:G(G$):19:958~N9:22:" ":11:22:" ":GAB600:20:"NO....THE RIGHT ANSWER IS "AB:720:NGNG1:90X11:22:"VERY GOOD !":RGRG1:11:AB99610:AB9620:15:AB:630b13:AB:630l14:ABvNGNG1:720:909::"ADDITION, TRAD. FORM":4:E$;:30:NB:4:F$;:30:RBx"SUBTRACTION, TRAD. FORM":4:E$;:30:NG:4:F$;:30:RG"ADDING 3 NOS., VERT.":4:E$;:30:NF:4:F$;:30:RF:"ONES, TENS, HUNDREDS":4:E$;:30:NH:4:F$;:30:RHb"COUNTING BY 2S,5S,10S":4:E$;:30:NA:4:F$;:30:RA:::"TOTAL PROBLEMS";:30:NT:"TOTAL RIGHT";:30:RT:"PERCENTAGE RIGHT";:30:(100RTNT)"%":720:::11:"IF YOU WANT TO QUIT, THEN PRESS THE13:" KEY. IF NOT, PUSH .#16368,0:PK(16384):PK141Ĺ16368,0::708PK155730:70016368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ı(4)"RUN MENU" ****************** MODIFIED BY ** TOM McCORD * * EDUCATIONAL ** MEDIA *. * SERVICES *E****************** MATH LEVEL 14/ELEMENTARY MATH DRILLKWRITTEN BY R. PITSCHKA\(REVISED BY:n2MARK FROST &<GUY B. PURCELL FN0:::9:X140:"*";:::16)"MATH LEVEL 14"::X140:"*";:KD12500: P:12:"WHAT IS YOUR NAME? ";N$:N$""80' ZA(25):X125:A(X)0::w d8:15:54:9:14:"+"31:10:14:"---":A33:B85:C75:D83:R$"B":P1:350 n8:15:65:9:14:"+ "6:10:14:"---":A61:B70:C71:D73:R$"C":P2:350 x8:14:138:13:"+"261:13:"----":A400:B399:C499:suvwxyzD395:R$"B":P3:350c 8:15:25:14:"+"75:14:"---":A100:B90:C110:D105:R$"A":P4:350 6:15:30:15:24:15:12:14:"+"32:14:"---":A98:B108:C88:D90:R$"A":P5:350 10:10:"9 + 5 =":A13:B15:C4:D14:R$"D":P6:3503 10:8:"3 + 4 + 2 =":A8:B11:C10:D9:R$"D":P7:350q 10:8:"7 + 4 + 6 =":A16:B15:C17:D14:R$"C":P8:350 10:5:"8 + 3 + 4 + 6 =":A20:B15:C22:D21:R$"D":P9:350 10:8:"64 + 8 + 4 =":A74:B76:C80:D81:R$"B":P10:350B 8:14:400:13:"-"200:13:"----":A200:B100:C600:D2:R$"A":P11:350 8:15:37:14:"-"22:14:"---":A14:B15:C59:D51:R$"B":P12:350 8:14:158:14:"-"23:14:"---":A35:B135:C125:D25:R$"B":P13:350& 8:14:340:14:"-"30:14:"---":A310:B370:C70:D10:R$"A":P14:350o 8:15:47:14:"-"44:14:"---":A30:B11:C81:D3:R$"D":P15:350 8:14:347:13:"-"147:13:"----":A2:B20:C200:D300:R$"C":P16:3508:15:17:14:"- "8:14:"---":A9:B25:C17:D11:R$"A":P17:350A10:8:"33 - 3 =":A36:B27:C9:D30:R$"D":P18:350{10:8:"34 - 7 =":A41:B0:C27:D7:R$"C":P19:350"10:7:"45 - 13 =":A30:B13:C32:D2:R$"C":P20:350,8:14:4:13:"X"2:13:"--":A6:B8:C2:D12:R$"B":P21:350?68:14:4:13:"X"3:13:"--":A4:B12:C7:D3:R$"B":P22:350@8:14:4:13:"X"5:13:"--":A17:B9:C15:D20:R$"D":P23:350J8:14:6:13:"X"3:13:"--":A18:B9:C3:D15:R$"A":P24:350T8:14:7:13:"X"4:13:"--":A3:B11:C28:D26:R$"C":P25:350:430]^1:"LEVEL 14":"PROBLEM "Z1:ZZ1:6:26:"(A) "A:8:26:"(B) "Bh10:26:"(C) "C:12:26:"(D) "D:958:23:11:"":16368,0r20:4:"A, B, C OR D? ";A$:A$""370:J1(A$):(A$,J,1)" "380::370`|A$(A$,J,1):A$"A"A$"B"A$"C"A$"D"A$"Q"370:A$"Q"430:NN1:A$R$A(N)1A$R$400:18:12:958:A$" IS CORRECT"::13:"VERY GOOD !":500::18:15:958:A$" IS INCORRECT"::10:"THE CORRECT ANSWER WAS "R$:::8:"<PK(16384):PK127420:410::PP1:P100,110,120,130,140,150,160,170,180,190,200,210,220,230,240,250,260,270,280,290,300,310,320,330,340:"LEVEL 14 (CAT 13)"::"STUDENT: "N$:::N30N30%"PROBLEMS #1-10":X1N:X11ĺ:"PROBLEMS #11-20CX21ĺ:"PROBLEMS #21-25A(X)" ";:::::8:"0= PROBLEM WAS INCORRECT"::8:"1= PROBLEM WAS CORRECT":20"TO START AGAIN, PRESS "::"TO QUIT, PRESS ":16368,0PK(16384):PK141ė::90PK155510:480n16368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ı(4)"RUN MENU" ****************** MODIFIED BY *&* TOM McCORD *0* EDUCATIONAL *:* MEDIA *D* SERVICES **N***************** MATH LEVEL 15/ELEMENTARY MATH DRILLKWRITTEN BY R. PITSCHKA\(REVISED BY:n2MARK FROST &<GUY B. PURCELL FE$"NUMBER OF PROBLEMS"PF$"NUMBER RIGHT"Z:d9:X140:"*";:::16):"MATH LEVEL 15"::X140:"*";: nD12500: x }2370, ::200B RTRHRBRERIRCX NTNHNBNENINCj COUNTCOUNT1} COUNT251980 ::PK(16384):16368,0:PK1551980 SC((RT10NT))2RTRT "LEVEL 15 SCORE......";(SC) Z((1{}~)5)1$ Z970,1540,740,480,230D A((1)100):B((1)100)Q AB230` 8:A;" ";n :" ";:y " ";B 16368,0 "958:11:"USE < OR >. ";A$ ,A$""290 6A$">"A$"<"290 @P1(A$) J(A$,P,1)" "360 T ^290 hA$(A$,P,1)' rAB4002 |B$">"; 410F B$"<"U A$B$440~ 14:"NO....THE RIGHT ANSWER IS ";B$ 2190:NBNB1:140 8:A;" ";A$;" ";B 14:"VERY GOOD !":RBRB1 2190 NBNB1:140 A((1)9)1 B((1)10) C((1)10)/ ABACBC480B R((1)3):8P R0560 A;B;C;"....";::" ";::" IS IN THE ONES PLACE." &ANC:610 0R1590 :A;B;C;"....";::" ";::" IS IN THE TENS PLACE." DANB:610" NA;B;C;"....";::" ";::" IS IN THE HUNDREDS PLACE."+ XANA9 b16368,0P l958:11:"=>";D$_ vD$""620k D(D$) 12:958:NCNC1 DAN710 14:"VERY GOOD !" 2190 RCRC1 140 14:"NO....THE RIGHT ANSWER IS ";AN 2190140A((1)970)30,B((1)970)306CABO8:A;" + ";B;" = ?"] 16368,0958:11:"WHAT IS THE SUM? ";G$ G$""790*G(G$)412:958>GC920H16:"NOT RIGHT....TRY AGAIN." R958:11:"WHAT IS THE SUM? ";G$\G$""850%fG(G$)3p12:958@zGC920t14:"NO....THE RIGHT ANSWER IS ";C;" "2190:NENE1:14014:"VERY GOOD ! ":RERE18:A;" + ";B;" = ";C2190NENE1140A((1)9)1#D((1)9)14B((1)10)EC((1)10)VE((1)10)gF((1)10)AC100A10BC:DF100D10EF:AFACDF8:12:"$";A;".";B;C12:"+";D;".";E;F$12:"-----".958:18:"WHAT IS THE SUM? $";A$8A$""1070 BP1(A$)9L(A$,P,1)" "1130?VI`1070bjA$(A$,P,(A$)P1)ltB$""}~H(AF1000)I(AF100)((AF100)10)10J(AF10)((AF10)10)10KAF(AF10)10AF9991260LI:1520B$B$C$".":LJ:1520'B$B$C$:LK:15204B$B$C$DA$B$1450N1320\LH:1520sB$B$C$:LI:1520B$B$C$".":LJ:1520 B$B$C$:LK:1520B$B$C$A$B$1450(9:22:"NOT RIGHT":11:22:"TRY AGAIN""218:" "M<958:18:"WHAT IS THE SUM? $";A$]FA$""1340lPP1(A$)Z(A$,P,1)" "1400dn1340xA$(A$,P,(A$)P1)A$B$145020:"NO....THE RIGHT ANSWER IS $";B$9:22:" ":11:22:" ".2190:NHNH1:140^9:22:" ":11:22:" "y11:22:"VERY GOOD !"RHRH1:AF999ī149011:12:"$"B$:150011:11:"$"B$2190:NHNH1140C$(L)A((1)6)4B((1)9)1"C((1)9)16"AC100A10BCU,D((1)AC)20:DAC1580n6EHACD:EH1001580@8:12:"$";A;".";B;CJI(D100):J(D10)((D10)10)10:KD(D10)10T12:"-";I;".";J;K^12:"-----"h958:18:"WHAT IS THE DIFFERENCE? $";A$+rA$""1640:|P1(A$)S(A$,P,1)" "1700Yc1640|A$(A$,P,(A$)P1)B$""F(EH100)G(EH10)((EH10)10)10HEH(EH10)10LF:1520B$B$C$".":LG:1520 B$B$C$:LH:1520B$B$C$)A$B$1930V9:22:"NOT RIGHT":11:22:"TRY AGAIN"18:" "958:18:"WHAT IS THE DIFFERENCE? $";A$&A$""18200P1(A$):(A$,P,1)" "1880DN1820XA$(A$,P,(A$)P1),bA$B$1930Vl20:"NO....THE RIGHT ANSWER IS $";B$v9:22:" ":11:22:" "2190:NINI1:1409:22:" ":11:22:" "11:22:"VERY GOOD !"RIRI1:11:12:"$"B$2190:NINI1140$:9"USING < AND >"M4:E$;:30:NBa4:F$;:30:RBt"PLACE VALUE"4:E$;:30:NC4:F$;:30:RC"708+123= ?" 4:E$;:30:NE4:F$;:30:RE "ADDING MONEY"*4:E$;:30:NH44:F$;:30:RH+>"SUBTRACTING MONEY"?H4:E$;:30:NISR4:F$;:30:RI[\:zf"TOTAL PROBLEMS";:30:NTp"TOTAL RIGHT";:30:RTz"PERCENTAGE RIGHT";:30:(100RTNT);"%":2190:13016368,023:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT"(PK(16384):PK1272210KPK1552250Qg:(4)"RUN MENU"n ****************** MODIFIED BY ** TOM McCORD ** EDUCATIONAL * * MEDIA * * SERVICES * *****************`B 16368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ıtL (4)"RUN MENU" MATH LEVEL 16/ELEMENTARY MATH DRILLKWRITTEN BY R. PITSCHKA\(REVISED BY:n2MARK FROST &<GUY B. PURCELL F:::16302,0:0:Z047:0,39Z::500P...0ZV,V5H:V,V5H2:H1,V:H1,V5:d...1 nV,V5H1:H,V5:H2,V5:H,V: x...2_ H,H2V:H,H2V3:H,H2V5:H,V1:H,V4:V1,V2H2:i ...3 H,H2V:H,H2V5:V,V5H2:H1,V2: ...4 V,V3H:V,V5H2:H1,V3: ...5 H,H2V:H,H2V2:H,H2V5:H,V1:V3,V4ŇH2: ...6J V,V5H:V2,V5H2:H1,H2V:H1,V2:H1,V5:T ...7n H,H2V:V,V5H2:x ...8 V,V5H:V,V5H2:H1,V:H1,V2:H1,V5: ...9 V,V5H2:V,V2H:H1,V:H1,V2: ...? "H,H2V:H1,H2V2:H2,V1:H1,V3:H1,V5:* ,...=F 6H,H2V1:H,H2V4:P @...+y JV,V5H1:V2,V3H:V2,V3H2: T...- ^H,H2V3:H,H2V2: h.../ rH,H2V3:H,H2V2:H1,V:H1,V5: |...X V,V1H:V4,V5H:V2,V3H1:V,V1H2:V4,V5H2:4 ...PRINT NUMBERSj LZ1:L80,100,120,140,160,180,200,220,240,260: ...CALCULATE NEW SCORE NTNANBNCNDNENF:RTRARBRCRDRERF:SC((10RTNT)2)RTRT+ V4247:0:25,39V::8:V42:SC(SC):SC999450:SC99470:SC9480:H37:ZSC:410:q ZSC((SC10)10):H37:410:Z((SC(SC100)100)10):H33:410 Z((SC(SC1000)1000)100):H29:410:Z(SC1000):H25:410:ZSC(SC10)10:H37:410:Z((SC(SC100)100)10):H33:410:Z(SC100):H29:410:HZSC(SC10)10:H37:410:Z(SC10):H33:410:R((1)5)1:0:V041:0,39V::COCO1:CO151490:R610,710,840,960,1040...TITLE PAGE GR8:8,176:7,1017:8,1712:13,158:13,1412:13,1617:8,1318:8,1322:14,1519:14,1521:16,1720\8,1724:25,278:25,2612:25,2817:8,1730:31,341713,2622:13,2623:13,2638:13,2639:24,3713:24,3726:14:V2437:14,25V::8:...LEVEL NUMBER&26,3516:26,2715:34,3515:34,3517:19,2326:19,2327:28,3519:20,2231:20,2230l&30,3523:19,2234:19,2235:M11500::0:V047:0,39V::500,242:43,440:1,244:45,472:0,147:42,474:5,642:5,647:42,478:9,42:9,47:42,4710D:42,4712:13,42:13,45:43,4414:46,4714:42,4716:17,1842:17,44:17,1847:V42:H20:300:H37:80:490RD...YES !N22,2423:24,2724:22,2425:22,2727:28,2922:28,24:28,2927X31,3322:31,3324:31,3327:31,23:25,2633:22,2535:35,27:bA((1)7)3:B((1)10):ABAB:AB36610:AB10610lCO((1)15)1:CO:ZA:V14:H3:410:Z(AB10):H9:410:ZAB(AB10)10:H13:410:12,197:8,1712:13,1510v16368,0PK(16384):PK176PK185640:ZPK176:V3:H13:410:0:13,1510:CO:17,1910-M1100::PK(16384):PK141670:PK136660:650c0:17,1910:V38:13,15V::CO:13,1510:630NANA1:ZB680:MI3:A1A:B1B:C1AB:T21:1470:420:0:V38:13,15V::17,1910:620CO:RARA1:22,2423:24,2724:22,2425:22,2727:28,2922:28,24:28,2927v31,3322:31,3324:31,3327:31,23:25,2633:22,2535:35,27:420:M12000::MIMI1:490AA1:BB1:ABC1:620A((1)7)3:B((1)8)2:ABAB:AB36AB10710CO((1)15)1:CO:ZB:V6:H10:410:V13:H5:390:ZA:H10:410:4,1320:6,829,16368,0PK(16384):PK48PK57730:ZPK48:CZ:V22:H6:410:0:6,829:CO:10,1229PK(16384):PK136760:7700:V2227:6,8V::10,1229:CO:6,829:740%PK176PK185750:ZPK176:DZ:V22:H10:410:0:10,1229:CO:14,1629G PK(16384):PK136790:8000:V2227:10,12V::14,1629:CO:10,1229:16368,0:750 PK141810:780*NBNB1:AB10CD820:1470:MI3:T22:A1A:B1B:C1AB:720 4580:RBRB1:420:MIMI1:M12000::490&>AA1:BB1:ABC1:720^HA((1)7)3:B((1)8)2:ABAB:AB36AB10840RCO((1)15)1:CO:ZA:V8:H4:410:H8:380:ZB:H12:410:H16:300:20,2215\16368,0:PK(16384):PK48PK57860:ZPK48:CZ:H20:410:0:20,2215:CO:24,26151fPK(16384):PK136880:890jp0:V1813:20,22V1::24,2615:CO:20,2215:860zPK176PK185870:ZPK176:DZ:H24:410:0:24,2615:CO:28,3015PK(16384):PK136910:9200:V1813:24,26V1::28,3015:CO:24,2615:16368,0:870-PK141930:900rNCNC1:AB10CD940:1470:MI3:T23:A1A:B1B:C1AB:420:850580:RCRC1:420:MIMI1:M12000::490AA1:BB1:ABC1:850A((1)7)3:B((1)8)2:ABAB:AB36AB10960hCO((1)15)1:CO:V8:Z(AB10):H4:410:ZAB(AB10)10:H8:410:H12:360:ZB:H16:410:H20:300:24,2615PK(16384):PK176PK185980:ZPK176:H24:410:0:24,2615:CO:28,3015PK(16384):PK1411010:PK1361000:990#0:28,3015:V1813:24,26V1::CO:24,2615:980NDND1:AZ1020:MI3:A1A:B1B:C1AB:T24:1470:420:0:V1813:24,26V1::28,3015:970RDRD1:580:420:M12000::MIMI1:490AA1:BB1:ABC1:970Q4(1):Q4.51280:W1:A((1)900)100:B((1)250)29:CABMCO((1)15)1:CO:V8:H8:Z(A100):410:Z8(A10)$H12:ZZ8(Z810)10:410:H16:ZA(A10)10:410:B1001070:V16:H8:Z(B100):410.V16:H12:Z((B(B100)100)10):410:H16:ZB(B10)10:410:H4:320:3,1923:16,1832:D0:E0:F0:G0:81230:PK176PK185İ1230uBZPK176:DZ:V25:H16:410:0:16,1832:CO:12,1432L1230:PK1491110:1130V0:V12530:16,18V1::12,1432:CO:16,1832:1080`EXTRA LINEjPK1411260:ZPK176:EZ:H12:410:0:12,1432:CO:8,1032<t1230:PK1491150:1160v~0:V12530:12,14V1::8,1032:CO:12,1432:1100PK1411260:ZPK176:FZ:H8:410:0:8,1032:CO:4,6321230:PK1491180:1190 0:V12530:8,10V1::4,632:CO:8,1032:1140MPK1411260:ZPK176:GZ:H4:410:0:4,632:CO:0,232:1230dPK1491210:12200:V12530:4,6V1::G0:0,232:CO:4,632:1170PK1411260:1230:120016368,0PK(16384):PK149PK141(PK175PK186)ı 1240\ NENE1:C1000G100F10ED1270:1470:420:0:V12532:0,39V1::W1050,1290 RERE1:580:420:M12000::490 A((1)800)200:(A10)((A10)10)1001280:W2:B((1)(A10))10:CAB! CO((1)15)1:CO:V8:H8:Z(A100):410o!H12:Z(A10)((A10)10)10:410:H16:ZA(A10)10:410:B1001310:V16:H8:Z(B100):410!V16:H12:Z(B10)((B10)10)10:410:H16:ZB(B10)10:410:H4:340:3,1923:16,1832:D0:E0:F0:G0"(1230:PK176PK185İ1230<"2ZPK176:DZ:V25:H16:410:0:16,1832:CO:12,1432Y"<1230:PK1491350:1370"F0:V12530:16,18V1::12,1432:CO:16,1832:1320"PEXTRA LINE"ZPK1411260:ZPK176:EZ:H12:410:0:12,1432:CO:8,1032#d1230:PK1491390:1400=#n0:V12530:12,14V1::8,1032:CO:12,1432:1340|#xPK1411260:ZPK176:FZ:H8:410:0:8,1032:CO:4,632#1230:PK1491420:1430#0:V12530:8,10V1::4,632:CO:8,1032:1380$PK1411260:ZPK176:GZ:H4:410:0:4,632:CO:0,232:1230+$PK1491450:1460d$0:V12530:4,6V1::G0:0,232:CO:4,632:1410$PK1411260:1230:1440$8:22,2823:23,21:24,22:25,23:26,24:27,25:28,26:21,2829)%21,2832:32,3529:21,2936:32,3521:L11000::0:L2136:21,30L::V039:0,39V::%::11:"IF YOU WANT TO QUIT, THEN PRESS"::" KEY. IF NOT, PUSH .":16368,0%PK(16384):PK141Ĭ%:(4)"RUN MENU"%PK155ĺ(4)"RUN HELLO%1500% %*****************& MATH LEVEL 17/ELEMENTARY MATH DRILLKWRITTEN BY R. PITSCHKA\(REVISED BY:n2MARK FROST &<GUY B. PURCELL A::9:X140:"*";:::16)"MATH LEVEL 17"::X140:"*";::D12500:C2370 F::16302,0:0:V4047:0,39V::510 P...0> ZV,V5H:V,V5H2:H1,V:H1,V5:H d...1n nV,V5H1:H,V5:H2,V5:H,V:x x...2 H,H2V:H,H2V3:H,H2V5:H,V1:H,V4:V1,V2H2: ...3 H,H2V:H,H2V5:V,V5H2:H1,V2: ...4 V,V3H:V,V5H2:H1,V3:' ...5` H,H2V:H,H2V2:H,H2V5:H,V1:V3,V4H2:j ...6 V,V5H:V2,V5H2:H1,H2V:H1,V2:H1,V5: ...7 H,H2V:V,V5H2: ...8 V,V5H:V,V5H2:H1,V:H1,V2:H1,V5: ...98 V,V5H2:V,V2H:H1,V:H1,V2:B ...?y "H,H2V:H1,H2V2:H2,V1:H1,V3:H1,V5: ,...= 6H,H2V1:H,H2V4: @...+ JV,V5H1:V2,V3H:V2,V3H2: T...- ^H,H2V3:H,H2V2: h.../. rH,H2V3:H,H2V2:H1,V:H1,V5:8 |...Xw V,V1H:V4,V5H:V2,V3H1:V,V1H2:V4,V5H2: ...PRINT NUMBERS LZ1:L0L0 L80,100,120,140,160,180,200,220,240,260: ...CALCULATE NEW SCORE3 NTNANBNCNDNENF:RTRARBRCRDRERF:SC((10RTNT)2)RTRT V4247:0:25,39V::8:V42:SC(SC):SC999460:SC99480:SC9490:H37:ZSC:410: ZSC((SC10)10):H37:410:Z((SC(SC100)100)10):H33:410Z((SC(SC1000)1000)100):H29:410:Z(SC1000):H25:410:xZSC(SC10)10:H37:410:Z((SC(SC100)100)10):H33:410:Z(SC100):H29:410:ZSC(SC10)10:H37:410:Z(SC10):H33:410:R((1)5)1:0:V041:0,39V::COCO1:CO151560:R620,720,850,1070,1270...TITLE PAGE GR$*&26,3516:26,2715:34,3515:34,3517:19,2326:19,2327:28,2923:30,3122:32,3521:M11500:00:V047:0,39V::5:0,242:43,440:1,244:45,472:0,147B:42,474:5,642:5,647:42,478:9,42:9,47:42,4710:42,4712:13,42:13,45:43,4414:46,4714D42,4716:17,1842:17,44:17,1847:V42:H20:300:H37:80:500N...YES !XV,V2H:V2,V5H1:V,V2H2:V,V5H4:H5,H6V:H5,V2:H5,H6V5BbH8,H10V:H8,H10V2:H8,H10V5:H8,V1:V3,V4H10:V,V3H12:H12,V5:~lA((1)7)3:B((1)10):ABAB:AB45620:AB18620vCO((1)15)1:CO:ZA:V14:H3:410:Z(AB10):H9:410:ZAB(AB10)10:H13:410:12,197:8,1712:13,151016368,0WPK(16384):PK176PK185650:ZPK176:V3:H13:410:0:13,1510:CO:17,1910M1100::PK(16384):PK141680:PK136670:6600:17,1910:V38:13,15V::CO:13,1510:640$NANA1:ZB690:MI3:A1A:B1B:C1AB:T21:1540:430:0:V38:13,15V::17,1910:630wCO:RARA1:22,2423:24,2724:22,2425:22,2727:28,2922:28,24:28,292731,3322:31,3324:31,3327:31,23:25,2633:22,2535:35,27:430:M12000::MIMI1:500AA1:BB1:ABC1:630*A((1)7)3:B((1)8)2:ABAB:AB45AB18720CO((1)15)1:CO:ZB:V6:H10:410:V13:H5:390:ZA:H10:410:4,1320:6,82916368,0PK(16384):PK48PK57740:ZPK48:CZ:V22:H6:410:0:6,829:CO:10,1229PK(16384):PK136770:780:0:V2227:6,8V::10,1229:CO:6,829:750 PK176PK185760:ZPK176:DZ:V22:H10:410:0:10,1229:CO:14,1629PK(16384):PK136800:810 0:V2227:10,12V::14,1629:CO:10,1229:16368,0:760*PK141820:790A4NBNB1:AB10CD830:1540:MI3:T22:A1A:B1B:C1AB:730z>H20:V22:590:RBRB1:430:MIMI1:M12000::500HAA1:BB1:ABC1:730RA((1)9000)1000:B((1)3000)100:CAB:W1"\CO((1)15)1:CO:V6:H8:Z(A1000):410:H12:Z(A100)(((A100))10)10:410fH16:Z(A10)(((A10))10)10:410:H20:ZA(A10)10:410:V14:H4:320:B1000880:H8:Z(B1000):410pH12:Z(B100)(((B100))10)10:410:H16:Z(B10)(((B10))10)10:410:H20:ZB(B10)10:4107z3,2421:3,2422:20,2231:D0:E0:F0:G0:G10V1470:PK176PK185İ1470ZPK176:DZ:V24:H20:410:0:20,2231:CO:16,18311470:PK149930:9400:V12429:20,22V1::16,1831:CO:20,2231:900)PK1411500:ZPK176:EZ:H16:410:0:16,1831:CO:12,1431D1470:PK149960:9700:V12429:16,18V1::E0:12,1431:CO:16,1831:920PK1411500:ZPK176:FZ:H12:410:0:12,1431:CO:8,10311470:PK149990:10000:V12429:12,14V1::F0:8,1031:CO:12,1431:950\PK1411500:ZPK176:GZ:H8:410:0:8,1031:CO:4,631y1470:PK1491020:10300:V12429:8,10V1::G0:4,631:CO:8,1031:980PK1411500:ZPK176:G1Z:H4:410:0:4,631:CO:0,231:1470PK1491050:1060I0:V12429:4,6V1::G10:0,231:CO:4,631:1010f$PK1411500:1470:1040.A((1)400)10:A1((1)300)10:A2((1)200)10:A100A1100A21001070:CAA1A2:W28CO((1)15)1:CO:V2:A1001090:H9:Z(A100):410nBH13:Z(A10)(((A10))10)10:410:H17:ZA(A10)10:410:V10:A11001100:H9:Z(A1100):410LH13:Z(A110)(((A110))10)10:410:H17:ZA1(A110)10:410:V18:A21001110:H9:Z(A2100):410%VH13:Z(A210)(((A210))10)10:410:H17:ZA2(A210)10:410c`H5:320:4,2025:4,2026:17,1935:D0:E0:F0:G0:G10j1470:PK176PK185İ1470tZPK176:DZ:V28:H17:410:0:17,1935:CO:13,1535~1470:PK1491160:11700:V12833:17,19V1::13,1535:CO:17,1935:1130WPK1411500:ZPK176:EZ:H13:410:0:13,1535:CO:9,1135t1470:PK1491190:12000:V12833:13,15V1::E0:9,1135:CO:13,1535:1150PK1411500:ZPK176:FZ:H9:410:0:9,1135:CO:5,7351470:PK1491220:1230I0:V12833:9,11V1::F0:5,735:CO:9,1135:1180PK1411500:ZPK176:GZ:H5:410:0:5,735:CO:1,335:1470PK1491250:12600:V12833:5,7V1::G0:1,335:CO:5,735:1210PK1411500:1470:12404 A((1)9000)1000:B((1)(A1000))1000:CAB:W3 CO((1)15)1:CO:V6:H8:Z(A1000):410:H12:Z(A100)(((A100))10)10:410 H16:Z(A10)(((A10))10)10:410:H20:ZA(A10)10:410:V14:H4:340:H8:Z(B1000):410b!H12:Z(B100)(((B100))10)10:410:H16:Z(B10)(((B10))10)10:410:H20:ZB(B10)10:410!3,2421:3,2422:20,2231:D0:E0:F0:G0:G10!(1470:PK176PK185İ1470!2ZPK176:DZ:V24:H20:410:0:20,2231:CO:16,1831"<1470:PK1491350:1370I"F0:V12429:20,22V1::16,1831:CO:20,2231:1320Y"PEXTRA LINE"ZPK1411500:ZPK176:EZ:H16:410:0:16,1831:CO:12,1431"d1470:PK1491390:1400"n0:V12429:16,18V1::E0:12,1431:CO:16,1831:1340:#xPK1411500:ZPK176:FZ:H12:410:0:12,1431:CO:8,1031W#1470:PK1491420:1430#0:V12429:12,14V1::F0:8,1031:CO:12,1431:1380#PK1411500:ZPK176:GZ:H8:410:0:8,1031:CO:4,631:1470#PK1491450:1460,$0:V12429:8,10V1::G0:4,631:CO:8,1031:1410I$PK1411500:1470:1440W$16368,0$PK(16384):PK149PK141(PK175PK186)ı$1480$*** EVALUATE ANSWER$NENE1:G121520:C1000G100F10ED10000G11530 %1540:430:0:V12532:0,39V1::W860,1080,1280Y%RERE1:MIMI1:H27:V34:590:430:M12000::500%8:22,2826:26,21:27,22:28,23:29,24:30,25:31,26:21,2832%21,2835:35,3829:21,2939:35,3821:L11000::0:V039:0,39V::Q&::7:"IF YOU WANT TO QUIT, THEN PRESS THE"::" KEY. IF NOT, PRESS .":16368,0l&"PK(16384):PK141Ĭ&,PK155ĺ:(4)"RUN MENU"&61570&@ &J*****************&T* MODIFIED BY *&^* TOM McCORD *&h* EDUCATIONAL *'r* MEDIA *%'|* SERVICES *<'*****************'B 16380,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ı'L (4)"RUN MENU" LEVEL 18 10-FEB-830MATHEMATICS DRILLHBY RICHARD PITCHKAe(MODIFIED:SHAUN MC EVOY -::9:X140:"*";:::16)"MATH LEVEL 18"::X140:"*";::D12500:/14702::16302,0:0:V4047:0,39V::440<440 F...(BLANK)& P0:L05:H,H3VL::CO:0 Z...0Z dV,V5H:V,V5H2:H1,V:H1,V5:d n...1 xV,V5H1:H,V5:H2,V5:H,V: ...2 H,H2V:H,H2V3:H,H2V5:H,V1:H,V4:V1,V2H2: ...3 H,H2V:H,H2V5:V,V5H2:H1,V2: ...49 V,V3H:V,V5H2:H1,V3:C ...5| H,H2V:H,H2V2:H,H2V5:H,V1:V3,V4H2: ...6 V,V5H:V2,V5H2:H1,H2V:H1,V2:H1,V5: ...7 H,H2V:V,V5H2: ...8 V,V5H:V,V5H2:H1,V:H1,V2:H1,V5:* ...9T V,V5H2:V,V2H:H1,V:H1,V2:^ "...? ,H,H2V:H1,H2V2:H2,V1:H1,V3:H1,V5: 6...= @H,H2V1:H,H2V4: J...+ TV,V5H1:V2,V3H:V2,V3H2: ^...- hH,H2V3:H,H2V2: r.../J |H,H2V3:H,H2V2:H1,V:H1,V5:T ...X V,V1H:V4,V5H:V2,V3H1:V,V1H2:V4,V5H2: ...PRINT NUMBERS Z0İ90 Z110,130,150,170,190,210,230,250,270:HH4: ...TITLE PAGE GR  # 26,3119:26,3523 M11500::0:V047:0,39V::5:0,242:43,440:1,244:45,472:0,147:42,474:5,642:5,647 42,478:9,42:9,47:42,4710:42,4712:13,42:13,45:43,4414:46,471442,4716:17,1842:17,44:17,1847:V42:H20:310:H25\LL1((SC)):Z(((SC),LL,1)):420:HH8::F1F11:580bp&...YES !0FL0:SCSC1:TI0:V,V2H:V2,V5H1:V,V2H2:V,V5H4:H5,H6V:H5,V2:H5,H6V53:H8,H10V:H8,H10V2:H8,H10V5:H8,V1:V3,V4H10:V,V3H12:H12,V5:500:FDCONTROL BLOCKNUS$"":LE1000:UP500:TI0:LEVEL IS AN ARBITRARY NUMBER TO HELP DETERMINE DIFFICULTYXGET NUMBERS TO USEbFI(LE(1))1:SE(LE(1))1:AN0:LN((FI))4:SEFILN((SE))4!lGOTO APPROPRIATE BLOCKSJvBL(4(1))1:CO(15(1))1:CO:sCNCN1:CN141300:END THE PROGRAMBL660,720,790,860:630ADDITION BLOCKEN28:V8:H28:ANFISE:LO((FI))11:Z(((FI),LO,1)):420:MVV8:H28:LO((SE))11:Z(((SE),LO,1)):420::330:VV7:45(4LN),31V:VV2:H28V940rTITI1:TIUP990:690xSUBTRACTION BLOCKEN28:V8:H28ANFISE:AN0HOFI:FISE:SEHO:740LO((FI))11:Z(((FI),LO,1)):420::VV8:H28bLO((SE))11:Z(((SE),LO,1)):420::350:VV7:45(4LN),31V:VV2:H28:940~TITI1:TIUP990:690 MULTIPLICATION BLOCK EN28:V8:H28*FI101SE101FI(FI10):SE(SE10):810'4ANFISE:LO((FI))11:Z(((FI),LO,1)):420::VV8:H28>LO((SE))11:Z(((SE),LO,1)):420::390:VV7:45(4LN),31V:VV2:H28:940HTITI1:TIUP990:690R\DIVISION BLOCKfUS$" pFI(FI10):SE(SE10):FI101SE101880:FI0SE0580:V22:H24WzANFISE:HOAN:ANFI:FIHO:LO((FI))11:Z(((FI),LO,1)):420:V1,V5H2:HH3:H5,33V2:LO((SE))11:Z(((SE),LO,1)):420::VV12:((FI))3HH3HH18:ENH:1210TITI1:TIUP990:690USER ANSWERyH,H4V8:KP(16384):KP128980:16368,0:KPKP128:KP13990:KP21US$(US$,2):70:0:H,H3V8:COKP21HENHH4:70:940KP21940:KP48KP57940:H8940:H36940:0:H,H4V8:CO:Z((KP)):420:US$(KP)US$TITI1:TIUP990:940+CHECK ANSWER[V2:H2:US(US$):USANV2:H2:550:1020e10300:LL11500::LL140:1,39LL::US$"":CO:USAN580:BL660,720,790,860NO!TI0:FL21070:FLFL1:SCSC1:SC0SC088:VV1:HH1:V,V4H:M14:HM,HM1::V,V4H4:V1,V3H6$H7,H9V:H7,H9V4:V1,V3H10:H12,V4:M1500::M139:0:1,39M::CO:500:.THE ANSWER IS80:M139:1,39M::9:X0:Y0:Y,Y5X:M14:XM,YM::Y,Y5X4;BX7,X10Y:Y1,Y4X6:X7,X10Y5:Y1,Y4X11:Y5,Y6X13LY,Y5X20:X18,X22Y:Y,Y5X24:Y,Y5X27:X24,X27Y2VY,Y5X29:X29,X32Y:X29,X32Y2:X29,X32Y5:YY9:X3,Y`Y1,Y3X2:Y3,Y5X1:Y1,Y3X4:Y3,Y5X5:X3,Y3:Y,Y5X7UjY,Y5X11:M14:X6M,YM1::X13,X16Y:X13,X16Y2tX13,X16Y5:Y,Y2X13:Y2,Y4X16:Y,Y1X18:Y,Y1X24~Y3,Y5X20:Y3,Y5X22:X19,Y2:X21,Y2:X23,Y2:Y,Y5X26+X26,X29Y:X26,X29Y2:X26,X29Y5:Y,Y5X31:Y,Y2X34xX31,X34Y:X31,X34Y2:X32,Y3:X33,Y4:X34,Y5:YY9:Y,Y5XY,Y2X2:Y2,Y5X5:X2,X5Y:X2,X5Y2:X2,X5Y5:RF1RF0:1200AXAN:AX$(AX)BVY:HX5:LL1(AX$):Z((AX$,LL,1)):HH8:410::FL0:LL12500::0:LL039:0,39LL::aANSWER BLOCK FOR DIVISIONH4,HV8:KP(16384):KP1281220:16368,0:KPKP128:KP13990KP8(US$)2US$"":US0:1280:0:H4,HV8:CO:1250KP8US$(US$,(US$)1):1280:0:H4,HV8:CO=KP8HENHH4:1280:1210KP81210:KP48KP571210:H81210:H361210:0:H4,HV8:COHH4:Z((KP)):420:HH12:US$US$(KP):TITI1:TIUP990:1210BLANK SPACE FOR DIVISION BLOCK 0:L05:H4,HVL::CO:)END THE PROGRAMr::12:"YOU SCORE WAS "SC:"WHICH IS ";:SC14ĺ"INCREDIBLY GOOD.(SC11SC13ĺ"VERY GOOD.2SC7SC10ĺ"GOOD.<SC5SC8ĺ"O.K. BUT IT COULD BE BETTER.'FSC4ĺ"PRETTY LOW.":"YOU SHOULD TRY HARDER OR TRY AN EASIER LEVEL.=P:(4)"RUN MENU"DZ [d*****************rn* MODIFIED BY *x* TOM McCORD ** EDUCATIONAL ** MEDIA ** SERVICES ******************616368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ıJ(4)"RUN MENU" (4)"run menu"L !Cb" %n"o" (#M8( % ) L'"p"q" (\4, )7(P0  ( @p 8  x"!b"i"0 ~&i"0 %r"s" (,) &Սt"u" ( %L'")0I0hx H( + %Щ ߩx"L! )L! 8'  )ɀ)4,- U JNT) x"Lv"w" ( !` a"M)Fi/ e"3 k"l"m" h" iL X%;"L8"ΠΠҠ`y""""""*$ Fk%YeQP!/RB}QBiBB}\ ĉFEL/#> ț6 . ) ɘ"    L=#=#&ŠϠĠԠŠ ԩ m# m# J Qڨ)̰m] нȱ ̀𩠙 i F > S ɘL   V7 L ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`%YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^&0`ŠӠֱҭԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 ')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp< @( )m((.(( M(i ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hrȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` `* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <.<ʆ>,=?BC8 é&'112`HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLآ <B*IBGF08Lé'+8H <,``h(`@ڍL3hh@ihAiH(ؠȱ@JJJJq@)@Yvȱ@Hȱ@Ah@y@cYe J) LL LJiB LJ) >xhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlB O-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ ߐ  0 HϭߍLпllllhh8` Qx")T'P) ɺiL; )?     ~ `l@Hȱ@IױHXATȱH ɯȩ׍̒5H)/@a)_ .0 :A[8@`,뎒׮Б` L` @>S)I38Mdeם`K8`@Nȱ@O@ rIiNȽבN)/ȩ/N`@[ WHJjjjhA ,'KI؍0JHi 뎅`C8` @ r3N@) G莱 ⭮i`0 Y; 뮅ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNά0NN` G8`F@ 0 > LK8`: ;I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶:; <܅I m=IHHyHȘI Lܝ` @c@ k@Ю׍S)mיSʈ@qȱ@cȱ@mopfNxOyS)5SI0ܢܽ iP'E* 7deFG (GH Lv܅IR mEIH` tq qM0PQ ESHNFOG 밳NO 밨G%܈D" T)Ii)܍R*܍E'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` EHS` #Q'܅IHHSSЍS@`8 ` ͍% ΍Q8`܅I `P܍QR d8D`F` ]lH)HFȍNHGO $%܍&܍!ܢ8* J8` L ܝ>)I 'ܝ:`F8iRFPGQ`F܅IH3H ( )ȱHά`Ύ8EeHI |SB:0M ٙKٙIFNGʈ d献`8m0`,0H hi PȽάhٍ0GF8yאFG  $0 G01 E8`1ݾ00 Y 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`ά` W xG 0A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍐz{ vNمFمG < ΐ0 FGL鮅0 ٭{٭zٽ8`H8`  ,z { 8` z{ `ٽJJJJ`H͐hn)NjNjNjN. CH͐ v;٭ *Nۙ۰ڙک `Z8` C# (`{ .{ .{ .{8۰*Jz۩ ٰz{`JJJJ;i v묅͚ vٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8`ؑ@`M8`8@ؐʈI묆)z8zz Ly LةC8`؍)@ i)z8zyJ ^ ؅F Lo) +%J(a *FإGؐ.` *JHIH IL/FHGI ҭJjHIHB>IؙJJ W: ELyHIHI`JKJK`FHIG ( Ȣ؝؈JL)eKM`)` J zJ͟ $0 ΎJFJL8`JGBJ P FإG`BH PFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` vL'J  6"L vH  6 9ؙ` @ P8`K8`B8` L؈SJJJJحq) ) )Ю ЪGdF $ ᭔ع+ؠ 2H  :h8` 䮅ٽ ٬ؠ@` ( L )8`)i п` H h)N$% LL L r L 2 "pJ덣 )@፦NJOK 2iKK΢΢ IJΣ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L2쬆8NNO 8 ؍JL`R΢ʱLN1MOMEKP/MEK΢L7L-M O,p莡eNNO(`JNKOL 2/ "P L8 y WؑJ`L@ȱ@ `@Nȱ@O`؝}zIzؐ` f~ؽ؝z f % f؝~z؈` ` H  Ph)N@ 1; L  2$ )bJ Y ) H 4hL )  )حJjI{HIzH؊ PLE΢ʱNLMOMEKP%MEK΢L$ O, PeNNO 2(` C  7 2JzHI{HI؊ }LE  *` A Hz ع H{ ؙ؊ؠIhHIhH } iع `  عiعi` )؍0CGHFHBFG ުhFhG`@4͔ L @Ai ׭2` . :#ع؍0 Y讅)`.@+ i 8` L )߹0 )p )@ ) ȩ ؝L0NO 방 PQNOFG 嬆؍f؍g؝h ؝c zS) zS )حM͚ v`H@h`h``N8`  ) 1⬆Ȣ؝~@~ݞ@ʈL2 KIJHȢݞ)Jn 8 θ ؍ ؍ DH8 ع)ꭵJJJJ Ȣ؝I؈ 2h(8H ( h(8Hh(`ؑ@`@ȱ@ ` B@8ZS d鮅ٍٍٍsHٍr8fhgSJJJJS)S@` %I -q) 0@S)N8` @LL =@ ȹP8` i` %ם0 B %)( ȹ`8m8m@8` G8`F Pq)@N8`S)@J טyרםSS)׍Sde 밑 LȹL@ȅH@IL,0` G וֹ= YH.q)N 0 >deS)@LP8` D᮴ ֩SGHG v L䬅yٙ٭yٙ٩`K CEdFeG 6%&N    ܮ `J HH hh` 0 @ L/L Z`̸Yܝ ݝ0̸ȩFG   0` ܅F݅G ` c Zͬ 밽܅F݅G ` c* Z% L`L뮴HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 c9X(K cXXK تKo`V8`no` , on cI9XX`)HJJJh`OeNeO࿰ c9XАO`@ȭ@` ON INJKO`HхhꭋILhH),Nx8 (8` ԍ`@ABe 2U,,CnZ1IJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠĠԠҠ(c)1983-1987 AppleLKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LNP׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>*L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| 0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D EFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKELG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzLYL 8!9 詍` "  à4"/pŠϠŠà͠ӠàԠŬH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBDEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H E$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l POپھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhLJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>?Ek?!>Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKpnG @p;G=po:i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥj>>m>` _m8injkiljo풼S 鸍긍$I2 U)VJ зT)`l8`a HbIJhjǾȾɾ p٭b=aIe f`8` P־ǾҾ,G0C f=W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE`  ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8ֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TLLwLLL) `8` ԠŬLLL.1  LEVEL.2%  LEVEL.35  LEVEL.4E  LEVEL.5U  LEVEL.6e  LEVEL.7u  LEVEL.8  LEVEL.9  LEVEL.10  LEVEL.11  LEVEL.12  LEVEL.13  LEVEL.14  LEVEL.15  LEVEL.16  LEVEL.17  LEVEL.18(  MENU2 LEVEL 19 10-FEB-830MATHEMATICS DRILLHBY RICHARD PITCHKAe(MODIFIED:SHAUN MC EVOY -::9:X140:"*";:::16)"MATH LEVEL 19"::X140:"*";:/D12500:14702::16302,0:0:V4047:0,39V::430<...(BLANK) F0:L05:H,H3VL::CO:% P...0O ZV,V5H:V,V5H2:H1,V:H1,V5:Y d...1 nV,V5H1:H,V5:H2,V5:H,V: x...2 H,H2V:H,H2V3:H,H2V5:H,V1:H,V4:V1,V2H2: ...3 H,H2V:H,H2V5:V,V5H2:H1,V2: ...4. V,V3H:V,V5H2:H1,V3:8 ...5q H,H2V:H,H2V2:H,H2V5:H,V1:V3,V4H2:{ ...6 V,V5H:V2,V5H2:H1,H2V:H1,V2:H1,V5: ...7 H,H2V:V,V5H2: ...8 V,V5H:V,V5H2:H1,V:H1,V2:H1,V5: ...9I V,V5H2:V,V2H:H1,V:H1,V2:S ...? "H,H2V:H1,H2V2:H2,V1:H1,V3:H1,V5: ,...= 6H,H2V1:H,H2V4: @...+ JV,V5H1:V2,V3H:V2,V3H2: T...- ^H,H2V3:H,H2V2: h.../? rH,H2V3:H,H2V2:H1,V:H1,V5:I |...X V,V1H:V4,V5H:V2,V3H1:V,V1H2:V4,V5H2: ...PRINT NUMBERS Z0İ80 Z100,120,140,160,180,200,220,240,260:HH4: ...TITLE PAGE GR   ,o 26,3516:26,2715:34,3515:34,3517:19,2326:19,2327:19,2330:19,2331:19,2334:19,2335 26,3119:26,3523 M11500::0:V047:0,39V::5:0,242:43,440:1,244:45,472:0,147:42,474:5,642:5,647A42,478:9,42:9,47:42,4710:42,4712:13,42:13,45:43,4414:46,4714~42,4716:17,1842:17,44:17,1847:V42:H20:300:H25LL1((SC)):Z(((SC),LL,1)):410:HH8::F1F11:570...YES !7&FL0:SCSC1:TI0:V,V2H:V2,V5H1:V,V2H2:V,V5H4:H5,H6V:H5,V2:H5,H6V50H8,H10V:H8,H10V2:H8,H10V5:H8,V1:V3,V4H10:V,V3H12:H12,V5:490::CONTROL BLOCKDUS$"":LE1000:UP300:TI0:LEVEL IS AN ARBITRARY NUMBER TO HELP DETERMINE DIFFICULTYNGET NUMBERS TO USEhXFI(LE(1))1:SE(LE(1))1:AN0:LN((FI))4:SEFILN((SE))4bGOTO APPROPRIATE BLOCKSlBL(4(1))1:CO(15(1))1:CO:vCNCN1:CN141290: END THE PROGRAMBL650,710,780,850:620 ADDITION BLOCKUEN28:V8:H28:ANFISE:LO((FI))11:Z(((FI),LO,1)):410:VV8:H28:LO((SE))11:Z(((SE),LO,1)):410::320:VV7:45(4LN),31V:VV2:H28930TITI1:TIUP980:680SUBTRACTION BLOCK EN28:V8:H285ANFISE:AN0HOFI:FISE:SEHO:730pLO((FI))11:Z(((FI),LO,1)):410::VV8:H28LO((SE))11:Z(((SE),LO,1)):410::340:VV7:45(4LN),31V:VV2:H28:930TITI1:TIUP980:680 MULTIPLICATION BLOCKEN28:V8:H28L FI101SE101FI(FI10):SE(SE10):800*ANFISE:LO((FI))11:Z(((FI),LO,1)):410::VV8:H284LO((SE))11:Z(((SE),LO,1)):410::380:VV7:45(4LN),31V:VV2:H28:930>TITI1:TIUP980:680 H!RDIVISION BLOCK+\US$"ufFI(FI10):SE(SE10):FI101SE101870:FI0SE0570:V22:H24pANFISE:HOAN:ANFI:FIHO:LO((FI))11:Z(((FI),LO,1)):410:(zV1,V5H2:HH3:H5,33V2:LO((SE))11:Z(((SE),LO,1)):410::VV12:((FI))3HH3>HH18:ENH:1200ZTITI1:TIUP980:680`qUSER ANSWERH,H4V8:KP(16384):KP128970:16368,0:KPKP128:KP13980:KP21US$(US$,2):60:0:H,H3V8:COKP21HENHH4:60:930fKP21930:KP48KP57930:H8930:H36930:0:H,H4V8:CO:Z((KP)):410:US$(KP)US$TITI1:TIUP980:930CHECK ANSWERV2:H2:US(US$):USANV2:H2:540:10101020 0:LL11500::LL140:1,39LL::US$"":CO:USAN570:BL650,710,780,850)NO!YTI0:FL21060:FLFL1:SCSC1:SC0SC08:VV1:HH1:V,V4H:M14:HM,HM1::V,V4H4:V1,V3H6H7,H9V:H7,H9V4:V1,V3H10:H12,V4:M1500::M139:0:1,39M::CO:490:$THE ANSWER IS].0:M139:1,39M::9:X0:Y0:Y,Y5X:M14:XM,YM::Y,Y5X48X7,X10Y:Y1,Y4X6:X7,X10Y5:Y1,Y4X11:Y5,Y6X13BY,Y5X20:X18,X22Y:Y,Y5X24:Y,Y5X27:X24,X27Y20LY,Y5X29:X29,X32Y:X29,X32Y2:X29,X32Y5:YY9:X3,Y|VY1,Y3X2:Y3,Y5X1:Y1,Y3X4:Y3,Y5X5:X3,Y3:Y,Y5X7`Y,Y5X11:M14:X6M,YM1::X13,X16Y:X13,X16Y2jX13,X16Y5:Y,Y2X13:Y2,Y4X16:Y,Y1X18:Y,Y1X24MtY3,Y5X20:Y3,Y5X22:X19,Y2:X21,Y2:X23,Y2:Y,Y5X26~X26,X29Y:X26,X29Y2:X26,X29Y5:Y,Y5X31:Y,Y2X34X31,X34Y:X31,X34Y2:X32,Y3:X33,Y4:X34,Y5:YY9:Y,Y5X3Y,Y2X2:Y2,Y5X5:X2,X5Y:X2,X5Y2:X2,X5Y5:RF1RF0:1190GAXAN:AX$(AX)VY:HX5:LL1(AX$):Z((AX$,LL,1)):HH8:400::FL0:LL12500::0:LL039:0,39LL::ANSWER BLOCK FOR DIVISIONH4,HV8:KP(16384):KP1281210:16368,0:KPKP128:KP13980OKP8(US$)2US$"":US0:1270:0:H4,HV8:CO:1240KP8US$(US$,(US$)1):1270:0:H4,HV8:COKP8HENHH4:1270:1200KP81200:KP48KP571200:H81200:H361200:0:H4,HV8:CO8HH4:Z((KP)):410:HH12:US$US$(KP):TITI1:TIUP980:1200\BLANK SPACE FOR DIVISION BLOCK}0:L05:H4,HVL::CO: END THE PROGRAM::12:"YOU SCORE WAS "SC:"WHICH IS ";:SC14ĺ"INCREDIBLY GOOD.SC11SC13ĺ"VERY GOOD.(SC7SC10ĺ"GOOD.E2SC5SC8ĺ"O.K. BUT IT COULD BE BETTER.<SC4ĺ"PRETTY LOW.":"YOU SHOULD TRY HARDER OR TRY AN EASIER LEVEL.FLL11500:::(4)"RUN MENU2"P Z*****************d* MODIFIED BY *n* TOM McCORD *x* EDUCATIONAL *.* MEDIA *E* SERVICES *\*****************16368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ı(4)"RUN MENU2" LEVEL 20 10-FEB-830MATHEMATICS DRILLHBY RICHARD PITCHKAe(MODIFIED:SHAUN MC EVOY 2::9:X140:"*";:::16)"MATH LEVEL 20"::X140:"*";::D12500:7A(30):X130:A(X)0:9570<:11:"WHAT IS YOUR NAME? ";N$ FA P10:8:"4 + 77 =":A73:B81:C477:D774:R$"B":P1:300 Z8:14:7:12:"+ "5:12:"---":A2:B13:C57:D75:R$"E":P2:300 d10:5:"3 + 7 + 9 + 2 =":A21:B22:C37:D3792:R$"A":P3:300 n7:14:22:14:15:12:"+ "31:12:"----":A68:B78:C79:D80:R$"A":P4:300l x10:5:"$0.58 + $0.77 =":R$"C":P5:6:26:"A $.35":8:26:"B $1.25 10:26:"C $1.35":12:26:"D $1.45":310 6:14:48:14:53:15:3:12:"+ "4:12:"----":A7:B98:C108:D918:R$"C":P6:300K 8:14:227:12:"+ "355:12:"-----":A572:B582:C682:D5712:R$"B":P7:300 8:14:747:12:"- "13:12:"-----":A24:B34:C724:D734:R$"D":P8:300 8:14:406:12:"- "306:12:"-----":A100:B712:C813:D900:R$"A":P9:3009 8:14:47:12:"- "8:12:"----":A39:B43:C53:D54:R$"A":P10:300u 10:8:"60 - 7 =":A50:B52:C53:D67:R$"C":P11:300 10:8:"99 - 91 =":A0:B9:C98:D180:R$"E":P12:300 8:14:"$29.36":13:"- 2.30":13:"-------":R$"D":P13H 6:26:"A $.66":8:26:"B $7.66":10:26:"C $17.06":12:26:"D $27.06":310 8:14:300:12:"- "7:12:"-----":A93:B293:C307:D393:R$"B":P14:300 8:14:272:12:"- "44:12:"-----":A228:B232:C236:D328:R$"A":P15:300@8:14:200:12:"- "41:12:"-----":A151:B159:C241:D259:R$"B":P16:300{10:8:"3 X 8 =":A11:B18:C24:D38:P17:R$"C":3008:14:4:12:"X "6:12:"---":A10:B12:C46:D64:P18:R$"E":3009:9:"---":7:"2 ) 8":A0:B1:C3:D4:P19:R$"D":300K"9:9:"----":7:"3 ) 18":A6:B21:C48:D318:P20:R$"A":300:380,6:26:"A "A:8:26:"B "B:10:26:"C "C:12:26:"D "D614:26:"E NONE OF":15:29:"THE ABOVE@20:958:4:"A, B, C, D, OR E? ";A$:(A$)0320:J1(A$):(A$,J,1)" "330::320vJA$(A$,J,1):A$"A"A$"B"A$"C"A$"D"A$"Q"A$"E"320:A$"Q"380:F0NN1TA$R$F0A(N)1^A$R$360:20:25:"THAT IS CORRECT.":LL1500:::F0:CNCN5::1:"SCORE ="CN:34,1:CN100420:*h20:25:"NO. TRY AGAIN.":LL1500::::F1rP80,90,100,110,120,140,150,160,170,180,190,200,210,230,240,250,260,270,280,290|::"LEVEL 20 (CAT 13)"::"STUDENT: "N$:::X1N:A(X)" ";::::20:"TO START AGAIN, PRESS :" TO QUIT, PRESS ":16368,0>PK(16384):PK141ė:70]PK155420:16368,0:400v::(4)"RUN MENU2"} ****************** MODIFIED BY ** TOM McCORD ** EDUCATIONAL ** MEDIA ** SERVICES ******************o:16368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ıD(4)"RUN MENU2" LEVEL 21 10-FEB-830MATHEMATICS DRILLHBY RICHARD PITCHKAe(MODIFIED:SHAUN MC EVOY -::9:X140:"*";:::16)"MATH LEVEL 21"::X140:"*";::D12400:/14702::16302,0:0:V4047:0,39V::430<...(BLANK) F0:L05:H,H3VL::CO:' P...0Q ZV,V5H:V,V5H2:H1,V:H1,V5:[ d...1 nV,V5H1:H,V5:H2,V5:H,V: x...2 H,H2V:H,H2V3:H,H2V5:H,V1:H,V4:V1,V2H2: ...3 H,H2V:H,H2V5:V,V5H2:H1,V2:  ...40 V,V3H:V,V5H2:H1,V3:: ...5s H,H2V:H,H2V2:H,H2V5:H,V1:V3,V4H2:} ...6 V,V5H:V2,V5H2:H1,H2V:H1,V2:H1,V5: ...7 H,H2V:V,V5H2: ...8 V,V5H:V,V5H2:H1,V:H1,V2:H1,V5:! ...9K V,V5H2:V,V2H:H1,V:H1,V2:U ...? "H,H2V:H1,H2V2:H2,V1:H1,V3:H1,V5: ,...= 6H,H2V1:H,H2V4: @...+ JV,V5H1:V2,V3H:V2,V3H2: T...- ^H,H2V3:H,H2V2: h.../A rH,H2V3:H,H2V2:H1,V:H1,V5:K |...X V,V1H:V4,V5H:V2,V3H1:V,V1H2:V4,V5H2: ...PRINT NUMBERS Z0İ80 Z100,120,140,160,180,200,220,240,260:HH4: ...TITLE PAGE GR   H 15,1926:15,1927:15,1930:15,1931:15,1934:15,1935 26,3119:30,3515:26,3523:26,2722:34,3522:34,3524 M11500::0:V047:0,39V::5:0,242:43,440:1,244:45,472:0,147:42,474:5,642:5,647B42,478:9,42:9,47:42,4710:42,4712:13,42:13,45:43,4414:46,471442,4716:17,1842:17,44:17,1847:V42:H20:300:H25LL1((SC)):Z(((SC),LL,1)):410:HH4::F1F11:570...YES !8&FL0:SCSC1:TI0:V,V2H:V2,V5H1:V,V2H2:V,V5H4:H5,H6V:H5,V2:H5,H6V50H8,H10V:H8,H10V2:H8,H10V5:H8,V1:V3,V4H10:V,V3H12:H12,V5:490::CONTROL BLOCKDUS$"":LE10000:UP400:TI0:LEVEL IS AN ARBITRARY NUMBER TO HELP DETERMINE DIFFICULTYNGET NUMBERS TO USEjXFI(LE(1))1:SE(LE(1))1:AN0:LN((FI))4:SEFILN((SE))4bGOTO APPROPRIATE BLOCKSlBL(4(1))1:CO(15(1))1:CO:vCNCN1:CN141320:END THE PROGRAMBL650,710,780,860:620 ADDITION BLOCKREN28:V8:H28:ANFISE:LO((FI))11:Z(((FI),LO,1)):410:VV8:H28:LO((SE))11:Z(((SE),LO,1)):410::320:VV7:45(4LN),31V:VV2:H28960TITI1:TIUP1010:680SUBTRACTION BLOCK EN28:V8:H283ANFISE:AN0HOFI:FISE:SEHO:730nLO((FI))11:Z(((FI),LO,1)):410::VV8:H28LO((SE))11:Z(((SE),LO,1)):410::340:VV7:45(4LN),31V:VV2:H28:960TITI1:TIUP1010:680 MULTIPLICATION BLOCKEN28:V8:H286 FI100FI(FI10):800S*SE100SE(SE10):8104ANFISE:LO((FI))11:Z(((FI),LO,1)):410::VV8:H28>LO((SE))11:Z(((SE),LO,1)):410::380:VV7:45(4LN),31V:VV2:H28:960HTITI1:TIUP1010:680R)\DIVISION BLOCK;fUS$"":UP700XpFI100FI(FI10):880uzSE100SE(SE10):890FI0SE0570:V22:H24:ANFISE:HOAN:ANFI:FIHO:LO((FI))11Z(((FI),LO,1)):410::V1,V5H2:HH3:H5,33V2ELO((SE))11:Z(((SE),LO,1)):410::VV12:((FI))3HH3[HH18:ENH:1230xTITI1:TIUP1010:680~USER ANSWERH,H4V8:KP(16384):KP1281000:16368,0:KPKP128:KP131010:KP21US$(US$,2):60:0:H,H3V8:CO!KP21HENHH4:60:960KP21960:KP48KP57960:H8960:H36960:0:H,H4V8:CO:Z((KP)):410:US$(KP)US$TITI1:TIUP1010:960CHECK ANSWERV2:H2:US(US$):USANV2:H2:540:10401050A0:LL11500::LL140:1,39LL::US$"":CO:USAN570:BL650,710,780,860JNO!z$TI0:FL21090:FLFL1:SCSC1:SC0SC0.8:VV1:HH1:V,V4H:M14:HM,HM1::V,V4H4:V1,V3H6!8H7,H9V:H7,H9V4:V1,V3H10:H12,V4:M1500::M139:0:1,39M::CO:490:4BTHE ANSWER IS~L0:M139:1,39M::9:X0:Y0:Y,Y5X:M14:XM,YM::Y,Y5X4VX7,X10Y:Y1,Y4X6:X7,X10Y5:Y1,Y4X11:Y5,Y6X13 `Y,Y5X20:X18,X22Y:Y,Y5X24:Y,Y5X27:X24,X27Y2QjY,Y5X29:X29,X32Y:X29,X32Y2:X29,X32Y5:YY9:X3,YtY1,Y3X2:Y3,Y5X1:Y1,Y3X4:Y3,Y5X5:X3,Y3:Y,Y5X7~Y,Y5X11:M14:X6M,YM1::X13,X16Y:X13,X16Y2$X13,X16Y5:Y,Y2X13:Y2,Y4X16:Y,Y1X18:Y,Y1X24nY3,Y5X20:Y3,Y5X22:X19,Y2:X21,Y2:X23,Y2:Y,Y5X26X26,X29Y:X26,X29Y2:X26,X29Y5:Y,Y5X31:Y,Y2X34X31,X34Y:X31,X34Y2:X32,Y3:X33,Y4:X34,Y5:YY9:Y,Y5XTY,Y2X2:Y2,Y5X5:X2,X5Y:X2,X5Y2:X2,X5Y5:RF1RF0:1220hAXAN:AX$(AX)VY:HX5:LL1(AX$):Z((AX$,LL,1)):HH8:400::FL0:LL12500::0:LL039:0,39LL::ANSWER BLOCK FOR DIVISION4H4,HV8:KP(16384):KP1281240:16368,0:KPKP128:KP131010qKP8(US$)2US$"":US0:1300:0:H4,HV8:CO:1270KP8US$(US$,(US$)1):1300:0:H4,HV8:COKP8HENHH4:1300:1230KP81230:KP48KP571230:H81230:H361230:0:H4,HV8:CO[ HH4:Z((KP)):410:HH12:US$US$(KP):TITI1:TIUP1010:1230BLANK SPACE FOR DIVISION BLOCK0:L05:H4,HVL::CO:(END THE PROGRAM2::12:"YOU SCORE WAS "SC:"WHICH IS ";:SC14ĺ"INCREDIBLY GOOD.<SC11SC13ĺ"VERY GOOD.8FSC7SC10ĺ"GOOD.hPSC5SC8ĺ"O.K. BUT IT COULD BE BETTER.ZSC4ĺ"PRETTY LOW.":"YOU SHOULD TRY HARDER OR TRY AN EASIER LEVEL.d:(4)"RUN MENU2"n x****************** MODIFIED BY ** TOM McCORD *-* EDUCATIONAL *D* MEDIA *[* SERVICES *r*****************16368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$::Z$(27)ı(4)"RUN MENU2" LEVEL 22 10-FEB-830MATHEMATICS DRILLHBY RICHARD PITCHKAe(MODIFIED:SHAUN MC EVOY -::9:X140:"*";:::16)"MATH LEVEL 22"::X140:"*";::D12400:/13702::16302,0:0:V4047:0,39V::310<...0 FV,V5H:V,V5H2:H1,V:H1,V5:* P...1P ZV,V5H1:H,V5:H2,V5:H,V:Z d...2 nH,H2V:H,H2V3:H,H2V5:H,V1:H,V4:V1,V2H2: x...3 H,H2V:H,H2V5:V,V5H2:H1,V2: ...4 V,V3H:V,V5H2:H1,V3: ...5B H,H2V:H,H2V2:H,H2V5:H,V1:V3,V4H2:L ...6 V,V5H:V2,V5H2:H1,H2V:H1,V2:H1,V5: ...7 H,H2V:V,V5H2: ...8 V,V5H:V,V5H2:H1,V:H1,V2:H1,V5: ...9 V,V5H2:V,V2H:H1,V:H1,V2:$ ...?[ H,H2V:H1,H2V2:H2,V1:H1,V3:H1,V5:q ...PRINT NUMBERS~ "Z0İ60 ,Z80,100,120,140,160,180,200,220,240: 6...TITLE PAGE GR @ J T& ^14,1826:14,1827:14,1830:14,1831:14,1834:14,1835:28,2918:32,3314 h21,2526:21,2527:21,2530:21,2531:21,2534:21,2535:28,2925:32,3321:M11500::0:V047:0,39V: r16301,0::15:V039:0,39V::0:1,332:2,3833:1,3338:2,381:NT12RT(NT.1).8610:X(10(1))1= |X390,400,410,420,430,440,450,460,470,480k 2,3817:AN2:I3:J37:K2:L16:490:510 2,3220:AN2:I3:J19:K2:L32:490:510 2,3214:2,3226:AN3:I15:J25:K2:L32:490:5103,379:3,3717:3,3725:AN4:I3:J37:K10:L16:490:510I2,3220:3,3717:AN4:I3:J19:K18:L32:490:5102,328:2,3214:2,3220:2,3226:2,3232:AN6:I27:J31:K2:L32:490:5103,3717:2,3214:2,3226:AN6:I15:J25:K2:L16:490:510&2,3220:3,379:3,3717:3,3725:AN8:I21:J37:K10:L16:490:5103,375:3,379:3,3713:3,3717:3,3721:3,3725:3,3729:AN8:I3:J37:K22:L24:490:5103,375:3,379:3,3713:3,3717:3,3721:3,3725:3,3729:AN8:I3:J37:K6:L8:490:510SHADE IN FRACTION2:TMIJ:K,LTM::f0:H36:V11:80:36,3818::22:"WHAT PART IS SHADED?":NTNT1:990~16368,0:V20:H36PK(16384):PK175PK186540:0:260:TM1400::15:260:TM1200::530ZPK176:16368,0:H36:V20:0:290:16368,0-&PK(16384):PK136Ġ15:290:0:520H0PK141Ĺ16368,0:580Q:550DANZ590:970::22:"NO...THE RIGHT ANSWER IS 1/"AN".":TM14000::1000:370N:22:"VERY GOOD!":RTRT1:TM12000::1000:370XbNUM & DENMl:15:V039:0,39V::0:1,332:2,3833:36,3818:1,3338:2,381:X((1)131)vX760,770,780,800,820,850,870,900,910,920,930,940,960,5300,5400,5500,56002:T1AN:TMI(T)J(T):K(T),L(T)TM:::WORK PROBLEM#22:"WHAT FRACTION IS SHADED?":NTNT1:990:H36:V11:680:Q1Z:V20680:Q1ANZAD670:970::22:"NO...THE RIGHT ANSWER IS "AN"/"AD:TM14000::1000:610:22:"VERY GOOD !":RTRT1:TM11500::1000:610GET INPUTS16368,0,PK(16384):PK175PK186710:0:260:TM1300::15:260:TM1150::700KZPK176:16368,0:0:290uPK(16384):PK136Ġ15:290:0:700PK141Ĺ16368,0:750720AN1:AD2:2,3220:I(1)3:J(1)19:K(1)2:L(1)32:AN1:AD3:1,3314:1,3326:I(1)15:J(1)25:K(1)2:L(1)32:T AN3:AD4:3,379:3,3717:3,3725:I(1)3:I(2)3:I(3)3J(1)37:J(2)37:J(3)37:K(1)2:K(2)18:K(3)26:L(1)8:L(2)24:L(3)32: AN3:AD8:3,379:3,3717:3,3725:1,3220:I(1)3:I(2)3:I(3)34*J(1)19:J(2)19:J(3)19:K(1)10:K(2)18:K(3)26:L(1)16:L(2)24:L(3)32:4AN5:AD6:2,3214:2,3226:3,3717:I(1)3:I(2)3:I(3)15:I(4)27:I(5)27>J(1)13:J(2)13:J(3)25:J(4)37:J(5)37:K(1)2:K(2)18:K(3)2:K(4)2:K(5)18HL(1)16:L(2)32:L(3)16:L(4)16:L(5)32:qRAN5:AD8:LP5294:3,37LP::I(1)3:I(2)3:I(3)3:I(4)3:I(5)3:J(1)37:J(2)37:J(3)37:J(4)37:J(5)37\K(1)2:K(2)6:K(3)10:K(4)14:K(5)18:L(1)4:L(2)8:L(3)12:L(4)16:L(5)20:fAN7:AD8:LP5294:3,37LP::I(1)3:I(2)3:I(3)3:I(4)3:I(5)3:I(6)3:I(7)3pJ(1)37:J(2)37:J(3)37:J(4)37:J(5)37:J(6)37:J(7)37:K(1)2:K(2)6:K(3)10:K(4)14:K(5)18:K(6)22:K(7)26zL(1)4:L(2)8:L(3)12:L(4)16:L(5)20:L(6)24:L(7)28: AN1:AD6:LP8326:1,32LP::I(1)21:J(1)25:K(1)2:L(1)32:UAN1:AD6:2,3214:2,3226:3,3717:I(1)3:J(1)13:K(1)18:L(1)32:AN2:AD3:1,3314:1,3326:I(1)3:I(2)27:J(1)13:J(2)37:K(1)2:K(2)2:L(1)32:L(2)32:AN2:AD3:1,3314:1,3326:I(1)15:I(2)27:J(1)25:J(2)37:K(1)2:K(2)2:L(1)32:L(2)32:bAN3:AD4:2,3220:3,3717:I(1)3:I(2)3:I(3)21:J(1)19:J(2)19:J(3)37K(1)2:K(2)18:K(3)18:L(1)16:L(2)32:L(3)32:AN1:AD4:LP11299:2,32LP::I(1)3:J(1)10:K(1)2:L(1)32:NO BUZZSCSC10:24:"SCORE..."(SC);:0SCSC10:SC1001010:G:(4)"RUN MENU2"N e*****************|* MODIFIED BY ** TOM McCORD *$* EDUCATIONAL *.* MEDIA *8* SERVICES *B*****************>Z16368,0:23: LEVEL 24 10-FEB-830MATHEMATICS DRILLHBY RICHARD PITCHKAe(MODIFIED:SHAUN MC EVOY 2::9:X140:"*";:::16)"MATH LEVEL 24"::X140:"*";::D12400::91370<17:"WHAT'S YOUR NAME? ";N$:(N$)060:240 FINPUT SUBROUTINEq P" ";Q$:Q$((Q$))110:(Q$)0110:QL1(Q$):(Q$,QL,1)"O"100::Q(Q$):(Q$)64ġ:1060 ZQX(0): d::"USE ZERO IN NUMBERS,":"NOT THE LETTER O!":TM14000: n:2:1:958:PT290,380,480,590,690,790,1050:STRING INPUT !"#$- x" ";Q$:(Q$)0110:(Q$)64ġ:1060a QX(0):QL1(Q$):(Q$,QL,1)" "140::150~ Q$(Q$,QL,(Q$)QL1): PT290,380,480,590,690,790,1050 SELECT PROBLEM TYPE MS0180:PT((1)7)1:CNCN1:CN251160 PT270,360,460,570,670,750,1040, FIGURE & PRINT SCOREk TPP1P2P3P4P5P6P7:TRR1R2R3R4R5R6R7:TP0TP1 SC((TR100TP))2TRTR:1:1:868:L$;:28:"SCORE..."(SC): CONTINUE OR QUIT FL1:23:1:958:" PUSH TO CONTINUE";:G$::FL0:, NAMES OF PROBLEM TYPESo A(15):L1$"945 - 358":L2$"ADDING DECIMALS":L3$"HOURS & MINS L4$"X WITH 10,100,1000":L5$"90 X 238 = ?":L6$"WORD PROBLEMS ( X & / )":L7$"NOTHING":L$"LEVEL 24":NP6:160 809 - 544 A((1)490500):B((1)210400):CAB\ "2:1:958:8:A" - "B" = ";:70:P1P11:QC340:300g ,WRONG 6FLFL1:FL3FL0:330 @180 J11:"NO...THE RIGHT ANSWER IS "C:MS2:190:220:160 TRIGHT^:"VERY GOOD !":R1R11:MSMS1:190:220:160hADDING DECIMALSVrA((1)999)10:B((1)99)10:C((1)9)10:DABCw(A)A(B)B(C)CA10B10B1C1370|2:1:958:6:16:A:17:B:15:"+ "C:15:"------"::::"WHAT IS THE SUM? ";:70:P2P21:(DQ).00001440:400WRONG/FLFL1:FL3FL0:4308180r::"NO...THE RIGHT ANSWER IS "D:MS2:190:220:160}RIGHT::"VERY GOOD !":R2R21:MSMS1:190:220:160ADD HRS & MINSH1((1)91):H2((1)91):M1((1)16020):M2((1)5010):H3H1H2:M3M1M2d2:1:958:6:13:H1" HRS "M1" MINS":11)"+ "H2" HRS "M2" MINS11)"---------------":12:"HOW MANY HOURS?";:70:H4Q:"HOW MANY MINUTES?";:70:P3P31:M4Q:M359M3M360:H3H31M4M3H4H3550:WRONGFLFL1:FL3FL0:540&180q18:"NO...THE RIGHT ANSWER IS "H3" HRS "M3" MINS":MS2:190:220:160|&RIGHT018:"VERY GOOD !":R3R31:MSMS1:190:220:160:MULTIPLES OF 10DA((1)9991):B(10(((1)31))):CAB5N2:1:958:7:R((1)21):R1600:A" X "B" = ?":610GXB" X "A" = ?b10:"WHAT IS THE PRODUCT? ";:70:P4P41:QC650:WRONGlFLFL1:FL3FL0:640v180MS2:13:"NO...THE RIGHT ANSWER IS "C:190:220:160RIGHT%13:MSMS1:R4R41:"VERY GOOD !":190:220:160390 X 238aA((1)300100):B((1)91)100:CAB2:1:958:6:15:A:13)"X "B:14)"----":13:"WHAT IS THE PRODUCT? ";:70:P5P51:16:QC730:WRONGFLFL1:FL3FL0:720180+MS2:"NO...THE RIGHT ANSWER IS "C:190:220:1606RIGHThMSMS1:R5R51:"VERY GOOD !":190:220:160WORD PROBLEMS (X AND /)A((1)73):B((1)65):CABJ((1)15)1:A(J)1770:A(J)1:I1J:K,K1$,K2$,K3$,K4$,K5$,K6$:$ :D6D61:D613790:I115:A(I)0::D60C2:1:958:K1A1B:A2CW K1A1C:A2Bp*4:K1$"#"820:K1$4K2$" "A:K3$"#"830:K3$>K4$" "A1:K5$"#"840:K5$HK6$:::"ANSWER :";:70:P6P61:QA21030:1000RR1,HOW MANY MILES CAN SPIDERMAN,CRAWL IF HE CRAWLS FOR,#,HOURS AT AN AVERAGE SPEED OF,#,MILES PER HOUR?\0,#,MELVIN BOUGHT,#,SPACE WAR CARDS FOR,#,CENTS. HOW MUCH DOES ONE CARD COST?f0,#,HUGO'S TRICYCLE TRAVELS AT A SPEED OF,MILES PER HOUR. HOW MANY HOURS,WILL IT TAKE HUGO TO TRAVEL,#,MILES?up0,#,ALFREDO WORKED,#,HOURS AND EARNED,DOLLARS. HOW MANY DOLLARS,DID HE EARN AN HOUR?z1,#,BOZO'S MAGIC GOOSE LAYS,GOLDEN EGGS EVERY DAY.,HOW MANY EGGS WILL BOZO HAVE IN,#,DAYS?<0,#,EACH STUDENT DRANK,#,SODAS. IN ALL THEY DRANK,SODAS. HOW MANY STUDENTS,WERE DRINKING SODAS?1,#,EACH GIRL ATE,#,PIECES OF PIZZA. THERE WERE,GIRLS. HOW MANY PIECES,OF PIZZA DID THEY EAT?0,#,GLENDA GAVE EACH OF HER FRIENDS,#,PIECES OF CANDY. SHE GAVE AWAY,PIECES. HOW MANY FRIENDS DID SHE,GIVE CANDY TO?1,#,GLENDA THE GENEROUS HAS,GOOD FRIENDS. SHE GAVE,EACH OF THEM,PIECES OF FUDGE.,HOW MANY PIECES DID SHE GIVE AWAY?0,#,GLENDA THE GENEROUS HAS,#,GOOD FRIENDS. SHE DIVIDED,PIECES OF FUDGE EQUALLY AMONG THEM.,HOW MANY PIECES DID EACH FRIEND GET?k1,#,THERE ARE,BOYS ON A TEAM.,HOW MANY BOYS ARE NEEDED TO MAKE,#,TEAMS?0,HOW MANY TEAMS,CAN YOU MAKE IF,BOYS ARE NEEDED FOR,A TEAM AND YOU HAVE,#,BOYS?1,#,EACH OF SALLY'S,#,PET MICE HAD,BABIES. HOW MANY BABY,MICE DOES SALLY HAVE?q1,#,ROBERT GONZALEZ EARNS,DOLLARS AN HOUR. HOW MANY,DOLLARS WILL HE EARN IN,#,HOURS?0,#,ROBERTO GONZALEZ EARNS,DOLLARS AN HOUR. HOW MANY HOURS,WILL HE HAVE TO WORK TO EARN,#,DOLLARS?FLFL1:FL3FL0:1020180;14:"NO...THE RIGHT ANSWER IS "A2:MS2:190:220:160q14:"VERY GOOD !":R6R61:MSMS1:190:220:160z750790$DISPLAY WORK RECORD.AP$"ATTEMPTED....":CR$"CORRECT......"::N$;:30:L$::L1$T84:AP$P1;:22:CR$R1:NP21110:L2$:4:AP$P2;:22:CR$R2:NP31110:L3$:4:AP$P3;:22:CR$R3:NP41110:L4$B4:AP$P4;:22:CR$R4:NP51110:L5$:4:AP$P5;:22:CR$R5:NP61110:L6$:4:AP$P6;:22:CR$R6:NP71110:L7$L4:AP$P7;:22:CR$R7EV:"TOTAL PROBLEMS ATTEMPTED.........."TP:"TOTAL PROBLEMS CORRECT............"TR:TP0TP1`:"PERCENTAGE RIGHT.................."(TR210TP.5)"%":24:20:G$:G$"@"1140:190:FL1FL0:160jPT290,380,480,590,690,790,1050:160tRETURN TO MENU?~:(4)"RUN HELLO":D6 IN WORD PROBLEMS MUST NOT BE RESET IN OTHER SECTIONSV:(4)"RUN MENU2"] t****************** MODIFIED BY ** TOM McCORD ** EDUCATIONAL ** MEDIA ** SERVICES ******************M Z LEVEL 23 10-FEB-830MATHEMATICS DRILLHBY RICHARD PITCHKAe(MODIFIED:SHAUN MC EVOY 2::9:X140:"*";:::16)"MATH LEVEL 23"::X140:"*";::D12500::91370<17:"WHAT'S YOUR NAME? ";N$:(N$)060::250 FINPUT SUBROUTINEW P"";Q$:(Q$)0100:QL1(Q$):(Q$,QL,1)"O"90::Q(Q$):QX(0): Z::"USE ZERO IN NUMBERS,":"NOT THE LETTER O!":TM14000: d:2:PT310,380,470,510,600,710,7100 nSTRING INPUT x"";Q$:(Q$)0100:(Q$)64ġ:8902 %'()*+,-./0QX(0):QL1(Q$):(Q$,QL,1)" "140::150O Q$(Q$,QL,(Q$)QL1):t PT310,380,470,510,600,710,7100 SELECT PROBLEM TYPE MS0180:PT((1)6)1 PT290,340,450,490,550,660,7000 FIGURE & PRINT SCORE( TPP1P2P3P4P5P6P7:TRR1R2R3R4R5R6R7:TP0TP1h SC((TR100TP))2TRTR:1:1:L$;:28:"SCORE..."(SC):~ CONTINUE OR QUIT FL1:23:"PRESS RETURN TO CONTINUE 'ESC' TO QUIT ";:G$:G$(27)ġ:890 :FL0: NAMES OF PROBLEM TYPES/ A(15):L1$"470 - 345":L2$"PLACE VALUE (THOUSANDS)n L3$"217 + 29 + 43":L4$"USE < OR >":L5$"NUMBER SEQUENCES L6$"WORD PROBLEMS ( + AND - )":L7$"NOTHING":L$"LEVEL 23":NP6:160 "809 - 443 ,A((1)470500):B((1)200400):CAB' 68:A" - "B" = ";:70:P1P11:QC330:320a @11:"NO...THE RIGHT ANSWER IS "C:MS2:190:220:160 J10:"VERY GOOD !":R1R11:MSMS1:190:220:160 TPLACE VALUE ^O((1)9):O1350 hT((1)9):T1360rH((1)9):H1370:M((1)7)2:Z((1)3)1%|4:Z390,400,410_O" ONES":M" THOUSANDS":T" TENS":H" HUNDREDS":420M" THOUSANDS":O" ONES":H" HUNDREDS":T" TENS":420T" TENS":O" ONES":H" HUNDREDS":M" THOUSANDS::"WHAT IS THE NUMBER? ";:70:P2P21:Q1000M100H10TO440bMS2:::"NO...THE RIGHT ANSWER IS "1000M100H10TO:190:220:160MSMS1:::"VERY GOOD !":R2R21:190:220:160217+29+43=A((1)470)400:B((1)180)20:C((1)350)20:DABCO8:A" + "B" + "C" = ";:70:P3P31:11:QD480:"NO...THE RIGHT ANSWER IS "D:MS2:190:220:160"VERY GOOD !":R3R31:MSMS1:190:220:160USE < OR >A((1)5050):B((1)5050):AB50018:A" ";::" ";::" "B:::"USE < OR > ";:110:8:A" "Q$" "B:M1350:M:P4P41:AB520:B$">":530;B$"<B$Q$540:14:"NO...THE RIGHT ANSWER IS "B$:MS2:190:220:16014:"VERY GOOD !":MSMS1:R4R41:190:220:160&NUMBER SEQUENCES 0R(3(1)):R1570:R2580:X(45(1)):X2X:Y2:590+:X((1)16):X5X:Y5:590GDX((1)6):X10X:Y10WNR((1)2)X8:R1620:X", "XY", "X2Y", "X3Y", ";::" ":b11:"GIVE THE MISSING NUMBER. ";:70:P5P51:14:QX4Y650:640KlX", "XY", "X2Y", ";::" ";::", "X4Y:11:"GIVE THE MISSING NUMBER. ";:70:P5P51:14:QX3Y650vv"NO...THE RIGHT ANSWER IS "X3Y:640MS2:190:220:160"VERY GOOD !":R5R51:MSMS1:190:220:160WORD PROBLEMS (+ AND -)A((1)470)400:B((1)(A50))25TJ((1)15)1:A(J)1680:A(J)1:I1J:K,K1$,K2$,K3$,K4$::K1CABdK1CAB:D6D61:D613710:I115:A(I)0::D604:K1$" "A" "K2$"."::K3$" "B"."::K4$"?":11:"ANSWER: ";:70:P6P61:QC88040,THERE WERE,FISH IN A POND,FISHERMEN CAUGHT,HOW MANY FISH ARE LEFTm1,JUAN HAS,PENNIES,LOLA HAS,HOW MANY PENNIES IN ALL0,TONY HAD,TRADING CARDS,HE GAVE AWAY,HOW MANY DOES HE HAVE NOW0,SF HAS,FIREMEN,MOBRIDGE HAS,HOW MANY MORE FIREMEN DOES SF HAVEH1,FARMER JONES HAS,COWS,FARMER SMITH HAS,HOW MANY COWS DO THEY HAVE IN ALL0,JUAN DROVE,MILES IN TWO DAYS,ON THE FIRST DAY HE DROVE,HOW MANY DID HE DRIVE ON THE SECOND 1,KING FELIPE HAS,SOLDIERS,KING CARLOS HAS,HOW MANY SOLDIERS DO THEY HAVE IN ALLQ1,LISA READ,PAGES IN HER BOOK,LINDA READ,HOW MANY DID THEY READ ALTOGETHER? 0,KING KONG IS,FEET TALL,GODZILLA IS,HOW MUCH TALLER IS KING KONG*1,MARTHA FOUND,CLAM SHELLS,SAM FOUND,HOW MANY DID THEY FIND IN ALL,40,ZERO BLEW UP,BALLOONS,MARSHAL BLEW UP,HOW MANY MORE DID ZERO BLOW UP~>1,GREG'S DOG HAS,FLEAS,JOSE'S DOG HAS,HOW MANY FLEAS DO THEY HAVE ALTOGETHERH1,JENNY FOUND,ALUMINUM CANS,THEN ALFREDO GAVE HER,HOW MANY DID SHE HAVE IN ALLR0,MARY HAS,FRECKLES,ROSARIO HAS,HOW MANY MORE DOES MARY HAVEj\0,THERE ARE,CHILDREN IN SCHOOL,THE NUMBER OF GIRLS IS,WHAT IS THE NUMBER OF BOYSf14:"NO...THE RIGHT ANSWER IS "C:MS2:190:220:160p14:"VERY GOOD !":R6R61:MSMS1:190:220:160zDISPLAY WORK RECORD5:AP$"ATTEMPTED....":CR$"CORRECT......":N$;:30:L$::L1$4:AP$P1;:22:CR$R1:NP2940:L2$:4:AP$P2;:22:CR$R2:NP3940:L3$:4:AP$P3;:22:CR$R3:NP4940:L4$4:AP$P4;:22:CR$R4:NP5940:L5$:4:AP$P5;:22:CR$R5:NP6940:L6$:4:AP$P6;:22:CR$R6:NP7940:L7$54:AP$P7;:22:CR$R7:"TOTAL PROBLEMS ATTEMPTED.........."TP:"TOTAL PROBLEMS CORRECT............"TR:TP0TP1:"PERCENTAGE RIGHT.................."(TR100TP.5)"%+23:"PRESS RETURN TO CONTINUE 'ESC' TO QUIT ";:G$::G$(27)990:FL1FL0:160UPT310,380,470,510,600,710,7100:160iRETURN TO MENU~(4)"RUN MENU2" ****************** MODIFIED BY ** TOM McCORD ** EDUCATIONAL ** MEDIA *$* SERVICES *&.*****************uZ16368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$:Z$(27)ıd(4)"RUN MENU2" LEVEL 26 10-FEB-830MATHEMATICS DRILLHBY RICHARD PITCHKAeMODIFIED:SHAUN MC EVOY ::9:X140:"*";:::16)"MATH LEVEL 26"::X140:"*";::D12500::#17:"WHAT'S YOUR NAME? ";N$:(N$)035::130 (INPUT SUBROUTINEM -" ";Q$:(Q$)055:QL1(Q$):(Q$,QL,1)"O"50::Q(Q$):QX(0): 2::"USE ZERO IN NUMBERS,":"NOT THE LETTER O!":TM14000: 7:2:PT155,180,220,260,300,335,7100 <STRING INPUT A" ";Q$:(Q$)055:(Q$)64ġ:420& FQX(0):13456789:;<QL1(Q$):(Q$,QL,1)" "75::80C KQ$(Q$,QL,(Q$)QL1):h PPT155,180,220,260,300,335,7100 USELECT PROBLEM TYPE ZMS095:PT((1)6)1 _PT145,170,205,250,290,315,7000 dFIGURE & PRINT SCORE iTPP1P2P3P4P5P6P7:TRR1R2R3R4R5R6R7:TP0TP1[ nSC((TR100TP))2TRTR:1:1:L$;:28:"SCORE..."(SC):q sCONTINUE OR QUIT xFL1:23:"PRESS RETURN TO CONTINUE 'ESC' TO QUIT ";:G$::G$(27)ġ:420 }FL0: NAMES OF PROBLEM TYPES/ A(15):L1$"8.184 / 62":L2$"27.2 + 3.001 + .03":L3$"HRS AND MINS L4$"X WITH 10, 100, 1000":L5$".2 X 4.8":L6$"NUMBER WORDS":L7$"NOTHING":L$"LEVEL 26":NP6:85 28.8 / 4 A((1)16040):B((1)680100):E1((1)31):BB(10E1):CAB8 8:4)C" / "A" = ?":::"ANSWER :";:40:P1P11:(QB).0001165:160q 18:"NO...THE RIGHT ANSWER IS "B:MS2:100:115:85 :"VERY GOOD !":R1R11:MSMS1:100:115:85 ADDING DECIMALSE1((1)31):A((1)29001000)(10E1):B((1)19010)10:C((1)991)100:DABCo8:2:A" + "B" + "C" = ?":::::"ANSWER :";:40:P2P21:(DQ).00001195:185zWRONG:"NO...THE RIGHT ANSWER IS "D:MS2:100:115:85RIGHT::"VERY GOOD !":R2R21:MSMS1:100:115:85ADD HRS & MINS\H1((1)91):H2((1)91):M1((1)15020):M2((1)5010):H3H1H2:M3M1M2}M360M3M360:H3H31:2156:13:H1" HRS "M1" MINS":11)"+ "H2" HRS "M2" MINS":11)"---------------":12:"HOW MANY HOURS?";:40:H4Q:5"HOW MANY MINUTES?";:40:P3P31:M4Q:M359M3M360:H3H31QM4M3H4H3240:WRONG18:"NO...THE RIGHT ANSWER IS "H3" HRS "M3" MINS":MS2:100:115:85RIGHT18:"VERY GOOD !":R3R31:MSMS1:100:115:85MULTIPLES OF 10 A((1)9991):B(10(((1)31))):CABR7:R((1)21):R1265:A" X "B" = ?":270d B" X "A" = ?10:"WHAT IS THE PRODUCT? ";:40:P4P41:QC280:WRONGMS2:13:"NO...THE RIGHT ANSWER IS "C:100:115:85RIGHT13:MSMS1:R4R41:"VERY GOOD !":100:115:85)".8 X 4.3'A((1)55):B((1)19010):E1((1)2):E2((1)3):AA(10E1):BB(10E2):CAB,6:4)A" X "B" = ?":::"ANSWER :";:40:P5P51:(QC).00001310:305 118:"NO...THE RIGHT ANSWER IS "C:MS2:100:115:85>6:"VERY GOOD !":R5R51:MSMS1:100:115:85P;NUMBER WORDS@J((1)15)1:A(J)1320:A(J)1:I1J:K1$,K2$,K3$,K4$,K5$,K6$::K1CABEK1CABJ:D6D61:D613335:I115:A(I)0::D60WO6:"THE NUMERAL "K1$" AS NUMBER WORDS IS:"::" A. "K2$:" B. "K3$:" C. "K4$:" D. "K5$::"ANSWER :";:60yTP6P61:(Q$,1)K6$415:410Y1005,ONE THOUSAND FIFTY,ONE THOUSAND FIVE,ONE HUNDRED FIVE,ONE HUNDRED FIFTY,BB^76,SEVENTY,SIXTY-SEVEN,SEVENTY-SIX,SEVEN HUNDRED SIX,C,32,THIRTY-TWO,TWENTY-THREE,THIRTY,THREE HUNDRED TWENTY,Ac83,THIRTY-EIGHT,EIGHTY,EIGHT HUNDRED,EIGHTY-THREE,D,68,SIXTY-EIGHT,SIXTY,SIXTY-EIGHT HUNDRED,EIGHTY-SIX,Ah97,NINETY,NINETY-SEVEN,SEVENTY-NINE,SEVENTY HUNDRED,B7m709,SEVENTY-NINE,SEVEN HUNDRED NINETY,SEVEN HUNDRED NINE,SEVEN NINE,Cr852,EIGHT THOUSAND FIFTY-TWO,EIGHTY-FIVE TWO,EIGHT HUNDRED TWENTY-FIVE,EIGHT HUNDRED FIFTY-TWO,Dw670,SIX HUNDRED SEVENTY,SIXTY-SEVEN,SIX THOUSAND SEVENTY,SIX HUNDRED SEVEN,A`|3013,THREE THOUSAND THREE,THREE THOUSAND THIRTEEN,THREE THOUSAND THREE HUNDRED ONE,THREE HUNDRED THIRTEEN,B1030,ONE THOUSAND THREE,ONE THOUSAND THREE HUNDRED,ONE THOUSAND THIRTY,ONE HUNDRED THREE,C"5400,FIFTY-FOUR THOUSAND,FIVE THOUSAND FOUR,FIVE THOUSAND FORTY,FIVE THOUSAND FOUR HUNDRED,D9088,NINE THOUSAND EIGHTY-EIGHT,NINETY EIGHTY-EIGHT,NINETY THOUSAND EIGHTY EIGHT,NINETY HUNDRED EIGHT,A 9808,NINETY-EIGHT THOUSAND EIGHT,NINE THOUSAND EIGHT HUNDRED EIGHT,NINETY-EIGHT EIGHT,NINE HUNDRED EIGHT HUNDRED EIGHT,B7440,SEVEN THOUSAND FORTY-FOUR,SEVEN HUNDRED FORTY-FOUR,SEVEN THOUSAND FOUR HUNDRED FORTY,SEVENTY-FOUR HUNDRED FOUR,C16:"NO...THE RIGHT ANSWER IS "K6$:MS2:100:115:8516:"VERY GOOD !":R6R61:MSMS1:100:115:85DISPLAY WORK RECORDQAP$"ATTEMPTED....":CR$"CORRECT......":N$;:30:L$::L1$4:AP$P1;:22:CR$R1:NP2445:L2$:4:AP$P2;:22:CR$R2:NP3445:L3$:4:AP$P3;:22:CR$R3:NP4445:L4$74:AP$P4;:22:CR$R4:NP5445:L5$:4:AP$P5;:22:CR$R5:NP6445:L6$:4:AP$P6;:22:CR$R6:NP7445:L7$Q4:AP$P7;:22:CR$R7:"TOTAL PROBLEMS ATTEMPTED.........."TP:"TOTAL PROBLEMS CORRECT............"TR:TP0TP1:"PERCENTAGE RIGHT.................."(TR100TP.5)"%F23:"PRESS RETURN TO CONTINUE 'ESC' TO QUIT ";:G$::G$(27)470:FL1FL0:85oPT155,180,220,260,300,335,7100:85RETURN TO MENU:(4)"RUN MENU" ****************** MODIFIED BY ** TOM McCORD ** EDUCATIONAL ** MEDIA *** SERVICES *A***************** LEVEL 26 10-FEB-830MATHEMATICS DRILLHBY RICHARD PITCHKAeMODIFIED:SHAUN MC EVOY ::9:X140:"*";:::16)"MATH LEVEL 25"::X140:"*";::X12400::!570"#17:"WHAT'S YOUR NAME? ";N$:(N$)035::130 (INPUT SUBROUTINE\ -" ";Q$:(Q$)055:QL1(Q$):(Q$,QL,1)"O"50::Q(Q$):QX(0): 2::"USE ZERO IN NUMBERS,":"NOT THE LETTER O!":TM14000: 7:2:PT155,180,220,260,300,335,7100 <STRING INPUT A" ";Q$:(Q$)055:(Q$)64ġ:42=?@ABCDEFGH05 FQX(0):QL1(Q$):(Q$,QL,1)" "75::80R KQ$(Q$,QL,(Q$)QL1):w PPT155,180,220,260,300,335,7100 USELECT PROBLEM TYPE ZMS095:PT((1)6)1 _PT145,170,205,250,290,315,7000 dFIGURE & PRINT SCORE* iTPP1P2P3P4P5P6P7:TRR1R2R3R4R5R6R7:TP0TP1j nSC((TR100TP))2TRTR:1:1:L$;:28:"SCORE..."(SC): sCONTINUE OR QUIT xFL1:23:"PRESS RETURN TO CONTINUE 'ESC' TO QUIT ";:G$::G$(27)ġ:420 }FL0: NAMES OF PROBLEM TYPES> A(15):L1$"8.184 / 62":L2$"27.2 + 3.001 + .03":L3$"HRS AND MINS L4$"X WITH 10, 100, 1000":L5$".2 X 4.8":L6$"NUMBER WORDS":L7$"NOTHING":L$"LEVEL 26":NP6:85 28.8 / 4 A((1)16040):B((1)680100):E1((1)31):BB(10E1):CABG 8:4)C" / "A" = ?":::"ANSWER :";:40:P1P11:(QB).0001165:160 18:"NO...THE RIGHT ANSWER IS "B:MS2:100:115:85 :"VERY GOOD !":R1R11:MSMS1:100:115:85 ADDING DECIMALS&E1((1)31):A((1)29001000)(10E1):B((1)19010)10:C((1)991)100:DABC~8:2:A" + "B" + "C" = ?":::::"ANSWER :";:40:P2P21:(DQ).00001195:185WRONG:"NO...THE RIGHT ANSWER IS "D:MS2:100:115:85RIGHT::"VERY GOOD !":R2R21:MSMS1:100:115:85ADD HRS & MINSkH1((1)91):H2((1)91):M1((1)15020):M2((1)5010):H3H1H2:M3M1M2M360M3M360:H3H31:2156:13:H1" HRS "M1" MINS":11)"+ "H2" HRS "M2" MINS":11)"---------------":12:"HOW MANY HOURS?";:40:H4Q:D"HOW MANY MINUTES?";:40:P3P31:M4Q:M359M3M360:H3H31`M4M3H4H3240:WRONG18:"NO...THE RIGHT ANSWER IS "H3" HRS "M3" MINS":MS2:100:115:85RIGHT18:"VERY GOOD !":R3R31:MSMS1:100:115:85MULTIPLES OF 10/A((1)9991):B(10(((1)31))):CABa7:R((1)21):R1265:A" X "B" = ?":270s B" X "A" = ?10:"WHAT IS THE PRODUCT? ";:40:P4P41:QC280:WRONGMS2:13:"NO...THE RIGHT ANSWER IS "C:100:115:85RIGHT*13:MSMS1:R4R41:"VERY GOOD !":100:115:858".8 X 4.3'A((1)55):B((1)19010):E1((1)2):E2((1)3):AA(10E1):BB(10E2):CAB,6:4)A" X "B" = ?":::"ANSWER :";:40:P5P51:(QC).00001310:305118:"NO...THE RIGHT ANSWER IS "C:MS2:100:115:85M6:"VERY GOOD !":R5R51:MSMS1:100:115:85_;NUMBER WORDS@J((1)15)1:A(J)1320:A(J)1:I1J:K1$,K2$,K3$,K4$,K5$,K6$::K1CABEK1CABJ:D6D61:D613335:I115:A(I)0::D60fO6:"THE NUMERAL "K1$" AS NUMBER WORDS IS:"::" A. "K2$:" B. "K3$:" C. "K4$:" D. "K5$::"ANSWER :";:60TP6P61:(Q$,1)K6$415:410Y1005,ONE THOUSAND FIFTY,ONE THOUSAND FIVE,ONE HUNDRED FIVE,ONE HUNDRED FIFTY,BQ^76,SEVENTY,SIXTY-SEVEN,SEVENTY-SIX,SEVEN HUNDRED SIX,C,32,THIRTY-TWO,TWENTY-THREE,THIRTY,THREE HUNDRED TWENTY,Ac83,THIRTY-EIGHT,EIGHTY,EIGHT HUNDRED,EIGHTY-THREE,D,68,SIXTY-EIGHT,SIXTY,SIXTY-EIGHT HUNDRED,EIGHTY-SIX,Ah97,NINETY,NINETY-SEVEN,SEVENTY-NINE,SEVENTY HUNDRED,BFm709,SEVENTY-NINE,SEVEN HUNDRED NINETY,SEVEN HUNDRED NINE,SEVEN NINE,Cr852,EIGHT THOUSAND FIFTY-TWO,EIGHTY-FIVE TWO,EIGHT HUNDRED TWENTY-FIVE,EIGHT HUNDRED FIFTY-TWO,Dw670,SIX HUNDRED SEVENTY,SIXTY-SEVEN,SIX THOUSAND SEVENTY,SIX HUNDRED SEVEN,Ao|3013,THREE THOUSAND THREE,THREE THOUSAND THIRTEEN,THREE THOUSAND THREE HUNDRED ONE,THREE HUNDRED THIRTEEN,B1030,ONE THOUSAND THREE,ONE THOUSAND THREE HUNDRED,ONE THOUSAND THIRTY,ONE HUNDRED THREE,C15400,FIFTY-FOUR THOUSAND,FIVE THOUSAND FOUR,FIVE THOUSAND FORTY,FIVE THOUSAND FOUR HUNDRED,D9088,NINE THOUSAND EIGHTY-EIGHT,NINETY EIGHTY-EIGHT,NINETY THOUSAND EIGHTY EIGHT,NINETY HUNDRED EIGHT,A9808,NINETY-EIGHT THOUSAND EIGHT,NINE THOUSAND EIGHT HUNDRED EIGHT,NINETY-EIGHT EIGHT,NINE HUNDRED EIGHT HUNDRED EIGHT,B7440,SEVEN THOUSAND FORTY-FOUR,SEVEN HUNDRED FORTY-FOUR,SEVEN THOUSAND FOUR HUNDRED FORTY,SEVENTY-FOUR HUNDRED FOUR,C16:"NO...THE RIGHT ANSWER IS "K6$:MS2:100:115:8516:"VERY GOOD !":R6R61:MSMS1:100:115:85 DISPLAY WORK RECORD`AP$"ATTEMPTED....":CR$"CORRECT......":N$;:30:L$::L1$4:AP$P1;:22:CR$R1:NP2445:L2$:4:AP$P2;:22:CR$R2:NP3445:L3$:4:AP$P3;:22:CR$R3:NP4445:L4$F4:AP$P4;:22:CR$R4:NP5445:L5$:4:AP$P5;:22:CR$R5:NP6445:L6$:4:AP$P6;:22:CR$R6:NP7445:L7$`4:AP$P7;:22:CR$R7:"TOTAL PROBLEMS ATTEMPTED.........."TP:"TOTAL PROBLEMS CORRECT............"TR:TP0TP1:"PERCENTAGE RIGHT.................."(TR100TP.5)"%U23:"PRESS RETURN TO CONTINUE 'ESC' TO QUIT ";:G$::G$(27)470:FL1FL0:85~PT155,180,220,260,300,335,7100:85RETURN TO MENU:(4)"RUN MENU2" ****************** MODIFIED BY ** TOM McCORD * * EDUCATIONAL *#* MEDIA *:* SERVICES *Q*****************:16368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$:Z$(27)ıD(4)"RUN MENU2"1000:10'(42(A$))2:A$:/ :Y<" SHOWS HOW THE GAMBLER IS RUINED"F"EVEN IF THE ODDS ARE 'FAIR'...THAT IS,"P"EVEN IF HOUSE PERCENT IS CLOSE TO ZERO."Z" THE PLAYER'S NET GAIN OR LOSS" d"IS PLOTTED AFTER EACH PLAY." n5 x" HERE ARE SUGGESTED STARTING VALUES:"Y " HOUSE FUNDS: $1000} " HOUSE PERCENTAGE: 5 " " PLAYER'S FUNDS: $25 " ODDS(E.G. 9 TO 1): 9" " SIZE OF BET: $1 PFı( FLĢ23::A$"PIKLMNOPRESS A KEY":5::49152,128:49168,0:S "NOW ENTER THESE VALUES OR YOUR OWN:"w " HOUSE FUNDS: $";RH " HOUSE PERCENTAGE: ";HPCT " PLAYER'S FUNDS: $";RP RP100ĺ"SORRY......":"WE DON'T ALLOW YOU LOSE MORE THAN $100.":2203 " ODDS: ";ODDSf PW((1(HPCT100))1000(1(ODDS1)).5)1000 " (PROB. OF WIN IS: ";PW " SIZE OF BET: $";B  6RRP @HRH JPPW TPABODDS ^J1100 h:3 r0,00,159 |0,50200,50' 205,25225,25: 215,15215,35M 205,65225,65b 0,50R200,50Rj 22 10)"YOU ARE : $" LOOP1100 PLAY(1) PLAYPĪLL1:RHRHB:RPRPB:520 PLAYPĪWW1:RHRHPA:RPRPPA RH0İ5000:660! Y50(WPALB)) GY< Y159ĪY159J Y0ĪY0^ (50G)0İ6000s (50G)0İ6020 &22:32:50G;" " +22:19:R$ 0LOOP2,Y :NN1:FRW(WL):F(FR1000)1000 DRP0İ4000 NRP0640 PV(16384)RV127ī660XLOOP bJJl24:"YOU HAVE NOW HAD 10,000 PLAYS."~v"CASH IN YOUR CHIPS:PRESS SPACE BAR.":A$:66024"YOU ARE WIPED OUT ! PRESS SPACE BAR.":A$:" BEFORE PLAY"" -----------------" " HOUSE FUNDS: $";H("PLAYER'S FUNDS: $";RC" BET: $";B"HOUSE PERCENTAGE IS ";HPCT;" WITH ODDS ";ODDS;" TO 1.""PLAYER'S PROBABILITY OF WIN: ";P" AFTER PLAY"" -----------------""NO. OF PLAYS: ";N "NO. OF WINS: ";W4"NO. OF LOSSES: ";LP "FRACTION WON: ";Fn*"HOUSE FUNDS: $";RH4"PLAYER'S FUNDS: $";RP>HRUIN(100000(H(HR)))100000RHPCT0ĪNPHR:870\NP(R(HPCT.01).5)f"ACCORDING TO PROBABILITY THEORY,";p"YOUR PROBABILITY OF RUIN WAS ";RUINWz"WITHIN ";NP;" PLAYS.""SEE 'LADY LUCK' BY WEAVER (ANCHOR BOOKS)""DO YOU WANT TO GAMBLE AGAIN? ";A$(A$,1)"Y"101016)"VERY WISE!"Z11000:Z:(4)"RUN MENU"`::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::4:A$"ADVANTAGE COMPUTING'S":5:A$"PUBLIC DOMAIN SOFTWARE":5::A$"GAMBLER'S RUIN":5>11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"u49152,128:K(49152)128:49168,0:K48K521005A((K)):A3ıA1A2FL1A10,1050,0,1030FL0::1000:(4)"RUN MENU"Q32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."49152,128:K(49152)128:49168,0:K80K811055$K81ı)PF1:(4)"PR#1":10:PF0:(4)"PR#0":FQ1100TN(16336)FQ::1018)"LUCKY YOU !"::=10)"YOU BROKE THE HOUSE !"::::"(BUT ONLY BECAUSE IT WAS LOW IN FUNDS...THIS TIME.)"Z12500:ZpR$"LOSING "zR$"WINNING"6000::3000F4:IG%G%5:B%3,B%9I::X%B%Z13:I15(2)A%39(1):16000:B%,A%)12A%06AA%1:BA%1:CB%3B%:A,BC:::8:I1(11(1)5):A2(1):B%25(1)7:C025:B%,C)12AAC:C25:12 C:I: B%,A:C:Ik I1(11(1)5):A2(1):B%25(1)7:C39141:B%,C)12ACA:C14:15w C:I: B%,A:C:I: PL2:C(1)1:D(1)0:X(1)1:Y(1)18:C(2)2:D(2)0:X(2)1:Y(2)18:C(1):X(1),Y(1):SC(11(1))5::N$(1)"FRED":N$(2)"QSTUVWXYZ[\]^_`abcdefghijPESTO":1000( WT((1)6)1:WT5ı 600:W%(2)(1)39:W%(1),W%(2))15W%(1),W%(2))4W%(1),W%(2))12W%(1)31W%(2)3321 A2(1)5:B2(1)5:C3(1)6 2:W%(1)1,W%(1)AW%(2):W%(1)1,W%(1)AW%(2)B1:X1B:W%(1),W%(1)CW%(2)X:X:> I(G%1)(4(1)):J(X%4)(5(1)):I,J)425Y 15:I,J:H(1)I:H(2)Jm (R(1)6:R5ı )R4(1)31:I039:B(1):B.33RR1:R0R0 +B.66RR1:R39R39 ,R,I)12Ġ2:R,I:: -: 2B1:C2(1):C1B1 3HC(Z)1060 4HC(Z)18580 5C.5C1.562M 6ANAN(HC(Z)(1)B):62_ :C.89C162y ;ANAN(20B(1)):62 <C.39C1.662 =ANAN(10(1)B):C(1):C.99ANAN(10(1)B) >C0:L9CL:L1CL2:L(LWO((HC(Z)1)2))(1):L266 ?ANAN(CB) @CL772@ BAN45AN136ANAN(4WI(2))e CAN136AN180ANAN(4WI(1)) DAN180AN225ANAN(4WI(1)) EAN225AN315ANAN(4WI(2)) FAN315ANAN(4WI(1)) GAN45ANAN(4WI(1)) HAN(Z)AN:ZDI0:ID15:DW19:B2(1):B1B1)[B1B1P\AN(Z)45IDIDWI(2):DWDWWI(2)]AN(Z)45AN(Z)136IDIDWI(1):DWDWWI(1)^AN(Z)136AN(Z)180IDIDWI(2):DWDWWI(2)_AN(Z)180AN(Z)225IDIDWI(2):DWDWWI(2)`AN(Z)225AN(Z)315IDIDWI(1):DWDWWI(1)>aAN(Z)315IDIDWI(2):DWDWWI(2)mbC((HC(Z)1)2)(1):C3C7CC(2(1))}cCL7ID15dDI(ID(CL(159))(SW10)):WO0DI(DW(2CL)(SW10))fHC(Z)5B1hDIDI(CB)jWG0(CL5WO0)DIDIWG)lSA(Z)CLDIDI(2(SA(Z)CL)(2B(1)))5mSA(Z)0OnQ0:RO(Z)2Q5(1)eoRO(Z)0Q3(1)pRO(Z)0:DI(DIQ)(10SC):I(2DI3)IDI:210WO1I(8(2CL))IX(Z)DI1:210WO0I(7CL)IDI:210 J12:"":N014:Q(16336)::::APY:1050a,WG0:WI(1)0:WI(2)0:WI305,310,315,320,325,330,335,340,3451370:"THE WIND IS ";:365:" FROM THE NORTH.":WI(2)WI:6370:"THE WIND IS ";:365:" FROM THE NORTHEAST":WI(1)WI:WI(2)WI:(;370:"THE WIND IS ";:365:" FROM THE EAST.":WI(1)WI:t@370:"THE WIND IS ";:365:" FROM THE SOUTHEAST":WI(1)WI:WI(2)WI:E370:"THE WIND IS ";:365:" FROM THE SOUTH.":WI(2)WI:J370:"THE WIND IS ";:365:" FROM THE SOUTHWEST":WI(1)WI:WI(2)WI:;O370:"THE WIND IS ";:365:" FROM THE WEST.":WI(1)WI:T370:"THE WIND IS ";:365:" FROM THE NORTHWEST":WI(1)WI:WI(2)WI:Y"IT'S RAINING LIGHTLY":WG1:WI(1)1:mWI0ĺ"CALM"::nWI1ĺ"LIGHT";:oWI2ĺ"MODERATE";:p"STRONG";:"rWI7(1)2:WI1WI01sWI3WI3@tWI(WI):34,20:SA(Z)9(1)1:SA(Z)402,404,406,408,410,412,414,416,418N$(Z);"'S BALL IS SITTING HIGH":N$(Z);"'S BALL IS SITTING LOW ":N$(Z);"'S BALL IS SITTING VERY LOW":*N$(Z);"'S BALL IS LOW, NEAR THE LIP":[N$(Z);"'S BALL IS VERY LOW, NEAR THE LIP":N$(Z);"'S BALL IS PARTLY COVERED":N$(Z);"'S BALL IS COMPLETELY COVERED":N$(Z);"'S BALL IS BURIED.": N$(Z);"'S BALL IS BURIED IN THE LIP OF THE BUNKER":'"KERSPLASH"iN$(Z);"'S BALL IS IN THE DRINK.":"ONE STROKE PENALTY.":WB$G115:G21:2:X,Y:G%1G115:G21TXG1:T1T1LXTG2:L,Y)2O1Ă:507XL:O1:DX,Y):ST(Z)ST(Z)1: XG%1W%(1)(1)30:#]W%(1)8(1)30:CS1:34,20::(17):"WOODS":"1=270 YARDS 2=240 YARDS":"3=210 YARDS 4=175 YARDS":" ALL OTHERS HIT AS IRONS";:WB$:_(17):"IRONS":"1=220 YARDS 2=205 YARDS 3=190 YARDS":"4=175 YARDS 5=160 YARDS 6=145 YARDS":"7=130 YARDS 8=115 YARDS 9=100 YARDS";:WB$::1001jI6ıF(1):I16F.05XXA:I15F.1XXAI6ıF(1):I16F.05YYB:I15F.1YYB: HL810,820,830,840%*BA6(1):BA2SC5(1)2:7.SC73(1):Y4BA6(1):BA4SC5(1)2:k6SC75(1):>BA6(1):BA5SC11(1)4:@BA1SC5(1)2:BSC75(1):HBA6(1):BA.5SC6(1)2:JBA5SC10(1)4:LSC9(1)3:!Z1PL:OG(Z)1ī1085`W%(X(Z)H(1)):K%(Y(Z)H(2)):W((((W%2)(K%2)))SC)sST(1)0İ2500N$(Z);"'S TURN.":"YOU ARE ";(W);" YARDS FROM THE PIN."C(Z):X(Z),Y(Z)WI9(1)1:30034,23"WOOD, IRON, OR CADDIE (W/I/C)";CL$&CL$"C"CS1650HCS0:"WHICH NUMBER?(1-9)";CLWCL02800|WO0:CL$"W"WO5CL:WO1WO0:CL9(ST(Z)0CL$"W"CL1)ĺ"CAN'T USE THAT CLUB!!":1011"DIRECTION?(0-360 DEGREES)";AN:50:AN(AN23.1415928)360:XI(AN):YI(AN)(AP0AP09AP39AP39u"HOW HARD WILL YOU SWING?(0-100%) ";SW$:(SW$)01009SW(SW$):SW90SW50(80(1)1)34,20 90:C0:C(Z):DD(Z):I1DI:XX(Z)XI:YY(Z)YI:X0X0 X39X39 Y0Y0Y39Y394(X)(X(Z))(Y)(Y(Z))1046QD(Z)D:DX,Y):D8İ200hD0RO(Z)RO(Z)1D(Z):X(Z),Y(Z):C(Z):X,Y:X(Z)X:Y(Z)Y:I D2İ500!O0$X(Z)X:Y(Z)Y:D(Z)D')ST(Z)ST(Z)1:D(Z)4D(Z)15ĺN$(Z);" IS ON THE GREEN IN ";ST(Z);" STROKES":OG(Z)1:2000S,D(Z)0ĺN$(Z);" IS IN THE ROUGH":1070_-RO(Z)0.D(Z)13ĺN$(Z);" IS IN THE ";:"";:I014:X(16336)::"SANDTRAP!":400=F0:G1PL:FFOG(G)::FPLZPL:Z:1500BWB$:Z:1000LWB$:1000`:12:I039:0,39I::0:I2021:20,21I::I1PL:IH(I)1ĠC(I):X(I),Y(I)::1505fZ1PL:IH(Z)1ĂZ:1650C(Z):X(Z),Y(Z) N$(Z);"'S PUTT.":"DIRECTION?(0-360 DEGREES)";AN:AN(AN23.1415928)360:XI(AN):YI(AN)! A1:B1:C%2(1):C%1A1: C%2(9):C%1B1 "HOW HARD WILL YOU HIT IT?(0-100%)";HP$:HP(HP$)(40100):KHP23:(HP$)11510 D(Z)4:I1HP:XX(Z)XI:YY(Z)YI 700 X0X0 X39X39 750 Y0Y0!Y39Y39'!(X)(X(Z))(Y)(Y(Z))1535c!DX,Y):D0IKIH(Z)1:D(Z):X(Z),Y(Z):10000:1600!D(Z):X(Z),Y(Z):C(Z):X,Y:D(Z)D:X(Z)X:Y(Z)Y!:I!@ST(Z)ST(Z)1:Z:1505!rF0:J1PL:FFIH(J)::FPL1505)"Z1PL:SC(Z,GH)ST(Z):TS(Z)TS(Z)ST(Z):ST(Z)0:IH(Z)0:OG(Z)0:8"GH91716u"GH10ĉ::"HOLE";:I19:(8(3I)):I;::(38):"T":""PAR";:I19:(8(3I)):PA(I);::(38):TP:"I139:"-";::: #P1PL:(N$(P),9);:I19:(8(3I)):SC(P,I);:I:(38):TS(P)::PI#GH9ĺ"WOULD YOU LIKE TO PLAY THE BACK NINE?":PB$:2800\#WB$:T1%0:GH#K0:::"HOLE";:I1018:KK3:(8K):I;::(38):"T":#K0:"PAR";:I1018:KK3:(8K):PA(I);::(38):TP:#I139:"-";:::D$P1PL:K0:(N$(P),9);:I1018:KK3:(8K):SC(P,I);:I:(38):TS(P)::P:K0W$WB$:T1%0:GH]$$F1000(1):K(D(Z)15)(4DI):FKĺ"";N$(Z);"'S SHOT DROPPED IN!!":IH(Z)1$D(Z):X(Z),Y(Z)"%FX(Z)H(1):KY(Z)H(2):KK15:FF15:X(Z)20F:Y(Z)20K:X(Z)39X(Z)39:%X(Z)0X(Z)5(1)O%Y(Z)39Y(Z)39g%Y(Z)0Y(Z)5(1)m%%MVE(1)X(Z)DI:VE(2)AP:(VE(2)Y(Z))(VE(1)X(Z)2160%W90:C0:C(Z):DD(Z):INAPY(Z):MX(Z)DI:M38M38%Y(DI)1ININ(DI)6&\IX(Z)MV:XIV:YY(Z):CCIN:(C)1YY(Z)C:C0S&aD(Z)D:DX,Y):D8İ200j&bD0RO(Z)RO(Z)1&fD(Z):X(Z),Y(Z):C(Z):X,Y:X(Z)X:Y(Z)Y:I&kYAPĠD:X,Y:C(Z):YAP:DX,Y):X,Y&lD2İ500&mO0& W251PA(GH)3 ' W250W471PA(GH)4' W470PA(GH)51' TPTPPA(GH):C' PB$"Y"1715Y' :(4)"RUN MENU"' :"# OF PLAYERS";PL:N$(PL):I1PL:"NAME?";N$(I):"HANDICAP?(0-30)";HC(I):' PA(18):SC(PL,18):HL(18)[( :"(1) MAGENTA (9) ORANGE":"(3) PURPLE (10) GREY":"(5) GREY (11) PINK":"(6) BLUE (14) AQUA"( ::I1PL:"WHAT COLOR BALL WILL ";N$(I);" USE";:C(I):0) "WHAT SIZE COURSE DO YOU WANT TO PLAY?":"1) PITCH & PUTT":"2) SHORT COURSE":"3) REGULATION":"4) THE MONSTER":"ENTER A NUMBER";HL:HL4HL4I) GH118:4000:1000):I12(1)1:I5000,5050,5100,5150,5200,5250,5300,5350,5400,5450,5500,5550)800:4:8:20:40:25:I1PL:X(I)T1%:Y(I)T%::)-*12:I732:0,39I::VD%(1)2:VD%1B%10(11(1)):T%9(1)21:G%32:4010`*B%10(11(1)):G%1:T%9(1)21:T1%39:4010*12:I1326:0,18I::I1030:19,39I::VD%(1)2:VD%1B%9(17(1)):T%15(1)11:G%32:4010*B%5(1)17:G%1:T%12(1)16:T1%39:4010p+C0:12:I016:0,14I::I1739:CC.49:C,C14I::VD%(1)2:VD%1B%9(14(1)):T%2(1)12:G%32:4010+B%(1)12:G%1:T1%39:T%12(1)10:4010,B0:12:I039:BB1:SB3:S,S15I::I2839:13,39I::B%20((1)10):T%2(1)12:G%32:4010h,P12:S40:I039:SS.33:S17,SI::I2939:0,26I::B%(1)6:T%24(1)13:G%32:4010,12:C25:I025:CC.49:C,C14I::I2639:12,26I::VD%(1)2:VD%1B%4(1)21:T%27(1)10:G%32:4010-B%17(1)13:T1%39:T%14(1)10:G%1:4010j-12:I039:10,30I::B%4(1)20:T%12(1)16:VD%(1)2:VD%1G%1:T1%39:4010z-G%32:4010-12:I019:I,I20I::I2039:19,39I::VD%(1)2:VD%1B%14(1)15:G%32:T%2(1)16:4010.B%(1)16:G%1:T1%39:T%21(1)16:4010z.12:S40:I3901:SS.33:S17,SI::I010:0,26I::B%(1)6:T%24(1)13:G%1:T1%39:4010.JB0:12:I3901:BB1:SB3:S,S15I::I011:13,39I::B%20((1)10):T%2(1)12:G%1:T1%39:4010L/|12:C0:I039:CC.49:C,C20I::VD%(1)2:VD%1G%32:T%2(1)16:B%18(1)11:4010{/T1%39:T%21(1)16:G%1:B%(1)15:4010/12:C39:I039:CC.49:C19,CI::VD%(1)2:VD%1G%32:T%21(1)16:B%(1)14:4010 0T1%39:T%2(1)16:G%1:B%18(1)11:4010$0o(42(A$))2:A$:v0p::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::0q4:A$"ADVANTAGE COMPUTING'S":5999:0rA$"PUBLIC DOMAIN SOFTWARE":5999::A$"GOLF III":5999W1s11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"1u49152,128:K(49152)128:49168,0:K48K5260051vA((K)):A3ı1wA1ĉ:1xA15000,6050,0,60301:60001:(4)"RUN MENU"c232,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."249152,128:K(49152)128:49168,0:K80K8160552K81ı2PF1:(4)"PR#1":::15000:PF0:(4)"PR#0":28(42(A$))2:A$:%3'K120:J14:X(16336)::F1300K:::3:"THERE ARE A FEW THINGS YOU SHOULD KNOW":"ABOUT THIS GOLF GAME. IF YOU ARE":"UNFAMILIAR WITH GOLFING, HERE IS A":"CHART OF CLUB/DISTANCE RELATIONSHIPS."3:&4:(7):(3):"WOODS"::"1) 270 YARDS":"2) 240 YARDS":"3) 210 YARDS":"4) 175 YARDS"X4:"5) 150 YARDS":"ALL OTHERS HIT":"AS IRONS"4:(7):(25):"IRONS"::(22):"1) 220 YARDS":(22):"2) 205 YARDS":(22):"3) 190 YARDS":(22):"4) 175 YARDS":(22):"5) 160 YARDS"O5:(22):"6) 145 YARDS":(22):"7) 130 YARDS":(22):"8) 115 YARDS":(22):"9) 100 YARDS":(22):"AND UNDER"]5:PF150305:(23):(8):"HIT ANY KEY TO CONTINUE":WB$:6::"THOSE DISTANCES WILL, OF COURSE, VARY":"WITH THE EFFECTS OF WIND AND HANDICAP,":"THE PLAYER SKILL LEVERL."6::"FOR ALL PURPOSES WITHIN THE GAME THE":"TOP OF THE SCREEN IS NORTH, AND ITS":"DIRECTION IS 0 DEGREES WHEN YOU HIT.":)7:"UNTIL YOU GET THE HANG OF THE GAME WE":"RECOMMEND THAT YOU PLAY AS A SCRATCH,":"OR 0 HANDICAP GOLFER. THE UPPER REACHES":"OF THE HANDICAP ARE UNPREDICTABLE."77:PF15039h7:(23):(8):"HIT ANY KEY TO CONTINUE":WB$:7:"AN ATTEMPT TO OVERSWING A GOLF CLUB ":"WILL CAUSE AN ERRATIC RESULT. THIS IS":"REFLECTED IN THIS GAME. THE HARDEST"]8:"YOU CAN SWING A CLUB AND ACHIEVE A ":"PREDICTABLE RESULT IS 90%. ANY SWING":"OVER 90% WILL EFFECT YOUR SHOT."8:"AN OVERSWING MAY END IN A SPECTACULAR":"SHOT, BUT IT IS JUST AS LIKELY TO BRING":"DISASTER."#9::"IF YOU WISH TO CHANGE THE DIRECTION":"OR YOUR CHOICE OF CLUB, ENTER 0 AS THE":"SWING."-9:PFıT9::"TO QUIT, ENTER 0 AS YOUR CLUB"9::"GOOD LUCK AND GOOD GOLF":23::A$"PRESS A KEY":6200::49152,128:49168,0:9>G%1B%4(1)20:9>B%(1)2020:2000:10'(42(A$))2:A$:= LOGIC PRACTICEV DELORES LETENDRE c k(70224:"PRESS TO GO ON, TO END ";<IN$:(IN$)160:(IN$)(27)1550:(IN$)1360::F:PZ d VARIABLE NAMESL n NC=NUMBER CORRECT, SA=STUDENT ANSWER, CA=CORRECT ANSWER, PT=PRETEST x:2:"HELLO! WHAT IS YOUR NAME?";N$:N$""120& :2:"WHAT THIS PROGRAM WILL DO IS TO EXERCISEYOUR SKILLS IN LOGIC. HOW WELL CAN YOU PUT BITS OF INFORMATION TOGETHER? WHAkmnopqrstuvwxyz{|}~T KINDS OF CONCLUSIONS CAN YOU MAKE? :"IT IS EXTREMELY IMPORTANT TO USE ONLY THE INFORMATION THAT IS GIVEN TO YOU ANDTHEN CHOOSE THE RESPONSE THAT IS BASED ON THAT INFORMATION. :"REMEMBER TO ASSUME NOTHING!":50H :2:"READ THE STATEMENT, THEN PRESS THE KEY FOR THE ANSWER YOU CHOOSE. READY WHEN YOU ARE! 50::10:"PLEASE WAIT ONE MOMENT...": PROGRAM DATA TO BE LOADED N40:NC0:PT0:Q$(N),CA$(N),A$(N),B$(N),C$(N),D$(N),PT(40):I140 Q$(I):I: PROGRAM QUESTIONS^ "BETH WILL EITHER DRIVE TO NEW YORK OR VACATION IN ARIZONA. SHE VACATIONED IN ARIZONA. "JENNY WILL EITHER JOIN THE GIRL'S CRAFT OR PLAY ON THE SOFTBALL TEAM. SHE MADE SIX HOMERUNS.M "EITHER WE GO TO THE STORE AND PURCHASE SOME GAMES FOR OUTSIDE OR STAY INSIDE AND HAVE NO FUN. IT RAINED AND WE COULDNOT GO OUT "EITHER NORMAN WILL WORK ON HIS SCIENCE PROJECT OR HE WILL GO TO THE MOVIES. HEDID NOT BUY A THEATER TICKET.0 "IF EVERY STUDENT IN THE CLASS PASSED THETEST AND DAVID IS IN THE CLASS, THEN DAVID PASSED THE TEST. "IF JACK COMPLETES HIS ASSIGNMENTS, THEN HE MAY HAVE FREE TIME. JACK DOES NOT COMPLETE HIS WORK. "IF JEANNE RECOMMENDS THE BOOK, THEN FRIENDS WILL READ IT. THEY NEVER DID HEAR ABOUT IT.y "MR. TARBET NOTICED THAT HIS LAWN MOWER WAS NOT CUTTING THE GRASS. THE CLERK SAID THE LABOR CHARGE WAS $20.00 "THE P.E. COACH MARKED THE FIELD WITH WHITE LINES. THE SPORTING EVENTS WERE DELAYED THE NEXT DAY FOR AN HOUR.q" "THE STUDENTS WERE PLAYING A ROUGH GAME OF RED ROVER. YESTERDAY, DONALD CAME BACK TO SCHOOL WITH HIS ARM IN A SLING., "EITHER AUNT CAROL SEWS HER OWN CLOTHES, OR ORDERS FROM A CATALOG. SHE CREATED A NEW STYLE JACKET.O6 "EITHER UNCLE ARTHUR WILL REPAIR THE ENGINE, OR WE'LL BUY ANOTHER CAR. UNCLEARTHUR REPAIRED THE ENGINE.@ "EITHER SALLY DANCES IN THE RECITAL OR SHE'LL PLAY THE VIOLIN. THE VIOLIN COULD NOT BE FIXED IN TIME.+J "EITHER JIM WILL VISIT CANADA THIS SUMMEROR HE WILL GO TO SUMMER SCHOOL. HE DOESNOT VISIT CANADA.T "FRANK WILL EITHER STRIKE WITH HIS CO- WORKERS, OR HE'LL TAKE A VACATION. HE ENJOYED BEING A TOURIST.^ "ED WILL EITHER RACE THE 20 FT. SCHOONER,OR HELP MAN THE 30 FT. YACHT. HIS ASSISTANCE WAS GREATLY APPRECIATED.h "EITHER CARL EATS BREAKFAST NOW OR HE'LL HAVE TO WAIT UNTIL 2 O'CLOCK. CARL DECIDED TO NEVER SKIP HIS MORNING MEAL AGAIN.Pr "MARGARET WILL EITHER TRADE COINS WITH THE COLLECTOR, OR KEEP THEM AND SELL LATER TO SEE IF THE VALUE OF THE COINS INCREASES. HER DECISION NETTED HER $35.00 MORE.| "MOM WILL EITHER PAINT THE KITCHEN YELLOWWITH WHITE BORDERS, OR HAVE DAD PUT IN A BRICK DESIGN. THE REDDISH TONES DID NOT MATCH WITH THE APPLIANCES. "THE SODA WILL EITHER STAY CARBONATED IF THE COVER IS TIGHT, OR LOSE ITS FIZZ IN A SHORT AMOUNT OF TIME. ROBBIE WONDEREDWHY THERE WERE NO BUBBLES WHEN HE POUREDHIS DRINK.  "IF ALL SCHOOLS HAVE A TEACHER AND MISS BARNES WORKS IN THE SCHOOL, THEN MISS BARNES IS A TEACHER.z "IF MARK MISSED A MOVIE AND MARY MISSED THE SATURDAY MOVIE, THEN MARK AND MARY MISSED THE SAME MOVIE. "IF IT SNOWED SIX DAYS ONE WEEK AND IT DID NOT SNOW ON THAT THURSDAY THEN IT DID SNOW ON THAT SATURDAY.M "IF JEFF IS SHORTER THAN MARY AND MARY ISSHORTER THAN TOM, THEN JEFF IS SHORTER THAN TOM. "IF THE BUS LEAVES AT 7 O'CLOCK, THEN WE'LL ARRIVE AT 11 O'CLOCK. WE ARRIVED AT TWELVE THIRTY.K "IF OUR BASEBALL TEAM WINS MONDAY'S GAME,THEN THEY'LL PLAY IN SATURDAY'S FINALS. THAY'VE BEEN PRACTICING EARLY EVERY MORNING SINCE MONDAY. "IF THERE WERE MORE THAN 250 CHILDREN BY 2 O'CLOCK AND MORE THAN 300 BY 4 O'CLOCK, THEN THERE COULD HAVE BEEN ONLY 225 BY 3 O'CLOCK.O "IF THE STREET IS CROWDED WITH PEOPLE, THEN TRAFFIC WILL SLOW DOWN. THE CARS WERE BUMPER TO BUMPER. "IF MRS. CLARK WINS AN HONOR, THEN SHE WILL HAVE USED AN OLD FAMILY RECIPE IN THE BAKING CONTEST. SHE DISPLAYED THE RIBBON ON THE KITCHEN WALL.J "IF MR. JOHNSON WEARS A BADGE, THEN HE IS A POLICEMAN. HE IS NOT A POLICE OFFICER. "THE TRAFFIC ALWAYS CAME TO A STOP DAY AFTER DAY. THE DRIVERS WERE SATISFIED WITH FINALLY GETTING A NEW ROUTE.( "ROBERT EVENTUALLY BEAT HIS TENNIS OPPONENT. THE INSTRUCTOR PATTED ROBERT ON THE BACK.| "MRS. BROWN TRIED TO CONTACT HER BOSS. THE PHONE REPAIRMAN ARRIVED AT NOON.  "THE PLANT WAS BRIGHT GREEN AND THE LEAVES SHINY AND FIRM. THE LEAVES OF THE PLANT BEGAN TO FALL OFF AND THE SOIL WAS DRY. "CAROL WILL BE 11 ON HER NEXT BIRTHDAY. ROBERT WAS 11 ON HIS LAST BIRTHDAY. RUTH'S BIRTHDAY COMES BEFORE CAROL'S AND AFTER ROBERT'S. IS RUTH NOW 11?& "LOUISE RECOMMENDED THE ALBUM TO SOME PEOPLE. THEY LISTENED AND THEN BOUGHT A COPY.0 "MRS. BRACKEN DISCOVERED THAT THE OVEN WOULDN'T HEAT. SHE ASKED MR. WILSON FOR HOW MUCH SHE SHOULD WRITE THE CHECK.: "BILLY WAS LONELY AND HE WANTED A PET WITH WHICH TO PLAY. HE PROMISED TO ALWAYS TAKE CARE OF TAFFY.D "THE FALCONS WERE AHEAD BY 6 POINTS. WHEN THE BUZZER WENT OFF, THEY AGREED THAT THEY HAD ALL TRIED THEIR BEST. DID THEY LOSE?N "GINGER SPENT HOURS WORKING ON AN EXPER- IMENT. IT WAS PUT ON SPECIAL EXHIBITIONIN THE AUDITORIUM.(XI140:A$(I):I: CHOICE 'A' RESPONSES b "SHE FLEW TO NEW YORK","SHE PLAYED ON THE SOFTBALL TEAM","WE WATCHED TELEVISION","HE HAD NO MONEY","YESN l "HE WILL NOT BE REWARDED FREE TIME","JEANNE ENJOYED THE BOOK","MR. TARBET FIXED THE EQUIPMENT","A WINDSTORM DESTROYED THE MARKINGS","DONALD PLAYED RED ROVER AND WAS HURT v "THE CLOTHES IN THE BOOK WERE TOO EXPENSIVE","IT COST $400 TO REPAIR","SHE DANCED IN THE RECITAL","THE CAR BROKE DOWN","HE WENT TO THE COAST! "HE WAS AFRAID TO RACE ALONE","CARL WAITED","SHE THOUGHT IT WASN'T A FAIR TRADE","SHE DID NOT USE THE YELLOW PAINT","THE COVER WAS NOT ON PROPERLY! YES, YES, YES, CAN'T TELL, THE BUS HAD AN ACCIDENT D" THEY WON THE FINALS, THIS EVENT TOOK PLACE AT SCHOOL,THERE WERE PEOPLE EVERYWHERE, SHE WON THIRD PLACE, MR. JOHNSON WEARS A BADGE" THERE WAS AN ACCIDENT, ROBERT'S LESSONS WERE SUCCESSFUL, THE PHONE WAS OUT OF ORDER, IT WAS TIRED, YES$# THEY ENJOYED THE MUSIC, THE OVEN WAS REPAIRED, HE DIDN'T HAVE ANY FRIENDS, YES, THE EXPERIMENT WAS A SUCCESSQ#I140:B$(I):I: CHOICE 'B' RESPONSES# BETH DID NOT DRIVE TO NEW YORK,SHE DIDN'T JOIN THE SCOUTS,WE HAD NO FUN,HE'LL WORK ON THE SCIENCE PROJECT,CAN'T TELL$ JACK WILL RECEIVE A PUNISHMENT, JEANNE DID NOT RECOMMEND THE BOOK,"MR. TARBET HAD THE MOWER REPAIRED BY SOMEONE ELSE", STUDENTS WERE ANGRY, DON'T KNOW IF HE PLAYED RED ROVER+% "AUNT CAROL SEWS HER CHILDREN'S CLOTHES", UNCLE ARTHUR IS A CARPENTER, VIOLIN PLAYING IS BORING, HE GOES TO SUMMER SCHOOL, HIS CO-WORKERS WERE ANGRY% HE DIDN'T RACE ALONE, HE DIDN'T LIKE BREAKFAST, THE COLLECTOR SAID 'NOW OR NEVER', THE KITCHEN WAS NOT PAINTED YELLOW, IT WAS LEFT OUT FOR HOURS#& CAN'T TELL, CAN'T TELL, CAN'T TELL, JEFF DOESN'T LIKE BEING SHORT, HE LEFT AT EIGHT FORTY & THEY'LL PLAY IN SATURDAY'S FINALS,NOT TRUE,"THERE WERE ONLY A FEW PEOPLE WANDERING AROUND", IT WAS HER GRANDMOTHER'S RECIPE,MR. JOHNSON DOES NOT WEAR A BADGEa' "THE DRIVERS WERE NOT SATISFIED WITH THE SITUATION", HIS OPPONENT WAS A POOR PLAYER, HER BOSS FIRED HER, IT NEEDED TO BE WATERED, NO' THE ALBUM WAS ON SALE, HER CAKE WAS RUINED, HE WAS GIVEN A DOG, NO,"HER MOM FELT GOOD ABOUT WHAT GINGER WAS DOING'  CHOICE 'C' RESPONSES(I140:C$(I):Iw(  BETH DID NEITHER,"JENNY WAS TOO OLD FOR THE GIRL'S CLUB",WE HAD FUN,HE STUDIED A REPORT,NO)* HE DOESN'T CARE,IT WAS A BORING BOOK,"IT WASN'T WORTH THE MONEY TO HAVE IT FIXED",THE COACH HAD TO RE-MARK THE FIELD,HIS ARM WAS FRACTURED)4 SHE DID NOT ORDER FROM THE CATALOG, CAN'T TELL,"SHE DOESN'T REALLY LIKE PLAYING THE VIOLIN", HE DID NEITHER, HE DID NOT STRIKEG*> THEY LOST THE RACE, WAITING WAS A PUNISHMENT, SHE DIDN'T TRADE,"DAD PAINTED THE APPLIANCES TO MATCH THE BRICK","ROBBIE WAS UPSET WITH WHOEVER LEFT IT OUT++H NO, NO, NO, YES, CAN'T TELL,"THE COACH BELIEVES IN PRACTICE NO MATTER WHAT","THERE WERE ACTUALLY 283 STUDENTS BY 3 O'CLOCK",THE TRAFFIC SIGNAL WASN'T WORKING,THE RECIPE WAS A SUCCESS, HE DOESN'T WEAR A UNIFORM+R TRAFFIC NEVER CAME TO A STOP AGAIN, HIS OPPONENT LET HIM WIN,"MRS. BROWN DIDN'T KNOW THE TELE- PHONE NUMBER", THAT'S WHAT IS SUPPOSSED TO HAPPEN, CAN'T TELLh,\ LOUISE IS A GOOD FRIEND, IT COULDN'T BE FIXED,"HE'D HAVE TO GIVE HIS PET LOTS OF ATTENTION", CAN'T TELL, SHE WAS MAKING A VOLCANO,f CHOICE 'D' RESPONSES,pI140:D$(I):I -z SHE ENJOYED HER TRIP,DON'T KNOW,WE PLAYED BORING GAMES,HE DIDN'T LIKE THE MOVIE THAT NIGHT,HIS GRADE WAS 83- HE FORGOT HIS BOOK,THEY WANTED TO READ IT,HE BOUGHT A NEW ONE,THEY DIDN'T REALLY NEED THE MARKINGS,HE DID IT AS A JOKE.. "SHE DIDN'T LIKE THE STYLE OF THE CLOTHES IN THE BOOK", WE WON'T BUY ANOTHER CAR, SHE'S A BETTER DANCER, CAN'T TELL, HE WANTED ANOTHER WEEK FOR VACATION. THEY WON THE RACE, HE WASN'T HUNGRY FOR BREAKFAST, THE COINS WERE RARE, MOM WAS ANGRY WITH HER DECISION, IT WASN'T SUPPOSED TO BE CARBONATED+/ SHE IS A SECRETARY, IT WAS A KING KONG SPECIAL, IT RAINED ON THURSDAY, NO, THE DRIVER DROVE SLOWLY/ "THEY PRACTICED FOUR HOURS EVERY MORNING", YES, SOMEONE GOT HURT, IT WAS A BLUEBERRY PIE, HE DIDN'T WANT TO BE A POLICEMAN+0 THEY WIDENED THE STREET, ROBERT IS A POOR PLAYER, MRS. BROWN WAS SICK, THE OWNER DIDN'T LIKE IT, RUTH WILL BE 120 IT WAS LOUD MUSIC, SHE WAS VERY ANGRY, DON'T KNOW, THE COACH WAS UPSET, IT WAS A SCHOOL PROJECT0 CORRECT RESPONSES0I140:CA$(I):I: B,A,B,B,A,A,B,B,C,B,C,D,A,B,C,B,A,C,B,A1 B,B,A,C,C,B,A,A,C,B,B,A,A,B,C,A,A,C,C,A>1 PROGRAM CHOICES AND SUBROUTINES1:2:"THERE ARE 5 CHOICES IN THIS PROGRAM":5:"A. THE PRETEST17:"B. THE EITHER OR DRILL":9:"C. THE IF THEN DRILL111:"D. THE SUBGROUPING DRILL":13:"E. NONE OF ITG221::"CHOOSE ONE (A-E) - ";:K$:K$"A"1070:K$"B"1290:K$"C"1340k2K$"D"1380:K$"E"1560:10402$ PRETEST SUBROUTINE3.:8:"HI, "N$::"THIS IS THE PRETEST PORTION OF THE"::"PROGRAM. IT CONTAINS A BIT OF EVERY-"::"THING, SO.....GOOD LUCKI3850:I110:1440:I: QUESTIONS 1,2,3,4 EITHER/OR STATEMENTSr3B QUESTIONS 5,6,7 IF/THEN STATEMENTS3L QUESTIONS 8,9,10 SUBGROUPING STATEMENTS3V COUNTER FOR PRETEST ROUTINE 4`I110:PT(I)01140:EOPT(1)PT(2)PT(3)PT(4):ITPT(5)PT(6)PT(7)&4jSGPT(8)PT(9)PT(10)b4tI::SC(1)NC:2:"'EITHER/OR' SCORE = "EO" OUT OF 4":4~EO2ĺ"PLEASE CHECK BACK WITH YOUR TEACHER FOR EXTRA HELP4EO2EO4ĺ"PLEASE TRY THE 'EITHER/OR' DRILL5EO4ĺ"GREAT JOB! TRY THE DRILL IF YOU LIKE.55:::"'IF/THEN' SCORE = "IT" OUT OF 3":n5IT2ĺ"YOU SHOULD SEE YOUR TEACHER FOR EXTRA HELP5IT2ĺ"PLEASE TRY THE 'IF/THEN' DRILL5IT3ĺ"MARVELOUS! TRY THE DRILL AS A PRACTICE5:::"SUBGROUPING SCORE = "SG" OUT OF 3":I6SG2ĺ"IT MIGHT BE BEST IF YOU ASK YOUR TEACHERFOR ANOTHER EXPLANATIONx6SG2ĺ"PLEASE TRY THE 'SUBGROUPING' DRILL6SG3ĺ"FANTASTIC! WHY DON'T YOU GIVE THE DRILL A TRY?650:1010612606 EITHER/OR ROUTINE7 :7:"HELLO,"N$::"THIS IS THE 'EITHER/OR' DRILL.Y714:"TRY YOUR BEST!!":50:NC0:I1120:1440:I:S(2)NC7:8:"THIS IS THE END OF THE EITHER OR DRILL7(12:"YOU'RE SCORE IS "S(2)10"%":50:101072 IF/THEN ROUTINE8<:7:"THIS IS THE 'IF/THEN' DRILL":::"DO YOUR BEST!":50:NC0a8FI2130:1440:I:S(3)NC::8:"THIS IS THE END OF THE IF THEN DRILL8P12:"YOU'RE SCORE IS "S(3)10"%":50:10108ZK$"NO"1510: SUBGROUPING ROUTINE 9d:8:"GREETINGS LOGIC FAN! THIS IS THE"::"START OF THE SUBGROUPING DRILL.U9n15:"BE VERY CAREFUL! SOME OF THESE"::"STATEMENTS OR TRICKY.":50x9xNC0:I3140:1440:I:S(4)NC9:8:"THIS IS THE END OF THE SUBGROUPING DRILL912:"YOU'RE SCORE IS "S(4)10"%":50:1010:K$"NO"1510: THIS IS THE QUESTION ROUTINE FOR ALL TESTSX::2:Q$(I)::"A. "A$(I)::"B. "B$(I)::"C. "C$(I)k::"D. "D$(I):21:"CHOOSE ONE (A-D) - ";:K$::21:958:21:K$CA$(I)ĺ"YEAH! GOOD CHOICE, "N$:NCNC1:PT(I)1:15006;K$"A"K$"B"K$"C"K$"D"ĺ"YOU'RE TRYING HARD, "N$:"KEEP AT IT!":PT(I)1:1500@;1460_;50:: END OF SUB-ROUTINE;:5:"THANKS FOR GIVING IT A WHIRL!":50:J140:PT(J)11540;:2:"HERE IS THE STATEMENT YOU MISSED AND ITS CORRECT RESPONSE-<::Q$(J):::"THE CORRECT RESPONSE IS "CA$(J):::1570:504<Jr<:"DO YOU REALLY WANT TO QUIT (Y/N) ";:Z$:Z$"Y"1010<:(4)"RUN MENU"<"CA$(J)"A"ĺA$(J):<,CA$(J)"B"ĺB$(J):<6CA$(J)"C"ĺC$(J):<@D$(J):4:A$"ADVANTAGE COMPUTING'S":5:=>A$"PUBLIC DOMAIN SOFTWARE":5::A$"LOGIC PRACTICE":5>11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU">49152,128:K(49152)128:49168,0:K48K522005?A((K)):A3ı?A2100,2050,0,2030(?:2000>?:(4)"RUN MENU"?32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRESS OR":"PRESS 'Q' TO ABORT."?49152,128:K(49152)128:49168,0:K80K812055? K81ı)@PF1:(4)"PR#1":2100:PF0:(4)"PR#0":@4::"THIS PROGRAM IS DESIGNED TO TEST LOGIC":"SKILLS. THERE ARE VARIOUS KINDS OF"@9"TESTS INCLUDED. IF-THEN STATEMENTS,"@>"EITHER-OR STATEMENTS, A PRETEST, AND":"SUBGROUPING."AC:"YOU WILL BE GIVEN A STATEMENT AND WILL":"BE ASKED TO DRAW A CONCLUSION FROM IT.":"YOUR CONCLUSION SHOULD BE BASED UPON":"THE STATEMENT ONLY. ASSUME NOTHING."AHPFıAM23::A$"PRESS A KEY":5::49152,128:49168,0AR 5000IP(C)IP(2)IP(3)IP(4)IP(6)IP(7)IP(8)IP(10)IP(11)IP(12)IP(13)IP(14)IP(16)IP(17)IP(18)IP(19)IP(20)IP(22)IP(23)IP(24)IP(25)IP(26)QA101WH$(30),WI$(30),WJ$(30),RE$(QA),IT$(QA),IP(26),UP(QA) LOOP1QA:REAL$(LOOP),ITZA$(LOOP):LOOP:THE PRINCE AND PRINCESS OF WALES,PEOPLE,THE GOLDEN GATE BRIDGE,A LANDMARK,RONALD WILSON REAGAN,A PERSON,THE TAJ MAHAL,A LANDMARK,SALT LAKE CITY,A PLACE WATER TOWER,A THING,THE FLORIDA KEYS,A PLACE,DWIGHT DAVID EISENHOWER,A PERSON,PEANUTS,THINGS,NORTHAMPTONSHIRE,A PLACE,SALT AND PEPPER SHAKERS,THINGS,THE OLYMPIC GAMES,AN EVENT,AIR CONDITIONER,A THING`  JOHN WESLEY HARDIN,A PERSON,SAM HOUSTON,A PERSON,CHRISTOPHER COLUMBUS,A PERSON,QUEEN ELIZABETH AND PRINCE PHILIP,PEOPLE,MARGARET THATCHER,A PERSON,SAM RAYBURN,A PERSON,JIMMY DURANTE,A PERSON,CONRAD HILTON,A PERSON REUNION ARENA,A PLACE,MANHATTAN ISLAND,A PLACE,THE EIFFEL TOWER,A LANDMARK,GINA LOLLOBRIGIDA,A PERSON,HENRY WADSWORTH LONGFELLOW,A PERSON,BENJAMIN FRANKLIN PIERCE,A FICTIONAL CHARACTER GREENLAND,A PLACE,ORBIT THE EARTH,A PHRASE,ROYAL CANADIAN MOUNTED POLICE,PEOPLE,DUTCH DOOR,A THING,SANTA FE NEW MEXICO,A PLACE,ROBERT FROST,A PERSON,PUT TWO AND TWO TOGETHER,A PHRASE,ABSENCE OF MALICE,A TITLE HIGH TIDE,A THING,MOTHER GOOSE,A FICTIONAL CHARACTER,MEASURE FOR MEASURE,A TITLE,WALKING A THIN LINE,A PHRASE,YUKON TERRITORY,A PLACE,DIANA ROSS,A PERSON,LET BYGONES BE BYGONES,A PHRASE,MAINE LOBSTER,A THING IS THERE A DOCTOR IN THE HOUSE,A PHRASE,SODOM AND GOMORRAH,PLACES,DRAFT BEER,A THING,UNIDENTIFIED FLYING OBJECT,A THING,DICK CAVETT,A PERSON,PRAISE THE LORD AND PASS THE AMMUNITION,A TITLE,TURN OVER A NEW LEAF,A PHRASE MILK CHOCOLATE,A THING,ON GOLDEN POND,A TITLE,SKINNY AS A RAIL,A PHRASE,CONGRESSIONAL RECORD,A TITLE,WHEAT GERM,A THING,FALSE ALARM,A THING,UNFINISHED BUSINESS,A PHRASE,BORN WITH A SILVER SPOON IN YOUR MOUTH,A PHRASEKMAUREEN STAPLETON,A PERSON,PARK AVENUE,A PLACE,CATSKILL MOUNTAINS,A PLACE,MERYL STREEP,A PERSON,THE STRAW THAT BROKE THE CAMEL'S BACK,A PHRASE,BIRD OF PARADISE,A THING,INSTANT COFFEE,A THINGPUMPERNICKEL BREAD,A THING,HALF A LOAF IS BETTER THAN NONE,A PHRASE,BACK TO THE SALT MINES,A PHRASE,BURLESQUE SHOW,A THING,I'M ALWAYS CHASING RAINBOWS,A PHRASE,STRAIGHT AS AN ARROW,A PHRASEJASON ROBARDS,A PERSON,OLD FAITHFUL,A LANDMARK,CHERRY BLOSSOM FESTIVAL,AN EVENT,LIVING HIGH ON THE HOG,A PHRASE,FIGHT FIRE WITH FIRE,A PHRASE,ATLANTA BRAVES,PEOPLE,CAULIFLOWER,A THING,POCKET WATCH,A THINGDON'T DRINK THE WATER,A TITLE,PILOT LIGHT,A THING,TWENTY THOUSAND LEAGUES UNDER THE SEA,A TITLE,SPENCER TRACY,A PERSON,PUEBLO COLORADO,A PLACE,DOUBLE CHIN,A THING,PIGS IN A BLANKET,THINGS,QUOTATION MARKS,THINGS FREIGHT TRAIN,A THING,DAMSEL IN DISTRESS,A PERSON,STANDING ROOM ONLY,A PHRASE,COOPERSTOWN NEW YORK,A PLACE,ASTRONAUT,AN OCCUPATION,THE STARS AND STRIPES FOREVER,A TITLE,IF AT FIRST YOU DON'T SUCCEED TRY AGAIN,A PHRASESJANE WYMAN,A PERSON,ORDER IN THE COURT,A PHRASE,SAN FRANCISCO BAY,A PLACE,REMBRANDT,A PERSON,IN ONE EAR AND OUT THE OTHER,A PHRASE,GREAT SMOKY MOUNTAINS,A PLACE,CAPITOL HILL,A PLACEYm(SET UP WHISTLE)771,162:772,1:773,142:774,2:775,3:776,169:777,4:778,141:779,1*780,3:781,142:782,0:783,3:784,32:785,31:786,3:787,174:788,2P+789,3:790,232:791,224:792,120:793,142:794,2:795,3:796,144:797,234,798,96:799,173:800,48:801,192:802,136:803,208:804,5:805,206:806,1-807,3:808,240:809,9:810,202:811,208:812,245:813,174:814,0:815,3.816,76:817,31:818,3:819,96//FL$"TNSRHLDCFPMWYBGVKQXJZ"0MV(1):LOOP124:WH$(LOOP):LOOP:750,BANKRUPT,350,250,600,400,150,200,250,400,LOSE A TURN,450,150,200,100,FREE SPIN,200,300,400,500,100,200,300,175,750n1MV(2):LOOP124:WI$(LOOP):LOOP:1000,BANKRUPT,600,250,200,1000,150,300,400,750,450,LOSE A TURN,800,150,900,250,BANKRUPT,400,550,300,200,900,200,400,3002MV(3):LOOP124:WJ$(LOOP):LOOP:2000,BANKRUPT,700,500,350,400,550,300,200,900,200,400,300,BANKRUPT,600,250,200,LOSE A TURN,350,2000,500,250,300,800,15003::96#4:5::"WHEEL OF FORTUNE":::"THIS GAME IS BASED ON THE NBC-TV GAME":"SHOW 'WHEEL OF FORTUNE.' IN THIS GAME,":"YOUR OBJECT IS TO SOLVE PUZZLES LIKE":"YOU WOULD SOLVE WHEN PLAYING 'HANGMAN.'"6"YOU EARN MONEY EACH TIME YOU GUESS":"CORRECTLY, BUT IF YOU HIT BANKRUPT', ":"YOU LOSE IT ALL!"::"VOWELS COST $250 EACH, BUT":"CONSONANTS ARE FREE.7:"IF YOU WANT THE COMPUTER TO PLAY ONE OR":"MORE OF THE THREE PLAYERS, SIMPLY TYPE":"'APPLE' AS THE PLAYERS NAME(S)."e8::"NOTE";::":THE DESCRIPTION 'A PERSON' DOES NOT":"NECESSARILY DENOTE A PROPER NAME."o9PFı<23::A$"PRESS A KEY":5200::49152,128:49168,0:`22:"THREE PLAYERS:";PL$(1),PL$(2),PL$(3)Sa(PL$(1),5)"APPLE"(PL$(2),5)"APPLE"(PL$(3),5)"APPLE"Ģ22:868:"DISPLAY ANSWERS (Y/";::"N";::") ?";:YD$:b22:868:"PRESS ANY KEY TO BEGIN...":11001cLOOP13:GT(LOOP)0:FS(LOOP)0:LOOPdPZ16:LOOP13:CASH(LOOP)0:LOOPeUL$"":GG1:G3G3 fSTST1:ST3STST3gCC1CxG2āLOOP124:WH$(LOOP)WI$(LOOP):LOOPqG3āLOOP124:WH$(LOOP)WJ$(LOOP):LOOPzPW0::"TOP MONEY IS $"MV(G)" ";:30:"PUZZLE #";PZ:34,1QQ126:IP(QQ)0:QQZT((1)QA1):REAL$REAL$(ZT):ITZA$ITZA$(ZT):UP(ZT)134%11002:UP(ZT)1t16:LOOP1(REAL$):(REAL$,LOOP,1)"@"(REAL$,LOOP,1)"["ĺ(95);:138(REAL$,LOOP,1);LOOP::23:"THE PUZZLE IS : ";::ITZA$:CST1(PL$(1),5)"APPLE"(PL$(2),5)"APPLE"(PL$(3),5)"APPLE"YD$"Y"Ģ22:RE$0CC1:C3C1P34,1:2:868:PL$(C);"'";l(PL$(C),1)"S"ĺ"S";" TURN":34,2GHESS$" "(PL$(C),5)"APPLE"1000100009000QT((1)3024)LOOP1QTPWPW1:PW25PW184:WH$(PW);" ":SPEAK(16336):SPEAK(16336)[PAUSE11.7LOOP:PAUSE:LOOPgFF(0)WH$(PW)"FREE SPIN"FS(C)FS(C)1:158(WH$(PW))AMT(WH$(PW))WH$(PW)"BANKRUPT"Č771:CASH(C)0:11000:9000:250 WH$(PW)"LOSE A TURN"250 8:868b 11:"INPUT GUESS....";:GUESS$:GUESS$(GUESS$,1):IZIT0:(37):868 (GUESS$"A"GUESS$"E"GUESS$"I"GUESS$"O"GUESS$"U")GH$"B"ĺ"YOU CAN'T DO THAT, THAT'S A VOWEL.";(7):PAUSE1400:PAUSE:(37):868:200#!GUESS$"A"GUESS$"Z"Č198:1:200-!7000!LOOP1(REAL$):(REAL$,LOOP,1)GUESS$IZIT1:16:LOOP:GU$;:198:GHESS$"B"CASH(C)CASH(C)AMT!LOOP!ZY1:11000!20:(GU$)64:GU$;:1!UL$UL$GU$!IZITIP((GU$)64)0:2602"SS115:SOUND(16336)(16336)(16336):SS"FS(C)Ģ11:"WOULD YOU LIKE TO USE A FREE SPIN CARD (Y/";::"N";::") ?";:ZZ$:"FS(C)Ģ(37):868:(37):868:ZZ$"Y"FS(C)FS(C)1:158"145 #IP(1)Ģ10:10050:"ONLY VOWELS LEFT-YOU MUST GUESS!":GHESS$"G":263`#11004:GHESS$:(37):868:(37):868:GHESS$(GHESS$,1)#GHESS$"B"CASH(C)250CASH(C)CASH(C)250:9000:200#GHESS$"G"Ģ11:"TYPE YOUR ANSWER. INCLUDE ALL SPACES. ";GUESS$:GUESS$REAL$8000$GHESS$"G"GUESS$REAL$Ģ10:868:11:868:12:868:"SORRY, THAT'S WRONG!":PAUSE1650:PAUSE:(37):868:((IP(1))1)266,145$ GHESS$""GHESS$"S"159O% GH$"G"GU$RE$IP(1)āPA1012:PA:868:PA:10:"WE'VE REACHED A DRAW. THE SOLUTION IS BELOW. CASH ACCUMULATED ADDED TO VALUE OF NEXT GAME.":16:RE$:9503:101X% 260o% COMPUTER SECTION%11:"MY TURN.....":PAUSE1150:PAUSE:(37):868%9000%QT((1)3024)L&LOOP1QT:PWPW1(24(PW24)):4:WH$(PW);" ":SPEAK(16336):SPEAK(16336):PAUSE11.7LOOP:PAUSE,LOOP:FF(0)y&WH$(PW)"FREE SPIN"FS(C)FS(C)1:1000&(WH$(PW))AMT(WH$(PW))"'WH$(PW)"BANKRUPT"Č771:CASH(C)0:9000:FS(C)FS(C)FS(C)1:11:"I'LL USE A FREE SPIN CARD":PAUSE1200:PAUSE:(37):868:1001>'WH$(PW)"BANKRUPT"145'WH$(PW)"LOSE A TURN"İ9000:FS(C)FS(C)FS(C)1:11:"I'LL USE A FREE SPIN CARD":PAUSE1200:PAUSE:(37):868:1001'WH$(PW)"LOSE A TURN"145'8:868:11.(GUESS$(FL$,CC,1):CCCC1:DD1(UL$):GU$(UL$,DD,1)1011w(DD:IZIT0:11:"I'LL GUESS...";GU$:PAUSE1200:PAUSE:(37):868(LOOP1(REAL$):(REAL$,LOOP,1)GUESS$IZIT1:16:LOOP:GU$;:198:CASH(C)CASH(C)AMT(LOOP:20:(GU$)64:GU$;:1)UL$UL$GU$')IZITIP((GU$)64)0:1030\)SS115:SOUND(16336)(16336)(16336):SS)FS(C)FS(C)FS(C)1:11:"I'LL USE A FREE SPIN CARD":PAUSE1200:PAUSE:(37):868:1001)145*IP(1)Ģ10:10050:"ONLY VOWELS LEFT...I'LL GUESS.":12:100:RE$:255:8000X*11:"I'LL SPIN...":PAUSE1200:PAUSE:(37):868:1001^*o* END OF DAYw*:*GTGT(1):GW1:GT(2)GTGTGT(2):GW2*GT(3)GTGTGT(3):GW3+"WITH A TOTAL OF $"GT;",":PL$(GW)" IS THE WINNER FOR TODAY!"+LOOP110:198:LOOP4+PAUSE11000:PAUSE:++(PL$(GW),5)"APPLE"ĺ"IT LOOKS LIKE THE COMPUTER IS SMARTER THAN THE REST OF YOU!":6000+"AND NOW, IF YOU'RE READY, WE'LL GO FOR THE BONUS ROUND."r, "YOU'LL HAVE A PUZZLE ON WHICH YOU CAN GUESS SIX LETTERS -- FIVE CONSONANTS ANDONE VOWEL. IF YOU CAN GUESS THE PUZZLE,YOU'LL WIN $5,000 CASH.",:"PRESS ANY KEY WHEN READY.":11001, QQ126:IP(QQ)0:QQ:ZT((1)QA1):REAL$REAL$(ZT):UP(ZT)2080,*11002:UP(ZT)1G->16:LOOP1(REAL$):(REAL$,LOOP,1)"@"(REAL$,LOOP,1)"["ĺ(95);:2112]-?(REAL$,LOOP,1);k-@LOOP::-A23:"THE PUZZLE IS : ";::IT$(ZT):-BL115:L:868:L:8:"NOW, TYPE FIVE CONSONANTS, ALL AT ONCE ";:CN$N.CL15:KN$(CN$,L,1):KN$"@"KN$"["(KN$"A"KN$"E"KN$"I"KN$"O"KN$"U")ĺ(7);:1:L5:L:2114^.DL:9:868.E8:"NOW, INPUT THE VOWEL ";:VO$.F(VO$"A"VO$"E"VO$"I"VO$"O"VO$"U")ĺ(7);:2117/GL15:GG$(L)(CN$,L,1):L:GG$(6)VO$P/HL16:LOOP1(REAL$):(REAL$,LOOP,1)GG$(L)Ģ16:LOOP:GG$(L);:198\/ILOOP,L/J8:1:868:"FOR $5000, WHAT'S YOUR GUESS?":9:868:GU$:9:868/KGU$RE$Ģ8:868:"SORRY, THE ANSWER WAS...":16:RE$:21250L16:RE$:8:868:"RIGHT!!!!!":GTGT50000M20:"TODAY, YOU WON...$";GT:"CONGRATULATIONS!!!!!":LOOP15:198:LOOP:PAUSE1500:PAUSE0(42((A$)))2:A$:0::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::14:A$"ADVANTAGE COMPUTING'S":4999:\1A$"PUBLIC DOMAIN SOFTWARE":4999::A$"WHEEL OF FORTUNE":4999111:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"249152,128:K(49152)128:49168,0:K48K525005#2A((K)):A3ı92A52,5050,0,5030E2:5000[2:(4)"RUN MENU"232,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT." 349152,128:K(49152)128:49168,0:K80K8150553K81ıD3PF1:(4)"PR#1":52:PF0:(4)"PR#0":\3P(42(A$))2:A$:3p21:958::"PRESS C TO PLAY AGAIN, Q TO QUIT ";:YN$3q::YN$"C"FF(0)::3rYN$"Q"60003W:(4)"RUN MENU"i4XLL1(UL$):(UL$,LL,1)GUESS$Ģ11:"SORRY, YOU'VE USED A USED LETTER.":PAUSE11000:PAUSE:(37):868:LL(UL$):LL:11000::255s4YLL:4@:PL$(C);" WINS!!!":LOOP15:198:LOOP:9499:PAUSE11000:PAUSE:PZ:20004(#:3:31:1:4:31:2:5:31:3::2C:31:C:Q5)#2C:33:0(CASH(C)10000)(CASH(C)1000)(CASH(C)100)(CASH(C)10));CASH(C):q5%:CM13:CMCCASH(CM)05%CM::1:29::"GRAND TOTAL":34,25%CM13:GT(CM)GT(CM)CA(CM)6%2CM:31:CM:2CM:33:0(GT(CM)10000)(GT(CM)1000)(GT(CM)100)(GT(CM)10));GT(CM):CM:96%PAUSE11000:PAUSE:m6'11:"PRESS RETURN TO SPIN ";ZZ$:(37):868:6B'QR15:(7);:PAUSE155:PAUSE,QR:6*8:1:"YOUR CASH IS $"CASH(C)" ":9000:7*16368,0:16384,128:16368,0:FF(((78)(79)256)):g7*QR1(REAL$):QR$(REAL$,QR,1):QR$" "QR$"-"QR$"'"IP((QR$)64)IP((QR$)64)1q7*QR:7*11:" TO ";::"SPIN";::", TO GUESS THE PUZZLE";:CASH(C)250ĺ" OR TO BUY A VOWEL ";7*48 N---------------- WHEEL OF FORTUNE JOE ISHAM ---------------- 3000:10'(42(A$))2:A$:E ASSERTIVENESS TRAININGd DEER VALLEY 12/25/81 (::A$"ASSERTIVENESS TRAINING":5 212:"AS YOU GO THROUGH A SCHOOL DAY YOU":"RESPOND TO VARIOUS SITUATIONS. YOUR":"RESPONSES DETERMINE YOUR ASSERTIVENESS":"RATING."S <20:"TO EXIT GAME - RESPOND TO ANY QUESTION WITH ] >PFı AFLĢ23::A$"PRESS A KEY":5::49152,128:49168,0: F24:"PRESS TO GO ON; TO END "; PCN$:(CN$)27(CN$)1380::(CN$)272760:LУ((7)3)S Z:5:"HELLO. WHAT'S YOUR NAME? ";A$:A$""90::2:"HI, "A$".": d"WELCOME TO SCHOOL!"::"YOU ARE ABOUT TO GO THROUGH A DAY AT n"SCHOOL. YOU WILL BE THE STUDENT x"AND WILL BE INTERACTING WITH VARIOUS PEOPLE THROUGHOUT THE DAY. AS EACH SITUATION ARISES, THINK IT OVER CARE- FULLY AND THEN CHOOSE THE RESPONSE MOST LIKE THE ONE THAT YOU WOULD MAKE. "YOU ONLY NEED TO PRESS THE LETTER OF THE DESIRED RESPONSE. :"DO YOU WISH TO CONTINUE (Y/N)?"; B$:B$"N"2760:B$"Y"150. LL1:S0:L4L1t R110:R260,520,850,1090,1290,1500,1850,2020,2260,2440:R::2 "YOUR SCORE IS "S::" ============================== " ASSERTIVENESS TRAINING SCALE " ==============================":V " 8-10 YOU'RE DOING A GREAT JOB!!"::" 4-7 YOU COULD IMPROVE.\ " 0-3 IF YOU'VE GOT SOME TIME, I'D LIKE TO TALK TO YOU ABOUT SOME LAND I HAVE IN FLORIDA!!;:"DO YOU WISH TO CONTINUE? (Y/N) ";:AN$:AN$"Y"160:AN$"N"2760t::"PLEASE ANSWER ONLY 'Y' OR 'N'. ":(37)3:240:2:L270,350,440"BRUTUS BARNES, THE BULLY OF THE CLASS,"WALKS IN LATE. AS HE GOES BY YOUR DESK,";#""HE PUSHES YOUR BOOKS ON THE FLOOR. YOU ---":," A. STAND UP AND TELL HIM IN FRONT OF THE WHOLE CLASS TO PICK THEM UP. 6:" B. PICK UP THE BOOKS AND DON'T SAY A WORD.":3@" C. TELL HIM YOU DON'T LIKE WHAT HE'S DONE AND PICK UP YOUR BOOKS. KJ2740:L$"C"SS1TT510^" YOU GO TO CLASS. IT'S TEST DAY. WHILETAKING THE TEST, YOU NOTICE YOUR FRIEND,JAMIE, IS TRYING TO COPY YOUR ANSWERS. YOU---h\r" A. TELL MR. SMITH (YOUR TEACHER) AFTER CLASS BECAUSE YOU THINK HE MIGHT HAVE SEEN IT HAPPEN. b|" B. DON'T SAY ANY THING AND TAKE THE BLAME IF IT COMES. J" C. TALK TO JAMIE AFTER CLASS TO SEE WHAT'S GOING ON AND EXPLAIN THE BAD POSITION YOU FELT YOU WERE PUT IN. b2740:L$"C"SS1k510" BETWEEN CLASSES, YOUR FRIENDS PASS"AROUND A JOINT. YOU'RE SURPRISED, SINCE"; "THIS IS FIRST TIME THEY'VE DONE THIS ON":"CAMPUS. YOU ---":O" A. JOIN IN AND HOPE YOU DON'T GET CAUGHT. ":~" B. TELL THEM THE EVILS OF SMOKING. " C. SAY YOU'LL CATCH THEM LATER AND GO ON TO CLASS. 2740:L$"C"SS1:2:L530,660,790-" YOU WALK INTO MATH CLASS. MS. CRUMP["DOESN'T SEEM TO BE IN A VERY GOOD MOOD.&"YOU HOPE SHE DOESN'T CALL ON YOU SINCE0"YOUR ASSIGNMENT ISN'T DONE. YOU WORKED:"LATE LAST NIGHT AND JUST DIDN'T HAVE D"TIME TO DO IT. SHE CALLS ON YOU ANDVN"THEN CRITICIZES YOU SHARPLY UPON FINDINGYOU UNPREPARED. YOU ---":X" A. TELL HER TO BUG OFF-- YOU HAD TO WORK. ":b" B. SAY NOTHING BUT BECOME ANGRY WITH YOURSELF FOR NOT BEING PREPARED. lnv" C. GET ANGRY WITH MS. CRUMP AND DECIDE YOU DON'T LIKE HER ANYWAY.2740:L$"B"SS1840" IT'S TIME FOR SCIENCE CLASS. MR."CUTTUP GIVES THE WRONG ANSWER TO A0"QUESTION ASKED BY ANOTHER STUDENT.":"YOU RAISE YOUR HAND AND GIVE THEW"CORRECT ANSWER. MR. CUTTUP SAYS"YOU'RE WRONG AND REPEATS HIS ANSWER."YOU KNOW YOU'RE RIGHT BECAUSE YOU":"WERE JUST READING ABOUT IT IN A"SCIENCE JOURNAL. YOU ---":]" A. BRING IN THE JOURNAL THE NEXT DAY AND QUOTE THE INFORMATION TO THE CLASS. c" B. BRING IN THE JOURNAL BEFORE CLASS STARTS AND SHOW IT TO MR. CUTTUP. :" C. JUST LET IT GO---MR. CUTTUP IS STUBBORN. ":2740*L$"B"SS13 840" ENGLISH IS BORING. YOU WORKED LATE LAST NIGHT AND CAN'T SEEM TO KEEP AWAKE. MISS KNOTTINGHAM CATCHES YOU SLEEPING IN CLASS. YOU--- :" A. GO BACK TO SLEEP---YOU'RE EXHAUSTED. ":1*" B. APOLOGIZE. ":x4" C. ARE VERY EMBARRASSED AND SAY NOTHING. ":2740>L$"B"SS1HR:2:L860,930,1000b\" YOUR COUNSELOR, MR. GOOD, STOPS YOU IN THE HALL TO TELL YOU HE HAS RECOMMENDED YOU FOR A PSYCHOLOGY CLASS WHICH WILL ONLY TAKE 15 OF THE BEST STUDENTS. YOU---hfp" A. TELL HIM YOU WISH HE'D ASKED YOU FIRST SINCE YOU'RE NOT WILLING TO GIVE UP ANY OF YOUR PRESENT CLASSES.z" B. GIVE UP ONE OF THE CLASSES YOU ARE IN AND TAKE THE PSYCH CLASS EVEN THOUGH YOU PREFER THE OTHER CLASS. :" C. REFUSE TO TAKE THE CLASS. ":2740:L$"A"SS11080" MR. GOOD, YOUR COUNSELOR, CALLS YOU INTO HIS OFFICE. HE SAYS HE'S NOTICED YOU'RE NOT YOURSELF LATELY. HE ASKS IF THERE'S ANY THING HE CAN DO. YOU---#" A. THANK HIM AND TELL HIM YOU'RE WORKING ON SOME THINGS BUT YOU DON'T REALLY WANT TO SHARE IT RIGHT NOW. )" B. TELL MR. GOOD HE'S WRONG. YOU ARE JUST FINE. (EVEN THOUGH YOU HAVE BEEN DOWN LATELY.) :" C. 'CLAM UP'. ":2740:L$"A"SS11080" YOUR COUNSELOR, MR. GOOD, COMES UPON YOU AND YOUR SPANISH TEACHER, SENORA GOMEZ, ARGUING IN THE HALL. MR. GOOD KNOWS YOU'RE A RESPONSIBLE STUDENT SO HE COMES TO YOUR DEFENSE. YOU--- " A. TELL MR. GOOD THAT YOU AND SENORA GOMEZ WILL WORK IT OUT. ~ " B. ARE QUITE RELIEVED AND STAND BACK WHILE MR. GOOD AND SENORA GOMEZ START ARGUING.  $" C. LET SENORA GOMEZ KNOW SHE HAD BETTER NOT MESS WITH YOU ANY MORE. !.2740:L$"A"SS1!8"!B:2:L1100,1160,1230!L" AFTER BEING ABSENT ON TUESDAY, YOU DECIDE YOU'D BETTER LET THE ATTENDANCE OFFICE KNOW YOU'RE BACK. THE SECRETARY,MISS FILE, GIVES YOU A HARD TIME ABOUT BEING ABSENT SO MUCH. YOU ---"V:" A. EXPLAIN WHY YOU'RE GONE SO MUCH. Y"`" B. TELL HER IT'S NONE OF HER BUSI- NESS. ":"j" C. LET IT GO BY WITH SOME HUMOROUS COMMENT. "::2740"tL$"C"SS1"~12802#" MISS FILE, THE SECRETARY, TELLS YOU THAT SHE'S HEARD SUZY RAH, HEAD CHEER- LEADER, IS PREGNANT. YOU---8##" A. FIND IT VERY INTERESTING AND TELL YOUR BEST FRIEND. #:" B. ACT LIKE YOU DIDN'T HEAR HER. ": $" C. TELL HER IT MAKES YOU UNCOM- FORTABLE TO HEAR SUCH GOSSIP. %$2740:L$"C"SS1/$1280$" YOU MAKE AN APPOINTMENT WITH MR. GOOD, YOUR COUNSELOR. WHEN YOU REPORT TO HIS SECRETARY, MISS FILE, SHE ASKS YOU WHY YOU HAVE TO SEE THE COUNSELOR. YOU---%:" A. SAY YOU DON'T KNOW. ":U%" B. TELL HER ABOUT A PERSONAL PRO- BLEM YOU'VE BEEN HAVING. %:" C. TELL HER YOU PLAN ON DISCUSSING IT WITH MR. GOOD. %2740:L$"C"SS1%% :2:L1300,1360,1410^&"THE CUSTODIAN, MR. CLEAN, STOPS YOU IN THE HALL AND ACCUSES YOU OF BREAKING THE TOWEL DISPENSER IN THE RESTROOM. YOU---&:" A. GET ANGRY AND TELL HIM YOU DID NOT DO IT. ":&(" B. TALK TO HIM ABOUT IT. ":'2" C. SHRUG YOUR SHOULDERS AND WALK AWAY. ":2740#'<L$"B"SS1-'F1490'P" YOU TAKE A JOB AFTER SCHOOL HELPING MR. CLEAN, THE CUSTODIAN. HE TENDS TO TREAT YOU AS AN INFERIOR. THIS IS STARTING TO REALLY GET ON YOUR NERVES. YOU---'(Z:" A. PUT UP WITH IT---YOU REALLY NEED THE MONEY. ":(d" B. TALK TO HIM ABOUT IT BUT THINGS DON'T CHANGE. YOU CONSIDER QUITTING. (n:" C. TELL HIM TO KNOCK IT OFF. ":2740:L$"B"SS1(x1490)" YOU WORK WITH MR. CLEAN, THE CUSTODIAN, AFTER SCHOOL IN ORDER TO EARN SOME EXTRA SPENDING MONEY. YOU ENJOY TALK- ING TO HIM BUT WHENEVER THE SUBJECT OF YOUR GOING TO COLLEGE COMES UP, HE CUTS DOWN EDUCATION. YOU---)*" A. KNOW HE MUST JUST BE JEALOUS SINCE HE'S ONLY A JANITOR. *t*" B. TRY TO EXPLAIN YOUR FUTURE PLANS AND SEE WHAT HE THINKS. z**" C. TELL HIM IF HE'D GOTTEN A COL- LEGE EDUCATION HE WOULDN'T HAVE TO BE A JANITOR. +2740:L$"B"SS1+#+:2:L1510,1640,1760M+" YOU'RE RECENTLY APPOINTED CHAIR-z+"PERSON OF A COMMITTEE TO WORK ON CURB-+"ING SOME OF THE PROBLEMS ON CAMPUS.+"YOU FEEL YOU'RE A GOOD LEADER AND YOU+"HAVE LOTS OF PAST EXPERIENCE. HOWEVER,',"THE PRINCIPAL, MR. KINGPIN, ALWAYSa,""TAKES OVER AND CONDUCTS THE MEETINGS.":"YOU ---":,," A. LET HIM. IT'S EASIER. ":,6" B. FINALLY TELL HIM IN FRONT OF THE REST OF THE COMMITTEE THAT YOU CAN HANDLE IT. -@i-J" C. MAKE AN APPOINTMENT TO DISCUSS IT WITH MR. KINGPIN IN HIS OFFICE. -T2740:L$"C"SS1-^1840V.h"BEING THE STUDENT GOVERNMENT PRESIDENT, YOU ARE CONSTANTLY BUSY. YOU DIDN'T REALIZE HOW MUCH WORK WOULD BE INVOLVED WHEN YOU RAN. RECENTLY YOU FEEL LIKE IT'S GETTING TO BE MORE THAN YOU CAN.r"HANDLE. MR. KINGPIN, THE PRINCIPAL,.|"RUNS INTO YOU BETWEEN CLASSES AND."GIVES YOU ANOTHER OBLIGATION DEALING."WITH STUDENT GOVERNMENT. YOU ---":O/" A. ASK MR. KINGPIN WHAT HE THINKS YOU ARE---SUPER HUMAN??? U//" B. DO IT BECAUSE YOU KNOW IF YOU DON'T YOU'LL FEEL GUILTY. //" C. SAY NO THAT YOU DON'T HAVE TIME TO DO A GOOD JOB OF IT. 02740:L$"C"SS1018400"YOU HAVE A 1:00 APPOINTMENT WITH MR. KINGPIN, THE PRINCIPAL. HE STILL HAS NOT SHOWN UP AT 1:20. YOU---00" A. CONTINUE TO WAIT AND BECOME ANGRIER BY THE MINUTE. 0A1" B. WAIT EVEN THOUGH YOU KNOW YOU ARE MISSING AN IMPORTANT CLASS.G11" C. DECIDE TO RESCHEDULE SINCE YOU DON'T WANT TO MISS YOUR WHOLE CLASS. 1&2740:L$"C"SS1101::2:L1860,1920,1970s2D" YOU GO TO THE LIBRARY TO RESEARCH A PAPER. MRS. MARION, THE LIBRARIAN, TELLS YOU TO RETURN A LONG OVERDUE BOOK. YOU ---2N:" A. GET DEFENSIVE AND SAY YOU DON'T HAVE IT. ":3X" B. APOLOGIZE AND BRING IT BACK THE NEXT MORNING. ":K3b" C. DROP IT IN THE SLOT WHEN MRS. MARION ISN'T AROUND.c3l2740:L$"B"SS1m3v20103" MRS. MARION, THE LIBRARIAN, COMES OVER AND ASKS YOU TO BE QUIET WHEN YOU WERE NOT EVEN TALKING. YOU---+4:" A. TELL HER IMMEDIATELY THAT YOU WEREN'T TALKING. ":4" B. WAIT UNTIL THE CLASS PERIOD IS OVER AND THEN GO TELL HER YOU WEREN'T TALKING. 4:" C. JUST DROP IT. ":2740:L$"B"SS142010@5" MRS. MARION, THE LIBRARIAN, CATCHES YOU STICKING GUM UNDER ONE OF THE TABLES. YOU---5:" A. DENY IT AND TELL HER IT WAS ALREADY THERE. ":5" B. APOLOGIZE AND TAKE THE PUNISH- MENT. ":6" C. BLUSH AND SAY NOTHING. ":2740:L$"B"SS1 6'6:2:L2030,2090,21906" YOU'VE RECENTLY SUSTAINED A MINOR BAS- KETBALL INJURY AND THE DOCTOR TOLD YOU IT WOULD BE WISE NOT TO PLAY FOR A FEW WEEKS. THE COACH TELLS YOU THAT YOU WILL PLAY. THE TEAM NEEDS YOU. YOU---6H7" A. SAY YOU WON'T AND RISK GETTING KICKED OFF THE TEAM. 7 :" B. PLAY. AFTER ALL, THE COACH KNOWS BEST. ":7" C. QUIT THE TEAM. ":2740:L$"A"SS17 22508*" YOUR HISTORY TEACHER, WHO ALSO":"HAPPENS TO BE THE FOOTBALL COACH,g84"GIVES JOCKO A PASSING GRADE. YOU":"FAIL EVEN THOUGH YOU KNOW YOU HAD8>"MORE POINTS THAN JOCKO. YOU ---":9H" A. TALK TO THE TEACHER WHO DENIES IT. YOU HAVE NO CHOICE BUT TO TAKE IT OVER HIS HEAD. 9R9\" B. TALK TO THE TEACHER WHO DENIES IT. YOU FIGURE YOU DID ALL YOU COULD AND DROP IT. 9f9p" C. TELL THE TEACHER YOU'RE GOING TO GET THE WHOLE ADMINISTRATION ON HIM. :z2740:L$"A"SS1:2250l:" YOUR COACH PULLS YOU OUT OF THE GAME AND YELLS AT YOU IN FRONT OF EVERYONE. YOU---r::" A. SIT DOWN AND CATCH THE COACH LATER WHEN HE'S COOLED DOWN. :G;" B. SIT DOWN AND CHALK IT UP TO THE FACT THE TEAM IS LOSING. HE HAS TO BLAME IT ON SOMEONE. ;:" C. STOMP OFF THE COURT. ":2740:L$"A"SS1;;:2:L2270,2320,2380><" MR. KINGPIN, THE PRINCIPAL, CALLS YOU IN. IT SEEMS THE NURSE, MRS. COTTON, TURNED YOU IN FOR 'BEING ON SOMETHING' YOU SET IT STRAIGHT WITH---t<" A. MRS. COTTON"::" B. MR. KINGPIN":<" C. NO ONE. YOU DON'T OWE AN EXPLA- NATION TO ANYONE. ":<2740:L$"B"SS1< 2430'= "MRS. COTTON, THE NURSE, SEES YOU TAKING MEDICATION. YOU---":s= " A. FEEL GUILTY BECAUSE OF THE WAY SHE LOOKS AT YOU. ":=$ " B. LET HER THINK WHAT SHE WANTS. ":=. " C. GO TO HER AND SHOW HER WHAT IT IS. ":2740=8 L$"B"SS1>B 2430V>L " MRS. COTTON, THE NURSE, TELLS YOU THAT YOU SHOULD LOSE SOME WEIGHT. YOU--- w>V :" A. ARE CRUSHED. ":>` " B. TELL HER THAT YOUR FEELINGS ARE HURT. ":>j " C. TELL HER WHEN SHE DOES, YOU WILL. ":2740 ?t L$"B"SS1?~ .? :2:L2450,2520,2670? " IT'S FINALLY LUNCH TIME. YOU ARE STARVING. THE COOK, MRS. FRY, ALWAYS UNDERCOOKS THE FRENCH FRIES. YOU---? :" A. COMPLAIN TO YOUR FRIENDS ABOUT IT. ":S@ " B. COMPLAIN IN LUNCH LINE TO YOUR FRIENDS SO MRS. FRY IS SURE TO HEAR YOU. Y@ @ " C. GO SEE MRS. FRY IN HER OFFICE ONE DAY AND TELL HER. @ 2740:L$"C"SS1@ 2730@ "AS A STUDENT COUNCIL MEMBER, YOU'RE ON"A "A COMMITTEE TO IMPROVE SCHOOL LUNCHES.HA "YOU KNOW THIS COULD BE A TOUCHYvA "SUBJECT. YOUR GROUP HAS WORKED HARD TOA "COME UP WITH A LIST OF FOODS THAT COULDA "BE ADDED TO THE MENU AND STILL MEET THEA "GOVERNMENT REQUIREMENTS. YOU TAKE THE+B "LIST TO MRS. FRY, THE COOK. SHE SAYSfB( "'NO' WITHOUT EVEN LOOKING AT THE LIST.":"YOU ---":B2 " A. FIGURED SHE'D ACT LIKE THAT. ":B< " B. EXPLODE SINCE YOU KNOW HOW MUCH WORK EVERYONE'S PUT INTO IT. BF `CP " C. TRY AND EXPLAIN. FINALLY, YOU JUST ACCEPT THAT MRS. FRY ISN'T GOING TO GIVE IN. xCZ 2740:L$"C"SS1Cd 2730XDn " MRS. FRY IS A GOOD HEAD COOK AT YOUR SCHOOL. THERE ARE FEW COMPLAINTS ABOUT THE FOOD. HOWEVER, SHE'S ALWAYS YELLING AT HER WORKERS IN FRONT OF THE STUDENTS. THIS REALLY BOTHERS YOU. YOU---^Dx D " A. GET YOUR FRIENDS TO HASSLE HER SO SHE CAN SEE HOW UNPLEASANT IT IS HAVING PEOPLE NAG AT YOU. +E " B. FEEL BADLY EVERY TIME YOU GO INTO THE CAFETERIA. ":E " C. FIGURE IT'S UP TO THE OTHER WORKERS TO DO SOMETHING ABOUT IT. THEY SEEM TO IGNORE HER ANYWAY. E 2740:L$"C"SS1E E :"CHOOSE ONE (A, B, OR C) - ";>F L$:L$"A"L$"B"L$"C"(L$)272750:(L$)272760:TF :(4)"RUN MENU"[F rF ****************F * MODIFIED BY *F * TOM McCORD *F * EDUCATIONAL *F * MEDIA *F * SERVICES *F ****************NG ::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::uG 4:A$"ADVANTAGE COMPUTING'S":5:G A$"PUBLIC DOMAIN SOFTWARE":5::A$"ASSERTIVENESS TRAINING":54H 11:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10Q3:Z13A$(Z),B$(Z)' :1(1000D2--CENTER A$--\7(42(A$))2:A$:s<--SCREEN BORDER--A:1:2:X239:" ";::2:2:" ";:39:" ":X222:X:1:" ";:40:" ":F22:2:" ";:39:" ":23:2:X239:" ";::: 60 X1Z:A$(X):( X1Z:B$(X):7  LEVEL.19F  LEVEL.20U  LEVEL.21d  LEVEL.22s  LEVEL.23  LEVEL.24  LEVEL.25  GAMBLERS.RUIN  GOLF.III  LOGIC.PRACTICE  WHEEL.OF.FORTUN  ASSERTIVENESS.T  MENUT :A$"THE APPLE BEST 100 - V2.0":2:50:A$"+ + + BONUS DISK #2 + + +":3:50:s X1Z:A$A$(X):XQ:50:{ C1 :A$A$(C):A$A$" ":A$" "A$:CQ:50: 49152,128:K(49152)128 49168,0 K10K21ĝ:A$A$(C):A$A$" ":A$" "A$:CQ:50:CC1 CZC12 K10K211033n K8K11ĝ:A$A$(C):A$A$" ":A$" "A$:CQ:50:CC1} K131050 C1CZ 1033 :(4)"RUN "B$(C)  LEVEL.19  LEVEL.20  LEVEL.21  LEVEL.22  LEVEL.23  LEVEL.24  LEVEL.25(  GAMBLERS.RUIN7  GOLF.IIIL  LOGIC.PRACTICEb  WHEEL.OF.FORTUNx  ASSERTIVENESS.T  MENU:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU"kH 49152,128:K(49152)128:49168,0:K48K523005H A((K)):A3ıH A1A2FL1H A40,3050,0,3030H :FL0:3000H :(4)"RUN MENU"GI 32,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT."I 49152,128:K(49152)128:49168,0:K80K813055I K81ıI PF1:(4)"PR#1":40:PF0:(4)"PR#0":"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$:Z$(27)ıSd(4)"RUN MENU2"16368,0:23:"PRESS ANY KEY TO CONTINUE 'ESC' TO QUIT";:Z$:Z$(27)ıb d(4)"RUN MENU2"* MODIFIED BY *,&* TOM McCORD *C&"* EDUCATIONAL *Z&,* MEDIA *q&6* SERVICES *&@***************** 5000IP(C)IP(2)IP(3)IP(4)IP(6)IP(7)IP(8)IP(10)IP(11)IP(12)IP(13)IP(14)IP(16)IP(17)IP(18)IP(19)IP(20)IP(22)IP(23)IP(24)IP(25)IP(26)QA101WH$(30),WI$(30),WJ$(30),RE$(QA),IT$(QA),IP(26),UP(QA) LOOP1QA:REAL$(LOOP),ITZA$(LOOP):LOOP:THE PRINCE AND PRINCESS OF WALES,PEOPLE,THE GOLDEN GATE BRIDGE,A LANDMARK,RONALD WILSON REAGAN,A PERSON,THE TAJ MAHAL,A LANDMARK,SALT LAKE CITY,A PLACE WATER TOWER,A THING,THE FLORIDA KEYS,A PLACE,DWIGHT DAVID EISENHOWER,A PERSON,PEANUTS,THINGS,NORTHAMPTONSHIRE,A PLACE,SALT AND PEPPER SHAKERS,THINGS,THE OLYMPIC GAMES,AN EVENT,AIR CONDITIONER,A THING`  JOHN WESLEY HARDIN,A PERSON,SAM HOUSTON,A PERSON,CHRISTOPHER COLUMBUS,A PERSON,QUEEN ELIZABETH AND PRINCE PHILIP,PEOPLE,MARGARET THATCHER,A PERSON,SAM RAYBURN,A PERSON,JIMMY DURANTE,A PERSON,CONRAD HILTON,A PERSON REUNION ARENA,A PLACE,MANHATTAN ISLAND,A PLACE,THE EIFFEL TOWER,A LANDMARK,GINA LOLLOBRIGIDA,A PERSON,HENRY WADSWORTH LONGFELLOW,A PERSON,BENJAMIN FRANKLIN PIERCE,A FICTIONAL CHARACTER GREENLAND,A PLACE,ORBIT THE EARTH,A PHRASE,ROYAL CANADIAN MOUNTED POLICE,PEOPLE,DUTCH DOOR,A THING,SANTA FE NEW MEXICO,A PLACE,ROBERT FROST,A PERSON,PUT TWO AND TWO TOGETHER,A PHRASE,ABSENCE OF MALICE,A TITLE HIGH TIDE,A THING,MOTHER GOOSE,A FICTIONAL CHARACTER,MEASURE FOR MEASURE,A TITLE,WALKING A THIN LINE,A PHRASE,YUKON TERRITORY,A PLACE,DIANA ROSS,A PERSON,LET BYGONES BE BYGONES,A PHRASE,MAINE LOBSTER,A THING IS THERE A DOCTOR IN THE HOUSE,A PHRASE,SODOM AND GOMORRAH,PLACES,DRAFT BEER,A THING,UNIDENTIFIED FLYING OBJECT,A THING,DICK CAVETT,A PERSON,PRAISE THE LORD AND PASS THE AMMUNITION,A TITLE,TURN OVER A NEW LEAF,A PHRASE MILK CHOCOLATE,A THING,ON GOLDEN POND,A TITLE,SKINNY AS A RAIL,A PHRASE,CONGRESSIONAL RECORD,A TITLE,WHEAT GERM,A THING,FALSE ALARM,A THING,UNFINISHED BUSINESS,A PHRASE,BORN WITH A SILVER SPOON IN YOUR MOUTH,A PHRASEKMAUREEN STAPLETON,A PERSON,PARK AVENUE,A PLACE,CATSKILL MOUNTAINS,A PLACE,MERYL STREEP,A PERSON,THE STRAW THAT BROKE THE CAMEL'S BACK,A PHRASE,BIRD OF PARADISE,A THING,INSTANT COFFEE,A THINGPUMPERNICKEL BREAD,A THING,HALF A LOAF IS BETTER THAN NONE,A PHRASE,BACK TO THE SALT MINES,A PHRASE,BURLESQUE SHOW,A THING,I'M ALWAYS CHASING RAINBOWS,A PHRASE,STRAIGHT AS AN ARROW,A PHRASEJASON ROBARDS,A PERSON,OLD FAITHFUL,A LANDMARK,CHERRY BLOSSOM FESTIVAL,AN EVENT,LIVING HIGH ON THE HOG,A PHRASE,FIGHT FIRE WITH FIRE,A PHRASE,ATLANTA BRAVES,PEOPLE,CAULIFLOWER,A THING,POCKET WATCH,A THINGDON'T DRINK THE WATER,A TITLE,PILOT LIGHT,A THING,TWENTY THOUSAND LEAGUES UNDER THE SEA,A TITLE,SPENCER TRACY,A PERSON,PUEBLO COLORADO,A PLACE,DOUBLE CHIN,A THING,PIGS IN A BLANKET,THINGS,QUOTATION MARKS,THINGS FREIGHT TRAIN,A THING,DAMSEL IN DISTRESS,A PERSON,STANDING ROOM ONLY,A PHRASE,COOPERSTOWN NEW YORK,A PLACE,ASTRONAUT,AN OCCUPATION,THE STARS AND STRIPES FOREVER,A TITLE,IF AT FIRST YOU DON'T SUCCEED TRY AGAIN,A PHRASESJANE WYMAN,A PERSON,ORDER IN THE COURT,A PHRASE,SAN FRANCISCO BAY,A PLACE,REMBRANDT,A PERSON,IN ONE EAR AND OUT THE OTHER,A PHRASE,GREAT SMOKY MOUNTAINS,A PLACE,CAPITOL HILL,A PLACEYm(SET UP WHISTLE)771,162:772,1:773,142:774,2:775,3:776,169:777,4:778,141:779,1*780,3:781,142:782,0:783,3:784,32:785,31:786,3:787,174:788,2P+789,3:790,232:791,224:792,120:793,142:794,2:795,3:796,144:797,234,798,96:799,173:800,48:801,192:802,136:803,208:804,5:805,206:806,1-807,3:808,240:809,9:810,202:811,208:812,245:813,174:814,0:815,3.816,76:817,31:818,3:819,96//FL$"TNSRHLDCFPMWYBGVKQXJZ"0MV(1):LOOP124:WH$(LOOP):LOOP:750,BANKRUPT,350,250,600,400,150,200,250,400,LOSE A TURN,450,150,200,100,FREE SPIN,200,300,400,500,100,200,300,175,750n1MV(2):LOOP124:WI$(LOOP):LOOP:1000,BANKRUPT,600,250,200,1000,150,300,400,750,450,LOSE A TURN,800,150,900,250,BANKRUPT,400,550,300,200,900,200,400,3002MV(3):LOOP124:WJ$(LOOP):LOOP:2000,BANKRUPT,700,500,350,400,550,300,200,900,200,400,300,BANKRUPT,600,250,200,LOSE A TURN,350,2000,500,250,300,800,15003::96#4:5::"WHEEL OF FORTUNE":::"THIS GAME IS BASED ON THE NBC-TV GAME":"SHOW 'WHEEL OF FORTUNE.' IN THIS GAME,":"YOUR OBJECT IS TO SOLVE PUZZLES LIKE":"YOU WOULD SOLVE WHEN PLAYING 'HANGMAN.'"6"YOU EARN MONEY EACH TIME YOU GUESS":"CORRECTLY, BUT IF YOU HIT BANKRUPT', ":"YOU LOSE IT ALL!"::"VOWELS COST $250 EACH, BUT":"CONSONANTS ARE FREE.7:"IF YOU WANT THE COMPUTER TO PLAY ONE OR":"MORE OF THE THREE PLAYERS, SIMPLY TYPE":"'APPLE' AS THE PLAYERS NAME(S)."e8::"NOTE";::":THE DESCRIPTION 'A PERSON' DOES NOT":"NECESSARILY DENOTE A PROPER NAME."o9PFı<23::A$"PRESS A KEY":5200::49152,128:49168,0:`22:"THREE PLAYERS:";PL$(1),PL$(2),PL$(3)Sa(PL$(1),5)"APPLE"(PL$(2),5)"APPLE"(PL$(3),5)"APPLE"Ģ22:868:"DISPLAY ANSWERS (Y/";::"N";::") ?";:YD$:b22:868:"PRESS ANY KEY TO BEGIN...":11001cLOOP13:GT(LOOP)0:FS(LOOP)0:LOOPdPZ16:LOOP13:CASH(LOOP)0:LOOPeUL$"":GG1:G3G3 fSTST1:ST3STST3gCC1CxG2āLOOP124:WH$(LOOP)WI$(LOOP):LOOPqG3āLOOP124:WH$(LOOP)WJ$(LOOP):LOOPzPW0::"TOP MONEY IS $"MV(G)" ";:30:"PUZZLE #";PZ:34,1QQ126:IP(QQ)0:QQZT((1)QA1):REAL$REAL$(ZT):ITZA$ITZA$(ZT):UP(ZT)134%11002:UP(ZT)1t16:LOOP1(REAL$):(REAL$,LOOP,1)"@"(REAL$,LOOP,1)"["ĺ(95);:138(REAL$,LOOP,1);LOOP::23:"THE PUZZLE IS : ";::ITZA$:CST1(PL$(1),5)"APPLE"(PL$(2),5)"APPLE"(PL$(3),5)"APPLE"YD$"Y"Ģ22:RE$0CC1:C3C1P34,1:2:868:PL$(C);"'";l(PL$(C),1)"S"ĺ"S";" TURN":34,2GHESS$" "(PL$(C),5)"APPLE"1000100009000QT((1)3024)LOOP1QTPWPW1:PW25PW184:WH$(PW);" ":SPEAK(16336):SPEAK(16336)[PAUSE11.7LOOP:PAUSE:LOOPgFF(0)WH$(PW)"FREE SPIN"FS(C)FS(C)1:158(WH$(PW))AMT(WH$(PW))WH$(PW)"BANKRUPT"Č771:CASH(C)0:11000:9000:250 WH$(PW)"LOSE A TURN"250 8:868b 11:"INPUT GUESS....";:GUESS$:GUESS$(GUESS$,1):IZIT0:(37):868 (GUESS$"A"GUESS$"E"GUESS$"I"GUESS$"O"GUESS$"U")GH$"B"ĺ"YOU CAN'T DO THAT, THAT'S A VOWEL.";(7):PAUSE1400:PAUSE:(37):868:200#!GUESS$"A"GUESS$"Z"Č198:1:200-!7000!LOOP1(REAL$):(REAL$,LOOP,1)GUESS$IZIT1:16:LOOP:GU$;:198:GHESS$"B"CASH(C)CASH(C)AMT!LOOP!ZY1:11000!20:(GU$)64:GU$;:1!UL$UL$GU$!IZITIP((GU$)64)0:2602"SS115:SOUND(16336)(16336)(16336):SS"FS(C)Ģ11:"WOULD YOU LIKE TO USE A FREE SPIN CARD (Y/";::"N";::") ?";:ZZ$:"FS(C)Ģ(37):868:(37):868:ZZ$"Y"FS(C)FS(C)1:158"145 #IP(1)Ģ10:10050:"ONLY VOWELS LEFT-YOU MUST GUESS!":GHESS$"G":263`#11004:GHESS$:(37):868:(37):868:GHESS$(GHESS$,1)#GHESS$"B"CASH(C)250CASH(C)CASH(C)250:9000:200#GHESS$"G"Ģ11:"TYPE YOUR ANSWER. INCLUDE ALL SPACES. ";GUESS$:GUESS$REAL$8000$GHESS$"G"GUESS$REAL$Ģ10:868:11:868:12:868:"SORRY, THAT'S WRONG!":PAUSE1650:PAUSE:(37):868:((IP(1))1)266,145$ GHESS$""GHESS$"S"159O% GH$"G"GU$RE$IP(1)āPA1012:PA:868:PA:10:"WE'VE REACHED A DRAW. THE SOLUTION IS BELOW. CASH ACCUMULATED ADDED TO VALUE OF NEXT GAME.":16:RE$:9503:101X% 260o% COMPUTER SECTION%11:"MY TURN.....":PAUSE1150:PAUSE:(37):868%9000%QT((1)3024)L&LOOP1QT:PWPW1(24(PW24)):4:WH$(PW);" ":SPEAK(16336):SPEAK(16336):PAUSE11.7LOOP:PAUSE,LOOP:FF(0)y&WH$(PW)"FREE SPIN"FS(C)FS(C)1:1000&(WH$(PW))AMT(WH$(PW))"'WH$(PW)"BANKRUPT"Č771:CASH(C)0:9000:FS(C)FS(C)FS(C)1:11:"I'LL USE A FREE SPIN CARD":PAUSE1200:PAUSE:(37):868:1001>'WH$(PW)"BANKRUPT"145'WH$(PW)"LOSE A TURN"İ9000:FS(C)FS(C)FS(C)1:11:"I'LL USE A FREE SPIN CARD":PAUSE1200:PAUSE:(37):868:1001'WH$(PW)"LOSE A TURN"145'8:868:11.(GUESS$(FL$,CC,1):CCCC1:DD1(UL$):GU$(UL$,DD,1)1011w(DD:IZIT0:11:"I'LL GUESS...";GU$:PAUSE1200:PAUSE:(37):868(LOOP1(REAL$):(REAL$,LOOP,1)GUESS$IZIT1:16:LOOP:GU$;:198:CASH(C)CASH(C)AMT(LOOP:20:(GU$)64:GU$;:1)UL$UL$GU$')IZITIP((GU$)64)0:1030\)SS115:SOUND(16336)(16336)(16336):SS)FS(C)FS(C)FS(C)1:11:"I'LL USE A FREE SPIN CARD":PAUSE1200:PAUSE:(37):868:1001)145*IP(1)Ģ10:10050:"ONLY VOWELS LEFT...I'LL GUESS.":12:100:RE$:255:8000X*11:"I'LL SPIN...":PAUSE1200:PAUSE:(37):868:1001^*o* END OF DAYw*:*GTGT(1):GW1:GT(2)GTGTGT(2):GW2*GT(3)GTGTGT(3):GW3+"WITH A TOTAL OF $"GT;",":PL$(GW)" IS THE WINNER FOR TODAY!"+LOOP110:198:LOOP4+PAUSE11000:PAUSE:++(PL$(GW),5)"APPLE"ĺ"IT LOOKS LIKE THE COMPUTER IS SMARTER THAN THE REST OF YOU!":6000+"AND NOW, IF YOU'RE READY, WE'LL GO FOR THE BONUS ROUND."r, "YOU'LL HAVE A PUZZLE ON WHICH YOU CAN GUESS SIX LETTERS -- FIVE CONSONANTS ANDONE VOWEL. IF YOU CAN GUESS THE PUZZLE,YOU'LL WIN $5,000 CASH.",:"PRESS ANY KEY WHEN READY.":11001, QQ126:IP(QQ)0:QQ:ZT((1)QA1):REAL$REAL$(ZT):UP(ZT)2080,*11002:UP(ZT)1G->16:LOOP1(REAL$):(REAL$,LOOP,1)"@"(REAL$,LOOP,1)"["ĺ(95);:2112]-?(REAL$,LOOP,1);k-@LOOP::-A23:"THE PUZZLE IS : ";::IT$(ZT):-BL115:L:868:L:8:"NOW, TYPE FIVE CONSONANTS, ALL AT ONCE ";:CN$N.CL15:KN$(CN$,L,1):KN$"@"KN$"["(KN$"A"KN$"E"KN$"I"KN$"O"KN$"U")ĺ(7);:1:L5:L:2114^.DL:9:868.E8:"NOW, INPUT THE VOWEL ";:VO$.F(VO$"A"VO$"E"VO$"I"VO$"O"VO$"U")ĺ(7);:2117/GL15:GG$(L)(CN$,L,1):L:GG$(6)VO$P/HL16:LOOP1(REAL$):(REAL$,LOOP,1)GG$(L)Ģ16:LOOP:GG$(L);:198\/ILOOP,L/J8:1:868:"FOR $5000, WHAT'S YOUR GUESS?":9:868:GU$:9:868/KGU$RE$Ģ8:868:"SORRY, THE ANSWER WAS...":16:RE$:21250L16:RE$:8:868:"RIGHT!!!!!":GTGT50000M20:"TODAY, YOU WON...$";GT:"CONGRATULATIONS!!!!!":LOOP15:198:LOOP:PAUSE1500:PAUSE0RT1500::(4)"RUN MENU2"0(42((A$)))2:A$:1::A$" "::X139:A$;::X222:X:1:A$;:39:A$::23:X139:A$;::814:A$"ADVANTAGE COMPUTING'S":4999:|1A$"PUBLIC DOMAIN SOFTWARE":4999::A$"WHEEL OF FORTUNE":4999111:10:"1) VIEW INSTRUCTIONS"::10:"2) PRINT INSTRUCTIONS"::10:"3) RUN PROGRAM"::10:"4) RETURN TO MAIN MENU".249152,128:K(49152)128:49168,0:K48K525005C2A((K)):A3ıY2A52,5050,0,5030e2:5000{2:(4)"RUN MENU"232,2:33,33:34,10:35,22::"MAKE SURE YOUR PRINTER IS READY":"AND PRESS 'P' TO PRINT OR":"PRESS 'Q' TO ABORT.",349152,128:K(49152)128:49168,0:K80K81505583K81ıd3PF1:(4)"PR#1":52:PF0:(4)"PR#0":|3P(42(A$))2:A$:3p21:958::"PRESS C TO PLAY AGAIN, Q TO QUIT ";:YN$3q::YN$"C"FF(0)::3rYN$"Q"60003W:(4)"RUN MENU"4XLL1(UL$):(UL$,LL,1)GUESS$Ģ11:"SORRY, YOU'VE USED A USED LETTER.":PAUSE11000:PAUSE:(37):868:LL(UL$):LL:11000::2554YLL:4@:PL$(C);" WINS!!!":LOOP15:198:LOOP:9499:PAUSE11000:PAUSE:PZ:20005(#:3:31:1:4:31:2:5:31:3::2C:31:C:q5)#2C:33:0(CASH(C)10000)(CASH(C)1000)(CASH(C)100)(CASH(C)10));CASH(C):5%:CM13:CMCCASH(CM)05%CM::1:29::"GRAND TOTAL":34,25%CM13:GT(CM)GT(CM)CA(CM)>6%2CM:31:CM:2CM:33:0(GT(CM)10000)(GT(CM)1000)(GT(CM)100)(GT(CM)10));GT(CM):CM:Y6%PAUSE11000:PAUSE:6'11:"PRESS RETURN TO SPIN ";ZZ$:(37):868:6B'QR15:(7);:PAUSE155:PAUSE,QR:6*8:1:"YOUR CASH IS $"CASH(C)" ":9000:(7*16368,0:16384,128:16368,0:FF(((78)(79)256)):7*QR1(REAL$):QR$(REAL$,QR,1):QR$" "QR$"-"QR$"'"IP((QR$)64)IP((QR$)64)17*QR:7*11:" TO ";::"SPIN";::", TO GUESS THE PUZZLE";:CASH(C)250ĺ" OR TO BUY A VOWEL ";8*T8 N---------------- WHEEL OF FORTUNE JOE ISHAM ----------------