' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`"ALUMINUM"B$"AL"C3)2420:A$"BROMIDE"FB$"BR"OC1Y2420qA$"CHROMIUM (III)"}B$"CR"C32420A$"FERROUS"B$"FE"C2 2420A$"CUPROUS" B$"CU"*C142420>A$"CALCIUM 2420A$"BARIUM"&B$"BA"/C292420KA$"IRON(II)"WB$"FE"`C2j2420}A$"LEAD (II)"B$"PB"C22420&A$"OXIDE"0B$"O":C2D2420NA$"SULFIDE"XB$"S"bC2l2420 vA$B$"CU"C12420-A$"POTASSIUM"8B$"K"AC1K2420[A$"SILVER"gB$"AG"p"C1z,24206A$"SODIUM"@B$"NA"JC1T2420^A$"CHLORIDE"hB$"CL"rC1|2420A$"FLUORIDE"B$"F"C1'VE GOT IT NOW!!"B L "NO - THE ANSWER IS:":B22320>E1ĺ(46);:N100:2310_ ".";:I1E1:Q;:I:N100i 2200 N;:(69);:E1:2200 CC1:C52360:"RIGHT":2210$ (1).5ĺ"RIGHT!!":2210. "THAT'S CORRECT!!!":22108 ::"OKAY, I HOPE YOUA$:A$""2201936DN((1)800100)100:E((1)101)V(1).52240vN;:(69);:E1:B1:2270E1ĺ(46);:N100:2250(46);:I1E1:Q;:I:N100B2:2270::ZN10EA:(ZA).01Z2330 C0:COMPUTER CALLS 4.56X10-4 4.56E-4":Np"AND .00543 = 5.43 X 10^-3 = 5.43E-3"|z::"IF YOU UNDERSTAND THAT HIT ANY KEY"{A$:A$""2171:"NOW FOR MORE PRACTICE""SAME INSTRUCTIONS AS BEFORE, SO""WHEN YOU ARE READY, HIT ANY KEY"6 = 4.56 X 10^ WHAT";:AE>A4ĺ"RIGHT!!":"ALL YOU DO IS ":2130_H"NO - YOU MEAN -4!!"R"COUNT THE NUMBER OF PLACES YOU":"HAVE TO MOVE THE DECIMAL POINT"\"AND THAT NUMBER (WITH A - SIGN)":"IS THE EXPONENT FOR THE 10!"#f::"NOW THE " HAS THE ATOMIC NUMBER ";B$;","G9"THEREFORE IT HAS ";B$;" PROTONS"QB1120cLZ1((1)10)oVG$(Z1)`7,140:R$"PRESS ANY KEY TO CONTINUE.";:I$tN1391220~N210480N20R4ĺ"DO YOU WANT TO TRY ANOTHER":1182-70B91800S(((BX)B100.05)10)10^E$"OKAY - YOUR SCORE IS ";S;" PERCENT."h6000rZXX1~d"NO-"x(1).5ĺ"RIGHT!!":"CORRECT!!":I114R(I)((1)4001)10I 7,181:"PRESS ANY K.78yR9K:3500:KR9/~(ZK).02K124091370l"DIVIDE THE ";.78R(13);" G BY ";R(13);" ML""TO GET .78 G/CC; DIVIDE THIS INTO THE""MASS, AND YOU GET ";K;" ML."18001740106014103000X012?  0``0? 3???????? H HH6?3?6?3?33006?3?63?66?3?60?333 33 g?333333?3?6?3?600?303333>333 f3 3333?60? ;3333?33300000333? cgo{ssc33333333333>333303? 3333333333 ~$33 33333 ?0 ? 00  ? 00 33333  30?3003??00333?0 333333>0  0``030 ~~ 33?3333333333333???3*f&*fH18i 0) iȘ0H؅h x0xeh0e i         <,HK4N2D72150NR"DIGITS IN THE EXPONENT ARE"gT"NEVER SIGNIFICANT"q\2200fK4N2D42180p"PLACE-HOLDING ZEROES ARE NOT SIGNIFICANT"z2200K4N2D21960"LEADING ZEROES ARE NEVER SIGNIFICANT""NOT PLACE-HOLDERS, AND ARE SIGNIFICANT"32200GK4N2D62080m"A DECIMAL POINT INDICATES THAT""TRAILING ZEROES IN THE INTERGER" "ARE SIGNIFICANT"2200 K4N2D91960*"ZEROES BETWEEN NON-ZEROES ARE"+"ALWAYS SIGNe i         <:" PROGRAMS FOR LEARNING, INC."H7,70:8,60:S$"C H E M I C A L"R:8,26:"N O M OTASSIUM,AG,1,SILVER,NA,1,SODIUMhSN,4,TIN(IV),ZN,2,ZINC,BR,1,BROMIDE,CLO3,1,CHLORATECL,1,CHLORIDE,CR2O7,2,DICHROMATE,OH,1,HYDROXIDE I,1,IODIDE,NO3,1,NITRATE,O,2,OXIDE,MNO4,1,PERMANGANATESO4,2,SULFA "TRY AGAIN";  ZZ11000:. L$:24608 2480i "THE SYMBOL FOR"::"THE ";A$;" ION IS ";B$s 2600} 3040 L$ L02610 PP1( ZZ11500:) L$- K22610. 7,20:R$"AND THE CHARGE ON THE ":A$;" ION = ?"/ 2(J16)(B$,I1,(B$)I)!| I+~ KK13 L0; T0r R$"WHAT IS THE SYMBOL FOR":"THE ";A$;" ION? ";| RR1 CH(8):CV(7):7,100:8,100:" "; CP$"" 8,100:40:X$I$ X$B$2570 LL1 L22550 3090"CU"  C2$ 2420'. A$"IODIDE"28 B$"I";B C1EL 2420SV A$"ZINC"_` B$"ZN"hj C2qt L$;u I2(A$)v (A$,I,1)"("A$(A$,I)P$(A$,(A$)I)T$x Iy B$R$B$z I2(B$){ J((B$,I,1)):J49J56B$(B$,I1)" HB$"CA"RC2 \24203fA$"MAGNESIUM"?pB$"MG"HzC2R2420fA$"IRON (III)"rB$"FE"{C32420A$"FERRIC"B$"FE"C32420A$"COPPER (II)"B$"CU"C22420 A$"CUPRIC" B$HURTS ITS LEG --- SLOWS YOU DOWN RESTOF WAY">1~MM25:AA20H147101"BAD LUCK --- YOUR DAUGHTER BROKE HER ARM. YOU HAD TO STOP AND USE SUPPLIES TOMAKE A SLING."1MM54(1)1M1M123(1)147102"OX WANDERS OFF --- SPEND TIME ,35,37,42,44,54,64,69,95(0.D1103650b08D13660,3700,3740,3790,3820,3850,3880,3960,4130,41900BD1104220,4290,4340,4560,4610,46700L"WAGON BREAKS DOWN -- LOSE TIME AND SUPPLIES FIXING IT."0VMM155(1)0`M1M180j4710,1t"OX BULLETS AND GOT MASSACREDBY THE RIDERS":5170O/ ***SELECTION OF EVENTS*** u/ "PRESS TO CONTINUE...";/ CL$:(CL$)133551/ D10/ / / R1100(1)/ D1D11/D1164670/D/R1D35800$ 6,11,13,15,17,22,32 T133430.\ 3470 .f MM20*.p 3470F.z "THEY DID NOT ATTACK!"P. 3550_. S503500. "THE RIDERS WERE FRIENDLY, BUT CHECK FOR POSSIBLE LOSSES.":3550. "THE RIDERS WERE HOSTILE -- CHECK FOR LOSSES!". B03550./ "YOU RAN OUT OFGO SEE OL' DOC BLANCHARD":3470N- :"KINDA SLOW WITH YOUR COLT .44":3470]- T133290o- (1).83450- BB15:M1M115:3470- 6140- BBB138:MM25:3140- T113370- MM15:AA10:3470-* T123410-4 BB10:MM5:3470 .R, S513330, T113110F, MM20:M1M115:BB15:AA40:3470U,& T123240_,0 6140n,: BBB148,D B11.53170,N "NICE SHOOTING -- YOU DROVE THEM OFF!":3470,b B143220!-l :"LOUSY SHOT -- YOU GOT KNIFED":K81::"YOU'LL HAVE TO --":"1 - RUN 2 - ATTACK 3 - CONTINUE 4 - CIRCLE WAGONS":(1).2+ S51S5+ T1$:(T1$)1(T1$)43000+ T1(T1$)+ T11T11+ T14T14, T1(T1)LL":2750**, MM200(A220)5((1)10)8*6 L10:C10T*@ *** RIDERS ATTACK ****J (1)10((M100)272)((M1004)212)13550*L :2*T "RIDERS AHEAD. THEY ";*^ S50*h (1).82940*r "DON'T ";+| "LOOK HOSTILE"::"TACTICS":"----- 1 - POORLY 2 - MODERATELY 3 - WELL ") E$:(E$)1(E$)32760) E(E$)) E(E)) FF(85E)) F02860) FF(85E) * "YOU CAN'T EAT THAT WEEEN THE EYES -- YOU GOT A BIG ONE -- FULL BELLIES TONIGHT"[(x FF52(1)6m( BB10(1)4w( 2720( "YOU MISSED --- AND YOUR DINNER GOT AWAY."( F132750( 5060( *** EATING ***) :"DO YOU WANT TO EAT HUNTING"' 2080%' MM45/' 6140?' B122660X'( (1)10013B12710h'2 FF482B1'< "NICE SHOT -- RIGHT ON TARGET -- GOOD EATIN' TONIGHT!"'F BB103B1'P 2720'Z *** BELLS IN LINE 2660 ***I(d "RIGHT BETW333?3?6?3?600?303333>333 f3 3333?60? ?  0``0? 3???????? M 3333 ~$33 33333 ?0 ? 00  ? 6?3?6?3?33006?3?63?66?3?60?333 33 g?333  0``030 ~~ 33?3333333333333???3;3333?33300000333? cgo{ssc33333333333>333303? 333333       <0 eɸhhh`fjjjjffeee΅*&*&f*&j &0*f&*fH18i 0) iȘ0H؅h x0xeh0e i 333&t "AMMUNITION";&~ 23301& B(B23P50)C& "CLOTHING ";M& 2330[& CC23P{& "MISCELLANEOUS SUPPLIES ";& 2330& M1M123P& MM45& 2720& *** HUNTING ***& B392570' "TOUGH --- YOU NEED MORE BULLETS TO GO FOOD ";=% 2330G% 2410X% P:P02400b%. TTPq%8 T02400%B "YOU DO NOT HAVE THAT MUCH MONEY --- KEEPYOUR SPENDING DOWN, YOU MISS YOUR CHANCE TO BUY THAT ITEM"%L TTP%V P0%` &j FF23P$X32260$B392260`$:"TOUGH --- YOU NEED MORE BULLETS TO GO HUNTING"j$2170y$X1X1(1)$X2290,2540,2720$ *** STOPPING AT FORT***3%"ENTER WHAT YOU WISH TO SPEND ON THE FOLLOWING NUE""#*X$:(X$)1(X$)32090.#4X(X$)?#RX(X):2270M#fX3:2270#z:2:"DO YOU WANT TO: 1 - HUNT 2 - CONTINUE"#X$:(X$)1(X$)22180#X(X$)#X12210#X2$XX1M1,T::.""PRESS TO CONTINUE...";H"QQ$:(QQ$)132051N"^" X112170m"X1X1(1)v":2# :"DO YOU WANT TO: 1 - STOP AT NEXT FORT 2 - HUNT 3 - CONTIILEAGE IS ";M;" WITH ";2040M;" TO GO":2040]!"TOTAL MILEAGE IS 950 WITH 1090 TO GO":M90":"FOOD","BULLETS","CLOTHING":"----","-------","--------":F,B,C::"----------------------------------------":"MISC. SUPP.","CASH":"-----------","----":850B 0"YOU'D BETTER DO SOME HUNTING OR BUY FOOD, AND SOON!"w :F(F):B(B):C(C):M1(M1):T(T):M(M):M2M S411950 K811950 1990 TT20:T15080 "THE DOCTOR BILL WAS $20" K80:S40 M912020,!"TOTAL MDECEMBER 20 ";:1720"YOU HAVE BEEN ON THE TRAIL TOO LONG. ---- YOUR FAMILY DIES IN THE FIRST BLIZZARD OF THE WINTER.":5170"1847"F01770F0B01790B0C01810C0M101830M10 &F131LY 19 ";:1720&"AUGUST 2 ";:1720?"AUGUST 16 ";:1720X"AUGUST 31 ";:1720t"SEPTEMBER 13 ";:1720"SEPTEMBER 27 ";:1720""OCTOBER 11 ";:17206"OCTOBER 25 ";:1720J"NOVEMBER 8 ";:1720^"NOVEMBER 22 ";:1720r"90,1410,1430,1450,1470,1490XD3101510,1530,1550,1570,1590,1610,1630,1650,1670,1690p"APRIL 12 ";:17202"APRIL 26 ";:1720F"MAY 10 ";:1720Z"MAY 24 ";:1720n"JUNE 7 ";:1720"JUNE 21 ";:1720"JULY 5 ";:1720"JU":830BB50U:"AFTER ALL YOUR PURCHASES YOU NOW HAVE ";T;" DOLLARS LEFT"]:}"MONDAY, MARCH 29, 1847":1750M20405430 ***SETTING DATE***D3D31:"MONDAY ";D3101300 D31310,1330,1350,1370,13 MISCELLANEOUS SUPPLIES? ";M1$1B(M1$)01110BGM1((M1$))lL(M1$)0(M1$)(700AF(C$))1130V"IMPOSSIBLE":1080jT700AFBCM1tT01170yA0:F0:B0:C0:M10~"YOU OVER SPENT -- YOU ONLY HAD $700 TO SPEND. BUY AGAIN$)CM1)1020$"IMPOSSIBLE":9808B((B$)):860x:"HOW MUCH DO YOU WANT TO SPEND ON CLOTHING? ";C$(C$)0(C$)(700AF(C$)BM1)1070$"IMPOSSIBLE":1030.C(C$):8608:"HOW MUCH DO YOU WANT TO SPEND ON :"HOW MUCH DO YOU WANT TO SPEND ON FOOD? ";F$[(F$)0(F$)(700AB(F$)CM1)960r"IMPOSSIBLE":930F((F$)):860:"HOW MUCH DO YOU WANT TO SPEND ON AMMUNITION ($1 BUYS 50 BULLETS)?";B$ (B$)0(B$)(700AF(B:S40:F10:F20:M0:M90:D30%>:mR"HOW MUCH DO YOU WANT TO SPEND ON YOUR OXEN TEAM (200-300)? ";A$S(A$)0(A$)200(A$)300ĺ"NOT POSSIBLE!!":850[A((A$)):865\:"YOU HAVE ";700AFBCM1;" DOLLARS LEFT"]a860.ES":"ENTER ONE OF THE ABOVE -- THE BETTER YOUCLAIM YOU ARE, THE FASTER YOU'LL HAVE TOBE WITH YOUR GUN TO BE SUCCESSFUL. ";D9$:D9$""735(D9$)1(D9$)5735D9(D9$)D9(D9) 810  *** PURCHASES ****X114K80 :25D124:15)::"GOOD LUCK"::D:?::v"HOW GOOD OF A SHOT ARE YOU WITH YOUR RIFLE? "" 1 - ACE MARKSMAN"" 2 - GOOD SHOT"" 3 - FAIRLY FAIR"" 4 - NEED PRACTICE"" 5 - SHAKY KNEILL HAVE OF HITTING YOUR TARGET.":" AT EACH TURN, ALL ITEMS ARE SHOWN IN DOLLAR AMOUNTS, EXCEPT BULLETS. WHEN YOU ARE ASKED TO ENTER DOLLAR AMOUNTS, DON'T USE A '$'.":"PRESS TO CONTINUE....";A$:(A$)13662 ALONG THE WAY TO GET MORE FOOD. WHENEVER YOU HAVE TO USE YOUR TRUSTY RIFLE ALONG THE WAY, YOU WILL BE TOLD TO TYPE IN A WORD THAT SOUNDS LIKE A GUNSHOT."$b" THE FASTER YOU TYPE IN THE WORD AND PRESS THE 'RETURN' KEY, THE BETTER THE CHANCE YOU W$)13522 :2" YOU CAN SPEND ALL YOUR MONEY BEFORE YOU START YOUR TRIP - OR YOU CAN SAVE SOME OF YOUR CASH TO SPEND AT FORTS ALONG THE WAY WHEN YOU RUN LOW."0" HOWEVER, ITEMS COST MORE AT THE FORTS. YOU CAN ALSO GO HUNTINGWHEN CROSSING THE MOUNTAINS"."MISCELLANEOUS SUPPLIES - THIS INCLUDES MEDICINE AND OTHER THINGS YOU WILL NEED FOR SICKNESS AND EMERGENCY REPAIRS""PRESS TO CONTINUE....";  A$:(ATTING SICK""AMMUNITION - $1 BUYS A BELT OF 50 BULLETS FOR ATTACKS BY ANIMALS AND BANDITS, AND FOR HUNTING FOOD";("CLOTHING - THIS IS ESPECIALLY IMPORTANT FOR THE COLD WEATHER YOU WILL ENCOUNTER A$)13332N:2T"OXEN - YOU CAN SPEND $200-$300 ON YOUR TEAM. THE MORE YOU SPEND, THE FASTER YOU WILL GO BECAUSE"h" YOU'LL HAVE BETTER ANIMALS"r |"FOOD - THE MORE YOU HAVE THE LESS CHANCE THERE IS OF GEIF YOU MAKEIT ALIVE!"x""YOU HAVE SAVED $900 TO SPEND FOR THE TRIP, AND YOU'VE JUST PAID $200 FOR A WAGON"6"YOU WILL NEED TO SPEND THE REST OF YOUR MONEY ON THE FOLLOWING ITEMS-"@:J"PRESS TO CONTINUE...."; LA$:("N"6904*INSTRUCTIONS*******"THIS PROGRAM SIMULATES A TRIP OVER THE OREGON TRAIL FROM INDEPENDENCE, MISSOURI";"TO OREGON CITY, OREGON IN 1847.""YOUR FAMILY WILL COVER THE 2040 MILE OREGON TRAIL IN 5-6 MONTHS--- *"7 }" * T R A I L *"^ " * *" " *********************" :: C$(5) "DO YOU NEED INSTRUCTIONS (Y/N) "; C$::C$""160 C$"N"690 C$"Y"160C$TCH MIDDLE SCHOOL,FOSTER- F CITY, MAY/1979N P FOR FULL DOCUMENTATION,SEEe Z ORIGINAL ARTICLEt d:::255 i" *********************" n" * *" s" * O R E G O N *" x" * **********( * PROGRAM MAY BE COPIED*F * FOR EDUCATIONAL USE &*d * MAY NOT BE SOLD.COPY-* !* RIGHT 1981 CUE,INC * "************************ # $ ( REWRITTEN FOR APPLE BY TOM BEAL 2 AND TIM IVERSON,STUDENTS OF < BOWDIFTSWAP *, * *J * 333 MAIN STREET *h * REDWOOD CITY * * CA 94063 * * (415) 363-5472 * * * ************************   ************** CHRIS EDWARDS < ************************Z * *x * SAN MATEO COUNTY * * OFFICE OF EDUCATION * * * COMPUTER-USING EDUCATORS * * * SOsB OREGON TRAIL AUG 1980' F SIMULATES PIONEER WAGON^ TRIP TO THE WESTdy 32K APPLESOFT  DAN RAWITCH CREATIVE COMPUTING - MAY 1978  ADAPTED BY TOM BEAL, KEITH ROLLIN AND                      WHEN IT IS YOUR TURN, ENTER THE ANGLE, COMMA, AND THE FORCE YOU WANT TO TRY."nO:" EXAMPLE: ANG,FORCE"T" 70.1,8.5"^S 1:"IN THIS GAME YOU MUST "J6" 1)ESTIMATE THE BEST ANGLE AND"q;" 2)FIND THE NECESSARY FORCE"@"TO HIT THE TARGET BEHIND THE MOUNTAIN."E:"YOU MUST CONSIDER THE EFFECT OF THE WIND SPEED AND DIRECTION ON YOUR SHOT."NJ:"::"IS THERE ANYONE ELSE WAITING":"TO PLAY? (Y/N) =>";LZ$:Z$""256ZZ$"Y"ĬkZ$"N"25616300,0:16298,0::9368:8:" * * * T H E E N D * * *"D$(4):D$;"RUN";"MENU",8:"HOW GOOD ARE YOU AT ESTIMATING ANGLES?"20 GXB2[3:IGX10GX102:I,P10GX,P:J1(1)55:KK(16336)::16336,0:kI12500:w:::"DO YOU WANT TO PLAY AGAIN? ""(Y FOR YES, N FOR NO)=>";Z$:Z$""252Z$"Y"Ľ:30Z$"N"Ĺ16368,0:2529(XB2)3210 iX3X276115Ul0:I125:BXX3(1)6:BYYY(BX)(1)3:BX,BYqnK(16336):16336,0:pIX3X3:YY(I)YY(I)3:sP1P1:P19980x24:25);:"ANG,FORCE?";AN,BG:BGBG10ANAN180PYP581GXB1:299XXB1$WK(16336):16336,06ZP199XB2XQ[YBGI(ANPI)16I2b\XXWINDI2]P199YBGI((ANPI))16I2^0:PX,PY_X3X276PY0115`YY(X)PY100a3:X,PYbPXX:PYPYc85d(XB1)3200 e13,P5:B13,PB13,P5`L2:B23,PB23,P5:B23,P5:B23,P:B23,P5:B23,PB23,P5oMP199120P24:"ANG,FORCE?";AN,BG:BGBG10QP199PXB1RP199PXB2S21:17)"WIND:";(WIND)TI0UII.1:XBGI(ANPI) VP1PI,159:YY(I)P:= CWIND((1)10):(1)10050WINDWINDS F3:112,10152,10m GWIND0ē112,10125,5 H21:17)"WIND:";(WIND) IWIND0ē152,10139,5 JB1(1)20505WIND:B2(1)20200WIND5KB13,PB13,P5:B13,P5:B13,P:B:34,22: 4P199:YY(280)5 5PI3.141592654180; 6E 7936P 8P1P1W 91i <P(1)20139 =I1112:I,PI,159:YY(I)P: >HG(1)5025 ?I113152:HX(((I112)4.5180)PI)HG @YY(I)HXP AI,HXPI,159: BI153279:I, *MAY NOT BE SOLD.COPY-*8 !*RIGHT 1981 CUE,INC *U "***********************x -::298,0:16300,0:16368,0 .936:5:7)"*** ARTILLERY SIMULATOR ***" /300 024:"PRESS TO CONTINUE..."; 216368,0:SX$:(SX$)1350 3MAIN STREET *, * REDWOOD CITY *I * CA 94063 *f * (415) 363-5472 * * * *********************** * *********************** *PROGRAM MAY BE COPIED* *FOR EDUCATIONAL USE &* *' * SAN MATEO COUNTY *D * OFFICE OF EDUCATION *a * *~ * COMPUTER-USING * * EDUCATORS * * * * SOFTSWAP * * * * 333  ARTILLERY 10/1/80 $ = GAME - LOGIC ANDW ANGLE MEASUREMENT]x APPLESOFT,COLOR,4K  ADAPTED BY B. GOODSON  FROM USER'S GROUP LIB  *********************** *      333333?3?6?3?600?303333>333 f3 3333?60? ?  0``0? 3???????? 3333333333 ~$33 33333 ?0 ? 00  ? 6?3?6?3?33006?3?63?66?3?60?333 33 g? ? 30 ~~ 33?3333333333333???3;3333?33300000333? cgo{ssc33333333333>333303?        <0 eɸhhh`fjjjjffeee΅*&*&f*&j &0*f&*fH18i 0) iȘ0H؅h x0xeh0e #0::` ʚhi6hi76i`7i ` Y0J8ׅ  7ɈɅɌɓɆɍ{Ɋ}HHHɠ0) A 0k8 FejfeׄΥ *8ΰiϥ@(@i'Υ^((J$)49)((J$)55)J$((J$)16):hJ$"+"J$">"MrJ$"-"J$"<"\|II$II$J$lI:I$II$: ADD () TO STRING IF MORE THAN FIRST CHAR IS IN CAPSI2(I$):((I$,I,1))6I$"("I$")":I(#A$2#:(4)"PR#0"<:S$" PROGRAMS FOR LEARNING, INC."U7,100:S$"CALCULATING MOLECULAR WEIGHT"mKB16384:KS16368}I1500:IE$;? CHANGE DIGITS TO SUBSCRIPTS, &+ OR - TO SUPERSCRIPTS@(I$)0ıJII$"":I1(I$)TJ$(I$,I,1)':"HIT ANY KEY TO GO ON"#Z$)O NUMERIC INPUT--LEAVE VALUE IN ZkJ$"":40:90:Z(I$):{8000:D$I$X16384::16302,0b(175)256(176)1449lE$(5):S$(19):L$(12)v(1002)76(1003)81Č1002E$;L$"FROM"(T" ."THE FORMULA WEIGHT: "G108XX1:1210:B1140@LJV1190U`B$(L)fjI11500:IntPR~E$"OKAY, THAT'S ";T9;" QUESTIONS."S(T9X)T9:S(S100.5)"YOUR SCORE IS ";S;" PERCENT."9000L((1)81);"!"I11000:Q"SO WHAT IS THE WEIGHT OF "C$:"PER MOLE OF ";A$" ? ";[2000v(ZEW1).05W11050"NO, IT'S MORE LIKE ";EW1I11000:I"ADD THE ";G1EW1;" FOR THE"$B" MOLE";:B1ĺ"S";%" OF "F$" IONS TO GE5G11100T2940<"NO, NOT ";Z;". TRY AGAIN! ";E880d"NO, NOT ";Z;", EITHER!""LOOK, HOW MANY MOLES OF ";C$"IONS IN A MOLE OF ";A$" ? ";2000ZE990"NO, THERE ";E1ĺ"IS ONLY 1!":985" ARE ";EY.5780Y.4800>E$"WHAT IS THE MASS OF A MOLE OF"SC$;" ";F$;", ";dI11000:IoA$"?"x880 E$"WHAT IS THE FORMULA WEIGHT FOR"740 E$"HOW MANY GRAMS IN ONE MOLE OF":A$" ? ";p2000zTT1 (G1Z).03,1,NITRATE,62,O,2,OXIDE,16,MNO4,1,PERMANGANATE,118.9,SO4,2,SULFATE,96,S,2,SULFIDE,32 zE1I$A$:8100:A$I$&B1I$D$:8100:D$I$0E1A$A$(32E):B1D$D$(32B)A$A$D$Q$C$" "F$:G1BF1EW1Y(1),POTASSIUM,39.1 f AG,1,SILVER,107.9,NA,1,SODIUM,22.99,SN,4,TIN(IV),118.69,ZN,2,ZINC,65.37  BR,1,BROMIDE,79.9,CLO3,1,CHLORATE,83.45,CL,1,CHLORIDE,35.5 CRO4,2,CHROMATE,116 OH,1,HYDROXIDE,17,I,1,IODIDE,126.9^ NOH4,1,AMMONIUM,18,BA,2,BARIUM,137.3,CA,2,CALCIUM,40  CU,1,COPPER(I),63.55,CU,2,COPPER(II),63.55,LI,1,LITHIUM,6.94,FE,3,IRON(III),55.85  FE,2,IRON(II),55.85,PB,2,LEAD(II),207.2,MG,2,MAGNESIUM,24.3,NI,2,NICKEL(II),58.71,K,12)1360+|J117:U$,V,W$,V2:JN1410EI$U$:BV:C$W$:W1V2U8000:A$I$_X$A$fJI1N2:I$,E,F$,F1:8000:D$I$G(N1,N2)1I521:BI(BI)EI(EI)460BBI:EEII6 AL,3,ALUMINUM,26.98,N"DON'T INCLUDE ANY UNITS":"WITH YOUR ANSWER."7"W,"LET'S GET STARTED. HOW"6"MANY DO YOU WANT TO TRY? ";:30:T9I@:D SUPPRESS AMMONIUM OXIDEEG(2,8)1JPR1T9TT0^hN1((1)171):N2((1)111)rG(N1,NCT!":B$(6)"THAT'S RIGHT"] B$(6)"NICE GOING!":B$(7)"THAT'S RIGHT":B$(8)"FANTASTIC!" :"THIS PROGRAM PROVIDES PRACTICE" "IN CALCULATING MOLECULAR WEIGHTS." I11000:I :"YOU WILL NEED A TABLE":"OF ATOMIC WEIGHTS." 180 NI:703 P" "(8);:KS,0:I(KB):I390109 QH Z(I$)0ı^ [II$"":I1(I$) \((I$,I,1))32II$II$(I$,I,1) ]I:I$II$: dG(20,20) nB$(8) B$(1)"YES!":B$(2)"OKAY!":B$(3)"GOOD!":B$(4)"RIGHT!" B$(5)"CORRE8,IX:J$;I$; 8(I$)MLı$ :42; <(I$)2I$"":62a =I$(I$,(I$)1):(I$,1)(6)60 >7,IY:8,IX:J$;I$" ";:54 @(I$)1I$"": AI$(I$,(I$)1): F(95);(8); HI150:(KB)12880 JI:" "(8); LI150:(KB)128: ' ALPHABETIC INPUTE (I$"":IY(7):IX(8):ML((270IX)10)M *70f ,I13ĺL$:I$J$I$:t .I36010 0I27I6:(I$)0ĭ(I$,1)(6)42 1I49I56SSII16 2I860 3I65(I$)0ĭ(I$,1)(6)İ64 4I$I$(I) 67,IY:BY SCOTT STEKETEE 7000:1004  NUMERIC INPUTN I$"":IY(7):IX(8)` 70:I36010t I13I$""37 !I860 "I47I5731 #I$I$(I):7,IY:8,IX:I$;:((9)1)((8)14)37 $31 %I0:J1(I$):I10I((I$,J,1))48:J:!**************************A******COPYRIGHT 1979******aPROGRAMS FOR LEARNING, INC***ALL RIGHTS RESERVED****************************** TO SUPPRESS DISPLAY OF FORMULA DELETE LINE 760 CHARACTER GENERATOR (C) 1980             ?  0``0? 3???????? 6?3?6?3?33006?3?63?66?3?60?333 33 g?333333?3?6?3?600?303333>333 f3 3333?60? ;3333?33300000333? cgo{ssc33333333333>333303? 3333333333 ~$33 33333 ?0 ? 00  ? 00 33333  30?3003??00333?0 333333>0  0``030 ~~ 33?3333333333333???3*f&*fH18i 0) iȘ0H؅h x0xeh0e i         <E$(5):S$(19):L$(12)_(1002)76(1003)81Č1002r4:7,0:"FROM">:" PROGRAMS FOR LEARNING, INC."H7,70:8,88:"A DRILL ON"R:8,54:S$"B A L A N C I N G"\:8,54:"E Q U A T I O N S:7,0*((1)41)1540,1550,1560,1570@(1).5ĺA$;L$:kI1(A$):7,3I:(A$,I,1);:I:L$:A$"F A N T A S T I C ! !":A$"E X C E L L E N T ! !":A$"V E R Y G O O D ! !":"A$"YOU GOT IT ! !":8192:16302Z$"Y"2302(E$"WELL, OUT OF "K" EQUATIONS,"^2"YOU GOT "W" RIGHT ON THE FIRST TRY!"t<:"REMEMBER --"F"IN CHEMISTRY AS IN THE CIRCUS,"P"BALANCING IS AN IMPORTANT ACT!!"UHMZA$d:(4)"PR#0"n0::xE$;S$200,L"HERE IS THE COMPLETE EQUATION --"MV"CHECK IT AGAINST YOURS!":\`L1WW1A(1);A$(1)" + "A(2);A$(2)" --> ";(8)154ĺ:8,100A(3);A$(3)" + "A(4);A$(4):(K5)K5230"DO YOU WANT TO TRY 5 MORE (Y/N)";:Z$ 1000( "NO, YOU BALANCED IT WRONG."R "CHECK IT OVER AND TRY AGAIN.":640 E$:7,0:"YOU MISSED IT AGAIN! REMEMBER YOU" "MUST HAVE THE SAME NUMBER OF EACH" "TYPE OF ATOM ON EACH SIDE OF THE" "EQUATION. STUDY THIS:":1"TRY TO BALANCE THIS EQUATION:":@ bA$(1)" + "A$(2)" --> ";W l(8)154ĺ:8,100n vA$(3)" + "A$(4): "WHAT IS THE COEFFICIENT FOR THE" X$"? "; LL1 50:Y(I$)  YX900 1500: *I1500:I 41100 L1 I1(A$) D$A$= II((A$,I,1)):II49II55460W A$(D$,I1)(II16)x I(D$)A$A$(D$,(D$)I) I A$(J)A$:J N((1)41) X$A$(N):XA(N) ((K1)5)(K1)5ĺ"PRESS ANY KEY TO CONTINUE.":Z$" XE$:7,0:I150:(KB)12880' JI:" "(8);A LI150:(KB)12880L NI:70j P" "(8);:KS,0:I(KB):r K0z T0 W0 L0 KK1 E((1)201) EE9250 E9E ,I1E 6J14:A(J),A$(J):J,I @ J14:A$A$(J)L((270IX)10) 370$ 4I13ı2 5I31380D 6I47I5751P 7I860_ 8I$I$(I)t 97,IY:8,IX:I$; :(I$)MLı ;51 <(I$)2I$"":62 =I$(I$,(I$)1) >7,IY:8,IX:I$" ";:57 E FLASHING CURSOR F(95);(8); H7HM(116)256(115)> PROGRAM BY JAMES D. BECK, VSCp COPYRIGHT 1979, PROGRAMS FOR LEARNING, INC. CHARACTER GENERATOR (C)1980 BY SCOTT STEKETEE# ALL RIGHTS RESERVED(2000:2001 INPUT SUBROUTINE 2I$"":IY(7):IX(8):M            03333>333 f3 3333?60? ?  0``0? 3???????? ?0 ?    ? 6?3?6?3?33006?3?63?66?3?60?333 33 g?333333?3?6?3?600?3~~ 33?3333333333333???3;3333?33300000333? cgo{ssc33333333333>333303? 3333333333 ~$33 33333      ? 00 33333  30?3003??00333?0 333333>030 0e i п3 B ` pUH8eHehhԥH . 'HH Г /hh ǥ' ˘hh   $ l hhh`fjjjjffeee΅h6*&*&f*&j &0 LЈ*f&*fH1H8i 0- i0AЬ؅x0xeh hآ  R` d0T8ׅ E @ɈɌɔɒɐɍ$ɊHHHɠ0)A 0|8 FejfeׄΦ e0   DH *8ΰiϥ@4@i'SE%&T$(20): CTRL-T = LOWER CASEH&P$(16): CTRL-P = SHIFT LOCK_&CU$(95): CURSORe&& USE THESE LINES TO END THE PROGRAM AND RESTORE NORMAL PRINTING&A$&:(4)"PR#0"&0: ʚhi6hi76iF7iL Q 0: %%'7000"%t'20:" "I*%'A$5%'10100@%L63997o%V INITIALIZE CHAR. GEN. CONTROL CHARACTERS%`L$(12): CTRL-L = CLEARSCREEN%jB$(8): BACKSPACE%tJ$(10): LINEFEED%~M$(13): CARRIAGE RET.&R$(18): CTRL-R = UPPERCA ";$J1100:J&$8,100:B$;I$;6$J1100:J?$I:L$X16384:h$b(175)256(176)1712s$l60000$vL$"FROM$:P$" PROGRAMS FOR LEARNING, INC."$7,100:8,30:"NAMES AND CHARGES OF IONS"$KB16384:KS16368%I120000:Z9 # *# WRONG ANSWER SUBROUTINEE# M$ IS THE USERS NAMEW#& O1((0)10)d#0 K$(O1);n#? "!!"x#@ 3150~#N #Z49151:63996#J11000:J#I$">":C0I$"<"#(C)1I$I$R$(89(C))#I110#8,100:7,100$B$" O.K. ON THE CHARGES."" &" 3000R" "YOU NEED PRACTICE WITH THE CHARGES*"X" ^" h" Q2Kv" XQ(PS)|" " " 3930" BACKPATTING SUBROUTINE" M$=IS THE USERS NAME" O1((1)14)" J$(O1);" "!!"" # Z9110HE CHARGES FOR ";S;" RIGHT":"ON THE FIRST TRY"5!_ G!h PK.852950!r "IT LOOKS LIKE YOU KNOW YOUR":"SYMBOLS PRETTY WELL."!s !| 2960! "IT LOOKS LIKE YOU NEED SOME MORE":"WORK ON THESE SYMBOLS"! ! SK.852990" "YOU SEEM TO BE; A$ K10750$ R5750,  R0S  "DO YOU WANT FIVE MORE (Y OR N)";[  F$k " F$"Y"750| , F$"N"2880 6 2830 @ 7,0:8,0:L$ J "YOU TRIED ";K;" IONS": T "YOU GOT THE SYMBOLS RIGHT FOR ";S:"ON THE FIRST TRY*"/!^ "AND TT1 T22740 3090. "TRY AGAIN"8 2620t 7,140:8,0:R$"THE CHARGE ON THE ":A$;" ION IS "C"."~ 4000 2800 3040 C02770 "+";C;" IT IS" T02800 SS1  7,180:8,0:"PRESS ANY KEY TO CONTINUE"620B2 7,20:R$"NOW, WHAT IS THE CHARGE ON ":"THE ";A$;" ION?"s< CV(7):CH(8):7,100:8,100:B$" ";= 8,100:B$;:20:O6IF 7,CV:8,CHP O6C2760Z O6C2690d 3090n "YOU HAVE THE SIGN WRONG!"s 4000x 2800 T?303333>333 f3 3333?60? ?   ???????L???????L33333 ?0 ? 00  ? 6?3?6?3?33006?3?63?66?3?60?333 33 g?333333?3?6?3?60030 ~~ 33?3333333333333???3;3333?33300000333? cgo{ssc33333333333>333303? 3333333333 ~$33      ? 00 33333  30?3003??00333?0 333333>0     hآ0e i п3 B ` pUH8eHehhԥH . 'HH Г /hh ǥ' ˘hh   4@i'Υ$ l hhh`fjjjjffeee΅h6*&*&f*&j &0 LЈ*f&*fH1H8i 0- i0AЬ؅x0xeh Q   R` d0T8ׅ E @ɈɌɔɒɐɍ$ɊHHHɠ0)A 0|8 FejfeׄΦ e0   DH *8ΰiϥ@-R = UPPERCASE1T$(20): CTRL-T = LOWER CASETP$(16): CTRL-P = SHIFT LOCKkCU$(95): CURSORq USE THESE LINES TO END THE PROGRAM AND RESTORE NORMAL PRINTINGA$:(4)"PR#0"0: ʚhi6hi76iF7iLN ELEMENTS 1 - 20"+KB16384:KS16368;I11000:ALL63997{V INITIALIZE CHAR. GEN. CONTROL CHARACTERS`L$(12): CTRL-L = CLEARSCREENjB$(8): BACKSPACEtJ$(10): LINEFEED~M$(13): CARRIAGE RET.R$(18): CTRL3S2 3P64 19,POTASSIUM,K,1S2 2S2 2P6 3S2 3P6 4S1` 20,CALCIUM,CA,1S2 2S2 2P6 3S2 3P6 4S2k49151v63996X16384:b(175)256(176)1712l60000vL$"FROM:P$" PROGRAMS FOR LEARNING, INC."7,100:8,30:"A DRILL OSIUM,MG,1S2 2S2 2P6 3S2@ 13,ALUMINUM,AL,1S2 2S2 2P6 3S2 3P1h 14,SILICON,SI,1S2 2S2 2P6 3S2 3P2 15,PHOSPHORUS,P,1S2 2S2 2P6 3S2 3P3 16,SULFUR,S,1S2 2S2 2P6 3S2 3P4 17,CHLORINE,CL,1S2 2S2 2P6 3S2 3P5 18,ARGON,AR,1S2 2S2 2P6 n 4,BERYLLIUM,BE,1S2 2S29x 5,BORON,B,1S2 2S2 2P1V 6,CARBON,C,1S2 2S2 2P2u 7,NITROGEN,N,1S2 2S2 2P3 8,OXYGEN,O,1S2 2S2 2P4 9,FLUORINE,F,1S2 2S2 2P5 10,NEON,NE,1S2 2S2 2P6 11,SODIUM,NA,1S2 2S2 2P6 3S1 12,MAGNE 1560(CP$R$:40:Z$I$4N3N31DZ$B$1340TZ$C$1340^ XX1lR01350tR0("THAT'S NOT RIGHT ";F$;", TRY AGAIN"21250<RR1FP 1,HYDROGEN,H,1S1Z 2,HELIUM,HE,1S2d 3,LITHIUM,LI,1S2 2S1"YOU HAVE ANSWERED THE LAST ";R;" IN A ROW"U"CORRECTLY** DO YOU WANT ANOTHER"t"TEN PROBLEMS? (Y OR N)";|Z$Z$"Y"4807,0:L$,R$:7,40"OKAY, ";F$"YOU MADE ";X;" ERROR";:X1ĺ"S";" THIS TIME*":333333?3?6?3?600?303333>333 f3 3333?60? ?  0``0? 3???????? E3333333333 ~$33 33333 ?0 ? 00  ? 6?3?6?3?33006?3?63?66?3?60?333 33 g? ? 30 ~~ 33?3333333333333???3;3333?33300000333? cgo{ssc33333333333>333303?        <0 eɸhhh`fjjjjffeee΅*&*&f*&j &0*f&*fH18i 0) iȘ0H؅h x0xeh0e #0::` ʚhi6hi76i`7i ` Y0J8ׅ  7ɈɅɌɓɆɍ{Ɋ}HHHɠ0) A 0k8 FejfeׄΥ *8ΰiϥ@(@i'Υ^((J$)49)((J$)55)J$((J$)16):hJ$"+"J$">"MrJ$"-"J$"<"\|II$II$J$lI:I$II$: ADD () TO STRING IF MORE THAN FIRST CHAR IS IN CAPSI2(I$):((I$,I,1))6I$"("I$")":I(#A$2#:(4)"PR#0"<:S$" PROGRAMS FOR LEARNING, INC."U7,100:S$"CALCULATING MOLECULAR WEIGHT"mKB16384:KS16368}I1500:IE$;? CHANGE DIGITS TO SUBSCRIPTS, &+ OR - TO SUPERSCRIPTS@(I$)0ıJII$"":I1(I$)TJ$(I$,I,1)':"HIT ANY KEY TO GO ON"#Z$)O NUMERIC INPUT--LEAVE VALUE IN ZkJ$"":40:90:Z(I$):{8000:D$I$X16384::16302,0b(175)256(176)1449lE$(5):S$(19):L$(12)v(1002)76(1003)81Č1002E$;L$"FROM"(T" ."THE FORMULA WEIGHT: "G108XX1:1210:B1140@LJV1190U`B$(L)fjI11500:IntPR~E$"OKAY, THAT'S ";T9;" QUESTIONS."S(T9X)T9:S(S100.5)"YOUR SCORE IS ";S;" PERCENT."9000L((1)81) 0``0? 3???????? ??????? E6?3?33006?3?63?66?3?60?333 33 g?333333?3?6?3?600?303333>333 f3 3333?60? ? 333?33300000333? cgo{ssc33333333333>333303? 3333333333 ~$33 33333 ?0 ? 00  ? 6?3?00 33333  30?3003??00333?0 333333>0 ? 30 ~~ 33?3333333333333???3;3*fH18i 0) iȘ0H؅h x0xeh0e        <"hrJ$"-"J$"<"w|II$II$J$I:I$II$:` ʚhi6hi76i`7i ` Y0J8ׅ  7ɈɅɌɓ):S$" PROGRAMS FOR LEARNING, INC."M7,100:8,70:S$"PROBLEMS WITH"y:::8,35:"MASS, DENSITY AND VOLUME"KB16384:KS16368I11000:? CHANGE DIGITS TO SUBSCRIPTS, &+ OR - TO SUPERSCRIPTS@(I$)0ıJII$"":I CC1$R9100036001.R9(R9.5)10C78Gt2800:2700S~7,93:[pA$mz:(4)"PR#0"v0:|X16384::16302,0b(175)256(176)1449lE$(5):S$(19):L$(12)v(1002)76(1003)81Č1002E$;L$"FROM" 2560 I12618111) 7,I:34)9 I:7,126:O 40:90:Z(I$):] I11000d Ij  ROUND OFF ROUTINE TO 3 DIGITS ENTER WITH R9 AS VALUE C0 R910003600 R91003630 R9R910:CC1 3530R9R910Z$"D"2527* "DIVISOR: ";:2800:D1ZI "DIVIDEND: ";:2800:D2ZV AND2D1p 2700:D2"/"D1" = "AN "NEED MORE HELP? ";:2509 "FIRST NUMBER: ";:2800:M1Z "SECOND NUMBER: ";:2800:M2Z ANM1M2 2700:M1"X"M2" = "ANEY TO GO ON."Z$:E$;:&936,5 AN0@ 7,126c "WANT MATH HELP (Y OR N)? ";u 40:90:Z$I$ Z$"Y"2530 Z$"N"Ĺ7,71: 2700:2506 "MULTIPLY OR DIVIDE (M OR D)? "; 40:90:Z$I$  Z$"M"2566  z#??    Π̠D à ԠΠР̠Р٠ϠѠԠ٠ԠϠӠ'LES --- HOORAY !!!!!"bAr::"A REAL PIONEER !!!!!"hA|xAF9(F914)AD3D314F9AF9F91AF985560AF9F97A"PRESS TO CONTINUE...";AC$:(C$)135561A:2 B"MON END@, *** FINAL TURN ***6@6F9(2040M2)(MM2)M@@FF(1F9)(85E)S@J}@T ***BELLS IN LINES 5470,5480***@]::@^"YOU FINALLY ARRIVED AT OREGON CITY"AAh"AFTER 2040 LONG MITHE TELEGRAPH CHARGE ":?"WE THANK YOU FOR THIS INFORMATION AND WE ARE SORRY YOU DIDN'T MAKE IT TO THE GREAT TERRITORY OF OREGON. BETTER LUCK NEXT TIME."::?15):"SINCERELY,"?:2):"THE OREGON CITY CHAMBER OF COMMERCE"@"6700:"N"5231H>:"WOULD YOU LIKE US TO INFORM YOUR NEXT OFKIN? (Y/N) ";c>C$:C$"Y"ė:2:5310u>C$"N"5250~>:2>C$"Y"5310>::"BUT, YOUR AUNT SADIE IN SAINT LOUIS IS REALY WORRIED ABOUT YOU"::5330?"THAT WILL BE $4.50 FOR =<"DUE TO YOUR UNFORTUNATE SITUATION, THEREARE A FEW FORMALITIES WE MUST GO THROUGH "=Z"WOULD YOU LIKE A MINISTER? (Y/N)";=\C$:C$"Y"ĺ:5230=]C$"N"5212=^=n:"WOULD YOU LIKE A FANCY FUNERAL? (Y/N)";=oC$:C$"Y"ĺ:5250 >pC$0 <4940< *** DYING ***U<"YOU RAN OUT OF FOOD AND STARVED TO DEATH":5170]<T0<"YOU CAN'T AFFORD A DOCTOR":5120<"YOU RAN OUT OF MEDICAL SUPPLIES"<"YOU DIED OF ";< K815160<"PNEUMONIA":5170<("INJURIES":<2WH THE SOUTH PASS --- (THERE WAS NO SNOW)";;$M17004940J;.F214940S;8F21e;B(1).74970u;LM9501230;VM91:1230;j"BLIZZARD IN MOUNTAIN PASS -- LOSE TIME AND SUPPLIES":L11:FF25:M1M110:BB30:MM3040(1)<C182(1)630 TIME LOOKING FOR TRAIL":MM60:48608:(1).114840:"WAGON DAMAGED! -- LOSE TIME AND SUPPLIES":M1M15:BB20:MM2030(1):4860:"THE GOING GETS SLOW":MM45(1).2:F114900:F114900:F11:(1).84970*;"YOU MADE IT THROUG 9 47109*(1).56300%944710l9>"HELPFUL INDIANS SHOW YOU WHERE TO FIND MORE FOOD.":FF14:47109\ ***MOUNTAINS*** 9fM95012309p(1)109((M10015)212)48609z"RUGGED MOUNTAINS!!":(1).114780%:"YOU GET LOST --- LOSEOU ";8C224(1)4530*8"DON'T ";38C11l8"HAVE ENOUGH CLOTHING TO KEEP YOU WARM ":C104710v863008"HAIL STORM --- SUPPLIES DAMAGED ":MM5(1)108BB20:M1M14(1)3847108E163008 E346508(1).256300WOLVES OVERPOWERED YOU...":K81:512047:B124440h7D"NICE SHOOTING --- THEY DIDN'T GET MUCH":44507X"SLOW ON THE DRAW --- THEY GOT AT YOUR FOOD AND CLOTHES"7bBB5B17lCCB147vFFB18747108"COLD WEATHER --- BRRRRRRR! --- Y YOU HAVE NO MEDICINE":51703647106"WAGON GETS SWAMPED FORDING RIVER -- LOSEFOOD AND CLOTHES":FF30:CC20:MM2020(1):47106"WILD ANIMALS ARE ATTACKING!!! ":61406B394410%7"YOU WERE TOO LOW ON BULLETS -- THE UPPLIES DAMAGED ":FF40:BB40:M1M1(1)83:MM15:47105^"LOSE YOUR WAY IN HEAVY FOG --- TIME IS LOST":MM105(1):47105|"YOU KILLED A RATTLE SNAKE AFTER IT BIT YOU":BB1:M1M15:M104280)6"YOU DIE OF SNAKE-BITE SINCEOU GOT SHOT IN THE LEG --- AND THEY TOOK ONE OF YOUR OXEN":K8K814"BETTER HAVE DOC LOOK AT YOUR WOUND":M1M15:AA20:47104"QUICKEST DRAW OUTSIDE OF DODGE CITY!!! --- YOU GOT 'EM!!":4710;5""THERE WAS A FIRE IN YOUR WAGON -- FOOD AND S10:BB50:M1M115:MM10(1)5:4710K3x"BANDITS ARE ATTACKING !":6140X3BB3B1g3B040303"YOU RAN OUT OF BULLETS AND THEY GOT A LOT OF YOUR CASH. YOU NOW HAVE $";(T3100)1003T(T3100)100340403B11.54100E4"YLOOKING FOR IT":MM17:4710n2"YOUR SON GETS LOST --- SPEND HALF THE DAY LOOKING FOR HIM":MM10:47102 "UNSAFE WATER -- LOSE TIME LOOKING FOR CLEAN SPRING":MM10(1)2:47102(M9504490&32"HEAVY RAINS -- TIME AND SUPPLIES LOST":FFIN$"N"6710"J@IN$"Y"Ľ:100UJJ:10:"GOODBYE UNTIL THE NEXT WAGON TRAIN!":rJD$(4):D$;"RUN";"MENU"C40>I "BAD ILLNESS --- YOU USED YOUR MEDICINE":MM5:M1M12MI(M105110\I2L114940fI<4710I,24:"PLEASE PRESS . ";:IN$::(IN$)136700J6:10:"ARE THERE ANY MORE PIONEERS WAITING TO MAKE THE JOURNEY? (Y/N) ";:IN$:IN$"Y" *** ILLNESS SUBROUTINE ***F@VV0:XX0:B10FAVV0:XX0:S$""FBXX(16384)FC16368,0:XX1416214FDB1B11:XX1286210GEVVVV1K. POLK SENDS YOU HIS HEARTIEST CONGRATULATIONS"xE:"AND WISHES YOU A PROSPEROUS LIFE AHEAD AT YOUR NEW HOME"E6700E E *** START OF SHOOTING SUBROUTINE ***E"PRESS TO START SHOOTING.";FC$:(C$)13920D D3D3246/D"DECEMBER ";D3;" 1847":5D D*"FOOD","BULLETS","CLOTHING":"----","-------","--------":(F),(B),(C):"---------------------------------------":"MISC. SUPP.","CASH":"-----------","----"::M1,T6E:5):"PRESIDENT JAMES 0ClD31555780 CvD3D3124@C"AUGUST ";D3;" 1847":5920QCD31855820_CD3D3155C"SEPTEMBER ";D3;" 1847":5920CD32165860CD3D3185C"OCTOBER ";D3;" 1847":5920CD32465900CD3D3216D"NOVEMBER ";D3;" 1847":5DAY ";:5700#B"TUESDAY ";:5700 10-" FROM"510H II11500:IIm#" PROGRAMS FOR LEARNING"$II11500:II%10&958("FUNDAMENTAL SKILLS FOR GENERAL CHEMISTRY"-II11500:II.15 2"COPYRIGHT 1982 ALL RIGHT ɓɆɍ{Ɋ}HHHɠ0) A 0k8 FejfeׄΥ *8ΰiϥ@(@i'Υ eɸhhh`fjjjjffeee΅*&*&f*&j &0 1,CH4,2,O2,1,CO2,2,H2ODb 2,C2H2,3,O2,4,CO,2,H2Ohl 2,C2H2,5,O2,4,CO2,2,H2Ov 1,CL2,2,NABR,2,NACL,1,BR2` ʚhi6hi76i`7i ` Y0J8ׅ  7ɈɅ,& 1,H3PO4,3,KOH,1,K3PO4,3,H2O^0 1,BA(OH)2,2,HNO3,1,BA(NO3)2,2,H2O: 2,AL(OH)3,3,H2SO4,1,AL2(SO4)3,6,H2OD 1,CA(OH)2,2,HCLO4,1,CA(CLO4)2,2,H2ON 1,NA2CRO4,2,AGNO3,1,AG2CRO4,2,NANO3 X3,O2,2,CO2,2,H2O9 2,C2H6,7,O2,4,CO2,6,H2O^ 2,C3H6,9,O2,6,CO2,6,H2O 1,AL2O3,6,HCL,2,ALCL3,3,H2O 1,MGO,2,HCL,1,H2O,1,MGCL2 2,CUS,3,O2,2,CUO,2,SO2 1,H2SO4,2,NAOH,1,NA2SO4,2,H2O"L$fKB16384:KS16368!z\ 1,AL2(SO4)3,3,PB(NO3)2,3,PBSO4,2,AL(NO3)3 1,BACL2,2,AGNO3,1,BA(NO3)2,2,AGCL 1,PB(NO3)2,2,KCL,1,PBCL2,2,KNO3 1,AL(NO3)3,3,NAOH,1,AL(OH)3,3,NANO3 1,C2H4,,0 ((175)256(176)1449)>E$(5):S$(19):L$(12)_(1002)76(1003)81Č1002r4:7,0:"FROM">:" PROGRAMS FOR LEARNING, INC."H7,70:8,88:"A DRILL ON"R:8,54:S$"B A L A N C I N G"\:8,54:"E Q U A T I O N S:7,0*((1)41)1540,1550,1560,1570@(1).5ĺA$;L$:kI1(A$):7,3I:(A$,I,1);:I:L$:A$"F A N T A S T I C ! !":A$"E X C E L L E N T ! !":A$"V E R Y G O O D ! !":"A$"YOU GOT IT ! !":8192:16302Z$"Y"2302(E$"WELL, OUT OF "K" EQUATIONS,"^2"YOU GOT "W" RIGHT ON THE FIRST TRY!"t<:"REMEMBER --"F"IN CHEMISTRY AS IN THE CIRCUS,"P"BALANCING IS AN IMPORTANT ACT!!"UHMZA$d:(4)"PR#0"n0::xE$;S$200,L"HERE IS THE COMPLETE EQUATION --"MV"CHECK IT AGAINST YOURS!":\`L1WW1A(1);A$(1)" + "A(2);A$(2)" --> ";(8)154ĺ:8,100A(3);A$(3)" + "A(4);A$(4):(K5)K5230"DO YOU WANT TO TRY 5 MORE (Y/N)";:Z$ 1000( "NO, YOU BALANCED IT WRONG."R "CHECK IT OVER AND TRY AGAIN.":640 E$:7,0:"YOU MISSED IT AGAIN! REMEMBER YOU" "MUST HAVE THE SAME NUMBER OF EACH" "TYPE OF ATOM ON EACH SIDE OF THE" "EQUATION. STUDY THIS:":1"TRY TO BALANCE THIS EQUATION:":@ bA$(1)" + "A$(2)" --> ";W l(8)154ĺ:8,100n vA$(3)" + "A$(4): "WHAT IS THE COEFFICIENT FOR THE" X$"? "; LL1 50:Y(I$)  YX900 1500: *I1500:I 41100 L1 I1(A$) D$A$= II((A$,I,1)):II49II55460W A$(D$,I1)(II16)x I(D$)A$A$(D$,(D$)I) I A$(J)A$:J N((1)41) X$A$(N):XA(N) ((K1)5)(K1)5ĺ"PRESS ANY KEY TO CONTINUE.":Z$" XE$:7,0:I150:(KB)12880' JI:" "(8);A LI150:(KB)12880L NI:70j P" "(8);:KS,0:I(KB):r K0z T0 W0 L0 KK1 E((1)201) EE9250 E9E ,I1E 6J14:A(J),A$(J):J,I @ J14:A$A$(J)L((270IX)10) 370$ 4I13ı2 5I31380D 6I47I5751P 7I860_ 8I$I$(I)t 97,IY:8,IX:I$; :(I$)MLı ;51 <(I$)2I$"":62 =I$(I$,(I$)1) >7,IY:8,IX:I$" ";:57 E FLASHING CURSOR F(95);(8); H7HM(116)256(115)> PROGRAM BY JAMES D. BECK, VSCp COPYRIGHT 1979, PROGRAMS FOR LEARNING, INC. CHARACTER GENERATOR (C)1980 BY SCOTT STEKETEE# ALL RIGHTS RESERVED(2000:2001 INPUT SUBROUTINE 2I$"":IY(7):IX(8):M        7 IN":" 1 KM = 0.6214 MILE"+$"VOLUME:"K%" 1 L = 1000 ML = 1000 CC"z&" 1 L =.03532 CUFT = .001 CUM = 1.057 QT"'"MASS:"(" 1G = 10 DG = 100 CG = 1000 MG")" 1KG = 1000 G = 2.205 LBS = .001 M. TON"*" 1 LB = 453.6 G"4RR1Q10300$A."DO YOU WANT SOME MORE (Y OR N)";I3Z$Y8Z$"Y"290y~"OUT OF ";WR;" PROBLEMS,""YOU GOT ";R;" RIGHT ON THE FIRST TRY!" !::"LENGTH:":" 1 IN = 2.54 CM"#" 1 M = 1.094 YD = 3.281 FT = 39.3f"AND THAT GIVES THE ANSWER, ";K9,p7702C(1).7960T(1).4940e(1).3930y"GOOD!!":1000"RIGHT!!":1000"CORRECT!!":1000:"FANTASTIC";::"!!":1000I911000:I9C01020WW11050";X;", EITHER! IT TAKES ";K(J);" ";B$(J)BS"TO MAKE ONE ";A$(J)mT"SO WHAT SHOULD YOU DO - MULTIPLY OR"U"DIVIDE ";N;" BY ";K(J);" (ANSWER M OR D);WZ$\Z$"D"870a:"NONONONONONONONONONONONONO":b"YOU SHOULD DIVIDE BY ";K(J)#000  7!3:"HOW MANY ";A$(J);" IN ";N;" ";B$(J);E%K9NK(J)]&R9K9:3000:K9R9m*868:4000|+X0İ2080,X0ī801/9584(XK9).01K9WR0:9005WR19CC1>C1850C"NOPE! TRY AGAIN!"D810(R:"NOT HOULD"%:" ";::"MULTIPLY":>N;" BY ";K(J);"!!!"d:"SO NOW, WHAT IS YOUR ANSWER";n4000(XK9).01K9790"STILL WRONG - ";N;" X ";K(J);" = ";K9:"HIT ANY KEY TO CONTINUE"Z$:Z$""771 1000"OKAY!":1958 K9NK(J)) R9K9:3000:K9R9G (XK9).01K9WR0:900P WR1Z CC1g C1750 :"NO, NOT ";X;", TRY AGAIN!"  720 ::"THINK";::"!!! THERE ARE ";K(J);" ";B$(J) :"IN ONE ";A$(J):"THAT MEANS YOU S "Q0 , .QQ1. 1N((1)19810)10< 2WR1315O 6J((1)101)] 7JJ9310f 8J9Jn ;C0| @WR1701 RX(1) RX.5800  3:"HOW MANY ";B$(J);" IN ";N;" ";A$(J); 868:4000 X0İ2080 X0ī715 YARDS,1.094 yM,FT,3.2813 z M,INCHES ,39.37 B {KM,M,1000V |KM,MILES,.6214} }L,ML,1000,L,CC,1000,L,CUFT,.03532 ~L,QTS,1.057,G,DG,10,G,CG,100  G,MG,1000,INCHES ,CM,2.54 LB,G,453.6,KG,LBS,2.205 M.TON,KG,1000,M.TON,LBS,2205"UNITS TO CONVERT AS INDICATED."( K:T P"HERE IS A TABLE YOU MAY WISH TO USE:"^ V2081 [:"TO SEE THIS TABLE AGAIN TYPE HELP AS":"YOUR ANSWER" _"HIT ANY KEY WHEN YOU ARE READY" `Z$:Z$""96 dI117:A$(I),B$(I),K(I) nI xM,(17) 2936( 3:::::"FROM"::[ 4" ";::"PROGRAMS FOR LEARNING, INC.": 7::" ENGLISH AND METRIC UNITS OF MEASURE" <I12000:I:936 F"IN THIS PROGRAM YOU WILL BE GIVEN" G"QUANTITIES IN EITHER ENGLISH OR METRIC" H #***UPDATE 6/26/82 - S N ****K **********************************n PROGRAM BY M.A. WARTELL, MSC COPYRIGHT 1979 PROGRAMS FOR LEARNING, INC. NEW MILFORD, CT. 06776#********************************** (A$(17),B$(17),K     !!CM."18001740!840+14105 3000;E$BB1|.E$;R(13);" ML OF GASOLINE WEIGH ";.78R(13);" G."8"FIND THE VOLUME OF ";100R(12);" G."="OF GASOLINE."B:2500`"YOUR ANSWER, IN ML: ";j3700tK100R(12):KR9(ZK).02K1030&1370M"FIRST FIND THE VOLUME, M/D, OR"{R(11)300;" G / 11.3 G/CC; THEN GET THE""AREA (";R(10)40;" CM X ";R(10)15;" CM).""THEN DIVIDE THE VOLUME BY THE AREA,""AND YOU HAVE THE THICKNESS,":K" ;" CM."?W"BY ";R(10)15;" CM; ITS MASS IS ";R(11)300;" G."\"THE DENSITY OF LEAD IS 11.3 G/CC;":"FIND THE THICKNESS OF THE SHEET."p:2500"YOUR ANSWER (IN CM): ";3700K(R(11)300)11.3((R(10)15)(R(10)40))R9K:3500R OF NAILS, OR:"="V = ";R(9);" / ";N9;" = ";R9" ML PER"l"NAIL. MULTIPLY THIS BY THE DENSITY 7.2""G/ML, AND YOU GET THE MASS, ";K;" G." 18001740 610*141043000HBB1RE$"A SHEET OF LEAD MEASURES ";R(10)40 :2500*"YOUR ANSWER, IN G.: ";43700FKR(9)7.2N9ZR9K:3500:KR9p(ZK).02K810z1370R9R(9)N9:3500"YOU SHOULD FIND THE VOLUME OF ONE""NAIL BY DIVIDING THE VOLUME OF ALL THE""NAILS BY THE NUMBE 01740:390D1410'N30001bBB1CgN9(R(8)10)qlE$;N9" NAILS RAISE THE WATER LEVEL IN A"q"GRADUATED CYLINDER BY ";R(9);" ML; IF"v"THE DENSITY OF THE METAL IN THE NAILS"{"IS 7.2 G/CC, WHAT IS THE MASS":"OF ONE NAIL?"5(R(6)10)(R(7)10)*R9K:3500:KR9@(ZK).02K580J1370x:"THE VOLUME OF THE OBJECT EQUALS THE""CHANGE IN WATER LEVELS; DIVIDE THIS"!S$"INTO"L$" THE MASS OF THE OBJECT AND"&"YOU GET THE DENSITY, "K" G/ML."+1800R(6)10)" G"5"IS PLACED IN A GRADUATED CYLINDER"b"WHICH CONTAINS "20R(5)" ML OF WATER.""THE WATER RISES TO THE "30R(5)R(7)" ML""MARK. FIND THE DENSITY OF THE":"OBJECT.":2500"YOUR ANSWER IN G/ML: ";3700KLY THE DIMENSIONS"1B"TO GET THE VOLUME, THEN"^E"DIVIDE THE MASS "S$"BY"L$" THE VOLUME"yJ"TO GET THE DENSITY,"OK" GRAMS PER CUBIC CENTIMETER."P1800T1740^180h1410n3000BB1 E$"AN OBJECT WITH A MASS OF "5(R(2);" CM WIDE, AND ";R(3);" CM THICK; ITS"\ "MASS IS "4000R(4)" G. FIND ITS DENSITY."h :2500 "YOUR ANSWER IN G/CC: "; 3700 K200R(4)(R(1)R(2)R(3)) R9K:3500:KR9 (ZK).02K360 1370@:"YOU SHOULD MULTIP0 JI:" "(8);, LI150:(KB)128807 NI:70U P" "(8);:KS,0:I(KB):d Z(I$)0ız [II$"":I1(I$) \((I$,I,1))32II$II$(I$,I,1) ]I:I$II$: nR(20) 1740 BB1 E$"A BLOCK IS "10R(1)" CM LONG,"+ 2)0ĭ(I$,1)(6)İ64$ 4I$I$(I)9 67,IY:8,IX:I$;I 8(I$)MLıQ :42h <(I$)2I$"":62 =I$(I$,(I$)1):(I$,1)(6)60 >7,IY:8,IX:I$" ";:54 @(I$)1I$"": AI$(I$,(I$)1): F(95);(8); HI150:(KB)1288I0:J1(I$):I10I((I$,J,1))48:J::D ' ALPHABETIC INPUTp (I$"":IY(7):IX(8):ML((270IX)10)~ )CFĺS$;: *70 ,I13ĺL$: .I36010 0I27I6:(I$)0ĭ(I$,1)(6)42 1I49I56SSII16 2I860 3I65(I$NERATOR (C) 1980 BY SCOTT STEKETEE<  ALL RIGHTS RESERVEDK 7000:110_  NUMERIC INPUTy I$"":IY(7):IX(8) 70:I36010 I13I$""37 !I860 "I47I5731 #I$I$(I):7,IY:8,IX:I$;:((9)1)((8)14)37 $31- %1( ********************************F PROGRAM BY PAUL CAUCHOM[ COPYRIGHT 1979} PROGRAMS FOR LEARNING, INC. (C)1982 BY PROGRAMS FOR LEARNING, INC. NEW MILFORD, CT 06776 ********************************" CHARACTER GE            *"0"THE ATOMIC NUMBER OF ";A$(K2);" IS ";B$:1120i"HOW MANY PROTONS ARE THERE IN ":A$(K2);t"? ";B$N$(K2)C$N$(K2)1250$R01100."THE NUMBER OF PROTONS IN AN ELEMENT"/"EQUALS ITS ATOMIC NUMBER" 8A$(K2);zC$S$(K2)1250$R01100c"WRONG, ";F$:"THE ELEMENTAL SYMBOL FOR "A$(K2);" IS ";B$m1120"WHAT IS THE ATOMIC NUMBER OF "A$(K2);"? ";B$N$(K2)C$N$(K2)1250R01100"CHECK YOUR PERIODIC TABLE* ";N$(K2);" PROTONS"1120N S$(K2);" IS THE SYMBOL FOR WHAT ELEMENT? "\*B$A$(K2)j4C$A$(K2)t>1250HR01100RB$;" HAS THE ELEMENT SYMBOL ";S$(K2)\1120f"WHAT IS THE ELEMENTAL SYMBOL FOR "gA$(K2);"? "pB$S$(K2) 1250R011009"NO, ";B$;" HAS THE ELECTRON"V"CONFIGURATION ";E$(K2)`1120"WHAT ELEMENT HAS "N$(K2);" PROTON";:K20ĺ"S";"? ";B$A$(K2)C$S$(K2)1250R01100 "THAT'S INCORRECT ";F$;",":B$;" HAS);"? ":B$A$(K2)"DC$S$(K2),N1250:XR01100Jb"SORRY, "ocB$;" HAS ATOMIC NUMBER ";N$(K2)yl1120vW$"Y"660N2N211140"WHAT ELEMENT HAS ":"THE ELECTRON CONFIGURATION "::E$(K2)B$A$(K2)C$S$(K2)N1L$;R$N2N21%KZ(N)3K2(K7)AK3KK27v K2+1 IS THE ATOMIC NO. OF THE ELEMENT IN QUES. K3+1 IS THE TYPE OF QUES. THAT WILL BE ASKED&(K31)560,630,730,800,870,940,10200"WHAT ELEMENT HAS ATOMIC NUMBER ";N$(K2,I1,1))16)?n CHANGE DIGIT FOLLOWING LETTER TO SUPERSCRIPTIoII1PpI_qE$(K1)II$grK1m|R$"DO YOU WANT QUESTIONS ON ELECTRON""CONFIGURATIONS INCLUDED (Y OR N)";W$X0R0N0N20N30NSUPER,FANTASTIC(L EXCELLENT:M FAR OUT MANG^K1019dhN$(K1),A$(K1),S$(K1),I$iN$(K1)R$N$(K1):A$(K1)R$A$(K1)jS$(K1)R$S$(K1)kII$"":I1(I$)l((I$,I,1))64II$II$(I$,I,1):368 mII$II$(I$,I,1)(((I$LE I GET THE QUESTIONS READY."-K10139:Z(K1)K1BK1PK10139`K2139K11rK3((1)K2)Z1Z(K3)Z(K3)Z(K2)Z(K2)Z1"K1,K1096I$:G$(K1)R$I$@K1J YES,THAT'S IT,CORRECT,RIGHTK OKAY,GOOD,20),Z(140): L$;R$"THIS PROGRAM WILL ASK YOU QUESTIONS"b "ABOUT THE FIRST TWENTY ELEMENTS." "YOU WILL PROBABLY REQUIRE A PERIODIC" "TABLE FOR REFERENCE." II11000: :::"PLEASE BE PATIENT FOR A FEW MOMENTS":"WHI+ : GET A CHARACTER & RETURN ASCII AS Ie ; THIS ROUTINE USED BY NUMERIC & ALPHA INPUT ROUTINESt <CU$;(8); =I150:(KB)12865 >I:" "(8); ?I150:(KB)12865 @I:60 A" "(8);:KS,0:I(KB): dA$(20),S$(20),E$(20),N$(T BE -16368& (I$CP$:IY(7):IX(8). )60; *I1352J +I363997X ,I27I6d -I849s .I$I$(I) /7,IY:8,IX:I$;:((9)1)((8)14)52 041 1(I$)1I$CP$:51 2(I$)1I$(I$,(I$)1) 37,IY:8,IX:I$" ";:47 4:4)27 21> I0:J1(I$):I10I((I$,J,1))48:J::n $ ALPHABETIC INPUT ROUTINE--RESULT IS IN I$ % SET CP$ TO P$ FOR ALL UPPER CASE, TO R$ FOR FIRST CHAR UPPER CASE, & OR TO T$ (OR NULL) FOR LOWER CASE ' KB MUST BE -16384 & KS MUS***************** 7000:100<  NUMERIC INPUT ROUTINEo  POSITIVE INTEGERS ONLY--RESULT RETURNED AS I I$"":IY(7):IX(8) 60:I363997 I13I$""27 I849 I48I5721 I$I$(I):7,IY:8,IX:I$;:((9)1)((8)1'********************************K BY E.A.MOTTEL I.I.T. CHICAGO` COPYRIGHT 1979 PROGRAMS FOR LEARNING, INC. NEW MILFORD, CT 06776 HI-RES CHARACTERS (C) 1982 BY SCOTT STEKETEE ALL RIGHTS RESERVED ***************          :AA42060."NO - NOT ";A;", -4!!"[ ::"SO .004 = 4 X 10^-3, (4 X .001)":".000076= 7.6 X .00001, SO"::".000076 = 7.6 X 10^-5" " .02 = 2 X 10^ WHAT";:A:A22100*"NO - .02 = 2 X .01 = 2 X 10^-2"::4:".00045AY - YOU GOT 6 IN A ROW, SO WE":"CAN MOVE ON!":;*2000AXI12000:I:936`C0"NOW LET'S LOOK AT NUMBERS":"SMALLER THAN 1.""YOU KNOW THAT 100 IS 10^2,":"AND 10 IS 10^1; ""1=10^-1, .01=10^-2, AND"::".0001=10^ WHAT";XX _609=`::"COME ON - USE THE OTHER FORM!"::600IaA(A$)_b(ZA).01Z700rcCC1:C5800:"RIGHT"::" ";:400C0:"NO - THE ANSWER IS:":B2750N100;:I1E2:"0";:I:360N;:(69);:E:3601 "OK0EXX11000:XX::5,(1).55005EF1QN;:(69);:E:B1:600u3);N100;:I1E2:"0";:I:}B2EF0X:"YOUR ANSWER ";:A$YXX1(A$)ZEF1605[(A$,XX,1)"E"609\XX:608](A$,XX,1)"E"608^J::"FOR EXAMPLE, IF I GIVE YOU"3T" 4500"QY"?":"YOU TYPE IN 4.5E3"^::"IF I GIVE YOU 1.86E7, YOU TYPE 18600000"h::"HIT ANY KEY WHEN YOU ARE READY TO GO ON"iA$:A$""361N((1)800100)100E((1)73)ZN1IT ANY KEY"(A$:A$""296()9360,C0r6:"LET'S PRACTICE. IF I GIVE YOU A NUMBER":"IN EXPONENTIAL";"FORM, YOU GIVE ME THE 'NORMAL' FORM;":"IF I GIVE YOU THE NUMBER IN"@"'NORMAL' FORM, YOU GIVE IT TO ME IN":"EXPONENTIAL FORM."# NOT ";A;", 5!!"7"THAT MEANS 469000 = 4.69 X 10^5"w::"NOW THE COMPUTER WOULD ACTUALLY WRITE":"THAT NUMBER""AS 4.69E5, WHERE 'E' MEANS:":"'TIMES 10 TO THE ....... POWER'"":"AND 25000 = 2.5 X 10^4 = 2.5E4": '"STUDY THAT, THEN HTTEN THERE,":"YOU KNOW THE DECIMAL POINT COMES AFTER":"THE THIRD ZERO. NOW - HOW MANY PLACES":"TO THE LEFT WOULD YOU HAVE TO MOVE THE""DECIMAL POINT TO GET IT BETWEEN THE""FIRST AND SECOND DIGITS IN THE":"NUMBER";:A A5280"NO - - 2500 = 2.5 X 1000"::"NOW 1000 = 10 ^ WHAT POWER";AAK936XA3210p"NO, 1000 = 10^3,""AND 10000 = 10^4"::"SO 2500 = 2.5 X 10^3"I12000:I:"LET'S TRY ANOTHER : 469000"::"EVEN THOUGH IT ISN'T WRI "SECOND POWER = 100." ::"SO YOU CAN SAY 500 = 5 X 10^2":"(THERE'S NO WAY TO PUT AN EXPONENT ABOVE":"THE LINE SO I'LL USE THE ^) :"NOW 2500 = 25 X 100, DOESN'T IT?" : "AND 2500 ALSO = 2.5 X WHAT NUMBER";:A:A1000200"N0YOU CAN THINK OF 500 AS 5 TIMES":"WHAT NUMBER";:A= 936L A100170n "COME NOW - 500 = 5 X 100!!" ::"AND 100 = 10 RAISED TO WHAT POWER";:A A2180 "NO, NOT ";A;", 2!! 10 TO THE FIRST POWER":"IS 10, 10 SQUARED, OR 10 TO TO""HAVE LOST TRACK OF THE NUMBER OF ZEROES"I "IN ONE OR BOTH NUMBERS." ::"A BETTER WAY TO LOOK AT NUMBERS LIKE":"THOSE "; "TWO IS TO USE EXPONENTIAL":"(OR SCIENTIFIC) NOTATION. TO SEE HOW ":"THIS WORKS, CONSIDER THE NUMBER 500."3 :"WO NUMBERS:". y" .0000000008 X 500,000,000"6 }:^ I14000:I:"WHAT DO YOU GET";:Am A.4140 "GOOD- YOU WERE CARFUL! MANY PEOPLE HAVE" "TROUBLE KEEPING TRACK OF THE ZEROES.":150 "NO-YOU SHOULD HAVE GOTTEN .4 YOU MUST"* "PROGRAMS FOR LEARNING, INC.":& L " EXPONENTIAL NOTATION"c !I12000:I:936 d"WE USE EXPONENTIAL NOTATION WHEN" e"WORKING WITH VERY LARGE OR " f"VERY SMALL NUMBERS" n"TAKE A PIECE OF PAPER AND MULTIPLY" x"THESE T( ********************************O ** COPYRIGHT 1979 **v ** PROGRAMS FOR LEARNING, INC.** **P.O.BOX 954,NEW MILFORD, CT.** ** ALL RIGHTS RESERVED **936:"FROM:"::::: " ";::     "  C12420(A$"DICHROMATE"8(B$"CR2O7"A2C2K<2420]FA$"MERCURIC"iPB$"HG"rZC2|d2420nA$"MERCURY(II)"xB$"HG"C22420A$"BICARBONATE"B$"HCO3"C12420A$"COPPER(I)"2420VA$"PHOSPHATE"&`B$"PO4"/jC39t2420N~A$"PERCHLORATE"]B$"CLO4"fC1p2420A$"CYANIDE"B$"CN"C12420A$"CHLORATE"B$"CLO3"C12420A$"HYDROGEN CARBONATE"B$"HCO32420A$"NITRATE"&B$"NO3"/C192420JA$"NITRITE"XB$"NO2"aC1k2420~A$"CARBONATE"B$"CO3"C22420A$"AMMONIUM"B$"NH4"C1$2420.A$"HYDROXIDE"8B$"OH"BC1L70,2110,2150,2190,2230,2270,2310,2350,2390j< IF ANY LETTER IN B$ IS TO BE CAPITALIZED AFTER THE FIRST,= EMBED A CTRL-R BEFORE THE LETTER TO BE CAPITALIZED>A$"SULFATE"HB$"SO4"RC2\2420fA$"SULFITE"pB$"SO3"zC2K0N((1)401)&N308204N20810B N10800vN830,870,910,950,990,1030,1070,1110,1150,1190 N101230,1270,1310,1350,1390,1430,1470,1510,1550,1590*N201630,1670,1710,1750,1790,1830,1870,1910,1950,1990*4N302030,20Y AS MANY AS YOU WANT, BUT MAKE A":"LIST OF THE ONES YOU MISS AS YOU":"GO ALONG FOR REVIEW."duZZ12000:".... AND REMEMBER, FOR EACH""CAPITAL LETTER, PRESS THE ESC KEY""FIRST.":"PRESS ANY KEY TO BEGIN":A$ THE SULFATE ION, ENTER SO$.":"THEN WHEN YOU ARE ASKED"v"FOR THE CHARGE ON THE SULFATE ION,":"ENTER <"(91)ZZ12000:"YOU MUST SPECIFY + OR - WITH ":"EACH CHARGE.":"PRESS ANY KEY TO CONTINUE":A$L$:7,10^"TRSS+"THIS PROGRAM GIVES PRACTICE WITH"S"THE FORMULAS AND CHARGES ON SOME"|"COMMON IONS. FOR CONVENIENCE, WE""ARE SEPARATING THE SYMBOL FROM""THE CHARGE."ZZ11500:"FOR EXAMPLE, IF YOU ARE ASKED THE";"SYMBOL OFYES,YES,YES","YOU BETTER BELIEVE IT","OF COURSE"jN "YOU PASSED THE TEST","YOU GOT THAT ONE","FOR SURE"X"YOU GOT IT","TO BE SURE"bO109lK$(O1)vO1 NOPE,WRONG,NOT CORRECT,SORRY,NO,UGH,OOPS,YOU MISSED THAT ONE,I DISAGREE,BOO...HIKB)12865 @I:603 A" "(8);:KS,0:I(KB):9 A L$Z I$(10),J$(13),K$(9)f O109r I$(O1)z O1 "0","1","2","3","4","5","6","7","8","9" O1013 &J$(O1) 0O1 : VERY GOOD,CORRECT,RIGHT,YES,GOOD,EXCELLENT0D"(I$)1I$CP$:510 2(I$)1I$(I$,(I$)1)J 37,IY:8,IX:I$" ";:R 4:| : GET A CHARACTER & RETURN ASCII AS I ; THIS ROUTINE USED BY NUMERIC & ALPHA INPUT ROUTINES <CU$;(8); =I150:(KB)12865 >I:" "(8); ?I150:($ (OR NULL) FOR LOWER CASEF ' KB MUST BE -16384 & KS MUST BE -16368a (I$CP$:IY(7):IX(8){ )60:I49I56II16 *I1352 +I363997 ,I27I18 -I8İ49:47 .I$I$(I) /7,IY:8,IX:I$;:((9)1)((8)14)52 041 141)0 7,IY:8,IX:I$;:((9)1)((8)14)328 21R I1:(I$,1)"<"I1s !(I$)1II(((I$,1))89)y " $ ALPHABETIC INPUT ROUTINE--RESULT IS IN I$ % SET CP$ TO P$ FOR ALL UPPER CASE, TO R$ FOR FIRST CHAR UPPER CASE, & OR TO T CHARGE INPUT ROUTINE--:  ALLOWS +, +2, +3, -, -2, -3T I$"":IY(7):IX(8)g 60:I363997{ I13I$""32 I8İ49:(I$)2I$(I$,1) I("+")I$""I$">" I("-")I$""I$"<" (I("2")I("3"))(I$)1I$I$R$(I~%************************=** COPYRIGHT 1979 **[*PROGRAMS FOR LEARNING**y**ALL RIGHTS RESERVED*** HI-RES CHARACTERS (C) 1982 BY SCOTT STEKETEE ALL RIGHTS RESERVED ******************************** 7000:420                  :"OUT OF ";WR;" PROBLEMS,"J"YOU GOT ";R;" RIGHT ON THE FIRST TRY!"PY(1).4930 "GOOD!":10004"RIGHT!":1000N:"CORRECT!"::1000k:"EXCELLENT!!"::1000|I12000:IC01020WW11050RR1Q10300$."DO YOU WANT SOME MORE (Y OR N)";3Z$8Z$"Y"290~ (ANSWER 'M' OR 'D')";WZ$.\Z$"D"870]a:"NO NO NO NO NO NO NO NO NO NO NO NO":b"YOU SHOULD ";::"DIVIDE ";::N;" BY ";K(J)cI12000:I:f:"AND THAT GIVES THE ANSWER, ";K9p770(1).7960(1).4940 %K9NK(J)*X*4(XK9).01K990049CC1A>C1850YC"NOPE! TRY AGAIN!"bD810R:"NOT ";X;" EITHER!"::"IT TAKES ";K(J);" "B$(J)S"TO MAKE ONE ";A$(J)T:"SO WHAT SHOULD YOU DO -MULTIPLY OR "U"DIVIDE ";N;" BY ";K(J);"0:I::"SO NOW WHAT IS YOUR ANSWER";:X@ (XK9).01K9790c "NO, THAT'S STILL NOT RIGHT." :N;" X ";K(J);" = ";K9 :"HIT ANY KEY TO CONTINUE" Z$:Z$""771 1000 "OKAY!!":1000 "HOW MANY ";A$(J);" IN ";N;" ";B$(J); (XK9).01K9900 CC1* C1750M :"NO, NOT ";X;", TRY AGAIN!"S \ 720 :::"THINK!"::"THERE ARE ";K(J);" ";B$(J) "IN ONE ";A$(J);"." :"THAT MEANS YOU SHOULD ";::"MULTIPLY": N;" BY ";K(J);"!!!"( I1200L,ML,1000,KL,L,1000,KCAL,CAL,10001 {S,MS,10009 "Q0? ,I .QQ1` 1N((1)1981)10s 6J((1)101) 7JJ9310 8J9J ;C0 X936 ::: (1).5800 :"HOW MANY ";B$(J);" IN ";N;" ";A$(J); X K9NK(J)  X". Z:"WHERE 'X' IS ANY QUANTITY SUCH AS"S [" GRAMS, METERS, SECONDS, ETC." _:"HIT ANY KEY WHEN YOU'RE READY TO GO" `Z$:Z$""96 dI110:A$(I),B$(I),K(I) nI xG,CG,100,G,MG,1000,KG,G,1000 yG,CG,100,G,MG,1000,KG,G,1000" zEFIXES" 7I13000:I:936I F"THIS PROGRAM WILL GIVE YOU PRACTICE"s G"WITH THE 3 COMMON METRIC PREFIXES," H"MILLI- CENTI- KILO-" K: P"REMEMBER THAT:" R:" 1000 MX = 1 X" S" 100 CX = 1 X" U" 1 KX = 1000R & ARK PROGRAM BY JAMES BECK, VSC>ARK COPYRIGHT 1979cARK PROGRAMS FOR LEARNING, INC.|(A$(10),B$(10),K(10)29363::::4"FROM"::::" ";5:"PROGRAMS FOR LEARNING, INC.":::: 6"PRACTICE WITH COMMON METRIC PR     ;"!"I11000:Q"SO WHAT IS THE WEIGHT OF "C$:"PER MOLE OF ";A$" ? ";[2000v(ZEW1).05W11050"NO, IT'S MORE LIKE ";EW1I11000:I"ADD THE ";G1EW1;" FOR THE"$B" MOLE";:B1ĺ"S";%" OF "F$" IONS TO GE5G11100T2940<"NO, NOT ";Z;". TRY AGAIN! ";E880d"NO, NOT ";Z;", EITHER!""LOOK, HOW MANY MOLES OF ";C$"IONS IN A MOLE OF ";A$" ? ";2000ZE990"NO, THERE ";E1ĺ"IS ONLY 1!":985" ARE ";EY.5780Y.4800>E$"WHAT IS THE MASS OF A MOLE OF"SC$;" ";F$;", ";dI11000:IoA$"?"x880 E$"WHAT IS THE FORMULA WEIGHT FOR"740 E$"HOW MANY GRAMS IN ONE MOLE OF":A$" ? ";p2000zTT1 (G1Z).03,1,NITRATE,62,O,2,OXIDE,16,MNO4,1,PERMANGANATE,118.9,SO4,2,SULFATE,96,S,2,SULFIDE,32 zE1I$A$:8100:A$I$&B1I$D$:8100:D$I$0E1A$A$(32E):B1D$D$(32B)A$A$D$Q$C$" "F$:G1BF1EW1Y(1),POTASSIUM,39.1 f AG,1,SILVER,107.9,NA,1,SODIUM,22.99,SN,4,TIN(IV),118.69,ZN,2,ZINC,65.37  BR,1,BROMIDE,79.9,CLO3,1,CHLORATE,83.45,CL,1,CHLORIDE,35.5 CRO4,2,CHROMATE,116 OH,1,HYDROXIDE,17,I,1,IODIDE,126.9^ NOH4,1,AMMONIUM,18,BA,2,BARIUM,137.3,CA,2,CALCIUM,40  CU,1,COPPER(I),63.55,CU,2,COPPER(II),63.55,LI,1,LITHIUM,6.94,FE,3,IRON(III),55.85  FE,2,IRON(II),55.85,PB,2,LEAD(II),207.2,MG,2,MAGNESIUM,24.3,NI,2,NICKEL(II),58.71,K,12)1360+|J117:U$,V,W$,V2:JN1410EI$U$:BV:C$W$:W1V2U8000:A$I$_X$A$fJI1N2:I$,E,F$,F1:8000:D$I$G(N1,N2)1I521:BI(BI)EI(EI)460BBI:EEII6 AL,3,ALUMINUM,26.98,N"DON'T INCLUDE ANY UNITS":"WITH YOUR ANSWER."7"W,"LET'S GET STARTED. HOW"6"MANY DO YOU WANT TO TRY? ";:30:T9I@:D SUPPRESS AMMONIUM OXIDEEG(2,8)1JPR1T9TT0^hN1((1)171):N2((1)111)rG(N1,NCT!":B$(6)"THAT'S RIGHT"] B$(6)"NICE GOING!":B$(7)"THAT'S RIGHT":B$(8)"FANTASTIC!" :"THIS PROGRAM PROVIDES PRACTICE" "IN CALCULATING MOLECULAR WEIGHTS." I11000:I :"YOU WILL NEED A TABLE":"OF ATOMIC WEIGHTS." 180 NI:703 P" "(8);:KS,0:I(KB):I390109 QH Z(I$)0ı^ [II$"":I1(I$) \((I$,I,1))32II$II$(I$,I,1) ]I:I$II$: dG(20,20) nB$(8) B$(1)"YES!":B$(2)"OKAY!":B$(3)"GOOD!":B$(4)"RIGHT!" B$(5)"CORRE8,IX:J$;I$; 8(I$)MLı$ :42; <(I$)2I$"":62a =I$(I$,(I$)1):(I$,1)(6)60 >7,IY:8,IX:J$;I$" ";:54 @(I$)1I$"": AI$(I$,(I$)1): F(95);(8); HI150:(KB)12880 JI:" "(8); LI150:(KB)128: ' ALPHABETIC INPUTE (I$"":IY(7):IX(8):ML((270IX)10)M *70f ,I13ĺL$:I$J$I$:t .I36010 0I27I6:(I$)0ĭ(I$,1)(6)42 1I49I56SSII16 2I860 3I65(I$)0ĭ(I$,1)(6)İ64 4I$I$(I) 67,IY:BY SCOTT STEKETEE 7000:1004  NUMERIC INPUTN I$"":IY(7):IX(8)` 70:I36010t I13I$""37 !I860 "I47I5731 #I$I$(I):7,IY:8,IX:I$;:((9)1)((8)14)37 $31 %I0:J1(I$):I10I((I$,J,1))48:J:!**************************A******COPYRIGHT 1979******aPROGRAMS FOR LEARNING, INC***ALL RIGHTS RESERVED****************************** TO SUPPRESS DISPLAY OF FORMULA DELETE LINE 760 CHARACTER GENERATOR (C) 1980           PR#0"0:::VAL,3,ALUMINUM,NH4,1,AMMONIUM,BA,2,BARIUM,CA,2,CALCIUMCU,1,COPPER(I),CU,2,COPPER(II),LI,1,LITHIUM FE,2,IRON(II),FE,3,IRON(III),PB,2,LEAD(II),MG,2,MAGNESIUM$NI,2,NICKEL(II),K,1,PSTAKES,":"AND START ALL OVER AGAIN!!!"5Z01435~XX14000::"HERE ARE THE ONES YOU MISSED:":XX14000::E$:7,0XX1Z:W$(XX)XX20(XX20)āYY14000::E$:7,0XX:48152:"PRESS ANY KEY TO END"A$::(4)"R!"5"I SUGGEST YOU LOOK OVER":"YOUR MISTAKES."?(1430N2S201390<"COME ON "H$", YOU COULD":"HAVE DONE BETTER THAN THIS!"F"I SUGGEST YOU RUN THIS OVER AGAIN."d1430'n"WELL- THAT WAS PRETTY BAD!!":"YOU SHOULD STUDY YOUR MI!"L$:A$;" IS ";Q$;"PRESS ANY KEY TO CONTINUE."FI$:KYS(50SP.5)gE$:7,40"YOUR SCORE IS "S"."S901290"EXCELLENT, "H$1430 S751330"WELL, "H$", YOUR SCORE IS":"NOT BAD, BUT COULD BE BETTE1200LSS3T;j((1)51)1140,1150,1160,1170,1180at"HOLY SMOKES!! YOU GOT IT!!"ky1190~S$"EXCELLENT!!!"L$1190"NOT BAD "H$" ...NOT BAD AT ALL!!"1190"RIGHT ON!!"1190S$" C O R E C T ! ! S THE ANSWER IS":Q$:){ZZ1:W$(Z)A$31200=Q$:]Q1$A$:CFI$A$:90:Q1$I$g40:sCFİ90Q1$I$1100T1İ2600:1030"YOU BETTER TRY AGAIN!"T2:970:"HENCE THE ANSWER IS ":A$:ZZ1:W$(Z)Q$$49II55750&A$(D$,I1)(II16)GI(D$)A$A$(D$,(D$)I)NIe Q$(6)C$" "F$zI$Q$:90:Q1$I$ T1:(1).59604A$:>40:90:HQ1$I$1100RT1İ2700:890\"TRY AGAIN, BUDDY."fT2:830z:"THUE1E-0BI(BI)EI(EI)BBI:EEI4XISbE1(A$)3A$"("A$")"jE1A$A$(32E)uX$D$X1$X$:3000:X$X1$B1(D$)3D$"("D$")"B1D$D$(32B)A$A$D$I1(A$):D$A$ II((A$,I,1)):IIE$:7,0:"("K") ";W0AN1((1)161):N2((1)10)aIG(N2)2N1:I(I).5410|G(N2)G(N2)2(N11):I117U$,V,W$IN1A$U$:BV:V1V:C$W$:Y$U$:X1$Y$:3000:Y$X1$II0N2:D$,E,F$:I&I521+"' "STATE AS FOLLOWS: COPPER(I),"B "COPPER(II), ETC." :"THUS NI(CLO#)"(34)" = NICKEL(II) CHLORATE." :7,170:"HOW MANY QUESTIONS" "WOULD YOU LIKE?"4);(8);(8);(8);(8); 40:P(I$):P0270 ,SS1:S0:K1PIF GIVEN A COMPOUND NAME,":"GIVE ITS FORMULA."i " IF GIVEN A FORMULA, GIVE":"ITS COMPOUND NAME." :" WHEN NAMING COMPOUNDS OF" "MULTIVALENT IONS SUCH AS COPPER," "IRON, LEAD, NICKEL AND TIN BE" "SURE TO INDICATE THE OXIDATION( E$:7,0:"PLEASE TYPE YOUR NAME."j :"FOR EACH CAPITAL LETTER, PRESS THE":"ESC KEY FIRST!" :40:H$I$:CFH$(6)H$ ::"DO YOU NEED DIRECTIONS (Y/N)?" A$:A$"N"270 A$"Y"175 E$:7,0:"DIRECTIONS:"0 " $)1I$"":# AI$(I$,(I$)1):4 F(95);(8);N HI150:(KB)12880_ JI:" "(8);y LI150:(KB)12880 NI:70 P" "(8);:KS,0:I(KB):44 Z(I$)0ı [II$"":I1(I$) \((I$,I,1))32II$II$(I$,I,1) ]I:I$II$:(I$)0ĭ(I$,1)(6)421 1I49I56SSII16= 2I860a 3I65(I$)0ĭ(I$,1)(6)İ64p 4I$I$(I) 67,IY:8,IX:I$; 8(I$)MLı :42 <(I$)2I$"":62 =I$(I$,(I$)1):(I$,1)(6)60 >7,IY:8,IX:I$" ";:54 @(I  W$(30): (C) 1979 BY PROGRAMS FOR LEARNING,INC.` TO SUPPRESS USE OF ESC FOR CAPS| CHANGE 155> 155 CF=12000#150(I$"":IY(7):IX(8):ML((270IX)10))CFĺS$;:*70,I13ĺL$;:.I33010 0I27I6:        """ A$;" HAS 1 SIGNIFICANT FIGURE"'U$-9K419MZ$I$(K4)1980UK4:"LOOK AT MY ANSWER, AND SEE":"IF YOU CAN FIGURE OUT YOUR MISTAKE"2200K4N22110K4N2D32040):"TRAILING ZEROES IN THE DECIMAL ARE":OW MANY SIGNIFICANT FIGURES"::"ARE THERE IN ";A$8BQQ1XD9D9D2D3D4D6`Z$uZ$I$(N2)18502310C1C11A$&U$02200:2360DC10XN211910bA$;" HAS ";N2;" SIGNIFICANT FIGURES"l1920v(1).21630JQ$"-"A$%KA$Q$3TQ$" "U$=UU$Q$O^(1).31750]hA$A$"E"or(1).41670}|A$A$"-"N8((1)20) EXPONENTN8121720A$A$I$(N8)D71N8((1)9)1A$A$I$(N8)D7D712"HD9D91N0N01&C$(N0)I$(N5)4W$(N0)V$AN2N2N3IN4WN30840aN4N0wC$(N4)"0"1540D3D31N4N41N401500D2N1N6N2 ASSEMBLE NUMBERN41N0"A$A$C$(N4),U$U$W$(N4)6N4 @D401550!N4N1D41N10W$(N4)" "8N4EN2N2D4O1550YD6D4bD40n N0N01}C$(N0)"."W$(N0)" "2N601550<FD60PN41N6ZN5((1)20)dI$(N5)"0"1420nN31xV$"^"1430^" 1060D9D91$$N0N016.C$(N0)I$(N5)D8W$(N0)V$QBN2N2N3YLN4eMN4N41rVD2N1N2`C$(N4)"0"1160jD4D41tN4N41~N401110N6((1)(8N1))N2N601160N201270(1).41270 X0 *C104C20>C30)HA$""3RU$"">\V$" "GfN00PpN20YzN30bD30kD40tD60}D70D90N1((1)8)936:10N101160N41N1N5((1)20)I$(N5)"0"1050N31V$"" :8"HIT ANY KEY WHEN YOU ARE READY TO BEGIN"KA$:A$""687U936aC$(20)mI$(20)yW$(20)K1019I$(K1)K1"0","1","2","3","4","5","6","7","8","9" "0","0","0","0","0","0","0","0","0","0"Q0 T, YOU MAY HAVE TO GUESS,"B"BUT AFTER AWHILE YOU SHOULD HAVE"b"LITTLE OR NO DIFFICULTY."h"TRY TO FIGURE OUT WHY SOME DIGITS""OF THE NUMBER ARE IMPORTANT""(SIGNIFICANT) AND WHY SOME ARE NOT""IMPORTANT (NOT SIGNIFICANT)IT","TO BE SURE," X936G Y"TO SUCESSFULLY COMPLETE THIS PROGRAM"o Z"YOU MUST ANSWER TEN QUESTIONS IN" b"A ROW CORRECTLY." l"AFTER THAT, THE PROGRAMS WILL ALLOW" m"YOU TO PRACTICE MORE," n"IF YOU WISH TO DO SO." "AT FIRS"I DISAGREE,","INCORRECT,"' ;"OOPS,"< <O1013:K$(O1)D =O1 >"VERY GOOD,","CORRECT,","RIGHT,","YES,","GOOD,","EXCELLENT,","YES, YES, YES,","YOU'D BETTER BELIEVE IT,","OF COURSE,","YOU PASSED THE TEST,","YOU GOT THAT ONE,","FOR SURE,","YOU GOT MISTAKE, IT WILL OCCASIONALLY"K "STATE THE RULE WHICH YOU HAVE BROKEN."U ::t "HIT ANY KEY TO CONTINUE" A$:A$""442 O109 J$(O1) O1 :"NOPE,","WRONG,","THAT ISN'T CORRECT,","NO,","UGH,","YOU MISSED THAT ONE,","HISS,","THE PROGRAM PRESENTS THE RULES OF ":"SIGNIFICANT FIGURES, BY GIVING" "YOU PROBLEMS TO SOLVE AND INDICATING":"IF YOUR ANSWER IS RIGHT OR WRONG"  "SIGHELP ALSO POINTS OUT WHICH DIGITS" "ARE SIGNIFICANT, AND IF YOU HAVE" "MADE A RAMS FOR LEARNING, INC." $ M " SIGNIFICANT FIGURE TRAINER"d (I13000:I:936~ "WHAT IS YOUR NAME"; "M$ ,936 |J$(9),K$(13) "SIGHELP IS DESIGNED TO HELP YOU TO" "LEARN THE MEANING OF SIGNIFICANT FIGURES"H e!**************************A******COPYRIGHT 1979******aPROGRAMS FOR LEARNING, INCBYE.A. MOTTEL, CHICAGO, IL****ALL RIGHTS RESERVED*****************************936 :::"FROM"::::: " ";::"PROG     ` ʚhi6hi76i`7i ` Y0J8ׅ  7ɈɅɌɓɆɍ{Ɋ}HHHɠ0) A 0k8 FejfeׄΥ *8ΰiϥ@(@i'Υ81Č10024:7,0:"FROM"<>:" PROGRAMS TO FUCK BY!kH7,70:S$" NAMES"L$" AND "S$"SYMBOLS"R:8,106:L$"FOR"\:8,50:S$"CHEMICAL ELEMENTS"L$fKB16384:KS16368pI12000: A$ HM :(4)"PR#0" 0:0E$:7,503M$;", YOU TRIED "L3" ELEMENTS"c::"AND GOT "L2" RIGHT ON THE FIRST TRY."7,170:"PRESS ANY KEY TO END."30008192:16302,0((175)256(176)1449)E$(5):S$(19):L$(12) (1002)76(1003)"IS ";A$(N);".""1723F"THE CORRECT NAME FOR ";A$(N)\"IS ";B$(N);"."bwL5(L5)1740"HIT ANY KEY WHEN READY TO GO ON."265"DO YOU WANT TO TRY 5 MORE (Y OR N)?"I$I$"Y"270I$"N"176OT"(i"THE CORRECT NAME FOR "A$(N)"."?j:"TRY AGAIN: ";Ir1590[|L10L2L21m(1).51684:"CORRECT";1685:"RIGHT";(1).61688", ";M$;"!!!"1723"THE CORRECT SYMBOL FOR ";B$(N)"ESC"L$" TO TYPE A CAPITAL LETTER."-155371500@":5h,"WHAT IS THE NAME OF THE ELEMENT"-"WITH THE SYMBOL ";A$(N)"? ";650:D$I$:790JD$B$(N)I$B$(N)1660TL1L11^L13D$""1720h"SORRY, "M$"-- "D$" IS N SYMBOL FOR "B$(N)"?"$50:C$I$7C$A$(N)1660CL1L11\" "S$"NO!!!!"L$qL13C$""1700(6)C$A$(N)1555C$;" IS NOT THE SYMBOL FOR "B$(N)".":"TRY AGAIN: ":1500"REMEMBER TO PRESS THE KEY MARKED"#S$IUM,FE,IRON,CU,COPPER,ZN,ZINC,BR,BROMINE,AG,SILVERf I,IODINE,AU,GOLD,HG,MERCURY,U,URANIUM,PB,LEADoL30xL20L0 I$L10E$:7,0J(1)"N((1)371)LL1L3L31:::J.61570"WHAT IS THE,MANGANESE,LI,LITHIUM,CO,COBALT,HE,HELIUM,AS,ARSENICq H,HYDROGEN,NI,NICKEL,BE,BERYLLIUM,BA,BARIUM,N,NITROGEN O,OXYGEN,F,FLUORINE,NE,NEON,NA,SODIUM,MG,MAGNESIUM,SI,SILICON P,PHOSPHORUS,S,SULFUR,CL,CHLORINE,AR,ARGON,K,POTASSIUM2 CA,CALC ELEMENTS CORRECTLY.":CF230M ::"YOU MUST ALSO CAPITALIZE CORRECTLY."t 7,170:"PRESS ANY KEY TO BEGIN." A$(37),B$(37) I137:A$(I),B$(I) A$(I)(6)A$(I) I AL,ALUMINUM,CD,CADMIUM,B,BORON,CR,CHROMIUM,C,CARBON4 MNED "S$"ESC"L$5 }"FIRST, AND THEN TYPE THE LETTER."l :"HOW LONG IS YOUR COCK & WHAT IS THE DIAMETER?"| :50:M$I$ CFM$(6)M$ E$:7,0 "YOU CAN TRY AS MANY AS YOU WANT TO." :"NOTE-- YOU MUST SPELL THE NAMES" "OF THE((I$,I,1))32II$II$(I$,I,1)3 ]I:I$II$:e x7,0:E$" THIS PROGRAM PROVIDES PRACTICE" y"ON TEACHING YOU HOW TO FUCK YOUR MOTHER IN THE ASS." z" " {:" WHEN YOU WANT TO TYPE A CAPITAL" |"LETTER, PRESS THE KEY MARK "; ?(I$)0CFI$(6)# @579 E FLASHING CURSORJ F(95);(8);d HI150:(KB)12880u JI:" "(8); LI150:(KB)12880 NI:70 P" "(8);:KS,0:I(KB): Y STRIP CONTROL CHARACTERS Z(I$)0ı [II$"":I1(I$)# \TINE< 2I$"":IY(7):IX(8):ML((270IX)10):CFI$(6)D 370P 4I13ı^ 5I33010l 6I27I6x 7I860 8I6CFI$I$(I) 97,IY:8,IX:I$; :(I$)MLı ;51 <(I$)2I$"":62 =I$(I$,(I$)1) >7,IY:8,IX:I$" HM(116)256(115):******COPYRIGHT 1979******ZPROGRAMS FOR LEARNING, INCz****ALL RIGHTS RESERVED*****************************2000 TO ELIMINATE USE OF ESC KEY, INSERT THIS LINE: 9 CF=1 120 1 INPUT ROU        K=5/9(F-32)+273"*/179034420`>(N);" DEGREES K IS HOW MANY DEGREES F"yHK195((N)273)32RA$"I HOPE YOU CHANGED K TO C AND THEN TO F LIKE THIS: F=9/5(K-273)+32"W1820\420fp SUB. TO PICK TEMP VALUHOW MANY DEGREES C"#K1(N)273/N(N)|A$"THE WAY TO DO IT WAS TO CHANGE THE #3 EQUATION TO: C = K - 273"1750 420N;" DEGREES F IS HOW MANY DEGREES K" K159(N32)273 *A$"FIRST CHANGE F TO C, THEN TO K BY THIS: HAVE USED: F = 9/5C + 32"F1670O420yN;" DEGREES C IS HOW MANY DEGREES K"K1N273A$"THE CORRECT METHOD WAS: K = C + 273"1700420(N);" DEGREES K IS Z$"Y"300l935?vN;" DEGREES F IS HOW MANY DEGREES C"QK159(N32)A$"THE CORRECT FORMULA WAS: C = 5/9(F-32)"1630420N;" DEGREES C IS HOW MANY DEGREES F"K195N32<A$"YOU SHOULD 570*:"*******CORRECT*******"0&G+I13000:I:936P0510g:Y(((XW)X)100)o?:D"WELL, YOU MISSED ";W;" PROBLEMS"E"OUT OF ";X;". THAT'S A SCORE OF ";Y;"%"N"WOULD YOU LIKE TO TRY SOME MORE (Y OR N)"XZ$ b ";A1$;N;A2$& R3R4488\ " THEN":" ";A3$;A1;A4$ " THEREFORE":" ";A5$;K1 WW1 : "STUDY THAT THEN HIT ANY KEY TO CONTINUE" Z$:Z$""502 936 380 J0 R630,670,710,750,790,830& : "YOUR ANSWER";A KT P((KK1)K1)b SN(K1) R9(K1):2000:K1R9SN P.02540 "SORRY, BUT THAT ANSWER IS WRONG." "THE CORRECT ONE IS ";K1 :A$ " OR":" "LET'S GET STARTED" $ "P20Q ,"HOW MANY PROBLEMS DO YOU WANT TO TRY";X 6Xm @X0ĭ(X)X340 J"COME ON NOW, GIVE A POSITIVE INTEGER" T ^:: hW0 i936 rJ1X wR((1)61) |5 "PROBLEM (";J;")": 89PERATURE SCALES." G "RECALL THAT THE CONVERSION FORMULAE ARE:"e " 1) C = 5/9(F - 32)" " 2) F = 9/5C + 32" " 3) K = C + 273" "C = DEGREES CELSIUS" "F = DEGREES FARENHEIT" "K = ABSOLUTE (KELVIN)"  IONS" I13000:I:936E "IN THIS PROGRAM YOU WILL BE GIVEN"p "TEMPERATURE VALUES ON THE FARENHEIT" "CELSIUS, OR ABSOLUTE SCALES. YOU WILL" "BE ASKED TO CONVERT THE VALUE TO THE" "APPROPRIATE VALUE IN ONE OF THE" "OTHER TEM  **UPDATE 6/25/82 S N ****@******COPYRIGHT 1979******`***ALL RIGHTS RESERVED.*****************************936::::"FROM":::" ";::"PROGRAMS FOR LEARNING, INC." : " TEMPERATURE CONVERS        C9pIA2$"-273)+32"50A3$"F=9/5(":A1N273:A4$")+32"C:A5$"F="IDa ROUND-OFF ROUTINEjC90sD93R910D92100R910(D91)2150R9R910 C9C9120404R9R910>C9C91HR910D92100fR9(R9.5)105$A1$ ( HELP FOR PROB TYPE 4EA1$"C = ":A2$" - 273"RA5$A1$Xt HELP FOR PROB TYPE 5A1$"K=5/9(":A2$"-32)+273"A3$"K=5/9(":A1N32:A4$")+273" A5$"K=" HELP FOR PROB TYPE 6&A1$"F=9/5(":$")"|A5$"C = "7 HELP FOR PROB TYPE 2YA1$"F = 9/5(":A2$") + 32"A3$"F = ":A1(95)N:A4$" + 32"SN(A1):R9(A1):2000:A1R9SNA5$"F = " HELP FOR PROB TYPE 3A1$"K = ":A2$" + 273"AESzV1((1)274)'H((1)4)14H(1)H?NHV1EO::v" O.K. I HOPE YOU HAVE MASTERED""TEMPERATURE CONVERSIONS!!!!!"^ HELP FOR PROB TYPE 1hA1$"C = 5/9("rA2$"-32)"wA3$"C = 5/9(":A1N32:A4ELP"X1:X(X$):d ROUND-OFF ROUTINE% C90:D938 R910D93100O R910(D91)3150\ R9R910h C9C91r 3030 R9R910& C9C910 R910D93100: R9(R9.5)10C9D N R9(R9.5)10C9X  INPUT SUBROUTINEX$ X$"H33 g?333333?3?6?3?600?303333>333 f3 3333?60? ?  0``0? 3???????? E33>333303? 3333333333 ~$33 33333 ?0 ? 00  ? 6?3?6?3?33006?3?63?66?3?60?333 333333>0  0``030 ~~ 33?3333333333333???3;3333?33300000333? cgo{ssc333333333