' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`(S$,1)" "S$(S$,1,(S$)1):5910@& S$C1$İ6800:5760u&\ ***THE EQUATION HAS THE FORM '(A-C)X=(C-C)X+D'&B10:X(C):1680:C1$V$::3:XC:1460&R$(P(20));N9$;E9$::A$;X$;S3$;C1$;X$;E$;C$;X$;'XC:1460:S3$;C1$;X$;:XD:1460: ***THE EQUATION HAS THE FORM 'AX=CX+D'@%0B10::3:XD:1460q%DR$(P(20));N9$;E9$::A$;X$;E$;C$;X$;S3$;D$x%l9%W2$;:S$%(S$,1)" "S$(S$,1,(S$)1):5770%S$"A"İ6800:5760%B10:XC:1680:C1$V$X$%13:W3$;% S$'&V:R$(P(20));$L9$;:S$F$(S$,1)" "S$(S$,1,(S$)1):5390_$S$C1$İ7500:5380$TB10:DDB:D$((D)):XD:1460:S1$S3$:1520:C1$C$X$S2$D$$V15:15:R$(P(20));$R9$;:S$$S1$S$:1520:S$S2$$S$C1$İ7500:5560(%X+D-B'#(B10::3:XB:1460G#<R$(P(20));N9$;E9$::A$;X$;S3$;B$;#PXB:1460:S3$;B$;E$;C$;X$;:XD:1460:S3$;D$;:XB:1460:S3$;B$#d9#xW2$;:S$#(S$,1)" "S$(S$,1,(S$)1):5250#S$"S"İ6800:5240$B10:C1$A$X$:V13:15:15:R$(P(20));""R9$;:S$L"(S$,1)" "S$(S$,1,(S$)1):5010d"S$D$İ7500:5000"18:R$(P(5));" The resulting equation is"::"the solution set for ";X$;": ";X$;E$;(D)"8000:6580# ***THE EQUATION HAS THE FORM 'AX+B-B=C:S$;M$;A$;X$;E$;S$;M$;S2$;D$$!\92!pW2$;:S$\!z(S$,1)" "S$(S$,1,(S$)1):4730u!S$"S"İ6800:4720!B10:V13:V:R$(P(20));!L9$;:S$!(S$,1)" "S$(S$,1,(S$)1):4850!S$X$İ7500:4840!LB10:DDA:D$(D)"tVWhat should each side"::"be multiplied by";5 S$_ (S$,1)" "S$(S$,1,(S$)1):4530x S$C1$S$C2$ī4640 7660:4520  ***THE EQUATION HAS THE FORM '1/A*AX=1/A*D' B10:1220:XS:1460:S1$S3$:1520!H:3:R$(P(20));N9$;E9$:XS:1460:S1$S3$:1520:S2$;D$&94W2$;:S$^(S$,1)" "S$(S$,1,(S$)1):4330wS$"M"İ6800:43200B10:ZD:DA:1220:DZ:XS:1460:S1$S3$:1520:C1$S2$"1/"((A)):C2$"1/"(A)lA1C1$"-1":C2$"-1"- 13:R$(P(20));" RM 'AX=D'+, ***AVOID MULTIPLYING BY 1/1;@A1ī4240J18:"The multiplication property of"::"equality is skipped since the"T:"coefficient of ";X$;" is 1.":8000:1:18:958:5080B10::3:R$(P(20));N9$;E9$:A$;X$;E$;:1220:(S$,1)" "S$(S$,1,(S$)1):3850BS$C1$(S$X$A1)ī3940R<7500:3840udB10:DDB:C1$(D):D$((D))V15:V:R$(P(20));R9$;:S$(S$,1)" "S$(S$,1,(S$)1):4050S$C1$İ7500:4040  ***THE EQUATION HAS THE FOXB:1460:S3$;B$;:XB:1460:S3$;B$;E$;:1220g.XS:1460:S1$S3$:1520:S2$;D$;:XB:1460:S3$;B$sLB10:9tW2$;:S$~(S$,1)" "S$(S$,1,(S$)1):3710S$"S"İ6800:3700B10:C1$A$X$:V13:V:R$(P(20));L9$;:S$$ (S$,1)" "S$(S$,1,(S$)1):3370<4 S$"A"İ6800:3360Yp B10:C1$(B):13:W3$;a S$ (S$,1)" "S$(S$,1,(S$)1):3510 S$C1$İ7340:3500 ***THE EQUATION HAS THE FORM 'AX+B-B=D-B':3:R$(P(20));N9$;E9$::A$;X$;/$S$C1$İ7500:3080?X ***THE EQUATION HAS THE FORM 'AX+B=D'Yl :3:R$(P(20));N9$;~ ***TYPE 1 EQUATIONS START HERE 1220:XS:1460:S1$S3$:1520 E9$::A$;X$;:XB:1460:S3$;B$;E$;S2$;D$ B10:9:N1T21İ6680 W1$;:S$#* S1$S3$:1520:C1$A$X$S2$B$<T B10:V13:V:R$(P(20));Jh L9$;:S$w| S1$S$:1520:S$S2$:C1$S$İ7500:2920 1220:XS:1460:S1$S3$:1520:C1$S2$D$ B10:V15:V:R$(P(20)); R9$;:S$ (S$,1)" "S$(S$,1,(S$)1):3090 ):1680:C1$V$Ld XC:1460:A$;X$;S3$;C1$;X$;:XB:1460:S3$;B$;E$;C$;X$;zn XC:1460:S3$;C1$;X$;:XD:1460:S3$;D$ B10:9 W2$;:S$ (S$,1)" "S$(S$,1,(S$)1):2750 S$"S"İ6800:2740 AAC XA:1680:A$V$:XB:1460:340&t C1$(B):XC:1680:C2$V$X$9 B10:13:W3$;A S$k (S$,1)" "S$(S$,1,(S$)1):2510} S$C1$05160 S$C2$02620 7800:2500( ***THE EQUATION HAS THE FORM '(A-C)X+B=(C-C)X+D'< :3:R$(P(20));N9$;E9$:5P X(CJ)":Z$A$:Z9(Z$):16:2:50QZ$"Y=SQR("(Z$,5,(Z$)4)")":FL1:1098pA$"":J1(Z$):(Z$,J,1)" "A$A$(Z$,J,1)zJ:Z$A$:X:::3:15:"POLYGRAPH":::" Polygraph will plot any mathematical":Bb"relation expressed .75:Z4Z21.754 15:868:15:"Mean Y value?";MYt R(Z4Z3)2:Z3((MYR)100)100:Z4((MYR)100)100:1090A$"":J1(Z$):(Z$,J,3)"SQR"FL1A$A$"-"A$A$(Z$,J,1):J3(A$):(A$,J2,3)"---"A$(A$,1,J2)(A$,J1,(A$)13)(4)4D$"NOMONC,I,O"$4:B4 10:"Do you want to try"412:868:"again (yes or no) ?";R$:R$(R$,1):R$"Y"R$"N"430304 :R$"Y"Ĭ4*(1023)123Ā44D$;"RUN HELLO"Z::Q$3 16368,0:9:868:53@CH(36):CV(37)]3A"";ZN$:(ZN$)(((ZN$)))40003z3B(ZN$)0ZN$"0"400063CZM:"That is not a number - try again";:40010:400013FZM:868:CV1(CV23):ZN(ZN$):3JCV1:36,CH:868:4D$(:82"adding a form of that term to both"::"sides."c2:"What is the negative of ";C$;X$;:}2, ***PAUSE SUBROUTINE2@16368,0:24:9:"Press SPACE BAR to continue";2TL111002h(16384)127ī82002|L324:15::"SPACE BAR";:36t multiply"::"to get the coefficient of ";X$;" equal to 1."f1(:"WHAT IS THE RECIPROCAL OF ";A;:1d ***ADDITION HINTS SUBROUTINE (-CX) 1xB1B11:B17860,7260216:"No, that is incorrect. What we want"::"to do is remove a common term by"et's try again."(08000:1:V:958:018:"Please simplify using a pencil and"::"paper, then we'll try one more time."08000:1:V:958:0 ***MULTIPLICATION HINTS SUBROUTINE0B1B11:B17700,7260=117:"No, that's not it. we muse done is to remove a common":n/"term. We can do this by adding a"::"form of that term to both sides."/:"What is the negative of ";B;:/8 ***SIMPLIFICATION HINTS SUBROUTINE/LB1B11:B17560,7600,7260018:"No, that's wrong, but lme"::"other time.":15l.p"When running this program again, please ":"read the instructions CAREFULLY!".L115000:L:255:43000. ***ADDITION HINTS SUBROUTINE (-B).B1B11:B17400,7260/16:"No, that's not right. What has"::"to b:"it must be the third transformation"::"and we'll try it once more."b- 8000:1:9:958:|-H ***STOP SUBROUTINE -\:5:"You don't seem to understand what we"::"are doing. I would like you to talk".f:"to your teacher and try again so...simplify":8000:1",8:958,10:"Check to see which step you are on"::"and figure out the correct"::"transformation.",8000:1:9:958:,13:"'";S$;"' is not right either. That leaves"::"only one more choice. Think of why"J- rong."::"We want to simplify the equation by":+"removing terms common to both sides."::"This is done in the following manner:":+0"Use addition property...Simplify":T22ĺ:"Addition property again...simplify",X:"Multiplication property property"::"'M'..The multiplication property"a*@:"'S'..Simplification":8000:9:1:958:*| ***TRANSFORMATION HINTS SUBROUTINE*S$"A"S$"M"S$"S"ī6680*B1B11:B16880,7160,72601+8:958:"No, the transformation '";S$;"' is wS$)(S$,1)"Y"ī2000o)15:"Good-bye then, ";N$;" ":24:"Press return to continue";:A$::255:43000) ***TRANSFORMATION OPTIONS SUBROUTINE)9:958:"These are your options for"::"equation transformations."0*,15:"'A'..The additionV15:V:R$(P(20));"(R9$;:S$L((S$,1)" "S$(S$,1,(S$)1):6430^((S$C1$04160n(<7500:6420(d ***ANOTHER EQUATION?(:5:"Good job ";N$;", you solved that":("equation okay. Now do you have":)"time for another one? ";S3$;D$ '9'W2$;:S$E'(S$,1)" "S$(S$,1,(S$)1):6110^'S$"S"İ6800:6100'8B10:AAC:XA:1680:A$V$:C1$A$X$:V13:V:R$(P(20));'L9$;:S$'(S$,1)" "S$(S$,1,(S$)1):6290'S$C1$İ7500:6280(B10:C1$(D):R$"N"43030#! :R$"Y"Ľ:54307!*(1023)123ĀI!/D$(13)(4)]!4D$;"RUN HELLO"LE2āPTR(LE2)1LFT:NUMBER$" "NUMBER$:k yRGHTLE2āPTR((LE1)2)1RGHT:NUMBER$NUMBER$" ":v y30988 yPTR(0): END OF PROGRAM : 10:"Do you want to try" !12:868:"Again (yes or no) ?";R$:R$(R$,1):R$"Y"G FORMAT,yNUMBER$(NUMBER):LE(NUMBER$)@yRGHTLFT30990|yLFTLE2āPTR((LE1)2)1LFT:NUMBER$" "NUMBER$: yRGHTLE2āPTR(LE2)1RGHT:NUMBER$NUMBER$" ": ySTRING$(STRING$,1,START1)NUMBER$(STRING$,FINAL):30996- yLFT,LFT1)2xFINALSTART(NUMBER$)START130974xPTRSTART1FINAL(NUMBER$)1:(STRING$,PTR,1)" "STARTPTR1:PTRFINAL(NUMBER$):30972xSTARTPTRxxSTRING$(STRING$,1,START1)NUMBER$(STRING$,FINAL)y30996y CENTERINERGHT*x(LERGHT)(LERGHTLFT)30962xPTRLERGHTLFT1:SIGN(NUMBER0FILL$"0")NUMBER$"-"FILL$(NUMBER$,2):30960xNUMBER$FILL$NUMBER$xxLE(RGHT)LERGHTLFTLFTLERGHTxDECIMAL0NUMBER$(NUMBER$,1,LFT)"."(NUMBER$"-"LFTLFT1:STARTSTART1:SIGN1xNUMBER0START1ĭ(STRING$,START1,1)"-"STRING$(STRING$,1,START2)" "(STRING$,START)xNUMBER(NUMBER(10RGHT).5)xNUMBER$(NUMBER):LE(NUMBER$)xLERGHTāPTRLE1RGHT:NUMBER$"0"NUMBER$::LECIMALPTR:PTRLNGTH309404xPTRDECIMAL1LNGTHUx(STRING$,PTR,1)"#"30940qxRGHTRGHT1:PTR:30940xFINALSTARTLFTRGHT(DECIMAL0):CENTER30978xFILL$"0":(STRING$,START,1)"B"FILL$" "#xNUMBER0START1ĭ(STRING$,START1,1).#"CHAR$"B#"CHAR$"B."30922*xPTR:IxSTARTPTR:PTRSTARTLNGTHxCHAR$(STRING$,PTR,1):CHAR$"#"(CHAR$"B"PTRSTART)30928xLFTLFT1:PTR:30940xCHAR$"."ĭ(CHAR$"C"(STRING$,PTR1,1)"#")30940xCHAR$"C"CENTER1xDPUT DESIRED FORMAT IN STRING$, NUMBER TO BE PRINTED IN NUMBER, THEN GOSUB 500 AND PRINT STRING$ ix xLFT0:RGHTLFT:DECIMALLFT:CENTERLFT:SIGNLFTxLNGTH(STRING$):LNGTH0ıxPTR1LNGTHxCHAR$(STRING$,PTR,2):(CHAR$,1)"#"CHAR$"n";:6090:35,23:6050>ZM:868:CV1(CV22):ZN(ZN$):WCV1:36,CH:868:iD$(13)(4)t43000x PRINT USING ROUTINEx LAST UPDATE: 7/15/80x AUTHOR: TODD BAILEY 7/12/80 x ax ** TO USE, 24:" Press '";::"SPACE BAR";::"' to continue.";:16368,0\z(16384)1286010j16368,0y:35,23:CH(36):CV(37)ZN$:(ZN$)(((ZN$)))6070(ZN$)0ZN$"0"608035,24:ZM:"That is not a number - try agaidí(16384)12850020%nù16368,0-x×:I(13)(4):(1023)123ĺD$"RUN HELLO"r(13)(4)"RUN HELLO"PÁG71999::1Zâ24:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0dí(16384)12850020nù16368,0x×::E13350&<#ZH(37):ZH:1:868:ZH,F#wQ5:868:5:"Another equation on same screen?";A$:(A$,1,1)"N"1020D$(13)(4):D$"RUN HELLO"43000PÁG71999::1Zâ24:" Press '";::"SPACE BAR";::"' to continue.";:16368,0indow":&"S - Shrink (zoom in)":R"E - Expand (zoom away)":32,0::8999Xe'#50000:(#768:E(222):E255ģ22015:43000-#(218)15ġ:Q902#E16Ģ23:868:23:"I can not understand your equation":10954#Q8113307#E53 is plotted, you may"::"choose one of 6 options concerning the"::"screen window."32,3::"U - Look above current screen":5:"window":"D - Look below screen window":"L - Look left of screen window":"R - Look right of screen wusing 'X' as the"::"independent variable, and 'Y' as":l"the dependent variable. All equations"::"must be in the form:":v11:"Y = Expresion"::18:"- or -"::9:"Y^2 = Expresion (for conics)":8999U3:" Once a relation6368,0Tí(16384)12850004-Vù16368,05X×:ntinue.";:16368,0,Tí(16384)12850004:Vù16368,0BX×: PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0Tí(16384)12850004Vù16368,0X×:999::1Râ24:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:116Ģ23:868:23:"I can not understand your equation":1095K4#Q811330^7#E53E13350|<#ZH(37):ZH:1:868:ZHF#D$(13)(4):(1023)123ĺ:D$"RUN HELLO"PÁG71999::1Râ24:" Press '";::"SPACE BAR";::"' to coeen window":5"L - Look left of screen window":^"R - Look right of screen window":|"S - Shrink (zoom in)":"E - Expand (zoom away)":32,0::8999'#50000:(#768:E(222):E255ģ22015:43000-#(218)15ġ:Q90<2#Expression"::18:"- or -"::11:"R^2 = expression":89993:" Once a relation is plotted, you may"::"choose one of 6 options concerning the"::"screen window."32,3::"U - Look above current screen":5:"window": "D - Look below scrsigned to plot relations":yb"given in polar coordinate form. All"::"equations must use 'R' as the independ-":g"ent variable and 'O' (theta) as the":l"dependent variable all equations must"::"be in the form:"::v13:"R = e):FJ3(A$):(A$,J2,3)"---"A$(A$,1,J2)(A$,J1,(A$)J)f:Z$A$:Z9(Z$):16:2:50Z$"R=SQR("(Z$,5,(Z$)4)")":1098pA$"":J1(Z$):(Z$,J,1)" "A$A$(Z$,J,1)zJ:Z$A$:X:::17:"POLAR":::" Polar is de4:Z3Z4:Z402080*3040C 17:868:17:"Mean y value?";MY] Z3Z11.75:Z4Z21.75 R(Z4Z3)2:Z3((MYR)100)100:Z4((MYR)100)100:1090 Z1Z31.75:Z2Z41.75:1090A$"":J1(Z$):(Z$,J,3)"SQR"A$A$"-"A$A$(Z$,J,1egrees)?";LL:LLLL57.2958O 5:"Upper limit (in degrees)?";UL:ULUL57.2958eULLLULLL2050Q90:62450:7:868:7:"Do you want me to compute the axes?";A$:(A$,1,1)"N"1020(A$,1,1)"Y"2070 9:"What is the maximum radius?";Z12:"again (yes or no) ? "Z 12:21:"";Y$:Y$(Y$,1):Y$"Y"Y$"N"43030l*" ": CTRL L4Y$"Y"Ľ:D$(4):1170>(1023)123ĺD$;"PR#0":H10:"Getting the menu...":D$;"PR#0":D$;"RUN HELLO"Yon."FP::15:"GOOD LUCK,"::5:"The country is counting on you."SZ35000:24:16368,0:7:"Press ";::"SPACE BAR";::" to continue";ˆ16384,128:16368,0:" ": CTRL L̈ END" ": CTRL L 10:"Do you want to try"%ant to go South,"::"type 180, etc."0(35000724<"Remember, the SAM will not launch"::"until you type in the direction"::"you want it to go."F::"You can change the heading of the SAM"::"at any time by typing in the new"::"directiz#??     ͠Ϡ ҠҠ  ԠүҠŠӠ̠ϠӠŠ.ǠŠˠ 384):ZC141ZC16020520F2P16368,0:1:868:21::ZV1:ZH1:lar equation on a"A "polar coordinate system and allow the"p "user to look at different sections."P SPACE-BAR ROUTINEPZH(36):ZV(37):ZZ1200:ZZP24:7:16368,0#P"Press ";::"SPACE BAR";::" to continue";(PZC(16up to five linear"9 "equations on one axis in high" V "resolution graphics."kPOLYGRAPH,POLYG "POLYGRAPHS - Graphs any polynomial" "equation on a cartesian coordinate"  "system."POLAR,POLAR "POLAR - Graphs any pongles from 0 to 359 degrees by having"IN "them intercept a missile."ZSNARK,SNARK "SNARK - Is a math game in which" "students learn coordinate geometry" "through trying to find a 'SNARK'." SLOPE,SLOPE "SLOPE - Graphs hich you must" < "guess. The computer provides clues. K4ICBM,ICBMy5 "ICBM - Teaches the coordinate system" 6 "by having students try to intercept"7 "a missile."HRADAR,RADARJ "RADAR - Familiarizes students with"&L "a00% "MATHEMATICS - VOLUME 1",87ALGEBRA,ALGEe "ALGEBRA - Provides drill and practice" "in solving equations in one variable." " " BAGELS,BAGELS "BAGELS - Is a game of logic. The com-" "puter selects a number w(B1)16:SLOT #$CS1CS7CS65(4)"PR#"CS;M DESCRIPTIONS[*:34,1:y/14:" Version 3.2":34,424T1N1:(37)18İ20500:9C24:N$(T,C)""N$(T,C)" "835<C2ĺ" ";>N$(T,C):CC:T:20500H::2,CH:868: X:c b10:1:"Do you want to run another"::"diskette";:868:VX$:VX$(VX$,1) lVX$"Y"ė:10:9:"INSERT THE NEW DISKETTE.":20500::720 vVX$"N"610 ::255  A(999)(1000)256 B(A)(A1)256CS 230,32:62450( D$;"RUN ";N$(Q,1)> CH(36):CV(37)d "";ZN$:(ZN$)(((ZN$)))520 (ZN$)0ZN$"0"540 ZN$"D"ZN0: ZM:"That is not a number - try again";:550:500 ZM:868:CV1(CV23):ZN(ZN$): &CV1:36(If you want descriptions, type 'D'.) ";:868< 16303,0E "490V ,ZN$"D"800_ QZNr Q0QN1470 22:1:"Please enter a number from 1 to "N".":16:280 ZZ((79)256(78)1) QN600 ::10:"Getting the program..." T" "N$(T,0) , T((N1)2)ĢVVD T:(1023)123280p J1(16384)128:J10JJ1:J300275 16368,0:1023,123 (64435)6Ģ22:"Make sure the 'Caps Lock' key is down.". 16:1:"Type the number of the program you want.":":D$"BRUN LOGO":16304,0:16368,07 2D$"NOMON CIO"A dZM24\ n:T$,N:NN1:N$(N,4) xT1N1:C04:N$(T,C):::N$(N,0)"END" 1:20(T$)2:T$ VV4(N17) 2:11:"Available programs":VV T1N:2TN1Ė20 T10ĺ" ";I HELLOVERSION A-3.1= LAST UPDATE: 6/27/84LAJCu(65435)6ĺ(4)"PR#0":(4)"IN#0":16372,0(C) MECC 1980 22016D$(13)(4)D$"BLOAD UPPER/LOWER CASE":38336:::255:(1023)123100$ :16302,0::     :ZEZNZE0ZE443030G:"PLEASE ENTER A NUMBER 1 - 3":43022SZE1ĬcZE343049:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO")1023,9*:P$(A$,1,1)"Y"Ĭ/(A$,1,1)"N"43050\:"PLEASE ANSWER WITH YES OR NO":43005 "WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR" :"3) END"13:"PLEASE ENTER 1, 2, OR 3 ";:86840000(yes or no) ?";R$:R$(R$,1):R$"Y"R$"N"43030C :R$"Y"ĬW*(1023)123Āk4D$;"RUN HELLO" Y868: END OF PROGRAM::5(1023)123430205:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868A10070L'ZN$(ZN$,(ZN$)1)6V'(8)" "(8);:10005 N16368,0:24:868:7:"Press ";::"SPACE BAR";::" to continue";!N(16384)12820001"N24:1:868:1:1:D$(13)(4): 10:"Do you want to try"312:868:"again 0N" guesses."O20000(43000U'16368,0:ZN$"":I3:5:" ":I3:5'A$:A(A$):A13A8(A48A57)10005'(A$)810040'(A$)13ı'(ZN$)N10005.'A$;:ZN$ZN$A$:100058'(ZN$)010005B'(ZN$)1ZN$"":03:G1200:G:G13:G:1:868:G:1:1:G1500:G"The "N" digit number that I was":"thinking about was "Q$".":200001200I3:12:868:I3:12:"THAT'S THE NUMBER!"L20000M::10:"It took you "I;:I1ĺ"guess":120CC1K,J4J2N:K1J1:A(J)B(K)CC1= K,JYJ1N:A(J)B(J)DD1`JnDN1000"12:I3:868:I3:12,C04006G1C:"PICO ";:GD0500G1D:"FERMI ";:GCD0700"BAGELS"I2023:868:I3:12:"Try a "N" digit number.":205W A$ZN$:G1N:A(G)((A$,G,1)):G G1N1:K(G1)N:A(G)A(K)FL1 K,G:FL1FL0:12:I3:868:I3:12:"The digits are all different.":205 C0:D0J1N1:K(J1)N:A(J)B(K)G:FL1FL0:160r 1:"I'm thinking of a "N" digit number...":G18:"-----";:G:3:1:" GUESS CLUE":I0 G1N:B(G)((Q$,G,1))48:G II1:I3:868 1:I3:I")"3((I)))"?";:10000:(ZN$)N(ZN$)07050 (ZN$)NĖ12:It place." > " BAGELS - No digits are correct.":20000x :24:"(Enter all zeroes to see the answer.)";:1:1 Q(((1)10)10(N1)):((Q))N160 Q$(Q):G1N:S((Q$,G,1)):H1N:GH180 ((Q$,H,1))SGN:HN:FL1 H:((N$))::K71155 x:4:"After you type in your guess, I will ":"give you clues about your guess. These ":"clues are:" }: " PICO - 1 Digit correct but in the ":11)"wrong place."::" FERMI - 1 Digit correct and in the":11)"righ100 234,2:::5:" I will think of a number. You try ":"to guess it. You decide how many digits ":"are in the number (2,3,OR 4)." d13:868:13:"How many digits in the number? ";N$:(N$)2(N$)4Ģ20:"(Enter a 2,3,or 4)":100 nNm  BAGELS- LAST UPDATE: 6/26/84 PJFG PROGRAMMER: UNKNOWN[ (C) MECC 1984az ::255::K711002:15:"* BAGELS *"13:868:13:"Would you like instructions? ";YN$:YN$(YN$,1):YN$"Y"YN$"N"30 (YN$"N"K71:     P(26),1)T21ė:3:3240M ***THE EQUATION HAS THE FORM 'AX+B=CX+D'`:B10:3:E9$XB:1460:5:A$;X$;S3$;B$;E$;C$;X$;:XD:1460:S3$;D$N1İ668010$ W1$;:S$. (S$,1)" "S$(S$,1,(S$)1):23508 S$"A"İ6800:2is:":N9$" now "- ***PROBLEMS START HEREfNN1:R10:1320:XN1:R4:1320:AN1:R50:1320:BN1yR4:1320:CN1ACī2020 T13T2P(2) DAXB4T22DDCXHXA:1680:A$V$:B$((B)):XC:1680:C$V$:D$((D)) \X$(L$, will you use"(13)(13)"('A', 'M', or 'S')"tW2$"Which transformation next"(13)(13)"('A', 'M', or 'S')"W3$(13)"What should be added to both sides"L9$" Simplify the left side":R9$" Simplify the right side"E9$"Your equation ?1930XD10:"Which type of problems would you like"::"(Enter 1, 2, or 3)? ";T1vT10T14T1(T1)ī19351:10:868:12:868:1860216,0N0:T2T1:L$"ABCDEFGHXJKLMNXPXRSTUVWXYZ":E$" = ":M$" * "/W1$"Which transformationC)":8000d2:4:"When multiplying, use fractions instead"::"of decimals when necessary.":80003:5:"Now you should be ready to try some."814:7);"1) AX + B = D"::7);"2) AX + B = CX + D"::7);"3) A random selection of 1 and 2"A-C)X + B = D":::"Then we add -B to both sides to get:"-:5);"(A-C)X + B - B = D - B"::"Simplified: (A-C)X = D - B"/::"Then we multiply both sides by 1/(A-C)"::5);"1/(A-C) * (A-C)X = 1/(A-C) * (D-B)" 1:"Simplified: X = (D-B)/(A-ept where the coefficient"f%:"of the variable is one) and then"::"simplify the solution.":8000':"Say our equation is AX + B = CX + D")::"First we add -CX to both sides to get:"::5);"AX - CX + B = CX - CX + D":+:"Simplified: (d then simplify the equation."z::"Use the addition property of equality"::"again if the variable appears on both"!:"sides of the equal sign and then"::"simplify the equation."#::"Use the multiplication property of"::"equality (exc8000:k4:"Where X (or another letter) is the"::"variable and A, B, C, and D are"::"constants."::"I will then ask you,";N$;",to solve"::"the equations. It is done this way:":8000:"Use the addition property of equality"::"anThis is a drill on solving equations"::"with variables in them. I will think": "up equations, with one variable, that"::"will solve nicely. They will look"::"like this:" 16:10);"AX + B = D":18:14);"or":20:10);"AX + B = CX + D" $"-" ,  ***THE PROGRAM STARTS HEREU :4:"What is your first name? ";N$f N$""ī1800 (N$)10ė:4:"Please give me a shorter name? ";N$ 7:"Would you like instructions? ";S$:(S$,1)"N"ī1848 :4:"Okay ";N$;",":6R ")R <N10ī01320 P3  ***SIGN SUBROUTINEH S3$S$(2(X)):j  ***REMOVE SPACES SUBROUTINEu S2$"" L1(S1$) (S1$,L,1)" "S2$S2$(S1$,L,1) ,L @ h ***COEF. SIGN SUBROUTINE V$(X) X1V$"" X1V,","GREAT,"Q t "SUPER,","OK,","GOOD,","ALL RIGHT,","OK,","FINE,","NICE WORK,"r  ***RANDOM COUNTER FUNCTION P(X)((1)X1) 1800  ***MINIMUM SUBROUTINE D0S0: SD:  ***RANDOM INTEGER SUBROUTINE (N1((1)R2.5IGNS FOR EQUATIONS: S$(1)" - ":S$(2)" ":S$(3)" + "f $ ***R$(20) ARE REINFORCEMENTS FOR WORK| 8L120:R$(L):L L "FABULOUS,","FANTASTIC,","SUPER,","GREAT,","EXCELLENT,","GOOD," ` "FINE,","GOOD WORK,","ALL RIGHT,","OK,","FINE,","GOOD,5 COPYRIGHT MECC 1979 ALGEBRA 7/24/79 FPc AUTHOR: GREG THORNTON AND JOE DEMUTH  ASSOCIATED PROGRAMS AND FILES: NONE( WRITTEN FOR A MECC-UNIVAC MINI-GRANT PROJECT.d::255::ZM24S$(3),R$(20)  ***S$(3) ARE S               "N"57(A$,1,1)"Y"2000mFA0:3:868:3:"Reuse the same equation?";A$:(A$,1,1)"Y"FA1:1020(A$,1,1)"N"20105:868:5:"Another equation on same screen?";A$:(A$,1,1)"N"1020(A$,1,1)"Y"20201090 Z3Z11(Z2Z1)2:ST(Z4Z3)2sX$"S"R1(Z4Z3)2:Z4R1ST10:Z3R1ST10:R1(Z2Z1)2:Z2R1SX10:Z1R1SX10:1800X$"E"R1(Z4Z3)2:Z4R1ST10:Z3R1ST10:R1(Z2Z1)2:Z2R110SX:Z1R110SX:1800::FL0:1:"Another graph?";A$:(A$,1,1):1410:1096Wl16368,0:24:"Press U,D,L,R,S,E, or 'SPACE BAR'";:X$::ZL$""vR1Z2Z1:X$"R"Z1Z1R1:Z2Z2R1:1800X$"L"Z1Z1R1:Z2Z2R1:1800R1Z4Z3:X$"D"Z4Z4R1:Z3Z3R1:1800X$"U"Z4Z4R1:Z3Z3R1:1800SXZ,ZC1ZY,ZC1:ZZ,ZCZY,ZC$ J:EZ39999:Z49999:XZ11:Q81^XX1:15:YZ3Z3Ym(YZ4Z4Y|2XZ21310<Q80:Z3(Z3):Z4(Z4.99):ZF1Z3Z4F1100xST1V1V10ıV1VV10:STST10:1410VV10:STST10ZY279ZY279PJ0Z3ST:ZC159(Z3J)(Z4Z3)159:ZC0ZC1591260aZ3J01260tZC158ZC158ZZ,ZC1ZY,ZC1:ZZ,ZCZY,ZCJ:J0Z4ST:ZC159(Z3J)(Z4Z3)159:ZC0ZC1591290Z3J01290ZC158ZC158Z1,ZZZC1,ZY:ZC,ZZZC,ZY Jv23:868:23:"Vertical: ";(Z31000)1000;" to ";(Z41000)1000;" scale = ";STKZ1:XX0:JZ1Z2SX:KKSX:J0XXKSXJ:Z5(Z1XX)(Z2Z1)279:Z50Z50Z5279Z5279ZZZ55:ZYZ55:ZZ0ZZ059Z6159(ZZZ65:ZYZ65:ZZ0ZZ0;ZY159ZY159tJ0Z1SX:ZC(Z1J)(Z2Z1)279:ZC0ZC2791230ZC278ZC278ZC1,ZZZC1,ZY:ZC,ZZZC,ZYJ:J0Z2SX:ZC(Z1J)(Z2Z1)279:ZC0ZC2791242ZC278ZC278ZC51,1593:50@V(Z2Z1)2:1400:SXST:V(Z4Z3)2:140022:868:22:"Horizontal: ";(Z11000)1000;" to ";(Z21000)1000;" scale = ";SXKZ3:XX0:JZ3Z4ST:KKST:J0XXKSTJ:Z6159((Z3XX)(Z4Z3)159):Z60Z60 Z61Z7(Z2Z1)ZP:21:868:21:Z$:(Z$,2,1)"^"5000nJZ9(Z$):2:ZF0:I1(Z$)2:(Z$,I,3)"SQR"ZF1:KI:ZL$"Y"1300L16304,0:2:1200:XZ1Z7:Q90~(Z3)(Z4)ē0,Z6279,Z6:0,Z61279,Z61(Z1)(Z2)ēZ5,0Z5,159:Z51,0Z"N"1045 ZL$"Y":10906 (ZK$,1,1)"N"1040Y 15:868:15:"Minimum Y?";Z3 $17:868:17:"Maximum Y?";Z4:Z3Z4Z3Z41050 B19:868:19:"Number of plot points?";ZP G16:FA1Ģ21:868:21:"Enter your equation? ";Z$:60004H7:868:7:"Enter minimum X?";Z1:Q90:62450:FL0h 9:868:9:"Maximum X?";Z2:Z1Z2Z1Z21020 11:868:11:"Should I compute the Y limits?";ZK$:(ZK$,1,1)"Y"1050 13:868:13:"Equal spacing?";A$:(A$,1,1)"Y"3000 (A$,1,1)Z3)159:ZD0ZD159Q90:503 BZ3Y0Q90:50M FQ90ēZC,ZD:Q91:50Y PZC,ZDa Z50 8190:I768777:Y:I,Y:I: 104,168,104,166,223,154,72,152,72,96:255:::16 ZO$"+-*/^>=<":ZA$"SGNINTABSSQRRNDLOGEXPCOSSINTANATN":7000:90005 ON 10/22/79 ' AUTHOR: DARRELL RICKEF #LANGUAGE: APPLESOFT (FP) S 2XZ253b 3XXZ7:15} 4ZC(Z1X)(Z2Z1)279 5XZ2ZF1XZ1Z7:ZF0:Q90:4000 8XZ21900 9XZ2İ16:22016:43000 :ZC0ZC279Q90:50 <ZD159(Z3Y)(Z4,1)):ZHZH1:ZI:i YX3:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ZI23262406:ZI,58::: DO NOT CHANGE ANY CODE IN LINES 0-15 (INCLUDING REMS) COPYRIGHT 1979 MECC NAME: POLYGRAPH VERSI.(1000:SEE LINES 20-35 FOR REMARKSkZH2326:ZI1Z9:ZJ010:(Z$,ZI,3)(ZA$,3ZJ1,3)ĂZJ:11 ZH,(210ZJ(ZJ2)5):ZIZI2:ZHZH1:ZI ZJ07:(Z$,ZI,1)(ZO$,ZJ1,1)ĂZJ:14 ZH,(200ZJ(ZJ4)2):ZHZH1:ZI ZH,((Z$,ZI        4);"RUN HELLO")1023,9"*:AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR": :"3) END"e13:"PLEASE ENTER 1, 2, OR 3 ";:868v40000:ZEZNZE0ZE443030:"PLEASE ENTER A NUMBER 1 - 3":43022ZE1ĬZE343049:10:"GETTING THE MENU PROGRAM...":(FZM:868:CV1(CV23):ZN(ZN$):?JCV1:36,CH:868:QD$(13)(4)Y:w 10:"Do you want to try"12:868:"Again (yes or no) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)123Ā4D$;"RUN HELLO"CM A Press '";::"SPACE BAR";::"' to continue.";:16368,0R(16384)1281004`16368,0h:~@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"That is not a number - try again";:40010:40001&:"That equation will not appear on the":"above coordinate system.";:1:240blUU1:U4UU1omU7800vvU34,23:24:"Do you want another equation";:A$:(A$,1)"N"80034,0::240 1000::43000G71999::1:24:" (B$,X,1)"/"480"X:B11:490@B1((B$,X1,(B$)X1))SB(B$):BBB1gX11:M2M1.5zX139139X1YMXB10X1X139Y179YY1159Y10ī600K60Ģ21:QQ$QQ$Q1$:QQ$K61&X1,Y1XXMYK60Ģ234408QQ$QQ$Q1$:21:QQ$:5:Y0159:B10139,Y:YA62023:"X=";B;" will not appear on the above":"coordinate system";:1240 FIND BK(A$)B0:500B$(A$,(A$)K)(B$,1)"+"B$(B$,(B$)1)X1(B$):(A$):((A$,X,1))47((A$,X,1))574202XTX1(A$):(A$,X,1)"/"407`X:410xB1((A$,(A$)X))B(A$):BBB1K51430M0:50023:"Please type the equation in the form":"Y=MX+B or X=B";:1:240B13B131:K1:450* h(A$,2)"-X"M1:K2:4509 rK1(A$)P |(A$,K,1)"X"390W }K` ~400s M((A$,K1)) L1K1:(A$,L,1)"/"395 L 450  M1((A$,L1,K1L)):M10420 MMM1 450 B11:(A$)1410+X2$" ":QQ "3301 ,A$(A$,I1)(A$,(A$)I): 6280 J(A$,2)"Y="(A$,2)"X="Ģ23:"Please type the equation in the form Y=MX+B OR X=B";:1:240 K(A$,2)"X="340 LK51:A$(A$,3,(A$)):400 TA$(A$,(A$)2) ^(A$,1)"X"MI,83 I: 21:"What is the equation";:868:UU(0)N A$:K59:K60:w (A$,1)" "A$(A$,1,(A$)1):255 I1(A$) (A$,I,1)" "300 I (A$,1,2)"X="Q1$A$" orange":287 Q1$A$" "C$(U) QQ1(20(Q1$)):Q1$Q1:2 k" Y=5"::" X=3"< m1000B xM zQQ$""\ ::1:U1m 0,79279,79 139,0139,159 I107910 135,I79145,I79 135,79I145,79I I I1013910 139I,74139I,83 139I,74139INEAR EQUATIONS"D f::"This program will graph up to 5 linear":d g"equations on one axis.": h"Type in the equations in the form:": i" Y=MX+B or X=B": j"For example: Y=2X+4"::" Y=2/3X+6"::" Y=-1/2X-4" 4 COPYRIGHT MECC 1979 SLOPE 7/18/79 FPT AUTHOR: MARGE KOSEL, MECC ASSOICATED PROGRAMS AND FILES: NONE "green","purple","white","","orange","blue"C$(6):CC16:C$(CC):CCd:::255:ZM24: e10):"GRAPHING L     ":43022ZE1Ĭ$ZE343049_:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"k)1023,9s*:try":12:868:"again (YES or NO) ?";R$:R$(R$,1):R$"Y"R$"N"43010Z :R$"Y"Ĭn*(1023)123Ā4D$;"RUN HELLO"ZĬ*(1023)123Ā4D$;"RUN HELLO"6840000:ZEZNZE0ZE443030:"PLEASE ENTER A NUMBER 1 - 3B"";ZN$:(ZN$)(((ZN$)))40004CC(ZN$)0ZN$"0"40006~DZM:"That is not a number - try again";:40010:40002FZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:"ENDING ROUTINEJD$(13)(4):::10:"Do you want to :"You caught him in ";K;" guesses.":::"Good show."::2000:43000]"PRESS SPACE BAR1:23:" Press '";::"SPACE BAR";::"' to continue.";:16368,0(16384)128200416368,0::@"NUMERICAL INPUTACH(36):CV(37)&whole number.":1020&R0ė:11600 1020@R001200PD2001420D2RRĺ"Snark is inside your circle.":1360D2RRĺ"Snark is outside your circle.":1360D2RRĺ"Snark is on your circle."PKK1:840x"USER WINSGf958KpA(A)B(B)Ģ22:"The coordinates must be integers.":840kD2(XA)(XA)(YB)(YB)"PLOT THE FIRST 'O':(12B):(12(2A)):"O"22:"Please enter the radius: ";:868:40000:RZN:R(R)Ģ23:"The radius must be a hiding ... start guessing."1 "GUESSING BEGINSZ K1:K IS THE NUMBER OF TRIES SO FAR H18:"Please enter the X-Coordinate: ";:868:40000:AZN:A9A0Ģ18::840 \20:"Please enter the Y-Coordinate: ";:868:40000:BZN:B9B0Ģ18::860or 'on' your"::"circle.":2000 :11:"*** IMPORTANT ***"::6:"If you think you know where he is hiding":"enter a 0 (zero) for the radius.":14:"Good hunting.":2000 "HIDE THE SNARK X(10(1)):Y(10(1)):340::34,14:"The snark is _ :"Then, when I ask for 'radius', you type"::"the radius of a circle centered on the": "gridpoint whose X,Y coordinates you just":"entered. I will then tell you whether": D"the snark is 'inside' your circle,"::"'outside' your circle, 8 9 X": 2000:::"Try to catch him. Here's how... when I"::"ask, you type the x coordinate of a"::"gridpoint and press the RETURN key." ::"Then I will ask you for the y"::"coordinate, you type it in, and press"::"RETURN again.":2000ė:7006 20:"Please enter either YES or NO.":110F "THE RULESL :"A Snark is hiding in a 10 by 10 grid"::"like the one that is shown below:"::340:440 T10:"Y"::U901:10:U;" . . . . . . . . . .":U:10:" 0 1 2 3 4 5 6 7 COPYRIGHT: MECC (1979)2AUTHOR: UNKNOWN[ASSOCIATED PROGRAMS AND FILES: NONEyLATE UPDATE: 7/12/84 ESSd:::255:ZM24:4:15:"S N A R K"n13:"Would you like the instructions";:868:Z$:(Z$,1)"Y"240 (Z$,1)"N"     d harmlessly" "in mid-air."&0 5960c:"Good luck - the ICBM turned out to be a":} "friendly aircraft."%*59604>:"Too bad. The ICBM just hit your location";CH:5990R34,0:\6100f1:35,24Dp"Congratulations - your SAM came within ";(D2);^:"miles of the ICBM and destroyed it."dn5960:"too bad. Your SAM fell to the ground."5960"Your SAM exploded in midair."5960 :"Good luck - the ICBM explodeH45620%H5840,5860,5880,5910S670:X(1)0Y(1)0X(1)0:Y(1)0:5550clD255810tvD3D25790:"You passed the ICBM up, and it hit"::"your location.":5960:"ICBM & SAM are now ";(D3);" miles apart.":55501:aSTRING$" B##":NUMBERY(1):30900:STRING$;:STRING$" B##":NUMBERX(1):30900:STRING$;STRING$" B##":NUMBERY(2):30900:STING$;:STRING$" B## ":NUMBERX(2):30900:STRING$;X(1)059406040:HEADZNH(120(1)1) 1)200) TY(1)(800(1)200)4^S(20(1)50)IhS1(20(1)50)ur" ----ICBM---- ----SAM---- -------"|" MILES MILES MILES MILES HEADING"" NORTH EAST NORTH EAST ?"" ----- ----- ----- ----- -------"34,5"You can destroy the ICBM by coming"V:"within 5 miles of it, at which time":"your SAM'S heat-seeking sensors will":"come into action and direct it to its":"target.""5990,6X(2)0:Y(2)0@ZM24JX(1)(800(ute"::"later, you are given the new"V:"coordinates of the ICBM and of the SAM"\"and the distance between the two. You":"can now make corrections in the course":"of your SAM by entering a new direction."59907':"you can aim it in any direction, both":Yd"at launch, and when it is flying. You"n:"enter the direction (measured clockwise":x"from north) in which you want the SAM":"to travel.":59903&"At the next radar scan, one minng your way, telling":F"you its coordinates (in miles north and"t(:"miles east of your location). You":2"launch a surface-to-air missle (SAM) to"<:"intercept it.":F5990K4P"Your only control over the sam is that",Z255: 35,234 10:" I C B M"S 20:"Instructions";:868[ A$s (A$,1,1)"Y"5120 (A$,1,1)"N"ė:5420 :"Please type yes or no." 5060 :5 "Your radar station picks up an":"enemy ICBM headi(VXDXVYDY)(VXVXVYVY)8 4T10T1TIMED2D1:850 >NX(1)X(1)VX(1)T1:NY(1)Y(1)VY(1)T1:NX(2)X(2)VX(2)T1:NY(2)Y(2)VY(2)T1 HD2(((NX(1)NX(2))2)((NY(1)NY(2))2)) RK12:X(K)X(K)TIMEVX(K):Y(K)Y(K)TIMEVY(K): \ :: DISTANCE AFTER TIME 'TIME'K D3(((NX(1)NX(2))2)((NY(1)NY(2))2))m VXVX(1)VX(2):VYVY(1)VY(2) (VXVXVYVY)1E9D2D1:D3D1:T11E10:850  T1 SHOULD BE TIME AT WHICH THE DISTANCE BETWEEN SAM AND MISSILE WOULD BE A MINIMUM *T1(1):D1(DXDXDYDY)4  MISSILE HEADS FOR ORIGIN^ VX(1)S(1(Y(1)Y(1))(X(1)X(1)))x VY(1)VX(1)Y(1)X(1) VX(2)S1(THETA):VY(2)S1(THETA) NX(1)X(1)VX(1)TIME:NY(1)Y(1)VY(1)TIME:NX(2)X(2)VX(2)TIME:NY(2)Y(2)VY(2)TIME ETWEEN ICBM AND SAM DURING A GIVEN TIME INTERVAL6 PR R TODD BAILEY - 7/17/80X Ts XX(2),Y(2),VX(2),VY(2) bNX(2),NY(2) l5030 THETA(90HEAD)57.2957795: THETA MEASURED IN RADIANS FROM POS. X AXIS TIME1 DXX(2)X(1):DYY(2)Y PROGRAM: ICBM6 LAST UPDATE: 7/22/80<P (C) MECC 1979 AUTHOR: PETER ARCAND, MAHTOMEDI HIGH, MN ASSOCIATED PROGRAMS AND FILES: ICBMBIN 0 N FOLLOWING ROUTINE COMPUTES SMALLEST DISTANCE B       Ck,KJ*BBC AC~|}}~JUsBgB0gC.5B;J*NGAGsBsB63Cwx{JUNGAGsBs600p00CBnJ*NGAGsBcB6cCtwutJUNGAGsBsB63CCnJ*NAsBc600`CFJUOAs``wBfgC{9{{ J*B MBlLC8W0W8JUBBgBlgCFJUNGVAsqqBsA@C?_CA]GsBBqCFJ*NGYBsBG|Ap]Gs00{C3ACFJUNGY<?E`@O@@`]GOFx~J~xHBBX}- CFJ*NGYA|BpxjGOH@NHxBByB{BBYCFJUNGVBABEB<]GOGCGAHBBOBYOCFJ*NGYa@DOBAA?C>]GO~x`FGA>B~BBBYCFJUNGYyyBB~D>8x]GQF@`Dp`@HB@@_BY_CFJ*NGY LLOLNED]GOGFBAQB oBlOCFJUNGVgG''DgjGP?D@B`ABpAB8ABAABBLBlOCFJ*NGVsqpr2C3sjGOaHBAQBBOB`OCFJUNGYBBFO?^GQ|0TAA ~~B@@oBLOCFJ*NGWAOABOBFgsx|]GOE@`pG`@GBB3CFJ*NGAGJ`@UCUBUBUUUBUABUCUBOBfFCFJUNGAGN~C*B*B* FBC BBB CFJ*NGAGOCUBWBB@B`@CFJUNGAGOCC@B`ABpAB8ABAABBGlo`OCFJ*NGAGO~x`捿ttmtt`BB0xXCFJ*B037B6ACFJUBBC3ACFJ*BA_BBC3ACFJUNA]??B/++*C*BB3?>CFJ*NGAGO?_WUUUBUABUCUBB>0CFJUNGTvGJ??C*B*B***B*AB*C*Bt$ u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)     l launch from the center of"::"your radar screen as soon as you type"::"in the direction you want it to go."%::"Directions are measured clockwise"::"from North in degrees. That means"::"if you want the SAM to go East, type"::"90, if you wour radar"::"screen as a flashing blip moving"::"toward the center."::"You must guide a surface-to-air"::"missile (SAM) to the ICBM before it"::"reaches the center of the radar"::"screen and explodes."35000 4p"Your SAM wil4}"Long-range radar scanners hae picked up"::"an Inter-Continental Ballistic"::"Missile (ICBM) heading your way."::"Your job is to shoot down the ICBM"::"before it reaches its target."350004H"The ICBM will appear on y"count on you."! 35000:430004 INSTRUCTIONSL6:16:"R A D A R"12:"Would you like instructions? ":12:30:"";Y$:Y$(Y$,1):Y$"Y"Y$"N"Ģ14:"Please answer yes or no.":5020" ": CTRL L TO CLEAR SCREENY$"N"ıSTARTSTARTD22:COOMOFFCO04$ S2(PHI)2400f8 S1PHI32ĕSAMSX,SY:COUNTOMĕICBMIX,IYtL 36IX,IYV S1PHI63ĕ37IX,IY` K1DE::t S2CX,CY~ " ": CTRL L CXSXCYSY2140 8:"Fantastic!! We knew we could"::e"::"ICBM and it reached its target."935000:43000KKSTARTDE:aSXCXSYCY2140S1S2S279:SHS1:COCO1:STARTD2SH32SHSH32:2270S2SH1(SH31)32 SHCX,CY:S2CX,CY  (COOMCOOMOFF)S1PHI32ĕICBMIX,IY:H32120? STARTSTARTD2:CHARBSHEAD$HEAD$(CHAR):2100u STARTSTARTD2:HEAD$(HEAD$,1,LNGTH1(LNGTH0))4STARTSTARTD2:17:33:HEAD$;" "HKSTARTDE:::1680\S2CX,CYp62450'10:1:"Sorry. You failed to intercept th8)2120}CHARCRHEAD(HEAD$):HEAD((HEAD360(HEAD360))360.05):HEAD$"":12:33:HEAD;" ":17:33:" ":STARTDECHARCRHEAD(90HEAD)RAD:DXSV(HEAD):DYSV(HEAD):(BETA)11910,2120STARTSTARTD2:LNGTH(HEAD$):CHARBSLNGTTEMP)(SXCX)PI:BETA0BETABETA2PI^v(SXCX).25(SYCY).25BETAHEAD(HEAD0)2PIBETA(16BETAPI2):BETA32BETABETA32STARTDE(KEY)1282120CHAR(KEY)128:FLAG,0:STARTSTARTD2D2:CHARCRCHARBS(CHAR48CHAR5S2(BETA)STARTDE:(SXIX)(SXIX)(SYIY)(SYIY)362220h 01(S2BETA)2(SHBETA)1960,1860,1900 DSAMSX,SY:SAMSXDX,SYDY:SXSXDX:SYSYDY:(SXIX)(SXIX)(SYIY)(SYIY)362220 XTEMP(CYSY)(SXCX.001) bSTARTDE:1960'lBETA(1760G COOMCOOMOFFĕICBMIX,IY:STARTSTARTD22:COOMOFFCO0Y S2PHI1840 ICBMICBM35:ICBMIX,IY:CO0:1840 COOMĕICBMIX,IY ICBMIXXINC,IYYINC:CO0:IXIXXINC:IYIYYINC:STARTSTARTD2:(IXCX)1(IYCY)12140< &34:0:4:28:270:4:38:90:7:33:180? T11:31:"HEADING"r h15:33:"NEW":16:31:"HEADING":17:32:"?"~ |FLAG,0    BEGIN RADAR SWEEP  SH132:START1:S2SH1:COCO1:S232S2S232 SHCX,CY:S2CX,CY ICBMHI32PHIPHI32( (REVS15((1)5)2G <XINCIXREVS:YINCIYREVS] dIXCXIX:IYCYIYv SXCX:SYCY:HEAD$"" SV90REVS(1)2 33CX,CY:32:33CX1,CY1:0 34CX,CY 1CX,CY ,SAMSX,SY( @234,10234,44:214,27254,27:1:5000   CONSTANTSC BS8:CR13:CX97:CY96:D210:DE30{ FLAG16368:FP128:KEY16384:OFF2:OM3:PI3.14159 RAD57.29578:SAM35    INITIALIZATION  PHI(1)2PI:IX90(PHI):IY90(PHI) PHI(16PHIPI2):P PROGRAM: RADAR7 LAST UPDATE: 7/21/80=\ GRAPHICS VERSION OF ICBMw TODD BAILEY 7/18/80}:::16302,0:8191:D$(4)8D$;"PR#0":D$;"BRUN PRINT":251,1:D$;"BLOAD RADARB,A17920"232,0:233,70:1:0:3         FA1:2040#(A$,1,1)"N"2010n5:868:5:"Another equation on same screen?";A$:(A$,1,1)"Y"1090(A$,1,1)"N"2020:1:"Default theta range?";A$:(A$,1,1)"Y"LL0:UL6.3:2070(A$,1,1)"N"20403:"Lower limit (in dR1SX2:Z1R1SX2:1800qX$"E"R1(Z4Z3)2:Z4R1ST2:Z3R1ST2:R1(Z2Z1)2:Z2R12SX:Z1R12SX:1800::1:"Another graph?";A$:(A$,1,1)"N"57(A$,1,1)"Y"2000 FA0:3:868:3:"Reuse the same equation?";A$:(A$,1,1)"Y"".vR1Z2Z1:X$"R"Z1Z1R1:Z2Z2R1:1800RX$"L"Z1Z1R1:Z2Z2R1:1800R1Z4Z3:X$"D"Z4Z4R1:Z3Z3R1:1800X$"U"Z4Z4R1:Z3Z3R1:1800SX(Z2Z1)2:ST(Z4Z3)2X$"S"R1(Z4Z3)2:Z4R1ST2:Z3R1ST2:R1(Z2Z1)2:Z23Z3Y(YZ4Z4Y$2OUL1310R<Q80:Z3(Z3):Z4(Z4.9999):ZF1Z3Z4\F1100exST1wV1V10ıV1VV10:STST10:1410VV10:STST10:1410:1096l16368,0:24:"PRESS U,D,L,R,S,E, OR 'SPACE BAR'";:X$::ZL$"0ZC158ZC1586ZZ,ZC1ZY,ZC1:ZZ,ZCZY,ZCuJ:J0Z4ST:ZC159(Z3J)(Z4Z3)159:ZC0ZC1591290Z3J01290ZC158ZC158ZZ,ZC1ZY,ZC1:ZZ,ZCZY,ZC J:Z39999:Z49999:OLL:Q81OOZ7:15:YR(O):YZ0)1000;" scale = ";STDKZ1:XX0:JZ1Z2SX:KKSX:J0XXKSXnJ:Z5(Z1XX)(Z2Z1)279:Z50Z50Z5279Z5279ZZZ55:ZYZ55:ZZ0ZZ0ZY279ZY279J0Z3ST:ZC159(Z3J)(Z4Z3)159:ZC0ZC1591260Z3J012679:ZC0ZC2791230'ZC278ZC278IZC1,ZZZC1,ZY:ZC,ZZZC,ZYJ:J0Z2SX:ZC(Z1J)(Z2Z1)279:ZC0ZC2791242ZC278ZC278ZC1,ZZZC1,ZY:ZC,ZZZC,ZYJ23:868:23:"Vertical: ";(Z31000)1000;" to ";(Z4100 ";(Z11000)1000;" to ";(Z21000)1000;" scale = ";SXfKZ3:XX0:JZ3Z4ST:KKST:J0XXKSTJ:Z6159((Z3XX)(Z4Z3)159):Z60Z60Z6159Z6159ZZZ65:ZYZ65:ZZ0ZZ0ZY159ZY159J0Z1SX:ZC(Z1J)(Z2Z1)2)"SQR"ZF1:#KI:ZL$"Y"1300GL16304,0:2:1200:OLLZ7:Q90w~(Z3)(Z4)ē0,Z6279,Z6:0,Z61279,Z61(Z1)(Z2)ēZ5,0Z5,159:Z51,0Z51,1593:50V(Z2Z1)2:1400:SXST:V(Z4Z3)2:1400822:868:22:"Horizontal:l?";Z38 $17:"Maximum vertical?";Z4:Z3Z4Z3Z41050] B19:"Number of plot points?";ZP G16:FA1Ģ21:868:21:"Input your equation? ";Z$:6000 HZ7(ULLL)ZP:21:868:21:Z$:(Z$,2,1)"^"5000JZ9(Z$):2:ZF0:I1(Z$)2:(Z$,I,3 horizontal?";Z2:Z1Z2Z1Z21020p 13:868:13:"SHOULD I COMPUTE THE Y LIMITS?";ZK$:(ZK$,1,1)"Y"1050 15:"Equal spacing?";A$:(A$,1,1)"Y"3000 (A$,1,1)"N"1045 ZL$"Y":1090 (ZK$,1,1)"N"1040 15:"Mimimum verticaFQ90ēZC,ZD:Q91:50# PZC,ZD+ Z50u 8190:I768777:Y:I,Y:I:104,168,104,166,223,154,72,152,72,96:16 ZO$"+-*/^>=<":ZA$"SGNINTABSSQRRNDLOGEXPCOSSINTANATN":7000:9000 2040 9:"Minimum horizontal value?";Z1" 11:"Maximum)  2OUL530 3OOZ7:15:XR(O):YR(O)J 4ZC(XZ1)(Z2Z1)279n 5OULZF1OLL:ZF0:Q90:4000} 8OUL1900 9OULİ16:22016:43000 :ZC0ZC279Q90:50 <ZD159(Z3Y)(Z4Z3)159:ZD0ZD159Q90:50 BZ3Y0Q90:50 ,1)):ZHZH1:ZI:i ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ZI23262406:ZI,58:: COPYRIGHT 1979 MECC NAME: POLYGRAPH VERSION 10/22/79 AUTHOR: DARRELL RICKE #LANGUAGE: APPLESOFT (FPC(1000:SEE LINES 20-35 FOR REMARKSkZH2326:ZI1Z9:ZJ010:(Z$,ZI,3)(ZA$,3ZJ1,3)ĂZJ:11 ZH,(210ZJ(ZJ2)5):ZIZI2:ZHZH1:ZI ZJ07:(Z$,ZI,1)(ZO$,ZJ1,1)ĂZJ:14 ZH,(200ZJ(ZJ4)2):ZHZH1:ZI ZH,((Z$,ZI       #$666$$466vQQQQQQQQQQQJQQQQQQQQQQQQ?/--=??/--=??/--=??/--=??$>>55,,'>i#c#7ۀMIIJ?<6&$$?/--=??/--=??/--=??/--QQQQQQQQQQQQRQQQQQQQQQQQ$466&$#$666$$466&$#$666$?'$6>?#$666$$466&$-5--5--5--5--5--5---%IIIIIIIIIIIIIIIIIIIIIIIIIIIIIII$$$$$;;;;;;;׿׿..655..655..655..655..655,55555555555555555555555555555555555555555555555555555555555555555,5-..55-..55-..55-..55-..55-..55-..55-..55-..55-..55-..55-..55-.5$-.5-5-.-.5-5-.5-5-.-.5-5-.5-5-.-.5-5-.5-5-.-.5-5-.5-5-.-.5-5,--5--5--5--5--5--5--5--5--5--5--5-76676>66>66>66>66>6676676676676676>66>66>66>667r666666666666666666666666666666666666666666666666.66.66.66.66.66.66.66.66.66.66.66.66.66.66.66.66.66.-65.6.6565.6565.6.6565.6565.6.6565.6565.6.6565.6565.6.6565.65-.655..655..655..655..655..655..655..655>>7?>>77?>>77?>>77?>>77?>77?>>77?>>77?>>77?>>7?7777777777777777777777777777777777777777777777777777777777777777?&>>677>>677>>677>>677>>677>>677>>>677>>677>>677>>677>>677>>677>>>67>6>67>6>67>6>67>6>6767>6767>6767>6767>6>67>6>67>6>67>6>67>66766766?<'???>??>??>??>??>??>??>??>??7?>7?7?>?>7?7?>?>7?7?>7?7?>?>7?7?>?>7?7?>7?7?>?>7?7?>?>7?7?>?7?>>77?>>77?>>77?'<<$''<<$''<<$''<<$''<<$''<<$''<<$''<<$''<<$''<<$''<<$''<<$''<<$'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''?<<''?<<''?<<''?<<''?<<''?<<''?<<''?<<''?<<''?<<''?<<''?<<''?<<'?<'?'?<'?'? >EWR TPHEE2 ?hHh`0 i Hɝ67  9,T,Q Xhh`ɍ[Ɉ  D L-EɊ%%# bE "L-Eɇ L-EɌ**+*++8 $%QQHH Eh%HJJJ'hH*&'*&'*&')&&EH <&""" ,2"<"><$ " "&""  0 $" "8****&"""""""""< `&< ("""""""""*6""""">>88   (""*:<"">""""""""""""">>>"2"""">""" """  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> > *""""">(((>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""<   >>?LD"6 >>">""""A~>I**<<>6>H$$H$H$AAIAI6>6"> """6"">" >>::>>>     %˅67LHh0 8 hLO