L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u``pp||p@@ppg`sx@xp`x|x|<<`px@pxp?~<<ppp8@xx?~?p~pp?~88p~?``<xxp@p?p>p@x88ppp<?>?>@xpxxx``<<x`~?~?@8@ppgwp@p|pp`pxxp88||`p8p<<x|x|<x|``@x@pppp``xp`pp````````````p````````@AAAAAAAAAAAAAAxAAAAAAAAAAAAA@AAAAAAAAA@pxpAAAAAAAA?~<<00000000000000p0000000000000000000000pp00000000``````````````8n````````````Fxx ?~?p~  pp ?~@AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA;8p~?cc<xx 0000000000p00000000```````````````pa``````````````````````?p>p````````@AAAAAAAAAAAAAAAxAAAAAAAAAAAAAA <8 ppp00000000000000<>000000000000?>?>Fxpx xx l` ``````````````````````````````````````@AAAAAAAAA=<x^AAAAAAAAc@AAAAAAAAAAAAAAAAAAAAAAAAAAAAAC8@ppgwp00000000000000pp10000000000000000000000|pp00000000````````````````pc`````````````~x p 88 @AAAAAAAAAAA}_}_AAAAAAAAAAcp8p<<~|x|00000000000000000000000000000000000000``````````<|````````@AAAAAAAAAAAAAAAAy|OAAAAAAAAAAAAAAA```````````````g`````g````````````@AAAAAAAAAAx@ppAAAAAAAAA pp x`xp`p000000000000000p`70000000000000x|p<`8p8|8ppxTEST$"NO"63301TEST$"HUND"6350VANSWER$;" IS THE WRONG ANSWER."y"THE CORRECT ANSWER TO THREE""PLACES IS ";REAL;"0"6380ANSWER$;" IS THE WRONG ANSWER.""THE CORRECT ANSWER TO THREE""PLACES IS ";REALPERMZERO(REAL100)61232ZEROREAL100U(ZERO(REAL100)).01ī6123gZEROREAL10(ZERO(REAL10)).01ī6127(ZERO(REAL10)).01ī6127TEST$"NO"6129TEST$"HUND"6129TEST$"TEN"REALBOX,(FRACT$)PT))0TEMP((REAL1000.5))1000?REALTEMPQREAL1ī6110W"THE FRACTION IS GREATER THAN OR EQUAL""TO 1. PLEASE CHOOSE ANOTHER FRACTION""THAT IS LESS THAN 1"6000PERMREAL1000BOXREALREALFRACT$zPT1.(FRACT$,PT,1)"/"ī6070;PTPT1TPT(FRACT$)ī6020Z"THE FRACTION THAT YOU ENTERED IS""ILLEGAL. PLEASE ENTER ANOTHER FRACTION"60008100W$"BAD"ī6000REAL((FRACT$,PT1))((FRACT$(PITCHER)"2500098000$<3PSC1SC1S5@UPOPOS6JZ6500liP$"(BATTER)":B$"(PITCHER)"vn5000| DISPLAY THE ROLES(D):(C):" "(D):(C):P$(F):(E):" "(F):(E):B$pzZ917GST(SC,Z9)ĴZ931000,32000,33000,34000,35000,36000,37000OZ9X100^176,78:151,59179,87:149,64178,93:148,71171,94:145,75163,93V143,79155,91\bpsq DISPLAYyrsST(SC,8)Ĺ32849,96tST(SC,8)Ĺ32849,64v32848,0:32850,0:32851,32:32852,32w32768x16301,0:16304,0y3 126,56145,75:130,66143,79"̈(A GRAPHICS SECT. SIXG122,58130,66:117,60138,81:113,63135,85:109,67130,88:106,71125,90104,75121,92:102,80115,93:100,85108,93 GRAPHICS SECT. SEVENC151,53,133:100,100133,133:102,108125,131,2ЄLф GRAPHICS SECT. FOURR҄ڄ135,29151,45:132,34151,53:130,38145,53:128,43139,54:128,51132,55䄱 GRAPHICS SECT. FIVEˆ146,54151,59:139,54149,64:132,55148,71:68,14207,53:176,15206,45!}'耲B進 GRAPHICS SECT. THREEHꀲ170,93178,101:163,93177,107:154,90176,112:139,82173,116:135,85169,119131,89166,124:125,90161,126:121,92158,129:115,93154,132:108,93148,133&100,931404,39106,71:72,43104,75:72,50102,80:72,57100,85:74,66100,92I@yO}h} GRAPHICS SECT. TWOn} }179,87182,90:177,79187,89:151,45191,85:138,26195,83:142,22199,79:146,20201,75:150,17203,70}155,15205,65:161,14207,60:1@AAAAAAAAAx|pAAAAAAAA<`8p8~0000000000<00000000``````````````x``````````````````````pp````````@AAAAAAAAAAAAAyOAAAAAAAAAAAA lpp ||pX@pp00000000000000g`s000000000000~@xp l ~|~| << 50:1120$AR(J)ANSĺQ3$0.AR(J)ANSĺQ2$:81150EB17:1OL958XV970f`17:958jFLAG0CNTCNT1:EEEE1t~*** WAIT FOR CONTINUATION24:Q9$;R$R$(32)1170'*** THIS IS WHERE THE SUBRO1121:"HOW MANY UNITS MAKE UP THE AREA? ";?16384,0K"";ANSzAR(J)ANSĺ(7);Q1$;NAME$;"!":1150:1120FLAGFLAG1CNT0:FFFF1ANS(ANS)0ĺQ6$:1080FLAG2ĺQ4$:1220:1080FLAG3ĺQ7$;NAME$;Q8$;AR(J);".":113D(P)DUST(P1,J)iX,YX((ANG45)(1))GIDDUST(P1,J),Y((1)ANG45)(GIDCRR)DUST(P1,J)XX((ANG45)(1))GIDDUST(P1,J):YY((1)ANG45)(GIDCRR)DUST(P1,J)PDIST(1,J)950ANGANGDIST(PQ1,J):A(P1)ANGP.* *** LEVEL FOUR:UNIONS OF RECTANGLES***I4FLAG0:X120:Y125:Z1d>ANG0:Q0:NUM0:A(1)0{H15,13015GID,130R15GID,13015GID,130GIDCRR\15GID,130CRRGID15,130GIDCRRf15,130CRRGID15,130pP1(DIST(1,J))zCRR,15)2:DUST(4,15)2:DUST(5,15)2:DUST(6,15)5:DUST(7,15)4BJ1K810V62450dJ15740sCNT3740JJ1:69010:" THIS HAS BEEN FUN. BYE FOR NOW."D$;"WRITE NAME,R5" 4:EE:FFD$;"CLOSE NAME" 255:$:OK$" "20152&N.&NV:20((CC$)2)8&NCC$;>&Nh&@LL(CC$):LL19CC$(CC$,18):40000&JV:HC(LL2):CC$;&TINSTITUTIONS.":20160N%NV16:CC$"NOTIFICATION OF EACH COPY AND SITE":20160%NV17:CC$"IS REQUESTED BY THE ABOVE.":20160%NV20:CC$"STUDENT PROGRAMMER DENISE SCHULMAN":20160%NCC$"PRESS SPACE BAR TO CONTINUE"%NV24:20160:16368,0&NOK SUPPORTED BY THE NSF-NIE":20160V$fNV10:CC$"PROJECT SED80-12649, UNDER THE":20160$pNV11:CC$"DIRECTION OF L.A. KARLOVITZ AND":20160$zNV12:CC$"M.J. CHRISTENSEN":20160$NV14:CC$"COPIES PERMITTED FOR USE BY":20160%NV15:CC$"EDUCATIONAL "FRACTION-DECIMAL GAME":20160:'#/NU#4N"--------------------------------------"#>N" (DEVELOPMENT VERSION - AUGUST 1981)"#HNV6:CC$"SCHOOL OF MATHEMATICS, GEORGIA TECH.":20160#RNV7:CC$"ATLANTA, GEORGIA 30332":20160!$\NV9:CC$"PARTIALLY8160 "5""THE FRACTION THAT YOU ENTERED IS"e""ILLEGAL. PLEASE ENTER ANOTHER FRACTION."s"W$"BAD"y"" 34,22" Q$(7):23" Q$:Q$:Q$:Q$:Q$:Q$:Q$:Q$" 34,9" "4!X120000">!X"H!"'" N:!#*N:V1:CC$P$"(PITCHER)":B$"(BATTER)"'!45000-!>;!@K12000B!JKH!TY!PP1(PT1)!((FRACT$,PP,1))48((FRACT$,PP,1))57ī8150!PP!TT(PT1)((FRACT$))!((FRACT$,TT,1))48((FRACT$,TT,1))57ī8150!TT!W$"GOOD""$UU$, OPT(((ANSWER$)1000.01))10002 O (OPTREAL).0005ī7150Y 7200c 8000m 7180z POPOS7 SC1SC1S8 6300  P$"(PITCHER)":B$"(BATTER)" 5000 8000  POPOS5 %SC1SC1S6 *6500!2R)":B$"(BATTER)"5000!XPLAYER2$;", WRITE THE FRACTION ";FRACT$;" AS A""DECIMAL, CORRECT TO THREE PLACES."ANSWER$YY1(ANSWER$,YY,1)"."ī7119YYYY17113UU$(ANSWER$,((ANSWER$)(YY1))) ANSWEROPT;"00 IS THE ANSWER CORRECT ":"TO THREE PLACES."D6660fOPT;" IS THE ANSWER CORRECT"~"TO THREE PLACES."6660OPT;"0 IS THE ANSWER CORRECT""TO THREE PLACES."SC1SC1S1POPOS26500P$"(PITCHES THE CORRECT ANSWER TO THREE"-"PLACES."76550A8400nOPT;"00 IS THE CORRECT ANSWER TO THREE"}"PLACES."65508400OPT;"0 IS THE CORRECT ANSWER TO THREE""PLACES."KAP$"NO"ī6630KAP$"TEN"ī6650"6380,ANSWER$;" IS THE WRONG ANSWER."O"THE CORRECT ANSWER TO THREE"k"PLACES IS ";REAL;"00"qdMTHOPT1000iZANEMTH100n(ZANE(MTH100)).01ī6530sZANEMTH10x(ZANE(MTH10)).01ī6540{8400}OPT;" I0:K2$" 1138,39$$$ K3150:K3,$& K16$) 8250@$0 8000F$: Q$; 62450d$< 140,40190,90r$= 140,140~$> 90,90$? 140,40$D $!O049$!140O,140O140(O1),140(O1)$!J0Ē3:J3:8625$!J3Ē0:J0$!O$!L049%! #L4115##1138,39:190,874#L5150:L5K#1138,39:190,87\#L6150:L6d#L4n#8250~# B30ī8240# L7115# 190,87# L8150:L8# 190,87# L9150:L9# L7# 8250# K1115# 1138,39$ K215250"B30ī8170 "C71157"1186,87:190,87H"C8150:C8_"1186,87:190,87p"C9150:C9x"C7"8250"L1115"1186,87"L2150:L2"1186,87"L3150:L3"L1"8250"B20ī8200"B30ī8220!B30ī8153!C1115=!1186,87:1138,39:190,87N!C2150:C2o!1186,87:1138,39:190,87!C3150:C3!C1!8250!C4115!1186,87:1138,39!C5150:C5!1186,87:1138,39!C6150:C6!C4"8 \SLUGSLUG1 f k) @TI110001 JTI7 T= G 8900_ 16304,0:16299,0f 3y 140,40190,90 140,140 90,90 140,40 21 3 1:0 HIT4ī8143 8600 8250 B10ī8180 B20ī81605%&HIT1ī7220)'HIT2ī7230:(HIT3ī7213@)W*5:16:"HOME RUN"a+7240~-"YOU HAVE HIT A TRIPLE"/72404"YOU HAVE HIT A SINGLE"97240>"YOU HAVE HIT A DOUBLE"HTURN2(TURN2)ī7260MWHOPWHOP1:7270 OUTOUT1&:"YOU ARE OUT"::JANSWER$;" IS THE WRONG ANSWER"PuRESULT;" IS THE CORRECT ANSWER"TURN2(TURN2)ī7140O2OUTOUT7150O1OUTOUTK2 34,0!"5:7#HIT4ī7209$HIT0ī727NSWER$,1,W1)7061W<(ANSWER$)RESULTī7100JHITHIT1eANSWER$;" IS CORRECT"vHIT4ī7107K0:7155CO11ī7120ANSWER$;" IS THE WRONG ANSWER"RESULT;" IS THE CORRECT ANSWER":::K1:7155:10::"GAME OVER":+A7:B9:X11:Y131CpRESULTY1Y2Mz7000dX"PROBLEM ";CO::"WHAT IS YOUR ANSWER?";ANSWER$(ANSWER$)0ĺ"ILLEGAL ENTRY, TRY AGAIN.":7050W1(ANSWER$)(ANSWER$,W,1)" "ī7060 ANSWER$(A----"34,8,WIN$"OVER"ī5090EQUAR(QUAR)ī5070O1:1k" "u1:1"TOP OF INNING ";QUAR150991:1" "1:1"BOTTOM OF INNING ";(QUAR)150993A:27:"HITS"%A:33:"OUTS"8B:12:NAME1$GB:22:RUXB:28:SLUGjB:34:O1OUTX:12:PLAYER2$X:22:POX:28:WHOPX:34:O2OUTWIN$"OVER"ī5035Y"------------------------------------1 W4300hB30ī4210'lSCSC10nB30@rB20ī4220LuSCSC1UwB20e|B10ī4230qSCSC1zB10B314300TALTALSCTURN2(TURN2)ī4320POPOSC4330RURUSC5050A:21:"RUNS"B10:B20:B304300(B30ī41104SCSC1= B30MB20ī4120[B31:B20kB10ī4130yB21:B10"B11&43006B30ī4160:SCSC1<B30@B20ī4170DSCSC1FB20JB10ī4180NB31QB10TB21B10ī4040!B20ī40301B30ī4050=SCSC3G4090WB30ī4034iSCSC2:4090{SCSC1:4090B20ī4045B30ī4048SCSC24090B30ī4047SCSC1:40904090SCSC1:4090SCSC2CRRGID)KX2,Y(CRRGID)K:1310aA(P)90A(P)270ēX2,Y(GID3)KX2,Y(3GID)K:1310hK(XX((A(P)45)(1))GIDD(P):YY((1)A(P)45)(GIDCRR)D(P)2P<Q5$F"UTINE TO DIVIDE INTO SUBRECTANGLES GOESB *** DRAW TIC MARKSRX120:Y125hP1(DIST(1,J))yD(P)11320K1D(P)1A(P)0A(P)360ēXGIDK,Y2XGIDK,Y2:1310A(P)180ēXGIDK,Y2XGIDK,Y2:1310" A(P)90ēX2,Y(Y":150009 V15:CC$"EDUCATIONAL INSTITUTIONS.":15000r V16:CC$"NOTIFICATION OF EACH COPY AND SITE":15000 V17:CC$"IS REQUESTED BY THE ABOVE.":15000 V20:CC$"STUDENT PROGRAMMER DOUGLAS PISIK":15000 CC$"PRESS SPACE BAR TO CONTINUE"0332":15000D V9:CC$"PARTIALLY SUPPORTED BY THE NSF-NIE":15000y V10:CC$"PROJECT SED80-12649, UNDER THE":15000 V11:CC$"DIRECTION OF M.J. CHRISTENSEN AND":15000 V12:CC$"L.A. KARLOVITZ.":15000 V14:CC$"COPIES PERMITTED FOR USE B 163903:W$"VALUE"& :J :V1:CC$"PARABOLA":15000::x "--------------------------------------" " (DEVELOPMENT VERSION - AUGUST 1981)"V6:CC$"SCHOOL OF MATHEMATICS, GEORGIA TECH.":15000 V7:CC$"ATLANTA, GEORGIA 3            ESULTY2Y1:7000 Y103570 Y2;SIGN$;Y1::3599 Y2;SIGN$;"(";Y1;")": HIT1ī4100HVHXC7C8LC9LK6O2OHJLHMHNHK5 SIGN$"-":3110:3130:RESULTY2X2:7000) X20ī3525B Y2;SIGN$;X2::3599c Y2;SIGN$;"(";X2;")"::3599w SIGN$"/":3100 3110 Y2Y1(Y2Y1)ī3557 R@YRUPOHIOUTAQUTUSL@WHW COSCP1TSY1 Y26REAWKTIz@P2T1X2B2BA@K1K2LK3LK8zO1X1B3B1FFNPABX6'"BASE16,36:BASE17,449'"BASE18,54:BASE19,54T'"BASE20,54:BASE21,5c'"BASE22,0'#232,BASE256(BASE256)' #233,(BASE256)' #'(#RI12000'-#RI'2#''N&"%&`"22:16::"HOME RUN"::G&"BASE24577:BASE,01:BASE1,0_&"BASE2,4:BASE3,0y&"BASE4,54:BASE5,54&"BASE6,54:BASE7,37&"BASE8,36:BASE9,36&"BASE10,44:BASE11,54&"BASE12,54:BASE13,54'"BASE14,37:BASE15,3190L,90L190(L1),90(L1)4%!J0Ē3:J3:8650D%!J3Ē0:J0K%!LW%!M049z%!140M,40M140(M1),40(M1)%!J0Ē3:J3:8675%!J3Ē0:J0%!M%!N049%!90N,90N90(N1),90(N1)%!J0Ē3:J3:8700%!J3Ē0:J0&!::3599) Y2;SIGN$;"(";X2;")"::3599= SIGN$"/":3100G 3110b Y2Y1(Y2Y1)ī3557y RESULTY2Y1:7000 Y103570 Y2;SIGN$;Y1::3599 Y2;SIGN$;"(";Y1;")":HIT1ī4100HIT2ī4150HIT3ī4200SCSC! & Y2((1)200)1005) Y2100Y20ī3110;+ P0 X1((1)20)10g3 X110X10ī3120m5 : X2((1)200)100= X2100X20ī3130?  T13ī3550 SIGN$"-":3110:3130:RESULTY2X2:7000 X20ī3525 Y2;SIGN$;X2SIGN$;Y2  30991 Y1;SIGN$;"(";Y2;")"7 A 3099O SIGN$"+"Y 3100c 3120t RESULTX1Y1~ 7000 Y10ī3070 X1;SIGN$;Y1  3099 X1;SIGN$;"(";Y1;")"   Y1((1)20)10 Y110Y10ī3100:B20:B30100HCC$"PRESS THE SPACE BAR TO CONTINUE":V24:2000[16368,0:OK$nOK$" "1010tV:20((CC$)2)CC$; T1ī3050 SIGN$"*" 3100 3110 RESULTY1Y2 7000 Y20ī3025 Y1;> G10050001O1OUT0:O2OUT0;5000VTURN2(TURN2)ī930a10:5NAME1$;", YOU ARE NOW BATTING"94010:5PLAYER2$;", YOU ARE NOW BATTING"8000TURNTURN1:TAL0:OUT0 B100PORUī900700*PORUī7003900CWIN$"OVER"M34,0SgO1OUT0:O2OUT0q5000{9999 7200!8000#K1ī805$4000%8100&'5000(10:5:"NEXT BATTER")K81500:K8*,5000KP2L800 rOUT3ī500)|800/JTURN2(TURN2)ī510XK51150c6:34ip3v~K5605K611504:343K6]QUARQUAR.5bQUAR8.5ī650l900QUAR(QUAR)ī672kT1((1)2)n3000*oCOCO14p7050>q8000L}K1ī800V~8000dK2ī170jrP1{295OUT3ī500800'P212,T13((1)2)635007COCO18705098000GK1ī800HK2ī370J10:CC$"WHO IS THE FIRST PLAYER ":2000:NAME1$l]V14:CC$"AND WHO IS THE SECOND PLAYER ":2000:PLAYER2$r^_A2:B4:X6:Y8`RU0:PO0:HIT0:OUT0:TAL0aQUAR0bTURN0:SLUG0:WHOP0c5000d:WIN$"PLAY":HIT0:CO1:SC0iP11 HAS" O"HIT A ";& P:"SINGLE":. R:@ S"AND SO ON."H T:n U"IF THE BATTER ANSWERS ALL FOUR" V"QUESTIONS CORRECTLY, HE/SHE HAS" W"HIT A "; X:"HOME RUN": Y: Z"ALL OTHER SCORING IS LIKE IN BASEBALL" [1000:/\VNE INCORRECTLY." 2:A 9"IF THE FIRST QUESTION IS ANSWERED"d ;"INCORRECTLY THE BATTER IS ";t =:"OUT.":~ B1000 F H"IF THE FIRST QUESTION IS ANSWERED" K"CORRECTLY AND THE SECOND QUESTION IS " M"ANSWERED INCORRECTLY THE BATTEROR THE ARITHMETIC OF WHOLE NUMBERS."P #"IT IS IN THE FORM OF A BASEBALL GAME"y ("AND CAN BE PLAYED BY TWO PLAYERS." *: -"OUTS AND BASE HITS ARE ACHIEVED AS" ."FOLLOWS:" /"EACH BATTER IS PRESENTED WITH QUESTIONS UNTIL HE/SHE ANSWERS OCC$"EDUCATIONAL INSTITUTIONS.":2000] V16:CC$"NOTIFICATION OF EACH COPY AND SITE":2000 V17:CC$"IS REQUESTED BY THE ABOVE.":2000 V20:CC$"STUDENT PROGRAMMER DENISES SCHULMAN":2000 1000 :$ "THIS PROGRAM PROVIDES EXERCISES F6 V9:CC$"PARTIALLY SUPPORTED BY THE NSF-NIE":2000j V10:CC$"PROJECT SED80-12649, UNDER THE":2000 V11:CC$"DIRECTION OF L.A. KARLOVITZ AND":2000 V12:CC$"M.J. CHRISTENSEN":2000 V14:CC$"COPIES PERMITTED FOR USE BY":2000% V15:p( :? :V1:CC$"WHOLE NUMBER BASEBALL":2000::m "--------------------------------------" " (DEVELOPMENT VERSION - AUGUST 1981)"V6:CC$"SCHOOL OF MATHEMATICS, GEORGIA TECH.":2000V7:CC$"ATLANTA, GEORGIA 30332":2000                    ST(7,13)2:DUST(8,13)1:DUST(9,13)1:DUST(10,13)2:DUST(11,13)1DUST(2,14)5:DUST(3,14)2:DUST(4,14)2:DUST(5,14)2:DUST(6,14)2:DUST(7,14)2:DUST(8,14)5:DUST(9,14)2:DUST(10,14)2DUST(11,14)2:DUST(12,14)2:DUST(13,14)2:DUST(2,15)3:DUST(3UST(4,11)3:DUST(5,11)3:DUST(6,11)2:DUST(7,11)2:DUST(8,11)3:DUST(9,11)3vDUST(2,12)3:DUST(3,12)2:DUST(4,12)2:DUST(5,12)1:DUST(6,12)4:DUST(7,12)1:DUST(8,12)1:DUST(9,12)2@DUST(2,13)3:DUST(3,13)2:DUST(4,13)2:DUST(5,13)2:DUST(6,13)4:DU)2:DUST(11,8)3:DUST(12,8)2:DUST(13,8)1XDUST(2,9)4:DUST(3,9)5:DUST(4,9)4:DUST(5,9)1:DUST(6,9)3:DUST(7,9)3:DUST(8,9)3:DUST(9,9)1bDUST(2,10)3:DUST(3,10)3:DUST(4,10)1:DUST(5,10)2:DUST(6,10)2:DUST(7,10)1LlDUST(2,11)2:DUST(3,11)2:DUST(6,6)2:DUST(7,6)3:DUST(8,6)3:DUST(9,6)6DDUST(2,7)6:DUST(3,7)2:DUST(4,7)2:DUST(5,7)2:DUST(6,7)2:DUST(7,7)2:DUST(8,7)2:DUST(9,7)2*NDUST(2,8)2:DUST(3,8)1:DUST(4,8)2:DUST(5,8)3:DUST(6,8)2:DUST(7,8)1:DUST(8,8)2:DUST(9,8)1:DUST(10,81:DUST(6,3)2:DUST(7,3)1~&DUST(2,4)5:DUST(3,4)4:DUST(4,4)3:DUST(5,4)2:DUST(6,4)1:DUST(7,4)2:DUST(8,4)1:DUST(9,4)40DUST(2,5)3:DUST(3,5)3:DUST(4,5)2:DUST(5,5)2:DUST(6,5)1:DUST(7,5)1.:DUST(2,6)3:DUST(3,6)1:DUST(4,6)2:DUST(5,6)2:DST(3,10)90:DIST(4,10)90:DIST(5,10)90:DIST(6,10)90DUST(2,1)2:DUST(3,1)2:DUST(4,1)2:DUST(5,1)2:DUST(6,1)4:DUST(7,1)4DUST(2,2)3:DUST(3,2)1:DUST(4,2)2:DUST(5,2)2:DUST(6,2)1:DUST(7,2)3DUST(2,3)2:DUST(3,3)2:DUST(4,3)4:DUST(5,3)0:DIST(3,8)90:DIST(4,8)90:DIST(5,8)90:DIST(6,8)90:DIST(7,8)90:DIST(8,8)90:DIST(9,8)90:DIST(10,8)90:DIST(11,8)90:DIST(12,8)90DIST(2,9)90:DIST(3,9)90:DIST(4,9)90:DIST(5,9)90:DIST(6,9)90:DIST(7,9)90:DIST(8,9)906DIST(2,10)90:DI,5)90:DIST(4,5)90:DIST(5,5)90:DIST(6,5)90DIST(2,6)90:DIST(3,6)90:DIST(4,6)90:DIST(5,6)90:DIST(6,6)90:DIST(7,6)90:DIST(8,6)90DIST(2,7)90:DIST(3,7)90:DIST(4,7)90:DIST(5,7)90:DIST(6,7)90:DIST(7,7)90:DIST(8,7)90DIST(2,8)9DIST(2,2)90:DIST(3,2)90:DIST(4,2)90:DIST(5,2)90:DIST(6,2)90DIST(2,3)90:DIST(3,3)90:DIST(4,3)90:DIST(5,3)90:DIST(6,3)90DIST(2,4)90:DIST(3,4)90:DIST(4,4)90:DIST(5,4)90:DIST(6,4)90:DIST(7,4)90:DIST(8,4)90.DIST(2,5)90:DIST(390:DIST(6,14)90:DIST(7,14)90:DIST(8,14)90:DIST(9,14)90:DIST(10,14)90:DIST(11,14)90:DIST(12,14)90 DIST(2,15)90:DIST(3,15)90:DIST(4,15)90:DIST(5,15)90:DIST(6,15)90 DIST(2,1)90:DIST(3,1)90:DIST(4,1)90:DIST(5,1)90:DIST(6,1)90A12)90:DIST(5,12)90:DIST(6,12)90:DIST(7,12)90:DIST(8,12)90 DIST(2,13)90:DIST(3,13)90:DIST(4,13)90:DIST(5,13)90:DIST(6,13)90:DIST(7,13)90:DIST(8,13)90:DIST(9,13)90:DIST(10,13)90j DIST(2,14)90:DIST(3,14)90:DIST(4,14)90:DIST(5,14) HELP."9 TQ5$"NOW USE YOUR FINGER TO COUNT THE UNITS."f ^Q6$"THE ANSWER MUST BE A WHOLE NUMBER."o h:3 rDIST(2,11)90:DIST(3,11)90:DIST(4,11)90:DIST(5,11)90:DIST(6,11)90:DIST(7,11)90:DIST(8,11)90? |DIST(2,12)90:DIST(3,12)90:DIST(4,(1,15)6 CNT03 Q1$"YOU'RE EXACTLY RIGHT, "^ "Q9$"PRESS THE SPACE BAR TO CONTINUE." ,Q7$"I'M SORRY, ":Q8$", BUT THE ANSWER IS " 6Q2$"NO, YOUR ANSWER IS TOO BIG. TRY AGAIN." @Q3$"NO, THAT IS TOO SMALL. TRY AGAIN." JQ4$"NO, LET MER(11)13:AR(12)104 AR(13)12:AR(14)22:AR(15)16? GID23g DIST(1,1)6:DIST(1,2)6:DIST(1,5)6 DIST(1,3)6:DIST(1,4)8:DIST(1,6)8:DIST(1,7)8 DIST(1,8)12:DIST(1,9)8:DIST(1,10)6:DIST(1,11)8:DIST(1,12)8:DIST(1,13)10:DIST(1,14)12:DIST d16390nxD$(4)6D$;"OPEN NAME,L40"MD$;"READ NAME,R1"XNAME$`D$DIST(15,15),A(15),D(15),AR(15),DUST(14,15)CRR3AR(1)12:AR(2)5:AR(3)6:AR(4)18AR(5)7:AR(6)22:AR(7)16:AR(8)22 AR(9)11:AR(10)5:A          R(L1)(B(D2))2A!T1L,S1LF(D10D20)L0:320[R(S)R(S1)270{ZR(S):R(S)R(S1):R(S1)Z"L3ī1000,330@:"OUT OF RANGE":"PRESS ANY KEY TO CONTINUE";A16368,0:OK$:BR$"Y"425C70Z21:23:"SCALE: ";P" TO "PBdY(W)(80(AW2BWC)80P)YnX(W)139W139PaxL1vD1B24A(CP)D10180R(1)(B(D1))2AR(2)(B(D1))2AL3D2B24A(CP)D20L1:220R(L)(B(D2))2A "E 29000: INITIALIZE SCALE\ <2000: DRAWS AXISg F10000r KR$"N" PS1$"+ ":B1B:B10B1B:S1$"- " US2$"+ ":C1C:C10C1C:S2$"- " Y:22:"Y = "A"X";:21:"2";:22:" ";S1$;B1;"X ";S2$;C1 CHALLENGED TO":15000R %V11:CC$"FIND THE COEFFICIENTS OF THE PARABOLA":15000 &V13:CC$"WHOSE GRAPH APPEARS ON THE SCREEN.":15000 )V24:CC$"PRESS THE SPACE BAR TO CONTINUE":15000 *16368,0:OK$ +OK$" "42 1C$"  V24:15000# 16368,0:OK$4 OK$" "31p !:V3:CC$"THIS PROGRAM DEALS WITH PARABOLAS IN":15000 "V5:CC$"TWO PARTS. FOR COEFFICIENTS GIVEN BY":15000 #V7:CC$"THE USER, GRAPHS ARE DRAWN.":15000 $V9:CC$"CONVERSELY, THE USER IS1)88,130KCRRGID92,130KGIDCRR0K9Q0$TFLAG4ĺQ5$:QC$:810Z1FLAG0CNTCNT1:EEEE1 >?H*** WAIT FOR CONTINUATIONMR24:Q9$;U\R$hfR$(32)860nptz*** DRAW GRIDSDIST(1,J)1950K1DIST(1,J)190KGID,13290KGID,128KDIST(2,J)1990K1DIST(2,J)NS)0ĺQ6$:770+FLAG2ĺQ4$:900:770FFLAG3ĺQ5$:QC$:770FLAG4ĺQ7$;NAME$;Q8$;DIST(2,J)DIST(1,J);".":840:810DIST(1,J)DIST(2,J)ANSĺQ3$DIST(1,J)DIST(2,J)ANSĺQ2$840 17:1958 650*17:9584DCRR,l15GID,130CRRGID15,130GIDCRRGv15,130CRRGID15,130N1|21:"HOW MANY UNITS MAKE UP THE AREA? ";16384,0"";ANSDIST(1,J)DIST(2,J)ANSĺ(7);Q1$;NAME$;"!":840:810FLAGFLAG1CNT0:FFFF1ANS(A 090,13090GIDDIST(1,J),130a :90GIDDIST(1,J),13090GIDDIST(1,J),130GIDDIST(2,J)CRR D90GIDDIST(1,J),130DIST(2,J)CRRGID90,130DIST(2,J)GIDCRR N90,130GIDCRRDIST(2,J)90,130 X15,13015GID,130b15GID,13015GID,130GI  > 10:" NOW THAT YOU HAVE SOME PRACTICE WE'LL"f 11:"TRY SOME DIFFERENT PROBLEMS."~ D$;"WRITE NAME,R2" 1:EE:FF D$;"CLOSE NAME" D$;"RUN AREA3" D$;"RUN VERT"  *** LEVEL ONE: HORIZONTAL LINES &FLAG0 LET ME HELP."= JQ5$"MULTIPLY THE NUMBER OF UNITS ON EACH"j TQ6$"THE ANSWER MUST BE A WHOLE NUMBER."s ^:3 hQC$"ROW BY THE NUMBER IN EACH COLUMN." rQ0$"NOW TRY AGAIN." |J1 540 62450 J15440 CNT3440 JJ1:3905:DIST(2,15)2 CNT0: Q1$"YOU'RE EXACTLY RIGHT, "e Q9$"PRESS THE SPACE BAR TO CONTINUE." "Q7$"I'M SORRY, ":Q8$", BUT THE ANSWER IS " ,Q2$"NO, YOUR ANSWER IS TOO BIG. TRY AGAIN." 6Q3$"NO, THAT IS TOO SMALL. TRY AGAIN." @Q4$"NO,(1,7)4; DIST(2,3)4:DIST(2,4)2:DIST(2,6)3:DIST(2,7)1 DIST(1,8)3:DIST(1,9)5:DIST(1,10)4:DIST(1,11)5:DIST(1,12)3:DIST(1,13)4:DIST(1,14)6:DIST(1,15)2 DIST(2,8)2:DIST(2,9)5:DIST(2,10)4:DIST(2,11)1:DIST(2,12)3:DIST(2,13)4:DIST(2,14)[ dn11xD$(4)3D$;"OPEN NAME,L40"JD$;"READ NAME,R1"UNAME$`GID30kCRR.8sD$DIST(2,15)DIST(1,1)3:DIST(1,2)4:DIST(1,5)4DIST(2,1)3:DIST(2,2)2:DIST(2,5)5 DIST(1,3)3:DIST(1,4)2:DIST(1,6)6:DIST     S$"N"51070<D1R(1):D2R(2):D3R(3):D4R(4)NR(1)P1500gR(2)PD1P:1300R(3)PD1P:1050R(3)PD1R(3):1050320R(4)PD2R(4):370$D2P:370R(2)P10601510R(2)P1060R(3)EN (Y/N)";C$:C$"N"460/C$"Y"44092000k:22:"DO YOU WISH TO DRAW ANOTHER PARABOLA"y"(Y/N)";P$:P$"N"3000: "ACT II"P$"Y"480:22:"DO YOU WISH TO ENTER A NEW SCALE (Y/N)";S$S$"Y"İ9000:60"N"S$"N")A10)427P23:"DO YOU WISH TO REDRAW THE LAST PARABOLA (Y/N)";gR$:R$"N"ė:427xR$"Y"413A2A:B2B:C2CAA1:BB1:CC180A1A2:B1B2:C1C2430A1A:B1B:C1C 24:"DO YOU WISH TO CLEAR THE SCREJ(R(1)PR(2)P)320.TD1R(1):D2R(2)A^R(1)PD1PRhR(2)PD2PlrST(X(D2)X(D1))40|X(D1),Y(D1)DRX(D1)X(D2)1PSTF1ēDR,Y((DR139)P139):410DR,Y((DR139)P139):(R$"Y"P$"N")ı((C$)CRRGID.JJ1DE:JJ!8K4BK1DIST(2,J)iL90,130KCRRGID90DIST(1,J)GID,130KGIDCRRzVJJ1DE:JJ`KjF2DIST(2,J)1488,130KCRRGID92,130KGIDCRROXTICK90GIDDIST(1,J)XTICK2,130KCRRGIDXTICK2,130KGIDCRRKQ0$FLAG4ĺQ5$:QC$:810*** DRAW GRIDSK1DIST(1,J) $90KGID,13090KGID,130DIST(2,J>%H*** WAIT FOR CONTINUATION3R24:Q9$;;\R$NfR$(32)860TpZzn*** DRAW GRIDSK1DIST(1,J)190KGID,13090KGID,130CRRGIDK90,130GIDCRR90DIST(1,J)GID,130GIDCRRDIST(2,J)31010 K:JJ13000::840:22:958:QC$:770iFLAG4ĺQ7$;NAME$;Q8$;DIST(2,J)DIST(1,J);".":1040:840:810DIST(1,J)DIST(2,J)ANSĺQ3$DIST(1,J)DIST(2,J)ANSĺQ2$840 17:1958 650*17:9584FLAG0CNTCNT1:EEEE1GID15,1301@21:"HOW MANY UNITS MAKE UP THE AREA? ";N16384,0Z"";ANSDIST(1,J)DIST(2,J)ANSĺ(7);Q1$;NAME$;"!":840:810FLAGFLAG1CNT0:FFFF1ANS(ANS)0ĺQ6$:770FLAG2ĺQ4$:900:770&FLAG3ĺQ5$0GIDDIST(1,J),130GIDDIST(2,J)CRRj D90GIDDIST(1,J),130DIST(2,J)CRRGID90,130DIST(2,J)GIDCRR N90,130GIDCRRDIST(2,J)90,130 X15,13015GID,130 b15GID,13015GID,130GIDCRR l15GID,130CRRGID15,130GIDCRR v15,130CRR* 10:" GET READY TO DO SOME MORE!"B D$;"WRITE NAME,R2"Q 1:EE:FFf D$;"CLOSE NAME"z D$;"RUN AREA2" D$;"RUN VERT"  *** LEVEL ONE: HORIZONTAL LINES &FLAG0 090,13090GIDDIST(1,J),130% :90GIDDIST(1,J),13094$"NO, LET ME HELP."B TQ5$"HOW MANY UNITS IN THE BOTTOM ROW ?"o ^Q6$"THE ANSWER MUST BE A WHOLE NUMBER."x h:3 rQC$"AND HOW MANY ROWS ?" |Q0$"NOW TRY AGAIN." J1 540 62450 J15450 CNT3450 JJ1:400  :DIST(2,14)5:DIST(2,15)2$ CNT0E Q1$"YOU'RE EXACTLY RIGHT, "l "Q9$"PRESS SPACE BAR TO CONTINUE." ,Q7$"I'M SORRY, ":Q8$", BUT THE ANSWER IS " 6Q2$"NO, YOUR ANSWER IS TOO BIG. TRY AGAIN." @Q3$"NO, THAT IS TOO SMALL. TRY AGAIN." JQ1,6)6:DIST(1,7)4F DIST(2,3)4:DIST(2,4)2:DIST(2,6)3:DIST(2,7)1 DIST(1,8)3:DIST(1,9)5:DIST(1,10)4:DIST(1,11)5:DIST(1,12)3:DIST(1,13)4:DIST(1,14)6:DIST(1,15)2 DIST(2,8)2:DIST(2,9)5:DIST(2,10)4:DIST(2,11)1:DIST(2,12)3:DIST(2,13)4 dDE100nx11&D$(4)>D$;"OPEN NAME,L40"UD$;"READ NAME,R1"`NAME$kGID30vCRR.8~D$DIST(2,15)DIST(1,1)3:DIST(1,2)4:DIST(1,5)4DIST(2,1)3:DIST(2,2)2:DIST(2,5)5 DIST(1,3)3:DIST(1,4)2:DIST(      ((DR139)P139):16402^DR,Y((DR139)P139)8hOr(P$"N"R$"Y")ıX|411`:wN02792:N,80:N01592:139,N:125,77125,83:153,77153,83135,72143,72:135,88143,88 ACT II W$"ESTIMATE"P370R(4)P1600 "D4PH@ST(X(D4)X(D3)X(D2)X(D1))40[AX(D1),Y(D1)xBDRX(D1)X(D2)1PSTDF1ēDR,Y((DR139)P139):1608EDR,Y((DR139)P139)HJX(D3),Y(D3)TDRX(D3)X(D4)1PSTYF1ēDR,Y,J)490KGID,13090KGID,130DIST(2,J)CRRGIDEJJ1DE:JJLK_K1DIST(2,J)90,130KCRRGID90DIST(1,J)GID,130KGIDCRRJJ1DE:JJ$K.V:20((CC$)2)CC$;VĺQ3$'HDIST(1,J)DIST(2,J)ANSĺQ2$0R920;\17:1Ef958Np740\z17:958zFLAG0CNTCNT1:EEEE1*** WAIT FOR CONTINUATION:Q9$;16368,0:R$R$(32)940*** DRAW GRIDSK1DIST(1";ANSEDIST(1,J)DIST(2,J)ANSĺ(7);Q1$;NAME$;"!":980:920:890U FLAGFLAG1gCNT0:FFFF1 ANS(ANS)0ĺQ6$:850*FLAG2ĺQ4$:980::Q5$:8504FLAG3ĺQ7$;NAME$;Q8$;DIST(2,J)DIST(1,J);".":920:890>DIST(1,J)DIST(2,J)ANS130DIST(2,J)GIDCRR:90,130GIDCRRDIST(2,J)90,130Q15,13015GID,130t15GID,13015GID,130GIDCRR15GID,130CRRGID15,130GIDCRR15,130CRRGID15,130121:"HOW MANY UNITS MAKE UP THE AREA? ";16384,0"CLOSE NAME"ND$;"RUN AREA1"%X8bD$;"RUN VERT">lcv*** LEVEL ONE: HORIZONTAL LINESnFLAG090,13090GIDDIST(1,J),13090GIDDIST(1,J),13090GIDDIST(1,J),130GIDDIST(2,J)CRR90GIDDIST(1,J),130DIST(2,J)CRRGID90,FINGER TO COUNT THE UNITS."HQ6$"THE ANSWER MUST BE A WHOLE NUMBER."Q:3YJ1b630m62450{J15530CNT3530JJ1:480&10:" LET'S TRY SOME MORE PROBLEMS."0D$;"WRITE NAME,R2":1:EE:FF DD$;"U'RE EXACTLY RIGHT, "@Q9$"PRESS THE SPACE BAR TO CONTINUE."qQ7$"I'M SORRY, ":Q8$", BUT THE ANSWER IS "Q2$"NO, YOUR ANSWER IS TOO BIG. TRY AGAIN."Q3$"NO, THAT IS TOO SMALL. TRY AGAIN."Q4$"NO, LET ME HELP."Q5$"NOW USE YOUR IST(2,6)3:DIST(2,7)2 ^DIST(1,8)1:DIST(1,9)4:DIST(1,10)2:DIST(1,11)5:DIST(1,12)3:DIST(1,13)4:DIST(1,14)6:DIST(1,15)2 hDIST(2,8)4:DIST(2,9)5:DIST(2,10)4:DIST(2,11)1:DIST(2,12)3:DIST(2,13)4:DIST(2,14)2:DIST(2,15)2 rCNT0|Q1$"YOPEN NAME,L40"% D$;"WRITE NAME,R1"0 NAME$; GID30F CRR.8N "D$^ ,DIST(2,15) 6DIST(1,1)3:DIST(1,2)5:DIST(1,5)2 @DIST(2,1)3:DIST(2,2)2:DIST(2,5)5 JDIST(1,3)2:DIST(1,4)4:DIST(1,6)6:DIST(1,7)3 TDIST(2,3)4:DIST(2,4)3:D x 11 D$(4)E "IS THIS A CLASS OR INDIVIDUAL? (ENTER"o "C FOR CLASS AND I FOR INDIVIDUAL)";w P$ P$(67)P$(73)170 P$ P$"C"NAME$"CLASS":230 :: "HI, WHAT IS YOUR FIRST NAME?";NAME$ D$;"OUTIONS.":2000F V16:CC$"NOTIFICATION OF EACH COPY AND SITE":2000v V17:CC$"IS REQUESTED BY THE ABOVE.":2000 V20:CC$"STUDENT PROGRAMMER HOLLY SCHULMAN":2000 CC$"PRESS SPACE BAR TO CONTINUE" V24:2000:940 dDE100 nD$(4)SUPPORTED BY THE NSF-NIE":2000S V10:CC$"PROJECT SED80-12649, UNDER THE":2000 V11:CC$"DIRECTION OF M.J. CHRISTENSEN AND":2000 V12:CC$"L.A. KARLOVITZ":2000 V14:CC$"COPIES PERMITTED FOR USE BY":2000 V15:CC$"EDUCATIONAL INSTIT  :( :V1:CC$"AREA":2000::V "--------------------------------------" " (DEVELOPMENT VERSION - AUGUST 1981)"V6:CC$"SCHOOL OF MATHEMATICS, GEORGIA TECH.":2000V7:CC$"ATLANTA, GEORGIA 30332":2000 V9:CC$"PARTIALLY        ):ANS(2)H(1)H(2)H(3)H(4)H(5):ANS(3)H(3)ANS(2):ANS(4)H(2)ANS(2):ANS(5)(H(1)H(2)H(3))ANS(2)ANS(6)(100H(2)ANS(2).5):ANS(7)(100(H(2)H(4))ANS(2).5):NM(3)H(3):NM(4)H(2):NM(5)H(1)H(2)H(3) *** LIST OF REINFORCERS FOR PRINTOU"YOUR ANSWER IS TOO LARGE. TRY AGAIN."FNG$"THE CORRECT ANSWER IS "fXH$"YOUR FIRST ANSWER WAS "bI$"ENTER NEW ANSWER "l *** READS HEIGHT VALUES AND DISPLAYS BAR GRAPH:v780 *** COMPUTES CORRECT ANSWERS TO QUESTIONS:fANS(1)H(1" PRESS THE SPACE BAR TO CONTINUE.";9/16368,0:OK$M/OK$" "12050^&/::62450:u:V:20((CC$)2):CC$;: N1,0,0,1*N -1,3,4,104N -1,2,0,10>N 1,7,10,10HN 2,-2,2,10N;:21:"2";:22:" ";S1$;B1;"X ";S2$;C1H'21:23:"SCALE: ";P" TO "P'23:"DO YOU WISH TO CHANGE THE COEFICIENTS?":34:"(Y/N)";'N$:N$"Y"10000'N$"N"ı'10160.216,0..22."SORRY, NO MORE PROBLEMS TODAY."&/24:;W$;" FOR -B- ";:B<W'S1$"+ ":B1B:B10B1B1:S1$"- "B`'yj'22:"Y = "A"X";:21:"2";:22:" ";S1$;B1;"X + C"t'21:23:"SCALE: ";P" TO "P~'24:"ENTER "W$" FOR -C- ";:C'S2$"+ ":C1C:C10C1C1:S2$"- "'''22:"Y = "A"X"";:22:" + BX + C"4'21:23:"SCALE: ";P" TO "PZ$'24:"ENTER ";W$;" FOR -A- ";:A.'A0ė:23:">A< MUST NOT EQUAL 0":N02500:::100008'B'22:"Y = "A"X";:21:"2";:22:" + BX + C"L'21:23:"SCALE: ";P" TO "PV'24:"ENTER "2#5:"CHOOSE SCALE:":D<#3)"(1) -1 < X < 1 : -1 < Y < 1"tF#:3)"(2) -10 < X < 10 : -10 < Y < 10"P#:3)"(3) -100 < X < 100 : -100 < Y < 100"Z#5:15d#N$:N(N$):N1N39060n#P10(N1)x#':22:"Y = AX";:21:"2TO SEE THE CORRECT EQUATION?(Y/N) ";9C$:C$"N"3740KC$"Y"3732:22:"Y = "TA"X";:21:"2";:22:" + "TB"X + "TC24:1:"DO YOU WANT A NEW PROBLEM? (Y/N) ";Z$:Z$"N"ė::62450:Z$"Y"310037503999(#::16368,0:N$8F2:10000'B:80EL(ATABTBCTC)3700kV:22:"GOOD JOB!!!":(7);:(7)`"YOU FOUND THE CORRECT EQUATION!":3740t24:"TRY AGAIN? (Y/N) ";~T$:T$"N"3731T$"Y"37103640$:22:"DO YOU WANT - 23:"DO YOU WANT X-INTERCEPTS? (Y/N) ";EI$:I$"N"ĺ:3630WI$"Y"359022:1:868:NR0ĺ"NO X-INTERCEPTS":3630NR1ĺ"X-INTERCEPT AT X = "I1:3630$"X-INTERCEPTS AT X = "I1" AND "I2.24:"PRESS ANY KEY TO CONTINUE ";907 22:"FIND THE COEFICIENTS YIELDING THIS GRAPH"G N13000:X 22:1:868 22:"DO YOU WANT THE VERTEX LOCATION (Y/N)"; V$:V$"N"Ģ22:1:868:3580 V$"Y"3550 22:1:868:22:"VERTEX LOCATION: ( ";VX;" , ";VY;" )":23 12000! A,B,C,P & 216,0.N VXB2ACX VYAVX2BVXCT DDB24ACi DD0NR0:3505 I1(B(DD))2A I2(B(DD))2A I1I2NR1:3505 I1I23250 III1:I1I2:I2II NR2 2000 TAA:TBB:TCC F1: ^ 128,128,96,128,96,64,9 6,255,1,16, 85,128, 76,128, 76,64, 76, 255 ,1,16 h 76,128, 85,128, 76,64, 72,255,102,255, 85,255,96,255,1,128  r 64,128,64,128,76,64,57,255,64,128,64,128,72 nA37:B39:C1:D8:E2:2009 xA36:C12:D17:E3:200U A35:C24:D30:E9:200r A37:C30:D39:E13:200{ 500 E JAB C,DJ J ,K36 1I1K 6T,D:768,T:769,D @770 JI TK18555 Y:K18:305 CHRISTMAS TREE. BY D.C.O'SHEA ANDK SHEILA O'SHEA (AGE 10)oD$(4):D$;"BLOAD TONES,A$302"{ ::12I017(19I,19I2I-19I,19I2I12I<8FJ3539P17,21JZJdA35:B39:C5:D11:E1:200  !! "YOUR NEXT MOVE? (PRESS FOR RIGHT,"XX4" FOR LEFT, FOR DOWN, FOR UP.)";f416368,0 5XC(16384):16386,053:L1,D150L6L1,D16XC127136007A9$(XC128)x7A9$"U"M00:M11:147007A9$"D"M00:M11:14---" H5 I" THIS PROGRAM WILL SHOW YOU HOW TO";pIfI"IDENTIFY STREET CORNERS ON A SIMPLE"l8JJ"CITY MAP. IN THE NEXT PROGRAM, 'WALK,'"KdK"WE WILL USE THIS TO PLAN TRIPS."K@V:20((CC$)2)JCC$;TV:166000CO04416900#COK$;>C16384,0:A$:O0(A$)T\DO08ĺA$;:16900oD(33O0)(O090)17400x$EA$;E16384,0:OK$EO0(OK$)PFO08ĺOK$;:17400FO01317800G|GG"CITY STREETS"DH"-----------------------=XN,YN3XN3,YN3=!>24K>" PRESS THE SPACE BAR TO CONTINUE";^>16368,0:OK$tH?(OK$)3216100?24:1@868t@@16384,0:X$:O0(X$)_HYY02Y0H(I)11iRY:Xu\" ";|fYpzYY0H(I)211Y:X" ";YI *** PRESENTS QUESTIONS, EVALUATES RESPONSES, GIVES APPR FEEDBACK:960M *** REPEATS WHOLE ROUTINE AS MANY TIMES AS DESIRED:ZZ1:ZZ0Ĺ34,(Y04)::22:6:"PRESS 'RETURN' FOR NEW GRAPH";:16368,0:S$:63034,(Y04)::22:19:"BYE!": *** END OF PROGRAM: *** DISPLAYS BART WHEN NEEDED:R$(1)"RIGHT!":R$(2)"GOOD!":R$(3)"NOT BAD!":R$(4)"RIGHT ON!":R$(5)"YOU'RE A GENIUS!":R$(6)"TERRIFIC!":R$(7)"GOOD JOB!"P$"PRESS 'RETURN' WHEN READY TO GO ON"  *** PRESENTS QUESTIONS, EVALUATES RESPONSES, GIVES APPROPRIATEACTIONS"2" ";FRACT$;" + ";MIX$8e"TRY TO EXPRESS THE RESULTING FRACTION"~"IN SIMPLEST FORM.""IF YOU WANT ";NAME1$;" TO DO THE""PROBLEM INSTEAD, ENTER 'A'";"";ANSWER$ANSWER$""ī165320012:A24 PSC100:PO00" UCV8( Z2 n5000> sUR1NH x5300Q y" "[ }34,9a ~ "ENTER THE FIRST FRACTION, ";NAME1$ 6000 "ENTER THE SECOND FRACTION, ";NAME1$ 6100 6700 PLAYER2$;", ADD THE FR <"AND WHAT IS THE NAME OF THE SECOND"C >"PLAYER ? ";PLAYER2$s ?:"HOW MANY PAIRS OF FRACTIONS SHALL EACH" A"PLAYER PITCH ? ";N DP$"(PITCHER)":B$"(BATTER)" FS12:S20:S30:S41:S52:S60:S70:S82 HD2:C6:F2:E27 KY2:X2:B0 POINTS" ."TO THE BATTER."& /P 0"AN INCORRECT ANSWER BY THE PITCHER"{ 1"GIVES 0 POINTS TO THE PITCHER AND" 2"2 POINTS TO THE BATTER." 320150 7 8"WHAT IS THE NAME OF THE FIRST" 916368,0 :"PLAYER ? ";NAME1$ ;(INTS TO THE BATTER AND"7 &"1 POINT TO THE PITCHER."= 'l ("THE BATTER HAS THE OPTION OF ASKING THE" )"PITCHER TO ANSWER THE QUESTION." *"IN THIS CASE," + ,"A CORRECT ANSWER BY THE PITCHER GIVES" -"2 POINTS TO THE PITCHER AND 2 "PLAYER IS CALLED THE ";(39);"BATTER.";(39)< ::G 20150M | "A CORRECT ANSWER BY THE BATTER GIVES 2" !"POINTS TO THE BATTER AND 0 POINTS TO" ""THE PITCHER." # $"AN INCORRECT ANSWER BY THE BATTER" %"GIVES 0 PO#+200003L"THIS IS A GAME FOR TWO PLAYERS. THEY"t "TAKE TURNS GIVING EACH OTHER TWO" "FRACTIONS TO ADD TOGETHER.""THE PLAYER GIVING THE FRACTION IS""CALLED THE ";(39);"PITCHER";(39);" AND THE OTHER""\\]"START AT THE X"(]20600.$^E@V:20((CC$)2)OJCC$;UTR'CITY STREETS'"WBHX"YOU WILL BE ASKED TO CHOOSE A PATH TO"HXoY" VISIT SEVERAL GIVEN LOCATIONS."utYY" YOU SHOULD CHOOSE THE SHORTEST"I1NP>(AA$A$(I))(ZLZ(I))BT%(I)BT%(I)1:SVSV1>IH??@M1$" WHAT ARE THE COORDINATES OF YOUR"t@M2$"LOCATION NOW? "@C0$(48ZL)6.  *** DATA VALUES MAY BE ANY INTEGERS 0 TO 9. AT LEAST ONE VALUE IN ANY GIVEN SET OF 5 MUST BE NON-ZERO:Z1:Z034,0Y013:X08:W04:H09:M08:W120B:23:14:"PRESS 'RETURN'";:16368,0:S$ *** Z0 CONTROLS HOW MANY TIMES GRAPHS AND QUESTION SETS ARE PRESENTED. ITS VALUE IS DETERMINED BY THE FIRST DATA ITEM. DATA IS LISTED AT END OF PROGRAM.X *** THE REMAINING DATA VALUES (IN SETS OF 5) AR":15:11:G "USER WITH QUESTIONS":17:10:"CONCERNING THE GRAPHS." 9:3:B951:B:3:"*":B:B337:5:B:"*":B:B59:B:37:"*" B B3731:9:B:"*":B:B919:B:3:"*":B:B337:19:B:"*":B* B1991:B:37:"*": OK$" "31z d *** THIS PROGRAM DISPLAYS BAR GRAPHS AND PRESENTS THE USER WITH QUESTIONS CONCERNING THE GRAPHS *** n *** FRONT HEADING: x::7:16 "BAR GRAPH":11:8:"THIS PROGRAM DISPLAYS BAR":13:9 "GRAPHS AND PRESENTS THENSTITUTIONS.":2000K V16:CC$"NOTIFICATION OF EACH COPY AND SITE":2000{ V17:CC$"IS REQUESTED BY THE ABOVE.":2000 V20:CC$"STUDENT PROGRAMMER SWARNA KRISHNAMURTI":2000 CC$"PRESS SPACE BAR TO CONTINUE" V24:2000 16368,0:OK$ALLY SUPPORTED BY THE NSF-NIE":2000X V10:CC$"PROJECT SED80-12649, UNDER THE":2000 V11:CC$"DIRECTION OF L.A. KARLOVITZ AND":2000 V12:CC$"M.J. CHRISTENSEN":2000 V14:CC$"COPIES PERMITTED FOR USE BY":2000 V15:CC$"EDUCATIONAL I  :- :V1:CC$"BAR GRAPH":2000::[ "--------------------------------------" " (DEVELOPMENT VERSION - AUGUST 1981)"V6:CC$"SCHOOL OF MATHEMATICS, GEORGIA TECH.":2000V7:CC$"ATLANTA, GEORGIA 30332":2000$ V9:CC$"PARTI       2 PP);CC$;  * I019= 1:20I:" ";P 1:20I:" ";d 15:20I:" ";x 15:20I:" "; I72200 8I:1:" "; 8I:39:" "; *8I:1:" "; 48I:39:" "; I  I ( 22556 <V23:CC$"PRESS SPACE BAR TO START"@ F1000S P16368,0:OK$d ZOK$" "80j dp nv , 6V5:CC$"CATALOG OF THIS DISK:" @1:10:CC$ E34,2:2 F J(4);"CATALOG" T:2:1: V PP(40(CC$))2  :20001507 V4:CC$"GEORGIA TECH"A 1000e V6:CC$"SCHOOL OF MATHEMATICS"o 1000wV9CC$"NSF-NIE SECONDARY LEVEL"1000V11:CC$"COMBINED VOLUMES 1-4"1000V13:CC$"OCTOBER 1981"100020  N|9XN1,YN3XN3,YN339XN4,YN1XN4,YN2N9XN4,YN5XN4,YN4:a9XN,YNXN,YN4p4:XN1,YN5:XN2,YN6:XN3,YN5`;XN4,YN4XN4,YN;XN,YN2XN4,YN2(<2$,D30D25L,LL3050R,]P-11000-L3,D3L3,D3L3,D3L3,D3L3,D3.|.X10:Y10.X6(X$)D/X130X25/A$"A"Y180 0A$"B"Y1110p0A$"C"Y11400A$"D"%YN94&%14010%YN130)%13700/H&@&XN78:YN140K&14800V&XN108a&14710l&XN138w&15410&XN168&15420&XN198'15430t'XN228'15500<((X80:Y5)J16h)X,YX,Y120)XX300*J*15900 xI::62450#@6*5M "WE HOPE YOU ENJOYED READING"Sl Z 3j4!"OUR MAP."r!23x!`"X80:Y5"J15(#X,YX150,Y#YY30#JT$$XN65:YN10$14100$YN34$14040$YN64$14030:Z(3)23:Z(4)26:Z(5)6'd:2118800;,9400F10400P9900[X11600"AT WHAT CORNER IS THE SQUARE?"; 1660011900Y1LX1Dĺ"THAT'S CORRECT."(7)(7):7700L12900"NO, THE CORNER IS ";6X2;", ";B$I\:219400:9900+$Z(1)163I1>11600fP"FOR EXAMPLE, THE CORNER WITH THE""SQUARE IS IDENTIFIED BY 3,D"15900|:21" NOW IT'S YOUR TURN."DI15000I p8I15Z(1)9:Z(2)1399005 "(D) DOGWOOD STREET, (E) ENGINEERS STREET"= 22\ t"AND (F) FALCONS STREET."g 15900q <:21{ 8800 9400 h"CORNERS ARE IDENTIFIED BY THE NUMBER" "OF THE AVENUE AND THE FIRST LETTER" 0"OF THE STREET" I150009400 I15000 4I$ 8800/ 10400= ` I12000D IL ( 21y "THE VERTICAL STREETS ARE CALLED, FROM" "LEFT TO RIGHT, (A) ATLANTA STREET," T "(B) BRAVES STREET, (C) CHIEFS STREET," 15900  62450 :21 10400 H FIRST, LET'S LOOK AT A SAMPLE MAP.", :36 8800A 10400O I12000V LI` :21 "ON THIS MAP THE HORIZONTAL STREETS" x"ARE CALLED, FROM TOP TO BOTTOM, 1ST," "2ND, 3RD, 4TH, AND 5TH AVENUE" @15900 62450 8800 lIONAL INSTITUTIONS.":40000T V16:CC$"NOTIFICATION OF EACH COPY AND SITE":40000 V17:CC$"IS REQUESTED BY THE ABOVE.":40000 CC$"PRESS SPACE BAR TO CONTINUE" V24:40000 16100 d 18400 ,15900 Z(50) :21# X" TIALLY SUPPORTED BY THE NSF-NIE":40000\ V10:CC$"PROJECT SED80-12649, UNDER THE":40000 V11:CC$"DIRECTION OF L.A. KARLOVITZ AND":40000 V12:CC$"M.J. CHRISTENSEN":40000 V14:CC$"COPIES PERMITTED FOR USE BY":40000 V15:CC$"EDUCAT  :- :V1:CC$"CITY MAP":40000::[ "--------------------------------------" " (DEVELOPMENT VERSION - AUGUST 1981)"V6:CC$"SCHOOL OF MATHEMATICS, GEORGIA TECH.":40000V7:CC$"ATLANTA, GEORGIA 30332":40000' V9:CC$"PAR     TS COORDINATES? ")-C0$(486Z(NP1)):.C1$A$(NP1)E|.17100S.AN12500`D/:21:1/"NO, THE COORDINATES ARE ";C0$;",";C1$ 020600p0081BELL$,BELL$1:21:12"THAT'S RIGHT!"d2206002,33:21:1'3XN3,YN"(+XN4,YN1XN4,YN5:5++XN,YNXN,YN6N.+XN1,YN6XN4,YN6c1+XN1,YNXN4,YN|4+XN1,YN3XN4,YN37+\+XN,YNXN,YN6+XN4,YN6$,XN,YN3XN3,YN3,,M1$"THE X MARKS THE STARTING POINT."P-M2$"WHAT ARE IN5XN,YN+XN1,YNXN3,YN7+XN1,YN3XN3,YN3P +XN4,YN1XN4,YN2k+XN4,YN5XN4,YN4:+XN,YN1XN,YN5:XN1,YN6XN3,YN6+XN1,YNXN3,YN+XN4,YN1:XN4,YN5:+XN,YNXN,YN6"+XN1,YN6XN3,YN6%+XN1,YNN,YN1H&XN1,YNXN3,YN4&XN4,YN1XN4,YN3K'XN3,YN4XN,YN4Yt'XN,YN6i'XN4,YN6o<((XN,YNXN,YN4)XN1,YN5h)XN2,YN6)XN3,YN50*XN4,YN4XN4,YN*XN,YN2XN4,YN2* +XN,YN6XN3,YN6:XN,YN,YN5%XN,YN6XN4,YN6#%A%XN,YNXN4,YN:XN4,YN1e%XN3,YN2:XN2,YN3XN3,YN3%XN4,YN4XN4,YN5:XN3,YN6XN1,YN6%XN,YN5:%XN3,YNXN3,YN6%XN4,YN4XN,YN4%XN,YN3:XN1,YN2%XN2,YN1:%X2(.25C1)W#M1(.25C1),M2(.25C2)M1(.25C2),M2(.25C1)M1(.25C1),M2(.25C2)]#rT$XN1,YNXN3,YN$XN2,YNXN2,YN6%XN1,YN5%%XN3,YNXN1,YN%XN,YN1:XN4,YN1XN4,YN2%XN3,YN3XN2,YN3%XN1,YN4:X3L3,D3x5700.L3,D3L3,D3C@L3,D3L3,D3IY M1(L1L)2il M2(D1D)2} L1LC10:C244!L1LC10:C24!D1DC14:C20!D1DC14:C20`"M1M1C1"M2M2C2 (#M1(.75C2),M2(.75C1)M1(.25C2),M YN649628YN94'96102,YN128<9300BSXYN140:XN78^10400iXN108t11010XN13811030XN16811039XN198 11051 XN23011100L5700 L3,D3L3,D3L3,D3L3,D PRACTICEİ16300# SVNP4400. |19600= :62450:N DDZ(I)3025b A$(I)"A"L80w A$(I)"B"L110 pA$(I)"C"L140 A$(I)"D"L170 8A$(I)"E"L200 A$(I)"F"L230  dXN70:YN10 n9700 xYN34 9640 Y5:X50. I16:XX30:X,YX,Y120:I> T 6500:7000S  I1NP:7500:Iq H INP1:7800:5700:23500 11500:INP1:5700 L1L:D1D:PL0:SV0 013200 0 L1,D1L,D \3 PLPL(M0)(M1) $15900:8200 L1L:D1D BELL$(7):BKSP$(8)2 Z(40),A$(40),BT%(40): XNXG JJ1NX[ PRACTICE,NP,CLi I1NP1y Z(I),A$(I) LI 1500 JJ x::62450: :3 @I1NP:BT%(I)0:I X80:Y5 lI15 X,YX150,Y 4YY30 I:CC$"EDUCATIONAL INSTITUTIONS.":40000` V16:CC$"NOTIFICATION OF EACH COPY AND SITE":40000 V17:CC$"IS REQUESTED BY THE ABOVE.":40000 CC$"PRESS SPACE BAR TO CONTINUE" V24:40000 16368,0:OK$ OK$" "31 21900 ,:V9:CC$"PARTIALLY SUPPORTED BY THE NSF-NIE":40000h V10:CC$"PROJECT SED80-12649, UNDER THE":40000 V11:CC$"DIRECTION OF M.J. CHRISTENSEN AND":40000 V12:CC$"L.A. KARLOVITZ":40000 V14:CC$"COPIES PERMITTED FOR USE BY":40000' V15W 16390 :9 V1::CC$"CITY WALK":40000::g "--------------------------------------" " (DEVELOPMENT VERSION - AUGUST 1981)"V6:CC$"SCHOOL OF MATHEMATICS, GEORGIA TECH.":40000V7:CC$"ATLANTA, GEORGIA 30332":400003                    262450<12:48F"NOW LET'S TRY SOME PROBLEMS."AP820GZMdSnhxX040GID(KK1)vX1X0GIDX0,YYX1,YYX0,YY2X0,YY2X1,YY2X1,YY2V:20((CC$)2)CC$;VT."~JJ11000:JJ)YY50:031400@YY80:3QII1SAMPLE[KKIIe140020:21:II;" ";JJ11000:JJIIJJ12000:JJ21:1 " AND SO THE TOTAL LENGTH IS ";SAMPLE820( II 23:1("AND A LINE SEGMENT."D40,9040GIDSAMPLE,90W$II15000:IId.:21:18" LET'S FIND OUT HOW MANY UNITS ARE IN"B"THE LINE SEGMENT."L820V`21:1j" WE'LL COUNT THE NUMBER OF UNITS IN THE"t"SEGMENK1DIST(1,J)+40KGID,6840KGID,722KKANSDIST(1,J)ĺQ5$Q *** TEACHES HOW TO COUNT UNITS WITH ONE SAMPLE ***SAMPLE5KK1YY501400100:21:1"THE FIGURE ABOVE SHOWS A UNIT"II11000:0DIST(1,J)ANSĺQ3$1DIST(1,J)ANSĺQ2$:820E17:1O958X 640f17:958 FLAG0CNTCNT1:EEEE1*4*** WAIT FOR CONTINUATION>V24:CC$Q9$:2000HR$RR$(32)840\fp*** DRAW GRIDSz"HOW MANY UNITS LONG IS THE LINE? ";216384,0>"";ANStDIST(1,J)ANSĺ(7);Q1$;NAME$;"!":880:820:790FLAGFLAG1CNT0:FFFF1ANS(ANS)0ĺQ6$:750FLAG2ĺQ4$:880:750FLAG3ĺQ7$;NAME$;Q8$;DIST(1,J);".":820:79ICAL LINES."$D$;"WRITE NAME,R2"31:EE:FFHD$;"CLOSE NAME"[&D$;"RUN VERT"a0:*** LEVEL ONE: HORIZONTAL LINESDFLAG0N40,7040GIDDIST(1,J),70X40,9040GID,90b40,8840,92l40GID,8840GID,92v1$21:Q4$"NO, LET ME HELP."HQ5$"NOW USE YOUR FINGER TO COUNT THE UNITS."uQ6$"THE ANSWER MUST BE A WHOLE NUMBER."~:3J194057062450J15490CNT3490JJ1:440:10 " NOW LET'S TRY SOME VERTST(1,14)6:DIST(1,15)2! @CNT0B JQ1$"YOU'RE EXACTLY RIGHT, "m TQ9$"PRESS THE SPACE BAR TO CONTINUE." ^Q7$"I'M SORRY, ":Q8$", BUT THE ANSWER IS " hQ2$"NO, YOUR ANSWER IS TOO BIG. TRY AGAIN." rQ3$"NO, THAT IS TOO SMALL. TRY AGAIN."|N NAME,L40"# D$;"WRITE NAME,R1". NAME$9 GID20A D$Q DIST(4,15)y "DIST(1,1)3:DIST(1,2)5:DIST(1,5)2 ,DIST(1,3)2:DIST(1,4)4:DIST(1,6)6:DIST(1,7)3 6DIST(1,8)1:DIST(1,9)4:DIST(1,10)2:DIST(1,11)5:DIST(1,12)8:DIST(1,13)4:DI11:CC$"IS THIS A CLASS OR AN INDIVIDUAL?":2000m V13:CC$"(ENTER C FOR CLASS OR I FOR INDIVIDUAL)":2000u P$ P$(67)P$(73)160 P$ P$"C"NAME$"CLASS":220 :: "HI, WHAT IS YOUR FIRST NAME?";NAME$ D$;"OPE2000= V16:CC$"NOTIFICATION OF EACH COPY AND SITE":2000m V17:CC$"IS REQUESTED BY THE ABOVE.":2000 V20:CC$"STUDENT PROGRAMMER HOLLY SCHULMAN":2000 Q9$"PRESS SPACE BAR TO CONTINUE" 2820 dD$(4) n x11 D$(4)0 V BY THE NSF-NIE":2000J V10:CC$"PROJECT SED80-12649, UNDER THE":2000 V11:CC$"DIRECTION OF L.A. KARLOVITZ AND":2000 V12:CC$"M.J. CHRISTENSEN":2000 V14:CC$"COPIES PERMITTED FOR USE BY":2000 V15:CC$"EDUCATIONAL INSTITUTIONS.":  : :17:"LENGTH":M "--------------------------------------"z " (DEVELOPMENT VERSION - AUGUST 1981)"V6:CC$"SCHOOL OF MATHEMATICS, GEORGIA TECH.":2000V7:CC$"ATLANTA, GEORGIA 30332":2000 V9:CC$"PARTIALLY SUPPORTED     .ANSWER$;" IS ILLEGAL. PLEASE ENTER"X"ANOTHER ANSWER FOR THE ADDITION OF"sFRACT$;" AND ";MIX$|160PTPD8300W$"BAD"ī160250Q12(ANSWER$)Q22190153009000,5300.$1" LINES."6730:@62450'J480:TY1Y0SL(TH)M^X1X0SL(TH)^hX0,Y0X1,Y1mrTX2(TH)||TY2(TH)C01.5X0C0TX,Y0C0TYX0TX,Y0TYX1C0TX,Y1C0TYX1TX,Y1TYY03I14-Y0120SL(I1):Y1Y0SLOX02,Y0X02,Y0`X0,Y0X0,Y1uX02,Y1X02,Y1JJ1500:JJI:21"THE VERTICAL LINE IS ALSO 4 UNITS LONG"""SO YOU SHOULD BE EXTRA CAREFUL WITH","VERTICALY0 X9X0:X8X1$X0X91902:X1X0FF:3:1620L(JJ1100:JJY20:1620a<X0yFTH01.5707.15707P3:1620ZJJ1100:JJd0:1620nTHxTH2(1):Y8Y0Y0Y812023:1620JJ1100:JJ0:1620SLtX0,Y02X0,Y02)~X0,Y0X1,Y0>X1,Y02X1,Y02PJJ1300:JJWIa:21" SO THE HORIZONTAL LINE IS 4 UNITS LONG"JJ11000:JJ730::21:TH0Y014015023:16200:JJ1100:JJ1620F2JJ1500:JJ:21K" WOULD YOU BELIEVE THAT THESE LINES"g"ARE THE SAME LENGTH?"r730:$JJ1500:JJ.:218" WATCH, AS WE MEASURE OFF THE LENGTHS."BSLFF2LY0130VI14`X0140FFSL(I1)jX1X0.":730p:21;z" ITS HARD TO GUESS THE LENGTH OF A"["VERTICAL LINE, ISN'T IT?"d730jr21" FOR EXAMPLE, LOOK AT THE LINES ABOVE."3FFGID2140FF,120140FF,120JJ11000:JJ140,120140,120F 24:Q9$;R$(R$(32)750.4 H*** DRAW GRIDS[ K1DIST(1,J)|*128,125KGID132,125KGID4K>Q5$HR *** SHOWS THE OPTICAL ILLUSION ON FIRST ERROR ****\:21f" SORRY, ";NAME$;" THAT'S NOT CORRECTQ6$:660$ lFLAG2ĺQ4$:790:660W vFLAG3ĺQ7$;NAME$;Q8$;DIST(1,J);".":730:700o DIST(1,J)ANSĺQ3$ DIST(1,J)ANSĺQ2$ 730 17:1 958 540 17:958 FLAG0CNTCNT1:EEEE1  *** WAIT FOR CONTINUATION3GID,90 40,8840,926 403GID,88403GID,92= 1k 21:"HOW MANY UNITS LONG IS THE LINE? ";y &16384,0 0"";ANS :DIST(1,J)ANSĺ(7);Q1$;NAME$;"!":730:700 DFE1FE0:850 NFLAGFLAG1:FFFF1 XCNT0 bANS(ANS)0 |JJ1:340  J 10:" NOW LET'S TRY SOME DIAGONAL LINES."b D$;"WRITE NAME,R3"q 2:EE:FF D$;"CLOSE NAME" D$;"RUN DIAG"   *** LEVEL TWO: VERTICAL LINES FLAG0 130,125130,125GIDDIST(1,J) 40,9040 IS TOO BIG. TRY AGAIN."D Q3$"NO, THAT IS TOO SMALL. TRY AGAIN."_ "Q4$"NO, LET ME HELP." ,Q5$"NOW USE YOUR FINGER TO COUNT THE UNITS." 6Q6$"THE ANSWER MUST BE A WHOLE NUMBER." @:3 JJ1 T470 ^62450 hJ15390 rCNT33901,8)1:DIST(1,9)4:DIST(1,10)2:DIST(1,11)5:DIST(1,12)3:DIST(1,13)4:DIST(1,14)6:DIST(1,15)2j CNT0 Q1$"YOU'RE EXACTLY RIGHT, " Q9$"PRESS THE SPACE BAR TO CONTINUE." Q7$"I'M SORRY, ":Q8$", BUT THE ANSWER IS " Q2$"NO, YOUR ANSWER d+nFE1: *** FIRST ERROR FLAG ***1x=D$(4)UD$;"OPEN NAME,L40"lD$;"READ NAME,R1"wNAME$D$GID17DIST(4,15)DIST(1,1)4:DIST(1,2)2:DIST(1,5)5DIST(1,3)3:DIST(1,4)4:DIST(1,6)6:DIST(1,7)3` DIST(     RACTION"!"IN SIMPLEST FORM.".ANSWER$EANSWER$""ī5116O3200Y5110iHH$ANSWER$s3100ANSWER$(ANSWER$,1,FF)DP1(ANSWER$,DP,1)"/"ī5133((ANSWER$,DP,1))48((ANSWER$,DP,1))57ī5125DPFFī514 ";#HT7:5025:HT12:5025AHT28:5025:HT33:5025:Q6:9:SC1;a6:30:PO;gV57:HT:V:" ":V:NAME1$;", ADD THE FRACTIONS"" ";FRACT$;" + ";MIX$"TRY TO EXPRESS THE RESULTING F "ANOTHER ANSWER."  M "THE FRACTION IS ILLEGAL. PLEASE ENTER"l "ENTER ANOTHER FRACTION."r CC$NAME$:V1:HC10:40000CC$PLAYER$:V1:HC30:400004:7:" ";28:" ";:288:" ";7:""6);NAME1$;27);PLAYER2$77);SC1;28);PO=&N BL1(ZZ$)i (ZZ$,BL,1)" "ī3050q BL~ NNBL1  ML1(HH$)& (HH$,ML,1)" "ī31500 MLN FFML1X   "THE ANSWER IS ILLEGAL. PLEASE ENTER" OF"tFRACT$;" AND ";MIX$(v3302wPTXX<x8300OyW$"BAD"ī330Xz385l{G12(ANSWER$)w|G221}9215~4259200UR34,014);"GAME OVER"14);"---------"10);"THE FINAL SCORE IS:"SWER$"A"ī362[^7100(h4251jXX1Ol(ANSWER$,XX,1)"/"ī375m((ANSWER$,XX,1))48((ANSWER$,XX,1))57ī369nXXFFī379oXXXX1p364qrANSWER$;" IS ILLEGAL. PLEASE ENTER"s"ANOTHER ANSWER FOR THE ADDITIONG"IN SIMPLEST FORM."CH"IF YOU WANT ";PLAYER2$;" TO DO THE"gI"PROBLEM INSTEAD, ENTER 'A'.";tJANSWER$KANSWER$""ī335L3200M330NANSWER$(ANSWER$,1,FF)OHH$ANSWER$P3100QANSWER$(ANSWER$,1,FF)RTANENTER THE FIRST FRACTION, ";PLAYER2$.6600048`;"ENTER THE SECOND FRACTION, ";PLAYER2$j=6100p>z@6700ABNAME1$;", ADD THE FRACTIONS"CD" ";FRACT$;" + ";MIX$EF"TRY TO EXPRESS THE RESULTING FRACTION"(32)720**** DRAW GRIDS=K1DIST(1,J) 801.5((1))GIDK,1251.5((1))GIDK801.5((1))GIDK,1251.5((1))GIDKK Q5$*L0:6309 XFLAG3ĺQ7$;NAME$;Q8$;DIST(1,J);".":700:670Q bDIST(1,J)ANSĺQ3$i lDIST(1,J)ANSĺQ2$r v700} 17:1 958 520 17:958 FLAG0CNTCNT1:EEEE1  *** WAIT FOR CONTINUATION 24:Q9$; R$ R$ 40,8840,92, 401GID,88401GID,923 1a 21:"HOW MANY UNITS LONG IS THE LINE? ";o 16384,0{ "";ANS &DIST(1,J)ANSĺ(7);Q1$;NAME$;"!":700:670 0FLAGFLAG1 :CNTO:FFFF1 DANS(ANS)0ĺQ6$:630 NFLAG2ĺQ4$:76'S TRY SOME DIFFERENT PROBLEMS."8 D$;"WRITE NAME,R4"G 3:EE:FF\ D$;"CLOSE NAME"p D$;"RUN PATHS"v   *** LEVEL THREE: DIAGONAL LINES FLAG0 80,12580((1))GIDDIST(1,J),125((1))GIDDIST(1,J) 40,90401GID,90 IS TOO SMALL. TRY AGAIN."5 Q4$"NO, LET ME HELP."g Q5$"NOW USE YOUR FINGER TO COUNT THE UNITS." "Q6$"THE ANSWER MUST BE A WHOLE NUMBER." ,:3 6J1 @450 J62450 TJ15370 ^CNT3370 hJJ1:320 r | 10:" LET5:DIST(1,12)3:DIST(1,13)4:DIST(1,14)6:DIST(1,15)2@ CNT0a Q1$"YOU'RE EXACTLY RIGHT, " Q9$"PRESS THE SPACE BAR TO CONTINUE." Q7$"I'M SORRY, ":Q8$", BUT THE ANSWER IS " Q2$"NO, YOUR ANSWER IS TOO BIG. TRY AGAIN." Q3$"NO, THATdnD$(4)+xD$;"OPEN NAME,L40"BD$;"READ NAME,R1"MNAME$UD$`GID20pDIST(4,15)DIST(1,1)4:DIST(1,2)3:DIST(1,5)5DIST(1,3)2:DIST(1,4)4:DIST(1,6)6:DIST(1,7)36 DIST(1,8)1:DIST(1,9)4:DIST(1,10)2:DIST(1,11)     :S41DJ(GID1)K/S51:A(P)60S543XS31.5S1(S5(1))DJ,YS41.5S2(S5(1))DJXS31.5S1(S5(1))DJ,YS41.5S2(S5(1))DJKXX((A(P)45)(1))(GIDCRR)D(P):YY((1)A(P)45)(GIDCRR)D(P)PQ5$Y(3GID)KX2,Y(3GID)K:1240YA(P)90ēX2,Y(GID3)KX2,Y(3GID)K:1240A(P)0A(P)90S11:S21:S31:S41A(P)90A(P)180S11:S21:S31:S41A(P)0A(P)90S11:S21:S31:S41A(P)180A(P)270S11:S21:S3125.P1(DIST(1,J))88P(DIST(1,J))D(P)D(P)1UBCRR0:(A(P))90CRR3tL(1)(A(P)345)0CRR1VD(P)11250`K1D(P)1jA(P)0ēXGIDK,Y2XGIDK,Y2:1240tA(P)180ēXGIDK,Y2XGIDK,Y2:1240#~A(P)90ēX2,".":990:960NUMANSĺQ3$1NUMANSĺQ2$:990E17:1O958X810f17:958FLAG0CNTCNT1:EEEE1*** WAIT FOR CONTINUATION24:Q9$;R$R$(32)1010*** DRAW GRIDS$X80:Y1840GID,92 1@*21:"NOW MANY UNITS LONG IS THE PATH? ";N416384,0Z>"";ANSHNUMANSĺ(7);Q1$;NAME$;"!":990:960RFLAGFLAG1\CNT0:FFFF1fANS(ANS)0ĺQ6$:920pFLAG2ĺQ4$:1050:920 zFLAG3ĺQ7$;NAME$;Q8$;NUM;RR)DIST(9,Z)aXX((ANG45)(1))(GIDCRR)DIST(9,Z):YY((1)ANG45)(GIDCRR)DIST(9,Z)wNUMNUMDIST(9,Z)ZZ1:Z16Z1PDIST(1,J)760ANGANGDIST(PQ1,J):A(P1)ANGP40,9040GID,90 40,8840,92 40GID,8125:Z1#ANG0:Q0:NUM0:A(1)0UDIST(1,J)0Q1:ANGANGDIST(Q1,J):A(1)ANGkP1(DIST(1,J))CRR0:(ANG)90CRR3(1)(ANG345)0CRR1D(P)DIST(9,Z) X,YX((ANG45)(1))(GIDCRR)DIST(9,Z),Y((1)ANG45)(GIDC45:DIST(7,10)90J1"620-62450;J15550JCNT3550YJJ1:500_&e0:10:"THANKS FOR THE EXERCISE."DD$;"WRITE NAME,R5"N4:EE:FFXD$;"CLOSE NAME"b255:l *** LEVEL FOUR: PATHSvFLAG0:X80:YDIST(2,7)45:DIST(3,7)45:DIST(4,7)90:DIST(5,7)90DIST(2,8)60:DIST(3,8)30:DIST(4,8)45:DIST(5,8)135:DIST(6,8)45:DIST(7,8)45DIST(2,9)45:DIST(3,9)90:DIST(4,9)90DIST(2,10)90:DIST(3,10)90:DIST(4,10)90:DIST(5,10)45:DIST(6,10)ST(2,3)90:DIST(3,3)90:DIST(4,3)90:DIST(5,3)90:DIST(6,3)90 DIST(2,4)45:DIST(3,4)45:DIST(4,4)45:DIST(5,4)45:DIST(6,4)90:DIST(7,4)45:DIST(8,4)90 DIST(2,5)90:DIST(3,5)90:DIST(4,5)90:DIST(5,5)90 DIST(2,6)45:DIST(3,6)454DIST(7,12)45:DIST(8,12)90L hDIST(2,13)90:DIST(3,13)45:DIST(4,13)135 rDIST(2,14)90:DIST(3,14)90:DIST(4,14)45:DIST(5,14)90:DIST(6,14)45 |DIST(2,15)60:DIST(3,15)60:DIST(4,15)135 DIST(2,1)45 DIST(2,2)90:DIST(3,2)90A DIT(9,7)2r JDIST(9,8)1:DIST(9,9)2:DIST(9,10)2:DIST(9,11)3:DIST(9,12)3:DIST(9,13)2:DIST(9,14)2:DIST(9,15)2 TDIST(2,11)90:DIST(3,11)45:DIST(4,11)45:DIST(5,11)45 ^DIST(2,12)135:DIST(3,12)135:DIST(4,12)90:DIST(5,12)45:DIST(6,12)90:Q3$"NO, THAT IS TOO SMALL. TRY AGAIN."D Q4$"NO, LET ME HELP."v Q5$"NOW USE YOUR FINGER TO COUNT THE UNITS." "Q6$"THE ANSWER MUST BE A WHOLE NUMBER." ,:3 6DIST(9,1)3:DIST(9,2)2:DIST(9,5)2 @DIST(9,3)2:DIST(9,4)1:DIST(9,6)1:DIS6:DIST(1,11)4:DIST(1,12)8:DIST(1,13)4:DIST(1,14)5:DIST(1,15)3O CNT0p Q1$"YOU'RE EXACTLY RIGHT, " Q9$"PRESS THE SPACE BAR TO CONTINUE." Q7$"I'M SORRY, ":Q8$", BUT THE ANSWER IS " Q2$"NO, YOUR ANSWER IS TOO BIG. TRY AGAIN.") dnD$(4)+xD$;"OPEN NAME,L40"BD$;"READ NAME,R1"MNAME$UD$`GID20zDIST(9,15),A(9),D(9)DIST(1,1)2:DIST(1,2)3:DIST(1,5)5DIST(1,3)6:DIST(1,4)8:DIST(1,6)3:DIST(1,7)5E DIST(1,8)7:DIST(1,9)3:DIST(1,10)     T,1))48((FRACT$,TT,1))57ī8150+'TT:'W$"GOOD"D'8160J's'FRACT$;" IS ILLEGAL. PLEASE ENTER"'"ANOTHER FRACTION."'W$"BAD"'' PP1(PT1)' ((MIX$,PP,1))48((MIX$,PP,1))57ī8250' PP' TT(PT1)NN-(SC1SC1S6-&2P$"(PITCHER)":B$"(BATTER)"7&45000Y&9P$"(PITCHER)":B$"(BATTER)"c&>5000m&H8000s&R&@K12000&JK&T&PP1(PT1)&((FRACT$,PP,1))48((FRACT$,PP,1))57ī8150&PP&TT(PT1)NN#'((FRACT$,TM12(ANSWER$)%M221*%AVM12M22<%AVVIDī7180F%8800U%SC1SC1S8b%POPOS7l%7225% M12NUMī7200%M22DENī7200%8850%7210% 8400%!ANSWER$;" IS THE CORRECT ANSWER"%%"IN SIMPLEST FORM."%*POPOS5 &/20$2$ANSWER$;" IS ILLEGAL. PLEASE ENTER"\$"ANOTHER ANSWER FOR THE ADDITION OF"w$FRACT$;" AND ";MIX$$7110$PTJP$8300$W$"BAD"ī7110$VAFFJP$M22((ANSWER$,JP1,VA))$M12((ANSWER$,1,JP1))$7150%LEST FORM."#ANSWER$/#ANSWER$""ī71169#3200C#7110S#HH$ANSWER$]#3100z#ANSWER$(ANSWER$,1,FF)#JP1#(ANSWER$,JP,1)"/"ī7133#((ANSWER$,JP,1))48((ANSWER$,JP,1))57ī7125#JPFFī7145#JPJP1$713TN11$!C1I3(C1I3)ī6828?!D1I3(D1I3)ī6828U!D2D1I3:C2C1I3w!NUM(A1D2)(B1C2):DENC1D2!6840!I3!NUMDEN6855!NUMDEN6859!NUM1:DEN1!6880!QUDEN!6861!QUNUM!I4QU11"NUM2LI11* (B$)I2((B$)I2)ī6795K (D$)I2((D$)I2)ī6795g B1(B$)I2:D1(D$)I2q 6800y I2 (D$)I2((D$)I2)ī6795 C1D1ī6813 C1D1ī6817 NUMA1B1:DENC1 6840 TND1 6820 TNC1 !I67mWA(C$)oI1WA11@q(A$)I1((A$)I1)ī6774ar(C$)I1((C$)I1)ī6774}sA1(A$)I1:C1(C$)I1t6778vI1z(B$)(D$)ī6788|(B$)(D$)ī6786~B11:D116800LI(B$)6790LI(D$) I8200W$"BAD"ī6100!5,SS(FRACT$)CPG6RR(MIX$)TP`@C$(FRACT$,CP1,SS)wJD$(MIX$,TP1,RR)TA$(FRACT$,1,CP1)^B$(MIX$,1,TP1)c(A$)(C$)ī6765e(A$)(C$)ī6763gA11:C11i6778kWA(A$)l67MIX$MIX$""ī6104$3300.6100<ZZ$MIX$F3000]MIX$(MIX$,1,NN)gTP1(MIX$,TP,1)"/"ī6170TPTP1TPNNī6120MIX$;" IS ILLEGAL. PLEASE ENTER""ANOTHER FRACTION."6100PTTPtZZ$FRACT$u30004vFRACT$(FRACT$,1,NN)>zCP1\(FRACT$,CP,1)"/"ī6070iCPCP1{CPNNī6020FRACT$;" IS ILLEGAL. PLEASE ENTER""ANOTHER FRACTION."6000PTCP8100W$"BAD"ī6000ORM."ZSC1SC1S5!_POPOS6CiP$"(BATTER)":B$"(PITCHER)"Mn5000Wx8000]c~(D):(C):" "(D):(C):P$(F):(E):" "(F):(E):B$pFRACT$qFRACT$""ī6004r3300s60001,DP1))5150&N12(ANSWER$)1N221@AMN12N22R#AMVIDī5180\(8800i2POPOS8x4SC1SC1S775225<N12NUMī5200@N22DENī5200F8850N5210P8400QANSWER$;" IS THE CORRECT ANSWER"U"IN SIMPLEST F5DPDP15120HANSWER$;" IS ILLEGAL. PLEASE ENTER"r"ANOTHER ANSWER FOR THE ADDITION OF" FRACT$;" AND ";MIX$ 5110 PTDP8300W$"BAD"ī5110SAFFDPN22((ANSWER$,DP1,SA))N12((ANSWER$,$POPOS2/E$SC1SC1S1:/J$P$"(PITCHER)":B$"(BATTER)"D/M$5000N/O$8000T/Q$Z/S$|/T$P$"(PITCHER)":B$"(BATTER)"/'/ N:/*N:V1:CC$"ADDING-FRACTIONS GAME":20160://N/4N"--------------------------------------"0>N" (DEVELOPME$,PT1,WR))(.#G12((ANSWER$,1,PT1))7.#OMG12G22I.$OMVIDī9250S.$8800`.$POPOS4o.$SC1SC1S3y.$9290."$G12NUMī9265.'$G22DENī9265.,$8850./$9280.1$8400.3$ANSWER$;" IS THE CORRECT ANSWER".6$"IN SIMPLEST FORM." /@NUMī9065-_#Q22DENī9065'-b#88501-h#9080;-i#8400a-j#ANSWER$;" IS THE CORRECT ANSWER"z-k#"IN SIMPLEST FORM."-x#POPOS1-}#SC1SC1S2-#P$"(BATTER)":B$"(PITCHER)"-#5000-#8000-#-#-#WR(ANSWER$)PT .#G22((ANSWERHE CORRECT ANSWER."@,""IN SIMPLEST FORM, HOWEVER, THE ANSWER"P,""IS ";NUMV,"k,(#RT(ANSWER$)PT,-#Q22((ANSWER$,PT1,RT)),2#Q12((ANSWER$,1,PT1)),7#IMQ12Q22,<#IMVIDī9050,F#8800,L#POPOS3,N#SC1SC1S4,P#9100 -Z#Q12"ANSWER$;" IS INCORRECT."E+|""THE CORRECT ANSWER IN SIMPLEST FORM"U+""IS ";NUM[+"e+"8400v+"DEN1ī8880+"ANSWER$;" IS THE CORRECT ANSWER."+""IN SIMPLEST FORM, HOWEVER, THE ANSWER"+""IS ";NUM;"/";DEN+"8899,"ANSWER$;" IS T4,23 * 1* Q$(7);* Q$:Q$:Q$:Q$:Q$:Q$:Q$:Q$R* 34,20::20:34,9X* g*4!X120000n*>!Xt*H!*`"DEN1ī8820*b"*e"ANSWER$;" IS INCORRECT."*j""THE CORRECT ANSWER IN SIMPLEST FORM"*n""IS ";NUM;"/";DEN*p"8840*t"+y(PT1)((ANSWER$))K) ((ANSWER$,TT,1))48((ANSWER$,TT,1))57ī8350S) TTb) W$"GOOD"l) 8360r) ) ANSWER$;" IS ILLEGAL. PLEASE ENTER") "ANOTHER ANSWER FOR THE ADDITION OF") FRACT$;" AND ";MIX$) W$"BAD") * 24:3 ((MIX$,TT,1))48((MIX$,TT,1))57ī82505(! TTD(& W$"GOOD"N(+ 8260T(: {(< MIX$;" IS ILLEGAL. PLEASE ENTER"(= "ANOTHER FRACTION."(? W$"BAD"(D (l PP1(PT1)(q ((ANSWER$,PP,1))48((ANSWER$,PP,1))57ī8350(v PP){ TTV U FOR UNION"6 ;" - FOR DIFFERENCE"c ;" D FOR SYMMETRIC DIFFERENCE": ;"PARENTHESES ARE TREATED IN THE":"USUAL WAY." ;22:14 ;"PRESS 'RETURN'";A$ ;(4);"RUN MAINBODY" `V:20((CC$)2) jCC$; t MANIPULATION OF THREE SETS DESIGNATED"U B;"'A','B','C', AND THEIR COMPLIMENTS,":o L;"ARE PERMITTED.":: V;" USE THE FOLLOWING KEYS FOR SET": `;"MANIPULATION :": j;" ' FOR COMPLEMENT" t;" I FOR INTERSECTION" ~;" ,0:OK$ 2OK$" "40 <$ :P :" THIS PROGRAM DEMONSTRATES THE": :" REPRESENTATION OF SET OPERATIONS BY": ;" A VENN DIAGRAM.": ;V20:CC$"PRESS SPACE BAR TO CONTINUE":60000 ;16368,0:OK$ ;OK$" "15130 $;( 8;" UCATIONAL INSTITUTIONS.":60000X V16:CC$"NOTIFICATION OF EACH COPY AND SITE":60000 V17:CC$"IS REQUESTED BY THE ABOVE.":60000 V20:CC$"STUDENT PROGRAMMER JOEL LARNER":60000 CC$"PRESS SPACE BAR TO CONTINUE" V24:60000 (16368"PARTIALLY SUPPORTED BY THE NSF-NIE":60000` V10:CC$"PROJECT SED80-12649, UNDER THE":60000 V11:CC$"DIRECTION OF M.J. CHRISTENSEN AND":60000 V12:CC$"L.A. KARLOVITZ":60000 V14:CC$"COPIES PERMITTED FOR USE BY":60000 V15:CC$"ED  :1 :V1:CC$"VENN DIAGRAM":60000::_ "--------------------------------------" " (DEVELOPMENT VERSION - AUGUST 1981)"V6:CC$"SCHOOL OF MATHEMATICS, GEORGIA TECH.":60000V7:CC$"ATLANTA, GEORGIA 30332":60000+ V9:CC$       DRAW SIN/COS@21:1:"PLOT OF Y=";:A1ĺA"*";ZW$"S"ĺ"SIN";:4040f"COS";}"(";:K1ĺK"*";"X)""OVER THE INTERVAL -3PI TO 3PI":9582(W$"C")(L$"L")14200,4300,4400,4500hX3PI3PIPI33:1401W$"Y"ĺ"YES";:2440#~ "NO "H$;O A$:(A$"Y"A$"N")A$W$W$A$:2420j A$H$Ė21:958:2410{ A$M$2440 W$"Y"2020 5000 DRAW AXES 62450 3:40,80240,80 140,0140,159 135,72145,72 150,76150,84L$:L$"D"L$"L"2180>16:L$"D"ĺ"DOTS "H$;:2210L"LINES";xA$:(A$"D"A$"L")A$L$L$A$:2190A$H$Ė16:958:2180A$M$22103000:4000` 24:1:"ANOTHER PLOT (Y/N)? ";j W$:W$"Y"W$"N"2410t 21: AND 30":2060 23:9585 *23:"SIN OR COS: ";S 4W$:W$"S"W$"C"2100q >13:W$"S"ĺ"SIN";:2130} H"COS"; RA$:(A$"S"A$"C")A$W$W$A$:2110 \A$H$Ė13:958:2100 fA$M$2130 p24:958 z1:"DOTS OR LINES: ";-30 TO 30."> @16368,0:23:"PRESS ANY KEY TO BEGIN";:A$:K  DRIVERY 16304,0j 21:1:958 21:"ENTER A: ";A A9A9ĺ"A MUST BE BETWEEN -9 AND 9":2030 22:958 22:"ENTER K: ";K K30K30ĺ"K MUST BE BETWEEN -30PHS OF THE FUNCTIONS"F 15:"A*SIN(K*X)":"AND":15:"A*COS(K*X)": "WHERE THE ";::"AMPLITUDE";::" 'A' AND THE ";::"FREQUENCY";::" 'K' MAY BE CHOSEN BY THE USER." " LIMIT 'A' TO THE RANGE -9 TO 9 AND LIMIT 'K' TO THE RANGE " NOTIFICATION OF EACH COPY AND SITE"U j" IS REQUESTED BY THE ABOVE.":: t" STUDENT PROGRAMMER DAVID CARTER" ~23:8:"PRESS ANY KEY TO CONTINUE"; 16368,0:A$: :: 17:"SIN/COS" :" THIS PROGRAM PLOTS THE GRA. $" PARTIALLY SUPPORTED BY THE NSF-NIE"Y ." PROJECT SED80-12649, UNDER THE" 8" DIRECTION OF L.A. KARLOVITZ AND" B" M.J. CHRISTENSEN": L" COPIES PERMITTED FOR USE BY" V" EDUCATIONAL INSTITUTIONS."( ` dH$(8):M$(13)'xPI3.1415926/:I17::" SINCOS "::x"---------------------------------------"" (DEVELOPMENT VERSION - AUGUST 1981)"::" SCHOOL OF MATHEMATICS, GEORGIA TECH." " ATLANTA, GEORGIA 30332":  3JV:HC(LL2):CC$;3TVD BY THE ABOVE.":20160P2NV20:CC$"STUDENT PROGRAMMER DENISE SCHULMAN":20160v2NCC$"PRESS SPACE BAR TO CONTINUE"2NV24:20160:16368,02NOK$:OK$" "201522N2NV:20((CC$)2)2NCC$;2N3@LL(CC$):LL19CC$(CC$,18):40000ECTION OF M.J. CHRISTENSEN AND":20160K1zNV12:CC$"L.A. KARLOVITZ":20160}1NV14:CC$"COPIES PERMITTED FOR USE BY":201601NV15:CC$"EDUCATIONAL INSTITUTIONS.":201601NV16:CC$"NOTIFICATION OF EACH COPY AND SITE":201602NV17:CC$"IS REQUESTENT VERSION - AUGUST 1981)"T0HNV6:CC$"SCHOOL OF MATHEMATICS, GEORGIA TECH.":201600RNV7:CC$"ATLANTA, GEORGIA 30332":201600\NV9:CC$"PARTIALLY SUPPORTED BY THE NSF-NIE":201600fNV10:CC$"PROJECT SED80-12649, UNDER THE":20160&1pNV11:CC$"DIRA  PP`L`ppp88x`x`pp8`<<~`?~p?<~`?`p```pp`@ppxpx@pp@@p88<pxpxxx8@||@?~@?p~|<<@?~`p`@@@ppp@@?p~p|``@@p<<8@?~@?~||<xx@`x`pxx8@8`xp`p@@@ppp~p?p<````p8~`?~`?<<pp`x`xp` p8`8x`p`p`           spp88  ````````````x`ox`o``````````@AAAAAAAAAAqp8`GAAAAAAAAA@AAAAAAAAAA=<^AAAAAAAAA`?~p?0000000000<<00000000`````````````````~````````````````00000000000000000000000000000000000000```````````p```c````````@AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApp l@ ppxp x@@AAAAAAAAAqp@@GAAAAAAAAp88<000000000000px3px30000000000```````````xx8@o`````````@AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA```````````||`````````@AAAAAAAAAAAA?~@?p~AAAAAAAAAAA |<<0000000000000000p?~1000000000000000000000000pp`@@@300000000``````````````````````````````````````ppv@@?p~p | ````````````@@c````````@AAAAAAAAAAAAApAAAAAAAAAAAA@AAAAAAAAA<|AAAAAAAA8X?~X?~00000000000||<?000000000``````````````````````````````````````00000000000xx@?000000000`````````````x`pxg`````````` x8@8 xx x`p@@@00000000000000000000000000000000000000@AAAAAAAAAppAAAAAAAAs~p?p>0000000000p```300000000``````````````p``````````````````````|````````@AAAAAAAAAAAAAxAAAAAAAAAAAA ~`? ~`? <<00000000000000000000000000000000000000xp`000000000000x`xp`?0000000000 p8`8 |`  |`p`             ,1)"N"(A$,1)"Y"210212:R(A$,1)"Y"20000:DR:By [y GRAPHICS SECT. ONEay"y120,14135,29:132,33112,13:105,13130,38:100,15128,43:94,17128,51,y90,20126,56:86,22122,58:82,25117,60:79,29113,63:76,34109,67C6y7"B"T$"C"FCFC1;RNT$"D"T$"-"T$"U"T$"I"CCCC1B\NZUfNFCCC121000zpN23:9:"*** ILLEGAL ENTRY ***"zNZ91400:Z9:20005R12000 R38000R23:"WOULD YOU LIKE ANOTHER DIAGRAM (Y/N) ";RA$&R(A$)1210210R(A$2,A$6000"3:32848,0:32850,0:32851,32:32852,32;;:A NS!N MAIN BODYY"N#N32848,0:32850,0:32851,32:32852,32:32849,64:32768$N16301,0:16304,0%N100)N13000*NFC0:CC04NZ1(FU$)>NT$(FU$,Z,1)HNT$"A"T$:13140J3FU$(FU$,(FU$)1)*T313040K^3A$(13)FU$FU$A$:13040bh3X((40(FU$))2)nr3::21||3X2:FU$3:: INITIALIZE::(4);"BLOAD VENNROUTINE":(4);"BLOAD BACKGROUND1,A$4000" :(4);"BLOAD BACKGROUNDSET FUNCTION"2" : ";(2A$:A$;12CH0W3A$"A"A$"B"A$"C"A$"D"CH1}3A$"U"A$"I"A$"-"A$"'"CH13A$"("A$")"A$(13)A$(8)CH1"3CH13120,3(8);:" ";:(8);6313040@3A$(8)13150E3(FU$)2FU$""U$,Y,1)/T$"A"İ10000-/T$"B"İ10100@/T$"C"İ10200S&/T$"'"İ10500f0/T$"("İ10850y:/T$")"İ10900D/T$"U"T$"I"T$"-"T$"D"İ11000N/YX/11000b/22 RECEIVE22:212FU$"" 2"PLEASE ENTER A +OC111100& +OP$(OC)"("11100> +OP$(OC)"D"İ10700V*+OP$(OC)"U"İ10300n4+OP$(OC)"I"İ10400>+OP$(OC)"-"İ10600H+OCOC1\+OCOC1f+OP$(OC)(FU$,Y,1)p+.. STACKER..SC0:OC0.Y1(FU$).T$(Fl*OCOC1v*OP$(OC)"(" *&*9* RIGHTPAREN?*V*OP$(OC)"("10980n*OP$(OC)"D"İ10700*OP$(OC)"U"İ10300*OP$(OC)"I"İ10400*OP$(OC)"-"İ10600*OCOC2**OCOC1*** STACK OPERATIONS*)Z9 ))) DELTA$)0)Z918G)T10:T20:TE(Z9)0g)ST(SC,Z9)ST(SC1,Z9)T11)ST(SC,Z9)ST(SC1,Z9)T21)T1T2TE(Z9)1*Z9*SCSC1*Z918&*ST(SC,Z9)TE(Z9)0*Z9:*b*c* LEFTPARENd* ) ) COMPLEMENT )( )Z918L )ST(SC,Z9)1ST(SC,Z9)0:10540\ ")ST(SC,Z9)1d ,)Z9j 6)p h) i) DIFFERENCE j) r)Z918 |)TE(Z9)0 )ST(SC1,Z9)ST(SC,Z9)TE(Z9)1 )Z9 )SCSC1 )Z918 )ST(SC,Z9)TE(Z9)(SC,Z9)ST(SC1,Z9)TE(Z9)1$ d(Z90 n(SCSC1< x(Z918Q (ST(SC,Z9)TE(Z9)Y (Z9_ (e (w ( INTERSECT} ( (Z918 (TE(Z9)0 (ST(SC,Z9)ST(SC1,Z9)TE(Z9)1 (Z9 (SCSC1 (Z918 (ST(SC,Z9)TE(Z9) (Z9 ( 'ST(SC,7)1 'ST(SC,8)0! '' '5 ' GAMMA; 'G 'SCSC1V 'ST(SC,1)0e 'ST(SC,2)0t (ST(SC,3)1 (ST(SC,4)0 (ST(SC,5)1 (ST(SC,6)1 ((ST(SC,7)1 2(ST(SC,8)0 7( <( =( UNION >( F(Z918 P(TE(Z9)0 Z(ST $'ST(SC,1)1 .'ST(SC,2)0, 8'ST(SC,3)0; B'ST(SC,4)1J L'ST(SC,5)1Y V'ST(SC,6)1h `'ST(SC,7)0w j'ST(SC,8)0} o' t' u' BETA v' ~'SCSC1 'ST(SC,1)0 'ST(SC,2)1 'ST(SC,3)0 'ST(SC,4)1 'ST(SC,5)1 'ST(SC,6)0 179,41181,41:179,47181,47:179,44181,44:182,46182,45:182,42182,43U , Cd @0:Z908 J137,Z9100143,Z9100:Z9 O3 T138,106138,102:139,101141,101:139,107141,107:142,102:142,106 ^ ' ' ALPHA ' 'SCSC1a ST(10,8),OP$(5),TE(8).15000:200009d AHx0:Z908d95,Z940101,Z940:Z9k396,4796,43:97,42:98,41:99,42:100,43100,47:96,45100,45 B0:Z908177,Z940183,Z940:Z93J 178,47178,41:       5120WWWW15114COO$(ANSWER$,((ANSWER$)(WW1)))TANSWER$OO${OPT(((ANSWER$)1000.01))1000(OPTREAL).0005ī5150 520080005180SC1SC1S7#POPOS8(6300- 0P$"(BATTER)":B$"7:HT:V:" ";:V:'POPOS16SC1SC1S2@6500bP$"(BATTER)":B$"(PITCHER)"l5000rNAME1$;", WRITE THE FRACTION ";FRACT$;" AS A""DECIMAL, CORRECT TO THREE PLACES."ANSWER$WW1(ANSWER$,WW,1)".",9!CC$NAME$:V1:HC10:40000BCC$PLAYER$:V1:HC30:40000H]4:7:" ";t28:" ";:288:" ";7:" ";HT7:5025:HT12:5025HT28:5025:HT33:5025:6:9:SC1;6:30:PO;V5$"(BATTER)"5000 8000(CP234,0<8000BX14);"GAME OVER"n14);"---------"t10);"THE FINAL SCORE IS:"V8:HC10:CC$NAME1$:40000:HC30:CC$PLAYER2$:40000 9:8);SC1;29);PO&H34)ĺ"ILLEGAL ENTRY, TRY AGAIN.":330,p366TtEE$(ANSWER$,((ANSWER$)(XX1)))evANSWER$EE$yOPT(((ANSWER$)1000.01))1000z(OPTREAL).0005ī400|70508000425SC1SC1S3POPOS46300 P$"(PITCHER)":BEE PLACES."5C"IF YOU WANT ";PLAYER2$;" TO DO THE"XD"PROBLEM INSTEAD, INPUT A ."eJANSWER$K(ANSWER$)0ĺ"TRY AGAIN":330OTANSWER$"A"ī365[^7100h425mXX1n(ANSWER$,XX,1)"."ī372#oXXXX1:XX(ANSWER$8000300POPOS3-SC1SC1S476300YP$"(BATTER)":B$"(PITCHER)"c5000m8000w" ",5300.1"ENTER A FRACTION, ";PLAYER2$66000;@NAME1$;", WRITE THE FRACTION AS A" A"DECIMAL, CORRECT TO THR100 300VV13(ANSWER$,VV,1)"."ī193oVVVV1:VV(ANSWER$)ĺ"ILLEGAL ENTRY, TRY AGAIN":160x188AA$(ANSWER$,((ANSWER$)(VV1)))ANSWER$AA$OPT(((ANSWER$)1000.01))1000(OPTREAL).0005ī210505001PLAYER2$;", WRITE THE FRACTION AS A"Z"DECIMAL, CORRECT TO THREE PLACES.""IF YOU WANT ";NAME1$;" TO DO THE""PROBLEM INSTEAD, INPUT A ."ANSWER$(ANSWER$)0ĺ"TRY AGAIN":160ANSWER$"A"ī1875N# DP$"(PITCHER)":B$"(BATTER)"P FS12:S20:S30:S41:S52:S60:S70:S82f HD2:C6:F2:E27| KY2:X2:B2:A24 PSC100:PO00 UCV8 Z n5000 sCP1N x5300 y" " }34,9 ~ "ENTER A FRACTION, ";NAME1$600THE PITCHER AND"0 2"2 POINTS TO THE BATTER.": 38500@ 7g 8"WHAT IS THE NAME OF PLAYER ONE";u 916368,0 :NAME1$ ; <"AND THE NAME OF PLAYER TWO"; =PLAYER2$ > ?"HOW MANY FRACTIONS SHOULD EACH PLAYER" @:"PITCH"; A"( )"PITCHER TO ANSWER THE QUESTION."= *"IN THIS CASE,"C +p ,"A CORRECT ANSWER BY THE PITCHER GIVES" -"2 POINTS TO THE PITCHER AND 0 POINTS" ."TO THE BATTER." / 0"AN INCORRECT ANSWER BY THE PITCHER" 1"GIVES 0 POINTS TO BATTER GIVES 2"? !"POINTS TO THE BATTER AND 0 POINTS TO"S ""THE PITCHER."Y # $"AN INCORRECT ANSWER BY THE BATTER" %"GIVES 0 POINTS TO THE BATTER AND" &"1 POINT TO THE PITCHER." ' ("THE BATTER HAS THE OPTION OF ASKING THES." 2 "THE PLAYER GIVING THE FRACTION IS"l "CALLED THE ";(39);"PITCHER";(39);" AND THE OTHER" "PLAYER IS CALLED THE ";(39);"BATTER.";(39) :: "PRESS RETURN FOR THE SCORING RULES" FF$  "A CORRECT ANSWER BY THE 200003F"THIS IS A GAME FOR TWO PLAYERS. THEY"t "TAKE TURNS GIVING EACH OTHER FRACTIONS" "TO CONVERT TO DECIMALS. THE FRACTIONS" "MUST BE BETWEEN 0 AND 1 , AND THE" "DECIMALS MUST BE C