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`>">">"">""""<"">>>"">"">"">">"">"">>>"">"""">>">"">"""">>>">""">>"">"">""0""""""""""""""""""""""""""""""""""6"""""""""""""""""""""""""""""""""2"> 2 ">222"> > &"> " " >""""> >"  > ""*"">"">"> "">"2""> " >"">"">"> 2" &""**"** 2 ":100005ZA$" V ":10000BdCENTER0WnS12GTTVVTkxS(S10.5)10A$"AND WE GET HEIGHT = "(S):10000A$"@THIS IS THE ANSWER TO THE FIRST PART.":10000VTVT1A$"@THE SECOND PART IS EASY NOW. 10000:CENTER0 CENTER0tA$"@THIS MEANS THAT AT "(T)" SECONDS, THE BALL IS AT ITS HIGHEST POINT.":1000015000(A$"@WE NOW INSERT THIS INTO THE EQUATION:":100002CENTER1<A$"S = 1/2 GT + V T":10000FVTVT3PA$" 10000CENTER1/A$"V = GT + V ":10000;VTVT1WA$" O":10000fT(0VV)GzT(T10.5)10CENTER0A$"@WHEN YOU INSERT THE DATA INTO THE EQUATION AND SOLVE FOR 'T', YOU GET:":10000CENTER1A$"T = "(T): "(TH)(2)" = "(VV):10000,tVTVT1f~A$" V"(" ",(A$)5):10000sCENTER0~15000A$"@TO FIND HOW HIGH THE BALL WILL RISE, WE USE THE FACT THAT THE VELOCITY IS ZERO AT THE HIGHEST POINT, AND THE EQUATION:":X(SCREEN)5,6! H1X(SCREEN),26( R38 \X5,6X,12J fX5,6X5,6V p1X,26l zSCREEN2180,2190 16300,0:2200 16299,0 X(SCREEN)X X  RELEASE MAN I12 SCREENSCREEN1:SCREEN3SCREEN1 SCREEN30N  SCREEN0 3, X(1)200:X(2)200> X2401502c SO(16336)(16336)(16336) SCREENSCREEN1:SCREEN3SCREEN1 SCREEN2070,2080 230,32:2090 230,64:2090 *0 4X(SCREEN)5,6X(SCREEN),12 >X(SCREEN)5,6 j1150,Y tY1(SCREEN)Y. u54,0:55,968 v5:1I w10:T;" "o x10:((1000S)100.5)100;" " y10:(GT100.5)100;" " z10:G ~SCREEN1160,1170 16300,0:1180 16299,0 EN11020   MOVE TO POSITIO IS INSOLUBLE"INSOLUBLE"Nu VERSION !#$%"#$%*:!sDEGREE INTERVALS1u VERNAL EQUINOX IS TO RIGHTOu AT DOUBLE DOT. PLANETS nu REVOLVE COUNTERCLOCKWISEu THE SUN (DOT AT CENTER).u ORIGINAL PROGRAM FROMu MICRO APPLE 1 BY DAVIDu PARTYKA. WE THINK THE u BUGS ARE OUT OF THIS Z1DEDN7000851003XX279:Y190:100:A$E::Z10:DE0N(5)"WOULD YOU LIKE TO BEGIN THIS PROGRAM":"AGAIN? Y OR N " S$RS$"N"1000\:0u:::::::::::::::::::::::::::::::u BIG OUTER CIRCLE IS STARSu IN 10 F5:YG5:M5X:N5Y:3:100R (5600-5640) SET UP VALUES FOR SATURN AND PLOT aSA06000AA6:PP6:EE6:PEU6:EZK6:SRDS6:JJ6:WW6:ZZ1W200:F6X:G6YTY15640XM6:YN6:0:100XF6:YG6:M6X:N6Y:3:100pZ1Z1DAY1TY15440'6XM4:YN4:0:100G@XF4:YG4:M4X:N4Y:3:100|r (5500-5540) SET UP VALUES FOR JUPITOR AND PLOT|JU05600AA5:PP5:EE5:PEU5:EZK5:SRDS5:JJ5:WW5:ZZ1W200:F5X:G5YTY15540XM5:YN5:0:100XK3:SRDS3:JJ3:WW3:ZZ1W.200:F3X:G3Y=TY15340SXM3:YN3:0:100sXF3:YG3:M3X:N3Y:3:100 (5400-5440) SET UP VALUES FOR JUPITOR AND PLOTMA05500"AA4:PP4::EE4:PEU4:EZK4:SRDS4:JJ4:WW4:ZZ1W,200:F4X:G4L9 ::2:2:"CAR STOPING SIMULATION, BY T.PETERSON "Q T140:3:"=";:TZ$" ":H521:H::Z$:H2:7:"THIS PROGRAM WILL SHOW YOUR REACTIONS"(10:9:"AND THE IMPORTANCE OF " 27:12:"1) ,2:768(CX:Y(CVTVT2#(C040<(CSOUND17370G(CY13V(CX4014i(C6,X:7,2:768s(CX:Y(CVTVT2(C(C6,X:7,2:768(CX:Y(CVTVT2(C "'&CG$""'0C17040$':CLL13'DCG$(G$,L)E'NCVT:L5:" "P'XC17040c'bCG$G$(A128)o'lCL(G$)'vCVT:L4:(A)'{CSOUND17310'CX2012'C6,X:7,2:768'CX'C17040'CSOUND17370'CY13'CX4014(C6,X:76384)&BA12717040$&B16368,05&BA14117320G&BA13617250Y&BSOUND17120g&BX1205z&B6,X:7,2:768&B&BL(G$)&BL117210&BL117180&BSOUND17180&BY110&BX1256&C6,X:7,3:768&C:'CVT:5:" NY KEY %:16368,0*%:CU$"!/-\":VT24J%:A$"! PRESS ANY KEY":10000^%:VTVT2:C1:L4u%:VT:1:(CU$,C,1)%:KEY(16384):KEY128CC1L(CL):15050%::VT1:%hB HIRES INPUT %mB16368,0%rB1:VT%|B"===>"%BG$""&BA(1LL0$x((ILL);$$(SOUND104506$(L$" "10450A$(X12Q$(S(16336)X$(X{$(L$" "L$"."L$","10450$(FINISH20150(L$" .")75(L$",")$(X1FINISH:X$(J$(" ";$(CURRENT$(VTVT2$(%: PRESS AK1(WRD$))#'(WRD$,K,1)"@"NLNL10#'KL#(SPACESNLWIDTH10280X# (VTVT2_#(1k#(SPACE0#((SPACESSPACESNL1#2(VT#<(J1LW#F(LL32#P(L$(WRD$,J,1)#Z(L$"@"L$"&"JJ1:LL064(L$"&"):10320#d(I(L$)$n(I65I901)"`'(A$,K,1)"&"(A$,K,1)"@"II10"j'K>"t'(40I)2I"~'10130P"'1]"'SPACES0n"'CURRENT1L"'KCURRENTL"'(A$,K,1)" "ĂK"'WRD$(A$,CURRENT,KCURRENT)"'CURRENTK"'LW(WRD$):NLLW"'LW0SPACESSPACES1:10460 #'#16384!<#(24576)729050:!F#(4);"BLOAD HIRES CHAR"W!P#(4)"BLOAD CHAR TABLE"z!Z#VT1:SOUND0:CENTER0:WIDTH40!d#G9.8!n#!x#!' LOWER CASE PRINTER !'54,0:55,96!$'L(A$)!.'VT!8'CENTER010120!B'I0!L'K1L"V'II0:VV(VV10.5)10 !TT.054 !H12GTTVVT? !DVHTK !X3D5Y !Y183H3h !TR18720o !0z !X1,Y1 !H08760 !3 !X,Y !8740 "H08760 "H08760 "X,Y $"X1X:Y1Y ."8590 8" (# INITIALIZE !2VH:D(D10.5)10l X5D30v Y1832010? X,YX,Y5F YU TR0:8500d TR1:8500j }4! THROW BALL >!T0:X10:Y10H!3R!5,183\!V030f!AN45p!ANAN3.141592653180z!VHV0(AN):VVV0(AN) !VH(VH10.5)1X12Y5(Y5)X111Y10(Y10)X10K5,183Y3X1,183Y3RYXy CONTROL THROWING OF BALL  TR0:8500 T(0VV)G:T(T10.5)10& S12GTTVVT0 Y183S3: 3D X526510N X,YX5,YX Xb DTON OF THIS MOTION. @NOTICE HOW IT CONFORMS TO OUR INFORMATION.":10000R15000Xl@ SET UP GRID sJ3T5,05,183279,183^X091hY1187rX5(X5)Y1189|X10(X10)Y1191X35,183X35,Y1XY060A$"S = V T":10000"VTVT1:A$" H ":10000GCENTER0RSVHTA$"WE FIND THAT AT "(T)" SECONDS, THE BALL HAS TRAVELLED "(S)" METERS. @THIS IS THE ANSWER TO THE SECOND PART.":10000VTVT1GA$"@HERE IS A DEMONSTRATI@SINCE IT TAKES "(T)" SECONDS TO GO UP, IT MUST ALSO TAKE "(T)" SECONDS TO GO DOWN, SO IT WILL HIT THE GROUND AT "(T2)" SECONDS.":1000015000X SECOND PART OF PROBLEM bTT2lA$"@USING THE EQUATION:":10000vCENTER1GRAVITY":10000-0A$"(-9.8 M/SEC )":1000090VTVT3W0A$" 2 ":10000c0VTVT10A$"INTO THE EQUATION:":100000A$"V = GT":100000150000160000A$"@WHAT IS THE FINAL VELOCITY???":100001170001160001VG000f016000Xp0A$"@WHAT IS THE FINAL VELOCITY (PRESS '@H' IF YOU NEED HELP)":10000cz017000n0160000(G$,1)"H"125700A$"@TO FIND THE FINAL VELOCITY, JUST SUBSTITUTE THE TIME":100000A$"("(TI)"SECONDS) AND":100000A$"THE ":10000' 0A$(TI)" SECONDS":100002*012350S40A$"@THAT IS CORRECT":10000^>015000iH016000R0A$"@NOW THAT YOU HAVE THE TIME IT TAKES TO FALL 1000M, FIND OUT WHAT THE FINAL VELOCITY WILL BE WHEN YOUR FRIEND HITS THE GROUND.":10000\015ECTIVELY":10000/15000&/16000`/A$"@NOW HOW LONG (IN SECONDS) WILL IT TAKE??":10000k/17000v/16000/T((21000G))/TI(T100)1000AN(G$) 0(TIAN).6123400A$"@SORRY, THAT'S NOT CORRECT. @THE CORRECT ANSWER IS:  DROP MAN  EN0:T0+ TT.28@ 6,T4:7,2:768T SCREENSCREEN1k SCREEN3SCREEN1 $SCREEN1070,1080 .230,32:1090 8230,64:1090 BS12GT2 LS1000S1000:EN1 VY(1000S).164190 `1150,Y1(SCREEN)L 7000: INITIALIZE+9000: SCREEN@(2000: POSITIONT23000: RELEASEe<1000: FALLvF4000:PLOP PVT12:CENTER0:WIDTH17ZA$"PRESS THE SPACE BAR TO QUIT.":10000d54,189:55,158n(16384)160130x110:      2!C6,X:7,2:768!CX'!C170409!CSOUND17370D!CY13S!CX4014f!C6,X:7,2:768p!CX:Y|!CVTVT2!CSL117180 BSOUND17180' BY1105 BX1256H C6,X:7,3:768P C:d CVT:5:" "n &CG$""y 0C17040 :CLL1 DCG$(G$,L) NCVT:L5:" " XC17040 bCG$G$(A128) lCL(G$) vCVT:L4:(A) {CSOUND17310!CX20114C6,X:7,2:768"CX:Y.CVTVT24CXDC17040VCSOUND17370aCY13pCX4014C6,X:7,2:768CX:YCVTVT2C250BSOUND17120BX1205B6,X:7,2:768BBL(G$)BL117210 B014D6,Z:7,2:768!D:-DVTVT23E.DCG$(G$,L)VNCVT:L5:" "aXC17040tbCG$G$(A128)lCL(G$)vCVT:L4:(A){CSOUND17310CX2012C6,X:7,2:768CXC17040CSOUND17370CY13CX40 gW'  `^ :F Y %^LǏLZ^[_\Z][`1''BL117180PBSOUND17180\BY110jBX1256}C6,X:7,3:768C:CVT:5:" "&CG$""0C17040:CLL1DCG$(G$,L)NCVT:L6:" "XC17040bCG$G$(A128)lCL(:VT:1:(CU$,C,1)G:KEY(16384):KEY128CC1L(CL):15050T::VT1:hhB HIRES INPUT srB1:VT|B"===>"BG$""BA(16384)BA12717040B16368,0BA14117320BA13617250BSOUND17120BX1205BL$" "L$"."L$","10450P(FINISH20150(L$" .")75(L$",")c(X1FINISH:Xj(Jt(" ";(CURRENT(VTVT2(: PRESS ANY KEY :16368,0:CU$"!/-\":VT24:A$"! PRESS ANY KEY":10000:VTVT2:C1:L41 (SPACE0$((SPACESSPACESNL1,2(VT8<(J1LWBF(LL32UP(L$(WRD$,J,1)Z(L$"@"L$"&"JJ1:LL064(L$"&"):10320d(I(L$)n(I65I90LL0x((ILL);(SOUND10450(L$" "10450(X12(S(16336)(X('CURRENT1L!'KCURRENTL8'(A$,K,1)" "ĂKY'WRD$(A$,CURRENT,KCURRENT)g'CURRENTK|'LW(WRD$):NLLW'LW0SPACESSPACES1:10460'K1(WRD$)'(WRD$,K,1)"@"NLNL1'K(SPACESNLWIDTH10280 (VTVT2(l%X:HT:A$&v%6,X230:7,2:768-%X3%N' LOWER CASE PRINTER _'54,0:55,96k$'L(A$)s.'VT8'CENTER010120B'I0L'K1LV'II1`'(A$,K,1)"&"(A$,K,1)"@"II1j'Kt'(40I)2~'10130'1'SPACES0$"WRITTEN BY":S5:9500:J$A$"LARRY SELTZER":S7:9500KT$J11000:JQ^$l% WORDS AT BEGINNING x&%L(A$)0%HT(40L)2:%X2301D%X1X5:X1249570N%X1S9610X%X1:" ";b%XS9590050::VT1:#Y23114#6,Y:7,2:768@#XYABM#X1X1W#Y:X_#L$k#Y1:X1t#" "#X1X:Y1Y#Y#1:15#(WRD$,T)#T$T34171$2:T$"MOTION ""$J150:,$6,T:7,2:7686$@$AND17370!CY13"!CX40145!C6,X:7,2:768?!CX:YK!CVTVT2Q!C C6,X:7,2:768 CX$ C170406 CSOUND17370A CY13P CX4014c C6,X:7,2:768m CX:Yy CVTVT2 CG$G$(A128) lCL(G$) vCVT:L5:(A) {CSOUND17310 CX2012 C6,X:7,2:768 CX C17040!CSOU17180BSOUND17180$BY1102BX1256EC6,X:7,3:768MC:aCVT:5:" "k&CG$""v0C17040:CLL1DCG$(G$,L)NCVT:L6:" "XC17040bCG$G$(A128)lCL(G$)vCVT:L5:(A){CSOUND17310CX2012 @VT1@CENTER0@0hB HIRES INPUT ;rB1:VTG|B"===>"QBG$""aBA(16384)rBA12717040B16368,0BA14117320BA13617250BSOUND17120BX1205B6,X:7,2:768BBL(G$)BL117210BL110000:C1:L4:VTVT27:VT:1:(CURS$,C,1)g:KEY(16384):KEY128CC1L(CL):15080u8;16368,0{L;> CLEAR PART OF SCREEN >0>X0135>X,0X,190>X>CENTER0>VT1>t@ CLEAR ENTIRE SCREEN~@T. @SINCE THE OBJECT IS FALLING TOWARDS THE EARTH, THE VELOCITY IS NEGATIVE.":10000`j112670t1A$"@THAT IS CORRECT!":10000~1150001160001: PRESS ANY KEY :16368,0:VT22:CENTER0:CURS$"!/-\":A$"! PRESS ANY KEY":TI$1A(G$)$.1(VA).812660=81A0(VA).812640B1A$"@THAT IS NOT CORRECT. @THE CORRECT VALUE FOR THE FINAL VELOCITY IS:":10000L1A$(V)"M/SEC":10000V112670U`1A$"@YOU HAVE THE CORRECT MAGNITUDE, BUT YOUR DIRECTION IS INCORREC@}f}~@kWk_k\k_kU@y~}~}~mn]~ykm~}~]f]nm~mz]f]~}f]~[Y@mjmj@}j{UkWK_{UՃ@}j}j}j@@@m~}fej}fm~m~m~mv]~mzy~]v}v}~k}+W@j}jMf6`>`>`>`>`>`>`>`6`6``@Mj}j@kWk_kYk_k_Ճ@yj}jMjmjjMf}j}j]j}j}jmjj}j}j}j{UՃ@]v]~yk6c6{>{>{>f>{66>cL.&"&""` ,2"2l"><$,22, &""w  0 "2 # ***+&""#"""&&l22, `&< $g""2lw""c***6ccg""< >$> !-3>">""w"""""""""""?"  "??""r""w"">""w>**>p #"c  g"?c6**""ws&*2""w""""""""""*,"""w1 #Iw"""""w""""c""**6"c""cw"">""> "$$$||||<<|||>> "2*&" >" ">"  " 0($~ p>" """">"""""""< "00>> " 9:15~A$"R":V19:H31:15A19:H9:15$tA$"P":V19:H11:15=uA$"U":V19:H13:15VvA$"M":V19:H15:15owA$"M":V19:H17:15xA$"K":V19:H19:15yA$"F":V19:H21:15zA$"S":V19:H23:15{A$"M":V19:H25:15|A$"D":V19:H27:15}A$"O":V19:H2N",31,"FEB",28ZSPLAY, PRESS ANY ONE KEY AND HAVE PATIENCE. NOW PRESS A KEY TO CONT.";:Z$bL'LOOP$"ON"::5000zV'CH%1CH%6010010`'4000:2000:3000:5000:10070 N"MAR",31,"APR",30,"MAY",31,"JUN",30,"JUL",31,"AUG",31,"SEP",30,"OCT",31,"NOV",30,"DEC",31,"JA'9000:2000:3000::5000'::(9):"TERMINATE WITH 'RETURN'. TO CONTINUE, ENTER THE NUMBER OF MINUTES (1 - 60) DESIRED AS AN INTERVAL BETWEEN DISPLAYS AND PRESS RETURN. ";QQ$$'CH%(QQ$):CH%0ĉ::.'CH%1CH%6010010K8':"TO HALT DIE, PRESS ANY OTHER KEY.":" ";G$$G$"Y"ė:(11):(15):"THANK YOU"::" WHEN YOU TIRE OF THE DISPLAY, PRESS":"ANY KEY.":$G$"Y"9300$"SATELLITES PASSING BETWEEN JUPITER AND EARTH APPEAR IN BLACK."::"PRESS A KEY TO CONTINUE":Z$::SD$"D"TZ%TZ%1$ZTZ%24c$:(11):10)MO$;", ";DY%;", ";YR%:(10):HR%;":";:MN%10ĺ"0";$MN%;" ZONE ";:SD$"D"ĺTZ%1:10)"DAYLIGHT TIME (D)":9409$TZ%:10)"STANDARD TIME (S)" $:"DO I HAVE THIS RIGHT? IF SO, PRESS 'Y',OTHERWIS ZONE (GMT = UT = 0). IN THE U. S., THE ZONES ARE: 5) EASTERN 6) CENTRAL"$"7) MOUNTAIN":"8) PACIFIC":"TIME ZONES EAST OF GREENWICH ARE COUNTEDNEGATIVELY GOING EAST FROM GMT. ";TZ%:(TZ%)129375$9350$:"ENTER LOCAL TIME IN HOURS AND MINUTES SEPARATED BY COMMAS. USE A 24 HOUR CLOCK(0 - 23) ";HR%,MN%:HR%0HR%239360$MN%0MN%599360$:"STANDARD OR DAYLIGHT TIME? (S/D) ";SD$$SD$"S"9375$SD$"D"9370y$:"ENTER TIME@@Ճ@UjUjUjUjUjUj`UjUjUjUjUjUjUjUj+U+UՃ@]fmjMf>`6`6``6c~``>p>``@Mfmj@kLkUk[k]kUՃ@]jmjMjm~]jmfmjmj]jmfmjmj]fmfmfmj{YՃ@UjUjUj`````@`````@UjUjUjUjUjUjUjUjUjUjUjUjUjUj+U+U+UՃ@]jmj}zmj]jMjMz]fmjmjMj]jmfMj@?7??7?3??@Ճ@mf]jui5j}f}j`mjmfmzmj]z]j]j]fkU+WՃ@UjUjUjUjUjUjUjUjUjUjUjUjUjUj@UjUj@Uj+U+U+U+UՃ@UjUjUj@5k]j]j]jMf]j}j]j]j}j]jujMjMj[UU[UՃ@UjUj@+U+U+U+U+UՃ@UjUjUjUjUjUjUjUjUjUjUjUjUjUjUjUj+UՃ@}j}j@mjYkLkUUՃ@]jmjmj@@Ճ@UjUjUjUjUjUj`UjUjUjUjUjUjUjUj+U+UՃ@]jmjMf>`6`6``6````>`>``@Mjmj@kLkUkYk]kUՃ@]jmjMjmj]jMfmjmj]jmjmjmj]jmjmjmj[UՃ@UjUjUj`````@`````@UjUjUjUjUjUjUjUjUjUjUjUjUjUj+U+U+UՃ@]jmj}jmj]jMjMj]jmjmjMj]jmjMj@7337>3333;3@Ճ@mj]j]guj}j}j`mjmjmjmj]j]j]j]jkU+WՃ@UjUjUjUjUjUjUjUjUjUjUjUjUjUj@UjU~@Uj+U+U+U+UՃ@UjUjUj@un]j]j]jMf]jmj]j]jmj]jujmjmj[UU[UՃ@UjUj@+U+U+U+U+UՃ@UjUjUjUjUjUjUjUjUjUjUjU~UjUjUjUj+UՃ@mjmj@mjUkOk_UՃ@]jmjmj@@Ճ@UjUjUjUjUjUj`UjUjUjU~UjUjUjUj+U+UՃ@]jmjMf6`6`6``6````6`6``@Mjmj@kOk_kYk_k_Ճ@]jmjMjmj]jMfmjmj]jmjmjmj]jmjmjmj[UՃ@UjUjUjc````@`````@UjUjUjUjUjUjUjUjUjUjUjUjUjUj+U+U+UՃ@]jmjmjmj]j}jmj]j}jmj}j]jmjMj@ 33&73 !;3@Ճ@mj]jMfujmjmj~`mjmjmjmj]j]j]j]j{W+WՃ@UjUjUjUjUjUjUjUjU~UjUjUjUjUj@m~mz@mf{YkUkO{M̓@]fm~m~@unyj}jjMfyjmj}jyjmjyj}j}j}j{U{U{UՃL <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""**6""">>8  80,"*:<>""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""**6"""">>>> >00000>"(~ < (&20 *, **>> """ " >> ">> """>""""""< >> "  @@@]f}nMf>>{>{{>{f>>{>p>@Mj}~@kOkUk_k]kW@]~}nMn}n]nmf}~m~]~}f}v}~]f}f}j}~{}@@@]~}~}z}v9v}v}z]fmv}~}~]v}fMv@@@}f9~ej5~}f}~}v}f}z}~]z]~9~9fk}+W@@UjUj@Uj+U+U+U+UՃ@UjUjUj@uk]j]j]fMf]j}j]j]j}f]j5jMjMj{UU[UՃ@UjUj@+U+U+U+U+UՃ@UjUjUjUjUjUjUjUjUjUjUjUjUjUjUjUj+UՃ@}j}j@mfUkLkUMՃ@]jmjmj&<]gjnA 'FNVry);@CQZ`cfiknAq%svz} !A%u)A-:=h ,5>BFIKMOQSUY[]_acegikmoqsuwy{} <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "$$! $%%#,fp% "Lp"% $`"H Β*+)hi#"H Β!*0+i+idH#d hd`"%$$%H hi#`$% Βc,d*+Me,dPMc*!0 +i+`%J) b+je *`PPPP򠥹,r0tL"$!e (' !!%##`f`" e$$ ",r0st(!#L"L $b . % `L a,gPgA[8 & & &mh)mi ̒e$*+Me$(Mc,dp ,cpP!pA* +i+Mebrs"t`,Tb@0,U`* L" {LB$!$$"% %L"c`g`g`,,Lҩc`@a`de` qLXde`s$t%L$td`e`g`f`Yd`e`L$e (' 8!$!$%"{LȎ !%# "LȎ5 )5`)aW L| JHIHa`G~ҏ#+@HPXs{ɐG֐G+R$a`1  emhi` b` ,r0rbj$s%t`@b`s$$hLde`,rSjd LL LHLH C `u8967 ,R,W U ,P`ɭӠҠΠΠ Р̺((*)  b+*HN OI*P,h*,H,`0ɛ` ɍ $h`ɐ 6+` qLȎ LȎ      ' INSTRUCTIONS ':13$'14);"Instructions"d.':"You should know something about IONS if"8':"you are going to take this test. If you";B':"don't, it won't make much sense."L'::"You have a choice as to how you would"%V':"like START1:FINISHW:W0:R0,TS2SUB12&<01100Q@ MUSICAL POKESJ768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7T776,240:777,8:778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,03:786,96^s you missed"XX1G:X". Start the test over from the start"QXX1l:X". End the test.":"Enter your choice"VT20:17000G(G$)G1(W0)1770,80,20000TRYTRY1X1WW$(X)WW$(X):F$(X)FF$(X)XX@:X0:SUB0-J14:1:"Total Score"ET3:1:"Try # ";TRYv^:"Right :";R,((R(RW)100)10.5)10;"%"h:"Wrong :";W,((W(RW)100)10.5)10;"%"r:"Would you like to ...."|XX1W01700 :X". Try again on the ones ...." :HT(40(F$(X)))2AVT13:CENTER1:A$F$(X):500K1540Y:"RIGHTjSOUND1530zJ100286,J:7,4:768RR116"Press the SPACE BAR to continue"(16384)1601580"1560,16368,06Y:1520%x:"That's not correct"6ySOUND1410G}J1010010]6,J:7,5:768:JgWW1WW$(W)W$(X):FF$(W)F$(X)TS21480:"The correct name is ....":(40(W$(X)))2W$(X)1540:"The correct formula iVT2:17000# G$"E"G$"e"16001 16368,0@ TS11340P LL(F$(X))i (F$(X)(G$,LL)1520s 21400 <L(G$):LL(W$(X)) FLLL1400 PY1L ZL$(G$,Y,1):LL$(W$(X),Y,1) dL$LL$(L$)32(LL$)(L$)32(LL$)1400 nA$F$(X):F$(X)F$(C):F$(C)A$$ tX4 ~:VT1:HT1I TS2SU1:1180R SU0f XSTARTFINISHv :VT1:HT1 VTVT1:VT TS1A$F$(X):1230 A$W$(X) 500 VTVT3:VT TS1ĺ"Enter name":1270 "Enter formula" VT"@@@uk]n9~]jYg]~}~}~]~}j]v5~}n}~{}3}{}@@@@}n}~@}f3YkOKWM@}~}n}~X Y Z [ \ ] hhh`HH ' hh^ `HHHV  V ` Lhhh`,n àϠȥ𬠄𠠠ŠϠÊәĠ̠ m ` 18)`8`HHH n  V H$hb V W X Y m [ l \ ] S ^ T _  ' hhh`HHV ' b i-c ihh`HH$Hȱhhh` LHHHHHHV W L m m  뭒 L   m   (m , r0+p  LJ  LJ -  ȱ  LJ ȱ  LJ s tL m JJJJl ȱm n   ,L, L%" n  :, " +, S l L\DЪ m L\        s t   ަL !8  ::1: hB HIRES INPUT - rB16368,08 |B1:VTK B"===> "T BHT4^ BG$""n BA(16384) BVT:HT1:" " BVT:HT1:(95) BA12717060 B16368,0 BA14117610 BA15517590 BA14717160 !BSOUNDSOUND1:SOU1sulfite,SO3 -2 +$1thiocyanate,SCN -=.1tin II,Sn +2O81tin IV,Sn +4_B1zinc,Zn +2u: PRESS ANY KEY :16368,0:CU$"!/-\":24:"! Press any key":C1:L4:24:1:(CU$,C,1) :KEY(16384):KEY128CC1L(CL):15050xalate,C2O4 -20oxide,O -260perchlorate,ClO4 -O0permanganate,MnO4 -c0peroxide,O2 -2y0phosphate,PO4 -30phosphite,PO3 -30potassium,K +0silver,Ag +0sodium,Na +0strontium,Sr +21sulfate,SO4 -21sulfide,S -2iron II,Fe +2 *0iron II,Fe +3340lead II,Pb +2E>0lithium,Li +ZH0magnesium,Mg +2nR0manganese,Mn +\0mercury I,Hg2 +2f0mercury II,Hg +2p0monohydrogen phosphate,HPO4 -2z0nickel II,Ni +20nitrate,NO3 -0nitrite,NO2 -0oe,H2PO4 -/flouride,F -,/hydride,H ->/hydrogen,H +]/hydrogen carbonate,HCO3 -z/hydrogen sulfate,HSO4 -/hydrogen sulfite,HSO3 -/hydronium,H3O +/hydroxide,OH -0hypochlorite,ClO - 0iodate,IO3 -0iodide,I -  0:/carbonate,CO3 -2*D/chlorate,ClO3 -2=N/chloride,Cl -QX/chlorite,Cl2 -gb/chromate,CrO4 -2l/chromium III,Cr +3v/cobalt II,Co +2/copper I,Cu +/copper II,Cu +2/cyanide,CN -/dichromate,Cr2O7 -2 /dihydrogen phosphat' in place of an answer"B(:"will end a round of questioning."M)15000U)80b. DATA y.acetate,CH3COO - .aluminum,Al +3.ammonium,NH4 +/barium,Ba +2/bismuth,Bi +3/bromide,Br -&/cadmium,Cd +20/calcium,Ca +2."((:" USE ONLY ROMAN NUMERALS."3(15000`("Typing CTRL-S anytime the computer is"(:"waiting for input will toggle the sound"(:"between on and off. (the CTRL-S will"(:"NOT become part of your input)."(::"Typing in 'Ela and the",n(:" sign of the charge."7x(15000\("If you are entering the NAME:"(:"1. You may type the name in upper or "(:" lowercase letters."(::"2. If you want to type in 'IRON II',"(:" don't type in 'IRON 2'r.""(:" (example: +2, -3)"((([2(:" IF THE MAGNITUDE OF THE CHARGE IS 1,";<(:" THEN USE ONLY '+' OR '-', NOT '+1'"F(:" OR '-1'."P(15000Z("3. You MUST have ONE SPACE between the" d(:" last letter of the formuarge MUST be entered in"K':" addition to the formula. A positive";x':" charge is entered as '+', and a"(:" negative charge is entered as '-'." (:" If the charge is greater than 1,"(:" type the sign, then the numbete. Use ESC to shift";A':" between upper and lowercase."h':" ESC = next key uppercase."':" ESC ESC = shift lock."':" ESC in shift lock mode will return"':" you to lowercase'15000':"2. The ion's chto be tested. You can see the name";R`':"and type in the formula, or see the"yj':"formula and type in the name."t'15000~':"If you are entering the FORMULA:"':':"1. You MUST enter lowercase letters"':" where appropriaHȑnhmȑstLS g ^ m  ` ^LLg L@A8m  @0 /@   q@8 @8e@@AiAP`L2Ġ JJJJHȱH ȩȩȩȑhhȩȩȑ /"& &  "  gLS) LSȩȩȩ ȩȩȩ gȭ  ̠̍̍̍̍͠͠͠à̍͠ ̍͠à̍͠Š̍͠Ơ̍̍͠͠͠Π̍Ҡ̍̍͠͠Ԡ̍͠Р̍͠ՠ̍͠Π̍͠Р͠٠̍Ԡ̍͠РĠ̍ Ƞ̍Р̍͠Š̍ҠΠŠӍƠ͠Ԡ̍͠נΠ̍Ҡ̍͠Ϡ̍͠ɠ̍͠Р̍͠Ġ̍ȠŠ̍Ġ̍͠Ƞ̍͠Š̍͠Ԡ̍͠٠̠̍̍͠͠Ƞ̍̍͠͠Р̍͠Π̍͠Р̍͠Ӡ̍͠Š̍͠Ǡ̍͠Ԡ͠٠̍Ԡ̍͠ɠŠ̍ؠΠŠӍà̍͠ ̠̍̍͠͠àҍҠ̍͠Ҡ̍͠Р̍͠Ҡ̍à̍͠ɠ̍͠ӠΠ̍ӠŠӍҠ̍͠Ӡ̍͠٠̍͠ڠ̍͠Π̍̍͠͠͠Ԡ̠̍͠ڠà̍Ǡ̍͠Ǡ̍͠à̍Ӡ̍͠ Š̍ˠΠ̍֠̍͠͠à̍͠͠Š̍ƠΠ̍àԠ̍Π̠̍àҠРӠ̍ӠҠ̍àŠ̍ΠŠӍˠ̍͠à̍͠Ӡ̍͠ԠϠΠ̍ƠŠ̍ΠΠŠӍΠ̍̍̍͠͠͠͠ӠΠ̍ȠΠōȠ͠ŠӍ̠̍͠ ̍͠ Π̍àΠ̍ΠΠ̍          iA$"B":V12:H29:150jA$"I":V12:H31:15IkA$"O":V12:H33:15blA$"T":V12:H35:15{mA$"N":V12:H37:15nA$"R":V14:H3:15oA$"A":V14:H5:15pA$"C":V14:H7:15qA$"H":V19:H5:15rA$"A":V19:H7:15 sA$" ":V1:15_A$"F":V12:H9:156`A$"A":V12:H11:15OaA$" ":V12:H13:15hbA$"E":V12:H15:15cA$"S":V12:H17:15dA$"R":V12:H19:15eA$"T":V12:H21:15fA$"U":V12:H23:15gA$"G":V12:H25:15hA$"L":V12:H27:1517:H11:15$UA$"M":V17:H13:15=VA$"U":V17:H15:15VWA$"D":V17:H17:15oXA$"B":V17:H19:15YA$"Y":V17:H21:15ZA$"O":V17:H23:15[A$"R":V17:H25:15\A$"M":V17:H27:15]A$"B":V17:H29:15^A$"U":V17:H3JA$"B":V10:H31:150KA$"E":V10:H33:15ILA$" ":V10:H35:15bMA$"E":V10:H37:15zNA$"S":V12:H3:15OA$"A":V12:H5:15PA$"A":V12:H7:15QA$"E":V17:H5:15RA$"R":V17:H7:15SA$"D":V17:H9:15 TA$"M":V:15@A$"B":V10:H11:156AA$"O":V10:H13:15OBA$"C":V10:H15:15hCA$"U":V10:H17:15DA$"H":V10:H19:15EA$"D":V10:H21:15FA$"G":V10:H23:15GA$"D":V10:H25:15HA$"N":V10:H27:15IA$"N":V10:H29:15A$"N":V8:H25:15,6A$"A":V8:H27:15D7A$"E":V8:H29:15\8A$"S":V8:H31:15t9A$"E":V8:H33:15:A$"R":V8:H35:15;A$"R":V8:H37:15<A$"B":V10:H3:15=A$"R":V10:H5:15>A$" ":V10:H7:15?A$"R":V10:H9" ":V8:H3:15&+A$"A":V8:H5:15=,A$"C":V8:H7:15T-A$"I":V8:H9:15l.A$" ":V8:H11:15/A$"R":V8:H13:150A$"N":V8:H15:151A$"E":V8:H17:152A$"O":V8:H19:153A$"I":V8:H21:154A$"U":V8:H23:1554:H33:15" A$" ":V4:H35:15:!A$"E":V4:H37:15Q"A$"A":V6:H3:15h#A$"G":V6:H5:15$A$"L":V6:H27:15%A$"I":V6:H29:15&A$" ":V6:H31:15'A$" ":V6:H33:15(A$"L":V6:H35:15)A$"R":V6:H37:15*A$):CLCSCH256:ADRS7,CL:ADRS8,CH:ADRS3M(4);"BLOAD TABLE,A$4000":dA$" ":V2:H3:15|A$"E":V2:H37:15A$"I":V4:H3:15A$"E":V4:H5:15A$" ":V4:H27:15A$" ":V4:H29:15A$" ":V4:H31:15 A$" ":V15000:G (1);0:V:H:" ";T$;" ":24:1:C$:X(X1):X103X1k JJ1:J101J0:22:1:C$:5r 6 ADRS0:(4);"BLOAD RBOOT":520:ADRS(0),"HRCG":ADRS0ADRSADRS65536 CSADRS768:CS:(4);"BLOAD PRINT.SET,A";CS,CH(CS2566,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98 IX75:I99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126 24:9:L$;A$;K$:I(0) (1);1:V:H:"$%";T$;"&*":ILEMENT ";(11);"A";(12);"T WT ";(11);"C";(12);"LASS"[ (1);0;(11):24:2:EL$(X)C X24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,7:22:1:"INPUT THE ATOMIC # OF THE ELEMENT THAT YOU WISH TO EXAMINE. PRESS RETURN.";A$ 22:1:C$:23:1:C$:I(A$):I(I):I1I103ī10 XI:I(0) 1:1:(1);1;(24): 22:1:"A";(12);"T";(11);"# S";(12);"YMBOL ";(11);"E";(12);" ":T$" ":K$(11):L$(12):X1 22:14:"PRESS ANY KEY":23:4:"TO EXAMINE ELEMENT OF YOUR CHOICE":I12000::22:1:C$:23:1:C$ (16384)127ī10X 16368,0:22:1:C$]:10:10:"THE PERIODIC CHART"::15:14:"FORMATTING"::12:12:"BY CARL BOWDEN":20EL$(103):(4);"OPEN ELEMENT":(4);"READ ELEMENT":I1103:EL$(I)::(4);"CLOSE ELEMENT"(15);(20);(16):I(49234):(15);(23):6e C$"      N FOR NO)=>";#8KK$:KK$""15927;KK$"Y"ĺ:170J@KK$"N"1592uA::"IS ANYONE ELSE WAITING TO TRY? "B"(Y FOR YES OR N FOR NO)=>";CA$:A$""1603DA$"Y"ĬEA$"N"1603J:10:7:" * * * T H E E N D * * *"K234`H XN7<6NWRU@ TPhhHNɍ-Ɍ+*+*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh`1:" "$DSOUND17670#$DY132$DZ4014E$D6,Z:7,2:768M$D:Y$EVTVT2_$Ek$ N END q$*Nw$4N}$>N#>DA$"+"A$"-"S1&#HDS117520C#RD(A$)48(A$)5717520U#\DVT1:HT:A$m#fDVT:HT:" ":17530}#pDVT:HT:A$#zDUC1UC0#DSOUND17580#DZ2012#D6,Z:7,2:768#D#D17060#DUCUC1:UC3UC0#D17060$DVT:HT0 "CLL1,"C(G$,1)"+"(G$,1)"-"S0;"CG$(G$,L)F"CHTL4Z"CVT:HT1:" "o"CVT1:HT1:" "z"C17060"CAA128"CA64A9117420"CA$(A)"D17430" DA$(A3232(UC0))"DG$G$A$" DL(G$)"*DHTL4#4DSUB017520ND2SOUND0!B17060)!CA13617380;!CSOUND17210I!CZ1205\!&C6,Z:7,2:768b!0Cn!:CL(G$)}!DCL117320!NCL117290!XCSOUND17290!bCY110!lCZ1256!vC6,Z:7,3:768!C:!CVT:5:" "!CG$"":HT4"C170613500:J::::::i"DO YOU WANT TO SEE THIS DEMONSTRATION AGAIN, "A$" (YES OR NO)";:D$(D$,1)"Y"ė:60::::"BYE !!"::7(N:(24):"LET ME DEMONSTRATE."QX"ONE POSITIVE CHARGE, ONE NEGATIVE"ibX0:Y95:A279:B95ylXX2:AA2vAX2670X,Y:A,B0:X2,Y:A2,B:7620::"PARTICLES WITH OPPOSITE CHARGES ";:"ATTRACT" :JCT" :"2. REPEL"+ :"3. NEITHER"x :"TYPE IN THE ANSWER OF THE ONE YOU THINK IS CORRECT (1,2, OR 3)";:C :: C1ĺ"GOOD JOB, "A$" !" &C2C3āJ135:L(S):L118:L1:J:"WRONG, "A$ 0C1C3520 :J13500:JD7 X2Y158A277B2420( 370N ::"LIKE CHARGES ";::"REPEL"a :J13500:Ji : ::" STATIC ELECTRICITY" : :"WHEN TWO PARTICLES WITH OPPOSITE" "CHARGES ARE BROUGHT TOGETHER, THEY " :"1. ATTRA:A279:B95% XX2:AA2:Y95:B953 X,Y:A,BK "0:X2,Y:A2,B:7[ ,AX30320d 6270o @J16 JXX1:YY2:AA1:BB2 TX,Y:A,B ^0:X1,Y2:A1,B2:7 hJ rXX2:YY1:AA2:BB1 |X,Y:A,B 0:X2,Y1:A2,B1:"RIGHT, "A$" !"K A1A3āJ135:L(S):L118:L1:J:"WRONG, "A$\ A1A3130m J12000:Js | :7 (24):"LET ME DEMONSTRATE WITH" B((1)2):B0B$"POSITIVE" B1B$"NEGATIVE" "TWO "B$" CHARGES" X0:Y95 F:::; P"WHEN TWO PARTICLES WITH THE SAME CHARGE"^ Z"ARE BROUGHT TOGETHER, THEY"s d:"1. ATTRACT" n:"2. REPEL" x:"3. NEITHER" :"TYPE IN THE ANSWER OF THE ONE YOU THINK IS CORRECT (1,2, OR 3)"; A :: A2ġ **STATIC ELECTRICITY**; ** BY **X ** BRANDON WEBER **u ** THE GREEN APPLES ** ** CEDAR FALLS IOWA ** S16336A$(100)(:"WHAT IS YOUR NAME? ";A$2 <::" STATIC ELECTRICITY"     ,"YOU HAVE NOT CORRECTLY CALCULATED THE"H""CONCENTRATION.":922," CON(BASE) X VOL(BASE) CON(ACID) = --------------------- VOL(ACID)"6::"DO YOU WANT TO DO ANOTHER TITRATION?" 7"(Y FOR YES OR ACID IN 500 ML DISTILLED WATER."*922q"ENTER THE VALUE YOU CALCULATED FOR THE ACID CONCENTRATION.":U$(U$)1Ģ((37)2):958:1510U(U$)922:K(UC)240UK2ī1620I1100:SOUND(16336)(16336)I:3(Q2935215,23Q<Q$F+P28ZX1325Ed29,38XLnXVx922fZ16ī1670:"TITRATION SUCCESSFUL"1060:3"THE BASE CONCENTRATION= ";B;" N.":922"THE BASE VOLUME= ";Z;" ML.":922 A;" ML W YOU TO COLLECTDATA THAT WOULD BE SIMILAR TO THE DATA THAT RUTHERFORD, HIMSELF, WOULD HAVE COLLECTED FROM ";"HIS EXPERIMENT.""(HIT SPACE BAR TO CONTINUE) ":A$IA SPEED OF 36 MILLION MILES PER HOUR AND AIMED DIRECTLY AT A THIN PIECE OF GOLD (.0000001 INCH THICK).:"HIT SPACE BAR TO CONTINUE":L$q:" THIS COMPUTER PROGRAM (WRITTEN BY BRANDON WEBER) SIMULATES RUTHERFORD'S EXPERIMENT. IT WILL ALLODISCOVERED THAT SOME ELEMENTSWERE RADIOACTIVE, THAT IS PARTICLES WOULD SUDDENLY SHOOT OUT OF THE ATOMS. HE SET UP A LEAD BOX WITH A RADIOACTIVE ELEMENT, THAT(14):(15):"SHOT OUT A LIGHT WEIGHT,"h"POSITIVELY CHARGED PARTICLE, TRAVELLING AT ING RADIATION, TO HELP BETTER UNDERSTAND THE STRUCTURE OF THE ATOM. HE WAS A STUDENT OF J.J. THOMSON'SAND SET UP HIS EXPERIMENT TO TEST THOMSON'S IDEAS"(7):(17):"ABOUT THE ATOM.""":" HERE IS HOW THE EXPERIMENT WORKS. RUTHERFORD A$\A$"Y"A$"YES"9003fA$"N"A$"NO"890<p830gz"TOTAL SHOTS =";N1:J14000:J:::"DO YOU WANT TO CLEAR THE SCREEN ";A$A$"N"A$"NO"210P12:50"":" IN 1910, ERNEST RUTHERFORD PERFORMEDAN EXPERIMENT US0:XX1,YC:7650,XXX1:YYC=X0Y0790FX,YZ0:XX1,YC:7c700lC1CX1(5(C1.0555))CC.042  J*4(24)>"# OF PARTICLES IN CENTER=";M1H"DO YOU WANT TO DO IT AGAIN ";R :530' D178CC180C180C0:620S N160CC164C164C((1)21)70:620 X164CC171C171C((1)40)21:620 b171CC178C178C((1)29)61:620 l750 vD((1)2) D0700 XXX1:YYC X0Y159790 X,Y0CC157C157C((1)30)46:450K 157CC160C160C((1)30)86T 750d D((1)2)q D0530 XXX1:YYC X279Y159790 X,Y 0:XX1,YC:7 480 XXX1:YYC X279Y0790 &X,Y 00:XX1,YC:7X,Y:320 hC((1)181)) rC160580K |C100C100C0:M1M11:450v 100CC115C115C((1)20)1:450 115CC135C135C((1)4)41:450 135CC143C143C((1)80)8:450 143CC150C150C((1)18)28:450$ 152000:P8 "HOW MANY PARTICLES DO YOU WISH TO FIRE ";? AL A0820W J1Am K115:L(S):K (15):"SHOT # ";J  N1N11 "N3J ,N3N315:N3((N3))B22:150 6X10:Y80 @0:X5,Y:7 JXX5 TX160360 ^10 FB20 P(24)& Z0,7910,796 d0,8010,80F n0,8110,81Z xP12F12:150 "FIRST, THE SOURCE OF RADIOACTIVE PARTICLES" K12000:K 160,73160,87 161,73161,87 B22ı F12210 "NEXT THE GOLD LEAF" P1  ***********************= ** RUTHER **[ ** BRANDON WEBER **y ** ** ** THE GREEN APPLES ** ** NORTH CENTRAL IOWA** ***********************S16336(9402::7 <M     z#Xı  ħӠԠ Ҡ͠Ҡà٠Π  Š"  Ϯ֠"Ϯɠ"ΠƠԠΠϠ"Š٠Π Ԡ Ġ ӠҠ Ǡ ήԠ!ҠΠҠΠàԠԮԠ ҠŠ ҠŠ ̠Π٠̠ Ԡ̠ɠӠҠՠٯ̠Π ŠΠΠΠΠƠŠӠ ɮԠǠŠ ӯԠҠ@uny~}~]fejyfmv]~y~mfy~}v}~}~[}{}{M̓@yj}jmj}j}j}j}jj]jmj}jjmjMj@-???67-?'?@Ճ@}j}jMf}jmjmj~`}j}j}j}jyj]j}j}j{W+WՃ@y~]fm~]v}v}~}~]~]zm~}f]vY~}~@mvmz@mfKYkUk_M̓@]fmvmf@UjUjUjUjUjUjUjUjUjUjUjUjUjUj+U+U+UՃ@}fmf@kOk_k\k_kU@]rmv}vmf]v}gmfmr]f]fmvmz]f]vmf]v[Y@UjUj@Uj+U+U+U+UՃ@UjUjUj@@@mvufej]fmvmvcmvmv]vmz]v]vuvuvkM+W@UjUjUj```````````@UjUj@+U+U+U+U+UՃ@UjUjUjUjUjUjUjUjUjUjUjUjUjUjUjUj+UՃ@]v]v}g6c{6{{6fx{6s6{c@un]vun]fej]fmv]f]vmf]v]vmvmf[qKM[M̓@UjUjUjUjUjUjUjUjUjUjUjUjUjUj@-3;3273-!;@Ճ@UjUjUjUjUjUj`UjUjUjUjUjUjUjUj+U+UՃ@]f]fmv]vuv}vmv]v}zmv}f]vYv}v@}~m~@mfKYkU+]M̓@]fm~mf@UjUjUjUjUjUjUjUjUjUjUjUjUjUj+U+U+UՃ@Mfm~@kLkUk^k]kU@]~m~M~mf]~}gm~m~]f]fmvm~]f]~mf]v[Y@UjUj@Uj+U+U+U+UՃ@UjUjUj@@@m~ufejYf}~mvcmvmv]~m~]~]vuvu~k}+W@UjUjUj```````````@UjUj@+U+U+U+U+UՃ@UjUjUjUjUjUjUjUjUjUjUjUjUjUjUjUj+UՃ@]v]~Mf>{66gfn6>{c@5k]~un]fuk]fmv]~]v}f]vYvm~m~[]K}[M̓@UjUjUjUjUjUjUjUjUjUjUjUjUjUj@?;3333>33??33@Ճ@UjUjUjUjUjUj`UjUjUjUjUjUjUjUj+U+UՃ@]~]f}~]~u~Mvm~]~m~mvMf]~Y~Mv@}zmv@mfkYkW+MM̓@]f=zmf@UjUjUjUjUjUjUjUjUjUjUjUjUjUj+U+U+UՃ@Mfmv@kLkUk^k]kW@]fmzMzm]zmf=vmf]f]mvmv]f]fmf]v[Y@UjUj@Uj+U+U+U+UՃ@UjUjUj@@@=fufejYf}fmvc=v=~]zmv]z]vuvufkm+W@UjUjUj```````````@UjUj@+U+U+U+U+UՃ@UjUjUjUjUjUjUjUjUjUjUjUjUjUjUjUj+UՃ@]~]zMf>{{>6oc>p>{c @uk]zun]fyk]fmv]v]v}f]vYvmzmv[Mkm[M̓@UjUjUjUjUjUjUjUjUjUjUjUjUjUj@?;????@Ճ@UjUjUjUjUjUj`UjUjUjUjUjUjUjUj+U+UՃ@]v]f}z]~u~Mvmz]fmvmvMf]~YfMv                Z ::3:16)"75 CENT":6)"PUBLIC DOMAIN PROGRAM DISKS":::12)"DISTRIBUTED BY:"::12)"ASPEN SOFTWARE"::6)"729--1/4 E. PORTLAND STREET":8)"PHOENIX, ARIZONA 85006":7)"TELEPHONE: (602) 253-0651"1 ::10)"WITH SPECIAL THANKS":8)  OGRAM START  TS310000$ :@ START1:FINISH60:TRY1a $11:1:"Reading data ....."u .XSTARTFINISH 8W$(X),F$(X) BX L11:1:"Randomizing data ....." VXSTARTFINISH:C((8)FINISH)1 `A$W$(X):W$(X)W$(C):W$(C)A$ jry!" 6,10:7,150:7689 23:1:" "B 170]  SUBSCRIPT PRINTOUT m L(A$):S0x J1L L$(A$,J,1) L$"+"L$"-"S1 &S1570 0(L$)48(L$)57SK1 :VTSK:HTJ1:L$ DSK0 NJ X  PR14:"THE Ion Test"> 10:1:"Which format would you like?"j 12:1:"1. Given FORMULA, enter NAME" 14:1:"2. Given NAME, enter FORMULA" ::"3. Get instructions" VT21:17000 TS(G$) TS1TS31000 23:"Invalid ent~ INITIALIZE 7W$(60),F$(60),WW$(60),FF$(60)CSOUND1N16384b((24576)72802(4);"BLOAD HIRES CHAR"<(4);"BLOAD CHAR TABLE"F8000PZ54,0:55,96d1:13:"Larry Seltzer"n3:12:"proudly presents" x6:                I,J:.'769,100:: DURATION$8'( 5>>>&%-.&'76666666666666&''..%%>&>$$$$$$$>>>.--%''7666666666e 5>>>&%-.&'76666666666666&''..%%>&>$$$$$$$>>>.--%''76666666661& 80,100P1,100P1,1500 0 P28013.125J 80,125P2,125P2,150P b P38019.685| 80,138P3,138P3,150 ' : GENERATES MUSIC TONES' 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174, 0,3,76,2,3,96 $'I770790:J:R t :CALC. % REMAINING6R100(D900)100\PP1: TIME PERIOD OF 100 UNITSn805P,150RRR(R10)1022:RR;"% REMAINING AFTER ";T;" DAYS " PITCHPITCH1768,PITCH 770::TONE ROUTINE* P1806.5651500:Q:!:PLOT DECAY7PAUSE(200(1))IQ1PAUSE:QP0[X1,Y1kA(X1,Y1)1$DD1::DECAY COUNTER.381B0:326,0L16:352,26V32:326,52`48:30,26j768,40:769,3:770: :CLICK SPEAKE l32:326,52 v48:30,26- P296606 510X 24:"HALF LIFE IS 656 DAYS."f 16368,0w KY(16384) KY128680 16368,0 : 10 "DO YOU WANT TO DO THIS AGAIN? ";Q$ (Q$,1)"Y"240 :10:20)"OK"QME COUNTER( (T100(T100))0İ2000J (FLAG1R50)ĪFLAG2:3100l (FLAG2R25)ĪFLAG3:3200 &(FLAG3R12.5)ĪFLAG4:3300 0X110(30(1)1) :Y110(30(1)1) DA(X1,Y1)0ī650 N1000 X0:326,0 b16:352,262 r0,QA52,QA |QA2 :DRAW AXES OF GRAPHL 80,5080,150250,150^ QW5014010o 75,QW80,QWw QW 70,5080,50 70,10080,100 QW852505 QW,153QW,150 QW QW13023050 QW,156QW,150:QW TT1::TITS WHICH HALFLIFE IS PLOTTEDF R100::THIS IS % REMAINING INITIALLYh 10000::SETS UP TONE ROUTINE PITCH15: :INITIAL TONE "A(40,40) ,:3 6D$""::CNTRL D @D$;"BLOAD RADIO" T232,128:233,17 ^: DRAW "REACTOR" hQA05ROGRAM REQUIRES"6 "THAT THE FOLLOWING BINARY FILE"Y "IS ALSO PRESENT ON THE DISK"_ r 17)"'RADIO'"| :: "PRESS SPACE BAR TO BEGIN" KY(16384) KY128200 16368,0 :LOAD BINARY FILES :16384 FLAG1: SE  :16384+10)"RADIOACTIVE DECAY"1I(13)"A SIMULATION"O2v<7)"H.EDELSTEIN MARCH 3,1980"|FP"DEMONSTRATES THE CONCEPT OF 'HALF LIFE'"Z"AS A MEASURE OF AN EXPONENTIAL DECAY"d"PROCESS."n x"NOTE: THIS P     >"" **"""""">*"""">"*">""""""*"""*">">"""""""*"*" *""""&"*"&&"""2*"""""""""*"""""""""""""""""*"""&""""""""""""*" &""2""""""""6"""""6""""""""6""""""""""""""""6"""""""""""""""6""""&>">>">>"""<">>>>">">>>>>>>">">>">>>"">"">>"> "">">">>>>">>">>">">>">">>           16299,0l J110'v SO(16336). J5 I; H PLOP SX12dX4007,4008v230,32:4010230,6454,0:55,96T1(2SG)5:10:(T1100.5)100;" "10:"0 "10:(T1G100.5)100;" "X40,3050 230,32:3060+ 230,64:30602 0R X(SCREEN)5,6X(SCREEN),12t  X(SCREEN)5,6X(SCREEN)5,6  1X(SCREEN),26  3 & 1150,26 0 145,6146,12 : 155,6154,12 D 145,6155,6 N SCREEN3160,3170 X 16300,0:3180 b.A$ .10 A."  12000'L(A$),'(40L)2);A$7$'Y1LO.'(40L)2Y1:"-";U8'[='aB'i*24o+ +"PRESS THE SPACE BAR";+ +A$*+A$" "ĺ(7):110404+.:."TO GO BACK TO THE MAIN MENU,".:"PRESS ANY KEY." :"WHEN THE COMPUTER HAS FINISHED PLOTTING"` :"THE PROJECTILE, YOU WILL HEAR A CLICKING" "SOUND. THIS SOUND INDICATES THAT THE" :"COMPUTER HAS FINISHED PLOTTING, AND YOU" :"SHOULD PRESS THE SPACE BAR TO RETURN" :"TO THE MENU"THE FIRST TWO PARAMETERS, WHICH ARE THE"Yn :"ANGLE OF INCLINATION, AND THE INITIAL"x :"VELOCITY. THIS IS BECAUSE THEY BOTH" :"ARE EQUAL TO ZERO WHEN THE PROGRAM IS" :"RUN FOR THE FIRST TIME." 11000  A$NM$(X):10000.AMETERS DEALING WITH THE"FS :"PROJECTILE. TO CHANGE A PARAMETER,"tT :"TYPE IN THE NUMBER OF THE PARAMETER,"U :"RETURN, THE CORRECTION, AND RETURN AGAIN"V 11000W X A$NM$(X):10000Z :"TO USE THE PROGRAM, YOU MUST CHANGE"*d :ICALLY"B 12000( :X4?2 A$"PROJECTILE PLOTTER":10000n< :"THIS PROGRAM ALLOWS YOU TO ENTER SOME"F :"DATA ABOUT A PROJECTILE AND SEE IT"P :"PLOTTED ON THE SCREEN."Q :"WHEN YOU RUN THE PROGRAM, YOU WILL SEE"R :"A LIST OF PARSE ENTER YOUR ANSWER AND THEN PRESS"T:"RETURN TO ALLOW THE COMPUTER TO ACCEPT"`:"IT.k 11000q  A$"PROJECTILE MOTION TUTORIAL":10000$ :"WHEN THE TUTORIAL IS FINISHED, THE". :"PROJECTILE PLOTTER WILL BE RUN"8 :"AUTOMATHIS"3:"PROGRAM. WHENEVER THE SCREEN BECOMES"d:"FULL WITH WRITING, YOU WILL BE ASKED TO":"PRESS ANY KEY. YOU CAN PRESS ANY KEY":"EXCEPT THE RESET, SHIFT, OR CTRL KEYS.":"WHEN YOU ARE ASKED TO ENTER AN ANSWER,"$:"PLEAE CORE OF SAN FRANCISCO BY THE APPLE PI CLUB JULY 1979 MOD. TO ADD LAST LINES TO SHOW ACQUISITION.. JULY 1979.. LAST MOD. AUG. 1979  'TITRATION'$ T730 >W18HYY1 R2080&\:fF0:J0:K0:L0DpJJ1KzJ_0,39K:0,39LoKK1:LL1J10ī2160J0:FF1F3ī224021600:0,39K:0,39LKK1:LL1K0ı2240:N DONATED TO APPLO THE ACID."vZ0:W18:Y0%A$0B$"T"AA$B$ī1960K1920XZZ1:2_2lX2228v19,X}X18,2029X22280:19,XX1:18,2029 0:W,Y:WW1W21ī2110 1110*Z60ī192041:2420815:0,2017:0,2021P17,1821:20,2121r2:0,2020:0,2119:0,2018&15:29,3912:29,3926:12,2639029,3912:1DX1325N29,38XXXb922:922 l"PRESS T TO ADD THE BASE T0Th21406rI020:"CONGRATULATIONS!!!!!!"D|::1590"REPEAT TITRATION WITH WEAKER BASE OR LARGER SAMPLE ACID."1060:2420:"BURET EMPTY! REPEAT TITRATION WITH A STRONGER BASE OR LESS ACID."1060 PVE05300IZAA2:PP2:EE2:PEU2:EZK2:SRDS2:JJ2:WW2:ZZ1W\d200:F2X:G2YkiTY15240nXM2:YN2:0:100xXF2:YG2:M2X:N2Y:3:100 (5200-5240) SET UP VALUES FOR EARTH AND PLOT EA05400AA3:PP3:EE3:PEU3:EZ (5100-5140)SET UP VALUES FOR MERCURY AND PLOT>ME05200uAA1:PP1:EE1:PEU1:EZK1:SRDS1:JJ1:WW1:ZZ1W200:F1X:G1YTY15140 XM1:YN1:0:100XF1:YG1:M1X:N1Y:3:100F (5200 - 5240)SETUP VALUE FORVENUS AND PLOT HIGH RES,FULL SCREEN, PAGE 2#e (4805-4860)PLOT REFERENCE POINTS AND OUTER 10 DEGREE CIRCLEl3X140:Y96:100X141:Y96:100X248:Y96:100L10Q2136Q2XX1(L1)105.9YY1(L1)105.9FA100L1/$DT1DT04020#DT14060-::Y"ENTER # OF DAYS SINCE JAN 0,1980 ";DEcZ1DE::"ENTER # OF DAYS TO PLOT ";DN::"ENTER # OF DAYS BETWEEN PLOTS ";DADA04800:"0 NOT ALLOWED":4070 4800 INIT5.5Q180W62115%SA1TT.1/<::G:"DO YOU WANT ":r"POINT (0) OR CONTINUOUS(1) PLOTS";TYTY0TY14000:::"DO YOU WANT TO START AT":"A SPECIFIC DATE (0)":"OR THE BEGINNING OF THE YEAR (1) ";DT78A5507.046460.595/P5A5(1E5E5)2;K51E5HU5P5E5ZJ513.6Q180fW51604wJU1TT.19"DISPLAY SATURN ";SAS610825.863E6.0555A6937.541838.425P6A6(1E6E6)2K61E6U6P6E6 J6980 W33EA1TT1.059"DISPLAY MARS ";MAHS4686.980UE4.0934lA4154.936128.471P4A4(1E4E4)2K41E4U4P4E4 J4355.7Q180 W4289 MA1TT.6 "DISPLAY JUPITER ";JU S54332.125E5.04A267.72666.813)P2A2(1E2E2)25K21E2BU2P2E2UJ2131.3Q180bW2140.5sVE1TT1.5"DISPLAY EARTH ";EAS3365.256E3.0167A394.55591.445P3A3(1E3E3)2K31E3U3P3E3J3102.6Q1CTED PLANETS ARE DISPLAYED7"DISPLAY MERCURY ";MEES187.969RE1.0167gA143.40328.597}P1A1(1E1E1)2K11E1U1P1E1J177.1Q180W137.58ME1TT2.3"DISPLAY VENUS ";VES2224.701E2.00681*E1)/2 /  E1=ECCENTRICITY:U1=P1/E1:K1=1/E1f  REM A1=MINIMUM AND MAXIMUM DISTANCE FROM THE SUN  J1=LONGITUDE OF PERIHELION IN RADIANS  W1=DAYS FRON 0 DEGREES TO PERIHELION FOR 1980 TT=SCALING FACTOR TO USE FULL PLOTTING AREA IF SELE04000 ?:; D:"YOU HAVEN'T PICKED THE PLANETS YET"E N::s "CHOOSE THE PLANETS YOU WANT TO DISPLAY"y  "ENTER A 1 FOR YES AND A 0 FOR NO"  (2020-2079) GET SPECITIC VALUES FOR EACH PLANET  S1=ORBITAL PERIOD:P1=A1*(1-EP  FA IS THE RATIO OF X TO Y TO PLOT A CIRCLE AN THE APPLE INSTEAD OF AN OVALa $X1140:Y196o :::: "DO YOU WANT TO DISPLAY" :"THE SAME PLANETS AS YOUR LAST RUN" "Y OR N ";A$ : &A$"N"2000 0A$"Y"1800 :S1TERCLOCKWISE.# DSRD2V1Q2V1/ V1V1JM X(V1)RV:Y(V1)RVFAe "XXTTX1:YYTTY1k ,  (1000)DISPLAY PRIMARY PAGE,SET TEXT MODE 16300,0:16303,0 T1.5708 Q3.14159265 Q26.2831853 VL.99999999 FA2932E RV IS THE RADIUS VECTOR OR DISTANCE FROM THE SUN TO THE PLANETT VPERVEZc V1VVLt V1VVL V1(V(VV1))T3.1415927 V1 IS THE ANGLE THAT THE PLANET LIES FROM THE SUN. THE 0 POINT BEING AT THE RIGHT, INCREASING COUN * SOLAR SYSTEM *8 * SIMULATOR * BU1000fZ (100-110) PLOT X AND Y VALUESodX,Yun (200-300) CALCULATE THE X AND Y PLANET POSITIONSDZ(ZSRD)SRD D IS FOR DAYSBQ(DSRDQ2) RVA(P(1E(B)))           PB"p 5,"ALL OXIDES ARE INSOLUBLE EXCEPT: RULE 1 AND GROUP II (BE, MG, SR, BA, RA, CA) WHICH WILL REACT" 6,"ALL HYDROXIDES AND SULFIDES ARE INSOLUBLE EXCEPT RULE 1 AND GROUP II (2A ON TABLE)" 7,"EVERYTHING NOT ABOVE MENTIONED-1,CL,-1,F,-1Gx 1,"ALL NA, NH4+1, AND K COMPOUNDS ARE SOLUBLE"|2,"ALL NITRATES, ACETATES, AND CHLORATES ARE SOLUBLE"}3,"ALL HALIDES ARE SOLUBLE EXCEPT: AG, HG, PB"~4,"ALL SULFATES ARE SOLUBLE EXCEPT: BA, CA, SR, RA,OSPHATE,PO4-3,ARSENATE,ASO4-3,CUPROUS,CU+1,CUPRIC,CU+2FERROUS,FE+2,FERRIC,FE+3,STANNOUS,SN+2,STANNIC,SN+4,PLUMBOUS,PB+2,PLUMBIC,PB+4,MERCUROUS,HG2+2,MERCURIC,HG+2 BE,+2,LI,+1,ZN,+2,AG,+1,H,+1,NA,+1,K,+1,MG,+2,CA,+2,BA,+2,AL,+3,O,-2,S,-2,BR,-1,I,LO-1,CHLORITE,CLO2-1,CHLORATE,CLO3-1,PERCHLORATE,CLO4-1,PERMANGANATE,MNO4-1,NITRATE,NO3-1~ HYDROXIDE,OH-1,NITRITE,NO2-1,CYANIDE,CN-1,CARBONATE,CO3-2,SULFITE,SO3-2,SULFATE,SO4-2,MANGANATE,MNO4-26OXALATE,C2O4-2,CHROMATE,CRO4-2,DICHROMATE,CR2O7-2,PHM,AG,SILVER,CD,CADMIUM,SN,TIN,SB,ANTIMONYI,IODINE,CS,CESIUM,BA,BARIUM,W,TUNGSTEN,PT,PLATINUM,AU,GOLD,HG,MERCURY,PB,LEAD,BI,BISMUTH,U,URANIUMLACETATE,C2H302-1,AMMONIUM,NH4+1,BICARBONATE,HCO3-1,BISULFATE,HSO4-1,BISULFITE,HSO3-1Y`HYPOCHLORITE,C,PHOSPHORUS,S,SULFURtCL,CHLORINE,AR,ARGON,K,POTASSIUM,CA,CALCIUM,SC,SCANDIUM,TI,TITANIUM,V,VANADIUM,CR,CHROMIUMMN,MANGANESE,FE,IRON,CO,COBALT,NI,NICKEL,CU,COPPER,ZN,ZINC,AS,ARSENIC,BR,BROMINE)KR,KRYPTON,RB,RUBIDIUM,SR,STRONTIUM,MO,MOLYBDENUP60ĺ"BY YOUR SCORE, YOU MUST BE FAILING..."W22:"ANOTHER ROUND? ";:V$:V$"N"Āa:50H,HYDROGEN,HE,HELIUM,LI,LITHIUM,BE,BERYLLIUM,B,BORON,C,CARBON,N,NITROGEN,O,OXYGENF,FLUORINE,NE,NEON,NA,SODIUM,MG,MAGNESIUM,AL,ALUMINUM,SI,SILICON,P"GOOD SHOW":690)"EXCELLENT":690;"JOLLY GOOD"NKI11000:KIUJo:P(((QWR)Q)100)4:NAM$;", YOU DID ";QWR;" CORRECTLY"::"OUT OF ";Q::"THAT'S ";P;"% RIGHT.":P89ĺ"FINE JOB--YOU'VE STUDIED ENOUGH."-ELLED...TRY AGAIN":Z1Z11:6455"FORGET IT. . ."AWRWR1RWR3ĺS$(1)hWR2WR6ĺS$(2)WR5WR10ĺS$(3)WR9ĺS$(4)KI1500:KI::"RIGHT ANSWER: ";Q$(R(J)):KI11000:KI:690R1((1)3)1:R1682,684,686RONG, "NAM$ bJ1Q l@ v:"THE ";P$;" IS: ";:C6ĺN {A$(R(J))W ~Z10 ::"NOW, ";NAM$;", GIVE THE"::"CORRESPONDING ";I$;": "; "";A$:: A$Q$(R(J))680 C1C3665 Z10662(A$,3)(Q$(R(J)),3)ĺ"MISSP0 K1J1! R(J)R(K)510( &K/ 0JZ XS$(1)"OOPS, WRONG. THAT'S OK, "NAM$ ZS$(2)"WRONG; THINK A LITTLE HARDER, "NAM$ \S$(3)"WRONG AGAIN. YOU'RE TRYING MY PATIENCE, "NAM$ ^S$(4)"STUPID! IMBECILE! MORON! IDIOT! YOU'RE W(I),A$(I) 8C3ćA$(I),Q$(I)' :I3 <I117@ =C5400Q >A$(I),Q$(I)X @Ie AC6400p BI17 DQ$(I),A$(I) FI :5:"HOW MANY QUESTIONS, ";NAM$::"(1 - ";N;"): ";:Q: QN400 J1Q R(J)((1)N)1 J156300' N33:P$"SYMBOL":I$"NAME":300K N33:P$"NAME":I$"SYMBOL":300{ N17:P$"ELEMENT":I$"OXIDATION STATE":300 N7:P$"RULE":I$"RULE # " ,I150 .C1ćA$(I),Q$(I) 0C1ćQ$(I),A$(I) 2I 3C3400 4I133 6C3ćQ$ADICAL SYMBOLS". " 5. OXIDATION STATES"T " 6. SOLUBILITY RULE NUMBERS"} :"GIVE NUMBER OF CHOICE: ";:"";C$ C(C$):C1C6170 C200,205,210,215,220,230 N50:P$"SYMBOL":I$"ELEMENT":300 N50:P$"ELEMENT":I$"SYMBOL":Q$(50),A$(50),R(50): ::10:"YOUR NAME? ";NAM$H2:3:WR0qd6)" C H E M I S T R Y D R I L L"x8:"WHICH WOULD YOU LIKE TO GIVE:":" 1. ELEMENT NAMES"" 2. ELEMENT SYMBOLS"" 3. RADICAL NAMES" " 4. R     FST(FSFS)(220)S r2:23:958:"SPACE BAR TO CONTINUE ";:A$:A$" "370:a |21:958m ZPZP1| ZP8ZP1 ZP1đ ZP1470 H027550 H150HH2 H250H250 7:H,0H,159:H B2:C3:16304,0H5(ZPDTDBRT 5 "MILES PER HR..............";MP; f ""FEET PER SEC..............";(FS.5)l , 6"REACTION DISTANCE.........";(RT.5) @ J"BRAKING DISTANCE..........";(DB.5) T ^"TOTAL DISTANCE............";(DT.5) hDT:958:"BETWEEN .01 AND 1.0 ";T$> T(T$):T0160Q T.01T1160a FSMP1.467n VVFSFSz RTFST 11:958:"YOUR BRAKES ARE (1) GOOD OR (2) BAD ? ";DB$:DB(DB$):DB1DB2220 DB1DBVV(220) DB2DBVV(217) OUR CAR ? ";MP$:MP(MP$):MP0110q xMP82ĺ:::"TOO BAD YOU GOT A TICKET FOR SPEEDING":Y12000:Y::110 MP0110 MP10Ė5:7:"NOT FAST ENOUGH, TRY AGAIN ":Q11500:Q:958:110 958:4:7:"WHAT IS YOUR REACTION TIME ") 7:9THE SPEED OF YOUR CAR": <7:14:"2) YOUR REACTION TIME"^ F7:16:"3) GOOD OR BAD BRAKES" K6:20:"AVERAGE REACTION IS .75" M P2:23:958:"SPACE BAR TO CONTINUE ";:A$:A$" "80 ZZP0 d:# n3:5:958:"WHAT IS THE SPEED OF Y(L$",")(X1FINISH:X"(J,(" ";9(CURRENTE(VTVT2K($(WRD$,J,1)>Z(L$"@"L$"&"JJ1:LL064(L$"&"):10320Jd(I(L$)^n(I65I90LL0lx((ILL);~(SOUND10450(L$" "10450(X12(S(16336)(X(L$" "L$"."L$","10450(FINISH20150(L$" .")75URRENT,KCURRENT)'CURRENTK4'LW(WRD$):NLLWU'LW0SPACESSPACES1:10460f'K1(WRD$)'(WRD$,K,1)"@"NLNL1'K(SPACESNLWIDTH10280 (VTVT2(1(SPACE0((SPACESSPACESNL12(VT<(J1LWF(LL32 P(LINTER '54,0:55,96#$'L(A$)+.'VT?8'CENTER010120GB'I0RL'K1L\V'II1`'(A$,K,1)"&"(A$,K,1)"@"II1j'Kt'(40I)2~'10130'1'SPACES0'CURRENT1L'KCURRENTL'(A$,K,1)" "ĂK'WRD$(A$,CX1,3#X,2#X'#X25025425#X,5X,29<#XK#X271279Y#X,5X,50`#Xs$0,191279,191}$1:5$54,0:55,96$"Time: 0""$"Height: 1000",$"Veloc.: 0"6$"Accel.: 0"@$SCREENJ$' LOWER CASE PR(# SET UP SCREEN #2#SCREEN129<#SCREEN9030,9040KF#230,32:9050]P#230,64:9050qZ#279,191260,30d#210,30191,191n#260,30191,191x#279,191210,30#140,0279,0#140,4279,4#X2781405#X1,1:X1,1#X1,3:3 01G9.8*Y1(1)267Y1(2)26=R@ MUSICAL POKESJ768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7T776,240:777,8:778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,03:786,96^16299,0NJ17502*X6,J:7,2:7681bJ7lJX INITIALIZE ib(768)173(786)967060sl8000v(4);"BLOAD MAN,A$7000"(4);"BLOAD CHAR TABLE"(4);"BLOAD HIRES CHAR"232,00233,11216302,0ENSCREEN1:SCREEN3SCREEN14SCREEN4320,4330F230,32:4340X230,64:4340g1150,191|145,191155,191130,190162,190143,189158,189147,188154,188&149,187152,1870SCREEN4410,4420:16300,0:4430DREEN3SCREEN1%TSCREEN4190,42007^230,32:4210Ih230,64:4210_r1150,Y1(SCREEN)l|1150,0143,190157,190146,189153,189147,188152,1886,15:7,1:768SCREEN4280,429016300,0:430016299,0SCRE'SCREENSCREEN1:SCREEN3SCREEN1=SCREEN4080,4090O230,32:4100a230,64:4100w1150,Y1(SCREEN)1150,191145,190155,190"149,189151,190,SCREEN4150,4160616300,0:4170@16299,0JSCREENSCREEN1:SC  MAY 18, 1980  :7 :::HELP::YOURSELF:::S X**********************Y bt l DONATED TO APPLE PI v BY ED HANLEY  JULY, 1980  **********************d DI$DI$T$(I) I& DI(DI$)< T$(N1)"C"1000R T$(N1)"F"2000n  CHECK FOR INPUT ERROR "DEGREES =";DI "C OR F?";:M$: M$""Ā M$"C"1000 M$"F"2000 : p BY ED HANLEY z AT REMINGTON, INDIANA"Ā A$"N"150" *"OK.":3  INPUT LOOP; N1E NN1P T$(N)\ T$(N);m T$(N)""Ā T$(N)"C"4500 T$(N)"F"4500: CONCATENATE 4010  CONCATENATE   NN1: CUT OFF'C' OR 'F' DI$"" I1N DO(1.8DI)32% DOROUND(DO)G DI;" DEG. C = ";DO;" DEG. F"M W 2050r  FARENHEIT TO CELSIUS DO(DI32)1.8 DOROUND(DO) DI;" DEG. F = ";DO;" DEG. C"  "ANOTHER CONVERSION? (ANY KEY OR 'N')"; A$: A$""HIT ANY KEY TO START.":A$:, A$""Ā@ START PROGRAM_ ROUND(X)(X100.5)100e l 8~ "DEGREES? "; 4000: INPUT LOOP TYPE$: TY$""Ā TY$"C"1000 TY$"F"2000 9 180  CELSIUS TO FARENHEIT6 TEMPERATURE CONVERSION PROGRAM BY ED HANLEYBT$(20)HdPi10yn"THIS PROGRAM WILL CONVERT DEGREES"s"CELSIUS TO FARENHEIT AND DEGREES"x"FARENHEIT TO CELSIUS."}:"ENTER DEGREES FOLLOWED BY 'C' OR 'F'.":   <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>   `H XN7<6NWRU@ TPhhHNɍ-Ɍ+*+*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh` 0VHV0(AN)!$VVV0(AN)7.VH(VH10.5)10M8VV(VV10.5)10ZBCENTER1LA$"V = "(V0)" X @C@O@S "(TH)(2)" = "(VH):10000VVTVT1`A$" H"(" ",(A$)5):10000 jA$"V = "(V0)" X @S@I@N10000VTVT1.A$" H O ":10000OA$"V = V @S@I@N @A":10000[VTVT1xA$" V O ":10000CENTER0A$"@WHEN WE PUT THE GIVEN INFORMATION INTO THESE FORMULAS, WE GET...":10000V030:TH45ANTH3.14159265318LL GET, AND HOW FAR AWAY WILL IT LAND.":10000915000A$"@FIRST, WE HAVE TO FIGURE OUT THE HORIZONTAL AND VERTICAL COMPONENTS FROM THE GIVEN DATA. @THE FORMULAS THAT HAVE TO BE USED TO DO THIS ARE:":10000CENTER1A$"V = V @C@O@S @A":RE IS A BRIEF DEMONSTRATION PROBLEM TO ILLUSTRATE HOW TO SOLVE PROJECTILE MOTION PROBLEMS.....":10000rVTVT1.A$"@A BALL IS FIRED FROM A CANNON WITH AN INITIAL VELOCITY OF 30 M/SEC AND AN ANGLE OF INCLINATION OF 45"(2)". @HOW HIGH WILL THE BA0 d5230nVTVT1xA$"@THIS IS WHY YOU WILL HAVE TO FIND THE TIME THAT A PARTICLE STOPS BY USING THE VERTICAL COMPONENT, AND THEN USING THAT TIME IN THE HORIZONTAL COMPONENT FORMULA.":1000015000p HORIZONTAL PROBLEM fzA$"@HE((G$)47(G$)5852102A$"@I CAN'T FIGURE OUT WHAT YOUR ANSWER IS, BUT THE CORRECT ANSWER IS THAT IT WILL NEVER STOP!":10000<5230FA$"@THAT'S CORRECT!":10000P5230ZA$"@THAT'S NOT CORRECT. @THE SPACESHIP WILL NEVER STOP.":10001000017000"G$"H"5100MA$"@NO HINTS ON THIS PROBLEM!":10000X17000c:VT1(G$,8)"IT WON'T"5190(G$,11)"IT WILL NOT"5190 (G$,13)"IT WILL NEVER"5190(G$,5)"NEVER"5190(G$,10)"AT NO TIME"5190T TA$"@NOW LET'S EXAMINE THE HORIZONTAL COMPONENT OF PROJECTILE MOTION.":10000iCENTER1:VTVT1A$"PROBLEM 2":10000CENTER0A$"@A SPACESHIP IS TRAVELLING AT 1000 M/SEC IN A FRICTIONLESS ENVIRONMENT. @AT WHAT TIME WILL IT STOP?":V0)GS12GTTV0T.S(S10.5)10C(SAN).64410oA$"@SORRY, THAT'S NOT CORRECT.":10000&A$"@THE CORRECT ANSWER IS "(S)" METERS.":1000004420:A$"@THAT IS CORRECT!!":10000D15000N HORIZONTAL COMPONEN+ V T":10000 VTVT39 A$" 2 ":10000Y A$" O ":10000f CENTER0 A$"@HOW HIGH (IN METERS) DOES THE BALL GET WITH AN INITIAL VELOCITY OF "(V0)" M/SEC?":10000 17000 :VT1 AN(G$) V0T(VZERO AT THE HIGHEST POINT.":10000^ hA$"@USE THE EQUATION: V=GT+VO AND SOLVE FOR T.":10000 rA$"@THIS IS THE TIME AT WHICH THE BALL REACHES ITS HIGHEST POINT.":10000 |A$"@NOW SUBSTITUTE INTO THE EQUATION:":10000 CENTER1 A$"S=1/2 GT T BEGINS TO FALL BACK TOWARDS THE @EARTH?":10000= ,VTVT1z 6A$"@ENTER YOUR ANSWER OR '@H' IF YOU NEED HELP.":10000 @17000 J(G$,1)"H"4310 T:VT1" ^A$"@TO COMPUTE THE ANSWER TO THIS PROBLEM, FIRST USE THE FACT THAT THE VELOCITY IS VERY SIMPLE PROBLEM.":10000' 15000@ V0(((8)10)1)10M CENTER1h A$"@PROBLEM 1":10000u CENTER01 "A$"@A TENNIS BALL IS THROWN DIRECTLY UPWARDS WITH AN INITIAL VELOCITY OF "(V0)" M/SEC. @HOW HIGH (IN METERS) WILL IT GET BEFORE IE SAME TIME TO GO UP AS IT DID TO GO DOWN.":10000 A$"2. @THE VELOCITY CHANGED FROM POSITIVE TO NEGATIVE AT THE HIGHEST POINT (IT WAS ACTUALLY ZERO AT THIS POINT)." 10000:VTVT1 A$"@NOW LET'S USE THESE TWO FACTS TO COMPUTE THE ANSWER TO A $  900040005000)(6000327000=<8000GF8200[P54,189:55,158rZ(4);"RUN PRO.VI" EXPLANATION A$"@SOME THINGS YOU SHOULD HAVE NOTICED IN THIS EXAMPLE ARE:":10000VTVT12 A$"1. @THE BALL TOOK TH          . PROJECTILE PLOTTER"D :"WHICH WOULD YOU LIKE INFORMATION ON?"T15:"===>"c 15:5:A$o*A(A$)}4A12200>A22600H(7)R2080:X3A$"PROJECTILE MOTION TUTORIAL":10000:"VERY LITTLE HAS TO BE DONE DURING TT IS OVER, THE PROGRAM WILL"=:"RETURN TO THE MAIN MENU"H12000NpA$"PROJECTILE MOTION":10000:"THE PROJECTILE MOTION LESSON PROGRAM IS":"BROKEN UP INTO TWO PARTS. THEY ARE::"1. PROJECTILE MOTION TUTORIAL":"2, @:"FREEFALL DEMONSTRATION WILL BE RUN"D J:"AUTOMATICALLY."O T12000Y :X2 A$"FREEFALL DEMONSTRATION":10000 :"NOTHING AT ALL HAS TO BE DONE DURING" :"THIS DEMONSTRATION." ::"JUST SIT BACK AND ENJOY."::"WHEN I"WHEN YOU ARE ASKED TO ENTER AN ANSWER,"X :"PLEASE ENTER YOUR ANSWER AND PRESS THE" :"RETURN KEY TO ALLOW THE COMPUTER TO" :"ACCEPT YOUR ANSWER." 11000 " ,A$"FREEFALL TUTORIAL":10000 6:"WHEN THE PROGRAM IS FINISHED, THE"VERY LITTLE HAS TO BE DONE DURING THE"R :"RUN OF THIS PROGRAM. WHENEVER THE" :"SCREEN BECOMES FULL WITH WRITING, YOU" :"WILL BE ASKED TO PRESS ANY KEY. YOU CAN" "PRESS ANY KEY EXCEPT THE RESET, SHIFT," :"OR CTRL KEYS."( ::"1. FREEFALL TUTORIAL"? :"2. FREEFALL DEMONSTRATION."o $::"WHICH WOULD YOU LIKE INFORMATION ON?" .15:"===>"; 815:5:A$:A$ BA(A$) LA11500 VA21700 `(7):1080 :X1 A$"FREEFALL TUTORIAL":10000& :" PROGRAM"9 Q:"THAT YOU WOULD LIKE INFORMATION ABOUT."I Z19:"===>"\ _19:5:A$:A$h dA(A$)v nA11000 xA22000 (7) 95  A$"FREEFALL":10000 :"THERE ARE TWO PARTS TO THE" :"GRAVITY/FREEFALL LESSON:"  ::16368,00A$"INSTRUCTIONS":10000](:"THERE ARE TWO DIFFERENT PROGRAMS IN"2:"THE PHYSICS DEMONSTRATION. THEY ARE:"<:"1. GRAVITY/FREEFALL LESSON"F:"2. PROJECTILE MOTION LESSON" P::"PLEASE ENTER THE NUMBER OF THE  "TO THE PROGRAM AUTHORS":11)"AND CONTRIBUTORS."b (::6)"";:A$: 2"ANY OF OUR PUBLIC DOMAIN PROGRAM DISKS FROM OUR LARGE LIBRARY CAN BE COPIED ONTO YOUR BLANK DISKS SENT TO US FOR A"Y <"COPY FEE OF ONLY 75 CENTS  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$B~BBB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > 60HH0>>>***>"6*""">$ 88>>>>*>><> ?:{>    LED WATER."p1000z255N D=CONC(ACID) AFTER MIXING WITH 500ML D.W.`DAC(500A)r E=VOL(BASE)ED(500A)B1790 PRINT CENTER ROUTINE20(CT$)2CT$""21:"(PRESS TO END)"16368,0"SAMPLE TOO SMALL. REENTER VALUE."0 922](A$)0ĺ"ENTER A NUMBER PLEASE!":750f 750o*1504A301ī870>"SAMPLE TOO LARGE. REENTER VALUE."H922R922\750 fA;" ML UNKNOWN ACID IS BEING ADDED TO":"500 ML DISTIL0"* YOU LIKE? *"9250i"* *""****************************************"34,20"ML ACID= ";A$(A$)0ĺ"ENTER A NUMBER PLEASE!":750A(A$)A9810&B4.00ī600:B5.00ī600HD"NOT A VALID MOLARITY. REENTER VALUE."]N922:922:530gX34,0pq:2v"****************************************""* *""* HOW MANY ML OF UNKNOWN ACID WOULD *""* *"\"****************************************"922:922:922:922:34,20"NORMALITY= ";B$(B$)0ĺ"ENTER A POSITIVE NUMBER PLEASE!":530B(B$)B1.00ī600&B2.00ī600 0**"3"* *"c"* YOU HAVE 1.00, 2.00, 4.00, AND *""* 5.00 NORMAL SODIUM HYDROXIDE *""* AVAILABLE. WHICH WOULD YOU LIKE IN *""* THE BURET? (60 ML BURET) *"250,E. THE UNKNOWN ACID *"IT"* IS LESS THAN 5 BUT GREATER THAN .1 *"y^"* NORMAL. *"h250r"****************************************"|:922:1000:2"*************************************** !!TITRATION!!! *"Y ""* THE OBJECT IS TO DETERMINE THE *" ,"* NORMALITY OF AN UNKNOWN ACID BY *" 6"* NEUTRALIZING IT WITH BASE OF KNOWN *" @"* CONCENTRATION. YOUR BURET HOLDS *"J"* 60 ML OF BAS C(1)4.9.1 J :10:"DO YOU NEED INSTRUCTIONS? (Y OR N)=>";a KK$::KK$""190r KK$"N"415 KK$"Y"190 I020 I TITRATION 7/20/78 VERSION #1 :2 "****************************************") " &*! *MAY NOT BE SOLD.COPY-*? ! *RIGHT 1981 CUE,INC *] " ***********************} d16368,0:16298,0::936 n255 x3:CT$"TITRATION":950 CT$"BY AUTHOR UNKNOWN":950 CT$"JULY 20 1978":950 1000 C=CONC(ACID) 333 MAIN STREET *1  * REDWOOD CITY *O  * CA 94063 *m  *(415)364-5600 EX 4401*  * *  * *  ***********************  *PROGRAM MAY BE COPIED*  *FOR EDUCATIONAL USE *#  * SAN MATEO COUNTY *A  * OFFICE OF EDUCATION *_  * & *}  * COMPUTER-USING *  * EDUCATORS *  * *  * SOFTSWAP *  * *  *  TITRATION AUG. 1979) ` A PROGRAM THAT SIMULATES A CHEMICAL TITRATIONk v  APPLESOFT 8K  SAN FRANCISCO APPLE CORE   *********************** *     ""   (; !) )###'  . #<$)-2310102X,YX,Y5<Y1FDOT(3)05260>PDT2VHKZX5DXS_dX5X2795260qnY1831010xX,YX,Y5Yp THROW BALL zT0:X10:Y1035,183TT.05H12GTTVVTDVHTXXSD5 .1415926531800VHV0(THETA):VVV0(THETA)?T(0VV)GTS12GTTVVTgDOT(1)05120vY183SYSY0Y18351203X526510X,YX5,YXDOT(2)05190 DTVHX5DXSX5X2795190(Y18X0(274XS)Y11871X5(X5)Y1189JX10(X10)Y1191dXXS5,183XXS5,Y1kX~Y0(183YS)X13Y5(Y5)X11"Y10(Y10)X10,5,183YYSX1,183YYS6Y@ dotted lines THETAAN33. point where it hits ground."+@ J138J J3:35ST DOT(J)1ĺ"Yes":2920^^ "No "eh Jvr VT10:17000| G$"G"2010 J(G$) DOT(J)DOT(J)12(DOT(J)1) 2880  SET UP GRID 35,05,183279,183ph." VT11 17000& XS(G$)0 2010E TRTR12(TR1)O 2010X :1 "Where would you like the dotted lines?" "(press 'G' to Go back to menu)"" :"1. greatest height reached.", "2. midpoint of total distance." 6 "XS6XS(XS)Đ:VT1:2540+ XS627904 :1a "Please enter a number to indicate the" :"maximum distance on the graph. When you" "divide 274 by this number, you will have" "the number of meters that will fit on" :"the gra :"maximum distance that will fit on the"X :"screen. Which one would you like??"^ n "1. 274m"~( "2. 137m"2 "3. 92m"< "4. 68m"F "5. 54m"P "6. other"Z :"enter your choice"d VT16:17000n XS(G$)x XS0κ:"maximum height on the graph. When you"] :"divide 183 by this number, you will have" "the number of meters that will fit on" :"the graph." VT11 17000 YS(G$) 2010 :1 "The following choices are for the"+1. 183m"$ "2. 91m"'. "3. 61m"68 "4. 45m"EB "5. 36m"VL "6. other"qV :"enter your choice"` VT16:17000j YS(G$)t YS0YS6YS(YS)Đ:VT1:2280~ YS62530 :1 "Please enter a number to indicate the"+ 17000 AN(G$)% Y1823W Y:" "^ Yh 2020q :1 "The following are choices for the" :"maximum height that will fit on the"  :"graph. Which one would you like??"   "0102 zCH2180,2230,2280,2540,2800,2820,2980,100@ 18:VT20c "Enter new initial velocity."n 17000{ V0(G$) Y1823 Y:" " Y 2020 18:VT20 "Enter new angle of inclination."(distance) ";(274XS);" "I :"5. Trace mode ";TR$(TR);" "Q :i *"6. Dotted lines" 4:"7. Graph projectile" >:"8. End and return to MAIN MENU" H:"Enter your choice." RVT20 \17000 fCH(G$) pCH0CH92gh resolution" :"screen."* 150000 8H  GET INFORMATION N U 1f 54,0:55,96 "1. Initial velocity ";V0;"m/sec " :"2. Angle of inclin. ";AN;(2);" " :"3. max Y (height) ";(183YS);" " :"4. max X th projectile motion"D :"with the use of this last part of the"V :"program." ::"It allows you to enter an initial" :"velocity and angle of inclination of a" :"projectile and see the path traced out" :"on the computer's hi!  900010002000)(40003-5000=26000E<30Yd54,189:55,158cn::w FINAL WORDS 54,0:55,96:1"This is the end of the formal":"demonstration. If you would like, you" :"can experiment wi          )N*m+Jn)m)eeU`8VUU ڑ` :` ^6789 Q@ q . @^`6798 Q`H h``noVVi@iA)moo g p g) pmn/5 qs r ; qa ` `$$(ɠ$C q$W ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\@  UmU+&*Y Y P ,X B АX I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4  "6"A$"7"A$"8"A$"9"590-A$"2"650E::"SAFE DRIVING"KC"BR DIST ";(DB.5) &DTRTDBA02:24:"TL DIST ";(DT.5);f:17:22:"(0) CHART,(1) GRAPH ";D17:23:"(5) ANOTHER,(2) END ";NA$:A$"0"Ĺ16303,0:590XA(A$):A0590bA$"1"Ĺ16304,0:590lA$"5"100vA$"3"A$"4"A$1)20DTDBRT6RX(RT.50.5):DX(DT.50.5)rB:1,HRX,H:1,H1RX,H1:C:RX,HDX,H:RX,H1DX,H11:21:"0";:5:" ";:7:"100";:14:"200";:21:"300";:25:" ";:29:"400";:36:"500"2:22:"RE DIST ";(RT.5)2:23:2:768D:DVTVT2 EA$)48(A$)5717510.\DVT1:HT:A$:17520>fDVT:HT:A$MpDUC1UC0_zDSOUND17570nDZ2012D6,Z:7,2:768DD17060DUCUC1:UC3UC0D17060DVT:HT1:" "DSOUND17660DY13DZ4014D6,Z:7,CG$(G$,L)CHTL4,CVT:HT1:" "ACVT1:HT1:" "LC17060XCAA128mCA64A9117420yCA$(A)D17430 DA$(A3232(UC0))DG$G$A$ DL(G$)*DHTL44DSUB017510>DA$"+"A$"-"S1HDS117510RD( B17060CA13617380.CSOUND17210<CZ1205O&C6,Z:7,2:768U0Ca:CL(G$)pDCL117320NCL117290XCSOUND17290bCY110lCZ1256vC6,Z:7,3:768C:CVT:5:" "CG$"":HT4C17060CLL1 :1:hB HIRES INPUT 'rB16368,02|B1:VT>B"===>"GBHT4QBG$""aBA(16384)tBVT:HT1:" "BVT:HT1:(95)BA12717060B16368,0BA14117600BA15517580BA14717160BSOUNDSOUND1:SOUND2SOUND0T$:^$''h$:Yr$ 173,48,192,136,208,4,198,7,240,8,202,208,246,166,6,76,0,3,96o: PRESS ANY KEY }:16368,0:CU$"!/-\":24:"! press any key":C1:L4:24:1:(CU$,C,1):KEY(16384):KEY128CC1L(CL):15050:40j(# INITIALIZE &2#16384<<#(24576)729050YF#(4);"BLOAD HIRES CHAR"vP#(4);"BLOAD CHAR TABLE"Z#VT1:SOUND0:CENTER0:WIDTH40d#G9.8n#x#XS3:YS3#TR$(0)"OFF":TR$(1)"ON"#X768786#Y#X,Y#X#Y183HYSX2796230+TR1618020=X1,Y1LH06230ZY06220a3jX,Yt6210$Y06210.X,Y8H06230BX1X:Y1YL6040V16368,0`(16384)1606250bSS1:S5S0:J(16336)d62:":10000N/VTVT10X/A$"S = 1/2 GT":10000<b/VTVT3Xl/A$" 2":10000dv/VTVT2/A$"FOR T, AND REPLACE S AND G WITH":10000/A$"1000M AND 9.8M/SEC":10000/VTVT3/A$" 2":10000/VTVT1/A$"RESPILL TAKE FOR YOUR FRIEND TO REACH THE GROUND.":10000@/15000K/16000/A$"@HOW LONG (IN SECONDS) WILL IT TAKE? (TYPE '@H' IF YOU NEED HELP)":10000&/170000/16000:/(G$,1)"H"12270 D/A$"@TO FIND THE ANSWER, JUST SOLVE THE EQUATIONDIDN'T LIKE. @ONE WAY OF GETTING RID OF HIM WOULD BE BY DROPPING HIM OFF OF A 1000M HIGH TOWER.":10000s,15000~,16500,. SECOND INTRODUCTION .VT1:WIDTH19.ANYKEY15.A$"@NOW THAT WE HAVE THE TOWER, LET'S COMPUTE THE TIME IT W0=t,A$"AND THE EQUATION FOR DISTANCE TRAVELLED IS:":10000J,CENTER1l,A$"S = 1/2 GT + VOT":10000x,VTVT3,A$" 2 ":10000,VTVT3,15000,16500h,A$"@TO BETTER EXPLAIN THIS, IMAGINE YOU HAD A FRIEND THAT YOU OND ":10000$,VTVT3<.,A$" 2":10000Q8,VTVT1:CENTER0B,A$"@THE VELOCITY AND DISTANCE TRAVELLED ARE NOT CONSTANT, HOWEVER.":10000L,A$"@THE EQUATION FOR VELOCITY IS:":10000V,CENTER1`,A$"V = GT":10000j,CENTER ACCELERATION OF THE OBJECT REMAINS CONSTANT, AND IS EQUAL TO THE GRAVITATION OF THE PLANET ON WHICH IT OCCURS.":10000+15000,16500,A$"@FOR EXAMPLE, ON @EARTH, THE ACCELERATION IS ALWAYS EQUAL TO:":10000,CENTER1 ,A$"-9.8 METERS/SEC+CENTER1#+A$"@FREEFALL":10000O+A$"@WRITTEN BY @LARRY @SELTZER":10000[+VTVT1h+CENTER0+A$"@FREEFALL IS A CONDITION IN WHICH THE ONLY FORCE ACTING ON AN OBJECT IS THE FORCE OF GRAVITY.":10000+VTVT1w+A$"@DURING FREEFALL, THE  +K1:K1K+KK32, +K23K23:EN18*+K1:16H4+" "S>+K:16cH+"FREEFALL"uM+SOUND11100R+6,K:7,10:768\+J1300:f+K1Kp+K211140z+J1300:+EN11030+J1500:J++16500+WIDTH40 (SOUND10450"(L$" "10450-(X12=(S(16336)D(Xg(L$" "L$"."L$","10450(FINISH20150(L$" .")75(L$",")(X1FINISH:X(J(" ";(CURRENT(VTVT2(* FIRST INTRODUCTION+:WRD$,K,1)"@"NLNL1 'K8 (SPACESNLWIDTH10280D (VTVT2K (1W (SPACE0n ((SPACESSPACESNL1v 2(VT <(J1LW F(LL32 P(L$(WRD$,J,1) Z(L$"@"L$"&"JJ1:LL064(L$"&"):10320 d(I(L$) n(I65I90LL0 x((ILL);"(A$,K,1)"@"II1 j'K* t'(40I)25 ~'10130< '1I 'SPACES0Z 'CURRENT1Lk 'KCURRENTL '(A$,K,1)" "ĂK 'WRD$(A$,CURRENT,KCURRENT) 'CURRENTK 'LW(WRD$):NLLW 'LW0SPACESSPACES1:10460 'K1(WRD$) '(1,3:X1,3 #X,2 #X+ #X25025429 #X,5X,29@ #XO #X271279] #X,5X,50d #Xw #0,191279,191} # ' LOWER CASE PRINTER '54,0:55,96 $'L(A$) .'VT 8'CENTER010120 B'I0 L'K1L V'II1 `'(A$,K,1)"&,202:779,208:780,246:781,166:782,6:783,76:784,0:785,03:786,96K ^a (# SET UP SCREEN u 2#279,191260,30 <#210,30191,191 F#260,30191,191 P#279,191210,30 Z#140,0279,0 d#140,4279,4 n#X2781405 x#X1,1:X1,1 #X v8000' (4);"BLOAD MAN,A$7000"D (4);"BLOAD CHAR TABLE"a (4);"BLOAD HIRES CHAR"g n 3y G9.8 SOUND0  @ MUSICAL POKES J768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7E T776,240:777,8:778 7000: INITIALIZE,11000:INTRO 1?9000: SCREENT(12000:INTRO 2 `254,189l<55,158rFxPZ11d12nx"PLEASE WAIT"(4);"RUN FREEFALL II"X INITIALIZE b16384