' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 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(C)!:Z$A$:Z9(Z$):16:2:50PZ$"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":Ab"RELATION EXPRESSED U75:Z4Z21.753 15:868:15:"MEAN Y VALUE?";MYs 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$)J3)(4)4D$"NOMONC,I,O"#4:A4 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":Q$3 16368,0:9:868:43@CH(36):CV(37)\3A"";ZN$:(ZN$)(((ZN$)))40003y3B(ZN$)0ZN$"0"400063CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:400013FZM:868:CV1(CV23):ZN(ZN$):3JCV1:36,CH:868:4D$(172"ADDING A FORM OF THAT TERM TO BOTH"::"SIDES."b2:"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";:36: MULTIPLY"::"TO GET THE COEFFICIENT OF ";X$;" EQUAL TO 1."e1(:"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":T'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 MUSTE 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 LEME"::"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):!*(1023)123Ā$!/D$(13)(4)8!4D$;"RUN HELLO"UMBER$:F yRGHTLE2āPTR((LE1)2)1RGHT:NUMBER$NUMBER$" ":Q y30988` yPTR(0):x END OF PROGRAM : 10:"DO YOU WANT TO TRY" 12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ľ:5430UMBER$)yRGHTLFT30990WyLFTLE2āPTR((LE1)2)1LFT:NUMBER$" "NUMBER$: yRGHTLE2āPTR(LE2)1RGHT:NUMBER$NUMBER$" ": ySTRING$(STRING$,1,START1)NUMBER$(STRING$,FINAL):30996 yLFTLE2āPTR(LE2)1LFT:NUMBER$" "NSTART130974qxPTRSTART1FINAL(NUMBER$)1:(STRING$,PTR,1)" "STARTPTR1:PTRFINAL(NUMBER$):30972xSTARTPTRxxSTRING$(STRING$,1,START1)NUMBER$(STRING$,FINAL)y30996y CENTERING FORMATyNUMBER$(NUMBER):LE(N30962]xPTRLERGHTLFT1:SIGN(NUMBER0FILL$"0")NUMBER$"-"FILL$(NUMBER$,2):30960wxNUMBER$FILL$NUMBER$}xxLE(RGHT)LERGHTLFTLFTLERGHTxDECIMAL0NUMBER$(NUMBER$,1,LFT)"."(NUMBER$,LFT1) xFINALSTART(NUMBER$)xNUMBER0START1ĭ(STRING$,START1,1)"-"STRING$(STRING$,1,START2)" "(STRING$,START)xNUMBER(NUMBER(10RGHT).5)xNUMBER$(NUMBER):LE(NUMBER$)xLERGHTāPTRLE1RGHT:NUMBER$"0"NUMBER$::LERGHTx(LERGHT)(LERGHTLFT)DECIMAL1LNGTH0x(STRING$,PTR,1)"#"30940LxRGHTRGHT1:PTR:30940xFINALSTARTLFTRGHT(DECIMAL0):CENTER30978xFILL$"0":(STRING$,START,1)"B"FILL$" "xNUMBER0START1ĭ(STRING$,START1,1)"-"LFTLFT1:STARTSTART1:SIGN1aPTR:$xSTARTPTR:PTRSTARTLNGTHhxCHAR$(STRING$,PTR,1):CHAR$"#"(CHAR$"B"PTRSTART)30928xLFTLFT1:PTR:30940xCHAR$"."ĭ(CHAR$"C"(STRING$,PTR1,1)"#")30940xCHAR$"C"CENTER1xDECIMALPTR:PTRLNGTH30940xPTR TO BE PRINTED IN NUMBER, THEN GOSUB 500 AND PRINT STRING$ Dx wxLFT0:RGHTLFT:DECIMALLFT:CENTERLFT:SIGNLFTxLNGTH(STRING$):LNGTH0ıxPTR1LNGTHxCHAR$(STRING$,PTR,2):(CHAR$,1)"#"CHAR$".#"CHAR$"B#"CHAR$"B."30922xCV1(CV23):ZN(ZN$):2CV1:36,CH:868:DD$(13)(4)O43000kx PRINT USING ROUTINEx LAST UPDATE: 7/15/80x AUTHOR: TODD BAILEY 7/12/80 x <x ** TO USE, PUT DESIRED FORMAT IN STRING$, NUMBERS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0Lz(16384)1286010Z16368,0b:xCH(36):CV(37)ZN$:(ZN$)(((ZN$)))6070(ZN$)0ZN$"0"6080ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:6090:6050ZM:868:dí(16384)12850020$nù16368,0,x×:$(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×::13350%<#ZH(37):ZH:1:868:ZH+F#vQ5: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,0NDOW":%"S - SHRINK (ZOOM IN)":Q"E - EXPAND (ZOOM AWAY)":32,0::8999Wd'#50000:(#768:E(222):E255ģ22015:43000-#(218)15ġ:Q902#E16Ģ23:868:23:"I CAN NOT UNDERSTAND YOUR EQUATION":10954#Q8113307#E53EIS 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 WISING '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)":8999T3:" ONCE A RELATION _`_@_~{~?p_0G~~?]{o}_ow[g}{wgog?wox?o@?~?x>{m?_9vs}xA?ooo}];?oogy{swwv.w^ww^_wv6~_/77??w>w?~oxp67\_{]qcfoxG?G|}x?NW?_o~s<}{ow[o?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}xxs~xXc{o~_ow[k}{wwoO?w{nsox|?xO>n?_}xw|xA?ooo}@@?Wt?~Ox?x|}?_}>_o{mw{x`ow[m~{wsownw_opq?xg~xA?oOoy]_{??oogO{}wv~_v~77~~wqq`}Oox>?|}?~?xp~@|_>?7{ox?s}|q?_}>_o~{mw{ow[o?oo~o@_~{~?g]{m?_}vw?~~~?~PO>zog>{k/{~?|>{o7ow[n}{wxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_6368,0Tí(16384)12850004-Vù16368,05X×:INUE.";:16368,0*Tí(16384)128500048Vù16368,0@X×:I" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0Tí(16384)12850004Vù16368,0X×:999::1Râ24:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:1Ģ23:868:23:"I CAN NOT UNDERSTAND YOUR EQUATION":1095I4#Q811330\7#E53E13350z<#ZH(37):ZH:1:868:ZHF#D$(13)(4):(1023)123ĺ:D$"RUN HELLO"PÁG71999::1Râ24:" PRESS '";::"SPACE BAR";::"' TO CONTN WINDOW":3"L - LOOK LEFT OF SCREEN WINDOW":\"R - LOOK RIGHT OF SCREEN WINDOW":z"S - SHRINK (ZOOM IN)":"E - EXPAND (ZOOM AWAY)":32,0::8999'#50000:(#768:E(222):E255ģ22015:43000-#(218)15ġ:Q90:2#E16XPRESION"::18:"- OR -"::11:"R^2 = EXPRESION":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 SCREESIGNED 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:":8v13:"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?";Z&12:"AGAIN (YES OR NO) ? "[ 12:21:"";Y$:Y$(Y$,1):Y$"Y"Y$"N"43030m*" ": CTRL L4Y$"Y"Ľ:D$(4):1170>D$;"PR#0":::(1023)123ĀH10:"GETTING THE MENU...":D$;"RUN HELLO"D"$ION."GP::15:"GOOD LUCK,"::5:"THE COUNTRY IS COUNTING ON YOU."TZ35000:24:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";ˆ16384,128:16368,0:" ": CTRL L̈ END" ": CTRL L 10:"DO YOU WANT TO TRY"WANT TO GO SOUTH,"::"TYPE 180, ETC."1(35000824<"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"::"DIRECTyxA?ooo}={{^o^k|sgww__w^_W~___wxO8oJV[_{]n]vox?>pp}xO?U;?_o~+]{{ow[?X_{{@ww~_>?wvyx?o`}?_z"#     Ϡ""ҠҠ  Ԡ Ϡ ӠŠ.!ǠŠˠ ͠d "POLAR GRAPHS ANY POLAR EQUATION ON A"X "POLAR COORDINATE SYSTEM AND ALLOW THE" "USER TO LOOK AT DIFFERENT SECTIONS."D AT DIFFERENT SECTIONS."DP TO FIVE LINEAR " 9"EQUATIONS ON ONE AXIS IN HIGH" U"RESOLUTION GRAPHICS."i "POLYGRAPH"  "GRAPHS ANY POLYNOMIAL EQUATION ON A"  "COORDINATE SYSTEM AND ALLOWS THE USER " "TO LOOK AT DIFFERENT SECTIONS." "POLAR" *ITH"3L "ANGLES FROM 0 TO 359 DEGREES BY HAVING"UN "THEM INTERCEPT A MISSILE."c "SNARK""SNARK IS A MATH GAME IN WHICH ""STUDENTS LEARN COORDINATE GEOMETRY""THROUGH TRYING TO FIND A 'SNARK'." "SLOPE" "SLOPE GRAPHS U"PUTER SELECTS A NUMBER WHICH YOU MUST" W"GUESS. THE COMPUTER PROVIDES CLUES. e4 "ICBM" 5 "ICBM TEACHES THE COORDINATE SYSTEM"6 "BY HAVING STUDENTS TRY TO INTERCEPT"7 "A MISSILE."H RADARJ "RADAR FAMILIARIZES STUDENTS W1(CV23):ZN(ZN$):/&CV1:36,CH:868:Q "MATHEMATICS - VOLUME 1",8_ ALGEBRA"ALGEBRA PROVIDES DRILL AND PRACTICE IN " "SOLVING EQUATIONS IN ONE VARIABLE"  " " BAGELS "BAGELS IS A GAME OF LOGIC. THE COM-"+N$(Q,1)"POLYG"5 N$(Q,1)"ALGEBRA"N$(Q,1)"ALGE"L D$;"RUN ";N$(Q,1)b CH(36):CV(37) "";ZN$:(ZN$)(((ZN$)))520 (ZN$)0ZN$"0"540 ZN$"D"ZN0: ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500ZM:868:CV A$ (A$,1,1)"Y"3308 (A$,1,1)"N"ė:280` "PLEASE ANSWER YES OR NO";:1:390s Q0QN1470 22:1:"PLEASE ENTER A NUMBER IN THE RANGE":"OF 1 AND ";N;".":16:280 ::10:"GETTING THE PROGRAM..." N$(Q,1)"POLYGRAPH" THE NUMBER OF THE PROGRAM YOU"::"WANT DESCRIBED ";:868I ^490:QZN\ hQ0QN1380 r:"PLEASE TYPE A NUMBER IN THE RANGE OF"::"1 AND ";N:340 |:N$(Q,2):18:N$(Q,3):20:N$(Q,4)  23:"DO YOU WANT ANOTHER DESCRIPTION";:86820 T2(T2)ĺ:N9ĺ# T 16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT PROGRAM"::"DESCRIPTIONS, TYPE 'D'.) ";:868 "490 ,ZN$"D"330 6(ZN$,1)"E"Ĺ1023,9::: @QZN:450 J34,15:16:; T16:"TYPE132JJ1:J40030# #16368,0) (3 dZM24A xN$(24,4)W D$;"NOMON,C,I,O"e 1023,123t ::255:~ T$,N 1:20(T$)2 T$ 2:11:"AVAILABLE PROGRAMS" 4 T1N C14 N$(T,C) C T;" ";N$(T,1);:  PROGRAM: HELLO4 VERSION: 2.0.2 (TMB)P LAST UPDATE: 6/27/80V l (C) MECC, 1979w 22016D$(13)(4):::255:(1023)123100:16302,0:::D$"BLOAD LOGO":16304,0:16368,0 J1(16384)128:J127J     :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"RUN HELLO" Y68:1:1: AGAIN";:40010:40001]FZM:868:CV1(CV23):ZN(ZN$):vJCV1:36,CH:868: END OF PROGRAM::5(1023)123430205:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868A"SPACE BAR";::" TO CONTINUE";8!N(16384)12820001Q"N24:1:868:1:1:cD$(13)(4)k: 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$;(A$):A13A8(A48A57)100056'(A$)810040F'(A$)13ıZ'(ZN$)N10005u.'A$;:ZN$ZN$A$:100058'(ZN$)010005B'(ZN$)1ZN$"":10070L'ZN$(ZN$,(ZN$)1)V'(8)" "(8);:10005 N16368,0:24:868:7:"PRESS ";::":"THINKING ABOUT WAS "Q$".":20000.1200dI3:12:868:I3:12:"THAT'S THE NUMBER!"oL20000M::10:"IT TOOK YOU "I;:I1ĺ"GUESS":1200N" GUESSES."O2000043000'16368,0:ZN$"":I3:5:" ":I3:5#'A$:ADN1000*"12:I3:868:I3:127,C0400P6G1C:"PICO ";:G]D0500vG1D:"FERMI ";:GCD0700"BAGELS"I20203G1200:G:G13:G:1:868:G:1:1:G1500:G$"THE "N" DIGIT NUMBER THAT I WASN1:K(G1)N:A(G)A(K)FL1q K,G:FL1FL0:12:I3:868:I3:12:"THE DIGITS ARE ALL DIFFERENT.":205} C0:D0 J1N1:K(J1)N:A(J)B(K)CC1 K,J J2N:K1J1:A(J)B(K)CC1 K,J J1N:A(J)B(J)DD1J GUESS CLUE":I05 G1N:B(G)((Q$,G,1))48:GJ II1:I3:868 1:I3:I")"3((I)))"?";:10000:(ZN$)N(ZN$)0705 (ZN$)NĖ12:I3:868:I3:12:"TRY A "N" DIGIT NUMBER.":205 A$ZN$:G1N:A(G)((A$,G,1)):G G1SEE THE ANSWER.)";:1:1D Q(((1)10)10(N1)):((Q))N160v Q$(Q):G1N:S((Q$,G,1)):H1N:GH180 ((Q$,H,1))SGN:HN:FL1 H:G:FL1FL0:160 1:"I'M THINKING OF A "N" DIGIT NUMBER...":G18:"-----";:G:3:1:" YOUR GUESS. THESE ":"CLUES ARE:"* }: " PICO - 1 DIGIT CORRECT BUT IN THE ":11)"WRONG PLACE."::" FERMI - 1 DIGIT CORRECT AND IN THE":11)"RIGHT PLACE." " BAGELS - NO DIGITS ARE CORRECT.":20000 :24:"(ENTER ALL ZEROES TO W 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 nN((N$))::K71155" x:4:"AFTER YOU TYPE IN YOUR GUESS, I WILL ":"GIVE YOU CLUES ABOUT  ::255::K7110032:15:"* BAGELS *"13:868:13:"WOULD YOU LIKE INSTRUCTIONS? ";YN$:YN$(YN$,1):YN$"Y"YN$"N"30(YN$"N"K71:1000 234,2:::5:" I WILL THINK OF A NUMBER. YOU TRY ":"TO GUESS IT. YOU DECIDE HO     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               1,1)"Y"FA1:1020,(A$,1,1)"N"2010w5:868:5:"ANOTHER EQUATION ON SAME SCREEN?";A$:(A$,1,1)"N"1020(A$,1,1)"Y"20201090 Z3Z11.75:Z4Z21.75 15:868:15:"MEAN Y VALUE?";MY R(Z4Z3)2:Z3((MYR)100)100::Z2R1SX10:Z1R1SX10:1800zX$"E"R1(Z4Z3)2:Z4R1ST10:Z3R1ST10:R1(Z2Z1)2:Z2R110SX:Z1R110SX:1800::1:"ANOTHER GRAPH?";A$:(A$,1,1)"N"57(A$,1,1)"Y"2000FA0:3:868:3:"REUSE THE SAME EQUATION?";A$:(A$,""/vR1Z2Z1:X$"R"Z1Z1R1:Z2Z2R1:1800SX$"L"Z1Z1R1:Z2Z2R1:1800R1Z4Z3:X$"D"Z4Z4R1:Z3Z3R1:1800X$"U"Z4Z4R1:Z3Z3R1:1800SX(Z2Z1)2:ST(Z4Z3)2X$"S"R1(Z4Z3)2:Z4R1ST10:Z3R1ST10:R1(Z2Z1)2YZ3Z3Y(YZ4Z4Y'2XZ21310S<Q80:Z3(Z3):Z4(Z4.99):ZF1Z3Z4]F1100fxST1xV1V10ıV1VV10:STST10:1410VV10:STST10:1410:1096l16368,0:24:"PRESS U,D,L,R,S,E, OR 'SPACE BAR'";:X$::ZL$ЭZ3J01260ZC158ZC158AZZ,ZC1ZY,ZC1:ZZ,ZCZY,ZCJ:J0Z4ST:ZC159(Z3J)(Z4Z3)159:ZC0ZC1591290Z3J01290ZC158ZC158ZZ,ZC1ZY,ZC1:ZZ,ZCZY,ZC J:Z39999:Z49999:XZ11:Q81 XX1:15: ";(Z41000)1000;" SCALE = ";STOKZ1:XX0:JZ1Z2SX:KKSX:J0XXKSXyJ:Z5(Z1XX)(Z2Z1)279:Z50Z50Z5279Z5279ZZZ55:ZYZ55:ZZ0ZZ0ZY279ZY279J0Z3ST:ZC159(Z3J)(Z4Z3)159:ZC0ZC1591260 )(Z2Z1)279:ZC0ZC27912302ZC278ZC278TZC1,ZZZC1,ZY:ZC,ZZZC,ZYJ:J0Z2SX:ZC(Z1J)(Z2Z1)279:ZC0ZC2791242ZC278ZC278ZC1,ZZZC1,ZY:ZC,ZZZC,ZYJ!23:868:23:"VERTICAL: ";(Z31000)1000;" TOHORIZONTAL: ";(Z11000)1000;" TO ";(Z21000)1000;" SCALE = ";SXqKZ3:XX0:JZ3Z4ST:KKST:J0XXKSTJ:Z6159((Z3XX)(Z4Z3)159):Z60Z60Z6159Z6159ZZZ65:ZYZ65:ZZ0ZZ0ZY159ZY159J0Z1SX:ZC(Z1J2:(Z$,I,3)"SQR"ZF1:.KI:ZL$"Y"1300RL16304,0:2:1200:XZ1Z7:Q90~(Z3)(Z4)ē0,Z6279,Z6:0,Z61279,Z61(Z1)(Z2)ēZ5,0Z5,159:Z51,0Z51,1593:50V(Z2Z1)2:1400:SXST:V(Z4Z3)2:1400C22:868:22:"";Z39 $17:868:17:"MAXIMUM Y?";Z4:Z3Z4Z3Z41050h B19:868:19:"NUMBER OF PLOT POINTS?";ZP G16:FA1Ģ21:868:21:"INPUT YOUR EQUATION? ";Z$:6000 HZ7(Z2Z1)ZP:21:868:21:Z$:(Z$,2,1)"^"5000JZ9(Z$):2:ZF0:I1(Z$)2:Z1Z2Z1Z21020a 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)"N"1045 ZL$"Y":1090 (ZK$,1,1)"N"1040 15:868:15:"MINIMUM Y?91:50 PZC,ZD Z50e 8190:I768777:Y:I,Y:I:104,168,104,166,223,154,72,152,72,96:16 ZO$"+-*/^>=<":ZA$"SGNINTABSSQRRNDLOGEXPCOSSINTANATN":7000:9000 7:868:7:"ENTER MINIMUM X?";Z1:Q90:62450 9:868:9:"MAXIMUM X?";Z 2XZ253 3XXZ7:157 4ZC(Z1X)(Z2Z1)279^ 5XZ2ZF1XZ1Z7:ZF0:Q90:4000m 8XZ21900 9XZ2İ16:22016:43000 :ZC0ZC279Q90:50 <ZD159(Z3Y)(Z4Z3)159:ZD0ZD159Q90:50 BZ3Y0Q90:50 FQ90ēZC,ZD:Q,1)):ZHZH1:ZI:i ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ZI23262406:ZI,58:: COPYRIGHT 1979 MECC NAME: POLYGRAPH VERSION 10/22/79 AUTHOR: DARRELL RICKE #LANGUAGE: APPLESOFT (FP) (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:PD$(13)(4)X:v 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"AM A PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0Q(16384)1281004_16368,0g:}@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:240alUU1:U4UU1nmU7800uvU34,23:24:"DO YOU WANT ANOTHER EQUATION";:A$:(A$,1)"N"80034,0::240 1000::43000G71999::1924:" (B$,X,1)"/"480!X:B11:490?B1((B$,X1,(B$)X1))RB(B$):BBB1fX11:M2M1.5yX139139X1YMXB10X1X139Y179YY1159Y10ī600K60Ģ21:QQ$QQ$Q1$:QQ$K61&X1,Y1XXLYK60Ģ23:4407QQ$QQ$Q1$:21:QQ$:5:Y0159:B10139,Y:Y@62023:"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))574201XSX1(A$):(A$,X,1)"/"407_X:410wB1((A$,(A$)X))B(A$):BBB1K51430M0:50023:"PLEASE TYPE THE EQUATION IN THE FORM":"Y=MX+B OR X=B";:1:240B13B13:K1:450) h(A$,2)"-X"M1:K2:4508 rK1(A$)O |(A$,K,1)"X"390V }K_ ~400r M((A$,K1)) L1K1:(A$,L,1)"/"395 L 450  M1((A$,L1,K1L)):M10420 MMM1 450 B11:(A$)1410*X2" ":QQ "3300 ,A$(A$,I1)(A$,(A$)I)9 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"M1,83 I9 21:"WHAT IS THE EQUATION";:868:UU(0)M A$:K59:K60:v (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$1 k" Y=5"::" X=3"; m1000A xL zQQ$""[ ::1:U1l 0,79279,79 139,0139,159 I107910 135,I79145,I79 135,79I145,79I I I1013910 139I,74139I,83 139I,74139INEAR EQUATIONS"C f::"THIS PROGRAM WILL GRAPH UP TO 5 LINEAR":c 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 LI     ":43022ZE1Ĭ$ZE343049_:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"k)1023,9s*:"Y"R$"N"43030! :R$"Y"Ĭ5*(1023)123ĀI4D$;"RUN HELLO"ZAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR" :"3) END"13:"PLEASE ENTER 1, 2, OR 3 ";:86840000:ZEZNZE0ZE443030:"PLEASE ENTER A NUMBER 1 - 3$)0ZN$"0"40006NCZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001vFZM:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868:D$(13)(4): 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$ES.":"GOOD SHOW.":$2000/43000BG71999::124:" PRESS '";::"SPACE BAR";::"' TO CONTINUE.";:16368,0(16384)128200416368,0:@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN01260D2RR01300)D2RR01340M"SNARK IS INSIDE YOUR CIRCLE."X01360}"SNARK IS OUTSIDE YOUR CIRCLE."(01360<"SNARK IS ON YOUR CIRCLE."PKK1d840x *** WE GOT A WINNER "YOU CAUGHT HIM IN ";K;" GUESS:"BE INTEGERS.":8405D2(XA)(XA)(YB)(YB)O22:"RADIUS?";:868_40000:RZNqR(R)01080|$011008R0ė:1160L23:"THE RADIUS MUST BE A WHOLE NUMBER.":1000`t01000R001200D2001420D2RRĺ:34,157 "THE SNARK IS HIDING ... START GUESSING."R  *** GUESSING BEGINS Z K1 H18:"X-COORDINATE?";:868:40000:AZN \20:"Y-COORDINATE?";:868:40000:BZN:958 pA(A)B(B)98022:"FORGOT TO TELL YOU - COORDINATES MUST"UR CIRCLE, OR 'ON' YOUR"::"CIRCLE.":2000w :10);"***IMPORTANT***"::"IF YOU THINK YOU KNOW WHERE HE IS HIDING" "ENTER 0 (ZERO) AS THE RADIUS."::10);"GOOD HUNTING":2000  *** HIDE THE SNARK X(10(1)) Y(10(1)) 340:AIN.":2000j :"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' YO9 X"  2000:s :"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 AG700! 12:"YES OR NO, PLEASE."* 120G *** HERE ARE THE RULESM  "A SNARK IS HIDING IN A 10 BY 10 GRID"::"LIKE THE ONE SHOWN BELOW:": ,340:440 T" Y" hU901 |U;" . . . . . . . . . ." U " 0 1 2 3 4 5 6 7 8 J 9 COPYRIGHT MECC 1979 SNARK 7/24/79 FPP AUTHOR: UNKNOWN| ASSOCIATED PROGRAMS AND FILES: NONE ::ZM24::255n4:10);"S N A R K"x10:"WANT THE RULES";:868Z$(Z$,1)"Y"ė:240 (Z$,1)"N"ė:     N MID-AIR." 5960N:"GOOD LUCK - THE ICBM TURNED OUT TO BE A":h "FRIENDLY AIRCRAFT."n%x*5960~4>:"TOO BAD. THE ICBM JUST HIT YOUR LOCATION";CH:5990R34,0:\6100fG71999::14p24:" PRESOUR SAM CAME WITHIN ";(D2);I:"MILES OF THE ICBM AND DESTROYED IT."OY5960:"TOO BAD. YOUR SAM FELL TO THE GROUND."5960"YOUR SAM EXPLODED IN MIDAIR."5960:"GOOD LUCK - THE ICBM EXPLODED HARMLESSLY" "I0,5860,5880,5910>670:X(1)0Y(1)0X(1)0:Y(1)0:5550NlD255810_vD3D25790:"YOU PASSED THE ICBM UP, AND IT HIT"::"YOUR LOCATION.":5960:"ICBM & SAM ARE NOW ";(D3);" MILES APART.":5550:"CONGRATULATIONS - Y: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)H45620H584Y(1)(800(1)200)(^S(20(1)50)=hS1(20(1)50)`r" MISSLE SAM"|" MILES MILES MILES MILES HEADING"" NORTH EAST NORTH EAST ?"" ----- ----- ----- ----- -------"34,5LSTRING$" B##"DESTROY THE ICBM BY COMING"J:"WITHIN 5 MILES OF IT, AT WHICH TIME":v"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(1)200)TER, YOU ARE GIVEN THE NEW"J:"COORDINATES OF THE ICBM AND OF THE SAM"P~"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":Md"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 MINUTE"::"LAT, TELLING":;"YOU ITS COORDINATES (IN MILES NORTH AND"h(:"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" Z:"YOU CAN 255:) 10:" I C B M"H 20:"INSTRUCTIONS";:868P A$h (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 HEADING YOUR WAY(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       ox<@}~??|_Oox?g}xG?_}>_o~{mw{ow{o?go?~o@|?p>{m?_}vw?ppx?X_~zoo>{k/?{~?~>{o7owo}?O~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_w_wv^F_w~??oo88`}~?~~gox?O}x~?_>_o~{ p{owo?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~w?@~`?@_O~zog>{K/{~??~>{o7_ow[o{}?_gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_wvv_7_wv^_?wv~_w~??w~wvnO0?~}~?_qwlw`\o>~`ox?a@}xx?_}>``{mw{ow?p?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mvw??`@?`@?W~v[k>w-w.{~?> x`\o~`wpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gOwwv_W_7v^_vf~_/??~vn_ |~?_?|k{o;_ow[o{=>_ox? }xc?[}>_o~[mw{ow_?X_{{?ww~_>wv{w?o@?x?~>{m?_UvuG_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o           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 WANT TO GO SOUTH,"::"TYPE 180, ETC."("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 BLOWS YOU TO BITS."35000 4E"YOUR SAM WILL LAUNCH FROM THE CENTER OF"::"YOUR RADARSOVIET INTER-CONTINENTAL BALLISTIC"::"MISSILE (ICBM) HEADING YOUR WAY."::"YOUR JOB IS TO SHOOT DOWN THE ICBM"::"BEFORE IT REACHES ITS TARGET."350004"THE ICBM WILL APPEAR ON YOUR RADAR"::"SCREEN AS A FLASHING BLIP MOVING"::6: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"ı4I"LONG-RANGE RADAR SCANS HAVE PICKED UP"::"A $ S2(PHI)2400D8 S1PHI32ĕSAMSX,SY:COUNTOMĕICBMIX,IYRL 36IX,IYlV S1PHI63ĕ37IX,IY|` K1DE::t S2CX,CY~ " ": CTRL L 8:"FANTASTIC!! WE KNEW WE COULD"::"COUNT ON YOU." 35000:43000 INSTRUCTIONSORIZED BY A NUCLEAR BLAST."-35000:43000?KSTARTDE:gS1S2S279:SHS1:COCO1:STARTD2SH32SHSH32:2270S2SH1(SH31)32 SHCX,CY:S2CX,CY (COOMCOOMOFF)S1PHI32ĕICBMIX,IY:STARTSTARTD22:COOMOFFCO0H32120? STARTSTARTD2:CHARBSHEAD$HEAD$(CHAR):2100u STARTSTARTD2:HEAD$(HEAD$,1,LNGTH1(LNGTH0))4STARTSTARTD2:17:33:HEAD$;" "HKSTARTDE:::1680\S2CX,CYp6245010:1:"OOPS! YOU HAVE JUST BEEN"::"VAP8)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 (FPA(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"">" >>::>>>     ox<@}~??|_Oox?g}xG?_}>_o~{mw{ow{o?go?~o@|?p>{m?_}vw?ppx?X_~zoo>{k/?{~?~>{o7owo}z~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_w_wv^F_w~??oo88`}~?~~gox?O}x~?_>_o~{ p{owo?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~w?@~`?@_O~zog>{K/{~??~>{o7_ow[o{}ygxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_wvv_7_wv^_?wv~_w~??w~wvnO0?~}~?_qwlw`\o>>@ox?a@}xx?_}>``{mw{ow?p?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mvw??`@?`@?W~v[k>w-w.{~?> x`\o~{wpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gOwwv_W_7v^_vf~_/??~vn_ |~?_?|k{o;_ow[o{=~{ox? }xc?[}>_o~[mw{ow_?X_{{?ww~_>wv{w?o@?x?~>{m?_UvuG_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o           P24:7:16368,0D#P"PRESS ";::"SPACE BAR";::" TO CONTINUE";l(PZC(16384):ZC141ZC160205202P16368,0:1:868:21::ZV1:ZH1:DZH1:A CARTESIAN COORDINATE"&"SYSTEM."7POLAR,POLARe"POLAR - GRAPHS ANY POLAR EQUATION ON A" "POLAR COORDINATE SYSTEM AND ALLOW THE" "USER TO LOOK AT DIFFERENT SECTIONS."P SPACE-BAR ROUTINEPZH(36):ZV(37):ZZ1200:ZZGEOMETRY"3"THROUGH TRYING TO FIND A 'SNARK'." DSLOPE,SLOPEl"SLOPE - GRAPHS UP TO FIVE LINEAR""EQUATIONS ON ONE AXIS IN HIGH" "RESOLUTION GRAPHICS."POLYGRAPH,POLYG"POLYGRAPHS - GRAPHS ANY POLYNOMIAL""EQUATION ON TERCEPT"7 "A MISSILE.",HRADAR,RADARVJ"RADAR - FAMILIARIZES STUDENTS WITH"L "ANGLES FROM 0 TO 359 DEGREES BY HAVING"N "THEM INTERCEPT A MISSILE."SNARK,SNARK"SNARK - IS A MATH GAME IN WHICH" "STUDENTS LEARN COORDINATE  " "BAGELS,BAGELSG"BAGELS - IS A GAME OF LOGIC. THE COM-"u"PUTER SELECTS A NUMBER WHICH YOU MUST" "GUESS. THE COMPUTER PROVIDES CLUES. 4ICBM,ICBM5"ICBM - TEACHES THE COORDINATE SYSTEM"6 "BY HAVING STUDENTS TRY TO IN18İ20500:29C24:N$(T,C)""N$(T,C)" "835A<C2ĺ" ";Q>N$(T,C):CaC:T:20500nH::200 "MATHEMATICS - VOLUME 1",8ALGEBRA,ALGE"ALGEBRA - PROVIDES DRILL AND PRACTICE""IN SOLVING EQUATIONS IN ONE VARIABLE."":20500::720! vVX$"N"610. ::2554 M A(999)(1000)256c B(A)(A1)256| CS(B1)16:SLOT # CS1CS7CS6 (4)"PR#"CS  DESCRIPTIONS *:34,1: /14:"DESCRIPTIONS":34,4 2 4T1N1:(37)6 ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500^ ZM:868:CV1(CV23):ZN(ZN$):w &CV1:36,CH:868: X: b10:1:"DO YOU WANT TO RUN ANOTHER"::"DISKETTE";:868:VX$:VX$(VX$,1) lVX$"Y"ė:10:9:"INSERT THE NEW DISKETTE.R FROM 1 TO "N".":16:2807 ZZ((79)256(78)1)D QN600j ::10:"GETTING THE PROGRAM..."} 230,32:62450 D$;"RUN ";N$(Q,1) CH(36):CV(37) "";ZN$:(ZN$)(((ZN$)))520 (ZN$)0ZN$"0"540 ZN$"D"ZN0:128:J10JJ1:J3002752 16368,0:1023,123 16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT DESCRIPTIONS, TYPE 'D'.) ";:868 16303,0 "490 ,ZN$"D"800 QZN Q0QN1470 22:1:"PLEASE ENTER A NUMBE$(N,4)5 xT1N1:C04:N$(T,C):::N$(N,0)"END"L 1:20(T$)2:T$\ VV4(N17) 2:11:"AVAILABLE PROGRAMS":VV T1N:2TN1Ė20 T10ĺ" "; T" "N$(T,0)  T((N1)2)ĢVV T:(1023)123280 J1(16384)ɚ HELLOVERSION A-3.19LAST UPDATE: 6/23/81?S(C) MECC 1980Y :d 22016vD$(13)(4):::255:(1023)123100:16302,0:::D$"BLOAD LOGO":16304,0:16368,02D$"NOMON CIO"dZM24 n:T$,N:NN1:N       N"57(A$,1,1)"Y"2000lFA0: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)2rX$"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:1096Vl16368,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:1800SX,ZC1ZY,ZC1:ZZ,ZCZY,ZC# J:DZ39999:Z49999:XZ11:Q81]XX1:15:YZ3Z3Yl(YZ4Z4Y{2XZ21310<Q80:Z3(Z3):Z4(Z4.99):ZF1Z3Z4F1100xST1V1V10ıV1VV10:STST10:1410VV10:STST10:ZY279ZY279OJ0Z3ST:ZC159(Z3J)(Z4Z3)159:ZC0ZC1591260`Z3J01260sZC158ZC158ZZ,ZC1ZY,ZC1:ZZ,ZCZY,ZCJ:J0Z4ST:ZC159(Z3J)(Z4Z3)159:ZC0ZC1591290Z3J01290ZC158ZC158ZZ,ZZZC1,ZY:ZC,ZZZC,ZYJu23:868:23:"VERTICAL: ";(Z31000)1000;" TO ";(Z41000)1000;" SCALE = ";STKZ1:XX0:JZ1Z2SX:KKSX:J0XXKSXJ:Z5(Z1XX)(Z2Z1)279:Z50Z50Z5279Z5279ZZZ55:ZYZ55:ZZ0ZZ09Z6159'ZZZ65:ZYZ65:ZZ0ZZ0:ZY159ZY159sJ0Z1SX:ZC(Z1J)(Z2Z1)279:ZC0ZC2791230ZC278ZC278ZC1,ZZZC1,ZY:ZC,ZZZC,ZYJ:J0Z2SX:ZC(Z1J)(Z2Z1)279:ZC0ZC2791242ZC278ZC278ZC11,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):Z60Z60Z615Z7(Z2Z1)ZP:21:868:21:Z$:(Z$,2,1)"^"5000mJZ9(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,0Z5"N"1045 ZL$"Y":10905 (ZK$,1,1)"N"1040X 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$:60003H7:868:7:"ENTER MINIMUM X?";Z1:Q90:62450:FL0g 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:502 BZ3Y0Q90:50L FQ90ēZC,ZD:Q91:50X PZC,ZD` Z50 8190:I768777:Y:I,Y:I: 104,168,104,166,223,154,72,152,72,96:255:::16 ZO$"+-*/^>=<":ZA$"SGNINTABSSQRRNDLOGEXPCOSSINTANATN":7000:90004 N 10/22/79 & AUTHOR: DARRELL RICKEE #LANGUAGE: APPLESOFT (FP) R 2XZ253a 3XXZ7:15| 4ZC(Z1X)(Z2Z1)279 5XZ2ZF1XZ1Z7:ZF0:Q90:4000 8XZ21900 9XZ2İ16:22016:43000 :ZC0ZC279Q90:50 <ZD159(Z3Y)(Z4,1)):ZHZH1:ZI:i ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ZI23262406:ZI,58:::DO NOT CHANGE ANY CODE IN LINES 0-15 (INCLUDING REMS) COPYRIGHT 1979 MECC NAME: POLYGRAPH VERSIO-(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!! ! ! ! ! !!!!!!!!!   LL 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 R"::"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 BLOWS YOU TO BITS."35000 4q"YOUR SAM WIONG-RANGE RADAR SCANS HAVE PICKED UP"::"A SOVIET INTER-CONTINENTAL BALLISTIC"::"MISSILE (ICBM) HEADING YOUR WAY."::"YOUR JOB IS TO SHOOT DOWN THE ICBM"::"BEFORE IT REACHES ITS TARGET."350004@"THE ICBM WILL APPEAR ON YOUR RADAU." 35000:43000( INSTRUCTIONS@6: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"ı4u"LD22:COOMOFFCO0($ S2(PHI)2400Z8 S1PHI32ĕSAMSX,SY:COUNTOMĕICBMIX,IYhL 36IX,IYV S1PHI63ĕ37IX,IY` K1DE::t S2CX,CY~ " ": CTRL L CXSXCYSY2140 8:"FANTASTIC!! WE KNEW WE COULD"::"COUNT ON YOORIZED BY A NUCLEAR BLAST."-35000:43000?KSTARTDE:USXCXSYCY2140}S1S2S279:SHS1:COCO1:STARTD2SH32SHSH32:2270S2SH1(SH31)32 SHCX,CY:S2CX,CY (COOMCOOMOFF)S1PHI32ĕICBMIX,IY:STARTSTARTH32120? STARTSTARTD2:CHARBSHEAD$HEAD$(CHAR):2100u STARTSTARTD2:HEAD$(HEAD$,1,LNGTH1(LNGTH0))4STARTSTARTD2:17:33:HEAD$;" "HKSTARTDE:::1680\S2CX,CYp6245010:1:"OOPS! YOU HAVE JUST BEEN"::"VAP8)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 "" " " " " """""""""