L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`ōϭōϴōӭōϳōϴōōƭōϳΠōϳōϴΠōϴōȭōɭōϳōϲōϴōέōϳōϴōҲϷōòϴŠɍǫ٠ɍǫÍɫ̠ɍΫΠɍΫӍΫÍ̫͍ҫ͠ɍūΠɍūÍΫŠ֍ΫΠ֍ΫÍòȳϲōҭōϳō̭ōέōӭōϳōϴȴ͍իҠɍիӍȫ΍˫͍ǫҍ͍͍ϫԠɍիҠɍիÍūΠɍūӍ«Ġɍǫ͍ΫōϳōϳΠōϴōϴōȭōɭōϳōϲōϴōέōϳōϴōҲϷōòϴōϭōϴӍǫ̠ɍɫΠɍΫӍΫÍΫ͍̫͠ɍҫΠɍūÍūŠ֍ΫΠ֍Ϋōòȳϲōҭōϳō̭ōέōƭōȭΠ±͍ȴҠɍիӍի΍ȫ͍˫ҍǫ͍͍͍ԠɍϫҠɍիÍիΠɍūӍūĠɍ«͍ǫōΫ٠ɍǫ ͠ōŠĨϴ͠ΠōōŠϳ͠ōŠ̳͠ōŠղϳҠɠŠŠҲϷ͠ōŠϿΠɠŠŠòȳϲҠōŠȳϴѩàčŠҲϳ͠ōŠҿӍŠŨȩΠɠŠŠϴ͠ōŠϳ͠ōŠϳ͠ōŠȴòϴ͠ōŠȴϳ͠ōŠΨϳàōŠȩ͠ɲ̍Š̿͠ōŠϳҠōŠϴ͠ōŠȿ͠ōŠϴàōŠҲ͠ōŠ̲ϳ͠ōŠ̲͠ōŠȴɿ͠   ٮРҠӠϠƠŠ٠ƠԠŠϠŠ٠ƠҮԠӠŠŠƠŠԠĠϠŠŠàٿҍ٠ƠҠԠǠîǯŠӠӠΠǯŠ٠ŠĠϠōҠΠҍƠΠԠӠӠŠΠҠԠ̭ԍƠΠԠӠŠŠΠҠΠŠԠ̠ˍŠàǮîŠٮ٠ӠŠƠŠϠŠŠĠ٠ԠӮŠŠ٠ĽӯōԠΠƠŠ٠ĠϠҠӠĿŠϠԠŠΠŠҩԠӠŠŭ̮ŠŠǍӠӍŠԠ٠ϠΠӠàԮԠ٠ӠŠ٠ƠԠĠϠŠŠЮƠǮƠԠŠ٠ǮîԠӠŠԠ٠Ơҿ̯ΠƠ̠ӠƠҮŠŮŠӠŠƠŠ٠ƠԨҠנԠ͠ӮŠŮŠӠŠ٠ƠԠĠϠŠŠРƠǠҠǮîנ٠ӠΠŮ˽ýǮˍԠӠŠРΠƮΠРӠǮîƽؠéؠǮƮǮƮîýƭǠîŠԮԠӠ͠Ơ٠ĠȠŠϠԠ͠ӠϠή˽ëԠӠϠԠ͠ӠϠԮƽؠ銊ϠԠ͠ԠϠӮýƭԠӠԠǮîԠӠӠРΠŠΠĠԠӠǮƍǮ˽ƮǮƮԠӠŠҠԠƠſŠӠϠҠԮӠƠ̠ĠǮŠΠĩנ٠ǮŠΠƠĠǠԠΠíƭˍŠŠΠŮή͠޳ήؠͯή͠ΠȠŭ޳ر޴޳̽޳޳ŠŠŠ٠ĠŠӠΠҩӠԠ΍ӠîˮǮˍǮàƍŠҠΠԿӍנ٠ӠӠŠ̿Š̍̍Ԡ̠̿Ԯנ٠ӠŠΠӿ̭̠̠ؠ̯̠ر޳̍נ٠àӠŠΠŠήӨǩǍԠǠϠǮǭǠǠؠǽؠر޴נ٠ӠŠΠŠƠӠƠ͠ҮӠǠӠؠǯӠؠǍԠӠϠǮӠǠǠӠؠǯӠؠǯǠر޵ǍӠҠҠǠ͠Ϡ͍ͮͭͯ͠ԠҠӠĠϠԠ͠Ϡͮͭ͠͠ؠͯ͠ؠנ٠͠ŠΠԮԭέ͠ԠؠίԠؠͯνؠͽ͍ͨǩӮӮӮǠŠ֮͠ޭ͍Π֮ĠŠ֮ՠޭŠ֮ĠŠ֮͠ޭ֮͠ĠŠ֮Ϡޭ͍ԠҠӠŠϠԠήϠԮήԮԯήӠſŠ֮ĠŠ֮͠޳͍Š֮ĠŠ֮͠ް͍Š֮Ġ֮͠ޭ͍Š֮ĠŠ֮͠ޭ͍Š֮ĠŠ֮͠ޭ͍Š֮ĠӍԠӠŠԠƠàԠĠ̮ŠԠӠŠԠƠŠĠ̮ΠˍԠӠŠԠƠӠ٠Ġ̮čԠӠŠԠƠԠƠŠĠ̮Š̍ΠנǠŠӮӠӠŠԠƠҠΠԠٮŠԠƠٮŠԠӠΠΠύԠӠŠԠƠȠĠ̮Š͍ԠӠŠԠƠӠĠ̮͠ǍԠӠŠԠƠŠĠ̮     : 10:290< 24:8:"(PUSH ANY KEY TO CONTINUE)":Q$C Sx :10:"DO YOU WANT ANOTHER QUIZ ? (Y OR N) ";U$ U$"Y"Į:270 U$"N"450 :10:12:"B Y E K I D S !!" Q12:"B Y E K I D S !!" ^15:13:"A N S W E R"3 h16:13:"- - - - - -"> r19:3P |"-----> ";W$ W$B$(M)ė:10:15:A$(M):13:5:"THE CORRECT ANSWER IS : ";B$(M):430 W$B$(M)ė:10:13:"C O R R E C T":430 :10:7:"NOT CORRECT--TRY AGAIN":X11000:X$;"READ ";Z$ I% A$(I):B$(I)0 R$(I); J1IE :10W A$(J):B$(J)^ Jr D$;"CLOSE ";Z$z NI J0 S1I M(I(1)1) " 64:10:"Q U E S T I O N # ";S @5:10:"- - - - - - - -" J10:3 TA$(M) *A P *********************************G U Z10:"THIS PROGRAM WILL RANDOMLY QUIZ YOU ON THE PREVIOUSLY ENTERED TEST.":Q12000:Q d:10 nD$(4): CTRL D x"NAME OF TEST FILE? ";Z$ D$;"OPEN ";Z$ D) *********************************Q * *y * RETRIEVE TEST *( * BY ALBERT LAST *2 * 8-15-80 *< * SAN ANDREAS, CA * F * "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 QUIT.) ZX12000:X::10: I,J:.'769,100:: DURATION$8'( 5>>>&%-.&'76666666666666&''..%%>&>$$$$$$$>>>.--%''7666666666e 5>>>&%-.&'76666666666666&''..%%>&>$$$$$$$>>>.--%''76666666661& 80,100P1,100P1,1500 0 P28013.125J 80,125P2,125P2,150P b P38019.685| 80,138P3,138P3,150 ' : GENERATES MUSIC TONES' 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174, 0,3,76,2,3,96 $'I770790:J:R t :CALC. % REMAINING6R100(D900)100\PP1: TIME PERIOD OF 100 UNITSn805P,150RRR(R10)1022:RR;"% REMAINING AFTER ";T;" DAYS " PITCHPITCH1768,PITCH 770::TONE ROUTINE* P1806.5651500:Q:!:PLOT DECAY7PAUSE(200(1))IQ1PAUSE:QP0[X1,Y1kA(X1,Y1)1$DD1::DECAY COUNTER.381B0:326,0L16:352,26V32:326,52`48:30,26j768,40:769,3:770: :CLICK SPEAKE l32:326,52 v48:30,26- P296606 510X 24:"HALF LIFE IS 656 DAYS."f 16368,0w KY(16384) KY128680 16368,0 : 10 "DO YOU WANT TO DO THIS AGAIN? ";Q$ (Q$,1)"Y"240 :10:20)"OK"Qz#Xİ     ԠҠԠҠԮ͠ȲԮ͠ӠԮ͠Ӡ ԮӠ ٠ӠƠàȠϠӠƠΠӠƠήؠ ӠƠή٠ Ϡ""Š ̠Ϡ ̠Ϯà!ŠӠ6٠Ϡ Ҡ͠ ĠΠ' ӠŠ@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp20,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   ΠŠԠӬՠ٠)o\6@p(ŠӠƠӠ)o \6@p(ŠϠӠΠ٠Š)o \6@p(ԮŠŢҠɭ)o\6@p(Ǡ̠͠Ϡŭ)oӠ)\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.?6q[h]ԠȩrM6_|UVW;@r a@*#rGY["@p(ӫʨٮϡզز)\|$@p(լҪ˥ŬٻԺޫ)\|[+o\o\o\o\*od2e\o\o\4o\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&nf \ 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"     ҠŠƠӠ٠Ү$]<.]ԠĮҠҠӠ8]B]ĠΠLQZ#]ŠŠҠd#]Šԭn#]Šԭo#]]]]U]͠ٺΠǠҠ]Z]ΠϠŠŠƠΠϠƠ  )Ha(  ) oQ(#]ө2#]ŠԠ<#]ŠΠF#]ŠP#]Š!Mloa(  )Hva(  )Ha(  )Ha(M a()GYM[]ŠҠԩ'@p(ӠŠҠ)oM\Mq.?6@r`<()r$d6?e[p]ԭҩzM6d!e!oa() oQX]ԭҩbM6d!ed2eo\o \o\=d2eo\o \o\d2e?o\>o \o\d2eo\o \o\+o \o\o\o\0[ ]ŠӠUVW'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)     97,(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'OA,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,51 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"      RETURN TO RETURN TO BEGINNING OF PROGRAM.";Q$6#10TY OF YOUR SOLUTION IS ";TDKg#"THE SOLUTION = ";MXMS1000;" GRAMS OF ";X$;" PER 1000 GRAMS OF ";A$#:"HENCE, ";MXMS1000;" GRAMS ";X$;" = ";TDK;" MOLES"#10);"OR:"#"MOL. WT OF ";X$;" = ";(MXMS1000)(TDK);" GRAMS/MOLE".#"DEPRESSAME OF SOLUTE (ENTER X IF UNKNOWN) ";X$YZ#"AMOUNT OF ";A$;" USED TO DISSOLVE ";X$;:MSd#"AMOUNT OF ";X$;" DISSOLVED IN ";" GRAMS OF ";A$;:MXn#"TEMPERATURE DEPRESSION WAS ":TDx#"MOLAL CONSTANT FOR THE SOLVENT ";A$;" IS ";:K#:"MOLALITES/NO)";Q$JQ$"YES"5530YT"THE ANSWER TO THE LAST PROBLEM WAS ":M" GRAMS/MOLE."_^}(# COMPUTATION OF LAB DATA2#936<#"THE COMPUTER WILL ASK YOU FOR A LOT OF":"DATA.......HERE WE GO."F#:"NAME OF SOLVENT (THE LIQUID)";A$'P#"N00MS:M2(1000M2)1000Yj"DID YOU COMPUTE A 1000 GRAM SOLUTION OF ";M2;" GRAMS OF X"xo"YES/NO";Q$:Q$"NO"7160t:"YOU HAVE ALL THE RIGHT NUMBERS!! GIVE IT ANOTHER SHOT."y"DEPRESS RETURN TO GO BACK ";Q$:7010 @"TRY ANOTHER PROBLEM (YIN (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),     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 )OP((C(I,J)),1),OP((C(I,J)),2)e FF1ēCP(I,1)3,CP(I,2)3OP((C(I,J)),1)3,OP((C(I,J)),2)3o 2670( FF0:C(I,J)I26702 K14:KJ2630< C(I,J)C(I,K)FFFF1F KP CP(I,1),CP(I,2)CP(C(I,J),1),CP(C(I,J),2)*Z FF0ēCP(I,1))TYOP(K,2)FF1:2060K% 8 :936:21:3K I1NC:J14 C(I,J)100ēCP(I,1),CP(I,2)HP((C(I,J)100),1),HP((C(I,J)100),2):2670 C(I,J)02600 FF0 K14:KJ2560 C(I,K)C(I,J)FF1 K! CP(I,1),CP(I,22)OP(I,2)U*O(I,2)100HP((O(I,2)100),1)OP(I,1)7:HP((O(I,2)100),2)OP(I,2)\.Ib8K1NC:KC(I,J)FF02020TXCP(K,1)TYCP(K,2)FF1:2060K:NO02060K1NO:K(C(I,J))FF02050KIFF12050TXOP(K,1J:CP(I,0)1I:830(NO01080DI1NO:OP(I,1)01064ZJ1NO:JI1060O(J,1)IOP(I,1)OP(J,1):OP(I,2)OP(J,2)20:TXOP(I,1):TYOP(I,2):FF1:2000:FF1800$J (O(I,1)100HP((O(I,1)100),1)OP(I,1)7:HP((O(I,1)100),FF1KK3KKKK1:890,FF1KK2800:NO0960LC(I,J)0970}C(I,J)0C(I,J)100OP((C(I,J)),1)01000C(I,J)0C(I,J)100OP((C(I,J)),1)X:OP((C(I,J)),2)Y:1000CP(C(I,J),1)01000CP(C(I,J),1)X:CP(C(I,J),2)Y 1XCP(I,1):YCP(I,2)209XX2XCP(I,1)20:YCP(I,2)ZXX3XCP(I,1):YCP(I,2)20qXXXX1:XX4XX0C(I,J)100HP((C(I,J)100),1)((XCP(I,1))720)CP(I,1):HP((C(I,J)100),2)((YCP(I,2))720)CP(I,2):1000TXX:TYY:FF0:2000:I1NC:J02:CP(I,J)0:J,IG*NO0āI1NO:J02:OP(I,J)0:J,Ig4FF0:CP(1,1)120:CP(1,2)75>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!    ]άϠ) ]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-8rr$ Y_B,UVWq8r`--8rرrq-8rٱrqY*UVW8rXUVW-rqYY \\M6o`$q6d_'a(ԠħϠנӠ).a(ԠɧҠנҠŠ)*a(r$")-8rrq-8rrq"Y,`$ 6UVW$@q/?rq/?r`$@(JUVW`-8rr$^ Tرq_h ^Y_@(hUVW`-8rr$| rٱq_ |Y_@+-rqY%-rq-rq`$, UVWq/?r`-8rr$.-8rrq-8rrq_"`-8rr$.-8rrq-8rrq_"`-8rq88rr,qM6oa(í)FE(ȭ)F_?`68r$Xca(Ҡ)a(àԠŠĠ)a(ȠԠŠάĠë)_q88rrUVWñ a(Ӡ̠͠נ)a(ҠΠҠ)c@oa(ҠҠ)a(ΠŠͧìȧ)@a(çŠҠƠΠ)a(ΠŠŬî) T' q4