' +JJJJ ?x\>0='+l>  / X  %% "+鷎귌췠ᷠ 뷎L    LҦ ³LɆLLҦ  µ)LɥLLѤLҦ :;N:NNH hN ;պ Ժ;L,&Z[\p2Q"(0 P3Q ɿi pLLRͲɊR ^׮p Ѷ8RP˵B̵CpBZ\ @ յյ\BIR -^ ➭\ (p\I Z𐐪L NLA巬 췌`x (`(8`rm`Ժsmaպ`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`,G8`0($ p,&"H hH @D@ Jh  DLꢠ ~LLE  !"#$%&'(')*+,-./0123456789:;<=>?  / X % "-+LŠ͠ˠҠԠĭӠɮԠĠΠŠ֠ӠӠФbptťܥm2<(-Py0\|mRǿx8ɍL)?GGLiѼټ ` `l8mµLTHIHHHHhHH݌hHhHh݌H6 ˆʎõĵL õ ĵµȌ aµ`` L̦µ_bJLLzH hB@L  ȟ QlXJ̥KlV  ȟ QlV eօ3LɠL4L³ &RL &QL d L4 Ne)n `ꭜiɴ LE f`L . tQLѤ LҦLL¼` OPu d L Ne)noon Rɍ`\õL$D@8 D@LBR \L RNLҦHv 3h`0h8` LQ õ`A@`8. ŵH fh  F 濭0 \  ȟ Q ^\lZl^=vH şh`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`-µ µ L8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`LծHIDOLOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIFٯTLOATLISDUMDISATSAVDATŭApppp p p p p`" t""#x"p0p@p@@@p@!y q q p@p y@@y@y@p!y@p q@p@   DOS LANGUAGE ABSENRANGDISK PROTECTEEND DATFILE NOT FOUNVOLUME NUMBEI/FULL DISFILE LOCKESYNTAOUT OF BUFFERFILE TYPFILE TOO BIINDIRECT COMMANDAVID-DOS II.2 DISK ABSEN ERROR u`X`*2@MPYdjxԠ@跻~!b]*9~~e)rsrs`_ r j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ! f 8صٵ紭ﵝ 7L (0BC  7LL{Lg0& JJ yõLõ ŤLµ%J y B B Ť L  Jn Ͱ,0 # ̵µ аL (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ e ^* B0 HȱBh ӵԵ 8 `L8 ݲ` ܫ f ; @D B ! , , ƴ0Lȴ ȴ)  紅D贅@ B ɴ  J$ , 0 Ν Ƀ`HD8H@ຐ@hDh h` ŵBѵ-`, ѵB8` Ꝣ u %ﵭ` fm ﳐ 7i볍 8 `ЉLw`H fh ݲL`~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH P(` dƭ֍뷌ᷩz L*# ׳ܳ 䳩鳩곩i$,V6 LLټ%i[ci,,,ټ躥̺غi躭i3مLABCGحɠ іL³ƭȭ֍ 떙L³֠LXZdflpVVxT4=媗߷iȿ@JX ocu!*3 ";A(1),A(2):A(1)4A(1)1A(2)4A(2)1ĺ"NO SUCH ADDRESS!"::"AGAIN, "N$;:801n4Z1900:Z>TA(1)(A(2)1)4H990R(TS)0900\"THIS IS ";(S$,(T1)31,(T1)33((T1)31)1);". I DID NOT ORDER A PIZZA."fZ1806XR1,6XR6(6XR1)1):1120:P2$P3$>"THIS IS ";X$;"."NZ1800:Z"PLEASE SEND A ";(P2$,1,(P2$)(1)1);" ";(P1$,1,(P1$)(1)1);" PIZZA.":Z11800:Z Z1200:Z1070 "DRIVER TO ";N$;!": WHERE DOES ";X$;" LIVEZZ:ZP80:D4I15(:990=S((16)(1))1["HELLO, ";N$;"'S PIZZA!"lZ11000:ZX$(S$,(S1)31,(S1)33((S1)31)1)XR((8)(1)):P3$(P$,10XR1,10XR10(10XR1)1):1120:P1$P3$'XR((3)(1)):P3$(Q$,1,4"*" DO YOU UNDERSTAND? (Y/N) ";A$L((A$,1,1(1)1)"Y")0570T&:]0110c:D"GOOD. YOU ARE READY TO TAKE ORDERS."N"GOOD LUCK!"XZ12000:b *** HERE COMES A PHONECALLlZZ((200)(1))200v:180Z1N FOR DELIVERY."9"NEED MORE INSTRUCTIONS? (Y/N) ";A$[((A$,1,1(1)1)"Y")0510}((A$,1,1(1)1)"N")0620460"SOMEONE WILL ORDER A PIZZA. YOU NEED TO TELL THE DELIVERY BOY THE LOCATION. FOR INSTANCE, NAN LIVES AT (K)1)KK1I8Q11:7:"!";:33:"!":Q_6:" +---+-----+-----+-----+---+"6:" 1 2 3 4"34,20:"THE ABOVE MAP SHOWS THE HOUSES WHERE YOUARE TO SEND PIZZAS. YOUR JOB IS TO GIVE A DRIVER THE LOCATIOJS1164I1D T"+ ";(S$,(S11)31,(S11)33((S11)31)1);{ ^" ";(S$,(S11)34,(S11)36((S11)34)1); h" ";(S$,(S11)37,(S11)39((S11)37)1); r" ";(S$,(S11)310,(S11)312((S11)310)1);|" +";(M$,K,K$"1234" 200 450# :5C " MAP OF KAILUA":f 6:" 1 2 3 4" 6:" +---+-----+-----+-----+---+" K4 I14 I1Ė7:"!";:33:"!":310 Z12:7:"!";:33:"!":Z 66 @(M$,K,K(K)1); n"HI, ";N$;". IN THIS GAME YOU"G x"ARE TO TAKE ORDERS FOR PIZZAS."r "THEN YOU ARE TO TELL A DELIVERY BOY" "WHERE TO DELIVER THE ORDERED PIZZAS.":: "<< PRESS RETURN >> ";T$ S$"BOBSUEKIMJOEANNSAMMOEPAMROBJIMPATTEDNANMACNEDTOM" M"SMALL MEDIUMLARGE "n (P$"PEPPERONI SAUSAGE CHEESE MEATBALL BACON EVERYTHINGMUSHROOM CHOCOLATE "v 270 <PITCH,P:TIME,D:TUNE: F:4:18:"PIZZA" P7 Z" PIZZA DELIVERY GAME" d:"WHAT IS YOUR FIRST NAME? ";N$:! E SCREEN8 :10:17:"P I Z Z A !":17:"-----------"> D J x 19:6:"THIS VERSION (C) COPYRIGHT 1987" 20:5:"BY COMPUTER USING EDUCATORS, INC." 23:8:"PRESS ANY KEY TO CONTINUE";:Z$ :: PITCH6:TIME7:TUNE827 Q$h--------------------( PIZZAG FROM CUE APPLE DISK #8MSY THIS VERSION (C) COPYRIGHT 1987 BY COMPUTER USING EDUCATORS, INC. ---------------------  :15:"ONE MOMENT PLEASE..."63000 ---TITL          ,16:23,15:21,20:21,20:22,21:22,22:23,23:23,24K^l15,2125:23,2425R^vN\^: ,18:22,17:23,16:23,15:21,20:21,20:22,21:22,22:23,23:23,24&l15,2125:23,2425&vN&: 15C0:1770]C]T027]X1XT,X2XTY1XTQ]Y1XT,Y2XTX2XTk]X2XT,X1XTY2XT]&Y2XT,Y1XTX1XT]0T]:X]DN1332]NC1N]X14,1815:15,2418:14,1824:15,24143^b15,2420:21,19:22,18:22,17:23240:C$"N"1600\J:12:"THANKS FOR WORKING HERE TODAY.":100:::"SEE YOU LATER....ALLIGATOR!!!":255:(13)(4)"RUN HELLO"\T \------REWARD GRAPHIC\\X10\X239\Y10:Y239\C10(1)\C1\X0115 ]CC1:C[::+[ --------ASK IF PLAY MORE OR NOG[:: GIVE NUMBER RIGHTV[I11I10x["M81580:5:"GOOD WORK, "Z$[,7:"YOU GOT "M" PROBLEMS RIGHT OUT OF "I[615:"WOULD YOU LIKE TO TRY MORE PROBLEMS?"\@17:1:"TYPE Y OR N: ";:C$:C$"Y"THAT'S IT, GOOD WORK!!!!, WOW!!!!!, SUPER WORKZ GOOD JOB, RIGHT ANSWER!!, RIGHT ON TARGET, NICE WORK!!!!, RIGHT!! YOU GOT ITZ SORRY, NOT QUITE RIGHT, WHOOPS!!!, DARN MISSED IT, SHUCKSZ KEEP WORKING, WHOOPS, MISSED IT, NICE TRY, THAT'S NOT ITA Y:9.Y-----GENERATE NUMBERS FOR SIDES~YX%10(1)1:RR1X%41492:X%1X%101492:FLG(X%)11492:RR11510YY%(9)2559:Y%1Y%101500:Y%X%1500YFLG(X%)1:RR1I4āX110:FLG(X)0:XY-Z THAT'S RIGHT, GREAT!!! 8:22:1:"CORRECT! "R$(U%)::1700:20:~XW%(9)2556:W%1W%101430:21:868:21:W$(W%)"... ";:PPPP1:PP21440X"TRY AGAIN!":20:X"THE ANSWER IS "P1:PP0:20:X SQUARE/ AREAX:7:I839:11,29I:I:Y RECTANGLE/ARE19:1,321:1,323:19,211:19,233:3Ws 10 TOPgWx12:21,231:21,235:1,519:1,521:1,523:uW} 10 SIDEW12:3,519:3,523:19,231:19,233:19,235:W::W--------REPSONSES TO ANSWERS*XU%(9)2556:U%1U%101420:21:86V 7 SIDE$V6:1,319:19,233:0V( 8 TOPeV210:19,211:19,213:19,215:1,519:1,521:rV< 8 SIDEVF10:1,319:1,321:1,323:19,231:19,233:VP 9 TOPVZ5:19,211:19,213:19,215:1,319:1,521:Vd 9 SIDE&Wn5:1,313:19,215:1,319:3,521:*U 5 SIDEWU9:1,319:1,321:1,323:1,20:3,22:cU 6 TOPU5:19,211:19,213:19,215:1,519:3,521:U 6 SIDEU5:1,319:1,321:1,323:19,231:21,233:U 7 TOPU 6:19,211:2,521: 3:21,231:T` 3 TOPETj10:19,211:19,213:19,215:1,521:RTt 3 SIDE}T~10:1,319:1,321:1,323:19,233:T 4 TOPT11:19,213:1,319:2,521:T 4 SIDET11:1,321:19,211:20,233:T 5 TOPU9:19,211:19,2:PP01020S990 SI:1560'S::FS -------PLOTS FOR NUMBERSLSXS 1 TOPjS14:1,519:wS$ 1 SIDES.14:19,231:S8 2 TOPSB12:19,211:19,213:19,215:1,321:3,519:SL 2 SIDE TV12:1,319:1,321:1,323:19,211240,1280,1320,1360,1400URX%1060,1100,1140,1180,1220,1260,1300,1340,1380,1410:2:vRY836:7,(34(3Y4))Y:YR21:1:"ENTER AREA & PRESS ";:"";P$:P(P$):P0P$"0"ė:990RP1X%X%2:PP1MM1:1420:1020 SPP1İ1430:R AREA & PRESS ";:"";P$:P(P$):P0P$"0"ė:900fQP%X%Y%:P1P%:PP%MM1:1420:930QPP%İ1430::PP0930Q900QI:1560Q:Q ---AREA--TRIANGLE P% = X% * X% /2QI110::1490R:X%1040,1080,1120,1160,1200,* Y%P\I110:RR1::1490YPf:X%1040,1080,1120,1160,1200,1240,1280,1320,1360,1400PpY%1060,1100,1140,1180,1220,1260,1300,1340,1380,1410:8,3212:HLIN 8,32 AT 28PuY1228:8,32Y:YPz VLIN 12,28 AT 8: VLIN 12,28 AT 32 ";:"";P$:P(P$):P0P$"0"ė:810O4P%X%X%:P1P%:PP%MM1:1420:840O>PP%İ1430::PP0840OC810OHI:1560OM:PR ---AREA--RECTANGLE P% = X% P%:PP%MM1:1420:7605NPP%İ1430::PP0760>N730KNI:1560QN:uN ---AREA--SQUARE P% = X% * X%N I110::1490N:X%1040,1080,1120,1160,1200,1240,1280,1320,1360,1400:14:HLIN 11,29 AT 8NY835:11,29Y:Y*O HLIN 11:X%1040,1080,1120,1160,1200,1240,1280,1320,1360,1400:2:fMX012:X8,(2X9):X8,(2X10):XMX012:X20,(342X):X20,(332X):XM8,328M21:1:"ENTER PERIMETER & PRESS ";P$:P(P$):P0P$"0"ė:730NP%3X%:P188:12,2832\Lv21:1:"ENTER PERIMETER & PRESS ";P$:P(P$):P0P$"0"ė:630LP%2X%2Y%:P1P%:PP%MM1:1420:660LPP%İ1430::PPO660L630LI:1560L:L ---PERIM--TRIANGLE P% = 3 * X%LI110::1490 ";P$:P(P$):P0P$"0"ė:540J&P%4X%:P1P%:PP%MM1:1420:570K0PP%İ1430::PPS!"3I19:1:"ENTER YOUR CHOICE (S,R,T,P): ";:D$RID$"S"770: AREA--SQUAREtID$"R"850: AREA--RECTANGLEID$"T"940: AREA--TRIANGLEID$"P"300: GO TO PERIMETERSI440I::I:I ---PERIM--SQUARE P% = 4 * X%JI110:REAS H|330H::4H: -----------AREAS SECTIONNH3:"WELCOME "Z$" !!"tH9:1:"CALCULATE THE AREA OF A:"H12:5:"S - SQUARE"H13:5:"R - RECTANGLE"H14:5:"T - ISOSCELES RIGHT TRIANGLE"I16:5:"P - OOPS! I WANTED PERIMETER"&GA14:5:"T - EQUILATERAL TRIANGLEOGE16:5:"A - OOPS! I WANTED AREAS!"GJ19:1:"ENTER YOUR CHOICE (S,R,T,A): ";:C$GOC$"S"500: PERIM--SQUAREG^C$"R"580: PERIM--RECTANGLEGhC$"T"670: PERIM--TRIANGLEHrC$"A"400: GO TO AC$F X110:FLG(X)0:X:FC$"P"300: --GO PERIMETERVFC$"A"400: --GO AREA_F265fF::F,: ----PERIMETERS SECTION-F.3:"WELCOME "Z$" !!"F69:1:"CALCULATE THE PERIMETER OF A:"F712:5:"S - SQUARE"G@13:5:"R - RECTANGLENAME? ";Z$:Z$""200;EM0: M = NUMBER OF RIGHT ANSWERSBE::tE -----------PICK SECTION: AREA OR PERIMETER?E:7:"WHICH WILL YOU WORK WITH, "Z$"?":E10:5:"P - PERIMETER"E12:5:"A - AREA"F 15:1:"ENTER YOUR CHOICE (P,A): ";:SEL"4D19:2:"REVISED VERSION (C) COPYRIGHT 1987"dD20:3:"BY COMPUTER USING EDUCATORS, INC."D23:8:"PRESS ANY KEY TO CONTINUE";:C$:D:D:-----GET STUDENT NAMED23:6:"TYPE YOUR NAME AND PRESS E12:8:"WHAT IS YOUR -----------TITLE & READ DATA@C6:11:"DRILL AND PRACTICE":VCI110:R$(I):IpCI110:W$(I):I:I0C8:11:"PERIMETER AND AREA":C10:19:"OFC12:4:"SQUARES - RECTANGLES - TRIANGLES"D17:4:"ORIGINAL VERSION BY HARDY & RUS RECTANGLEBd T = TRIANGLE6Bn M = CORRECT ANSWERSQBx Z$ = NAME OF STUDENTxB B$ = CHOICE OF AREA OR PERIMETERB C$ = SELECTION OF SHAPE FOR PERIMETERB D$ = SELECTION OF SHAPE FOR AREAB==============================B:B:C24:1:"PRESS TO GO ON, TO END ";UAIN$:(IN$)13(IN$)2720iA((IN$)271560qA2:wA5:A7==========================A9 VARIABLES:A; ------------A< P = PERIMETERAF A = AREAAP S = SQUARE BZ R =^@ ----------------------:@ PERIMETER & AREA DRILL]@ ORIG PROG BY HARDY & RUSSEL@ REVISED BY DON BECK FOR CUE@@ (C) COPYRIGHT 1987@ BY COMPUTER USING@ EDUCATORS, INC.@ ------------------- @ :165@:2A                   90(XX$)32640:XX$;:AN$AN$XX$:640j(AN$)0640:H$" "H$;:(AN$)1630:AN$(AN$,(AN$)1):640(AN$)0640::AN(AN$):C1LL:C: HING."6D::"THE FIRST PLAYER TO 100 POINTS WINS!"fN:::"HIT ANY KEY TO CONTINUE.";:AN$::X INPUT SUB. IN 'AN' & 'AN$'b LL=LENGTH OF WINDOW.l"? ";vAN$"":XX(0)XX$:XX$H$660:(XX$)13670:(AN$)LL640'(XX$)AN PASS OR CONTINUE PLAYING.""L::" --IF YOU PASS, YOU GET THE POINTS"&" YOU WON IN THAT ROUND."::" --IF YOU CONTINUE, YOU CAN WIN"0" MORE POINTS OR GET ZAPPED!"::" SINGLE ZAP--LOSE POINTS OF ROUND.":" DOUBLE ZAP--LOSE EVERYTX:4902(N20),60%Y1D2D.Y:y:"THE COMPUTER WILL ROLL TWO DICE":"MARKED WITH: 2,3,4,5,6 & ZAP.":"IF 2 NUMBERS APPEAR, MULTIPLY THEM":"CORRECTLY TO GET POINTS EQUAL TO ""THEIR PRODUCT. AFTER A CORRECT ANSWER":"YOU CX027910:140,0X,159:140,159X,0::H:n:22:"ANOTHER GAME? (Y/N) ";:Z$:Z$"N"ĺ:(4)"RUN HELLO"|Z$"Y"Ĭ430:Y12:N150(Y1):D((5)61):Y4:X10100:N10,XN100,X:X:4D1480:X1D:1(ND(X,D,1)),D(X,D,2):"POINTS. TOTAL FOR THIS ROUND IS "T;:G0:LL2000:680:240Y|P(P)P(P)T:P(P)100400iT0:P:230::P$(P)", YOU WIN!!!":"FINAL SCORE IS "P(1)" TO "P(2)"."CONGRATULATIONS TO "P$(P)::H17:H:Y01598:0,80279,Y,279,8000,Y::390C@"YOU HAVE BEEN ZAPPED.":"POINTS FOR THIS ROUND ARE LOST,kJ"AND YOU LOSE YOUR TURN.":S0:310T"YOU HAVE BEEN DOUBLE ZAPPED.":"YOU LOSE ALL YOUR POINTS AND^"YOUR TURN.":P(P)0:310h:"VERY GOOD !! YOU HAVE EARNED "M:TTM:rOUND ARE "TS20::P$(P);::" , DO YOU WANT TO PASS (Y/N) ";:AN$:AN$"Y"380AN$"N"250::460:D1D21340:D1D21320"P$(P)", WHAT IS THE PRODUCT ";:LL3:600:AAN:MDD2:AM360,"WRONG, YOU LOSE YOUR TURN.6LL1000:680:$"Y"İ510:210!AN$"N"180eX12::15:"WHAT IS YOUR NAME, PLAYER ";::X;::" ";:LL10600:P$(X)AN$:P(X)0:P12:10:10)"THE SCORE IS:"::10)P$(1)20)P$(2) :11)P(1)21)P(2):G1270:16:"POINTS FOR THIS RRSION (C) COPYRIGHT 1987"I21:6:"BY COMPUTER USING EDUCATORS, INC."v24:8:"PRESS ANY KEY TO CONTINUE";:C$}:::10:" ZAP IS A MULTIPLICATION GAME"::" PLAYED BY TWO PEOPLE.(20):"DO YOU WANT THE RULES (Y/N) ";:LL1:600:AN16570:Y:X,Y::232,0:233,64:3:0:1O :8:17:"Z A P !":17:"-------"k 13:15:"BY BILL HECK" 14:10:"MODIFIED BY BEN JACKSON" 16:4:"MICROCOMPUTERS IN EDUCATION PROJECT" 17:10:"ROBBINDALE AREA SCHOOLS"20:7:"THIS VE4,54,37,36M 36,36,39,37,47,60,44,60,61,44, 45,45,45,45,62,63,63,63,47,45 45,45,45,46,54,54,44,36,55,54,62,62,63,63,63,63,44,45,45,45 45,0,0,46,45,45,45,63,63,63 D(6,6,2),P$(2),P(2) X16:Y16( D(Y,X,1),D(Y,X,2):::X1638463E d 63,63,63,46,45,45,45,45,45,109,73,73,73,73,73,18,54,54,54,54 n 62,36,36,36,36,37,37,37,37,45,45,45,53,63,63,63,47,45,45,45 x 53,53,53,53,54,54,54,62,36,36,36,36,52,54,54,63,63,63,63,63 63,63,44,45,45,45,45,45,45,45,77,73,73,73,9,54,5,30,50,50,70,70,30,70,70,30,0,0,30,30,30,50,30,70,70,30,70,50,70,70 F 2,0,8,0,32,0,182,0,45,46,61,63,63,55,47,45,45,45,53,63 P 63,63,63,53,45,45,45,63,62,63,0,0,45,45,45,45,45,45,37,63 Z 63,63,63,63,63,37,37,37,37,37,37,37,37,37,37,37,61,63,63,BY COMPUTER USING EDUCATORS, INCB -------------------------- f #::15:"ONE MOMENT PLEASE..."w (H$(8):G1: ) 50,50,0,0,0,0,0,0,0,0,0,0,30,30,70,70,0,0,0,0,0,0,0,0 2 30,30,50,50,70,70,0,0,0,0,0,0,30,30,30,70,70,70,70,30,0,0,0,0C < 30!--------------------------= ZAP! --- BY BILL HECK[ MODIFIED FOR THE APPLEq BY BEN JACKSONw FOR MICROCOMPUTERS IN EDUCATION PROJECT AT ROBBINSDALE AREA SCHOOLS  THIS VERSION (C) COPYRIGHT 1987      ̃㿞ժժ叠マ߀ΜÃƟ˿ÇÿϿՊÿÇՊʟߪժЪժ灎Ã恞ãù󏇜תժժ׫ժժժ݋ߪ繜湜睌ᡸǟ̃𹞇烀灞ၞÃߪժسתժժժNj繜湜Ͽ珰繜繜ó晎ιժժ߳תժժժϴۭၞÃϿûdz繜ÃÀԪ繜ÓǜιժÿϿתϿϿ󸸜û󁼸೜ၞÃ晎Ҫ񂀊灎Ã㜿θߪժÿϿǿϿ󸸜灧ÃǿЪÜΜתժȱ糞תժ瀀ÇÿϿÿ 🀼à          [J(ì' ǟǜ& $ 񜞀%,翅II䟟J&ώ) ΎΜǃ@·󳀏'󿿞&̾߿Ύ&Ǧ㏃$ $ÃΎ%ǟǜ&&Ã*K@&ϟǎÓ)ϏϿ𸜏灸&$ïTЀPPՀP„(Օ(ਪʔ*#*$)%)z #?    "îҮà  Үà"С Ҡ   ˠ ŠӠ9ȠŠȠٯŠԠ( ǠŠ!٠ɠנŠҿԠ ŮˠˠϠĠȠ٠ǠӠ ǠҠU@յ؃`Us܍յ`ߵUU Ug` `p~އ pc\px~֍Ձ ăcpյ؍xs؇Ս`ݵ  EDg`pc ׍ pc\@@`G @@@G@@@@@Oڪ `p~֍ @յՂp Ď?s`֍յ g8 Ug`p~؃pc|`p~֍Ձ @`g@@@᰸@@ꅺ@ @@Gc@@@8c`@ă`oGD@"`g@~?@@A@ꊪ@ @@Gꇪ@@ @@{@` @@Gc@@Gs@ꆰ@ă@N@D@"`w@@@@@Ʈ@ @@Gc@D@~c`@`GG@ @@GcA@@G;@@D@"`?@@@ @@~@ @@Gc@@Gs@N?@@`w@@@@ @@Gꇪ@@@ă`;GD @*G@@@@@ @*@G`@*@G;@*@*@*` @@@ @@ N`յՃăAxpN" Np`pՃx@Հ`Հ ĎNpՍՇ N DGxp``p`Ճյ @@ګ @ N`յՃNՅփG" Nx@pxc@Ճ`|cՂ `ՂՃ ĎN`յՃ"GՅ؃N DNp`pxc`Ճ@|c`Հ`ՂՃ Ճ |G`ՀąNՄՍ" Np `p{ ՂՃ ĎN`յՃN`ՃփA DNp `xcx ൃՂՃ`QصյՍ `Հ ~NՍ N" UA`p`p$صՇ UpA``ՀU~N׵ՍUU UN ?p `p{$ص      ROM CUE, INC." >NPERMISSION FROM CUE, INC."8 > ":U 17:" THIS DISK MAY BE FREELY COPIED AND" 18:" GIVEN AWAY, BUT MAY NOT BE SOLD" 19:" OR INCLUDED AS PART OF ANY " *20:" COMMERCIAL PACKAGE WITHOUT " 421:" WRITTEN PERMISSION FTER Z : -  -- TITLE PAGE --E PAUSE3: (SECONDS)[ P1PAUSE700:Pa  ND$"ELEMENTARY MATH DISK #1" 6:21(ND$)2:ND$ 10:4:"COPYRIGHT 1987, CUE, INCORPORATED" 12:11:"ALL RIGHTS RESERVED"$ 15:4::"  CUE BOOT PROGRAM . :49234,0:@D$(13)(4)WD$"BLOAD RUNPACK"p(D$"BLOAD TITLE.PAK"z28048<2000: -- TEXT TITLE --A1023,1FD$"RUN HELLO" P SOFTSWAP TITLE GRAPHIC BY JOHN FORRESTER AND HIS MOM, ROXIE FORRES   ZZ:" ";:ZZ/ ZZ4011:ZZ:23:" ";:ZZP ZZ2311:1:ZZ:" ";:ZZV a : x  -- SET WINDOW -- :1806 32,1:33,38:34,1:35,21 ":  CREDITS :3:15::"CREDITS": 5:" THIS DISK CONTAINS A HIGH-SPANNER --C :ZZ36:3:ZZ:" "z ZZ4ĢZZ:CUE$"CUE SOFTSWAP":21(CUE$)2:CUE$ ZZ5ĢZZ:21(ND$)2:ND$ ZZ  :  -- SCREEN SETUP -- ::ZZ140:1:ZZ:" ";:ZZ ZZ223:40:"A$(V)1 K141VNP4ĴV(NP4)2000,4000,3000? VNP50G :u OO" " :  -- SCREEN CLEAR -- 23:3: " PRESS ANY KEY TO CONTINUE "; 49168,0:Z$:: :   -- MENU BN1NP:7N:20(A$(N))2:A$(N);:F d:V7:20(A$(V))2:A$(V);a nK(16384):K128110 x16368,0::V7:20(A$(V))2:A$(V); K136K139VV1:V0VNP K149K138VV1:VNP1V1 K141100 K141VNP4ĉ::D$"RUNN PROGRAM = 'HELLO' 4 SOFTSWAP MENU @A$(20)[49168,0:D$(13)(4)uNP:N1NP:A$(N):N(1800:18202::V1:255<ND$"ELEMENTARY MATH DISK #1":1700F:23:4:"USE ARROW KEYS AND PRESS ";:P8$ Z          p`` 0:ȡHe@ hhл`Ie@҈@d ăq8D "bxx9N@  q8D4 "b89N9N 8@ƪ݀y`x||q8 h8|9Np 8ຫAՀDqA O|~@ 8@Ϊ8x?yq h89N9O?@ 8@ƪՀ5qyxăaOA yxꪆ݀8@q hxA` OA 8Հ Dd8ă`yDd "b8ƪ ` 8ꫪ@ q8 *j`xqNê *jy`*j8@*j*j *j?x  A|pqg EDqgp~xpc<Ս`pՀՁյՂ ?spֵص#" g," ?gp~`pc|Ս`p Dg~x`pcՀpc@Ղ~յ@ s9յ؍ aqqg#" qgxp~pc<Հ`pcՄյ ăs9յصppx~ՃܵՁ s9յ؍,#"s8Շݍf#" g`pcՀ pc|~x|~Շյ ăs9յ؍>Ďs8``?g  ESCREEN AND CLEAN "@:" THE DONATIONS, AND TO DISSEMINATE "kD" COPYABLE DISKS TO EDUCATORS AT LOW"yN" COST."X1000b:3:12::"ABOUT SOFTSWAP":l5:" THIS DISK IS COPYRIGHTED BY CUE, "v" INC., AND IS NOT IN THE PUBLIC " 1000-:3:12::"ABOUT SOFTSWAP":]5:" SOFTSWAP IS A SERVICE OF CUE, INC., "" AND HAS BEEN OPERATING SINCE 1978. ":" SOFTSWAP'S MISSION IS TO SOLICIT THE"&" DONATION OF USEFUL EDUCATIONAL SOFT-"0" WARE AND DATA, TO LL AND SPRING, AND RECEIVE "I" THE CUE NEWSLETTER SIX TIMES A YEAR."o::" TO JOIN CUE, SEND $22 TO:":" CUE, INC."" P O BOX 2087"" MENLO PARK, CA 94026"::" FOR MORE INFORMATION, CALL":" (415) 328-2248"S; AND"6^:" * TO PROMOTE THE PROFESSIONAL GROWTH"ch" OF ITS MEMBERS AND ALL FELLOW "xr" EDUCATORS."|1000:3:15::"ABOUT CUE":5:" OVER 2500 CUE MEMBERS ATTEND THE "" STATEWIDE CONFERENCES HELD EVERY"" FA COMPUTERS":" AND OTHER TECHNOLOGIES":" IN EDUCATION."k,:" * TO MAKE A SUBSTANTIAL CONTRIBUTION"6" TOWARD DEVELOPING AND PROVIDING "@" INFORMATION, MATERIALS, AND"J" SOFTWARE APPLICATIONS TO ALL"T" INTERESTED PERSON" CUE HAS OVER 7000 MEMBERS THROUGHOUT"R" THE U.S., CANADA, AND IN SEVERAL "m" FOREIGN COUNTRIES."w1000:3:15::"ABOUT CUE":5:" THE GOALS OF CUE ARE:":" * TO PROMOTE THE DEVELOPMENT AND "<"" GROWTH OF THE USE OFGLES. " 4 1000": C -- ABOUT CUE & SOFTSWAP --a:3:15::"ABOUT CUE":5:" COMPUTER-USING EDUCATORS, INC., IS A"" NON-PROFIT EDUCATIONAL CALIFORNIA "" CORPORATION FOUNDED BY TEACHERS IN "" 1978."(:RIGHT ANSWERS EARN "D " MORE MONEY, BUT WRONG ANSWERS CAN "n " COST YOU ALL YOUR WINNINGS! ";x 1000 3:" ";::"PERIMETER & AREA:";::" A PROGRAM" " OF DRILL FOR PERIMTETER AND AREA OF "* " SQUARES, RECTANGLES, AND TRIANT SUBTRACTION PROBLEMS IN "J " LARGE HI-RESOLUTION NUMBERS. " ::" ";::"PIZZA:";::" PRACTICE 2-DIMENSIONAL" " COORDINATES BY DELIVERING PIZZAS." ::" ";::"ZAP!:";::" PLAYERS CALCULATE THE PRODUCT" " OF TWO DICE. POSITIVE OR NEGATIVE. ",t 1000lv 3:" ";::"MAKING CHANGE:";::" SPECIFY WHAT COINS TO " " GIVE TO MAKE CORRECT CHANGE IN SOME " " RANDOM SHOPPING PROBLEMS. " ::" ";::"MAY I BORROW SOME SUGAR?"::" TWO DIGISH AWAITS. "_X ::" ";::"LEGACY:";::" FAST PACED MULTIPLICATION"b " DRILL GAME FOR FACTS TO 10. "l ::" ";::"TAKE IT OR LEAVE IT:";::" MAKE OR LOSE"q " MONEY BY QUICK ANSWERS IF PROBLEMS ""s " AREIN MATH"5 " PROBLEMS, AND HEAR NUMBERS & ANSWERS"a " IN DIGITIZED SPEECH! TRY IT... "& ::" ";::"CATCH THE FISH:";::" FISH ALONG A NUMBER": " LINE! NUMBERS FROM 1 TO 10/1000."D " USE CLUES TO MOVE YOUR LINE TO WHERE"#I " FI "= :" ";::"ADD WITH CARRY:";::" VERTICAL ADDITION"j " OF INTEGERS. CLEAR PROMPTS TO WALK " " LEARNER THROUGH 2-DIGIT ADDITION " " WITH CARRYING. " 1000 3:" ";::"TALKING CALCULATOR:";::" TYPE WELL AS PROGRAMS "A " FROM OTHER SOURCES: 9 IN TOTAL. "::| " ";::"ADDING FRACTIONS:";::" FRACTION ADDITION " " DRILL. 3 LEVELS OF HELP/RESPONSE IN" " FORM OF GRAPHIC DISPLAY OF SHADED " " RECTANGLES. , INC."( " 34880 BUNKER HILL"T " FARMINGTON, MI 48018.":1000_ : | ABOUT THESE PROGRAMS  :3:9::ND$: 5:" ASSEMBLED BY HAL GIBSON, THIS" " DISK INCLUDES SOME CLEANED-UP SOFT-" " SWAP CLASSICS, AS EED"? " OPERATING SYSTEM CALLED ";::"DIVERSI-DOS";::","f " WHICH IS LICENSED FOR USE WITH" " PROGRAMS ON THIS DISK ONLY." ::" TO LEGALLY USE DIVERSI-DOS"  " WITH OTHER PROGRAMS, YOU MAY SEND"  " $30 TO: ": " DSRL5&J1W(N1))+(J1)01883D,4:15:" "M-FL0^04:20J:C$k24:20J5B(J)(16384):16368,0:(B(J)174B(J)186)01855<FLFL4:FL4FL0=Z150:Z>380FL:1840?B(J)B(J)176@380(J(6(I1)))((ANS)((ANS10))(10))(ANS10)S 2ANS((ANS10))(ANS10)Z FJa PIg Z|  ***COLSUM*** J1W(N1):C(J)0:J I1N J1W(I) C(J)C(J)A(J(6(I1))) J I   ***SUM*** CARRY0 ***OUT NUMS***  5, I1N1? 20W(I):X(I)F Il 20W(N1)1:"+";:20W(N):X(N) 20W(N1)1:J19W(N1)19:"-";:J:  22:"HIT '/' TO STOP"   ***PARSE*** I1N1 #ANSX(I) (J1W(I)4 -ASUM0 I1N* X(I)((10K)(1)); SUMSUMX(I)B IQ $X(N1)SUM^ .I1N1f 8J0q BW(I)J L(((X(I)10J))(X(I)10J)0)01130 P(J4)01110 SW(I)5 T1130 VJJ1 `1090 jX(I)0W(I)1 tI ~ 9 23:" DO YOU WANT INSTRUCTIONS (Y/N) ";:A$:A$;Q (A$,1)"N"İ2500Z FG0j RGT0:WRG0v K2:N2 1014,0:SCR 1014,0:GEN (1014,0:OUT - 21014,0:PARSE 71014,0:COLS P1800 25  ***GEN NUMS*** ION  (C) COPYRIGHT 1987 BYD COMPUTER USING EDUCATORS, INC.b ------------------------j : 8:13:"ADD WITH CARRY":13:"----------------" 16:6:"THIS VERSION (C) COPYRIGHT 1987" 17:5:"BY COMPUTER USING EDUCATORS, INC."8&W(25),X(25),A(150),C(25):C$"^"P:15:"ONE MOMENT, PLEASE...":60000GEN1000:OUT1200:PARSE1300:COLS1500:SRRY2100:SCR2300-------------------------- ADD WITH CARRY ORIGINAL AUTHOR UNKNOWN  THIS REVISED VERS     ABOUT CUE & SOFTSWAP-$ ABOUT THIS PROGRAM;$ Q U I TMETHING TO CONTRIBUTE?"=#:" SEND INQUIRIES OR DISKS TO:"^#:" SOFTSWAP CHAIRPERSON"r#" CUE, INC."#" P O BOX 2087"#" MENLO PARK, CA 94026"# 1000#: #p 6#z PLAYER'S CHOICE# FILEMAKER# CREDITS$ FOTO FLASH"| SYLLABLES*"~ SCRAMBLEI" +--- C R E D I T S ----+h" ! ABOUT CUE & SOFTSWAP !" ! ABOUT THESE PROGRAMS !" +------ Q U I T -------+ """ DISKS.""1000":3:12::"ABOUT SOFTSWAP":#5:" DO YOU HAVE SOSTART!u CATCH THE FISH.!v LEGACY/TAKEIT@!x MAKE CHANGE_!z MAY I BORROW SOME SUGAR?q!| MISTER MATH}!~ PIZZA! +--- C R E D I T S ----+! ! ABOUT CUE & SOFTSWAP !! ! ABOUT THESE PROGRAMS !! +------ Q U I T -------+"zUE & SOFTSWAP !.  ! ABOUT THESE PROGRAMS !M  +------ Q U I T -------+-+RSON"n " CUE, INC." " P O BOX 2087" " MENLO PARK, CA 94026" 1000 : p 13 q ADDING FRACTIONS r ADD WITH CARRY!t CALCULATOR 4q ADDING FRACTIONS-r ADD WITH CARRYFt TALKING CALCULATOR[u CATCH THE FISHpv LEGACY/TAKE ITx MAKING CHANGEz MAY I BORROW SOME SUGAR?| PIZZA~ ZAP! PERIMETER & AREA +--- C R E D I T S ----+  ! ABOUT C":3:12::"ABOUT SOFTSWAP":R5:" DO YOU HAVE SOMETHING TO CONTRIBUTE?"x:" SEND INQUIRIES OR DISKS TO:":" SOFTSWAP CHAIRPERSON"" CUE, INC."" P O BOX 2087"" MENLO PARK, CA 94026" 1000: p 1-" DOMAIN. IT MAY BE FREELY COPIED AND"]" GIVEN AWAY, ";::"BUT NOT SOLD";::".":" SOFTSWAP IS A NON-PROFIT SERVICE. "" ALL PROCEEDS BEYOND COSTS ARE PLOWED"" BACK INTO THE DEVELOPMENT OF NEW "" DISKS."1000(2)"B":A0$(3)"C"6 A0$(4)"D":A0$(5)"E":A0$(6)"F PR(1)2:PR(2)3:PR(3)5:PR(4)7:PR(8)11:PR(9)13:PR(10)17:PR(11)19:PR(12)23 :10:12:"ADDING FRACTIONS":12:"----------------" 19:6:"THIS VERSION (C) COPYRIGHT 1987"" 20:5:"#----------------------------: ADDING FRACTIONSY ORIGINAL AUTHOR UNKNOWN_} THIS REVISED VERSION IS (C) COPYRIGHT 1987 BY COMPUTER USING EDUCATORS, INC. ---------------------------  ::PR(12):A0$(1)"A":A0$     CAUTION!!!!$"DON'T RENUMBER6,THIS PROGRAM20 52 E7 20 1A D6 90 1D A9 03 20 D6 D3 A5 B9 48 A5 B8 48 A5 76 48 A5 75 48 A9 B0 48 20 B7 00 20 41 D9 4C D2 D7 A2 5A 4C 12 D4 20 7B DD 20 52 E7 20 1A D6 90 F0 4C 41 D9 N D9C6G"jI1(A$):511I,128((A$,I,1))::72,0:144:H AUTHOR UNKNOWN SOME HARD ONES":, "YOU'RE DOING FINE":? "TRY THESE":^ "YOU'RE JUST TOO SMART": "VERY GOOD. LET'S GO ON": "THOSE WERE TOO EASY": "I CAN'T OUTSMART YOU!": "YOU GET A GRADE OF A":`1013,76:1015,3:A$"300:20 7B DD S THE RIGHT KEY":* "BETTER, BETTER":G "HOT DOG! YOU GOT IT":c "NOW YOU'RE TALKING":| "CONGRATULATIONS": "RIGHT ON!": "ON THE MARK": "YOU'RE LEARNING": "LET'S GO ON": "NOW THEY GET TOUGHER": "HERE ARE U CAN DO BETTER":, "YOU KNOW BETTER!":? "TRY AGAIN":N "OOPS!":m "YOU HIT THE WRONG KEY": "SO SORRY": "NOT QUITE RIGHT": "ONCE MORE, PLEASE": "GUESS AGAIN": "MUCH BETTER": "AN IMPROVEMENT": "THATU". "GET ANSWERS RIGHT, AND EASIER AS YOU"D "MAKE MISTAKES."i 23:"HIT 'RETURN' TO BEGIN ";A$o ( **END PROGRAM- 2 "I HOPE YOU LEARNED SOMETHING TODAY"::"WITH THIS PROGRAM."7 :(4)"RUN HELLO" "NOT TOO GOOD": "YOMS. THE CURSOR WILL"? "INDICATE WHERE YOU ARE EXPECTED TO"e "FILL IN A SINGLE DIGIT ANSWER." ::"DO NOT HIT RETURN AFTER YOU ENTER A" "DIGIT. YOU MAY END THE PROGRAM BY" "TYPING A '/'.":: "THE PROBLEMS WILL GET HARDER AS YO1B L RGT0:WRG0iN (N10)02385:20:"YOU ARE A CHAMPION, GO TO THE HEAD OF THE CLASS!!":yQ N10İ2250S (K3)02410V KK1:j NN1:N10N10t  :5 "YOU WILL BE PRESENTED WITH A SERIES OF" "ADDITION PROBLE1((10)(1))415:1014,0:3020((10)(1))DW1500:Wr15:" "x ***SCR*** (RGT2WRG4)02330  (RGT2)02380 RGT0:WRG0$ (N2)02360. NN1:8 KK1:K1K:3000((10)(1))#HW1500:WRR15:" "X\m ***BETTER***1((10)(1))15:1014,0:3010((10)(1))W1500:W15:" " ***ADVAN***1840DCARRY(((C(J)CARRY)10))((C(J)CARRY)10):6N:13TFG1İ2200]FG0t4:13:" "6N:20JT(J)LL1JRGTRGT1 4 ***SRRY***6FG19WRGWRG1;1((10)(1))>15:1014,00:Zb380FL:1883)dT(J)T(J)1763g380Ji(T(J)1)02600l(T(J)(((C(J)CARRY))(((C(J)CARRY)10))(10))((C(J)CARRY)10))01970q1014,0:SRRYv1886(J1)019506N:20JZL5:Q(Z);:Z NULLA(B(J)1)02600)B4:20J:B(J)CD(B(J)CARRY)01880UI1014,0:SRRY_N1840hXFL0xYFG1İ2200ZFG0[6N:20J:C$:6N:20J]T(J)(16384):16368,0^(T(J)174T(J)186)01892`FLFL4:FL4FL0aZ15176:B2276:WMN0:NUN51CMCDNU:WMCMCMWMmH1((CDWM)VN):V1((CDWM)VNH1)VN:H2((CDNU)VN)V2((CDNU)VNH2)VN:V2V21:V2VN1V21:H2H21V21H2H21V10V1VNI1CM:AXA1:BXB1:HH1:VV1:440:0:SP1:295:3:BOXES.Ar"PRESS RETURN";S$:"SINCE THERE ARE "NK" SHADED BOXESrw"AND THE COMMON DENOMINATOR IS "CD" SO THE|"ANSWER IS "NK"/"CD" IN REDUCED FORM: "A$(5):K11000:K:N0N5A1176:B1276:A20:B2100:WMN5:NUN0N0N5A10:B1100:A20ĺ"PLEASE, A POSITIVE INTEGER!":330X^NTNKĺ"THAT'S RIGHT "N$;:K13:(7);:K:cNTNKĺ"SORRY, "N$" THAT'S NOT RIGHT.":"I'LL HELP.":K12000:Kh(NTNK)(N0D0)(N5D5)İ385m(NTNK)((N0D0)(N5D5))ĺ"THERE ARE "NK" SHADED EADY..":Q$:155:[E:21:"NOW, "N$" ALL YOU HAVE TO DO":"IS COUNT THE SHADED BOXES.J"HOW MANY ARE SHADED";:CDD0N5N5CDD5:D5CDOCDD5N0N0CDD0:D0CDTNKN0N5:NT$:NT(NT$):NT$"F"(NT$,1)"H"ĺ"OK, I'LL HELP..":360%YNTC1,YXH,YH:Y:XC1C3SP:XHC3:YHC4C3X:YHC2YHC2:XHXC4C2W1X,C4XH,YH:X:621:J13:" ":J:21;"OK, "N$" I'LL HELP YOU.":"THINK ABOUT THE PROBLEM A LITTLE AND@"PRESS RETURN WHEN YOU'RE RNC:HL1BP:295:C1C1DX:C3C3DX:HL:C2C2DY:C4C4DYnC1AX:C3C1DX:CL:**DOES ANY LEFT OVER BOXES**RBNNCBP:RB0ıSP6:HL1RB:295:C1C1DX:C3C3DX:HL:"'DDC1C2:YC2C4SP:YHC2:XHYDD:XHC3YHC2XHC3:XHC3B,*O3:AX,AYBX,AYBX,BYAX,BYAX,AY:DY(BYAY)HN:DX(BXAX)VN:YPAY:XPAXK1HN:YPYPDY:AX,YPBX,YP:K:K1VN:XPXPDX:XP,AYXP,BY:K:BPVN:C1AX:C3C1DX:C4BY:C2C4DY:NC(NBP):NC0280 **DOES COMPLETE LINES**9SP6:CL1D5D0AX0:BX100:AY0:BY155:HNH5:VNV5kCDHNVN:245::21:140:"WHAT IS YOUR ANSWER NOW"(7);:F2$F2$(F2$,1):F2$"F"İ325F2$A0$(RE(5))Ģ24:K13:(7):K(F2$"F")(F2$A0$(RE(5)))İ325 **DRAWS BOX AND PARTITION*A0$(RE(5))200c(F1$"F")(F1$A0$(RE(5)))ĺ"SORRY, "N$", THAT'S NOT CORRECT.":K11000:K(F1$"F")(F1$A0$(5))İ205"PRESS RETURN";S$::21:"OK, I'LL HELP..":K1400:KD0D5AX176:AY0:BY155:BX276:HNH0:VNV0)X276:BY155:DD5:NN5W465:245:260:H5HN:V5VN:24:"PRESS RETURN";S$::21:1401:24:"NOW WHAT IS YOUR ANSWER? (A-E) ";:F1$::21:140F1$(F1$,1):F1$"F"İ205F1$A0$(RE(5))Ģ24:K15:(7):K:"THAT'S CORRECT "N$F1$)"B.) "A$(L(2))30)"C.) "A$(L(3))Y"D.) "A$(L(4))15)"E.) "A$(L(5))30)"F.) "A$(L(6)):"THE QUESTION IS: "N0"/"D0" + "N5"/"D5::AX0:AY0:BX100:BY155:DD0:NN0:::465:245:21:7:N0"/"D0;33:N5"/"D5:260:H0HN:V0VN:AX176:AY0:B(3)(N)"/"(D)FxND0D51:DD0N5D5N0:445:A$(4)(N)"/"(D)}ND0N5N0D5:DD0D5:445:A$(5)(N)"/"(D):A$(6)"HELPJ15:L(J)0::J15TER(5):K1J:TEL(K)135:K:L(J)TE:RE(TE)J:J:L(6)6:RE(6)6:!"A.) "A$(L(1))15310:S0:J16:F$A0$(J)S1:J:S0754 _::PCs d:"TRY SOME MORE? (Y/N) ";:Z$:Z$"N"ĺ:(4)"RUN HELLO" iZ$"Y"35:100 nNN0N5:DD0D5:445:A$(1)(N)"/"(D):NN0D01:DD0D51:445sA$(2)(N)"/"(D):ND0N0N5:DD0D5:445:A$RONG ANSWERS*** ' F20:958:21:140g K24:5:"WHICH IS THE SUM (A-E) ";:868:F$:(F$)0İ480 N COMPUTER USING EDUCATORS, INC. P(F$)070:F$A0$(RE(5))ĺ"CORRECT "N$"!":J11000:J UF$A0$(RE(5))95:F$"F"İ155( ZF$"F"95:I1)MI):PC1NPK -D1R(MA):D0BAD1:N0R(D0):NN0:DD0:445:N0N:D0D 2D2R(MA):D5BAD1:N5R(D5):NN5:DD5:445:N5N:D5D 7(D51)(D01)(D0D5)45::10:10:10)N020)N5 <9)"--- + ---":10)D020)D5:110 A** 500 GENERATES 4 WBY COMPUTER USING EDUCATORS, INC."O 23:8:"PRESS ANY KEY TO CONTINUE";:C$ :10:6:"PLEASE TYPE YOUR NAME:";N$:(N$)028 :10:10)"THANKS "N$:I12000: #:" HOW MANY PROBLEMS DO YOU WANT ";:NP:BA2:MA3:MI1 (R(X)((1)(XMW70W50W60W20W0)07508L6,W21:2054:W2",";MLANSANSW21000:LW3((ANS100))(ANS100):(W90W80W70W50W60W30W20W0)0770L6,W31:2054:W3;LANSANSW3100:MW4((ANS10))(ANS10):(W90W80W70W50W(ANS100000):(W90W80W70W60W50)0708GK6,W51:2054:W5;]KANSANSW5100000KW((ANS10000))(ANS10000):(W90W80W70W60W50W0)0720K6,W1:2054:W;KANSANSW10000LW2((ANS1000))(ANS1000):(W90W80AJW7((ANS10000000))(ANS10000000):(W90W80W70)0693XJ6,W71:2054:W7;pJANSANSW710000000JW6((ANS1000000))(ANS1000000):(W90W80W70W60)0696J6,W61:2054:W6",";JANSANSW610000000KW5((ANS100000)):2054I"- ";IANSANSZIW9((ANS1000000000))(ANS1000000000):(W90)0684tI6,W91:2054:W9",";IANSANSW91000000000IW8((ANS100000000))(ANS100000000):(W90W80)0687I6,W81:2054:W8;IANSANSW8100000000B(T))HNN1HTH&N)H0ANSB(1);H:(I1)0620FHDN1InHN(A$,N,N(N)1)"+"ANSANSB(N1)HX(A$,N,N(N)1)"-"ANSANSB(N1)HbNHl(ANS0)0670Hv(ANS0)0660H6,11:2054H682H6,1:2054:0:800I6,13((A$,N,N(N)1)"*"(A$,N,N(N)1)"/")0480:550FGKN:TN1IG((A$,T1,T1(T1)1)"*"(A$,T1,T1(T1)1)"/")0510GTI:540G(A$,T1,T1(T1)1)"*"B(K)B(K)B(T)H(A$,T1,T1(T1)1)"/"B(K)((B(K)B(T)))(B(K)1,I1)"*":" * ";:6,12:2054YF(X175)0410:A$(A$,1,I1)"/":" / ";:6,14:2054F(X173)0420:A$(A$,1,I1)"-":" - ";:6,13:2054F210F::" = ";FII1:B(I)A:A$(A$,1,I1)"=":K1F6,15:2054FANS0:N1I5G"K1E,EX175:6,E:2054.E6A10A(X176)7E@210IEJ(K0)0370bET(K1X171)0370{E^(K1X173)0370Eh"";:210ErII1:B(I)A:A0:K0E|(X171)0390:A$(A$,1,I1)"+":" + ";:6,11:2054F(X170)0400:A$(A$,20:"TYPE YOUR PROBLEM IN, PLEASE.":13:1:DA0:B0:I0ZDX(16384):(X127)0210hD16368,0|D(X155)0830D(X170X189)0210D(X172X174X186X187X188)0210D(X189)0430D(X176X185)0330DX176;E BY ROGER KEATING":"---------------------------------------"kC"ENTER NUMBERS & OPERATIONS (+ - * /)":C"PRESS = TO PERFORM CALCULATION":C" USE TO QUIT":"---------------------------------------"C34,12C2000C*DS, INC."6B'23:8:"PRESS ANY KEY TO CONTINUE";:C$:HB(384:10:10dB2(2073)169Č380:100B<" LOADING DATA NOW ":380BFD$(4)BPD$;"BLOAD NUMBERS"BZD$;"BLOAD TALK"BdK1Bn2073:2173Bxe d?eM4d<ed=ed>e.? rd?e.? rM_]Ԡ٠a(Ǡ٠)F MY_B M6S(Ƞ٠Ҡԩ)'`$`$ , ca(Ǡ٠)FdeM_ Bo Pa()d<e d=ed>e d?eM3d<ed=ed>e.? rd?e.? 2ea(٠)FM_ MԲ MS q.?r`$ a(ŠŠϠӠΠ٠)UVWY_^ a(ŠŠ)FE(ӠΠ)cS(٠̠ӿٯΩ)&@`@*#r:()$ . UVWdeM6deM_<`.? r$a(٠̠)UVWY_ MԲ M[q.?ra(ϠԠǠӠ)ca(ϠŠǠӠŠ)$q.?6@r`$d6?ec?d2e?a()Gd(ҠĠ٠)(Fq.?6@r`$Fd6?eM6IP`<()r$`<()r$`<()r$ `<()r$`<()r$_`S(נ٠˧Ơ٠Š)'`0$q` $qq +qde)cP a(٠ )Pa(̠)cP a(Ġ)@(o P a(àҠ)cP a(ҠĠ)cA2P a(Р٠)cP a(̠ĠŠ͠)cG<P a(ӠŠŠϠ)ccP a 7   @I H88888hH(H@(`8HH@@@P @W hH@ H`hH( 8 H(h Hب@HH88 H@h H@888 hH8@@ Hh8H@H               ;0L;` `3L L"LV ``H  }    ȥ h`H  ȱ  h`Hȱh```E0 `0`E `ɠ   %AH%256$Nf(103)L%(104)H%ı?Np103,L%:104,H%:A1,0PNz(4)"RUN"N$XN iN ONERR NOTEN((222)53)Ģ20:1:"ERROR: CALCULATION TOO LARGE. "::"HIT ANY KEY TO CONTINUE.";:Z$:190N"ERROR #"(222):60W40W30W20W0)07904M 6,W41:2054:W4;ZMANSANS10W4:6,ANS1:2054:ANSM 20:"HIT ANY KEY TO CONTINUE. "M*X(16384):(X127)0810M416368,0:190M>MH(4)"PR#6"MRA16384:N$"TALKING CALCULATOR" N\H%A256:L ,,  (3,'N  4 F   8G@  K1D$Q=/ Q!'%=}!4(d 0*2+F%=/'59e %A T 7$          0;;267555454443432)! f)10 ]*1"*"^( . d !-$f "+%, ,3-(+ . 4+-"!; ++*4# "$     T o     $ X     X  -/= -/ &Z 2$  !3  3 Z "G!E D D B#A!?%=!)<)8'? e @ :! " A !   I  * ! P  ^  "!"+/%&&I#""&)#"M!#&-?*#"$ #(w)!!* $#5'M&J%:,39G9s B&@"u""?!!2O @ !Z :$ $*" 1) $ ( # & +! -'#" + 3" 0 #3!.! :$!)6i>JCL,fZ3 ,K24O81P,;S)8>6G04R@*4/RC%30RK(31G42B52@62?53>64=73=73=63<63<52<62952651540330/1a1/-+ f/-,'$0$-+*'%-*-**&'063,+*8.42,-92&92-*,H'O0)&+Kh-&'4* 0*  . ~  ,   V    a    #    q       ?       *     (<   )  S9  B<&   ;   A; < N ?=O;{-)  'D>C"A&,D!*A#G6-E8*Di6*Cg3+> e4(@ g&: i"8 O" R# 6 Y$   >:;G: #K9  !  g '0 r  1 v  E+   J    :1d -YEE4X_/AmrZ  Y _N'I ( +-J/T&'+) R >#  %  .      $*X$.O   ! /&    f    O   H ^<:::(=149 5#! 3#  "8! #8! "%U8" !%R9! ! "N8# " w:99y:98|:99|;9:y;9<~;$=' 4 x>=D5?+>}) >A. >)=+*?, +}1+T?2TGD?3@E<A4FA EY5DA RXEF@6dLATA0OBTO                      F*&5s c  Y b ! a   g  0g  t  c   k32< =4hR7j]Y7`]8`[8f ]?do6dWRjm@rp4ox0p*xii!LKI! ; 0=  X 24;;U_9;MGB==,"=-<]Ӹ:    9aPdCOdDN_FJZJELSAA[;8`M?94; ;:6/,#2F6,'$c-( $20( (!' 9*$ ( !D&! m F   |&%j (8m!9'.l'1#7$:$0#) :"2"# !$D!6 !5"F!;6 J!;)+"K!:0$"P"74!(X#2!5!)Z" 9!(k"0 9 )w# "(#* K&# !!) ^*'9;66[& " !%(f# "062b$ &  = C*<:18= ;= ; :#     \6"[=S/76: ; " 5s 7 2 m 62k 4K|  43 {  4/ |  7-} %, =) &- '. =1e)?2=88>;7A*  ~'3-/!:9 y q  q  o  +9 4o  l (u  l   $w } %y   g  s fy  o~z p  l  z       F :C 2}                = 0m: \F                  !    )#$  '/'%)&1+.2$  75)n4.2M2#f(4"%=F=)#"1 a ,%:*+4  !    #!   e`RdbKN#e^GP\bWo^V)P 5/o     # #2% ]=gX G# ?n " G #ECN "!!    h   `OO 9 R    0-&)#8 &  a;>@@v;z]dlEm]Y;Z[Cb`Dhk*4q &; T  A J   `    % L  A  .",     " /jM64v6J1{4B2~4{'242D)0$48)02  =02( 7*/1 N0/ 9*0/(D1-,E3.,B5. C  1 :  N8-# X>(>^%(3H#B812 PC:'v?Q5#  #6|#+#  $ !6{$     b$"  !                  )    Q  J3J J !0X0Q3z"7SA;G5#)L8JR(PR6 DLGMnvla-    !  O         ) %1      (        ,       ; '   fA:#q3:+|  ) 'D53;l [N`$!- *P#- f1 *,=+T15%?fY9W3e FU)9]9?E8N>>,<7P78P;.H[:[01,:\22?w@W3"}  9 M WnF; ! 8 < ; A AC""LJ ")   ! !. " X  d   ^  "]  "X  >  %5]_+&9K589yw:xtrqtw $vrQL  U 3] 2 [   h    j  s Y     J     - h  0                8G|}}W'X/F(*o%  t"{!  s  2z  3-   3  263,:98<Y7H G$ 4I[{c`_coTawYc0e0ZoLW\[p*  0   (@                    * EDUCATIONAL *(b * MEDIA *?l * SERVICES *Vv **************** ********3190:I140:"-";:I::130: ******** PAUSE SUBROUTINE ********I1PA::&::2550(4)"RUN HELLO": ****************D * MODIFIED BY *N * TOM McCORD *X:I::130:.-----------PAUSE SUB ROUTINE>I1PA::K&::255`0(4)"RUN HELLO"IC SUBROUTINE '--' ********255:17:520:22:520:35,16:520:: ******** GRAPHIC SUBROUTINE '--' 255:QQ4:Q:">FISH>";:L1R:Q:")";:530:Q:"/";:530]Q:">";:530:L:120:350c:------------GRAPHIC SUB '--'255:17:520:22:520:35,16:520:::-----------GRAPHIC SUB '--': 190:I140:"-";390::6:"WHAT IS YOUR CHOICE (Y OR N)?: ":530:370H::480:120kQ3082:Q2:PA1:R5:868q:---------- "G::"THE FISH IS "(GF)" AWAY!":210JTPA10:R20:18:Q34450:410P]:r^----------REPLAY SUB ROUTINEh255:6:10:"YOU GOT IT!!!":140rPA1000:530::10:"DO YOU WANT TO FISH AGAIN (Y OR N)? ";X$6|X$"N"X$"n"550:X$"Y"X$"y"1:868:10[""WHEN YOU THINK YOU HAVE A BITE, PRESS ":12:" TO REEL IN.";X$,220:I411:17I:Q2)" ":I:5:6-------SEE IF GUESS CORRECT@DGF:34,0::D0340:6:"NO FISH HERE!":PA500:530:V6:20(J:"YOU ARE ATSE A NUMBER FROM 1 TO "S".":210&:K-------SET SCREEN TO SHOW GUESSo:Q(4(G(.1S)))3:Q0Q16:"HERE IS YOUR FISHING BOAT:":34,10V16:20:Q)"":PA500:530:V6:20 220:I14:(17I):Q2)"!":I:140:PA500:530:6:R BOAT LOCATION---7 190:15:I110:K2:S1000K3i 4IK)(S10)I;::35,14:PA500:530::140o : -------GUESS BOAT POSITION 12:1)"WHERE DO YOU WANT TO FISH (1-"S")";:G$:G(G$):G1GS230 250 V12:20:8:"PLEASE CHOO:6:"HOW BIG A SEA WILL YOU SEARCH IN?y 13:"10, 20, 50, 100 OR 1000 ";S$:S(S$):S10S20S50S100S1000160 :11:"PLEASE CHOOSE EITHER:":130 : ------SET RANDOM FISH LOCATION---- F((1)S)1 : ------SET SCREEN FOCAPTAIN OF A BOAT."::17:520:16:8)"w P11:10)"TRY TO...":22:520:13:22)"CATCH THE...":21:400:35,16: ZPA2500:540::12:"THERE IS A GIANT FISH HIDING IN THE SEA.":V21:20 dPA1500:530 l: n------SET THE OCEAN SIZE----) xHN RICHARDS": >19:6:"THIS VERSION (C) COPYRIGHT 1987"j ?20:5:"BY COMPUTER USING EDUCATORS, INC."s @255 A23:8:"PRESS ANY KEY TO CONTINUE";:Z$ B --------INTRODUCTION C DPA750:540:V4:20:V6:20:100+ F6:5)" YOU ARE THE TORS, INC.- --------------------------- 5 30G V:1:868:Y V:1:868:h ::255:n &: (-----TITLE SCREEN 210:13:"CATCH THE FISH!!!" 313:"-----------------" 7120: 814:19:"BY" <15:6:"RICKY CARTER AND JOa #----------------------------D CATCH THE FISH (NO DATE)Jd BY RICKY CARTER &| JOHN RICHARDS WITH SUGGESTION FROM B. GRIMM THIS VERSION IS (C) COPYRIGHT 1987 BY COMPUTER USING EDUCA      WITH $":120:YM=f:P$"AND I COLLECTED $":120:MM;".02"p(MMYM)0960::"THAT'S IMPOSSIBLE! ":P$"HOW COULD A HUMAN BEAT A COMPUTER?!":120::zP$"HOW ABOUT GIVING ME ANOTHER CHANCE? ":120::10:"(Y OR N) ";P$$((P$)0)0923:"I GOT THERE FIRST!"::23:"THAT'S $";AB;" MORE":234"FOR ME."::23:"I NOW HAVE $";MM;".02"::23:"YOU HAVE $";YM>(M0)0850:W2500:130:410:510H-------------MONEY GONE -- END OF GAMER130::16368,0\5:P$"YOU ENDED UP"::23:"YOU NOW HAVE $";YM;:23:"I HAVE $";MM;".02"c(M0)0850:W2500:130:410:5105:23:"WRONG":P255:D100:100:F0:640 -----------COMPUTER REACHES TARGET BOXI1100:BZ(S)(S): MMMMAB:*5:23:"HA HA "::KS ANSWER INPUT5(KY155)0850:(AB10)0700_(F1)0690:AN10(KY176):F1:630uANANKY176:710ANKY176(ANAB)0770YMYMANI110:P35:D35:100::5:23"YOU GOT IT FIRST!"::23:"THAT'S $";AN;" MORE.<X------CHECKS TO SEE IF COMPUTER HAS REACHED TARGET BOXTb(CAACBB)0790xl-----CHECKS KEYBOARD FOR INPUTvKY(16384):16368,0:(KY127)0670WA1W1:WAY:X:" ":CACA1:(CA10)0570:CA1:CBCB1:570--------CHECB:(M0)0530:MMAB:510>X112A:Y1212B:16368,0SY1:X1::"X":&CA1:CB1:F0:2:23:" HOW MANY DOLLARS?"0----------START OF SEARCH LOOP (WITHIN CONTEST LOOP):X12CA:Y212CBDY:X:384:" ":380NP90:D8:100911J121:"-";::<I;:J19:": ";::":";IBXJ121:"-";::x" ";:I19:":";I;::":"130:W150:SET SPEED OF COMPUTER SEARCH-----------START OF CONTEST LOOPA((9)(1))1:B((9)(1))1MMAND AN OLD TIE-CLASP.":120:kr:P$"MAYBE YOU'LL GET LUCKY.":120:130::::5:"HERE WE GO!":130:|"PRESS ANY KEY TO CONTINUE ";:P$:P$:410:490--------------SUBROUTINE FOR PRINTING BOXES:" ";:I19:":";I;::":"I THE BOXES UNTIL I FIND THE RIGHT ONE THEN COUNT THE NUMBER OF"fT120::P$"DOLLARS.":120:130::^P$"YOU GET TO SEE WHERE THE BOX IS, BUT NOTWHAT IS IN IT.":120:130:h:P$"ALL YOU HAVE IS THAT WORTHLESS CLUE, YOUR PITIFUL HUMAN BRAIN, A SET OF ELECTRONIC BOXES A FEW DOLLARS AT A TIME. THE FIRST TO GIVE THE NUMBER OF"6120::P$"DOLLARS IN THE BOX GETS THE MONEY.":120::@"PRESS ANY KEY TO CONTINUE ";:P$:P$:?JP$"I DON'T KNOW WHERE THE BOX IS, BUT I CANJUST LOOK IN-CLASP. I GET THE 2 CENTS, AND YOU GET THE TIE CLASP (SINCE I DON'T WEAR A TIE).":120:130:130 ::P$"ACCORDING TO THE PROFESSOR'S WILL, YOU AND I MUST COMPETE FOR THE REMAINING $":120:M;".": "130Z,P$"THE MONEY WILL BE PLACED IN A:::W500:130:P$"YOU MAY NOT REMEMBER HIM, BUT HE REMEMBERED YOU (AND ME) IN HIS WILL." "M" IS AMOUNT OF MONEY INHERITED 120::130::M500((500)(1)):M1M P$"HE LEFT US $":120:M;:P$".02 AND HIS SLIDE-RULE":120:d P$"TIEOOK"    " ( . L W2000:130::W1200:130 P$"IT IS MY SAD DUTY TO INFORM YOU THAT PROFESSOR MATT E. MATICKS, YOUR FOURTH COUSIN TWICE REMOVED, DIED LAST WEEK" 120::P$"AT THE AGE OF 93.1416 YEARS."a 120I: WA1W:WA:9 ----BEGINNING OF INSTRUCTIONS? y 9:16:I18:P4010(((I)((I2))(2))(I2)) D30:"*";:100:::17:"LEGACY":16:I18 P4010(((I)((I2))(2))(I2)):D30:100:"*";: ::14:"BY JOHN CDUCATORS, INC.2 ---------------------------- 8 (:> 2:D <:r F(4)"BLOAD TUNE":PITCH6:TIME7:TUNE827| P1800 Z----TONE SUBROUTINE dPITCH,P:TIME,D:TUNE: n-----PRINTING SUBROUTINE xK(P$):I1K:(P$,I,I(I)1);:J14:J,&#----------------------------> TAKE IT OR LEAVE ITR & LEGACYXl BY JOHN COOK 1905 BAILEY DR. MARSHALLTOWN, IA 50158 AUGUST 1978  THIS VERSION (C) COPYRIGHT 1987  BY COMPUTER USING E"I WIN!":I15:P150:D90:100:W20:130:>'C1C15:1730'936:10:16:"YOU WIN!!!":I115:P35:D40:100::C1C15:1730':10:6:"I WENT BROKE! -- YOU WIN!!!":I115:P35:D40:100:'C1C15:1730.(:10:7:"YOU WENT BROKE! -- IP$" FOR ":P$(P$,1,61)O$:120.&^:W2000x&h14:P$"MY TOTAL = $":120:MM;:20:P$"YOUR TOTAL = $":120:YM:130&r------------*** CHECK FOR WINNERS&|(MM2M1)01670:(YM2M1)01690:(MM0)01700:(YM0)01720:1450,':10:17:204)01600:(KY209)01770V%,W20:BZ(S)(S):CC1:(CC1)01610:130:1570r%6YMYMAN:O$"YOU":1620%@MMMMAN:O$"ME":1620%J11:958:10:"I'LL DECIDE!":W2000:130:((AN)1)01590:1600!&T11:958:10:P$"THAT'S $":120:AN;:)(1))1:(I3)01530:I1480,1490,1500,1510,1520c$11:10:384:"TAKE IT OR LEAVE IT":380$15:5:"T = TAKE IT"::5:"L = LEAVE IT"::5:"Q = QUIT"$--------------*** INPUT FROM KEYBOARD%"KY(16384):16368,0:(KY212)01590:(KY14608#8:10:"$ ";:O1480,1490,1500,1510,1520,1530T#ANAB:A;" + ";B:1540p#ANAB:A;" - ";B:1540#I((2)(1))1:I1480,1490#ANAB:A;" X ";B:1540#AN(((A((AB)))B))((A((AB)))B):A((AB));" / ";B:15404$I((530::)""PRESS 'RETURN' TO BEGIN.";P$`":10:7:P$"MAY THE BEST COMPUTER WIN!":120:" "|"YMM1:MMM1:W2000:130"--------*** START OF PROBLEM LOOP"A((19)(1))9:(A0)01450::C0:16368,0#B((19)(1))9:(B0(B)(A))0130::x!dP$"PRESS 'T' IF YOU WANT TO TAKE THE MONEY.PRESS 'L' TO LEAVE IT, AND I'LL BE STUCKWITH IT.":120:130::!nP$"WHICHEVER ONE OF US GETS $":120:2M1;:P$" FIRST":120:"xP$"WINS, BUT IF ONE OF US GOES BROKE, THE OTHER WINS.":120:1T IT.":120::n FP$"IF THE AMOUNT IS POSITIVE, IT WILL INCREASE THE TOTAL OF WHOEVER GETS IT. ":120 PP$"IF THE AMOUNT IS NEGATIVE, IT WILL BE SUBTRACTED.":120:::130!ZP$"IF YOU DON'T DECIDE FAST ENOUGH, I'LL DECIDE FOR YOU!":120:(P$"N")01420:(P$"Y")01320D:"Y OR N, PLEASE"::1290(::P$"YOU WILL HAVE A CHANCE TO ACCEPT OR REJECT MONEY EXPRESSED AS AN OPERATION ":1202P$"BETWEEN TWO INTEGERS.":120:::W500:130 <P$"IF YOU REJECT THE MONEY, I GEO(O$):O6O11150,M1100:O3M1500q:::P$"IN THIS GAME WE BOTH START WITH $":120:M1:130:::(O5)01290:P$"THE 'DIVIDED BY' SIGN IS '/'":120:130:::: "DO YOU WANT INSTRUCTIONS (Y/N)? ";:P$:P$:((P$)0)01310$. ADDITION":120::P$" 2. SUBTRACTION":120::P$" 3. ADDITION & SUBTRACTION":120:tP$" 4. MULTIPLICATION":120::P$" 5. DIVISION":120::P$" 6. ALL 4 OPERATIONS":120:~16:" YOUR CHOICE (1-6): ";:958:16:22:"";O$:JJ:#L::14:"BY JOHN COOK"VW1500:130::::P$" A CONTEST BETWEEN YOU AND ME":120::P$" INVOLVING":120::P$" OPERATIONS WITH INTEGERS.":120:130`:5:P$" WHICH OPERATION(S) DO YOU WANT?":120::[jP$" 1M1:MM0:YM0:510:*** TAKE IT OR LEAVE IT STARTS HEREO:10:W10:C150$P$"TAKE IT OR LEAVE IT":10:I119:(P$,I,I(I)1);:BZ(S)(S):P15:D9:100:130:.:10:J1:I119:J0ĺ"+";8J0ĺ"-";BBZ(S)(S):P15:D9:100:130120:8:"DO YOU WANT TO TRY AGAIN? (Y/N) ";:P$:P$s((P$)0)01010:(P$"N")01020:(P$"Y")01030P$"Y OR N, PLEASE."::120::990:P$"COME BACK SOON!":120:1800W1W15:::P$"O.K. HERE WE GO!":120:" ":130::410:M120:"":130::410+MM1:MM0:YM0:510h:(YM0)0970:P$"I THINK YOU NEED HELP.":120::990P$"I EXPECTED TO GET MORE. YOU WERE LUCKY TO GET ANYTHING.":120::P$"JUST TO SHOW THAT I'M A GOOD SPORT, I'LL GIVE YOU ANOTHER CHANCE.":10:(P$"Y")0930:(P$"N")0920B:"Y OR N, PLEASE.":890:P$"WELL, THEN BUY SOMETHING FOR ME WITH YOUR $":120:YM;:P$" AND COME BACK SOON!":120:130:1800((((YM10)M1))((YM10)M1))7W1W15P$"THANKS! HERE WE GO!":UR":L80:H96:2109A$"A BAR OF CANDY":L15:H25:210_A$"A CAN OF PEAS":L55:H90:210A$"ORANGE JUICE":L80:H99:210A$"AN APPLE PIE":L75:H95:210A$"2 PEACHES":L25:H39:210A$"CEREAL":L40:H90:210A$"FLOOR POLISH"50:210-}A$"A DOZEN EGGS":L85:H99:210PA$"A MAGAZINE":L50:H80:210zA$"A STICK OF BUTTER":L50:H80:210A$"A POUND OF SUGAR":L70:H90:210A$"2 APPLES":L20:H45:210A$"ONE HAMBURGER":L60:H89:210A$"A BAG OF FLO0CO:390:80% _::::::::::::::::::= dGENERATE ITEM/COST iXX((20)(1)):XX110,115,120,125,130,135,140,145,150,155,160,165,170,175,180,185,190,195,200,205 nA$"SOAP":L20:H50:210 sA$"BREAD":L35:H60:210xA$"1 QUART OF MILK":L35:HUST ADD UP TO THE":"CORRECT TOTAL.":345:215:375I F::::::::::::::::_ KPOSE THE PROBLEM PG100:105:THL:CO((T)(1))L:::"I BOUGHT "A$" THAT COST:" UCO" CENTS"::3:"I GIVE YOU MY DOLLAR.": Z"PLEASE GIVE ME MY CHANGE, "NA$:CH1070, (3:"PRETEND YOU ARE RUNNING THE CASH] -"REGISTER AT THE LOCAL GROCERY STORE.":370 2::" I WILL BUY THINGS AND GIVE YOU THE 7"MONEY. YOU WILL THEN GIVE ME THE CHANGE <"IN PENNIES, NICKELS, DIMES OR WHATEVER3 A"YOU WANT BUT IT MESS ANY KEY TO CONTINUE";:Z$M :5:"WELCOME TO THE CASH REGISTER GAME!!" 7:"****************************************": :"TYPE IN YOUR NAME AND THEN PUSH RETURN"::"=>";NA$:375:"HI "NA$ #6:"ARE YOU READY TO USE A CASH REGISTER?":3E SCREEN( :10:13:"MAKING CHANGE":A 13:"-------------"l 15:6:"ADATPED FROM 'CASH REGISTER'" 16:8:"BY R.A.HODDER (NO DATE)" 19:6:"THIS VERSION (C) COPYRIGHT 1987" 20:5:"BY COMPUTER USING EDUCATORS, INC." 23:8:"PR!--------------------------5 MAKING CHANGEL (CASH REGISTER)i ADAPTED BY R.A.HODDER| (NO DATE) THIS VERSION (C) COPYRIGHT 1987 BY COMPUTER USING EDUCATORS, INC. --------------------------  ----TITL        !!! ! ! ! ! !!USED IN TAKE IT OR LEAVE IT;.C:COUNTER FOR PROBLEM LOOP|.C1:MAXIMUM COUNT -- DETERMINES SPEED, INCREASE TO SLOW DOWN. O$,O:OPERATION INPUT. - USED IN LEGACY ONLY:W- X1,Y1:HORIZONTAL AND VERTICAL POSITIONS OF FLASHING TARGET~- CA, CB:COMPUTER'S FACTOR A AND B- X,Y HORIZ. AND VERTICAL POSITIONS OF COMPUTER SEARCH- F:FLAG FOR 2-DIGIT ANSWER- M:INHERITANCE.------------- IN BOTH PROGRAMS1,X A, B:FACTORS IN PROBLEMSK,b KY:KEYBOARD READING[,l AN:ANSWERs,v P:PITCH FOR TONES, D:DURATION FOR TONES, YM:YOUR MONEY, MM:MY MONEY (COMPUTER'S), M1:STARTING MONEY, P$:FOR PRINTING------------GACY'"::"T = 'TAKE IT OR LEAVE IT'"::"Q = 'QUIT'"h+&20:5:"WHICH DO YOU WANT? (L,T,Q) ";:P$:P$+0(P$"L")0150:(P$"T")01050:(P$"Q")01850:1830+:(13)(4)"RUN HELLO"+=:+?---------------------+D VARIABLES USED,N - ------"6* 12:8:"BY JOHN COOK - AUGUST 1978"d* 19:6:"THIS VERSION (C) COPYRIGHT 1987"* 20:5:"BY COMPUTER USING EDUCATORS, INC."*23:8:"PRESS ANY KEY TO CONTINUE";:Z$:*6:15:"MATH GAMES":15:"----------":125+"L = 'LE0e)::P$"I TAKE IT YOU'RE GOING TO LEAVE I HOPE YOU ENJOYED 'TAKE IT OR LEAVE IT' ":120)W1000:130:::20:"'BYE":1800):::)-----------** MENU)::S16336 * 8:6:"TAKE IT OR LEAVE IT / LEGACY":6:"------------------ WIN!":I180:BZ(S)(S):W2:130::C1C15y(:"DO YOU WANT TO TRY AGAIN? (Y/N) ";:120:P$:P$:((P$)0)01750((P$"Y")01760:(P$"N")01770(:"Y OR N, PLEASE.":1730):P$"O.K. -- HERE WE GO AGAIN!":120:W1000:" ":130:112:X,YX40,Y40:Y0:NTT1:290X 159,47162,45162,60159,60164,60:X160:Y120:210q PROCESS IF RIGHT NG:290:0:75:3:X120:Y120:85:21:1:958:22:1:"WHAT NUMBER GOES IN THE BOX?"23:1:"=>";G$:G(G$):(G$)0Ģ22:1:868:10" MINUS "BU"?"::C nX120:Y40:X,YX40,Y40:Y0:NTT1:290x s159,47162,45162,60159,60164,60:X160:Y120: t23:1:"=>";G$:G(G$):G0G$"0":23:1:868:116 u(G$)0116 v100 x PROCESS IF BACKWARDS  }::X120:Y40 Z ASK FOR ANSWER + _21:1:958 `22:1:"WHAT NUMBER GOES IN THE BOX => ";:"";G$:G(G$):(G0G$"0")Ģ22:1:868::96 a(G$)0Ģ22:1:868:96 b dCHECK IF RIGHT OR BACKWARDS iG(TU10)BU135:GBUTU120:"WHAT IS "TUU:S((1)TT):BN(S10)L:BTS:BUL:E <PUT NUMBERS ON THE SCREEN AX120:Y40:NTT:290:X160:Y40:NTU:290:X120:Y80:NBT:290 FX160:Y80:NBU:290: KBOX WHERE ANSWER GOES PX160:Y120 UX2,Y2X38,Y2X38,Y38X2,Y38X2,Y2:)"BLOAD SUGAR.PIC" 1704  CLS AND SET UP U ::3: LINE AND MINUS | #90,120220,120:100,105115,105: ( GET TOP NUMBER -S((1)9):L((1)9)1:TN(L10)S:TTL:TUS: 2 GET BOTTOM NUMBER & 7L((1)(10TU))T#----------------------------B MAY I BORROW SOME SUGAR?` (NO DATE--NO AUTHOR)f THIS VERSION (C) COPYRIGHT 1987 BY COMPUTER USING EDUCATORS, INC.---------------------------  : ::16301,0: (4!!!!!!""" " " " " """FF1:P0:S0:N0:D0:Q0:d470:22:"OOPS! TOO MUCH. LET'S TRY AGAIN":P0:S0:N0:D0:Q0:370m40034,13::34,0::(4)"RUN HELLO" PP1:SS1:6:P:4406NN1:SS5:11:N:440SDD1:SS10:16:D:440pQQ1:SS25:21:Q:440SCH460:SCH450:22:20:"CHANGE NEEDED:23:22:" "CHS" CENTS "::410:"VERY GOOD!!!":3:3:"HERE IS ANOTHER.":370 MAKERC34,12::34,0:"---------------------------------------"PENNY=P NICKEL=N DIME=D QUARTER=Q"::" P N D Q20:"WHAT COIN? (IF NONE TYPE 'E') ";C$:18C$"P"420:C$"N"425:C$"D"430:C$"Q"435:C$"E"475:41022:"PRESS ANY KEY TO CONTINUE":16368,0I^X(16384):X127355:350Yc16368,0:rh:::::::::::::::::::m#2 DELAY SUBROUTINErDD1500:DDDD::w:::::::::::::::::|#3 RESET SCREEN:3::::::::::::::::::#4 CHANGETHE FIRST LETTER OF THE COIN YOU WANT TO GIVE ME. EACH TIME YOU DO, THEu;"AMOUNT OF CHANGE YOU STILL HAVE TO GIVE@"ME WILL SHOW IN THE WHITE BOX.":CH43:370:390E:::::::::::JSUBROUTINESO:::::::::::T#1 HIT ANY KEY ROUTINE)Y10:"CENTS (THIS IS THE CHANGE)e"15:3:"YOU KEEP THE DOLLAR BUT GIVE ME":"43 CENTS BACK, "NA$".'345:375:"ANOTHER WAY IS TO START WITH THE COST,,"WHICH WAS 57 CENTS, AND ADD COINS UNTIL1"IT ADDS UP TO A DOLLAR.":370G67:3:"TYPE URE OUT CHANGE IS TO["SUBTRACT THE 57 CENTS FROM THE DOLLAR.":6:3:"A PENNY = A CENT8:6:"100":6:"-57":6:"---":7:"43":370 8:10::"(A DOLLAR HAS 100 CENTS)":3709:10::"( TAKE AWAY 57 CENTS )":37011:57 CENTS,"NA$".":370L:" MOM GAVE ME A DOLLAR BILL TO PAY YOU.":370"SINCE THE DOLLAR IS MORE THAN 57 CENTS, YOU MUST GIVE ME BACK THE REST OF THE"MONEY.":14:370::5:"THIS IS CALLED MAKING CHANGE":345:375:3:"ONE WAY TO FIG:L70:H98:2104A$"PAPER TOWELS":L75:H99:210ZA$"A CAN OF SOUP":L30:H60:210zA$"COOKIES":L45:H80:210:::::::::::::::::::HOW TO CHANGE MONEY375:3:" LET'S MAKE BELIEVE I AM BUYING A BAG"OF CANDY COSTING 'ʴ &߅ Ꮮ$۪Պ%$'ø%χ瀀-II௏K^TןY %߹ ϏϏǏ( ο߀@·󳰏&ߟ󿞀󏏀&ƨϏΜ&߿ϋßǜǿ#ÁÀ#ყοÜ%ǟᏞ%သ%Ã*󿞌KᏞ@%߿ΜÃ%ϟ󸜏๿%# a חXҋUՀЈTTՀT㟹+Հ()#)%)%)ϟ"""""    Y17  MAKE 9 uX20,Y36X30,Y10X25,Y6X14,Y6X9,Y10X9,Y16X14,Y19X24,Y19X28,Y17{ MAKE 0X15,Y6X25,Y6X31,Y12X31,Y28X25,Y35X15,Y35X9,Y28X9,Y12X15,Y69X7,Y23| MAKE 7 JX7,Y10X7,Y6X31,Y6X13,Y35:Y MAKE 8 X13,Y6X27,Y6X31,Y8X31,Y15X27,Y17X13,Y17X9,Y15X9,Y8X13,Y6X27,Y17X31,Y20X31,Y32X28,Y35X13,Y35X9,Y32X9,Y20X13,36X27,Y36:c MAKE 5 hX32,Y7X10,Y7X10,Y18X15,Y15X26,Y15X31,Y20X31,Y29X26,Y34X15,Y34X10,Y30mr MAKE 6 wX30,Y7X14,Y7X7,Y13X7,Y31X14,Y35X26,Y35X33,Y31X33,Y23X26,Y19X14,Y19,Y10X29,Y14X25,Y20X10,Y35X32,Y354EFJ MAKE 3 OX10,Y10X10,Y6X28,Y6X16,Y16X20,Y16X27,Y20X27,Y29X20,Y34X12,Y34X7,Y29TY MAKE 4 ^X22,Y5X8,Y26X30,Y26:X23,Y10X23,Y36X19,YUCTIONS 2" SET UP FOR NUMBERS IN HIRES@'N0N10q,N305,315,330,345,355,370,385,395,415,430:1 MAKE 1 6X17,Y13X21,Y6X21,Y35X15,Y35X27,Y35:; MAKE 2 .@X10,Y13X10,Y9X14,Y6X24,Y6X29,Y10X2".24:8:"PRESS ANY KEY TO CONTINUE";:Z$4j:22:2:"-DRILL IN SUBTRACTION WITH BORROWING-"x16368,0 23:6:"PRESS ANY KEY...FOR A PROBLEM":13:"....TO END ";:A$(A$)27ė::(13)(4)"RUN HELLO"  INSTRE ANSWER GOES'90: ASK FOR ANSWERN100: CHECK IF RIGHT OR BACKWARDSxA$(27)ė::(13)(4)"RUN HELLO":185-----TITLE22:6:"THIS VERSION (C) COPYRIGHT 1987"23:5:"BY COMPUTER USING EDUCATORS, INC.9):NX(NN):250: TITLE-:::::::::::::::E280: INSTRUCTIONSn25: CLS AND SETUP FOR NEW PROBLEM40: GET TOP NUMBER50: GET BOTTOM NUMBERTUBU185:TU10BUBUTU185:60: PUT NUMBERS ON THE SCREEN 75: PUT BOX WHER120:Y120:NG:290:16368,0::22:8:"PRESS ANY KEY TO CONTINUE":11:"PRESS TO QUIT";:A$:AIN PROGRAM FOR SUBTRACTION PROGRAM TO CATCH CHILDREN REVERSING THE SUBTRACTION PROCESS AND TAKING THE TOP FROM THE BOTTOM NUMBERNN(78)256(7145:(G0G$"0"Ģ22:1:868:145:kG(TT1)BT160:::X120:Y40:X,YX40,Y40:Y0:NTT1:290159,47162,45162,60159,60164,60:X120:Y12021:1:958:22:1:"WHAT NUMBER GOES IN THE BOX?":145 PUT ANS TENS ON SCREENdX