' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lˆʎõĵ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õ`  \ 濭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- (  Ϡ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d Ƞz# u`8:800:W0730&I0:J3750RI0ĺ"CURRENT (I) = 0 A";:958::680"CURRENT:";::" "I" E-6";:958::680:W$"THIS FREQUENCY IS TOO LOW TO CAUSE PHOTOELECTRIC TRANSMISSION. A NEW ONE WILL BE GIVEN."::3100:Z13000::630) :T1" ";::"FREQ.";::" "Q" E14 HZ";:868::v11::"ENTER VOLTAGE";::868:3300:3500:Eĺ(7):X1:680:"VOLTAGE:";::868:" "V" VOLTS":RR1:JJ1:I20C(WV)W.05(1):WV0I0:(WV).1Č958:"CUT OFF (I = 0 A)":950:Q(2000(1).5)100:Q9Ă4W.414(QF):J03700::1:11:" ";:29:" ":11:"EXPERIMENTAL RESULTS"::"METAL:";::" ";:10400:21:"INTENSITY:";::" "C:::"# OF FREQUENCIES:";::" "K:I140:"-";::3:"THIS IS FREQ. #";:UGH 5) DO YOU WISH TO USE?":3100:3300:3500:CV:EV1V5ĺ(7):610l:W$"HOW MANY DIFFERENT FREQUENCIES (FROM 5 TO 8) WOULD YOU LIKE TO IRRADIATE YOUR SAMPLE (ONE AT A TIME) WITH?":3100:3300:3500:K(V):R0:T0:EV5V8ĺ(7):620vI110ILL BEGIN BY FIRST SELECTING THE METAL FOR USE AS YOUR PHOTOELECTRIC SURFACE. DO THIS BY CHOOSING ONE (1) OF THE LISTED METALS AND ENTERING ITS NUMBER WHEN 'METAL?' IS DISPLAYED."::3100:10000X10700Gb:W$"WHAT INTENSITY OF RADIATION (FROM 1 THRO3100J&W$" THE COMPUTER WILL NOTIFY YOU OF CUT OFF."::3100:10000:0W$" AT THE END, A TABLE OF RESULTS OF FREQUENCIES VS. CUT OFF VOLTS WILL BE DISPLAYED. COPY IT INTO THE EMPTY TABLE IN YOUR WORKSHEETS FOR YOUR METAL.":3100:W$" YOU WTION BEING USED, AND YOU ARE TO DETERMINE THE VOLTAGE SETTING (THE 'STOPPING VOLTAGE') NECESSARY TO CAUSE THE COLLECTOR CURRENT TO DECREASE TO ZERO.3100::W$" VOLTAGES HIGHER THAN 'CUT OFF' WILL GIVE CURRENT READINGS OF ZERO, SO TRY LOWER ONES.":50KKV:110",3600:E1009PLANCK'S CONSTANTL:F(10),V(10)3700:W$" NOW LET US PROCEED TO THE NEXT EXPERIMENT: PLANCK'S CONSTANT.":3100:W$" IN THIS EXPERIMENT, YOU WILL BE GIVEN THE FREQUENCY OF THE ELECTROMAGNETIC RADIA THE LIGHT INTENSITY OF THE METAL?":3100:3300@I$"NO"300ZI$"YES"İ3400:200W$"BY WHAT FACTOR (BETWEEN 1 THROUGH 10) DO YOU WANT IT INCREASED?"::3100:3300:3500:EV1V10ĺ:"PLEASE SELECT A NUMBER BETWEEN 1 AND 10.":I02000::20010B'X8İ10110:10010FL'(0)39ĺI$;:(37):40:10200:10010_V'I$;:W$W$I$:10010jt'BKSPC~'I$" "I$;:(W$)1W$(W$,((W$)1)):'W$"":'(W$)39W$W$I$: W:9400:N$I$:I1(I$):(I$,I,1)" "Ă:>&N$(I$,I1):k'INPUT LINE ROUTINE (BOMB-PROOF-I HOPE!){'W$"":9300'I$:X(I$):I$" "X13X810010$'X13I$W$:.'(0)0X8100108'X8(0)39(W$)40Č868:W$(W$,(W$)1):119820,9830,9840,9850:9000`X\&W$"JUST HOLD ON A SEC WHILE I SORT OUT MY PAPERS...":yf&W$"SHHH! I'M THINKING...":p&W$"(GRUMBLE) MORE ARITHMETIC...":z&W$"BE WITH YOU IN A MOMENT...":&GET NAME+&::W$"HI! WHAT'S YOUR NAME?":9000:X$"+"S0:<D%W$"PLEASE ENTER A ":T0W$W$"POSITIVE "\N%W$W$"NUMBER.":9600:9510z%PRINT AND ERASE MESSAGES%(7):9000:Y(37)1:9700:IXXY:I1:868::XX1:%DELAY%I03000::H&MISCELLANEOUS MESSAGESR&((1)4)n";:A$:epTRALISE ";T;" ML OF BASE":"NUMBER ";Q;" "E2 qZ 24:9:"Press any key to start";:A$:ny key to start";:A$::9:"Press any key to start";:A$: (T(1(2MB3MA))):BP $' {( :"Calculate the volume of acid ";Z;" required to neutralise ";T;" ml of base ";Q2 Z 24:4:"Press any key to start titration";:A$:e;" ml of base ";Q2 Z 24:4:"Press any key to start titratio32490 2500& Q1Q2Q325200 2490F Q1Q2Q32540P 2560n P150(T(1(MBMA))):BPx 2570 P150(T(1(2MBMA))):BP 2570 P150(T(1(MB2MA))):BP 2570 P150(T(1(MB3MA))):BP 2570 P150(I$):I1(I$):X$(I$,I,1):X$"0"X$"9"X$" "Ă:350X@DPĭX$"."DP0::350JW$"NOW WHAT DID I JUST SAY?":9600:310^D.1D6330 W$" THIS PROJECTION IS FOR "B$", AND IS BASED ON AN ANNUAL GROWTH RATE OF "(D)"% (AS SPECIFI"DO YOU WANT TO ENTER AN ANNUAL POPULATION INCREASE?"::9000:_ Y(37):9400:I$"NO"400 "I$"YES"W$"PLEASE ANSWER EITHER 'YES' OR 'NO'.":9600:280 ,Z1:958:W$"OK, ENTER A NUMBER BETWEEN 0.1 AND 6."::9000:<6Y(37):9400:DP1:DTEGER NUMBER.":9600:230l (YYFIN)W$"NO WAY. THAT NUMBER'S FAR TOO BIG. HAVE ANOTHER GO.":9600:230 IN0W$"NOW DON'T BE DIFFICULT! YOU DON'T REALLY WANT AN INTERVAL OF ZERO, NOW DO YOU?":9600:230 G$"0"L$G$:K$H$@ Z1:958:W$BALL CAN'T LOOK THAT FAR AHEAD. HAVE ANOTHER GO.":9600:180 Z1:958:W$"AT WHAT INTERVALS (IN YEARS) DO YOU WANT MY PROJECTIONS?"::9000: Y(37):9400:IN(I$):I1(I$):X$(I$,I,1):X$"0"X$"9"X$" "Ă:250 W$"PLEASE ENTER AN IN9400:YY(I$):I1(I$):X$(I$,I,1):X$"0"X$"9"X$" "Ă:200x W$"PLEASE ENTER AN INTEGER NUMBER.":9600:180 YYFW$"THE PROJECTION STARTS FROM THE BASE YEAR "(F)". ENTER ANOTHER NUMBER.":9600:180< YY2500W$"SORRY. MY CRYSTAL 0)160J ::W$"THAT ONE ISN'T EVEN ON THE LIST. TRY AGAIN.":9600:140 AI:B$C$(I,0):G$C$(I,1):H$C$(I,2):CC(I,0):DC(I,1):EC(I,2):FC(I,3):F0F1974 Z1:958:W$"WHICH YEAR DO YOU WANT THE PROJECTION TO FINISH?"::9000:D Y(37): POPULATION5K$"1960-74":L$"1965-74":::K9200:9800:8000VdSTARTn:I1MC2:C$(I,0);:I1MCĺ21)C$(I1,0);x:::Z(37)W$"WHICH COUNTRY DO YOU WANT THE PROJECTION FOR?"::9000: Y(37):9400:I1MC:I$C$(I,T METAL)::,"MENU"::x)14)1". SILVER":14)2". BISMUTH":14)3". CADMIUM":14)4". LEAD":14)5". PLATINIUM"):5)"METAL?")I$:M(I$):I$"1"I$"5"ĺ(7);:10740):5::"THE METAL IS:";::" ";:10400:I01500:: W~'"SILVER";:V.356:F10.8:,'BISMUTHL'"BISMUTH";:V.343:F10.3:Y'CADMIUMy'"CADMIUM";:V.339:F10.2: (LEAD("LEAD";:V.323:F9.7:<(PLATINIUMF("PLATINIUM";:V.427:F13.7:(M10100,10150,10200,10250,10300)SELECR METAL?":3100:3300:E0:I$"YES"E1:8$I$"NO"ıH.3400:3600UtHEADING|~::12:"PLANCK'S CONSTANT":::'WAIT FOR CR':"PRESS ";::"RETURN";::" TO CONTINUE."$'3200:I$:I$""10020.'(I$)13100208't'SILVERONSBR (7):"PLEASE ANSWER EITHER 'YES' OR 'NO'.":I02000::_ CHECK ANSWER IS NUMERIC E0:DP1:V(I$):I1(I$):X$(I$,I,1):DPĭX$"."DP0:: X$"0"X$"9"X$" "Ă: E1:NEW METAL? ):W$"DO YOU WISH TO TRY ANOTHE& (W$)40ĺW$:20 I4011:(W$,I,1)" "ĂT: (W$,I1):W$(W$,I1):3110l CLEAR KYBRD BUFFER X(16384):16368,0: INPUT LINE Y(0)1 Y:3200:X(37):I$:I$""ĢX1:3310 H ILLEGAL ANSWERS TO 'YES'/'NO' QUESTIV0:W0:600p:W$" PROCEED WITH THE REST OF THE WORKSHEET, WHICH REQUIRES THE DRAWING OF GRAPHS AND THE ANSWERING OF QUESTIONS.":3100:12:15::"BYE NOW...":: HEADING ::11:"PHOTOELECTRIC EFFECT"::: FORMATTED PRINT ROUTINE 14 HZ"31)"VOLTS"]HI140:"-";:::T1K:8)F(T)32)V(T):::I140:"=";:::10000R:W$"USING THE SAME METAL, DO YOU WISH TO CHANGE THE INTENSITY OF THE RADIATION?":3100:3300:I$"YES"610\I$"NO"İ3400 f3600:EM0:C0:F0:K0: HYDROXIDE"*"2. POTASSIUM HYDROXIDE"H"3. AMMONIUM HYDROXIDE"d"4. BARIUM HYDROXIDE""5. CALCIUM HYDROXIDE" B$:Q(B$) _ SORTS OUT ACID/BASE COMBINATIONS` Z1Z2Z32430j Z4Z52450t 2470~ Q1Q2Q1):W$(W$,I1):9010&#WAIT FOR CR:#:(37)22Ģ23o#"PRESS ";::"RETURN";::" TO GO ON.";:868:#9310:I$:(I$)139120## HEADING#:10);::"POPULATION SIMULATION":::T$ CLR KYBRD ^$X(16384):16368,0: l v :(37)22Ģ22O "PRESS ";::"RETURN";::" TO SEE REST OF TABLE."{ 9310:I$:(I$)27N(YYF):(37)1: (I$)138330 Y1:958:(# FORMATTED PRINT ROUTINE2#(W$)40ĺW$:<#I4011:(W$,I,1)" "ĂF#(W$,I EITHER 'YES' OR 'NO.":9700:520?::12:"OK. BYE..."::EW@READ IN DATAuJMC27:C$(MC,2),C(MC,3):TI1MC:J02:C$(I,J)::J03:C(I,J):::X(37):I140:"=";:::X2:  X(37):"]";:40:(91):X1:X$,I,1)"."500%:X$((Q))".0"T30(X$))X$:(37)21NIN(YYF)İ8300X(16384):16368,0:X127ĭX12827N(YYF)N:8100:9100::"DO YOU WANT ANOTHER PROJECTION?"::9400:I$"YES"100!I$"NO"ĺ(7):"PLEASE ANSWER "B$:8200:8200:10::"DATE";:20:"POPULATION"::8200:10:"----";:20:"----------":8200:20:"(MILLIONS)":8200::Y(37)N0(YYF)IN:TC(1D100)N:Q(T10.5)108210:10:FN;:X$(Q):Q(Q)X$X$".0":500I1(X$):(9000:I$"NO"K$"0"W$" THE AVERAGE ANNUAL GROWTH RATE FOR THE PERIOD "K$" WAS "(E)"% PER ANNUM."::9000W$" TO ABORT THE LISTING OF THE TABLE BEFORE THE END, PRESS THE ESC(APE) KEY."::9000 9100::8100:8200::2:"COUNTRY:";::"ED BY YOU)."I$"NO"W$"THIS IS THE PROJECTED POPULATION GROWTH FOR "B$", BEGINNING AT THE BASE YEAR "(F)" AND ASSUMING A CONTINUED ANNUAL GROWTH RATE OF "(D)"% - AS WAS THE ANNUAL AVERAGE FOR THE YEARS "I$"NO"W$W$L$"."s9200::DPĭX$"."DP0::5 X$"0"X$"9"X$" "Ă:? E1:P'WAIT FOR CR':"PRESS ";::"RETURN";::" TO CONTINUE."$'3200:I$:I$""10020.'(I$)13100208' W INPUT LINE Y(0)1D Y:3200:X(37):I$:I$""ĢX1:3310J wH ILLEGAL ANSWERS TO 'YES'/'NO' QUESTIONSR (7):"PLEASE ANSWER EITHER 'YES' OR 'NO'.":I02000:: CHECK ANSWER IS NUMERIC E0:DP1:V(I$):I1(I$):X$(I$,I,1)j:21:W$"WHEN YOU ARE FINISHED WITH THE GRAPH, TYPE 'TEXT' (RETURN).":3100T q  FORMATTED PRINT ROUTINE & (W$)40ĺW$: 0 I4011:(W$,I,1)" "Ă : (W$,I1):W$(W$,I1):3110 CLEAR KYBRD BUFFER X(16384):16368,0: ):1030 U(S)< WCU:WRZM(W)(W)(WW):1050D ZM\ XI5:YNZ:X,Y: L:21:W$"HIT 'RETURN' IF YOU WISH TO HAVE ANOTHER GO. IF YOU WISH TO QUIT, PUSH THE 'SPACE' KEY.":3100 V3200:I$:(I$)13Ĭ `I$" "ĺ(7);:1110N URN' IF YOU WISH TO SEE THE DIFFRACTION ENVELOPE; OTHERWISE PUSH THE 'SPACE' KEY.":3100u 3200:I$:(I$)131000 I$" "ĺ(7);:160 DIFFRACTION ENVELOPE  5,150:P130:Q260:M145:N150:R0:I0260:TIP:S(TPI)Q:SRU(SI$:(I$)131000* PI$" "ĺ(7);:700 Z d5,150:P130:Q260:M145:N150:R0:I0260:TIP:S(TPI)Q:SRU(S):120 nU(S) xVBU:WCU:WRZM(V)(V)(W)(W)(WW):140 ZM YNZ:XI5:X,NX,Y:X :21:W$"HIT 'RET):30g (PI3.14159:BDPI:CAPI::7:0,150:270,150:135,150:135,0:I127:EI10:E,5:E5,5: 25,0:5,155:265,155 <:21:W$"HIT 'RETURN' IF YOU WISH TO SEE JUST THE DIFFRACTION ENVELOPE; OTHERWISE PUSH THE 'SPACE' KEY.":3100 F3200:. DIFFRACTION AND INTERFERENCE PROGRAM 6::W$"SLIT WIDTH (A) (AS A RATIO OF THE WAVELENGTH OF LIGHT)":3100:3300:3500:AV:Eĺ(7):20 :W$"SLIT SEPARATION (D) (AS A RATIO OF THE WAVELENGTH OF LIGHT)":3100:3300:3500:DV:Eĺ(7from:"#>"1. HYDROCHLORIC ACID":H"2. NITRIC ACID"QR"3. ACETIC ACID"j\"4. SULFURIC ACID"f"5. CARBONIC ACID"p"6. PHOSPHORIC ACID"zA$:Z(A$) CHOICE OF BASE:"Choose a base (1 to 5) from:" "1. SODIUMB L.46.25.02:W100L:R(W);:XX3:J13:XXXX10:LV170] I((25(1))).5:180{ I(KK100(35(1))).5 T(10I.5)10:J3ĺXX3)(R(T));: XX3)(R(T)):::10000 INCREASE INTENSITY/:W$"DO YOU WISH TO INCREASE.31.9.22O LR,LAWRENCIUM,(256),2.8.18.32.32.9.2v'20:5:"CONTINUE (Y/N)";:Q$:Q$(Q$,1):Q$"N"Ĺ34,0::10020|'$'D$(4).':D$;"RUN HELLO CHEM" N***************N* WRITTEN BY *4N* TED HARPER *>N* 04/04/81 2.25.9.22I BK,BERKELIUM,(247),2.8.18.32.26.9.2^J CF,CALIFORNIUM,(251),2.8.18.32.27.9.2K ES,EINSTEINIUM,(254),2.8.18.32.28.9.2L FM,FERMIUM,(257),2.8.18.32.29.9.2M MD,MENDELEVIUM,(258),2.8.18.32.30.9.2N NO,NOBELIUM,(255),2.8.18.328.32.18.10.2:C PA,PROTACTINIUM,231.04,2.8.18.32.20.9.2bD U,URANIUM,238.03,2.8.18.32.21.9.2E NP,NEPTUNIUM,237.05,2.8.18.32.22.9.2F PU,PLUTONIUM,(244),2.8.18.32.23.9.2G AM,AMERICIUM,(243),2.8.18.32.24.9.2H CM,CURIUM,(247),2.8.18.332)DR$:570@(W$(J))TW2ĺPAN1ĺW$(J)," ( ";LX%(J);" , ";LY%(J);" ) ",:(36)TW40ĺcAN1ĺW$(J),q::::w0:J1DL$"":DR$(T$,((T$)J)):T$DL$(((T$,J,1))32)DR$:570 4J(T$)DL$(T$,J1):DR$"":T$DL$(((T$,J,1))J;"-";:D(36):J$(J):3(J$));+m"";GnA%(J,K)0ĺ". ";:1140\o(A%(J,K));" ";ft::yPX0ĺ"HIT A KEY TO CONTINUE PRINTING":A$~:"FIND THESE HIDDEN WORDS IN THE ABOVE PUZZLE:"J1M:(W$(J))01210(36):"DO YOU WANT";N*$C1N:1070::1240~.0::"HIT ANY KEY TO CONTINUE PRINTING":::A$::"PRINTING !":PX1ĺ"PR#1"8T(TW2W)2:BL(TW(XY$))2);XY$V:`J1L:AN1K1ĺJ;"-";aT0ĺT);jK1W"kAN1K1ĺ,3F,3F,3F,3F,3F,3F,3F,3F,3F,37,2DVt'2D,2D,2D,2D,2D,2D,2D,2D,2D,2D,3E,3F,3F,3F,3F,3F~'3F,3F,3F,3F,3F,37,2D,2D,2D,2D,2D,2D,2D,2D,2D,2D'2D,3E,3F,3F,3F,3F,3F,3F,3F,3F,3F,3F,37,2D,2D,2D'2D,2D,2D,2D,2D,2D,2D,2D,3F,3F,3F,3F,3F,3F,3F,3F*'3F,3F,AD,09,0C,AD,36,3F,2D,36MB'1E,3F,E0,D8,24,24,24,DF,33,36,36,3E,D8,1E,3F,07L'20,24,64,2D,15,06,00,24,24,24,24,3C,3F,3F,3F,3FV'3F,2D,2D,2D,2D,2D,2D,2D,2D,2D,2D,2D,3E,3F,3F,3F`'3F,3F,3F,3F,3F,3F,3F,37,2D,2D,2D,2D,2D,2D,2D,2D!j'2D,2D,2D,3E,3F4)" IS DISPLAYED.":3100:100009 d10700:K(2(1))1h n3000::2:11:"EXPERIMENTAL RESULTS":: x"METAL:";:" ";:10400: :"WAVELENGTH (NM)";::" ";::"PHOTO CURRENT (UA)":: 10)"TRIAL 1 TRIAL 2 TRIAL 3":I140:"-";::10000: FW$" COPY YOUR RESULTS INTO YOUR WORKBOOK, RECORD THE DETAILS THE COMPUTER RESULTS, AND CALCULATE THE CRITICAL WAVELENGTHS.":3100 P10:10)"."20)"."30)".":15 ZW$" SELECT ONE (1) OF THE SPECIFIED METALS WHEN "(34)"METAL?"(3":"BECAUSE YOU TRIED TO OVERFILL THE FLASK":"BY STARTING WITH TOO MUCH BASE.":"TRY AGAIN WITH BASE!":"Are you ready to try again(Y/N)?";:A$A$"Y"10::(13)(4);"RUN HELLO CHEM"3 CHOICE OF ACID4:"Choose an acid (1 to 6) :"You have just used acid ";Z;" and base ";Q:"If you have successfully determined several titration volumes at this level you should consider moving to the next level of difficulty."1950gYPĺ"DUMMY!!! YOUHAVE ALKALI BURNS ALL OVER acid you chose was ";MA"g1910Vl:"The molarity of the base you chose was ";MBv:"After you have calculated the unknown molarity, you can check to see if you are correct by running your results through difficulty level '3'.":1950.LUME, THEN":"PRESS '2'.")X$:X(X$)7&X11860E0X21880O:1800\DW4780iNW5900X:"The volume of acid ";Z;" you added to cause neutralisation of the ";T;" ml of base ";Q;" was ";150PT;" ml."bW4ĺ"The molarity of the0,0 3hI0P1:XX(I,0):Y10:Y2FL:YX(I,1):Y3FL:4500:YX(I,2):Y3YL:Y1FL1:Y2YL:4500::sHPLOT(XXLXM)1,(Y(Y2Y1)20)Y3:(#FORMATTED PRINT ROUTINE2#(W$)40ĺW$:<#I4011:(W$,I,1)" "Ă F#(W$,I1):W$((X)(X100.5)100F I0P1:T1:J02:(T):R(X(I,J)),:TT12:f X0:X(16384):X1603030t 16384,0 X141ı ,::::90GRAPH RESULTS::1:XL278:YL191:FL96:XMX(P1,0)0,FLXL,FL:0,0279,0279,YL0,YL:2:0,YLO CALCULATIONS.X(0,0)T1:X(0,1)X:X(0,2)YtI1P1:T0T9PT8:XX(AXBXYEXX)T8:YY(CXYDY)T8T1T1T8X(I,0)T1X(I,1)1.5X X(I,2)1.5Y  PRINT TABLE ::"TIME","RABBITS","FOXES": R$" POPULATION CAN THEN BE WRITTEN AS:":9000::7)"DX/DT = (A - BY - FX) * X"JW$"WHERE 'F' IS THE CONSTANT FOR THE RATE OF DECREASE OF RABBITS DUE TO COMPETITION BETWEEN THEM FOR RESOURCES."::9000::"OK, WHEN YOU'RE READY, LET'S GO!":9100DTS"::"E = CONSTANT FOR (BIRTH RATE - DEATH RATE) FOR FOXES"69100::W$" A MORE REALISTIC MODEL CAN BE OBTAINED BY CONSIDERING THE COMPETITION FOR RESOURCES BETWEEN THE RABBITS. THE EQUATION FOR THE RATE OF CHANGE OF THE RABBIT"O@W$WH RATE) FOR RABBITS"::"B = CONSTANT FOR THE RATE OF RABBITS KILLED BY FOXES":'"DY/DT = TIME RATE OF CHANGE FOR THE FOXES POPULATION"H,:"C = CONSTANT FOR THE RATE OF FOXES DYING IN THE ABSENCE OF RABBI:10)"DY/DT = (-C + EX) * Y"aW$"FOR SUITABLE CONSTANTS 'A', 'B', AND 'C'."::9000:9100:W$" THESE ARE THE LOTKA-VOLTERRA EQUATIONS WHERE:"::9000::"DX/DY = TIME RATE OF CHANGE FOR RABBITS"b":"A = CONSTANT FOR (BIRTH RATE - DEAT:9000W$" IF WE ASSUME THAT THE BIRTH OF FOXES DEPENDS ON THE NUMBER OF RABBITS, 'X', AND THAT RABBIT DEATHS ARE PROPORTIONAL TO FOX NUMBERS, 'Y', THEN THE RATES OF CHANGE OF THE POPULATIONS ARE GIVEN BY:":9000::10)"DX/DT = (A - BY) * X":31920j"YOU SHOULD NOW HAVE AN ESTIMATE OF THE":"VOLUME OF ACID NEEDED TO CAUSE ":"NEUTRALISATION.""IF YOU WOULD LIKE TO REPEAT THE ":"TITRATION TO GET A MORE PRECISE":"NEUTRALISATION VOLUME, THEN PRESS '1'.""IF YOU HAVE AN ACCURATE VOB149B149^6#hB14017009rX182(B140)49P|X2200(B140)49_X1,BX2,BgN1q1600X382(B140)1X4200(B140)1X3,BX4,BN1B14912801600 END OF TITRATIONYP1940W1W2WTO FLASKYPĒ6%Y140ī1530;X182(Y140)49RX2200(Y140)49_YKYKnX1,YX2,Yx1560X382(Y140)1X4200(Y140)1X3,YX4,YB1491280"YPī1600,128061280@N01620JBB1 T0:Y150U150(YT)% U013208YY((1)255)B1330L(YY1]2Y150Y150h<L(1)oF3PY(K1)L0Z1000L0Ē4dU01410n140,40140,Yx2U0U0222:29:UYK1ĉ::1770 LIQUID IN145,30142,38't136,0136,30140,409~ DRAWS FLASKL120,10120,50Y80,140f90,150t190,150200,140160,50160,10:22:"VOLUME OF ACID ADDED (ML) = ""VOLUME OF BASE (ML) = ";TK502N00:2650  DRAWS BURETTE TIP):38X135145IX,0X,30:X\136,30144,30o137,31143,31$137,32143,32.138,33142,338138,34142,34B138,35142,35LY3638V139,Y141,Y:Y`135,0135,30138,38j145,0u may only choose the molarity of the base (0.01 to 0.50). Acid mol is unknown"Yf2100izMA((1))2yMA((0))22250"Choose the molarity of base ";Q;:MB:"From the titration, calculate the concentration of acid ";Z2450). Base mol is unknown"#2100J"Choose molarity of acid ";Z;:MAT2250dMB((1))2t MB((0))2:"From the titration, calculate the concentration of base ";Q 2400:2650:1000R DEGREE OF DIFFICULTY = 5O\::"Yo(Y(I))3:X(X(I))2,Y(Y(I))2X(X(I))3,Y(Y(I))3w I(I)0āYY(Y(I))2Y(Y(I))2:X(X(I))2,YX(X(I))2,Y: : GET STARTING PARAMETERS :W$"X-COORDINATE OF START? (RANGE -3 TO +3)"::9000:% T1:9500:V3V3W$"PARAMETER OT MORE CONTOURS?"::9000:1 9400:I$"NO"ıv I$"YES"W$"A SIMPLE 'YES' OR 'NO' WILL SUFFICE.":9600:3220 3500:B0:16299,0:16304,0:F10:F20:F31:F41:S.05:3050 PLOT WIRES5 I1N:I(I)0ēX(X(I))2,Y(Y(I))2X(X(I))3,YPORE,1970-75,1957-70,2.25,1.6,2.8,1975G(SWEDEN,0,0,8.236,.6,.7,1976k (SWITZERLAND,0,0,6.44,1.1,1.2,0(UNITED KINGDOM,1961-71,0,55.515,.5,0,1971(UNITED STATES,1960-1970,0,203.235,1.3,0,1970 KKUWAIT,0,0,.93,7.8,9.1,0:'MEXICO,0,0,57.899,3.5,3.4,0g'NORWAY,1971-75,1965-74,4.035,.8,.8,1977'PAKISTAN,0,0,67.213,2.9,2.9,0'PERU,0,0,14.953,2.9,2.9,0'PHILIPPINES,0,0,41.433,3.0,3.0,0'SAUDI ARABIA,0,0,8.008,1.8,1.8,0&'SINGA9.09,1.8,2.0,0,j'DENMARK,0,0,5.05,.7,.7,0Kt'EGYPT,0,0,36.35,2.4,2.5,0x~'FRANCE,1968-75,1962-68,52.16,.8,.9,1973'INDIA,0,0,595.586,2.3,2.3,0'ISRAEL,0,0,4.249,1.9,2.2,1972'JAPAN,0,0,109.67,1.2,1.1,0'KENYA,0,0,12.91,3.4,3.2,0': 'DATA0'ARGENTINA,0,0,24.646,1.5,1.5,0N$'AUSTRIA,0,0,7.55,.5,.5,0n.'BAHRAIN,0,0,.245,3.1,3.4,08'BELGIUM,0,0,9.757,.3,.5,1973B'BRAZIL,0,0,103.981,2.9,2.9,0L'BRUNEI,0,0,.15,3.9,4.6,0V'CHINA,0,0,809.251,2.7,2.9,0`'CUBA,0,0,%I03000::+H& MISCELLANEOUS MESSAGESWR&((1)4)19820,9830,9840,9850:9000`\&W$"JUST HOLD ON A SEC WHILE I SORT OUT MY PAPERS...":f&W$"SHHH! I'M THINKING...":p&W$"(GRUMBLE) MORE ARITHMETIC...":z&W$"BE WITH YOU IN A MOMENT..."$ INPUT LINE$9300?$X(37):I$:I$""ĢX1:958:9410g$(I$,1)" "I$(I$,(I$)1):9420m$% PRINT AND ERASE MESSAGES%(7):XY:9000:Y(37):9700:IXY:I1:" "::X1:% DELAY h acid and base (0.01 to 0.50)."*02100Q:"Choose molarity of acid ";Z;:MA[b2250v"Choose molarity of base ";Q;:MB2400:2600:2650:1000 DEGREE OF DIFFICULTY = 4::"You may only choose the molarity of the acid (0.01 to 0.:2600:2650:10002  DEGREE OF DIFFICULTY = 2x ::"Assume the acid and base you choose are of equal molarity." MB1:MA1:2100:2250:2400:2600:2650:1000 % DEGREE 0F DIFFICULTY = 3 &::"You may now choose the molarities of bot1. Sodium hydroxide 2. Potassium hydroxide 3. Ammonium hydroxide"s TQ:390 ^:"Choose a base (1 or 2) from:" h:"1. Barium hydroxide 2. Calcium hydroxide" |Q P150(2T):BP  :"1. Hydrochloric acid 2. Nitric acid 3. Acetic acid 4. Sulfuric acid 5. Carbonic acid" Z "Z4Z5350 ,:"Choose a base (1 to 3) from:"g 6:" volume of base do you wish to use (1 to 50 ml)";:Tf F:"Choose a level of difficulty (1 to 5).";v PW$:W(W$) ZW200,450,550,700,850 ::"Assume the acid and base you choose are of equal molarity." :"Choose an acid (1 to 5) from:"ated flow of acid from the burette to the flask containing the base." (:"* A colour monitor to show the change of colour at the end point." -::"Do you wish to continue(Y/N)?";:A$ 2A$"Y"ī60 7A$"N"ī19705 <::3:"What+ ::2:11::"ACID-BASE TITRATION":5:"This program provides graphics simulations of acid-base titrations at five levels of difficulty"::"It requires the use of:"M #:"* Paddle (1) or a joystick to control the simul             ,POLONIUM,(209),2.8.18.32.18.6E= AT,ASTATINE,(210),2.8.18.32.18.7i> RN,RADON,(222),2.8.18.32.18.8? FR,FRANCIUM,(223),2.8.18.32.18.8.1@ RA,RADIUM,(226),2.8.18.32.18.8.2A AC,ACTINIUM,(227),2.8.18.32.18.9.2 B TH,THORIUM,232.04,2.8.192.22,2.8.18.32.17:6 PT,PLATINUM,195.09,2.8.18.32.17.1^7 AU,GOLD,196.97,2.8.18.32.18.18 HG,MERCURY,200.59,2.8.18.32.18.29 TI,THALLIUM,204.37,2.8.18.32.18.3: PB,LEAD,207.2,2.8.18.32.18.4; BI,BISMUTH,208.98,2.8.18.32.18.5< PO2.8.2,/ LU,LUTETIUM,174.97,2.8.18.32.9.2S0 HF,HAFNIUM,178.49,2.8.18.32.10.2{1 TA,TANTALUM,180.95,2.8.18.32.11.22 W,TUNGSTEN,183.85,2.8.18.32.12.23 RE,RHENIUM,186.2,2.8.18.32.13.24 OS,OSMIUM,190.2,2.8.18.32.14.25 IR,IRIDIUM,1DOLINIUM,157.25,2.8.18.25.9.2C) TB,TERBIUM,158.93,2.8.18.27.8.2l* DY,DYSPROSIUM,162.50,2.8.18.28.8.2+ HO,HOLMIUM,164.93,2.8.18.29.8.2, ER,ERBIUM,167.26,2.8.18.30.8.2- TM,THULIUM,168.93,2.8.18.31.8.2. YB,YTTERBIUM,173.04,2.8.18.3.18.9.2," CE,CERIUM,140.12,2.8.18.20.8.2W# PR,PRASEODYMIUM,140.91,2.8.18.21.8.2$ ND,NEODYMIUM,144.24,2.8.18.22.8.2% PM,PROMETHIUM,(145),2.8.18.23.8.2& SM,SAMARIUM,150.4,2.8.18.24.8.2' EU,EUROPIUM,151.96,2.8.18.25.8.2( GD,GA.18.4* SB,ANTIMONY,121.75,2.8.18.18.5P TE,TELLURIUM,127.60,2.8.18.18.6r I,IODINE,126.90,2.8.18.18.7 XE,XENON,131.30,2.8.18.18.8 CS,CAESIUM,132.91,2.8.18.18.8.1  BA,BARIUM,137.34,2.8.18.18.8.2! LA,LANTHANUM,138.91,2.8.1891,2.8.18.13.24 RU,RUTHENIUM,101.07,2.8.18.15.1X RH,RHODIUM,102.91,2.8.18.16.1{ PD,PALLADIUM,106.4,2.8.18.18 AG,SILVER,107.87,2.8.18.18.1 CD,CADMIUM,112.40,2.8.18.18.2 IN,INDIUM,114.82,2.8.18.18.3 SN,TIN,118.69,2.8.18TON,83.80,2.8.18.85  RB,RUBIDIUM,85.47,2.8.18.8.1Y SR,STRONTIUM,87.62,2.8.18.8.2z Y,YTTRIUM,88.91,2.8.18.9.2 ZR,ZIRCONIUM,91.22,2.8.18.10.2 NB,NIOBIUM,92.91,2.8.18.12.1 MO,MOLYBDENUM,95.94,2.8.18.13.1 TC,TECHNETIUM,98.CKEL,58.71,2.8.16.22 CU,COPPER,63.55,2.8.18.1O ZN,ZINC,65.38,2.8.18.2o GA,GALLIUM,69.72,2.8.18.3 GE,GERMANIUM,72.59,2.8.18.4  AS,ARSENIC,74.92,2.8.18.5  SE,SELENIUM,78.96,2.8.18.6  BR,BROMINE,79.90,2.8.18.7  KR,KRYPALCIUM,40.08,2.8.8.24  SC,SCANDIUM,44.96,2.8.9.2U  TI,TITANIUM,47.90,2.8.10.2u  V,VANADIUM,50.94,2.8.11.2  CR,CHROMIUM,52.00,2.8.13.1  MN,MANGANESE,54.94,2.8.13.2  FE,IRON,55.85,2.8.14.2  CO,COBALT,58.93,2.8.15.2 NI,NI,2.8.1%  MG,MAGNESIUM,24.31,2.8.2D  AL,ALUMINIUM,26.98,2.8.3a  SI,SILICON,28.09,2.8.4  P,PHOSPHORUS,30.97,2.8.5  S,SULPHUR,32.06,2.8.6  CL,CHLORINE,35.45,2.8.7  AR,ARGON,39.95,2.8.8  K,POTASSIUM,39.10,2.8.8.1  CA,C008,1  HE,HELIUM,4.00,26  LI,LITHIUM,6.94,2.1R  BE,BERYLLIUM,9.01,2.2j  B,BORON,10.81,2.3  C,CARBON,12.01,2.4  N,NITROGEN,14.01,2.5  O,OXYGEN,16.00,2.6  F,FLUORINE,19.00,2.7  NE,NEON,20.18,2.8  NA,SODIUM,22.99):10000 A40 F K= P"ATOMIC NUMBER ==> "A$(X,1)C Ud Z" SYMBOL ==> "A$(X,2)j _ d" ELEMENT NAME ==> "A$(X,3) i n"ATOMIC WEIGHT ==> "A$(X,4) p s"CONFIGURATION ==> "A$(X,5) x10000 40  H,HYDROGEN,1.eight ", "(4) electronic configuration"= X12000:XG 34,2 X1103:A$(X,1)(X):A$(X,2),A$(X,3),A$(X,4),A$(X,5): (::"CHEMICAL SYMBOL ==>";S$:S$(S$,2):S$""40 - 2X1103:S$A$(X,2)70 <:"SYMBOL DOES NOT EXIST!"(7%:A$(103,5)% ::255:::K3:11::"PERIODIC TABLE DATA": :"You type the symbol for any element and the computer provides the following: (1) atomic number (2) name of element (3) atomic w           AN02PX0ĺ"HIT ANY KEY TO CONTINUE ";:A$=I1LHJ1WkA%(I,J)0A%(I,J)(A(26)64)s:yI1M1:JI1MW$(I)W$(J)1030HZ$W$(I):W$(I)W$(J):W$(J)HZ$J:I"HOW MANY COPIES OF THIS PUZZLE"2039,321289:CT,W$(I):CTCT1:LX%(I)SY:LY%(I)SX@I:"NUMBER OF WORDS = ";CT:"LET ME PONDER THIS":34,14:"":(X$,1)"Y"970XY$"HERE IS THE ANSWER KEY*":"*** ANSWER KEY ***"AN11070:0XY$XZ$" THEN 750DW$(I)"":950*RJSY:KSX6\P1LNcfA%(J,K)0A%(J,K)((W$(I),P,1))790pJJDXY(SD,2):KKDXY(SD,1):PJSY:KSXP1LN:A%(J,K)((W$(I),P,1))JJDXY(SD,2):KKDXY(SD,1):W(I,1)SX:W(I,2)SY:W(I,3)SD SY(LN1)DXY(SD,2):X11X1L790.4NTNT1G5PC%(NT9(WLSQ))`62039,(9PC%)48128t9NTWLSQ850:2039,32128>"COULD'NT FIT '";W$(I);"' IN THE PUZZLE."@ INPUT "DO YOU WANT ME TO START AGAIN";A$ B IF LEFT$ (A$,1) = "YI128:DD(I):? 0,1,1,1,1,0,1,-1,0,-1,-1,-1,-1,0,-1,1} 2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,1,3,5,7CT1I1MLN(W$(I))NT0SDDD(A(28)) SXA(W):X1SX(LN1)DXY(SD,1):X11X1W790"*SYA(L):X1m"TRY ANOTHER:":480%vW$(I)T$,I2R"THAT'S IT...";M;" WORDS."v"NOW LET ME PONDER THIS ....."34,14:""I1M1JI1M(W$(I))(W$(J))HZ$W$(I):W$(I)W$(J):W$(J)HZ$:I18:DXY(I,1),DXY(I,2):0T$(T$,J1)(T$,(T$)J):JJ1::JJ1:J(T$)520G;I10Ė5S<I9Ė4cD"-";T$;"-"vX(T$)MD610]"THAT'S TOO LONG,I'M AFRAID."_"TRY ANOTHER ONE:":480bIZ1I1:W$(IZ)T$Ă:630l"YOU'VE ENTERED THAT ONE ALREADY.")TE$(T$,J,1):TE$"A"TE$"Z"570B TE$"A"TE$"Z"530YJ1J(T$)ī2000DL$(T$,J1):DR$(T$,((T$)J)):T$DL$(((T$,J,1))32)DR$:570TE$T$T$"":500J(T$)T$(T$,J1):580&J1T$(T$,$(T$1):JJ1:570"E-DO THE PREVIOUS WORD,:,":"TYPE A HYPHEN (-)."6n"WHEN YOU RUN OUT OF WORDS,":"TYPE A PERIOD (.)."tI1MI;" ";:T$:T$"-"II1:"RE-DO ";W$(I);"...":480T$"."MI1:660(T$)0ĺ"INPUT ERROR;RE-DO":480J1XY(8,2),DD(28) U "NOW ENTER A HEADING THAT WILL BE PRINTED OVER THE PUZZLE:"[  "(";TW;" CHARACTERS MAXIMUM! )" :"NAME = ";XY$ D(37):5:XY$:37,D:"" XZ$XY$  "OK...ENTER A WORD AT EACH QUESTION MARK."0"TO R ":37,D:""a h:"WHAT IS THE MAXIMUM":"NUMBER OF WORDS IN THE PUZZLE ?"::"MAX. WORDS = ";Mo rM2380 w"SORRY!, THERE MUST BE AT LEAST 2 WORDS.":360 | A%(L,W),W$(M),LX%(M),LY%(M) M11L:N11W:A%(M1,N1)0:N1:M1 W(M,3),D WILL NOT REALLY FIT IN ";TW;" COLUMNS.":330: YW1330s ZD(37):2:18:"WIDTH = ";W;" ":37,D:"" ^:"THE LENGTH = ";L:LWMDL bPX0L20ĺ"TO LONG !":350 cL1350 dD(37):3:18:"LENGTH = ";L;" R HAVE "::"COLUMNS = ";TWQ ;D(37):1:18:"COLUMNS = ";TW;" ":37,D:"" @:"DO YOU WANT A SOLUTION PRINTOUT?"::"(Y/N) ";X$ J:"WHAT IS TO BE THE WIDTH OF THE PUZZLE?":::"WIDTH = ";W:MDW SPX0W19343 TW2TW345- W"THAT 9 SLOW R :"DO YOU HAVE A PRINTER IN SLOT #1 "::"( Y/N ) ";A$:A$"N"PX0d PXA$" ON "x PXA$" OFF " D(37):1:"PRINTER ";::A$::37,D:"" ,A(Z)((1)Z1) 5PX0TW40:315 6"HOW MANY COLUMNS DOES YOUR PRINTE   26);"PUZZLE"?20);"CREATIVE COMPUTING"b18);"MORRISTOWN, NEW JERSEY"l(::25:"THIS PROGRAM IS A WORD SEARCH"::10:"PUZZLE GENERATOR!!"<34,11: PX1:SQ2: SQ IS THE SPEED OF SEARCH - 1 FAST -J" IUHIS"!:(X$,1)"Y"ĉ::969CXY$"HERE IS THE ANSWER KEY*"_:"*** ANSWER KEY ***"hAN1::N1:PXĺ"HOW MANY COPIES OF THIS PUZZLE":"DO YOU WANT ";N::PXĺ"ADJUST TOP OF PAGE ON PRINTER":::"HIT ANY KEY TO CONTINUE PRY(SD,1):PJSY:KSX<P1LN:A%(J,K)((W$(I),P,1))^JJDXY(SD,2):KKDXY(SD,1):W(I,1)SX:W(I,2)SY:W(I,3)SD2039,32128:CT,W$(I):CTCT1:LX%(I)SY:LY%(I)SXI34,11:""::"NUMBER OF WORDS = ";CT:"LET ME PONDER T39,321288>"COULD'NT FIT '";W$(I);"' IN THE PUZZLE."h@ INPUT "DO YOU WANT ME TO START AGAIN";A$ B IF LEFT$ (A$,1) = "Y" THEN 750DW$(I)"":950RJSY:KSX\P1LNfA%(J,K)0A%(J,K)((W$(I),P,1))790 pJJDXY(SD,2):KKDX7 CT1I1M%LN(W$(I)).NT0@SDDD(A(28))s SXA(W):X1SX(LN1)DXY(SD,1):X11X1W790*SYA(L):X1SY(LN1)DXY(SD,2):X11X1L7904NTNT15PC%(NT9(WLSQ))62039,(9PC%)481289NTWLSQ850 :20ZX):ZN0I1M1#JI1MZ(W$(I))(W$(J))HZ$W$(I):W$(I)W$(J):W$(J)HZ$b:I18:DXY(I,1),DXY(I,2):I128:DD(I): 0,1,1,1,1,0,1,-1,0,-1,-1,-1,-1,0,-1,1 2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,1,3,5,NE:":480*bIZ1I1:W$(IZ)T$Ă:630Rl"YOU'VE ENTERED THAT ONE ALREADY."km"TRY ANOTHER:":480xvW$(I)T${ZX(T$)ZX(T$)I34,12:"":"THAT'S IT...";M;" WORDS.""NOW LET ME PONDER THIS ....." ZXZX1:ZW(TW$T$"":500+J(T$)T$(T$,J1):580P&J1T$(T$,$(T$1):JJ1:570u0T$(T$,J1)(T$,(T$)J):JJ1:JJ1:J(T$)520;I10Ė5<I9Ė4D"-";T$;"-"X(T$)MD610]"THAT'S TOO LONG,I'M AFRAID." _"TRY ANOTHER O$T$"."MI1:34,12:""::660K(T$)0ĺ"INPUT ERROR;RE-DO":480SJ1|TE$(T$,J,1):TE$"A"TE$"Z"570 TE$"A"TE$"Z"530J1J(T$)ī2000DL$(T$,J1):DR$(T$,((T$)J)):T$DL$(((T$,J,1))32)DR$:570 TE$TK...ENTER A WORD AT EACH QUESTION MARK."d"TO RE-DO THE PREVIOUS WORD,":" TYPE A HYPHEN (-).""WHEN YOU RUN OUT OF WORDS,":" TYPE A PERIOD (.)."34,19ZX0I1MI;" ";:T$:T$"-"II1:"RE-DO ";W$(I);"...":480M11L:N11W:A%(M1,N1)0:N1:M1A W(M,3),DXY(8,2),DD(28)G  "NOW ENTER A HEADING THAT WILL BE PRINTED OVER THE PUZZLE:"  "(";TW;" CHARACTERS MAXIMUM! )" :"NAME = ";XY$ D(37):5:XY$:37,D:"" XZ$XY$ ("O37):3:18:"LENGTH = ";L;" ":37,D:"" h:"WHAT IS THE MAXIMUM":"NUMBER OF WORDS IN THE PUZZLE ?"::"MAX. WORDS = ";M rM2380 w"SORRY!, THERE MUST BE AT LEAST 2 WORDS.":360 | A%(L,W),W$(M),LX%(M),LY%(M)% DW SPX0W19343' TW2TW345_ W"THAT WILL NOT REALLY FIT IN ";TW;" COLUMNS.":330l YW1330 ZD(37):2:18:"WIDTH = ";W;" ":37,D:"" ^:"THE LENGTH = ";L:LWMDL bPX0L20ĺ"TOO LONG !":350 cL1350? dD(TW40:315M 6"HOW MANY COLUMNS DOES YOUR PRINTER HAVE "::"COLUMNS = ";TW ;D(37):1:18:"COLUMNS = ";TW;" ":37,D:"" @:"DO YOU WANT A SOLUTION PRINTOUT?"::"(Y/N) ";X$ J:"WHAT IS TO BE THE WIDTH OF THE PUZZLE?":::"WIDTH = ";W:MPX1:SQ2: SQ IS THE SPEED OF SEARCH - 1 FAST - 9 SLOW :"DO YOU HAVE A PRINTER IN SLOT #1 "::"( Y/N ) ";A$:A$"N"PX0 PXA$" ON " PXA$" OFF " D(37):1:"PRINTER ";::A$::37,D:"" ,A(Z)((1)Z1) 5PX0H   26);"PUZZLE"?20);"CREATIVE COMPUTING"b18);"MORRISTOWN, NEW JERSEY"l(::25:"THIS PROGRAM IS A WORD SEARCH"::10:"PUZZLE GENERATOR!!"7:"****************************************"<34,12:; ĺD$;"RUN HELLO CHEM" N#YES/NO RESPONSE4#9400:F0:I$"YES"F1:C$I$"NO"ı}$W$"A SIMPLE 'YES' OR 'NO' WILL SUFFICE.":9600:9210T$ CLR KYBRD ^$X(16384):16368,0:$PROCESS INPUT $F1: DELETE LEADING SPACES & TRAILING SPACES6$XX(37):$"0"L(X$):TTL%T)X$;:C(# FORMATTED PRINT ROUTINEW2#(W$)40ĺW$:x<#I4011:(W$,I,1)" "ĂF#(W$,I1):W$(W$,I1):9010#WAIT FOR CR##"PRESS ";::"RETURN";::" TO GO ON."#9310:I$:(I$)139120#OU CAN'T START WHERE THERE'S A WIRE. TRY AGAIN.":9600:3500P :X100:Y100:]@HEADINGJ:8::"MAGNETIC INDUCTION FIELDS":::PRINTING COORDS.V(V100.5)100:X$(V):V(V)X$X$".00":8130V(V10.5)10V(V10)10X$XBEYOND RANGE. TRY AGAIN.":9600:3520i P(1)V::W$"Y-COORDINATE OF START? (RANGE -3 TO +3)"::9000: T1:9500:V3V3W$"PARAMETER BEYOND RANGE. TRY AGAIN.":9600:3530< Q(1)V:TP(1):WQ(1):P(2)0:Q(2)0:I1N:TX(I)WY(I)W$"NO WAY. Y3,4,5,6,7,8,9,0,0,-1LP,6,7,8,9,0,-1W"0",3,4,5,6,7,2,3,8,0,1,4,9,0,1,5,9,0,1,6,9,0,2,7,8,0,3,4,5,6,7,0,-1p$".",1, 2,0,1,2,0,-1."*",2,5,8,0,3,5,7,0,4,5,6,0,1,2,3,4,5,6,7,8,9,0,4,5,6,0,3,5,7,0,2,5,8,0,-18"-",5,6,0,5,6,0,5,6,0,5,6,0,5,6,0,5,6,0,-1B"!",0,0,1,,0,3,4,9,0,-1I"6",2,3,4,5,6,7,0,1,4,8,0,1,5,9,0,1,5,8,0,2,3,4,7,0,-1"7",1,2,9,0,3,9,0,4,9,0,5,9,0,6,9,0,7,9,0,8,9,0,-1"8",3,7,0,2,4,6,8,0,1,5,9,0,1,5,9,0,1,5,9,0,2,4,6,8,0,3,7,0,-1 "9",5,6,7,8,0,4,9,0,4,9,0,4,9,0,4,9,0,5,9,0,1,2,3,4,5"2",1,2,3,4,7,0,1,4,8,0,1,4,9,0,1,4,9,0,1,4,9,0,1,5,8,0,1,6,7,0,-1"3",2,8,0,1,9,0,1,5,9,0,1,5,9,0,1,5,9,0,2,5,8,0,3,4,6,7,0,-1"4",4,5,0,4,6,0,4,7,0,4,8,0,1,2,3,4,5,6,7,8,9,0,4,0,4,0,-1 "5",2,6,7,8,9,0,1,6,9,0,1,6,9,0,1,6,9,0,1,6,9,0,2,5,98A14ĺ(7):360/ A8ĺD$;"RUN TITRATION"J A9ĺD$;"RUN TITRATE"e A10ĺD$;"RUN TITPAD" A11ĺD$;"RUN MGO SYNTHESIS"  IF A = 12 A13ī10 A14ĺD$;"BRUN HELLO.OBJ"  HELLO.OBJ" D$;"BRUN HELLO.OBTITRATION - GRAPHICS SIMULATION"< ,:"11. MgO SYNTHESIS"L 6:"12. "s T:"13. RETURN TO PAGE 1 OF MENU" ^:"14. DISK UTILITIES" h22:6:"Type the number of your choice" r11:"(and press 'RETURN')";:A$ A((A$)):D$(4) A ENZYME REACTION RATE"@ A4ĺD$;"RUN HYDROCARBON STRUCTURES"\ A5ĺD$;"RUN ELEMENTS"t A6ĺD$;"RUN M.W." A7ĉ: 3:15:"CHEMISTRY 1" I11000:I 6:" 8. TITRATION CURVES" :" 9. TITRATION WITH pH METER" ":"10. GHT DETERMINATION". x:"7. PAGE 2 OF MENU"[ 22:6:"Type the number of your choice" 11:"(and press 'RETURN')";:A$ A((A$)):D$(4) A1A7ĺ(7):150 A1ĺD$;"RUN INITIATE CHEMICALS" A2ĺD$;"RUN DATEL" A3ĺD$;"RUN  :#3:15:"CHEMISTRY 1"4(I11000:I:2a<6:"1. SYMBOLS AND VALENCY TEST"F:"2. DATA TABLE FOR ELEMENTS"P:"3. ENZYME REACTION RATE"Z:"4. HYDROCARBON STRUCTURES"d:"5. SYMBOLS TEST" n:"6. MOLECULAR WEI  = D$(4): CTRL-D5(D$;"RUN HELLO CHEM";P 4,76:1014,0:1015,64_216384eP 2E,0,52,0,73,0D' 22,64,2D,15,96,F2,3F,07,20,04,00,24,2D,2D,24,34y'36,36,FE,1B,24,24,24,D7,E3,3F,17,36,36,0E,2D,05$'20,00,2D,2D,4D,62,AD,F6,17,17,36,28,2D,D5,DB,C3.'18,08,18,24,24,24,DF,33,36,36,3E,D8,1E,3F,07,208'24,64,2D,15,06,00,2E,2DP#B$(A$,1):9500Z#NND.d#19968I,N5n#IIx#232,01:233,78P}#JY#100l%D(B$):D0ı|&%B$"0"D00%B$"A"D10:%B$"B"D11D%B$"C"D12N%B$"D"D13X%B$"E"D14b%B$"F"D15l%'05,00,0C,00,17,00,1C((I1)75):Y1C((I1)76).0:X1,Y12@5X1,Y12:7ZXX1:YY1:X,Y:FLAG0eJ03C((I1)7J)0FLAGFLAG1JFLAG1X,Y I:""115,0:116,78#J12:(#I13102#A$<#B$(A$,1):9500F#ND16J)FLAGFLAG1% K:TC((I1)7J)SX1C((I1)75):Y1C((I1)76):XX1:YY1\ X,Y*X2C((T1)75):Y2C((T1)76)4X2,Y2:FLAG12160>X16,Y13HX26,Y23RFLAG22160\X13,Y16fX23,Y26pJ,IzI1NC:X4TX264TY4TY1521500 -@II1NCYJC((II1)75)TXC((II1)76)TY1630gTII:1640r^FLAG1xh:0:1:7I1NC:J03:C((I1)7J)02160FLAG0:C((I1)7J)12160K03:KJ2060C((I1)7K)C((I1)7C((C(J)1)75)01080&1500D$FLAG0:1600:FLAG11050n.C((C(J)1)75)TX:C((C(J)1)76)TY8I:C((K1)74)1:1010BTXC((K1)75):TYC((K1)76)A1(((1)3)30)30:A2(((1)3)30)30TXTXA1:TYTYA2TXFF":"THE APPLE II PLUS HAS AN AUTOSTART":"MONITOR WHICH AUTOMATICALLY BOOTS THE":"DISK WHEN THE COMPUTER IS SWITCHED ON."C(5)120:C(6)75K1NC:C((K1)74)0C((K1)75)01030K:1090I03:J(K1)7I:C(J)01080ULA"3"HIT 'F'FOR A NEW FORMULA AND 'E' TO END"PKY(16384):KY128470^16368,0nKY196410~KY201190KY198110::"RESET AND REBOOT DISK"::"TO PUT HIMEM BACK AT MAXIMUM.":"IN OTHER WORDS, SWITCH THE COMPUTER OI:320+C((X1)7X1)Y:C((Y1)7Y1)X2KOI4(NC1)747:J02bC(IJ)0:J:Ir1000:2000:21:"C-";NC;" H-";NHNF1440NC100:155"HIT 'D' TO DRAW THIS DIFFERENTLY""HIT 'I' FOR A NEW ISOMER (SAME FORM1)72)I:290' C((X1)73)0290G C((I1)7)X:C((X1)73)IN "I\ ,EU0410h 6K1EU @X((1)NC)1:Y((1)NC)1:XY320 JI13:C((X1)7I)0350 TX1I:360 ^I:320 hI13:C((Y1)7I)0380 rY1I:390|":150" :21:"C-";NC;" H-";NH< EU(((2NC2)NH)2)T I0NC7:C(I)0:Ip C(0)2:C(7)1:NC2300| I3NC X((1)(I1))1 C((X1)71)0250 C((I1)7)X:C((X1)71)I:290 C((X1)72)0270 C((I1)7)X:C((X X,Y" NC,NH NF0, NC100160P NC((1)7)2:NH((2NC2))2u NF1::22:"C-";NC;"H-";NH:180 NC1NC16NH1NH2NC2((NH2)NH(NH2))175 "IMPROPER DATA!":"C MUST BE >=2 AND <16":"H MUST BE EVEN, >=0 AND <=2*C+2R":"ARRANGEMENTS FOR A GIVEN MOLECULAR":"FORMULA CXHY,WHERE:" }::"X IS THE NUMBER OF CARBON ATOMS AND HAS A RANGE 2>=X<16 13:"Y IS AN EVEN NUMBER OF HYDROGEN ATOMS AND HAS A RANGE 0>Y<=2*X+2" 17:"ENTER A MOLECULAR FORMULA IN THE FORM OR APPLESOFT BY P.JENNER." 2:"DRAWS VARIOUS POSSIBLE (BUT MOSTLY IMPROBABLE) MOLECULAR ARRANGEMENTS OF A GIVEN HYDROCARBON" 7:::8::"PLEASE WAIT - READING DATA": <8900 dC(110) n:? x4:"THIS PROGRAM WILL DRAW MOLECULA- 8);"**************************"S8);"* *"y8);"* HYDROCARBON STRUCTURES *"8);"* *"#8);"**************************"(:"R.S.MATTHEWS...BYTE MARCH 1980" -:"MODIFIED F           +",0,0,6,8,9,0,7,8,9,0,0,-1k "B",1,2,3,4,5,6,7,8,9,0,1,5,9,0,1,5,9,0,1,5,9,0,1,5,9,0,2,4,6,8,0,3,7,0,-1 "C",3,4,5,6,7,0,2,8,0,1,9,0,1,9,0,1,9,0,1,9,0,2,8,0,-1 "D",1,2,3,4,5,6,7,8,9,0,1,9,0,1,9,0,1,9,0,1,9,0,2,8,0,3,4,5,6,7,0,-17"E",1,2,3" ANOTHER WINKLEGRAPHIC"D " THIS BANNER THE PROPERTY OF ";D$V PR$"Y"665e P$;"PR#0" ::" DO YOU WANT ANOTHER PRINT OUT?(Y-N):GETAN$:IFAN$> Y<#((5)21)9040,9060cP#Y1:nd#Y1:1 ";:XQ2:100VD3?`"Q63 MOLE OF MAGNESIUM ";:XM1:100ht" OXYGEN ";:XO2:100" MAGNESIUM OXIDE ";:XMX:100"Q64 RATIO ";:D2:XN1:SS1:100:":";:XN2:SS1:100:":";:XN3:100@ ##.## X(X003 "Q55 MASS OFF CRUCIBLE + MG ";:XSCRU:100X "Q58 FIRST WEIGHT ";:XR1:100} " REWEIGHT ";:XR2:100 " REWEIGHT ";:XR3:100 $"Q60 MASS OF MG ";:XQ0:100 8"Q61 MASS OF O2 ";:XQ1:100L"Q62 MASS OF MGOIBLE ";:XCRU:100A "Q55 MASS OF CRUCIBLE + MG ";:XSCRU:100g "Q58 FIRST WEIGHT ";:XR1:100 " REWEIGHT ";:XR2:100 " REWEIGHT ";:XR3:100  p T COPY " T COPY": "Q54 MASS OF CRUCIBLE ";:XCRU:1) l 9020:R3E(R2)$ Q1R3SCRU4 Q0SCRUCRUB Q2R3CRUO O2Q132_ MXQ240.31o M1Q024.31 N11:N2O2M1:N3MXM1 I140:"=";:I " SIMULATION ";J D2 "Q53 LENGTH OF MAGNESIUM ";:XL1:100 "Q54 MASS OF CRUC MAIM PROGRAM J1CO( 90205 XC(30)? 8100H L1XT MGLL1^  9020k XC(40)u  8100  CRUX  9020 ! XD(CRU)A(MG) & 8100 + SCRUX 0 MOMG40.3124.41 D 9020:R1B(MO)D(CRU) X 9020:R2A(MO)D(CRU" SYNTHESIS OF MAGNESIUM OXIDE"G " A COMPUTER SIMULATION"O $:j L"HOW MANY COPIES?";COw L.04025 HC(X)XX((2)10Y) \A(X)XX((3)50Y) pD(X)XX((7)500Y) B(X)XX((4).2) E(X)XX((9)1000Y)p  1020d!iX10D2X-nX$(X)=xAI1(X$)V(X$,AI,1)"E"ĂAIeAJ1AI1~(X$,AJ,1)"."ĂAJAJDAI1ANAJD:190ANAI1X$(X$,AN)(X$,AI)X1X$"0"X$X$;SS0ĺSS0%      N":"THERE ARE TWO PHASES TO THIS SIMULATION"::"DURING THE FIRST PHASE AN ALKALI IS"::"TITRATED WITH AN ACID OF KNOWN MOLARITY":: "THE SECOND PHASE ALLOWS YOU TO CALCULTE"::"THE CONCENTRATION OF THE ALKALI AND "::"DRAW A TITRATION CURV5M2V1C1MOLES.0011C1(C11E9.5)1E9F"C10PH7:4160n,C10PH1(C1)2.30258509:41606PH15(C1)2.30258509@PS140(PH10.5)JV1200010,PSTV1$Z$V:8 INSTRUCTIONS :"ACID BASE TITRATIOPS,85  !TITRATION CURVE':MLSM150M22S10,110,140240,140rJ1401010:7,J10,J:J7,70240,70X1023020:X,140X,143:X21" 10 20 30 40 50 60 70 80 90 100"V1.001MLS1000.001MOLESM1.09,153J:J ) CALCULATE PH & PLOT0 0Q J111:91,74J249,74J:JX 3m C10PH7:3060 C10PH1(C1)2.30258509:3060 PH15(C1)2.30258509 PSPH10100.5 21:(V10000.5)10;:32:(PH100.5)100; PS,75J,105J35J,105J:J7J15:20,110J40,110J:J\J18:20J,115J40J,115J:Jbh~MOLESM1.05M2VC1MOLES.001C1(C11E9.5)1E9300040>J1(V.001):21,J39,J:JH3 fJ1(V.005):10,153J610,70:J0VJ013:105J10,60105J10,65:Jg`90,8072,8068,8468,15963,15963,8269,7690,76zj170,50170,60tDRAW FLUIDS~J18:10,159J70,159J:JJ218:20J,120J,100:JJ15:20J,100J40J,100J:JJ15:2520,120,10025,10520,11020,11529,12431,12440,11540,11035,10540,10040,1$20,10017,10017,9014,9014,12017,12017,11020,110.40,10045,10045,11040,1108PH METERB90,50250,50250,9090,9090,50LJ014:100J10,60100J$$"W";19(N$)2);N$;:39:"W"2SS$:SS$U"W";19(M$)2);M$;:39:"W"SS$:"W DOS 3.2 JM W":SS$:S$DRAW APPARATUS:3BEAKER7,10910,11210,15970,15970,11273,109BURETTEQRITY ";M2:)CM(M2V200000.5)10000TH::"THIS GIVES A MOLARITY OF ";M::xR"ACTUAL MOLARITY USED WAS ";M1W:" % ERROR IS ";(((M1M)M1100)10.5)10;"%"\:Z$:8:958:720(4);"RUN HELLO CHEM"::255S$:SS$:SS 3 4 OR 5 PLEASE":21:740* Z$"3"800A Z$"4"İ4000:700K :V0[ Z$"1"300k Z$"2"200{ Z$"5"900  CALC MOLARITY OF ALKALI *8:958 4:"50 MLS OF ALKALI MOLARITY UNKNOWN": >(V10000.5)10;" MLS OF ACID MOLA) RE-DO WITH NEW ALKALI":i " (3) CALCULATE MOLARITY OF"::" ALKALI": " (4) TITRATION CURVE": " (5) EXIT PROGRAM": "WHICH DO YOU WANT ";Z$ Z$"1"Z$"5"ĺ:"USE ONLY A 1 2 " T:34,22 1000& XTITRATE, b6 l:Z$W vZ$"D"VV.0001:2000:600w Z$"M"VV.001:2000:600 Z$(27)700 610 OPTIONS AFTER TITRATING :: "OPTIONS ARE : (1) RE-DO WITH NEW ACID": " (2Z$ (Z$,1)"Y"250I ::"WHAT MOLARITY DO YOU WANT ? ";M1::260b M1((1)1000)1000 MOLESM1.05:C1MOLES.001 3000 ,GET MOLARITY OF ACID 6:::"WHAT IS THE MOLARITY OF THE ACID ";M2 @21 J:20:"VOLUME";:30:" PH ";19(M$)2);M$;:39:"W"X SS$:"W DOS 3.2 JM W":SS$:S$b :: 2"DO YOU WANT INSTRUCTIONS ";Z$ 7(Z$,1)"Y"İ5000 GET MOLARITY OF ALKALI ::"SHALL I GET THE MOLARITY OF THE ALAKLI ?"::"Y OR N ";E! N$"ACID / BASE TITRATION"E M$"SIMULATION USING PH METER"R ::255 S$"WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"SS$"W W"S$:SS$:SS$"W";19(N$)2);N$;:39:"W"SS$:SS$ "W     ,6,7,8,9,0,-1W"0",3,4,5,6,7,2,3,8,0,1,4,9,0,1,5,9,0,1,6,9,0,2,7,8,0,3,4,5,6,7,0,-1p$".",1, 2,0,1,2,0,-1."*",2,5,8,0,3,5,7,0,4,5,6,0,1,2,3,4,5,6,7,8,9,0,4,5,6,0,3,5,7,0,2,5,8,0,-18"-",5,6,0,5,6,0,5,6,0,5,6,0,5,6,0,5,6,0,-1B"!",0,0,1,,0,3,4,9,0,-1I"6",2,3,4,5,6,7,0,1,4,8,0,1,5,9,0,1,5,8,0,2,3,4,7,0,-1"7",1,2,9,0,3,9,0,4,9,0,5,9,0,6,9,0,7,9,0,8,9,0,-1"8",3,7,0,2,4,6,8,0,1,5,9,0,1,5,9,0,1,5,9,0,2,4,6,8,0,3,7,0,-1 "9",5,6,7,8,0,4,9,0,4,9,0,4,9,0,4,9,0,5,9,0,1,2,3,4,5"2",1,2,3,4,7,0,1,4,8,0,1,4,9,0,1,4,9,0,1,4,9,0,1,5,8,0,1,6,7,0,-1"3",2,8,0,1,9,0,1,5,9,0,1,5,9,0,1,5,9,0,2,5,8,0,3,4,6,7,0,-1"4",4,5,0,4,6,0,4,7,0,4,8,0,1,2,3,4,5,6,7,8,9,0,4,0,4,0,-1 "5",2,6,7,8,9,0,1,6,9,0,1,6,9,0,1,6,9,0,1,6,9,0,2,5,9,2,3,4,5,6,0,7,0,8,0,9,0,-1_"Z",1,2,9,0,1,3,9,0,1,4,9,0,1,5,9,0,1,6,9,0,1,7,9,0,1,8,9,0,-1w"<",1,0,1,0,1,0,-1"@",3,4,5,6,7,0,2,8,0,1,4,6,9,0,1,3,9,0,1,3,9,0,1,4,6,9,0,2,8,0,3,4,5,6,7,0,-1"1",0,0,1,9,0,1,2,3,4,5,6,7,8,9,0,1,0,0,-1C,7,8,9,0,2,0,1,0,1,0,1,0,2,0,3,4,5,6,7,8,9,0,-1kz"V",7,8,9,0,4,5,6,0,2,3,0,1,0,2,3,0,4,5,6,0,7,8,9,0,-1"W",2,3,4,5,6,7,8,9,0,1,0,2,0,3,4,0,2,0,1,0,2,3,4,5,6,7,8,9,0,-1"X",1,9,0,2,8,0,3,7,0,4,5,6,0,3,7,0,2,8,0,1,9,0,-1"Y",9,0,8,0,7,0,17,0,2,8,0,1,9,0,1,2,9,0,1,3,9,0,2,8,0,1,3,4,5,6,7,0,-1 R"R",1,2,3,4,5,6,7,8,9,0,5,9,0,4,5,9,0,3,5,9,0,2,5,9,0,1,6,7,8,0,-1\"S",2,6,7,8,0,1,5,9,0,1,5,9,0,1,5,9,0,2,3,4,8,0,-1f"T",9,0,9,0,9,0,1,2,3,4,5,6,7,8,9,0,9,0,9,0,9,0,-1/p"U",3,4,5,6,0,7,0,6,0,7,0,8,0,1,2,3,4,5,6,7,8,9,0,-1r* "N",1,2,3,4,5,6,7,8,9,0,7,0,6,0,5,0,4,0,3,0,1,2,3,4,5,6,7,8,9,0,-14"O",3,4,5,6,7,0,2,8,0,1,9,0,1,9,0,2,8,0,3,4,5,6,7,0,-1>"P",1,2,3,4,5,6,7,8,9,0,5,9,0,5,9,0,5,9,0,5,9,0,6,7,8,0,-17H"Q",3,4,5,6,",1,9,0,1,9,0,1,2,3,4,5,6,7,8,9,0,1,9,0,1,9,0,-1r"J",3,4,9,0,2,9,0,1,9,0,2,9,0,3,4,5,6,7,8,9,0,9,0,9,0,9,0,-1  "K",1,2,3,4,5,6,7,8,9,0,5,0,5,6,0,4,7,0,3,8,0,2,9,0,1,9,0,-1"L",1,2,3,4,5,6,7,8,9,0,1,0,1,0,1,0,-1) "M",1,2,3,4,5,6,7,8,9,0,8,4,5,6,7,8,9,0,1,5,9,0,1,5,9,0,1,5,9,0,1,5,9,0,1,9,0,-1s"F",1,2,3,4,5,6,7,8,9,0,5,9,0,5,9,0,5,9,0,5,9,0,9,0,-1"G",3,4,5,6,7,0,2,8,0,1,9,0,1,9,0,1,3,9,0,2,3,9,0,1,2,3,8,0,-1 "H",1,2,3,4,5,6,7,8,9,0,5,0,5,0,5,0,1,2,3,4,5,6,7,8,9,0,-10"I+",0,0,6,8,9,0,7,8,9,0,0,-1k "B",1,2,3,4,5,6,7,8,9,0,1,5,9,0,1,5,9,0,1,5,9,0,1,5,9,0,2,4,6,8,0,3,7,0,-1 "C",3,4,5,6,7,0,2,8,0,1,9,0,1,9,0,1,9,0,1,9,0,2,8,0,-1 "D",1,2,3,4,5,6,7,8,9,0,1,9,0,1,9,0,1,9,0,1,9,0,2,8,0,3,4,5,6,7,0,-17"E",1,2,3" ANOTHER WINKLEGRAPHIC"D " THIS BANNER THE PROPERTY OF ";D$V PR$"Y"665e P$;"PR#0" ::" DO YOU WANT ANOTHER PRINT OUT?(Y-N):GETAN$:IFAN$>FOR END" "**************************************" RR1 B$(R) B$(R)">"200 160 AR1 "OWNER'S NAME ?";D$N " DO X(50):D$(100):B$(80)/P$(13)(4)K::" BANNER "a" ********"::" INPUT BLOCK HEIGHT";:E::" BLOCK LENGTH";#D(:ID:D1100d"**************************************" n" "THIS PROGRAMME WAS WRITTEN BY ":."" B. MCMULLEN."P`"" G. STONE."h"" G. TROTTER."""BROADMEADOW HIGH SCHOOL"""JULY 1980"(# H 0"(# z# ??   Πө!Ӡ  ӠӠ ҮήΠΠ"Š!  ΠӠ" ϮʠŠҠ  ̠ ̠ ŠǠ Ӡ  ͮ׮ Ӡ Ġ!Š Ϡ͠àӠϠӠ  ϠŠӠӠ̠ΠĠŠΠŠ510:TP(K1)F30F40F2K1k XX1YY1ĺ(1):W$"IT CAN'T PLOT THIS ONE. TRY ANOTHER.":::9600:3240 TP(K1)F30F40F1K1 (TP(K1)F2)(TP(K1)F1)F10:F20:3200 3030 GET MORE PARAMETERS? (7):9100:::W$"WANT TO PLJ1N:P(K3)WK0Q(K2)Y(J):Q(K3)(TK0P(K2)X(J)):RP(K3)K2Q(K3)K2:B(K1)B(K1)K4I(J)P(K3)R:B(K2)B(K2)K4I(J)Q(K3)R: B(B(K1)K2B(K2)K2):X1X:Y1Y:TK3WK33200 B0B1E38:B(1)B:B(2)B TTSB(K1)B:WWSB(K2)B:XT:YW:S R X(X)140X2798:Y(Y)96Y1916:G3Ĺ16299,0:16304,0:(7):9100 G3:3500::3:LX4:RX4:LY3:RY3:700:F10:F20:F31:F41:B0:S.05:3300:3050 TP(1)F30 TP(1)F40 K0.5:K11:K22:K33:K42E7 B(1)0:B(2)0:ġ:L(2)2.81V:3 GET PLOTTING INTERVAL} :W$"WHAT PLOTTING INTERVAL DO YOU WANT? (RANGE: .05 - 1)"::9000: T0:9500:V.05V1W$"PARAMETER BEYOND RANGE. TRY AGAIN.":9600:2520 INV: DRAW MAGNETIC INDUCTION FIELD CONTOUR1. SECTION AT Y-COORD. AT -1.75 M.":"2. SECTION AT Y-COORD. AT -0.75 M.":"3. SECTION AT Y-COORD. AT 0.25 M.":"4. SECTION AT Y-COORD. AT 1.25 M.":"5. SECTION AT Y-COORD. 2.25 M.":"6. EXIT TO MAIN MENU."9300:I$:V(I$):V1V62230V6I0A(B(K1)K2B(K2)K2)?I(J)K0A(B(K1)K2B(K2)K2)[ BBA::B4B122100~YB:510:L(2)2.2ĺ(7):91004XXIN:XK22040>XK2:(7):9100:2015H2040CHOOSE SECTION CUT:"WHICH CHOICE DO YOU WANT?"::"D8X(X)140X2794:Y(Y)137Y19114:I1IN:2500B2200G2::3:LX2:RX2:LY4:RY10:700:L(1)2:L(3)2:L(4)2:3300X2:K00:K11:K22BK0:JK1N:LXX(J):KL(K2)Y(J):R(LLKK):B(K1)I(J)L(RR):B(K2)I(J)K(RR):I(J)X(.05),Y(Y)::/DRAW PLAN VIEW OF FIELD}X(X)140X2798:Y(Y)96Y1916:G1Ĺ16299,0:16304,0:(7):9100G1::3:LX4:RX4:LY3:RY3:700:3300Y1.82.2:X3.94.1.2:510:::(7):9100DRAW ELEVATION VIEW OF FIELANGE -3 TO +3, INCLUSIVE.":9000:20:9700:958:CDRAW AXES kX(0),0X(0),MY:0,Y(0)MX,Y(0)DRAW TIC MARKS (LX,RX,LY,RY ARE THE MAX. LIMITS OF THE GRAPH IN USER UNITS)XLXRX:X(X),Y(.1)X(X),Y(.1)::YLYRY:X(.05),Y(Y)L BE MADE IN THE GRAPH IN #2."::9000Q J9300:I$:V(I$):V1V4ĺ(7);:330r TV1000,2000,3000,400::300x  PLOTTING ROUTINE X(X)0Y(Y)0X(X)MXY(Y)MYı X(X),Y(Y): XMESSAGE2bW$(7)"THE NUMBER MUST BE IN THE R GRAPH."::9000 HW$" WIRES WILL BE INDICATED BY CROSSES (CURRENT INTO SCREEN) OR FILLED IN SQUARES (CURRENT COMING OUT OF SCREEN)."::9000& IW$" #1 SHOWS THE FIELD LOOKING DOWN FROM ABOVE, WITH THE PLOTTED LINES INDICATING WHERE THE 'CUTS' WILEW OF FIELD;":" 3. DRAW MAGNETIC FIELD INDUCTION"," CONTOURS;":" 4. GET NEW PARAMETERS." @:W$" WHEN YOU ARE FINISHED WITH THE GRAPHS, PRESS 'RETURN' TO RETURN TO THIS MENU.":9000 EW$" THE APPLE WILL 'BEEP' WHEN IT IS FINISHED DRAWING THEV)3İ600:170; 20::"CURRENT IN WIRE "J"?";::868:R T1:9500:I(J)V: P:VX(J):T9:8100:VY(J):T24:8100:VI(J):T37:8100::PP1: 958:9100:G0 ,::18:"MENU"::] 6" 1. DRAW PLAN VIEW OF FIELD;":" 2. DRAW ELEVATION VIRES, PLEASE.":9600:140D V1W$"NO WAY. TRY AGAIN.":9600:140 :NV:X(N),Y(N),I(N):J1N:20::"X-COORDINATE OF WIRE "J"?";:: T1:9500:X(J)V::(V)3İ600:JJ1: 20::"Y-COORDINATE OF WIRE "J"?";:: T1:9500:Y(J)V::( A45` F:3:"ENTER THE NAME,SYMBOL,VALENCY (in that order with commas between)" PCN$(200),CS$(200),CV(200) ZX0 dXX1:CN$(X),CS$(X),CV(X) nCN$(X)""100 xD$"":N$"CHEMICALS":O$D$"OPEN"N$:W$D$"WRITE"N$ O$:WS$(NC),CV(NC)2 #X1NC:CN$(X):CS$(X):CV(X):: %C$@ (S -I((1)NC1) 2"CHEMICAL: ";CN$(I)::"SYMBOL ?";CS$:"VALENCY ? ";CV 7CS$CS$(I)CVCV(I)ė:"RIGHT!":::45 <"WRONG!":"SYMBOL = ";CS$(I);20);"VALENCY = ";CV(I)::::AD A NUMERIC RESPONSEh&%9400:V(I$):S1:DP1:I1(I$):X$(I$,I,1):X$"0"X$"9"X$" "S0::0%DPĭX$"."S0:DP0:::%TĭSĭX$"-"X$"+"S0:D%W$"PLEASE ENTER A ":T0W$W$"POSITIVE "N%W$W$"NUMBER.":9600:9510% PRINT ":XX17$10000:I$""ĢXX1:9410B$F0ıe$I(I$)11:(I$,I,1)" "Ă$I$(I$,1,I):I$""ĢXX1:9410$F1ı:DEL. TRAILING SPACES ONLY$I1(I$):(I$,I,1)" "Ă%I$(I$,I):I$""ĢXX1:9410%%RE400:F0:I$"YES"F1:&$I$"NO"ı`$W$"A SIMPLE 'YES' OR 'NO' WILL SUFFICE.":9600:9210qT$ CLR KYBRD ^$X(16384):16368,0:$PROCESS INPUT $F1: DELETE LEADING SPACES & TRAILING SPACES$XX(37):XX1:" N":::&(# FORMATTED PRINT ROUTINE:2#(W$)40ĺW$:[<#I4011:(W$,I,1)" "Ă}F#(W$,I1):W$(W$,I1):9010#WAIT FOR CR##"PRESS ";::"RETURN";::" TO GO ON."#9310:I$:(I$)139120##YES/NO RESPONSE#9I$:(I$)131080B::0PRINT GAS DATA23::"GAS:";::" "N$(I);:958:V(T(I)10.5)10:X$(V):V(V)X$X$".0"21::"TEMP.:";::" "X$" K",:"PRESS 'ESC' TO ABORT.";:21::@HEADINGJ:6::"MAXWELL DISTRIBUTION FUNCTIOD1:PI3.14159265:K01000:K11.5:K22:K44:I1N:DD1:1500:A0400020:D6D1$BK4PIAK2(M(I)(K2PIRT(I)))K1(M(I)AK2(K2RT(I))):XA:YK0B:510:9300:X128ĭX12827ĉ::.::23:(7);:958:"PRESS 'RETURN' TO EXIT."8:YLYRYIY:X(0),Y(Y)3,Y(Y)::5 PLOT GRAPHb X(X)X(2794000):Y(Y)158Y(1584) :3:LX0:RX4000:IX1000:LY0:RY4:IY1:700: 21:J1:X8:I040001000:J:I;:JJX:X10:I2000X8 ::22:12::"MOLECULAR VELOCITY":UHE NUMBER MUST BE IN THE RANGE -3 TO +3, INCLUSIVE.":9000:20:9700:958:] DRAW AXES X(0),0X(0),MY:0,159MX,159 DRAW TIC MARKS (LX,RX,LY,RY ARE THE MAX. LIMITS OF THE GRAPH IN USER UNITS)% XLXRXIX:X(X),Y(.1)X(X),Y(.1):X$".0"B 38(X$))X$:M(J)M(J)1000:PP1::958:9100:1000k ::"ANY MORE GRAPHS?"::9200:FĬ :12:18::"BYE...":: PLOTTING ROUTINE X(X)0Y(Y)0X(X)MXı Y(Y)MYY0 X(X),Y(Y): XMESSAGEL bW$(7)"TF GAS #"J"?";::868:, T0:9500:M(J)Vp :20::"TEMPERATURE OF GAS #"J"? (IN DEG. KELVIN)";::868: T0:9500:T(J)V P1::N$(J);:V(M(J)10.5)10:X$(V):V(V)X$X$".0" 23(X$))X$;:V(T(J)10.5)10:X$(V):V(V)X$ND 10.":9600:140: N(V):M(N),T(N),F(N),N$(N):J1Nf :20::"NAME OF GAS #"J"?";::868: 9400:N$(J)I$:(I$)14W$"THE NAME OF A GAS CANNOT EXCEED 14 CHARACTERS IN LENGTH. YOURS HAS "((I$))".":9600:170 :20::"ATOMIC MASS O$ MAXWELL DISTRIBUTION FUNCTION:::MX279:MY159HdSTART TnR8.314x8000::"NAME OF GAS";:15:"ATOMIC MASS";:30:"TEMPERATURE"::P(37)120::"HOW MANY GASES?": T0:9500:V1V10W$"PLEASE ENTER A NUMBER BETWEEN 1 A$:XX1:X. A1X:CN$(A):CS$(A):CV(A):A D$;"CLOSE";N$i A(0):(13)(4);"RUN HELLO CHEM" (2) change the file (3) exit "b :"Type the number of your choice"j A$y A$"1"20 A$"2"70 A$"3"200 D$(4):N$"CHEMICALS":O$D$"OPEN"N$:R$D$"READ"N$:C$D$"CLOSE" O$:R$:NC CN$(NC),Ck-:3:9::"SYMBOLS AND VALENCY TEST"::"This program tests your knowledge of the symbols and valencies for elements and ions which have been listed on file": :"Do you wish to: (1) run the test   9410 %'%READ A NUMERIC RESPONSE;!%9400:I$"-"ı&%V(I$):S1:DP1:I1(I$):X$(I$,I,1):X$"0"X$"9"X$" "S0::0%DPĭX$"."S0:DP0:::%TĭSĭX$"-"X$"+"S0:D%W$"PLEASE ENTER A ":T0W$W$"POSITIVE "N%W$W$"LING SPACES*$XX(37):XX1:868:XX1H$10000:I$""ĢXX1:9410S$F0ıv$I(I$)11:(I$,I,1)" "Ă$I$(I$,1,I):I$""ĢXX1:9410$F1ı: DEL. TRAILING SPACES ONLY$I1(I$):(I$,I,1)" "Ă%I$(I$,I):I$""ĢXX1::I$:(I$)139120#0# YES/NO RESPONSEN#9400:F0:I$"YES"F1:]$I$"NO"ı$W$"A SIMPLE 'YES' OR 'NO' WILL SUFFICE.":9600:9210T$ CLR KYBRD^$X(16384):16368,0:$ PROCESS INPUT $F1: DELETE LEADING SPACES & TRAI#";::2T33,36:32,2:34,1:35,23:2039,35::8U(#FORMATTED PRINT ROUTINEl2#(W$)(33)ĺW$:<#I(33)11:(W$,I,1)" "ĂF#(W$,I1):W$(W$,I1):9010# WAIT FOR CR##"PRESS ";::"RETURN";::" TO GO ON."#9310LATION COEFFICIENT";::" (R)"::R:Rl:"# OF DATA POINTS";::" (N)"::N0:v:"SE IN K","SE IN A":::(R4(MM));20);((1M)(GM)R5):@DRAW BORDER-SET NEWTEXT WINDOWJ::I140:"#";::I223:"#";:40:"#";::I139:"ION COEFFICIENT";::" (R)"::R:O:"# OF DATA POINTS";::" (N)"::N0::"SE IN POWER";::" (M)",::"SE IN CONSTANT";::" (A)"::(R4);20);(R7):X:"CONSTANT";::" (K)",::"CONSTANT";::" (A)"::1M;20);(GM):%b:"CORRE :"CORRELATION COEFFICIENT";::" (R)"::R:^ :"# OF DATA POINTS";::" (N)"::N0: :"SE IN SLOPE","SE IN INTERCEPT":::(R4);20)(R5): R6(G):R7R5R6:::"POWER";::" (M)",::"CONSTANT";::" (A)":M;20)R6:":"CORRELAT:R5S(C(N0R1)):8000:MD400,500,600x J:W$"PRESS 'RETURN' TO EVALUATE ANOTHER CURVE. PRESS 'ESC' TO QUIT.":9000 T9300:I$:(I$)27ĉ:: ^(I$)13ĉ::40 h(7);:340 ::"SLOPE";::" (M)",::"INTERCEPT";::" (B)":M;20)G:1S INVALID!","TRY AGAIN.":9700:100| AAK:BBL:CKKC:DLLD:EKLE:N0N01:R0EABN0:R1CAAN0:R2DBBN0:120 ,N1N0:N12N121E8 6RR(R1R2):RR0RR1E37( @MR0R1:G(BMA)N0:RR0RR:R3(R2MR0):S(R3(N12)):R4S(1R1)8:N21E38:T1::"VALUE OF ";::"X";::"?":9500:I$"-"Ĵ(R10)1180,300 X1V:T1::"VALUE OF ";::"Y";::"?":9500:Y1V MD150,160,170:200 KX1:LY1: K(X1):L(Y1): K(Y1):LX1:# :(7):"ERROR! THAT SET OF VALUES IXPONENTIAL","Y = A EXP(KX)"H <9300:I$:MD(I$):MD1MD3ĺ(7);:60 F:W$"ENTER A '-' BY ITSELF FOR THE X VALUE WHEN YOU HAVE FINISHED ENTERING YOUR DATA.":9000:9700 dSTART nN11:N23:A0:B0:C0:D0:E0:N00M xX10:K0:Y10:L0:N11E3 CURVE FITTING#:::255L12::13:"CURVE FITTING"::9700:(:W$"CHOOSE WHICH OF THE FOLLOWING RELATIONSHIPS YOU REQUIRE BY TYPING IN ITS CORRESPONDING NUMBER."::9000:: 2"1. LINEAR","Y = MX + B":"2. POWER","Y = AX ^ M":"3. E*#HN**************ARPER *C>N* 04/04/81 *eHN**************ΠɍōٍǍԍύ΍ύҍӍōϳōϴ͍̍΍΍΍ӍЍōϴ΍Í΍ɍ͍ɍ͍͍ˍ΍ȍҍǍōƍō̍ōҍōɍ͠΍ȴȳōȍōϳ͍͍ǍÍ΍ҍՍčΠɍ :10010B'X8İ10110:10010IL'(0)39ĺI$;:(37):40:10200:10010bV'I$;:W$W$I$:10010ot' BKSPC~'I$" "I$;:(W$)1W$(W$,((W$)1)):'W$"":'(W$)39W$W$I$: I:9400:N$I$:I1(I$):(I$,I,1)" "Ă:?&N$(I$,I1):n' INPUT LINE ROUTINE (BOMB-PROOF-I HOPE!)~'W$"":9300'I$:X(I$):I$" "X13X810010$'X13I$W$:.'(0)0X8100108'X8(0)39(W$)40Č868:W$(W$,(W$)1)19820,9830,9840,9850:9000`X\&W$"JUST HOLD ON A SEC WHILE I SORT OUT MY PAPERS...":yf&W$"SHHH! I'M THINKING...":p&W$"(GRUMBLE) MORE ARITHMETIC...":z&W$"BE WITH YOU IN A MOMENT...":& GET NAME,&::W$"HI! WHAT'S YOUR NAME?":9000:S0:5D%W$"PLEASE ENTER A ":T0W$W$"POSITIVE "UN%W$W$"NUMBER.":9600:9510u% PRINT AND ERASE MESSAGES%(7):9000:Y(37)1:9700:IXXY:I1:868::XX1:% DELAY%I03000::H& MISCELLANEOUS MESSAGESR&((1)4)NLY#$I1(I$):(I$,I,1)" "ĂE%I$(I$,I):I$""ĢXX1:9410K%h%READ A NUMERIC RESPONSE|!%9400:I$"-"ı&%V(I$):S1:DP1:I1(I$):X$(I$,I,1):X$"0"X$"9"X$" "S0::0%DPĭX$"."S0:DP0:::%TĭSĭX$"-"X$"+"8,0:$ PROCESS INPUTL$F1: DELETE LEADING SPACES & TRAILING SPACESk$XX(37):XX1:868:XX1$10000:I$""ĢXX1:9410$F0ı$I(I$)11:(I$,I,1)" "Ă$I$(I$,1,I):I$""ĢXX1:9410$F1ı: DEL. TRAILING SPACES OOR CR #7 #"PRESS ";::"RETURN";::" TO GO ON."U #9310:I$:(I$)139120[ #q # YES/NO RESPONSE #9400:F0:I$"YES"F1: $I$"NO"ı $W$"A SIMPLE 'YES' OR 'NO' WILL SUFFICE.":9600:9210 T$ CLR KYBRD^$X(16384):1636 (X,91X,91Y::. x TRANSVERSE WAVE GRIDT Z3:32,40253,40:32,120253,120s X3225320:X,40X,120:y  (#FORMATTED PRINT ROUTINE 2#(W$)(33)ĺW$: <#I(33)11:(W$,I,1)" "Ă F#(W$,I1):W$(W$,I1):9010 # WAIT F:L.125:220  PLOT/ X40,Y80:B LPRINT FOOTINGs V:21:13::W$:::"PRESS 'ESC' TO EXIT": PLOT COMPRESSION WAVE X40,Y76X40,Y84:  COMPRESSION WAVE SCALE 3:35,91245,91:X352455:Y3:(X10)X10Y5L(I1,Z3)X:PL(I1,Z4)Y:* :L.125:115@ COMPRESSION WAVEl W$"COMPRESSION WAVE"::1110:L0:1310{ TL118 I010Z:I1IZ1:Z3:XPL(I1,Z3):YPL(I1,Z4):1210 9310:XZ5ı 3:XX(X)Z2:YZ3:1210:PL(I1,Z3)X:PL(I1,Z4)Y:  FI$"1"I$"2"ĺ(7);:602 P(I$)100,2008 ZL dTRANSERSE WAVE nW$"TRANSVERSE WAVE"::3:0,0:1110:L0:62454:1410 sTL118 xI010Z:I1IZ1:3:XPL(I1,Z3):YPL(I1,Z4):1010 }9310:XZ5ı Z3:XIZ2:YY(X)Z2:1010:P  WAVES:::255eY(X).45(2PI(TI2)):PI3.14159265:X(X)I.2(2PI(TI2))(PL(50,1):Z.25:Z14:Z220:Z30:Z41:Z5272:18:"MENU":::"1. TRANSVERSE WAVE;":"2. COMPRESSION WAVE;":"3. QUIT."<9310:I$:I$"3"ė:   (Y140)1 nX4200(Y140)1. xX3,YX4,Y6 20A CAMEL C :B150(2T)6 :2:K50:T25:N0:Y150QU150(YT):U0YY1v21:"Volume of base (ml) = ";T(22:"Volume of acid added (ml) = "-Y1401002X182(Y140)49<X2200(Y140)49FYKYKPX1,YX2,Y dX382 WRITE A STRING TO HI-RES SCREENWbI1(W$):C$(W$,I,1):C(C$):C13X1:YY8::hlC32İ8310vXX8:X271X1:YY8:POSITION TEXT AT CENTRE OF HI RES-SCREENX((279(W$)8)2)1:>l WRITE AN ALPHANUM. ONTO HI-RES. SCRES PROGRAM CALCULATES THE REACTIONS AND THE FORCES SET UP IN EACH TRUSS MEMBER. YOU WILL NEED TO ENTER THE MAGNITUDE OF EACH FORCE AND THE LENGTH OF THE TRUSS MEMBER.":9000:"PRESS 'RETURN' TO START."9300:I$:(I$)13ĺ(7);:4050XODUCTION*:15::"TRUSS ANALYSIS"::W$" A SINGLE PIN JOINTED TRUSS IS MADE UP OF MEMBERS FORMING THREE EQUILATERAL TRIANGLES. VERTICAL FORCES ACT AT EACH OF THE JOINTS AND ARE RESISTED BY TWO REACTIONS AT THE SUPPORTS.":9000:W$" THID$"OPEN"N$:D$"READ"N$4 Y:AN$(Y):I1Y:AN$(I) J1(AN$(I))1:X((AN$(I),J1)):J1ĭ(AN$(I),J,1)"*"AN$(I)(X128)(AN$(I),J2):2530 (AN$(I),J,1)"*"AN$(I)(AN$(I),J1)(X128)(AN$(I),J2):2530 ::D$"CLOSE":INTRLF0:J0:I17:((P$(I),LI))LFLF((P$(I),LI))Y:I17:((P$(I),LI))LFĂ:u"P$(I)P$(I)"0":II1: LOAD ARRAYS FROM DISC D$(4):N$"TR.AN.DATA"::"LOADING DATA FILE. PLEASE BE PATIENT.","(THIS WILL TAKE A MINUTE OR SO.)" :P$(2)(AC):P$(3)(BC):P$(4)(BD):P$(5)(CD):P$(6)(CE):P$(7)(DE)|L0:J0:I17:LF((P$(I)))1P$(I)P$(I)"."LI((P$(I)))LLLI((P$(I))):JI:LILI((P$(J)))1:I17:(P$(I),LI,1)"."Ă:1550P$(I)" "P$(I):II1:5172,37172,30:W$"F3":X174:Y22:7000jF58,11560,11361,115:208,115210,113211,115:62,115:212,115P95,3597,3798,35:99,35:133,118135,120136,118:137,118:170,35172,37173,35:174,35wPREPARE RESULTS FOR PRINTINGHP$(1)(AB)36:7000:W$"C":X124:Y114:7000:W$"D":X180:Y36:7000:W$"E":X218:Y106:7000260,11360,120:W$"R1":X62:Y120:7000:210,113210,120:X212:Y120:W$"R2":7000&<97,3797,30:W$"F1":X99:Y22:7000:135,113135,120:W$"F2":X138:Y120:7000:0,1590,0:3::21:X1:Y2:HPRINT "OR" CENTRALLY ON HI-RES SCREENX7110:7000YY15:W$"OR":7110:7000:YY15:DRAW TRUSS DIAGRAM97,4060,110135,11097,40172,40135,110210,110172,40S(W$"A":X44:Y106:7000:W$"B":X80:YENSION. NEGATIVE ONES REPRESENT","COMPRESSION."q ,23:"DO YOU WISH TO TRY ANOTHER SET OF LOADS?";:9200:E300 6FĹ16300,0:16297,0:16301,0:16304,0::21:115 @:  SWITCH ON HI-RES SCREEN-DO BORDER 2:0,0278,0278,159LL BE ACTING","DOWNWARD."::"THE FORCE IN EACH MEMBER WILL BE:":: W$" NEWTONS":"AB = "P$(1);W$:"AC = "P$(2);W$:"BC = "P$(3);W$:"BD = "P$(4);W$:"CD = "P$(5);W$:"CE = "P$(6);W$:"DE = "P$(7);W$:/ ":"POSITIVE FORCES IN MEMBERS REPRESENT","T CD(F(2)BC(30))(30):CEBC(30)ACCD(30):DE(F(3)CD(30))(30)W 1500 ::"THE REACTIONS OF 'A' AND 'E' WILL BE:":::L((R1))1:L1((R2))1:LL1LL1 "R1 = "R1" NEWTONS":"R2 = "R2" NEWTONS"::D "POSITIVE REACTIONS WI)0Ğ:23:1:"LENGTH MUST BE A POSITIVE VALUE."(7);:958:9700::1:130W E130 L(I$):R1((.5LF(1)LF(2)1.5LF(3))(2L))F(1)F(2)F(3):R2R1F(1)F(2)F(3) ABR1(30):ACAB(30):BC(F(1)AB(30))(30):BDAB(30)BBC(30)MSTART n:1000:1300] s"POSITIVE FORCES WILL BE CONSIDERED TO BEACTIVE DOWNWARD.":T1 xJ13:23:"VALUE OF FORCE "J" (F"J") (IN NEWTONS)":958:9500:F(J)(I$):1:1: 23:"LENGTH OF A MEMBER (EG 'AC') (IN METRES)";:958L 9400:(I$ TRUSS ANALYSIS)16384:::255I(X)((I$,X)):P(X)PKXJ:LL1:Q1:N(X)(X(1))1:NN9:N8:YS0:XX1:YT0:S1(F(3),P$(7)22500:4000<L(X)((X)):LI(X)(((X))):LF(X)((X(X)))FR(X)(1E3X.5)1E3 d        L(J),1)(R$(I),LL(J),1)Y1&V'TTY:`'FAC(J)FAC(J)YLj'SD(J)SD(J)YWt'B(J)Y^~'Jp'B(0)T:M(I)T'NT(T)NT(T)1'FAC(0)FAC(0)T'SD(0)SD(0)TT'NAME$(I);18);T;33);R(100TNI)'J0NI'K0J'C(J,K)C(J,K)B(J)#:"#NI;" ITEMS WILL BE USED"9#"THESE WILL BE ";Q#K1NI:" ";LL(K);Z#K:#J0NI:SD(J)0:FAC(J)0:NT(J)0:#J0NI:K0J:C(J,K)0$C$'::"NAME","MARK","PERCENT"::34,3'I1$'T08'J1NIB'Y0L'(KEY$,LT TO OMIT FROM THE ANALYSIS"'<#KEY$F#:"IF THE TEST IS CRITERION-REFERENCED PLEASE ENTER THE CRITERION. OTHERWISE TYPE A ZERO ";CRITP#LA(ALT$)Z#NI0:K1d#J1(KEY$)n#(KEY$,J,1)"#"ī9100x#LL(K)J#KK1#J#NIK1JOP1ī2010K"DO YOU WANT A REANALYSIS":Y$:(Y$,1)"Y"ī300t::" PROGRAM FINISHED NORMALLY"DD$;"PR#0"(#:"PLEASE ENTER THE CORRECT ANSWER CODES FOR EACH ITEM IN YOUR TEST"2#"TYPE A # SIGN FOR ANY ITEM YOU WANR(FAC(J))-"DISCRIMINATION =";25);R(DI)l"RELIABILITY IF THIS":" ITEM IS OMITTED =";25);R(RX)"POINT-BISERIAL R =";25);R(PB)CRIT0ĺ"PHI/PHIMAX =";25);R(PHI)::2000"ALL ANSWERS TO THIS QUESTION WERE RIGHT" 0)39ĺI$;:(37):40:10200:10010<V'I$;:W$W$I$:10010Kt' BKSPC w~'I$" "I$;:(W$)1W$(W$,((W$)1)):'W$"":'(W$)39W$W$I$:'W$(W$,(W$)1)I$: O DELAY %I03000::H' INPUT LINE ROUTINE (BOMB-PROOF-I HOPE!)X'W$"":9300'I$:X(I$):I$" "X13X810010$'X13I$W$:.'(0)0X8100108'X8(0)39(W$)40Č868:W$(W$,(W$)1):10010B'X8İ10110:10010#L'($"9"X$" "S0::20%DPĭX$"."S0:DP0::Q:%TĭSĭX$"-"X$"+"S0:D%W$"PLEASE ENTER A ":T0W$W$"POSITIVE "N%W$W$"NUMBER.":E1:JJ1:9600% PRINT AND ERASE MESSAGES%(7);:1:23::W$;::958:9700:23:1:958:%I,1)" "Ă.$I$(I$,1,I):I$""ĢXX1:9410U$F1ı:DEL. TRAILING SPACES ONLYu$I1(I$):(I$,I,1)" "Ă%I$(I$,I):I$""ĢXX1:9410%%READ A NUMERIC RESPONSE!%9400:E0&%V(I$):S1:DP1:I1(I$):X$(I$,I,1):X$"0"X"A SIMPLE 'YES' OR 'NO' WILL SUFFICE.":E1:9600BT$ CLR KYBRD ^^$X(16384):16368,0:s$PROCESS INPUT $F1: DELETE LEADING SPACES & TRAILING SPACES$XX(37):XX1:868$10000:I$""ĢXX1:9410$F0ı $I(I$)11:(I$,(1,K);:K:Q31Q1ī1880.D:"MIDDLE";\NK1LA2:BL$(((IB(2,K))));IB(2,K);:KmX:"LOWER ";bK1LA2:BL$(((IB(3,K))));IB(3,K);:Kl::"TOTAL ";vK1LA2:BL$(((IB(4,K))));IB(4,K);:K:: "FACILITY = ";25);- ITEM ";LJFAC(J)1ī19900:" ";EK1LA:BL$(1);e(ALT$,K,1)(KEY$,LJ,1)Ğw(ALT$,K,1);}K" OTHER OMIT":K1LA2:L13:IB(4,K)IB(4,K)IB(L,K):L:K&"UPPER "; 0K1LA2:BL$(((IB(1,K))));IBrPHI0!|T9G1QNS:T90T90>U30PHIU3(NST9U2)cT9G1:NSFAC(J)G1T9NSFAC(J)U30PHIU3(NST9U2)RX(NI1)(NI2)(1(VARQD)((SQJ(NS(FAC(0)FAC(J)))2NS)NS))RX1RX1OP1ľC$::(3) "ITEM ANALYSIS :RQRQ"ETA(2(R))Z,ZETA((2.3075.27061ETA)(1ETA(0.992290.04481ETA)))t6Y0.39894(0.5ZZ);FMFITC(NSFAC(J))@BB(FMFAC(0))FAC(J)YJPBCF(BBYQD)(QD)TCRIT0ī1700^U2G1NSFAC(J).001hU3NST1U2dFITCFITCM(I)'nSQJSQJ(M(I)1)2.xI;JJ1LAEJHJJj(KEY$,LJ,1)(ALT$,JJ,1)ī1460rJJ|1480T1T1IB(1,JH)T3T3IB(3,JH)DIT1G1T3G3Q1FAC(J)QDQFAC(J)QD0ī1560PB0:1620 RFAC(J)J,1)LJ(R$(I))RJ$" "*JJ1LAF RJ$(ALT$,JJ,1)ī1340NJJbRJ$" "ī1330(IB(NR,LA2)IB(NR,LA2)1:13602IB(NR,LA1)IB(NR,LA1)1:1360<IB(NR,JJ)IB(NR,JJ)1FRJ$(KEY$,LJ,1)ī1380PSQJSQJM(I)2Z1400:$~ START OF ITEM ANALYSIS LOOPLBL$(1)" ":BL$(2)" ":BL$(3)" "XJ1NIeLJLL(J)SQJ0:FITC0:T10:T30K14:L1LA2:IB(K,L)0:L:KI1NSNR2M(I)Q3NR3M(I)Q1NR1LJ(R$(I))RJ$(R$(I),L:::::::2V"MEAN TEST SCORE = ";R(FAC(0))Y`"STANDARD DEVIATION = ";R(SD(0))j:"KR#20 RELIABILITY = ";R(KR20)t"STANDARD ERROR OF MEASUREMENT = ";R(SEM)y::{"G1=";G1;" G3=";G3;" CUM=";CUM|"NT=";:J0NI:NT(J);" ";:)C(K,J)C(J,K)K!J+VAR07J1NIUVARVARFAC(J)(1FAC(J))\JwTSD(0)2VAR:T1T1$CF(NI((NI1)T)).KR20(NI(NI1))(1VARSD(0)2)8KR200KR200BSEMSD(0)((1KR20))GOP1ĺDD$;"PR#1" LC$0;" "; fJ p! zJ0NI28 J10(J10);" ";? Jg :"HISTOGRAM OF MARK DISTRIBUTION"s J0NI FAC(J)FAC(J)NS SD(J)(SD(J)NSFAC(J)FAC(J)) K0J C(J,K)C(J,K)NSFAC(J)FAC(K)C(J,K)C(J,K)(SD(J)SD(K)0.0001ī790 (CUMK1)N1ī760- N1(CUMK1)B Q1J1:G1NSCUMY (CUMK3)N3ī790j N3(CUMK3)z Q3J:G3CUM J CRIT0ī840 *JCRITNI:ITITNT(J):J 4G1IT:G3NSG1 >Q1CRIT:Q3CRIT1 H11); RJ0NI2 \J9ĺJ1"Y"ī350 @DD$;"PR#1"# JOP1- ^9000V vN1300:N3300: MAX. NO. OF PEOPLEk ::14:0,NI39u CS12 CUM0 J0NI CRIT0ī690 CS:CS21CS:700 1:JCRITĠ12 NT(J)0ď38NT(J),37J CUMCUMNT(J) CRIT0 DF$( DF$"NONE"DD$"KEYBOARD "= DD$;"OPEN ";DF$R DD$;"READ ";DF$^ I1NSl NAME$(I)w R$(I)~ I DD$;"CLOSE ";DF$ "K1(NS0.720.5):K3(NS0.280.5) ,::"DO YOU WANT THE OUTPUT TO BE PRINTED"; 6PP$:(PP$,1)LEY"4 d"MACQUARIE UNIVERSITY SCHOOL OF EDUCATION"d n:" THIS VERSION FOR APPLE DATED MAY 1980" x::"PLEASE ENTER THE RESPONSE CODES USED IN YOUR TEST ";ALT$ ::"HOW MANY PEOPLE TOOK THE TEST ? ";NS : "WHAT FILE IS THE DATA ON";C  ::(R$(300),M(300),C(40,40)=IB(4,10),BL$(3)[LL(40),NT(40),NAME$(300)u(FAC(40),SD(40),B(40)2DD$(4)<R(X)0.01(X100.5)F14);"*** TESTAN ***"P:11);"TEST ANALYSIS PROGRAM" Z:9);"WRITTEN BY MICHAEL BAI     F$\D$;"OPEN ";F$+fD$;"DELETE ";F$>pD$;"OPEN ";F$RzD$;"WRITE ";F$^I1NRjJ1NEwX$(I,J)~JID$;"CLOSE ";F$::4);NR;" RECORDS WRITTEN ON FILE ";F$D:J1NE:X$(I,J),:J:# 690L"ENTER RECORD AND ELEMENT NUMBERS";U I,Jo*:"ENTER NEW VALUE";|4X$(I,J)>690H::"WHAT FILE NAME DO YOU WANT TO USE ? (REMEMBER YOU WILL WRITE OVER ANOTHER FILE WITH THE SAME NAME)"RD ";IRX$(I,1),X$(I,2),X$(I,3),X$(I,4),X$(I,5),X$(I,6),X$(I,7),X$(I,8),X$(I,9)YIz::"O.K TO PROCEED (Y/N)";A$:A$"Y"ī840"EXAMINE (E), OR ALTER (A)";A$A$"E"ī760A$"A"ī790710"RECORD NUMBER ?";I0:"ENTER RECORD ";IV:X$(I,1),X$(I,2),X$(I,3),X$(I,4),X$(I,5),X$(I,6),X$(I,7)]DIfN690rXI1NRb:"ENTER RECORD ";IlX$(I,1),X$(I,2),X$(I,3),X$(I,4),X$(I,5),X$(I,6),X$(I,7),X$(I,8)vI690I1NR:"ENTER RECOR,X$(I,2),X$(I,3),X$(I,4)I(6904I1NRM:"ENTER RECORD ";IzX$(I,1),X$(I,2),X$(I,3),X$(I,4),X$(I,5)I690I1NR:"ENTER RECORD ";IX$(I,1),X$(I,2),X$(I,3),X$(I,4),X$(I,5),X$(I,6)I690&I1NR:"ENTER RECORD ";I"X$(I,1))I2"690>,I1NRW6:"ENTER RECORD ";Il@X$(I,1),X$(I,2)sJI|T690^I1NRh:"ENTER RECORD ";IrX$(I,1),X$(I,2),X$(I,3)|I690I1NR:"ENTER RECORD ";IX$(I,1)D":110H::NR;" RECORDS WITH ";NE;" ELEMENTS IN EACH, RIGHT";PA$f(A$,1)"Y"ī200n:"O.K. TRY AGAIN"::110X$(NR,NE)::NE250,300,350,400,450,500,550,600,650"ERROR TERMINATION"I1NRGOOD WORK - YOU'RE QUITE CLEVER!!!! NOW HIT ANY KEY TO CONTINUE":B$Ti:::n"HOW MANY RECORDS DO YOU WANT TO HAVE ?";NRx"HOW MANY ELEMENTS IN EACH RECORD ?";NENE10ī150:"I'M AFRAID I CAN ONLY FIT 9 ELEMENTS ONTO A RECORHEN EACH SCORE IS AN ELEMENT":} 9"E.G. A FOUR PART TEST HAS 5 ELEMENTS - THE CANDIDATE'S NAME AND THE FOUR TEST SCORES" :"I.E. GLEN,12,3,14,20 ;::"****************************************"::H<" HAVE YOU FOLLOWED ALL THAT? ***************************************":n 4" ARE YOU STILL WITH ME? THEN HIT ANY KEY TO CONTINUE":A$x 5:: 7"IF DATA IS FOR A SCORED TEST OR CONSISTS OF SEVERAL SCORES, EITHER FROM DIFFERENT TESTS OR PARTS OF THE ONE TEST" 8"TT RESPONSES THERE ARE IN THE TEST"] *:" ALWAYS SEPARATE ELEMENTS IN A RECORD BY COMMAS":w +"E.G. FRED,ABDCABBD" ," JILL,124312" -"THE RESPONSES ARE ALWAYS ENTERED AS A SINGLE STRING": 2"USE BLANKS FOR OMITTED RESPONSES"* 3:"* ALL THAT SO FAR? HIT ANY KEY TO CONTINUE":A$ ':::::::::::"****************************************": (::::"O.K. MORE RULES!"" ):"IF THE DATA IS AN UNSCORED TEST THEN THE RECORD WILL BE 2 ELEMENTS, NO MATTERHOW MANE FOLLOW THESE RULES"C #:"1 - A RECORD IS A SINGLE CANDIDATE" $" A RECORD CONSISTS OF PARTS WHICH ARE CALLED ELEMENTS" %" THE FIRST ELEMENT OF ANY RECORD MUST ALWAYS BE A NAME OR A CODE NUMBER FOR THE CANDIDATE"8 &::"HAVE YOU GOT  ::(4)D$(4)I"***************************************":"THIS PROGRAM IS USED TO CREATE A DATA FILE ON DISK" :"***************************************" !:"IF YOU ARE USING IT TO CREATE A FILE OF TEST RESULTS THEN PLEAS     B(K) 'K'J*'II1:INSī100204(34,0< (C$B<(F$100k" (1) WHETHER THE FLASK CONTAINS ACID OR BASE. THE BURETTE WILL HAVE THE OPPOSITE." (2) THE NUMBER OF DISSOCIATION CONSTANTS." (3) THE VALUE OF EACH CONSTANT"::" PRESS ANY KEY TO CONTINUE"$"S"40056000X:#b6Il" TITRATION SIMULATION"ov" ====================":"THIS PROGRAM SIMULATES THE RESULTS OF A TITRATION EXPERIMENT AND PRODUCES A GRAPH OR TITRATION CURVE":"THE DATA REQUIRED ARE" IS 75 CC"YO18D21:1:"PH SCALE IS 0 TO 14 IN STEPS OF 1"qS$;" ADDED IS 0 TO 75 CC IN STEPS OF 5"y 23"PRESS G TO SEE GRAPH : PRESS T TO SEE TEXT PAGE : PRESS S TO STOP";pA$zA$"G"Ĺ16304,0A$"T"Ĺ16303,0 A$"ACID"XO22YO2=(XO:YO:T$;" IN THE CONICAL"F2YO3c<XO:YO:"FLASK IS .1 M"lFYO4PXO:YO:"VOLUME IS 50 CC"ZYO6dXO:YO:S$;" IN THE BURETTE"nYO7xXO:YO:"IS ";((C2),3);" M"YO8 XO:YO:"VOLUMECLEARED ? ";F$PFLAG0/(F$,1)"Y"105B16304,0:240J:RG0j"ML PH ML PH"tXNNXI119I1:1NXI40IG9CTI2JIXNJCT:10NXJ40J S$"BASE":T$S$S0Y0FYSYSYRXA,YXB,Y#\Y)fQ "YOUR DATA APPEARS TO BE INVALID."w "PLEASE CHECK IT AND TRY AGAIN."40055000:21:958:"AGAIN ? ";F$(F$,1)"Y"4040:(4);"RUN HELLO CHEM""DO YOU WANT THE GRAPH X3X0FXSX:Y3Y0FYSY&3IX0,Y0X3,Y0X3,Y3X0,Y3X0,Y0OlYAY01S0(S01)FYSYYBY0D0S0(S01)FYSYXX0X0FXSXSXX,YAX,YBX4XAX01S0(S01)FXSX>XBX0D0S0(S01)FXSX HYY(X2X1)((X2X1)2)1E41220) NN19 N1003000C X1X2M 1090] X203000p P(X2)2.303 T$"ACID"1250 P14P  30 10 V3V3Q V3V24000 X1X2 SC2V3(V1V3) TC1V1(V1V3) 1080JN LF1(J2)X1(J1)(J1)(SK(1))X1JJ(SK(1)TK(1)K(2)W)X1(J1)Y VI1J `FF(SK(I1)(I1)TK(I1)K(I2)WK(I))X1(JI) jJI1160 tF1F1(JI)(SK(I1)(I1)TK(I1)K(I2)WK(I))X1(JI1) ~I X2X1(FF1) I)K(L)900 fTK(I)$ pK(I)K(L)/ zK(L)T6 L= IJ K(J1)0W K(J2)0d J1980o I2J K(I)K(I1)K(I) I  S0 TC1 V30 $X1(C1K(1)) 8N1 BFX1(J2)(SK(1))X1(J1)(SK(1)TK(1)K(2)W)X1"HOW MANY DISSOCIATION CONSTANTS?") 6J4 I1J^ "ENTER CONSTANT AS PK VALUE. ";K(I)e Io C1.1{ &C2.1J 0V150 :V275 DQ2 I1J K(I)10(K(I)) I *J1920 4J1J1 >I1J1 HI1I1 RLI1J \K(22 nY00:D02 sX00$ xFX157 }SX(277X0)FXA FY14T SY(159Y0)FY^ 1960s S01:2000:2100 S01:2000:2100 W1E14 :22:"ACID OR BASE?" NX0:G0 T$ T$"ACID"305 T$"BASE"300 "240 ," 1 7000 PFLAG022= X0SXV3FX75,Y0(FYP)SYCOPFLAG1pX0SXV3FX75,Y0(FYP)SYvNXNX1 BF(NX,0)V3:BF(NX,1)P"40$(BF(NX,0);4G);((BF(NX,1)),4)*dK(10)eDD3000fBF(60,1) i     ,3F,37,2D,2D,2D,2D,2D,2D,2D,2D,2D,2D,2D,3E_'3F,3F,3F,3F,3F,3F,3F,3F,3F,3F,37,2D,2D,2D,2D,2D'2D,2D,2D,2D,2D,2D,3E,3F,3F,3F,3F,3F,3F,3F,3F,3F'3F,37,2D,2D,2D,2D,2D,2D,2D,2D,2D,2D,2D,3E,3F,3F'3F,3F,3F,3F,3F,3F,3F,3F,07,00 A,88,226.05& ACTINIUM,AC,89,(227)A THORIUM,TH,90,232.12a PROTOACTINIUM,PA,91,(231) URANIUM,U(UR),92,238.07 NEPTUNIUM,NP,93,(237) PLUTONIUM,PU,94,(244) AMERICIUM,AM,95,(243) CURIUM,CM,96,(248) BERKELIUM,BK,.09 GOLD,AU,79,197.05 MERCURY,HG,80,200.61Q THALLIUM,TL,81,204.39i LEAD,PB,82,207.21 BISMUTH,BI,83,209.00 POLONIUM,PO,84,(209) ASTATINE,AT,85,(210) RADON,RN,86,(222) FRANCIUM,FR(FA),87,(223)  RADIUM,R,69,168.94' YTTERBIUM,YB,70,173.04G LUTECIUM,LU(CP),71,174.99b HAFNIUM,HF,72,178.50~ TANTALUM,TA,73,180.95 TUNGSTEN,W,74,183.86 RHENIUM,RE,75,186.22 OSMIUM,OS,76,190.2 IRIDIUM,IR,77,192.2 PLATINUM,PT,78,1954.27! PROMETHIUM,PM,61,(147)A SAMARIUM,SM(SA),62,150.35\ EUROPIUM,EU,63,152.0z GADOLINIUM,GD,64,157.26 TERBIUM,TB,65,158.93 DYPROSIUM,DY(DS),66,162.51 HOLMIUM,HO,67,164.94 ERBIUM,ER,68,167.27  THULIUM,TM(TU),121.76$ TELLURIUM,TE,52,127.61@ IODINE,I(J),53,126.91\ XENON,XE(X),54,131.91v CESIUM,CS,55,132.91 BARIUM,BA,56,137.36 LANTHANUM,LA,57,138.92 CERIUM,CE,58,140.13 PRASEODYMIUM,PR,59,140.92 NEODYMIUM,ND,60,14DENUM,MO,42,95.951 TECHNETIUM,TC(MA),43,(99)M RUTHENIUM,RU,44,101.1h RHODIUM,RH,45,102.91 PALLADIUM,PD,46,106.4 SILVER,AG,47,107.880 CADMIUM,CD,48,112.41 INDIUM,IN,49,114.82 TIN,SN,50,118.70 ANTIMONY,SB,51x ARSENIC,AS,33,74.915y SELENIUM,SE,34,78.96Pz BROMINE,BR,35,79.916j{ KRYPTON,KR,36,83.80| RUBIDIUM,RB,37,85.48} STRONTIUM,SR,38,86.63~ YTTRIUM,Y,39,88.92 ZIRCONIUM,ZR,40,91.22 NIOBIUM,NB(CB),41,92.91 MOLYBn VANADIUM,V,23,50.955o CHROMIUM,CR,24,52.01Qp MANGANESE,MN,25,54.94hq IRON,FE,26,55.85r COBALT,CO,27,58.94s NICKEL,NI,28,58.71t COPPER,CU,29,63.54u ZINC,ZN,30,65.38v GALLIUM,GA,31,69.72w GERMANIUM,GE,32,72.60,AL,13,26.98&e SILICON,SI,14,28.09Cf PHOSPHORUS,P,15,30.975\g SULFUR,S,16,32.066xh CHLORINE,CL,17,35.457i ARGON,AR(A),18,39.944j POTASSIUM,K,19,39.100k CALCIUM,CA,20,40.08l SCANDIUM,SC,21,44.96m TITANIUM,TI,22,47.90UM,LI,3,6.940( [ BERYLLIUM,BE,4,9.013> \ BORON,B,5,10.82V ] CARBON,C,6,12.011p ^ NITROGEN,N,7,14.008 _ OXYGEN,O,8,16.0000 ` FLUORINE,F,9,19.00 a NEON,NE,10,20.183 b SODIUM,NA,11,22.991 c MAGNESIUM,MG,12,24.32 d ALUMINUML$,SY$,AN$,AW$# \EL$"DONE"ī8006 fAN$IN$İ6000= pLF u805U z936:255 p:"ELEMENT";16);"SYMBOL";24);"AT.#";30);"AT.WEIGHT" z::EL$;16);SY$;24);AN$;30);AW$ :: X HYDROGEN,H,1,1.008 Y HELIUM,HE,2,4.003 Z LITHI]150# b"TABLE OF THE ELEMENTS"1 lL11103F vEL$,SY$,AN$,AW$Z {EL$"DONE"ī35d 6000l L1t 35 936:255 %::"ENTER ATOMIC NUMBER" * /"TO EXIT OPTION ENTER 'OUT'" 4 9IN$ >IN$"OUT"ī35 HL1103 RE3 EL$,SY$,AN$,AW$+ EL$"DONE"ī202> EL$IE$İ6000E LN 202] 936:255q "ENTER SYMBOL"| :IS$ IS$"OUT"ī35  L11103 0EL$,SY$,AN$,AW$ 5EL$"DONE"ī410 :SY$IS$İ6000 DL1 N410 X:936 d"3. LIST BY ATOMIC NUMBER"> q"4. AUTOMATIC SLOW LIST"D s^ x"ENTER OPTION (1-4)"e }O| O200,400,800,600 936:255 ::"ENTER ELEMENT NAME" "TO EXIT OPTION ENTER 'OUT' " IE$ IE$"OUT"ī35 L110#EL$(15),SY$(6),AN$(3),AW$(7)EIE$(15),IS$(6),IN$(3),IW$(7)O#936q("TABLE OF THE ELEMENTS FILE"2"FOR APPLE II COMPUTER"7"BY RICHARD W. WAGNER":<"ENTER DESIRED OPTION"P"1. LIST BY ELEMENT NAME" Z"2. LIST BY SYMBOL"     K101220K1001220'T512206T471220@1250n"AT LEAST ONE OF THE VARIABLES DOES NOT""LIE WITHIN THE PRSCRIBED LIMITS. SEE""LIMITS ABOVE AND TRY AGAIN."1130V1(((.71A4.97)2))V2(.08BB1550B21050<"PLEASE TYPE IN 1 OR 2!"F1000RD$(4)s(13)(4);"RUN HELLO CHEM"}$1130.126081280B1300L1420V1320`jA,K,Tt:INPUT AND CHECK BOUNDS~A41220A101220 LUES FOR THE"&"CONSTANT FACTORS.".A$["IF YOU WANT ANOTHER SET OF VALUES FOR"~"REACTION RATE, TYPE IN '1'.""IF YOU ARE SATISFIED THAT YOU KNOW THE ""VALUES FOR EACH FACTOR'S MAXIMUM""REACTION RATE THEN TYPE IN '2'.","HELD CONSTANT. DOES THE REACTION RATE"I"HAVE A MAXIMUM VALUE?"v"IS THIS THE MAXIMUM POSSIBLE REACTION""RATE?""TO DETERMINE THIS, USE THE SAME INITIAL""VALUE FOR THE VARYING FACTOR, BUT THIS" "TIME TYPE IN DIFFERENT VA97,(247)& CALIFORNIUM,CF,98,(251)C EINSTEINIUM,E,99,(254)^ FERMIUM,FM,100,(253)~@ MENDELEEVIUM,MV,101,(256)A NOBELIUM,NO,102,(253) B LAWRENTIUM,LW,103,(256)'# DONE,DD,1,1'.5 750 1420 *1260*413004>1280>H1320JRKK10Y\K100880bf830mpMM1{zM2970"YOU NOW HAVE A SET OF VALUES FOR""REACTION RATE AS ONE OF THE GOVERNING""FACTORS IS VARIED AND THE OTHER TWO ARE"XA720XXK800"bXT640Yl"PLEASE TYPE THE VALUE FOR PH, CONC., OR TEMP.";bv580l1420v1260128013001320TT5T4788067014201280130012601320A10880 AASE DIFFERENT)-"VALUES FOR EACH FACTOR.)"Y"TO OBTAIN THE MOST SIGNIFICANT DATA,""START THE EXPERIMENT USING LOW ""NUMERICAL VALUES FOR EACH FACTOR."M0&137001130:"TYPE THE NUMBER WHICH IS TO BE VARIED."DXN"EXPERIMENT IN WHICH YOU ARE TO TYPE IN"Z"THE VALUES FOR PH, CONC. AND TEMP. AS ""YOU DID BEFORE. HOWEVER, NOW YOU ARE""GOING TO BE ABLE TO CHOOSE THE FACTOR""WHICH WILL VARY. THE OTHER TWO FACTORS" "WILL REMAIN CONSTANT. (U TO DETERMINE MAXIMUM REACTION"6 r"RATE (TYPE '2')"= |XJ X2460W X1430r " PLEASE TYPE 1 OR 2"{ 380 "WHAT ARE THE NEW VALUES FOR PH, CONC.," "AND TEMP. "; 1060 340 : "WE ARE NOW GOING TO PERFORM AN ", ABOVE." @ J1060? T"IS THE RESULT A HIGHER OR LOWER"j Y"REACTION RATE? IS THE HIGHEST VALUE" ^"OBTAINED A MAXIMUM VALUE? DO YOU WANT" c"TO TRY ANOTHER SET OF VALUES (TYPE'1')" h"OR WOULD YOU PREFER A MORE ORGANIZED" m"APPROACHAND 47 DEG. C." 1370# 1060) V "NOTE THE REACTION RATE WITH THE THREE" "VALUES WHICH YOU SELECTED TO PROVIDE A" ""BASIS FOR JUDGEMENT OF REACTION RATE," '"CHOOSE ANOTHER SET OF VALUES FOR PH," ,"CONC., AND TEMP. (SEE LIMITSIONS ARE DONE VIA GOSUB CALLS# N "THE FOLLOWING ARE THE LIMITS WITHIN"u "WHICH EACH OF OUR ENVIRONMENTAL" "CONDITIONS MAY VARY:" "(1)PH---------BETWEEN 4 AND 10" "(2)ENZ. CONC.-BETWEEN 10 AND 100 %" "(3)TEMP.------BETWEEN 5 enzyme concentration (3) temperature "l 2"on the reaction rate in a natural system." <20:6:"Do you wish to continue(Y/N)?";:A$ FA$"Y"110 PA$"N"1055 n A=PH,K=ENZ. CONC.,T=TEMP x FOR EFFICIENCY, ALL CALCULAT# :NZYMZ:ENZYME REACTION RATEL:3:11::"ENZYME REACTION RATE":x:5:"GRAEME COWLING COMPUTER PROJECT"5 (::"This program simulates the effect of varying the: (1) pH (2)       EACTION RATE"@"--"4);"-----"4);"-----"4);"-------- ----"FL "-n"(IN THAT ORDER), WHICH FALLS WITHIN "Sx"EACH LIMIT STATED (SEE ABOVE)."Y"PH"4);"CONC."4);"TEMP."4);"REACTION RATE""--"4);"-----"4);"-----"4);"-------- ----" E)." "PH"4);"CONC."4);"TEMP."4);"RK)2(.05K)1 6V316.3(.07T)(.133T)<P(V.88V1V2V3g2V(V100.5)100<A;6);K;7);T;10);VF:PRINT REACTION RATEPZd"I AM GOING TO PRINT A '?'. YOU MUST "i"TYPE A NUMBER FOR PH, CONC., AND TEMP.LATES X/Y M:::"WHAT IS THE VECTOR? ";V:::"WHAT IS THE ANGLE? ";ANuAN0AN180XV:AN0AN180Y0:RADAN3.14159180:XV(RAD):YV(RAD): CALCULATING ROUNDED VALUES VA(VA100.5):VA$(VA)(VA$)3VA$"0"VA$X(RAD):(\ CALCULATES Y/VECTOR xf:::"WHAT IS THE ANGLE? ";AN:::"WHAT IS THE HORIZONTAL COMPONENT? ";Xp1130zFL110501190FL110501220FL11050RADAN3.14159180:Y(RAD)X:VX(RAD):  CALCUR)AN180RAD3.14159? CALCULATES X/VECTOR :::"WHAT IS THE ANGLE? ";AN:::"WHAT IS THE VERTICAL COMPONENT? ";Y 1100FL11050 1160*FL1105041260>FL11050HRADAN3.14159180 RXY(RAD):V X(VVYY):RYX:RAD(R)7AN180RAD3.14159=Y CALCULATES Y/ANGLE :::"WHAT IS THE VECTOR? ";V:::"WHAT IS THE HORIZONTAL COMPONENT? ";X:XV1070X0V0RAD323.14159X0YV:740Y(VVXX):RYX:RAD(RYX:RAD(R)*DAN180RAD3.141599NVX(RAD)?X[b CALCULATES X/ANGLE l:::"WHAT IS THE VECTOR? ";V:::"WHAT IS THE VERTICAL COMPONENT? ";Y:YV1070qYVX0:vY0XV:V0RAD0Y0V0RAD3.14159Y0670IS THE HORIZONTAL COMPONENT? ";X:::"WHAT IS THE VERTICAL COMPONENT? ";Y\X0Y01070~X0Y0VY:RAD3.14159:580X0Y0VY:RAD3.1415932:580X0580Y0X0VX:RAD0:580Y0X0VX:RAD3.14159:580&Y05800";:VAV:MA5:990:20:"HORIZONTAL = ";:VAX:990:o"ANGLE = ";:VAAN:990:20:"VERTICAL = ";:VAY:990::5:"<< HIT ANY KEY TO CONTINUE >>"; RETURNS FOR NEXT PROBLEM A$:::140 CALCULATES VECTOR/ANGLE J:::"WHAT X)PI2:DX1DY1ANPI203rX0ANAN(YX)I|X0DY1ANPI2bX0DY1ANPI32I0AN.1:XCOX20(I):YCOY20(I):XC0XC280YC0YC160ēXC,YCI:ANAN1803.14159 PRINTS DATA AND ANSWERS 322:1:"VECTOR = XXL):EY150SC(YYL)D ,I102792:I,OY:I:I101592:OX,I:IU 6OX,OYEX,EYq @IOYEY6DY:EX,I:I JIOXEX6DX:I,EY:I TOX,EYOX,OYEX,OY ^I04:EXIDX,OYIEXIDX,OYI:OXI,EYIDYOXI,EYIDY:IhPI3.1415926:AN(1DAND COMPONENTS & X0Y0V01070- 73 [ DX1:XL0:XHX:X0XLX:XH0:DX1 DY1:YL0:YHY:Y0YLY:YH0:DY1 YLYHSC250(XHXL):280 SC130(YHYL):SC(XHXL)250SC250(XHXL) OX20SCXL:OY150SCYL "EX20SC(::"WHICH DO YOU WISH TO CALCULATE? PLEASE ENTER THE NUMBER AND THEN RETURN ";C SENDS TO ROUTINE FOR INPUT AND CALCULATION C1C7ĺ"";::140 C7ī1500 C490,620,700,770,870,960 FL1ī190 DRAWING VECTORS )ANGLE AND HORIZONTAL COMPONENT":W$(3)"(3)ANGLE AND VERTICAL COMPONENT":W$(4)"(4)VECTOR AND HORIZONTAL COMPONENT" W$(5)"(5)VECTOR AND VERTICAL COMPONENT":W$(6)"(6)HORIZONTAL AND VERTICAL COMPONENTS":W$(7)"(7)END" I17:2I4:4:W$(I):IZ MCANDREW - SEPTEMBER 82"I d24:3:"<<< PRESS ANY KEY TO CONTINUE >>>";d nX(16384):X128110t x16368,0: INSTRUCTIONS FOR SELECTION :::"THIS IS A PROGRAM DESIGNED TO CALCULATE EITHER:-"s W$(1)"(1)ANGLE AND VECTOR":W$(2)"(2;:A: F:"NO. OF ATOMS OF ELEMENT ";I" IN COMPOUND";:BG KC(I)AB\ PD(I)C(I1)C(I)c UI Z:"THE MOLECULAR WT.OF YOUR COMPOUND IS ";D(N) d:"DO YOU WANT ANOTHER GO,Y/N?":A$ iD$(4) nA$"Y"A$"N"100 xA$"Y"10 A$"N" , MOLECULAR WEIGHT OF A COMPOUNDX3:6:"MOLECULAR WEIGHT DETERMINATION"6:"THIS PROGRAM CALCULATES THE MOLECULAR":"WEIGHT OF A COMPOUND."(::"HOW MANY ELEMENTS IN COMPOUND";:N2I1N <::"ATOMIC WEIGHT OF ELEMENT ";I ""THEREFORE NUMBER OF ELECTRONS "5$18)"N = ";NN*::"CONCLUSION";:q4" WE CAN SEE THAT THE CHARGE">"ON THE OIL DROP IS A MULTIPLE OF THE"H"CHARGE ON 1 ELECTRON"R::::"HIT ANY KEY TO CONTINUE"\fC$p!z"DO YOIONS";:)" NOW FE=";FE;" AND FG=";FGG13)"AND FE = Q * V / D"f13)"THEN Q = FE * D / V"l"SUBSTITUTING D=0.001 AND V=";V 17)" Q = ";QN"DIVIDING BY 1.6 X 10^-19, WHICH IS THE" "CHARGE ON 1 ELECTRON."#30I100,120100,130:100,120108,120108,125100,125:105,125108,130v116,120116,130126,130126,120116,120136,120136,130:136,120146,120:136,125141,125153,120163,120:158,120158,130bA$l::"OBSERVAT54,9554,1007n80,9074,9074,9580,9580,10074,100Vx85,9094,90:90,9090,100107,90100,90100,95107,95100,95100,100107,100114,90120,100126,90139,90132,90132,95139,95132,95132,100139,10090,12080,12080,13090,15<200,70186,70186,69200,69200,50201,50201,69zF215,50215,70216,70216,50230,50230,51216,51:214,50214,70P230,60230,50231,50231,60216,60216,61231,61Z40,9040,10046,10046,9540,9546,9546,9040,90 d50,9054,9558,90:31,70131,50145,54J 130,70145,66145,54146,54146,66:144,54144,66155,50155,70156,70156,50170,50170,51156,51170,60170,50171,50171,60156,60156,61170,61(165,60170,702185,50185,70186,70186,50200,50200,51186,51236,38257,38257,39236,39236,40257,40\40,5055,5055,5140,5140,7041,7041,5140,7055,7055,6940,69:55,5055,6956,6956,5065,5065,7066,7066,5075,7075,5076,5076,7090,7090,6975,69:74,5074,70130,50130,701","BA","NA","NE","FE","ZN","CU","I","U","MN"d<# "AG","AU","PB","PT","HG","LI","BR","AR","KR","SI"F# "RA","RN","SN","AS","XE","RB","TE","BI","CO","GE"P# "OS","AT","SB","ZR","GA","AC","PA","W","FR","RH"'D$(4)'D$;"RUN HELLO CHEM"$ENIC","XENON"I "RUBIDIUM","TELLURIUM","BISMUTH","COBALT","GERMANIUM" "OSMIUM","ASTATINE","ANTIMONY","ZIRCONIUM","GALLIUM" "ACTINIUM","PROTACTINIUM","TUNGSTEN","FRANCIUM","RHODIUM"(# "H","O","N","AL","C","S","MG","HE","CA","K",2# "CLUM","POTASSIUM"A T "CHLORINE","BARIUM","SODIUM","NEON","IRON" v ^ "ZINC","COPPER","IODINE","URANIUM","MANGANESE" h "SILVER","GOLD","LEAD","PLATINUM","MERCURY" r "LITHIUM","BROMINE","ARGON","KRYPTON","SILICON" | "RADIUM","RADON","TIN","ARS "WHAT IS THE SYMBOL FOR ";A$(X):C$: C$B$(X)6700k d"THAT'S WRONG.THE CORRECT ANSWER IS ";B$(X)u 6900 ,"CORRECT":ZZ1 Y X3100 @ "HYDROGEN","OXYGEN","NITROGEN","ALUMINIUM","CARBON" J "SULFUR","MAGNESIUM","HELIUM","CALCIORE":5100G "YOU NEED TO LEARN YOUR SYMBOLS BETTER THAN THAT":5100 h"THAT'S A GOOD SCORE.YOU MUST HAVE A GOOD SCIENCE TEACHER." "DO YOU WISH TO TRY AGAIN?":R$ PR$"Y"100 "GOOD-BYE" 9999 pZ0 uY110 X(49(1)1)' ";A$(T) C$# xC$B$(T)2000T "THAT'S WRONG THE CORRECT ANSWER IS ";B$(T)^ @3000h ZZ1 4"THAT IS CORRECT" T  "THAT IS YOUR TEN QUESTIONS":"YOUR SCORE IS ";Z;" OUT OF TEN" Z54000 Z84200 "THAT'S NOT A BAD SC _ "1.VERY EASY":"2.EASY":"3.AVERAGE":"4.HARD":"5.RESEARCH CHEMIST":"6.A MIXTURE" X::6:"TYPE THE NUMBER OF YOUR CHOICE" b12:"(AND PRESS RETURN)":K K66000 LK10 ML9 Z0 LTML "WHAT IS THE SYMBOL FOR2A$(50):B$(50):C$(1)'7R$(1)=FD150:A$(D):DSPE150:B$(E):Ewd:3:11:"SYMBOLS OF ELEMENTS"n:"THIS PROGRAM WILL ASK YOU FOR THE ":"SYMBOLS OF TEN ELEMENTS" x:"YOU CAN SELECT THE DEGREE OF DIFFICULTY.THE CHOICES ARE:"   "  (W4)(W5)2510#  "CALCULATE THE VOLUME OF ACID NUMBER ";Z;" REQUIRED TO NEUTRALIZE ";T;" MILLILITRES OF BASE NUMBER ";Q;"." 24:8:"PRESS SPACE BAR TO START.";:A$:15 DEGREE OF DIFFICULTY = 2 :2 "ASSUME THE AYDROXIDE"'N "2. POTASSIUM HYDROXIDE"DO "3. AMMONIUM HYDROXIDE"KQ QUR 2450q` "CHOOSE A BASE FROM :"a "1. BARIUM HYDROXIDE"b "2. CALCIUM HYDROXIDE"e Qj 2450 :"ASSUME THE ACID AND BASE YOU HAVE CHOSENARE OF EQUAL MOLARITY.P 3 :"CHOOSE AN ACID FROM:"<4 "1. HYDROCHLORIC ACID"U5 "2. SULPHURIC ACID"m6 "3. CARBONIC ACID"7 "4. HYDROFLUORIC ACID"8 "5. NITRIC ACID"9 "6. ACETIC ACID"= ZB (Z2)(Z3)2400L "CHOOSE A BASE FROM :" M "1. SODIUM H500N02015BB1,B149B14936CB1402200YX182(B140)49pX2200(B140)49 X1,BX2,BN12000X382(B140)X4200(B140)X3,BX4,BN1B1495002000. :1 P150(2T):BTRY AGAIN? (Y/N)"#A$:A$"Y"1-86009YPĒ6HY140920^X182(Y140)49u X2200(Y140)49*YKYKX1,YX2,Y1100X382(Y140)1X4200(Y140)1X3,YX4,YLB149500QYPī2000500lIGHT BY RUNNING YOUR RESULTS THROUGH DIFFICULTY LEVEL 3."YPĺ"DUMMY!!! YOU HAVE ALKALI BURNS ALL OVER BECAUSE YOU TRIED TO OVERFILL THE FLASK BY STARTING WITH TOO MUCH BASE. TRY AGAIN WITH LESS BASE.""ARE YOU READY TO FICULTY."P(W5)ĺ"THE MOLARITY OF THE BASE YOU CHOSE WAS: MB = ";MB(W4)ĺ"THE MOLARITY OF THE ACID YOU CHOSE WAS: MA = ";MA?(W4)(W5)ĺ"AFTER YOU HAVE CALCULATED THE UNKNOWN MOLARITY, YOU CAN CHECK TO SEE IF YOU ARE R50PT;" ML."a"THE ACID YOU CHOSE WAS NUMBER ";Z::"THE BASE YOU CHOSE WAS NUMBER ";Q:: (W1)(W2)(W3)ĺ"IF YOU HAVE SUCCESSFULLY DETERMINED SEVERAL TITRATION VOLUMES AT THIS LEVEL YOU SHOULD CONSIDER MOVING ONTO THE NEXTDEGREE OF DIF140,40140,Y2#U0U0*2921:29:UHYK1705Q719_::5400 (W4)(W5)ĺ"THE VOLUME OF ACID YOU ADDED TO CAUSE NEUTRALIZATION OF THE ";T;" ML OF BASE YOU STARTED WITH WAS:  VA = ";1:21:"VOLUME OF ACID ADDED (ML) = "F "VOLUME OF BASE (ML) = ";TO K50V 2^ N0h Y150x U150(YT) U0550 YY((1)255) 600 &YY1 XY150Y150 bL(1) l3 vY(K1)L0 1000L0Ē4 U0680141,38 135,0135,30138,389 145,0145,30142,38R 136,0136,30140,40e 120,10120,50x 120,5080,140 80,14090,150 160,10160,50 ,160,50200,140 J200,140190,150 ^90,150190,150 h r21 136,30144,30& 5." W$:W(W$)4 W2350,3000,4000,5000,6000= :3L X135145\ X,0X,30:o (136,30144,30 2137,31143,31 <137,32143,32 F138,33142,33 P138,34142,34 Z138,35142,35 d139,36141,46 n139,37141,37 x139,38"PADDLE 1 ALLOWS YOU TO ADD ACID TO THE VOLUME OF BASE IN THE FLASK." "WHAT VOLUME OF BASE DO YOU WISH TO":"USE (1 TO 50 MILLILITRES)";:T "THERE ARE FIVE DEGREES OF DIFFICULTY IN THIS SIMULATION. TO CHOOSE A DEGREE OF DIFFICULTY, PRESS 1 -ATION THE H+ IONS FROM THE ACID REACT WITH OH- IONS FROM THE BASE." "WHEN THE H+ ION CONCENTRATION = OH- ION CONCENTRATION, THE SOLUTION IS NEUTRAL AND THE PH = 7." "WHEN THIS POINT IS REACHED THE INDICATORCHANGES COLOUR FROM BLUE TO RED."I Z:" ************************************** * *"" * ACID BASE TITRATION SIMULATION *":" * *"" **************************************"F "DURING THIS TITR!! ! ! ! ! !!!!!!!!!""""""""UTRALIZATION VOLUME, PRESS 1. IF YOU HAVE AN ACCURATE VOLUME PRESS 2."WD$:G(D$)g(G1)5700v(G2)7065610D(W4)5065(W5)6065p:4015MA((1))2MA((0))24030!::(4);"RUN HELLO CHEM"!!THE BASE."3050!YP7127|(W4)(W5)5600@706"YOU SHOULD NOW HAVE AN ESTIMATE OF THE VOLUME OF ACID NEEDED TO CAUSE NEUTRALIZATION."G"IF YOU WOULD LIKE TO REPEAT THE TITRATION TO GET A MORE PRECISE NEW450605"CHOOSE MOLARITY (0.01 TO 0.50) ";MBW5ĺ"FROM THE TITRATION, CALCULATE THE CONCENTRATION OF THE ACID."3050:4015MB((1))2MB((0))2 "FROM THE TITRATION CALCULATE THE CONCENTRATION OF NE THE":"VOLUME OF THE ACID NEEDED TO NEUTRALISE":"THE ";T;" MILLILITRES OF BASE YOU CHOOSE."i3700yA$:Z(A$)"ACID CHOSEN = ";ZW56060"CHOOSE MOLARITY (0.01 TO 0.50) ";MA3750B$:Q(B$)"BASE CHOSEN = ";Q ODIUM HYDROXIDE"."2. POTASSIUM HYDROXIDE"I"3. BARIUM HYDROXIDE"e"4. CALCIUM HYDROXIDE""5. AMMONIUM HYDROXIDE"(:"YOU MAY NOW CHOOSE THE MOLARITIES OF":"BOTH ACID AND BASE."_"YOU ARE THEN REQUIRED TO DETERMI  2490&t"CHOOSE AN ACID FROM:"By"1. HYDROCHLORIC ACID"Z~"2. SULFURIC ACID"r"3. CARBONIC ACID""4. PHOSPHORIC ACID""5. HYDROFLUORIC ACID""6. NITRIC ACID""7. ACETIC ACID""CHOOSE A BASE FROM:""1. S ' PG K(LOCK U(NLOCK N(EW D(ELETE E(XIT ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ؅D$% 0 +DE ` A PCL~@E^E_EZE[` 1''㍍ 02D)JJJJ 0ș2D) 0șEJJJJ 0``6% $ BE BE E yDHi&eh LRD`$E  ɍ ` XD0 ` SCIENCE DEPT. PROGRAM LIBRARY T(DRIVE L(OAD R(UN SP(NEXTE B` :` b6C7y8C9 E >B A PC @`6798 `H|C h|C``2D3DEEiEiA)m3D3D +D 4D +D) 4Dm2D2Dm3D3Dة$eeELCؠ C82D2D3D3Dؠ 3D$C >B$E  ``L#BH$%  hWB\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\E  EmEB&BBNBmBJnBmBeeE``8EEPEE &B B00   5DEEE B ALT@ BG A CL~@Ъ2'EE &B B B" yD$ >B B A C }CL~@ :L@% E E >B yD AE/5 >Bs r ; >Ba ` `$$(@ @_E%E^EZE[E̍^ZE_[ 0E^ D C1  }CE)ȹE)ȹE) 5D E Bɠ 0   5DL@ M  EТ E XELiLLT@ E &B B B E A EL@ E" " " " " """0 (Q1)(Q2)(Q5)32000: (Q3)(Q4)3220ND P150(T(1(MBMA))):BPXN 3230xX P150(T(1(2MBMA))):BPb 3230l P150(T(1(MB(2MA)))):BPv 3230 P150(T(1(1MB)(3MA))):BP 3230 P150(T(1(3MB)(2MA))):BPCID AND BASE YOU CHOOSE ARE":"OF EQUAL MOLARITY."@ MB1:MA1J 3700Z A$:Z(A$)d 3750t B$:Q(B$) (Z2)(Z3)3100 (Z4)3120 (Q1)(Q2)(Q5)3140 (Q3)(Q4)3160 (Q1)(Q2)(Q5)3180& (Q3)(Q4)3140