' +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`l$m&nl!m#nA* fij'k ij'k fij'kij'k4 [Q]٠ЩUVW,Y[]٠ҩM6a()G!d.?)r.?(r.?$re`#"UVWdYnlmnlmnlmnlmn"lmn$ [ ]Ӡ Lf UVW' ij'k YA f l!m#n l$m&nf l$m&n l!m#nA fl!m#nl$m&nfo \o\d2eo\o \o\+o \o\o\o\0[ ]ŠӠUVW'q[h]ԠȩrM6_|UVW;@r a@*#rGY["@p(ӫʨٮϡզز)\|$@p(լҪ˥ŬٻԺޫ)\|[+o\o\o\o\*od2e\o\o\4o\ٮРҠӠϠƠŠ٠ƠԠŠϠŠ٠ƠҮԠӠŠŠƠŠԠĠϠŠŠàٿҍ3,YLX3,YLL:"L117X1,YLX1,YL@L:O(I,J)0ēOP(I,1),OP(I,2)OP((O(I,J)),1),OP((O(I,J)),2)@ JG IV 1:I1NCw XCP(I,1):YCP(I,2):4000:I NO02850 2:I1NO XOP(I,1):YOP(I,2):4000:I" 3:I1NH, XHP(I,1):YHP(I,2):4500:IT L33 X3,CP(I,2)3CP(C(I,J),1)3,CP(C(I,J),2)3gd FF2ēCP(I,1)3,CP(I,2)3CP(C(I,J),1)3,CP(C(I,J),2)3nn Jux I NO02800 I1NO:J12 O(I,J)02750 O(I,J)100ēOP(I,1),OP(I,2)HP((O(I,J)100),1),HP((O(I,J)100),2):27509 READ6d STATEMENT ON LINE 20 AND RND(0)*X TO HIGHERCn VALUES42 "NH4I","AMMONIUM IODIDE","SOLID",144.96, 2.514k< "LICL:H2O","LITHIUM CHLORIDE","SOLID",60.41,1.78F "PBI2","LEAD IODIDE","SOLID",461.05,6.16P "PF3","PHOSPHORUS TRIFLUORIDE","GAS",87.98,3.907Z TO ALTER LISTING THEN BE SURE TO CHANGE UID", 74.12,.7135= "C6H6","BENZENE","LIQUID",78.11,.8790f  "H2","HYDROGEN","GAS", 2.00, .0899 "N2H4","HYDRAZINE","LIQUID",32.05,1.011 "CRO3","CHROMIUM TRIOXIDE","SOLID",100.01,2.70( "BI2S3","BISMUTH TRISULFIDE","SOLID",514.2,7.39E DōϭōϴōӭōϳōϴōōƭōϳΠōϳōϴΠōϴōȭōɭōϳōϲōϴōέōϳōϴōҲϷōòϴŠɍǫ٠ɍǫÍɫ̠ɍΫΠɍΫӍΫÍ̫͍ҫ͠ɍūΠɍūÍΫŠ֍ΫΠ֍ΫÍòȳϲōҭōϳō̭ōέōӭōϳōϴȴ͍իҠɍիӍȫ΍˫͍ǫҍ͍͍ϫԠɍիҠɍիÍūΠɍūӍ«Ġɍǫ͍ΫōϳōϳΠōϴōϴōȭōɭōϳōϲōϴōέōϳōϴōҲϷōòϴōϭōϴӍǫ̠ɍɫΠɍΫӍΫÍΫ͍̫͠ɍҫΠɍūÍūŠ֍ΫΠ֍Ϋōòȳϲōҭōϳō̭ōέōƭōȭΠ±͍ȴҠɍիӍի΍ȫ͍˫ҍǫ͍͍͍ԠɍϫҠɍիÍիΠɍūӍūĠɍ«͍ǫōΫ٠ɍǫ     ͠ōŠĨϴ͠ΠōōŠϳ͠ōŠ̳͠ōŠղϳҠɠŠŠҲϷ͠ōŠϿΠɠŠŠòȳϲҠōŠȳϴѩàčŠҲϳ͠ōŠҿӍŠŨȩΠɠŠŠϴ͠ōŠϳ͠ōŠϳ͠ōŠȴòϴ͠ōŠȴϳ͠ōŠΨϳàōŠȩ͠ɲ̍Š̿͠ōŠϳҠōŠϴ͠ōŠȿ͠ōŠϴàōŠҲ͠ōŠ̲ϳ͠ōŠ̲͠ōŠȴɿ͠   z#?    ԠҠ!Ԯ͠Ȳ"Ԯ͠ӠԮ͠ӠԮӠ ٠ŠӠƠàȠϠӠƠΠӠƠήؠӠƠή٠ԠҠϠ ٠٠Š٠ϠҠ͠ ĠΠ'ӠŠ#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "     RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P PxAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS    Y150801 3$ 65,Y70,Y+ Y9 X65180H X,80X,85O X` Y150801q 175,Y180,Yx Y '3 'XX 2 161,X239,X X' 35 Y80150H 3:30,Y:40,YZ 0:31,Y39,Ya *Yh /3y 430,8020,80 >20,7540,7540,80 H35,6135,130 R65,6065,70215,70215,100 \X100150 f(X2(X2))6 p210,X220,X zX ";30);"X" K3 P980$ U10300 W0:9808 Z70> dK s0:2000l 50,5850(T)35,58(T)35r y 3 X5060 20,X80,X $X . 10,9010,15980,15980,90 160,90160,159240,159240,90 X110158:1:11,X79, 3:2000720,2080,2080,6020,6020,20D(X5060S220,X80,XZ<Xm=X2.2.9.1>50(X)36,58(X)3650(X)38,58(X)38?XFT((0)1.3255.9)G:22:20(((T)))2:T:868 H23:10);"H+";18);"VOLTS   (Y1)"Y10Y1(Y1Y0):12002Y1(Y1)Y0@1:X1,Y1IXX1UI217mYCAL(I)YRANGEYL:Y0Y(YY0):1255Y(Y)Y0XX3XLXRANGEX,YI TKS EVERY 2000 DEGREES ON Y AXIS *YTYN=NP(MAX2000)MNP01170zI1NP:0,(Y0YT)4,(Y0YT):YTYTYN:IMIN(MIN):NM(MIN2000)YTYNI1NM:0,(Y0YT)4,(Y0YT):YTYTYN:IX1(XLXRANGE):Y1(CAL(1)YRANGEYL)Y1AXMIN:XRANGE50"jXL279:YL159DtY0(MAXYRANGEYL):Y00Y00Uv0,Y0279,Y0z|X027: INITIAL X AXIS TICK MARK~I110:X0,Y0X0,(Y04):X0X028:I: PUT TICKS EVERY 5 NM ON X AXIS XL279:YL159 YN(2000YRANGEYL): PUT TICK MARnhqX H  H [ M ;J2=Z    J  Z        H X 0 , 0 4 0  , 0 0  2,8,- 0 0 4 3, 3 4( 36,3 3 0 , , -), 8;e849SkurRmlyNMhhr?,-6890,1720,222,-30000,-3360,1580  225,-28700,1540,260,228,-24000,4390,-480,231,-17300,4580,-770,234,-11300,3540,160,237,-6250,2410,-90  240,-2950,3370,-1040,243,-1230,2040,-930,246,-703,1183,-540,249,-172,285,-130 X#  THIS SUBROUTINE PROPLOT OF THE DATA":758! 1000- 758:U "DO YOU WANT ANOTHER PLOT(Y/N)";A$d A$"Y"40  201,16800,8810,-23300,204,-9120,300,-11300,207,-22300,-4320,-5770,210,-26400,-8190,-2200!  213,-24800,-8680,-850,216,-26600,-9210,1230,219,-28900(HELIXBSHTRAN)140 .( 2I117F <LAM(I),HP(I),BP(I),RP(I)r FCAL(I)HELIXHP(I)BSHTBP(I)RANRP(I)y KI P:"CALCULATED SPECTRUM WAVELENGTH": ZI117 d"THETA= ";CAL(I),"LAMBDA= ";LAM(I) nI "HIT ANY KEY FOR A HIRES ELENGTH RANGE 200-250 NM."P "THE CD DATA COMES FROM CHEN,ETAL.BIOCHEM,1974."c I11000:I: #"THE SECONDARY STRUCTURE PERCENTAGES MUST TOTAL 1.0" & ("INPUT THE PERCENTAGES AS FOLLOWS; %HELIX,%B-SHEET,%RANDOM ";HELIX,BSHT,RAN ,::::=" CIRCULAR DICHROISM BY DR.G.SCOTT OWEN"^:" ATLANTA UNIVERSITY"oI12000:Iu CAL(40),LAM(40),HP(40),RP(40),BP(40) "THIS PROGRAM CALCULATES AND PLOTS THE CIRCULAR DICHROISM SPECTRUM OF A PROTEININ THE WAV     Ӡ)\fw@p(ΠԠƠΠӠŠҠĠ٠ΠӮݠ)\q |\\@p()KM6*@p(ǠŠ)o\7@p()o\q\6@p(ɠŠàԠŠ̠Ӡ)\Bh@p(ϠŠӠҠԠƠӮ)\\Qm@p(٠ǠŠŬŠӠŠӮ)\\Qr@p(۠ԭŠҠƠԠӠƠǠűjklmnlmnfghlmn\Yfghlmnflmnlmnf lmnlmnH^@p(ŠӠ͠ŠǠŠ٠Π)\Ic@p(ĠӠΠŲ\DE@p(ΠŠԠŬŠӠŠҭĬ)\SJ@p(ŠĠӠũΠ٠ˠРȠŠӠũ)\JO@p(ĠŠӠũȠŠӠũ)\\WTfijkiΠ)cc\q,\cc\M601\ o\o\\q@p()+6@p()\-;@p(ԠƠŠĠ)\G@M6fijkijklmnlmnȠΠ٠ҠРȠŧ)o\q\8@p(ԭƠ̠ŠӠΠŠ)o\8@p(Π٠ŠĠĠ)o\8"@p(ҬŠǠĠȠ)o\?'@p(ŠΠĠˠŠ)o\9@p(Ҡ٠ŠǠ)o \8@p(ĠӠƠȠŠ)o \8 @p(ҠӠŧȠΠ)o\8@p(ҠРȠŧĠŧ)o\E@p(Šݠ)o\q\\M68@p(٠ǠӠƠҭ)o\8@p(ŠΠŠŠƠǠ)o\8@p(ĠŠΠ͠ƠΠ̠)o\9@p(ŠخŠӠ8@p(̮Š̠Ӡ̠ŠΠ)o \8@p(ϠŠ̠)o\8@p(ƠӠ̠ǠŮԭ)o\8@p(ԠƠƠΠԬ)o\5@p(̠Ġ̠)o\5@p()c\q\8@p(ӠŠĠԠ٠)o\8@p(٠̠ӠŠŠҭ)o \8@p(ŠƠӠҠԠԠҠɭ)o \ŠǠ̮)o\\4@p(ŠӠ٠)o\4@p(ԠƠΠΠΠ)o\4@p(٠ĠŠƠ)o\q\\M68@p(ӠŠŠРƠŠ\os@p(ĠΠ)\-x@p(à)o\o .}@p(ĠΠŠԠ)\\5@p(ŠƠҠŮŠ)o \5@p(ƠŠàŠĠŠ)o \:@p(ҠƠŠ)o \K@p(٠)o \'P@p(Ġ)o\\#U@p(Үͮ)o\\/Z@p(ΠŠɢŠ)o\_q\d\M6-i@p(ŠӠ)Mo\Mnq?r.?6?r(UVWY-Y[J2@p()o\cq\7@p(ĠΠ)\,<@p(ŠŠƠ)o\\@A@p()o \\'F@p(͠~%_]a(Š)Q_p]ԭҩ_X]ԭҩ"N@"rC@"rq6q6| KM6_2]ҠP8(;@rrUVW;@r a@*#rG2#`@*#r:()%q.?6?r.?6?r.?6               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"     IN (YES/NO) ";Q$"Q$"NO"8000,7000?L HELP SECTIONIQ936tV"DID YOU COMPUTE A TEMP CHANGE OF ";YX"YES/NO";Q$:Q$"NO"7160[M1(1000YK)1000`"DID YOU COMPUTE A MOLALITY OF ";M1e"YES/NO";Q$:Q$"NO"7160gM2MX10THE SOLUTION":R$;" IS ";T;" DEGREES":"CENTIGRADE."b:"WHAT IS THE MOLECULAR WEIGHT OF X ";AMMXMS1000(YK):M(1000M)1000:(MA).1ĺ"CORRECT":8000"WRONG.":"NEED HELP (YES/NO) ";Q$(Q$,1)"Y"7500" TRY SAME PROBLEM AGA"DATA IS OBTAINED:"9"F.POINT OF ";SV$(J);":";FP(J)]"B.POINT OF ";SV$(J);":";BP(J)P$;" CONSTANT FOR ":SV$(J);" = ";K;" DEG. C/MOLAL":"IF ";MX;" GRAMS OF X ARE DISSOLVED IN":MS;" GRAMS OF ";SV$(J)"."4"THE TEMPERATURE AT WHICH "BENZENE",5.48,80.1,2.53,5.12G "CHLOROFORM",-63.5,61.26,3.63,4.68p "NITROBENZENE",5.67,210.9,5.24,8.1X PROBLEM PRINTINGb936gT(T1000)1000l"A NON-ELECTROLYTE,X, IS DISSOLVED IN ";MS:"GRAMS OF ";SV$(J);". THE FOLLOWING"vKB(J)*(P$,1)"F"R$"FREEZES":55859R$"BOILS"TT(1)(9(1)1):YTiY(Y1000)1000wTFP(J)T7000p SOLUTE DATAt NAME OF SOLUTE,FP,BP,KB,KFu "WATER",0,100,0.512,1.86z "ACETIC ACID",16.6,118.1,3.07,3.9FP(I),BP(I),KB(I),KF(I)I$6J(5(1)1)oT(2(1)1):T2(T2)P$"F.P. DEPRESSION":5550P$"B.P. ELEVATION"MS(100(1)1):MX(1)(10(1)1)MS(1000MS)1000:MX(1000MX)1000(P$,1)"F"KKF(J):5580KASSISTANCE IN GETTING TO THE ":"RIGHT";8n" ANSWER."\x::10:255::"GOOD LUCK !!!"}:::"DEPRESS RETURN TO GET GOING.";A${ DIM STATEMENTS IN LINE 5|I15 SV=SOLVENT NAME FP=F.POINT,BP=B.POINT,KB & KF = CONSTANTSSV$(I),N, THE COMPUTER WILL "kP"GENERATE DIFFERENT PROBLEMS FOR YOU.":"YOU ARE TO TAKE THE GIVEN INFORMATION"Z"AND COMPUTE THE MOLECULAR WEIGHT OF ":"AN UNKNOWN COMPOUND. IF YOU ARE"d"INCORRECT, THE COMPUTER WILL GIVE YOU"(f"HELL-OOPS!":7:"RESSION = K(FP) X MOLALITY"!7J<"TEMP ELEVATION = K(BP) X MOLALITY"=::"YOU MAY ASSUME THAT ALL SOLUTES ARE":"NON-ELECTROLYTES AND DO NOT IONIZE":"IN SOLUTION."AIT13000:ITC"PRESS RETURN TO CONTINUE";A$F936:"IN THIS SECTIOPERATURE IS DIRECTLY RELATED TO"[ "THE NUMBER OF PARTICLES DISSOLVED IN":"THE SOLUTE." :"DEPRESS RETURN TO CONTINUE";A$ 936 "HERE ARE SOME TERMS YOU NEED TO KNOW:" #: ("MOLALITY=MOLES SOLUTE/1000 GRAMS SOLVENT"2"TEMP DEP"SOLVENT BONDS ALSO AFFECT THE FORMATION" "OF CRYSTALS AND THE TEMPERATURE OF THE":"SOLUTION MUST BE LOWERED SO IT CAN" "SOLIDIFY. THIS EFFECT IS CALLED ":"FREEZING POINT DEPRESSION." :"THE AMOUNT OF ELEVATION (OR DEPRESSION)":"IN TEME BOND FORMATION,":"THE VAPOR PRESSURE OF THE SOLVENT IS" "LOWERED... HENCE, THE TEMPERATURE":"REQUIRED TO BOIL THE SOLUTION IS HIGHER" "THAN THAT REQUIRED FOR THE PURE SOLVENT.":"THIS EFFECT IS CALLED BOILING POINT" "ELEVATION."* :: ":T ZT15000" dT2ī10, n90006 936? 125j "WHEN A SUBSTANCE IS DISSOLVED IN A " "SOLVENT, IT ALTERS THE SOLVENT-SOLVENT":"BOND STRUCTURE AND CAN AFFECT THE ": "PHYSICAL PROPERTIES OF THE SOLVENT.":"DUE TO SOLVENT-SOLUT,BP(10),KB(10),KF(10) 936D 10:5:"MOLALITY AND MOLECULAR"g 6:11:"WEIGHT DETERMINATION"o : 2"ENTER THE NUMBER OF THE TYPE OF PROBLEM":"YOU DESIRE <:" 1) DRILL PROBLEMS" F" 2) SOLVE LAB DATA FOR MOLECULAR WIGHT" P10:"8x WRITTEN BY CAMERON BROWNN 1901 NORTH JUNETT TACOMA, WA. 98406 (206) 752-0094 LAB ANALYSIS SECTION TO MATCH EXPERIMENT FORMAT IN FOUNDATIONS OF CHEMISTRY SERIES - BY TOON & ELLIS SV$(10),FP(10)     OMPUTE THE MOLECULAR WEIGHT OF A " "COMPOUND, ALL YOU HAVE TO DO IS ADD ":"UP THE ATOMIC WEIGHTS OF ALL THE ATOMS":"IN THE COMPOUND. THE ANSWER YOU GET IS" "THE MASS OF A SINGLE MOLECULE (IN AMU'S)":"OR THE MASS OF A MOLE OF MOLECULES IN "::" X MOL. WT.":E F$;M$;T$;"MOLECULES"::" X 6.023 X 10^23":{ F$;M$;T$;"LITERS OF GAS"::" X 22.4 (AT STP)": F$;M$;T$;"ML OF LIQUID"::" X MOL. WT. THEN DIV. BY DENSITY": ::"DEPRESS RETURN TO CONTINUE";:Q$ 936" "TO C"DIV. BY MOL. WT.":Y F$;"LITERS OF GAS";24);T$;"MOLES"::"DIV. BY 22.4 (AT STP)": F$;"MOLECULES";T$;M$::"DIV. BY 6.023 X 10^23": F$;"LITERS OF GAS";T$;G$::" X DENSITY": F$;"ML OF LIQUID";T$;G$::" X DENSITY": F$;M$;T$;G$ITH "A "THAT INFORMATION MANY OTHER VALUES CAN BE COMPUTED."j :"DEPRESS RETURN TO CONTINUE";:Q$ CONVERSION CHART 936:5);"CONVERSION CHART FOR CALCULATIONS" F$"TO GO FROM ":T$" TO ":M$"MOLES ":G$"GRAMS " F$;G$;T$;M$:: "A MOLE DOES NOT IMPLY A SPECIFIC VOLUME OR MASS. THE ";} "VOLUME IS RELATED TO THE OBJECT'S DENSITY, AND THE MASS " "DEPENDS UPON THE MAKEUP OF THE MOLECULE." :"FROM THE FORMULA OF A COMPOUND ONE CAN COMPUTE ITS MOLECULAR WEIGHT AND Wī50( 15002 NN1< J 936:5);"THE MOLE-A CHEMIST'S DOZEN" :" THE MOLE IS A UNIT OF QUANITY.":"IT STANDS FOR "; "A SPECIFIC NUMBER OF ATOMS,OR MOLECULES. ONE MOLE "; "OF ANY SUBSTANCE CONSISTS OF 6.023 X10^23 PARTICLES.";V$"ML"" GRAMS/";V$ & : WRONG SECTIONW "NEED HELP? YES OR NO";_ A$s A$"YES"İ3200 "SAME PROBLEM? YES OR NO"; A$ A$"YES"ī2600 "CORRECT ANSWER IS ";C "NEW PROBLEM? YES OR NO"; A$ A$"YES"VIDE YOUR ANSWER BY 10^23 BEFORE ":"ENTERING IT."@CM6.023FL936:M;" MOLES OF ";A$(I);", ";N$(I);", ARE TO BE USED IN ""A REACTION. ";N$(I);" IS A ";S$(I);" WHOSE DENSITY""IS ";D(I);S$(I)"GAS"V$"LITERS":2040 GRAMS OF ";A$(I);" ARE NEEDED";-CMW(I)399C:2000rD"HOW MANY ";V$;" OF ";A$(I);" ARE NEEDED"NCMW(I)D(I)SV$"GAS"CM22.4Xkl2000v"HOW MANY MOLECULES OF ";A$(I):"WILL BE USED IN THIS REACTION?"2"DI1000;" MOLES OF ":A$(I)P G"DIVIDE YOUR ANSWER BY 10^23 BEFORE ENTERING IT."c JCGW(I)6.023i Os r1500 wS$(I)"GAS"V$"LITERS":1660 yV$"ML" |:"HOW MANY ";V$;" IS ";G;" GRAMS OF ";A$(I) CGD(I)  2000  "HOW MANY."; N$(I);" IS A ";S$(I):"WHOSE DENSITY IS ";D(I);" ";b S$(I)"GAS"ĺ"GRAMS/LITER.":1525s "GRAMS/ML."y  :"HOW MANY MOLES IS ";G;" GRAMS OF ";A$(I) CGW(I)  ? @1500 E:"HOW MANY MOLECULES ARE IN ";(GW(I)1000)300 "Q$"WRONG"' ,Q$:X1750:XS 6::"DEPRESS RETURN TO CONTINUE ";:Q$] @NN1l JN3ī250 T936::::"THAT'S ALL. THANKS FOR PRACTICING." ^  PROBLEM DESCRIPTION 936:G;" GRAMS OF ";A$(I);", ";N$(I):"ARE WEIGHED OUT"İ2500 NN1 N3ī100: MOLES--II1NC:CP(II,0)0850HII:1020RIIINC:CP(I,0)1CP(I,1)01010fXX((1)4):J14:KK0zXX0XCP(I,1)20:YCP(I,2)XXй16368,0TKK196300)^KK2011449hKK198100?rnXX1((1)NC)1:Y1((1)NC)1:X1Y1600]X2((1)3)2:Y2((1)3)2:bX1((1)NC)1:Y1((1)NO)1gX2((1)3)2:lX1((1)NO)1:Y1((1)NO)1:X1Y1620: 3002(I1NO:O(I,2)0O(I,2)(101HU):HUHU19)II+NHHU144R,800\.25002"HIT 'D' TO DRAW THIS DIFFERENTLY"4"HIT 'I' FOR A NEW ISOMER (SAME FORMULA)"6"HIT 'F' FOR A NEW MOLECULAR FORMULA"@KK(16384):KK128320 J? C(X1,X2)0O(Y1,2)0C(X1,X2)Y1:O(Y1,2)X1:UNUN1:240M NO1240V 620 O(X1,2)0O(Y1,2)0O(X1,2)Y1:O(Y1,2)X1:UNUN1:240 NC1C(1,1)101:HUHU1 I1NC:J24 C(I,J)0C(I,J)(101HU):HUHU1 "J,I'NO0ĭC(X,2)0C(X,2)I:O(I,1)X:235G C(X,3)0C(X,3)I:O(I,1)X:235m C(X,4)0C(X,4)I:O(I,1)X:235v 210} I UNEU280 NC1255 600 C(X1,X2)0C(Y1,Y2)0C(X1,X2)Y1:C(Y1,Y2)X1:UNUN1:UNEU280 NO0245 610,2)I:190/ C(X,3)0C(I,1)X:C(X,3)I:190T C(X,4)0C(I,1)X:C(X,4)I:190] 165d Ir NO0240~ I1NO X((1)(NCI1))1 XNC220:O((XNC),2)0O(XNC,2)I:O(I,1)(XNC):235 XNC225:O((XNC),2)0210! w(NH2)NH2NH2NC2142) x115@ EU((2NC2)NH)2a I1NC:J14:C(I,J)0:J,I I1NO:J12:O(I,J)0:J,I HU0:OU0:UN0 NC1200 C(1,1)2:C(2,1)1:NC2200 I3NC X((1)(I1))1 C(X,2)0C(I,1)X:C(XA q" 'C' = THE NUMBER OF CARBON ATOMS":"IN THE MOLECULE, ETC."j rNC,NH,NO:NC(NC):NH(NH):NO(NO) sNC1NH2NO0NC15NO6ĺ(7):"IMPROPER DATA.":"C MUST BE >= 0 AND < 16":"H MUST BE EVEN, >=2 AND < 2*C+2":"O MUST BE >=0 AND < 7"::112A bCP(15,2),OP(6,2),HP(34,2)4cC(15,4),O(6,2)@d:936bf5:8);"MOLECULES OF CARBON"jh10n"THIS PROGRAM WILL DRAW A MOLECULE":"FOR A GIVEN MOLECULAR FORMULA."o::p"ENTER A MOLECULAR FORMULA":"IN THE FORM 'C,H,O' , WHERE"         ]άϠ) ]0o ]Ӡ t ]ƺŠ̠Ϡ y ]Š0~ ]Ȭ ]Ġٺ ]ͮҮ̠ ]Πq"\(_  qF\(  MY[ $ ]ȬGV ] ` ]ΠŠ4e ]Ҡ j ]ٺ̠Ӯ"d,eqرqٱ\M)d$egd%egMd,eqرqٱ\MqUVW'`-8rr%qY`$q\(_ `$q \(_ `$  ٲq-8rrqزqٲ4\M`$p>qرqٱ\MHqزqٲ\MR`$p\qرqٱ\Mfqزqٲ\M pYY9zUVWرq-8rrٱq-8rr`-8rr$p$q`-8rr$pUVW`$ 4`-8rr-8rr%q Yq-8rr9رq-8rrٱq-8rrqرqٱ \M9*زq-8rrrqq$`$[@UVW6J`-8rr-8rr$^ TY_h ^qh[#M d,ed&ed'eqqqde2UVWUVWr$8"`-8-rrr$8\$q\@`$5.-8-rrrq-8-rrrq"8Y-8rrq_B[/q-8rrq-8rr+q8/?rrq8/?rƧҠנҠ)q.?6@r`$ d6?e*`$`$`$nQ-rqx-rqK@UVW`-8rr-8r`4yIW>;8631.,*'%#!  !#%'*,.1368;>@CFILOQTWZ]`cgjmpU @ QJJJ`ŴxaI1S-Q/ ? QJJJ`& ')*& *'JJ) **- m- ʥ0J)m-)(`)J Ji,`#" ! & #` L # !" #`#&/'$% #`E%0Q&&S [ TePTUeQPF0'@0- &`0(Q) &E%0Q&&QeS)j00', "&, i8i#H&ii&hif&i'`'i, &i, &iPII&.if&JJJJS)PIȄR-QTU/T8ePT ? UeR  .WSP.)`*()H)&JJ&&h' &' &' f&') .'#i-| 0J, i` @ & Q&%0Q&&`H()*hH8(H)S hIiHSQUhPTh()*IiR*fS8PQ+-  8TeRTUU+5&    -------->??????????7----------->??????????2*-? $--$466$$$?66- --Mb6(-$$$366>? $d-.- 6?-6?$$$366>? $d-$$$$??????????7----------->??????????7----------->??????????7----------->??????????7-----------???????????7----------->??????????7--- "PRINT QUESTION #";I;". ";% dA$(I)+ nN x"WHAT IS THE ANSWER ? ";B$(I)` A$(I)""60{ "WHAT FILE NAME? ";N$ D$;"OPEN ";N$ D$;"WRITE ";N$ I1 J1I1 A$(J):B$(J) J D$;"CLOSE ";N$)  :10%A$(300):B$(300):I0:D$(4): CTRL D@(2"THIS PROGRAM LETS YOU WRITE TEXT AS EITHER QUESTIONS/ANSWERS OR PLAIN TEXT. DO NOT EXCEED 239 CHARACTERS."<FII1P"(PRESS THE RETURN KEY TO QUI