' +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`030 X0:YY9  Y4530001 : GOTO3005NY1 C$:C$"*"Ā' C$" "30226 C(C$)64G C$"?"C27X C$"!"C28k (C$)273000~ C28C13010 C10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37 0:X,X3Y1:3 XX5:X363NO, ";N$;" TRY AGAIN: ";:W1$-,W1$W$400Q6"NO, THE RIGHT SPELLING IS: ";cFL1:52:250m1000FL0::((1)15)1200 HOUSE,DOG,CAT,BAT,TOP,*T15500:: :16302,0:X0:Y9 0:S4047:0,39S::3 X,X348H:Z1,Z1((A$,Z1,1))48((A$,(Z2),1))48V:Z:_d:"HELLO, WHAT'S YOUR NAME ?";N$gW$xW$"*"240:200X0:Y9:T1(W$):C$(W$,T,1):3011:FL14201000:3:W1$W1$W$40050""Y6,Y4X3:X,Y6:Y4,Y2X2:X2,Y:B %Y7,Y2X2:X2,Y: 2A$"4202611820335037330:4045645036736107427907268429420420":54 4A$"4202611820335037330:4015315615915026426826127727268429" 6((1)15)197H15:V25:Z1523:Z1((A$,Z,1))X1,Y1:X2,Y:> Y,Y7X:Y,Y7X3:X,X3Y:Y,Y2X2:} !Y,Y2X:Y4,Y7X:Y4,Y7X3:Y2,YX3:X1,X2Y3: "Y7,Y4X:Y7,Y4X3:X1,X2Y3:Y,Y2X2: #X,X3Y:X,X3Y5:X,Y1:X1,Y2:X2,Y3:X3,Y4:( $X,X3Y7:X2Y:X2,Y1:X1,Y2:f Y,Y7X:X,X3Y7:X,X3Y4:Y7,Y4X3:X1,Y3:X2,Y2:X3,Y1: X,X3Y7:X,X3Y:X,X3Y4:Y7,Y4X:Y3,Y1X3: Y,Y7X1:X,X3Y7: Y,Y7X:Y,Y7X3:X,X3Y: Y7,Y2X:Y7,Y1X3:2X3: Y,Y7X:X,X3Y:R Y,Y7X:Y,Y7X3:X,X3Y7:Y7,Y5X2:w Y,Y7X:Y,Y7X3:X,X3Y7: Y,Y7X:Y7,YX3:X,X3Y:X,X3Y7: Y,Y7X:X,X3Y7:X,X3Y4:Y7,Y4X3: Y,Y7X:Y1,Y7X3:X,X3Y7:X,2Y4:- Y,Y7X:X,X2Y4:X,X3Y7:h Y,Y7X:X,X3Y7:X,X3Y:Y,Y4X3:X2,X3Y4: Y,Y7X:Y,Y7X3:X,X3Y4: Y,Y7X1: Y,Y7X3:X,X3Y:Y,Y2X: Y,Y7X:X1,Y4:X2,Y3:X2,Y5:X3,Y6:X3,Y7:Y,Y2 :3:100? Y,Y7X:Y,Y7X3:X,X3Y3:X,X3Y7: Y,Y7X:Y1,Y3X3:Y5,Y6X2:X,X3Y:X,X3Y4:X,X2Y7: Y,Y7X:X,X3Y:X,X3Y7: Y,Y7X:X,X2Y:X,X2Y7:Y1,Y6X3: Y,Y7X:X,X3Y:X,X3Y7:X,X          ANSWER ANSC210# 34,21:4 18:"RIGHT"= 170I((1)8)2 CAB/ 18:A;"X";B;:"=";ANSQ ANSCĖ18:"RIGHT!!!"::170 (7):18:"WRONG!":4A3:2B::AB:34,23::FLASHES ANSWER IN TABLE :18:A;"X";B;:"=";ANS:REPRINTS PROBLEM ANSCĖ4A3:2B:AB:TURNS OFF FLASHING >/ZLINES 100-150 PRINT MULTIPLICATION TABLE7d:EnA(10,10)YxI110:J110hA(I,J)IJ2J:4I3:A(I,J)J,I34,21::SET TEXT WINDOW BELOW MULT TABLELINES170-180 CHOOSE A MULTIPLICATION PROBLEM A((1)8)2:B IT ON A BENCH IF THERE IS ONLY ROOM FOR 2 AT A TIME?"A G M ^ SUBHEADINGd z ((40(ARG$))2) ARG$  X138  "-"; & 0 "-" : 6TIONS OF N OB- JECTS TAKEN D AT A TIME."/ ? "EXAMPLE:"E  " 1) HOW MANY PERMUTATIONS AND COMBINA- TIONS CAN BE MADE OF THE 26 LETTERS OF THE ALPHABET, TAKING 5 AT A TIME?"; " 2) HOW MANY DIFFERENT WAYS CAN 12 PEOPLE SEN HEADING  2 BELL$(7): BELL SOUND= BELL$S ((40(ARG$))2)Y $c .ARG$i 8u BX138 L"-"; V `"-"    DISPLAY COMMENTARY ) "THIS PROGRAM COMPUTES THE NUMBER OF PERMUTATIONS AND COMBINAMORE THAN 9.9E32 PERMUTATIONS"( 2802 PPI9 Iq - COMPUTE INTERMEDIATE FACTORIAL FOR COMPUTATIONS| J2D CCJ J P;" PERMUTATIONS" PC;" COMBINATIONS"   - RESTART PROGRAM 40    SCRER SIZE OF SUBGROUP:";DQ Y SIZE OF SUBGROUP CANNOT BE LARGER THAN SIZE OF GROUP_ ZDN130z d"SUBGROUP TOO LARGE" n x40 P1 C1 IND1N - DON'T ALLOW NUMBER SIZE TO OVERFLOW MACHINE CAPACITY 9.9E32IP190 ". ARG$"PERMUTATIONS & COMBINATIONS":1000T ARG$"OSBORNE & ASSOCIATES":3000t2000: PROGRAM DESCRIPTIONz"(ENTER 0 TO END PROGRAM)"#("ENTER TOTAL NUMBER OF OBJECTS:";N; - TEST FOR END OF PROGRAM<N0280 F"ENTE   EET=";R;" SQ.CENTIMETERS""740N:5:I;"SQ.YARDS=";R;" SQ.CENTIMETERS"W740jR(I32)(59):5:I;"FAHRENHEIT=";R;" CELSIUS"740:R((95)I)32D:5:I;"CELSIUS=";R;" FAHRENHEIT"N740010:I;"POUNDS=";R;" KILOGRAMS"'740M:10:I;"KILOGRAMS=";R;" POUNDS"V740~:10:I;"INCHES=";R;" CENTIMETERS"740@:10:I;"CENTIMETERS=";R;" INCHES"J740r:5:I;"SQ.INCHES=";R;" SQ.CENTIMETERS"|740:5:I;"SQ.F 7400:10:I;"PINTS=";R;" MILLILITERS"9740e:5:I;"QUARTS=";R;"CUBIC CENTIMETERS"n740:10:I;"GALLONS=";R;" LITERS"740F:10:I;"LITERS=";R;" GALLONS"P740x:10:I;"OUNCES(DRY)=";R;" GRAMS"740:,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850g:10:I;"TEASPOONS=";R;" MILLILITERS"p740:10:I;"TABLESPOONS=";R;" MILLILITERS"$740L:10:I;"OUNCES(LIQ)=";R;" MILLILITERS"V740~::I;"CUPS=";R;" MILLILITERS"7ĀN8885005:5:"VALUE TO BE CONVERTED";<III777ĀXI888500:EQUATION FOR CONVERSION OF INPUT VALUE TO ANSWER RIC(N):DIRECT CALCULATION TO TO PROPER NAME FOR ANSWER PRINTOUT< N1000,1050,1100,1050,1200,1250"2g24:10:"PRESS RETURN FOR NEXT PAGE";:A$:H: TO END PROGRAMh"TO END PROGRAM ENTER 777": TO RETURN TO INDEX OF MEASUREMENTS:"FOR ACCESS TO INDEX ENTER 888":3:"ENTER INDEX NUMBER OF DESIRED CONVERSION";NN77 INCHES"/I"(14)SQ.INCHES TO SQ.CENTIMETERS"TN"(15)SQ.FEET TO SQ.CENTIMETERS"zS"(16)SQ.YARDS TO SQ.CENTIMETERS"X"(17)FAHRENHEIT TO CELSIUS"]"(18)CELSIUS TO FAHRENHEIT":b"NOTE INDEX NUMBER OF DESIRED CALCULATION.WAIT FOR NEXT PAGEILLILITERS"1!"(6)QUARTS TO CUBIC CENTIMETERS"M&"(7)GALLONS TO LITERS"i+"(8)LITERS TO GALLONS"0"(9)OUNCES(DRY) TO GRAMS"5"(10)POUNDS TO KILOGRAMS":"(11)KILOGRAMS TO POUNDS"?"(12)INCHES TO CENTIMETERS"D"(13)CENTIMETERS TOLIST OR INDEX OF MEASUREMENTS# B 10:"KITCHEN-AID METRICS"a 10:"-------------------" "(1)TEASPOONS TO MILLILITERS" "(2)TABLESPOONS TO MILLILITERS" "(3)OUNCES(LIQ) TO MILLILITERS" "(4)CUPS TO MILLILITERS" "(5)PINTS TO M";:A$:. C(18):DIM.FOR CONVESION FACTORSV :DATA TABLE FOR CONVERSION FACTORS~ 5,15,29.57,236,473.17,946.36,3.785 .227,28.35,.4536,2.205,2.54,.3937 6.452,929.03,8361.3 :INDEX LOOP FOR DATA READ N116 C(N)  :SUREMENTS IS PRESENTED"C P"ON THE NEXT PAGE.NOTE THE INDEX NUMB"m U"ER.ENTER THAT NUMBER WHEN QUERIED." Z"THEN ENTER THE VALUE TO BE CONVERTED." _5:"777 ENDS THE PROGRAM" `5:"888 RETURNS THE LIST" d24:8:"PRESS RETURN FOR NEXT PAGEEMENTS USED IN THE"B :"KITCHEN ARE PRESENTED.FRACTIONAL VALUES"r ;"MAY BE ENTERED.FOR A MORE EXTENSIVE LIST" <"CONSULT THE OTHER PROGRAMS IN THE LIBRARY" F8:"HOW THE PROGRAM OPERATES" H8:"------------------------" K3:"A LIST OF MEAED BY MAX J.NAREFF,SAN FRANCISCO,CA1979*@ (16:"INTRODUCTION"Y -15:"-------------" 25:"THIS IS ONE OF A SERIES OF PROGRAMS" 7"FOR THE CONVERSION OF MEASUREMENTS TO" 8"AND FROM THE METRIC SYSTEM.HERE SOME OF" 9"THE MORE COMMON MEASUR '**************************H ***TABLE OF CONTENTS*******i*INTRODUCTION..LINES 0-200**DATA AND LOOP SETUPS..200-260**INDEX OF MEASUREMENTS..500-615**PROGRAM DRIVE..700-800**ANSWER PRINTOUTS..1000-END*( #PREPAR     I;" MILLIGRAMS=";R;" POUNDS"%J620Lr:6:I;" MILLIGRAMS=";R;" GRAINS"U|620E&F:6:I;" KILOGRAMS=";R;" OUNCES"/P620Ux:6:I;" KILOGRAMS=";R;" POUNDS"^620:6:I;" METRIC TONS=";R;" TONS(SHORT)"620:6:I;" METRIC TONS=";R;" POUNDS"620:6:I;" MILLIGRAMS=";R;" OUNCES"620@:6:KILOGRAMS"$620;L:6:I;" POUNDS=";R;" METRIC TONS"DV620k~:6:I;" POUNDS=";R;" MILLIGRAMS"t620:6:I;" TONS(SHORT)=";R;" METRIC TONS"620:6:I;" GRAMS=";R;" OUNCES"620:6:I;" GRAMS=";R;" POUNDS"620! :6:I;" OUNCES=";R;" GRAMS"**620PR:6:I;" OUNCES=";R;" KILOGRAMS"Y\620:6:I;" OUNCES=";R;" MILLIGRAMS"620:6:I;" GRAINS=";R;" MILLIGRAMS"620:6:I;" POUNDS=";R;" GRAMS"620 :6:I;" POUNDS=";R;" II777Ā#I888450A:EQUATION FOR CONVERSIONjRIC(N):ENTERS FACTOR AND COMPUTES:DIRECTS PROGRAM FOR UNIT COMPUTATION AND PRINTOUTN800,850,900,950,1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650(18)MILLIGAMS-GRAINS"HN24:"SELECT INDEX NUMBER.PRESS RETURN";:A$:lX6);"TO END PROGRAM ENTER 777"b:6:"FOR INDEX ENTER 888"l:5:"ENTER THE SELECTED INDEX NUMBER";vN{N777ĀN888450:10:"VALUE TO BE CONVERTED";EIGHT..METRIC TO U.S."."(10)GRAMS-OUNCES"F "(11)GRAMS-POUNDS"b"(12)KILOGRAMS-OUNCES"~"(13)KILOGRAMS-POUNDS""(14)METRIC TONS-TONS(SHORT)"!"(15)METRIC TONS-POUNDS"&"(16)MILLIGRAMS-OUNCES"+"(17)MILLIGRAMS-POUNDS"0"""(2)OUNCES-KILOGRAMS"8"(3)OUNCES-MILLIGRAMS"T"(4)GRAINS-MILLIGRAMS"k"(5)POUNDS-GRAMS""(6)POUNDS-KILOGRAMS""(7)POUNDS-METRIC TONS""(8)POUNDS-MILLIGRAMS""(9)TONS(SHORT)-METRIC TONS"PAUSE11000:3:"WS*28.35,.0284,2835,64.80,453.59,.4536R4.5E-4,453,.9072,.0353,.0022,35.27~2.205,1.102,2204.6,3.5E-5,2.2E-6,.0154:INDEX LOOP FOR DATA READN118C(N):READ DATA TABLE3:"WEIGHT..U.S.TO METRIC""(1)OUNCES-GRAMSTER CELSIUS VALUE";hI0j:TO END OR INDEX=mI777ĀLrI888190xwR((95)I)32:EQUATION FOR CONVERSION|:I;"DEGREES CELSIUS=";R;"DEGREES FAHRENHEIT"355C(18):FOR THE 18 CONVERSION FACTORS:DATA TABLE FOR FACTORVALUE";@I$A:TO END OR INDEX1BI777Ā@DI888190lER(I32)(59):EQUATION FOR CONVERSIONJ:I;"DEGREES FAHRENHEIT=";R;"DEGREES CELSIUS"T315Y^10:"TO END PROGRAM ENTER 777"`10:"FOR INDEX ENTER 888"c:6);"ENDESIRED MEASUREMENT BY LETTER"<:COMMAND DRIVE FOR INDEX_::10:"ENTER INDEX LETTER";emA$}A$"A"300A$"B"345"A$"C"400,15);"TO END PROGRAM ENTER 777"65);"FOR INDEX ENTER 888";:"ENTER FAHRENHEIT HE PROGRAM CAN BE STOPPED OR THE INDEX"9 "RECALLED."Y 10);"PRESS RETURN";:A$:_ s 6:17:"INDEX" 17:"-----" :10)"(A)FAHRENHEIT TO CELSIUS" :10)"(B)CELSIUS TO FAHRENHEIT" :10)"(C)WEIGHT" :5:"SELECT IS A GENERAL INDEX.SELECT"G "THE UNIT NEEDED.ENTER THE APPROPRIATE"s "LETTER.(C)PRESENTS THE MORE DETAILED" "INDEX OF WEIGHT UNITS.WAIT FOR THE" "REQUEST FOR INDEX NUMBER AND THEN FOR" "THE VALUE TO BE CONVERTED.AT ANY INPUT"( "THIS ONE DEALS WITH TEMPERATURE"K }"AND WEIGHT CONVERSIONS.OTHERS IN THE"x "SERIES INVOLVE LENGTH,AREA,VOLUME AND" "A COMPILATION FOR KITCHEN USE. ::8:"HOW THE PROGRAM OPERATES" 8:"------------------------" 1:"THE FIRST PAGE LISHER0 P:ADAM OSBORNE ASSOC.INC.,BERKLEY,CA.e U:PREPARED BY MAX J.NAREFF,SAN FRANCISCO,CA.1979} d14:"INTRODUCTION" i14:"-------------" n6:"THIS PROGRAM IS ONE OF A SERIES FOR" s"THE CONVERSION,TO AND FROM THE METRIC" x"SYSTEM.T" -:*UNIT CONVERSIONS..800-END*< 2:*ACKNOWLEDGEMENT..*e 7:SOME OF THE PROGRAMMING TECHNIQUES <:USED HAVE BEEN ADAPTED & MODIFIED A:FROM A PROGRAM IN "SOME COMMON F:BASIC PROGRAMS"BY POOLE & BORCHERS,1978 K:PERMISSION FOR USE BY PUBW:**TABLE OF CONTENTS**; :*INTRODUCTION..100-190*[:*INDEX OF UNITS..190-220*:*INDEX COMMAND DRIVE..245-300*:*TEMP.U.S.-METRIC..300-345*:*TEMP.METRIC-U.S..345-390*#:*WEIGHT UNITS..400-590* (:*PROGRAM DRIVE..600-700*     ES" d#8208':4:I;" MILLILITERS=";R;" PINTS(LIQ)"A'820nB':4:I;" MILLILITERS=";R;" QUARTS(LIQ)"wL'820ATS(LIQ)"b8208:4:I;" LITERS=";R;" PINTS(DRY)"A820i@:4:I;" LITERS=";R;" QUARTS(LIQ)"rJ820r:4:I;" LITERS=";R;" QUARTS(DRY)"|820(#:4:I;" LITERS=";R;" GALLONS(LIQ)"2#820Z#:4:I;" MILLILITERS=";R;" FLUID OUNC;" CUBIC CENTIMETERS=";R;" QUARTS(LIQ)"0820c:2:I;" CUBIC CENTIMETERS=";R;" QUARTS(DRY)"l820p:4:I;" CUBIC CENTIMETERS=";R;" GALLONS"z820:2:I;" CUBIC CENTIMETERS=";R;" FLUID OUNCES"820X:4:I;" LITERS=";R;" PINBIC INCHES" 820> :4:I;" CUBIC METERS=";R;" BUSHELS"G 820u :4:I;" CUBIC METERS=";R" GALLONS(LIQ)"~ 820:2:I;" CUBIC CENTIMETERS=";R;" PINTS(LIQ)"820:2:I;" CUBIC CENTIMETERS=";R;" PINTS(DRY)"820':2:I8200::4:I;" PINTS(LIQ)=";R;" MILLILITERS"9D820fl:4:I;" QUARTS(LIQ)=";R;" MILLILITERS"ov820:4:I;" CUBIC METERS=";R;" CUBIC YARDS"820:4:I;" CUBIC METERS=";R;" CUBIC FEET"820 :4:I;" CUBIC METERS=";R;" CUTERS"8205@:4:I;" PINTS(DRY)=";R;" LITERS">J820fr:4:I;" QUARTS(LIQ)=";R;" LITERS"o|820:4:I;" QUARTS(DRY)=";R;" LITERS"820:4:I;" GALLONS=";R;" LITERS"820:4:I;" FLUID OUNCES=";R;" MILLILITERS"I;" QUARTS(LIQ)=";R;" CUBIC CENTIMETERS"1P820dx:2:I;" QUARTS(DRY)=";R;" CUBIC CENTIMETERS"m820:4:I;" GALLONS=";R;" CUBIC CENTIMETERS"820:I;" FLUID OUNCES=";R;"CUBIC CENTIMETERS"820:4:I;" PINTS(LIQ)=";R;" LI AND LOOP SETUP..200-300*C~:4:I;" BUSHELS=";R;" CUBIC METERS"L820v:4:I;" GALLONS=";R;" CUBIC METERS"820:2:I;" PINTS(LIQ)=";R;" CUBIC CENTIMETERS"820:2:I;" PINTS(DRY)=";R;" CUBIC CENTIMETERS"820(F:2:,4050,5000,5050,6000,6050,7000,7050,8000,8050,9000,9050,10000,10050,11000,11050}:4:I;" CUBIC YARDS=";R;" CUBIC METERS"820:4:I;" CUBIC FEET=";R;" CUBIC METERS"$820L:4:I;" CUBIC INCHES=";R;" CUBIC METERS"V820j:*DATA;MIRI777Ā$WI888500Q\:EQUATION FOR CONVERSION OF INPUT VALUE|aRIC(N):C(N)OBTAINED FROM ARRAY LOOPOfN1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850,1900,1950,2000,2050,3000,3050,4000z#?         Π̠ Ү̠  Ƞ# Ӡ ӠȠӠŠӠŠԠӠΠӭӠ"ŠɠΠˠ" ĠƠŠɠ" ӠZӠҠӠԠŠΠĠ Ҡ0:24:"PRESS RETURN";:A$:" 4%:PROGRAM ENDZ*10:"TO END PROGRAM ENTER 777":{/10:"FOR INDEX ENTER 888":4:4);"ENTER THE INDEX NUMBER OF THE DESIRED CONVERSION";9N>N777ĀCN888500H:10:"VALUE TO BE CONVERTED""""(33)LITERS TO QUARTS(LIQ)"C"(34)LITERS TO QUARTS(DRY)"e"(35)LITERS TO GALLONS(LIQ)""(36)MILLILITERS TO FLUID OUNCES""(37)MILLILITERS TO PINTS(LIQ)""(38)MILLILITERS TO QUARTS(LIQ)"5:"SELECT THE INDEX NUMBER"1TO PINTS(DRY)":"(27)CUBIC CENTIMETERS TO QUARTS(LIQ)"f"(28)CUBIC CENTIMETERS TO QUARTS(LIQ)""(29)CUBIC CENTIMETERS TO GALLONS(LIQ)""(30)CUBIC CENTIMETERS TO FLUID OUNCES""(31)LITERS TO PINTS(LIQ)""(32)LITERS TO PINTS(DRY)20)CUBIC METERS TO CUBIC YARDS"Eq"(21)CUBIC METERS TO CUBIC FEET"mv"(22)CUBIC METERS TO CUBIC INCHES"{"(23)CUBIC METERS TO BUSHELS""(24)CUBIC METERS TO GALLONS(LIQ)""(25)CUBIC CENTIMETERS TO PINTS(LIQ)""(26)CUBIC CENTIMETERS 18)PINTS(LIQ)TO MILLILITERS"AX"(19)QUARTS(LIQ)TO MILLILITERS"]3:"IF THE CONVERSION WANTED IS ON THIS PAGE,NOTE ITS NUMBER,BUT WAIT UNTIL IT IS ASKED FOR.PRESS RETURN";:A$:g5:"VOLUME-METRIC TO U.S."h5:"----------------------"l"(ETES"20"(11)FLUID OUNCES TO CUBIC CENTIMETERS"Q5"(12)PINTS(LIQ)TO LITERS"p:"(13)PINTS(DRY)TO LITERS"?"(14)QUARTS(LIQ)TO LITERS"D"(15)QUARTS(DRY)TO LITERS"I"(16)GALLONS(LIQ)TO LITERS"N"(17)FLUID OUNCES TO MILLILITERS"S"(O CUBUC METERS"5"(5)GALLONS(LIQ)TO CUBIC METERS"^"(6)PINTS(LIQ)TO CUBIC CENTIMETERS""(7)PINTS(DRY)TO CUBIC CENTIMETERS"!"(8)QUARTS(LIQ)TO CUBIC CENTIMETES"&"(9)QUARTS(DRY)TO CUBIC CENTIMETERS"+"(10)GALLONS(LIQ)TO CUBIC CENTIMC(N):READS ARRAY=:INDEX(LIST)OF MEASUREMENTS\5:"VOLUME-U.S.TO METRIC"{5:"--------------------""(1)CUBIC YARDS TO CUBIC METERS""(2)CUBIC FEET TO CUBIC METERS""(3)CUBIC INCHES TO CUBIC METERS" "(4)BUSHELS T1,946.36,1101.23X 3785.43,29.574,.4732,.5506,.9463,1.1012,3.785,29.57,473.167,946.33 1.308,35.31,61023,28.38,264.17,.0021,.0018,.0011,.0009,.0003,.0338 2.114,1.182,1.057,.908,.227,.0338,.0021,.0011 :INDEX LOOP FOR DATA ARRAY N138"ON REQUEST.":@ "SUBSEQUENTLY THE USER ENTERS THE VALUE":Z "TO BE CONVERTED.": 10);"PRESS RETURN FOR INDEX";:A$: C(38):DIMS CONVERSION FACTORS :DATA TABLE FOR CONVERSON FACTORS .7645,.0283,.00002,.0353,.0038,473.18,550.6OW THE PROGRAM OPERATES"= 10:"-------------------------"j 5:"AN INDEX OF MEASUREMENTS IS LISTED" :"ON TWO PAGES.THE FIRST IS U.S.-METRIC.": "THE SECOND IS METRIC-U.S..SELECT THE": "DESIRED MEASUREMENT BY NUMBER AND ENTER": :PREPARED BY MAX J.NAREFF,SANFRANCISCO,CA.1979K x:**TABLE OF CONTENTS**h }:*INTRODUCTION..50-200* :*DATA AND LOOP SETUP* :*LIST OF MEASUREMENTS...500-700* :*PROGRAM DRIVE..710-900* :*ANSWER PRINTOUT SETUP..1000-12000* 10:"HETRICS."F U:ONE OF THE PROGRAMMING TECHNIQUES USED HAS BEEN ADAPTED Z:AND MODIFIED FROM THE BOOK"SOME COMMON BASIC PROGRAMS. _:AUTHORED BY POOLE & BORCHERS,1978 d:PERMISSION FOR USE BY PUBLISHER i:ADAM OSBORNE ASSOC.INC.,BERKLEY,CA./ nx212:"INTRODUCTION"2712:"-------------"`<5:"THIS IS ONE OF A SERIES OF PROGRAMS"A"FOR THE CONVERSION TO AND FROM THE"F"METRIC SYSTEM.OTHER PROGRAMS DEAL WITH"K"LENGTH,AREA,WEIGHT,TEMPERATURE AND A" P"COMPILATION,KITCHEN M          "CENTIMETERS ";R;" INCHES"#v832G:I;"MILLIMETERS ";R;" INCHES"P832:PREPARED BY MAX J.NAREFF,SAN FRANCISCO,CA.832&@:I;"KILOMETERS ";R;"FEET"/J832Mr:I;"METERS ";R;" MILES"V|832t:I;"METERS ";R;" YARDS"}832:I;"METERS ";R;" FEET"832:I;"METERS ";R;" INCHES"832::I;"CENTIMETERS ";R;" FEET"D832l:I;832%:I;"FEET ";R;" CENTIMETERS".832MF:I;"INCHES ";R;" METERS"VP832zx:I;"INCHES ";R;" CENTIMETERS"832:I;"INCHES ";R;" MILLIMETERS"832:I;"KILOMETERS ";R;" MILES"832:I;"KILOMETERS ";R;" YARDS"ILES ";R;" KILOMETERS":832:RETURNS FOR ANOTHER INPUTX:I;"MILES ";R;" METERS"a$832L:I;"YARDS ";R;" KILOMETERS"V832~:I;"YARDS ";R;" METERS"832:I;"FEET ";R;" KILOMETERS"832:I;"FEET ";R;" METERS"TO BE CONVERTED";9N&>N777Ā5?N888510;@YC"VALUE TO BE CONVERTED";`HImJI777Ā|KI888510MRIC(N)RN1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850,1900,1950:I;"MTO FEET") "(19)CENTIMETERS TO INCHES"J*"(20)MILLIMETERS TO INCHES"/22:"NOTE NUMBER,BUT FIRST PRESS RETURN.";:A$:4"TO END ENTER 777 AT ANY INPUT LEVEL"6:"TO RETURN TO LIST ENTER 888 AT ANY INPUT"7:"ENTER LIST NUMBER OF UNIT !"(10)INCHES TO MILLIMETERS"@"(11)KILOMETERS TO MILES"_"(12)KILOMETERS TO YARDS"}"(13)KILOMETERS TO FEET""(14)METERS TO MILES""(15)METERS TO YARDS""(16)METERS TO FEET" "(17)METERS TO INCHES""(18)CENTIMETERS  "(1)MILES TO KILOMETERS"9 "(2)MILES TO METERS"W 0"(3)YARDS TO KILOMETERS"q D"(4)YARDS TO METERS" X"(5)FEET TO KILOMETERS" l"(6)FEET TO METERS" "(7)FEET TO CENTIMETERS" "(8)INCHES TO METERS""(9)INCHES TO CENTIMETERS"4,.00031/ .3048,30.48,.0254,2.54,25.4,.6214U 1093.6,3280.8,.0006,1.094,3.281s 39.37,.0328,.3937,.0394 .6214,1093.6,3280.8,6.2E-4,1.094 3.281,39.37,.033,.394,.0394 I120:INDEX OF LOOP C(I):READS DATA THRU LOOP   U"CALLED FOR."7 V"A REQUEST FOR THE VALUE TO BE"a W"CONVERTED WILL THEN APPEAR.PROCEED" Z20:"PRESS ANY KEY FOR THE LIST";:A$: C(20):SETS DIM.FOR NUMBER OF CONVERSIONS :CONVERSION FACTORS TO BE USED 1.609,1609.35,.0091,.914ERSION OF MEASUREMENTS"= ("TO AND FROM THE METRIC SYSTEM."d 210:5:"HOW THE PROGRAM OPERATES" 75:"------------------------" <:"THE NEXT COMMAND WILL PRESENT THE" F"LIST OF AVAILABLE MEASUREMENTS." P"NOTE THE NUMBER AND ENTER WHEN" & LOOP SETUP LINES 0-90,200-270I :LIST OF MEASUREMENTS LINES 510-800k :PROGRAM DRIVE LINES 820-850 :ANSWER PRINTOUT SETUP. 10:"METRICS....LENGTH" 10:"-----------------" "THIS IS ONE OF A SERIES OF PROGRAMS" "FOR THE CONV W:ONE OF THE PROGRAM TECHNIQUES USED HAS BEEN ADAPTED AND MODIFIED FROM THE:BOOK'SOME COMMON BASIC PROGRAMS'.:BY POOLE & BORCHERS.:PERMISSION FOR USE BY PUBLISHER:ADAM OSBORNE & ASSOC.INC.,BERKLEY,CA. :INTROD.& DATA    TES=";R;" SQ.MILES"P480Cx:6:I;" HECTARES=";R;" SQ.MILES"L480x:6:I;" SQ.KILOMETERS=";R;" SQ.MILES"480sENTIMETERS=";R;" SQ.INCHES"$V480L~:6:I;" SQ.METERS=";R;" SQ.FEET 2U480:6:I;" SQ.KILOMETERS=";R;" SQ.FEET"480:6:I;" SQ.METERS=";R;" SQ.YARDS"480:6:I;" SQ.KILOMETERS=";R;" ACRES"480F:6:I;" SQ.ME;R;" SQ.KILOMETERS"\480@:6:I;" SQ.FEET=";R;" METERS"I480w:6:I;" SQ.INCHES=";R;" SQ.CENTIMETERS"480:6:I;" SQ.INCHES=";R;" SQ.MILLIMETERS"480:6:I;" SQ.MILLIMETES=";R;" SQ.INCHES"$480L:6:I;" SQ.CMILES=";R;" SQ.KILOMETERS"#b480J:6:I;" SQ.MILES=";R;" HECTARES"S480{:6:I;" SQ.MILES=";R;" SQ.METERS"480:6:I;" ACRES=";R;" SQ.KILOMETERS"480 :6:I;" SQ.YARDS=";R;" SQ.METEERS"*480R:6:I;" SQ.FEET="I777ĀI8883009:EQUATION FOR COMPUTATIONdRIC(N):C(N) OBTAINED FROM DATA LOOP :DIRECT PROGRAM TO PROPER UNIT FOR PRINTOUTN600,650,700,750,800,850,900,950,1000,1050,1100,1150,1200,1250,1300,1350,1400,1450X:6:I;" SQ.LES"824:5:"NOTE INDEX NUMBER.PRESS RETURN";:A$:[6:"TO END PROGRAM ENTER 777":4:"FOR INDEX ACCESS ENTER 888":3:"ENTER UNIT IDENTIFICATION NUMBER";NN777ĀN888300:10:"VALUE TO BE CONVERTED";I .CENTIMETERS-SQ.INCHES"7m8:"(12)SQ.METERS-SQ.FEET"[r8:"(13)SQ.KILOMETERS-SQ.FEET"|w8:"(14)SQ.METERS-SQ.YARDS"|8:"(15)SQ.KILOMETERS-ACRES"8:"(16)SQ.METERS-SQ.MILES"8:"(17)HECTARES-SQ.MILES"8:"(18)SQ.KILOMETERS-SQ.MI8:"(6)SQ.FEET-SQ.KILOMETERS"<O8:"(7)SQ.FEET-SQ.METERS"bT8:"(8)SQ.INCHES-SQ.CENTIMETERS"Y8:"(9)SQ.INCHES-SQ.MILLIMETERS"^10:"AREA-(METRIC TO U.S.)"_10:"--------------------"c8:"(10)SQ.MILLIMETERS-SQ.INCHES"h8:"(11)SQREADS DATA TABLE6,10:"AREA-(U.S.TO METRIC)"V-10:"--------------------"z18:"(1)SQ.MILES-SQ.KILOMETERS"68:"(2)SQ.MILES-HECTARES";8:"(3)SQ.MILES-SQ.METERS"@8:"(4)ACRES-SQ.KILOMETERS"E8:"(5)SQ.YARDS-SQ.METERS"JR INDEX";:A$:2 C(18):FOR CONVERSION FACTORSO :DATA TABLE FOR FACTORSv 2.59,259,2.6E+6,.0041,.836,9.0E-8 .093,6.45,645.2,.0016,.155,10.76,1.08E+7 1.196,247.1,3.86E-7,.0039,.386 :INDEX LOOP FOR DATA READ N118C(N): "ON REQUEST.YOU WILL THEN BE ASKED FOR"W "THE VALUE TO BE CONVERTED.TO STOP ENTER" "777,AND FOR ACCESS TO THE INDEX ENTER" "888 AT ANY INPUT LEVEL.THE VALUE REQUEST" "IS REPEATED UNLESS DIRECTED OTHERWISE." 24:10:"PRESS RETURN FO"VOLUME,TEMPERATURE AND A COMPILATION"Q "OF MEASUREMENTS FOR KITCHEN USE."z :::8:"HOW THE PROGRAM OPERATES" 8:"------------------------" 2:"ON THE NEXT PAGE IS A LIST OF MEASURE-" "MENTS.NOTE THE INDEX NUMBER AND ENTER"( ,SANFRANCISCO,CA.1979- d14:"INTRODUCTION"E i14:"------------"w n2:"THIS IS ONE OF A SERIES OF PROGRAMS FOR" s"THE CONVERSION OF MEASUREMENTS TO AND" x"FROM THE METRIC SYSTEM.OTHERS IN THE" }"SERIES INVOLVE UNITS OF LENGTH,WEIGHT") OF THE PROGRAMMING TECHNIQUES USED HAS BEEN ADAPTED AND MODIFIED -:FROM A PROGRAM IN "SOME COMMON BASIC PROGRAMS",BY POOLE & BORCHERS,2ED.1978 2:PERMISSION FOR USE BY PUBLISHER 7:ADADM OSBORNE ASSOC.INC.BERKLEY,CA <:PREPARED BY MAX J.NAREFF:***********************=:***TABLE OF CONTENTS***\ :***INTRODUCTION.100-190*:***DATA ENTRY & LOOP.190-230*:***INDEX OF UNITS.300-400*:***COMPUTATION SETUP.415-530*:***ANSWERS*#:***********************@ (:ONE      Ƞ Ԡ)FE()FE()!_z!!M6o !\@K!Y!_ b(#]ŠɠҠҢ٠ΠӭҠӠή׮ΠϬؠ62#]͠ԮԮŧӠӠ5<#]٠Ġ٠Š$H! R!q/? rW!`$R!\!`$R! a!`$H!f!` $R!k!`$H! p!q9u!M6o a(ԠӠŠԠƠ)FE()FGcccz!S(ҠҠ)'ñ !`ñ$!!UVWd!αq.?6?r.?6?r.?6?r!Y$!a(ŠM6LhYm[X4!Lfi jki jki jki jkijkijk 7!ijkijk<9!f ij'k'ij'klm'n'lm'n;!UVWY >!KM6C!UVW H!q/?RrM!`m&nlm&nlm&nlm&nQOi jki jki jki jk$i jk%i jk&QTijkijkijkijk$ijk%ijk&Yfij'k'^UVW,Y cK9f ij'k fij'k"fij'k$UVWY[@UVWXELflm&nlm&nlm&nlm&n lm&n lm&n DJlm&nlm&nlm&nlm&nlm&n7MllmnlmnlmnlmnDlmnlmnlmnlmn!lmn"Dlmn&lmn'lmn#lmn$lmn%Di j kijkijkijkijkmn xlmn lmnlmnlmnlmnlmnlmnlmnlmnVflmnlmn lmn lmn lmnlmn^lmn lmn lmnlm n$lm n%^qi$j%k ij kij k i jki jk ijkijk]ԠҠΩӠԠϠŠΠΠנ٠Ԡf/?rEq qqd q 885dr r%qq`$\, &qq `           q.?r.?r.?r(Y[ Y+a(̬էŠĠ̠)FE(Ӯ)( a(ՠΠ)FE(ӠԠƠŠ)F,*a(ՠΠ)F8drE(ƠҠӮ)Q\]ӠŠӠΠӠĠΠŠƠŠӠӠŠUVW< q6?)>`%a(ԠˡՠĠϠӠҠǡ)`%a(Ġˡ)`%a(٠ġ)?`%a(ՠĠˠԠՠĠ٠ŠŠ)D`%a(ՠ٠ĠŠŠҮՠĠš) qb`@9@%a(Ҡ)Gg`@9@%ql`@9@%a(Ҡ)Gq`@9@%qv`%a(̠Ǡ)w`%\ q`@9@$Y.a(ɧ͠٠ԠՠΧԠӠŠ)a(ŠŠӠ)E@_ P8 r!a(ՠΠŠš@%a(Ҡ)G`@9@%q`@9@%a(Ҡ)G!`@9@%q&`@9@%a(Ҡ)G+`@9@%q0`@9@%a(Ҡ)G5`@9@%q:`@9@%a(Ҡ)G?`@9@%qD`@9@%a(Ҡ)GI`@9@%qN`@9@%a(Ҡ)GS`@9@%qX`@9@%a(Ҡ)G]`@9@%qr@p@*#r@p@*#r@p@*#r`@9@%a(à)G`@9@%q`@9@%a(à)G`@9@%q`@9@%a(à)G`@9@%q`@9@%a(à)G`@9@%q`@9@%a(Ҡ)G`@9@%q`@9@%a(Ҡ)G `@9@%q`@9ĠΠ@Brp@@Brp@@Brp@@Brp@UVW a(Ӡ)FE()]ǤӠŠҧӠ oPR@`;@r$`;@r$a(Ӻ)G$]ˠҠԠŠ?@p@*#p@*#r6q/? r;@p@*#r@q/? rE@p@*#rD]]Ơ٠ӠŠ٠ĠŠҠӠ^`@9@%_*h`@9@$*r`@9@$*|`@9@$*`@9@$*`@9@$*/]ڤӠŠ͠ԠԠHa(ΠՠӠŠԠŠŠҠ̠Ԡàààç),S(נ٠ӠϠՠԠϠ٠)' UVWP a(Š)F'@p()!)]ˠ͠Ӡ͠Ť*q/? r,@p@*#r.q/? r1@Ԯ)La(ҠŬƠŠΠŠӠɠʠ§ĠՠӠ àŧ)GJa(ŠҠ̠ԠàҧŠӠŠҠĠ)GGa(ŠԠάĠ§ӠŠҠԠԠΠŠ)Ga(Ԡή)ΠΠӮ)1a(Ϡ٠ҠҠӠӠҠӮ)GEa(Ҡ٠ҠՠӠ٠ŠҠ̠)GHa(ҠҠԮҬƠŠҠӠԠĠΠŠ)G8a(άŠҠ̠ԠàԠҠ'nS(ĠՠŠӠ)&@o`@9()%_#xa(ҠӪ)Ja(ŠҠ̠Ԡ͠ҠŠƠҠӠ)G#a(ǠŠԭӠՠʮ)a(ՠԠӠŠ)G*a(ԠŠ! (])]٠٠!*]͠٠ +]̭ǠŠŠ,]Ġ٠Š 2N@"r 7N@"r <N@"rdqqi]РӠӠΠϠ0j]ҠӠƠӠŠ     ghgh gh [l mn l mn%  ֱq  ֲq  UVW gֱh  gֲh  ֱqֱ  ֲqֲ Y$ [V UɵVW` UVW  j qdt \~ Y Yɵ [ UиVWYи K M6 Qg\V _ +dededeM[4l mn6l mn 7ֱqֲq8UVW :gֱh <gֲh >ֱqֱ @ֲqֲBYD[l mnl mnijk ijk'gh\\UVWqqK\qqK\q qK\qq\qq\\Y.UеVWYе8f=\V B\4L\V\`UдVWYдjf/?rt\4~\\ede ded ed ed ed efd edededededededeLdedede`f/?rUVWq(q-\Y\4q"q\qqXVWY %q *a(ǮŠŠ)F/c4a(Ԡ)F5c>a(Ǡ)FCcHa(Š)FMcRUзVWYзd"ed#e`88rr$_ Lfdede0deded UVW`.?6@r$Y_T q q `$a()c q_ a(Š)F q qUVW2 q.?6?rYc q_ a()c q Y#Uccqqq M6 d"ed#e qo a(Ơ)GT`-$ qcPa(Ơ)GZT[c\c _UVWdq/?rnq/?r xqbE()FE()G d6?e,~`$^~q[^~`$h~q[h~`$m~q[m~`$n~q[n~`%[q[r`%qa()F}qq["}qqq[d}c`$}q_}D}a(Ҡ٠ӭ)\@a(ӠƠŠŠ˪).}\}`%[q_}}`$,~q[qq[?yc\@qa(ˠէŠԬΧԠտ)c\@]yqqqqqqqa(ŠˠӠĠΠա)c[*}cq/?2r`$d}`%q@}a(Ҡ٭)\@q/?d_ #y`%[q/?2r`.$|y[A|yq/?6r`%[ca()P a(ˠӠԼ)Cyc\@a(ŠˠӠԠ)a()FE(ԠӠŮ)yS(Ҡ)'y`$yy`$}5yc\@a(ˠՠ)ҠҠӠ)'` $2q/? r`$uGu\@a(ŠҠӭ)\@ca()FE()\@a(Ϡġ)uq_ Zu\@a(ŠҠӭ)\@ca()FE()a()a(Ġӡ)qvqqqNq LO_22Pca(ҠԠӠϠĠϠӠˡ)_2xPca(͠ν)_2 0ucPT1ua(̠ƠŠ)cccS(ҠҠԠخ)'`$2 5ucccu`d$KSuS(ű)qq8r[;8c\>a(ΠӠ)FE(Ϡ)qq8r[>q/?r`$>a()[l Nca()a(ˠӪ)ca(ՠŠŠˠ)F6E()a(ˠӠ̠ҠȠĠˮ);NqqqqqӠ)FE(Ϡ)qq8r[A7c\>a(ҠӠӠ)FE(Ϡ)qq8r[>x7c\>a(Ӡ̠Ӡ)FE(Ϡ)qq8r[:7c\>a(ԦԠӠ)FE(Ϡ)qq8r[9@8c\>a(͠Ӡ)FE(ϠԬϠȭ)S/a(׬ҠŠԮ)ca(ƠՠԠŠΠȬՠΡ),&/oS(Ơ٬ŧĠ)'0/_$2`$6`$7`$x7&,3`$7`$@8`$8[B6c\>a(Ġ̠(٬ԠŠΠ̠Ů)W.a(Ϡ٠ˬҠŠҠ)a(ӠՠԠϠٮϠ̬)D/a(ŠҮ)ca(źϠ̠ӠҠ)X/a(ǠӠˠŠŠٮ)a(ϠԠҠa(͠Ӡ)[L'a(էŠΠŠš)ca(ՠάաҠ̠ȠΠĽ)FJ'a(Ҡſ)R@`@:()@:()%Qa(ŠΧĠԠ)Q'Q B'a(ȡ)Q .KM6.o+.a(ŠԠƠӠŠӠϠ)%.aӠ)[Mq/? rqa(ҠӠӠġ)ca(ҠӠӠ)[D q/? rqa(Ӡ̠Ӡš)ca(Ӡ̠Ӡ)[<q/? rqa(ԦԠӠԡ)ca(ԦԠӠ)[?q/? rqa(͠ӠԠΡ)cq_2q/? r[3p`6$X`6$`6$ `6$u`6$`6$wv_21wq/? rqa(ΠӠΠŠԡ)zca(ΠӠ)[LXq/? rqa(Ġ̠Ӡš)ca(Ġ̠hq/?,r`($q`%qq/?r`$2a()ca(էŠΠġ)7ca(ՠԠ)FE(Ϡҡ)\@q_2q/?r`$2Sa(ՠΧԠŮ)\@a(ՠԠ)FE(Πϡ)\@qqqqqqqqq_2Gh`$ca()a(ˠΪ)\@q/?r`$m9jca(ՠԠ)FE(ΠˠΡ)\@q_2=mca(٬ՠԠǠΠŠˠή)\@_2 qq[,q`6d$qq_2Ga()ca(٠٬էŠš)a(էŠΠԠ)FE()a(ҠˠԠš)Q\@2 a(ԠȠ)a()\@\@Rqqqq\p-qq\qq\qq\-qq\qq\qq\4$`6d$`$Bq8r_2Bqd_2tq/? rq[.`$q qq[#q6E(Ρ)a(ՠΧԠנӠՠŠ)5a(Π)\@_2# q/?r`$h`d$ \y# q`'$'`6'$ N6\tq\p\tq\p\tq\p6\tq\p\tq\p\tE()\@V_-*~a(٠Ġ˽)F6\@_-GS(Ҡ)'`$P`6$4`6$xP_@UVWY[:qqca(ҠנˠŽ)F_ Z4ca(ՠ͡էŠ٠)FӠŮ) ?\@_FXPa()a(Ԫ)ca(ȠΠĠ)F\@cP a(ӠĪ)$a(Π̠)FH(ԦԠ)F$a(Ӡ)FH(͠)F$a(Ӡ̠)FH(Π)FL`$~#Qca(ȠΠ˽)F`$:a(ˠŽ)FS(נ٠ӿ)'`$+`6$+_+qqq_ U0`$:a(ˠŽ)FS(נ٠ӿ)'`$5`6$5_5qqq_ %:ca(ԠŠԠqq_ T`$:a(ˠŽ)FS(נ٠)'`$`6$_qqq_ U`$:a(ˠŽ)FS(נ٠ӿ)'`$!`6$!_!qqq_ U&Ž)FS(נ٠ӿ)'`$`6$Ka(ΠŬԠՠΧԠΠԠ)a(ӠƠԠˡ)_qqq_ U`$:a(ˠŽ)FS(נ٠ӿ)'`$ `6$ _ qǠ)c"SPa(̠Ơ)c/TPa(ϠΠԠӠ)_Kdq/? r[;S(Ƞˠ)'`$`$`$=`$`$&`$0a(٠άš)_A`$:a(ˠPM6a(Ƞ)oPa(Ľ)FM6|_F2_*FM6oHKS(ҠΠ)'`$`$`$`$0uN`$ "PPa(٠Ҡ̠)$QcPa(Π)c&RPa(ɳo Pa(̠)o Pa(Ľ)FM6|B-oa@oPboa@oPboa@oP3.boa@oPbo a@o Pb/o a@o Pb30o a()@1oή̠)@p(Ӡ)@p(Ӡ̠)@p(ԦԠ)&#@p(͠)@p(Π)(d"e d#e#*UVW Xo8rM6dYE+M6oPa()oM6doPa(Ž)FM6|S,qM6 KM6 q N@"r4N@"rC@"rC@"rC@"rC@"rC@"rKo Pa(ˠԠŪ)oa(Ө٠ҠΩ)R@`@9()$.9\dq\dq\dq\dq\dq\dq KM6:@p(          ARRAY OF PRIMES.)2 *FACTORS OR PRIMESF< *BY PAUL NORRIS 1/4/80]F * (415) 752-7926ĺPR(I),:XX1X0I4000$<700: BACK TO MENUW ********************* PROGRAM IS CAPABLE OF WORKING WITH ANY NUMBER LESS THAN ONE BILLION. APPLESOFT WILL ONLY PRINT NINE DIGITS.( PROGRAM USES A PREVIOUSLY COMPUTED STORED FUL OF PRIMES. I14000100?PR(I)TESTJI100:I4000LJ1J1R WE HAVE NOW FOUND CORRECT REGION OF ARRAY FROM WHICH TO BEGIN PRINTING PRIMES********************** *NOW PRINT FROM THE ARRAYIJ4000PR(I)TEST140008ATESTPR(I)<BA(A)1150: TEST IS NOT PRIMEgLPR(I)PR(I)TEST1120: TEST IS PRIMEmVx`TEST,j(16384)127Ĺ16368,0:700tLL1:L0700~TESTTEST1:1070***********************X33: INDEX TO ONE SCREENSTING PRIMES? ";TESTVTEST1TEST(TEST)ĺ"POSITIVE INTEGERS ONLY, PLEASE":1010|"TO STOP LISTING, PRESS ANY KEY"TEST370001170: *TAKE STRAIGHT FROM ARRAY, NO NEED TO CALCULATE. $L33: TO GET ONE SCREENFUL OF PRIMES..I#A(A)970: TEST IS NOT PRIMEOPR(I)PR(I)TEST950: TEST IS A PRIMEUtTEST;" IS A PRIME NUMBER"}700TEST;" CAN BE FACTORED BY ";PR(I);" AND ";A:700*********************"AT WHAT NUMBER SHALL I BEGIN LIB"1010">690: ERRONEOUS INPUT@H************************qR"WHAT NUMBER SHALL I TEST FOR PRIMALITY? "y\:f:TESTpTEST1TEST(TEST)850zI14000ATESTPR(I)TESTPR(I)950: TEST IS ALREADY IN THE ARRAY OF PRIMES:8# "CHOOSE EITHER A) OR B)+ :a "A) TEST A GIVEN NUMBER TO SEE IF IT IS A PRIME"g  "B) LIST PRIMES BEGINNING AT A GIVEN" "NUMBER"  "TO EXIT PROGRAM, PRESS 'Q' A$ :8 A$"Q"Ā *A$"A"8504A$"TO MEMORY" ;:I @"TRANSFER FROM DISK TO MEMORY TAKES ABOUT 2 MIN."W XPR(4000)n bD$"": CONTROL D lD$;"OPEN PRIMES 4000" vD$;"READ PRIMES 4000" I14000 PR(I)  D$;"CLOSE PRIMES 4000" ************************ ERS LESS THAN 37000, BUT STILL"A "REASONABLE UP TO A BILLION"G "PRESS SPACE BAR TO CONTINUE, ESCAPE KEY TO EXIT PROGRAM" A$ A$(27)Ā :8 ""THE PROGRAM WILL NOW TRANSFER A" ,"PREVIOUSLY COMPUTED ARRAY OF PRIMES" 6"S GREATER THAN OR EQUAL"7 "TO THE NUMBER YOU INPUT"= k "THE PROGRAM IS CAPABLE OF HANDLING ANY" "NUMBER LESS THAN ONE BILLION, AT WHICH" "POINT APPLESOFT SWITCHES TO EXPONENTIAL" "NOTATION. EXECUTION IS VERY FAST FOR" "NUMBY TO BEGIN" dA$ n:5F x"THIS PROGRAM OPERATES IN TWO MODES"L } "IN THE FIRST MODE, IT WILL TEST A NUMBER AND GIVE TWO FACTORS OR ELSE STATE THAT THE NUMBER IS A PRIME" "IN THE SECOND MODE, IT WILL LIST THE" "NEXT 33 PRIME^ _ *PROGRAM TO LIST PRIMES STARTING AT A GIVEN NUMBER OR TEST A GIVEN NUMBER FOR PRIMALITY{ *PAUL NORRIS 11/14/7916298,0: TURN OFF HIGH-RES(:8212)"FACTORS OR PRIMES"<:F12)"BY PAUL NORRIS"P21 Z"PRESS ANY KE                                       ժժժծ~paaya~|?@@@@@U*U*W*W*U*qayC`~@pC@s @ @`\*U?CU*Uc ~@  pX@ @ p89`p`+0p@(U*U*UzW.UxD~y<@@mx@xA8< <F9<@@*U@תժժ@@@ p@P*`px@p@@ @x@ @@@U*U*ujU*U*U`xsx?@@@i @0@`L@@Ъվժժ`C@c@!@@0@ժժժpa[~|?@` @ @@o@ժծպժxva1pC@~@x`C@s ` @@@oL*U?@T*UpsGcp@0 H\ X0@8|Gp@@ 0@(U*_*U.u?U>xgFA|?`/>@@G(@@A|0 F8 `@*U@ݪժժ`@@@@0 @@@*|~@s|}@ƪՀЪՀp `` @<@@@}*U*ujU*+U`say@s~?@@O(@@@X@@P*U*}+U*U*U`vp~ pp@0 @`2@ժժժxaOC|?@p @@`80@ժժxAsa`gy@(pxp@s8 @@8(UP P*p^ac~ @;@``  h @`g}6; 0 @ U*+}/U>Uzl @`@`|0@@8@@s@0108f<8@@(U@ߪժժ `x`@ @@@*`NL@ԪՊԪՂ8x3@ @@@@}*U*U*W*U.xsay@s@?@n8@@@p@@P*Uj]/U*U*U`|@Pa@`@@@"@ժժժպae|?@0 0@@pO@0`@ժժժppa@o_s@<^x@s 0 @@vP *` .@@<p < `@`l` @ U*.W*U*U*>X?`p>@@@?`? @810x|x64|@(U@ߪժժ00@c @  @@*?xApA@ԪժժՊ ^ @`@@ @@@@u+U*WjW*Uz~say@s?_a?@80@ @@`@@T*UjU.U*U*U`x @ '@@@"@ժժժժa}x?@ `q@`x0@@p@ժժߪpa@{#@Bx@`O`@@P*``[8@``  @@X@`@`U/W~W*U*U*fCO:m9@0~@@@#`c@1p 8 @@@ U@߫ݪժժ`0@n @ @@*@@ծժժժs@``@0@@U+UjUj]+U*Osay@s|?@8 @s0@`@@T*U*W*U*U*U``pC@L@@ @"@ժժժՃ}?H`?@@3P@@@0`@|@~|@ժժծypa@_O?@@?@@@P*8x0@@ `@@8@p@@@w{U*(U*U @{3`@8`@@#@7?p  80 `@@@߮ݪժժՀ``@0?d| @@*Up@ժժժ 8p1@ 0`x@@U+UjUj]*U*{ayAs|?@~~@s @ @@T*U*w*U*U*U``@0N@@`"@ժժժߺՃ~g?L?@,@@9P@@`@ 0ppxp<sxg@ժժժծ{pa1@[CA?~@@@@P* 0 p@`@@ `|@@@@0V*U.G U*U ||"@  @p@  @` >18pxp\7xx@@@ЪծժժՀ `@A`@pG!@@*U@תժժ `@ x0@ U*UjUj]*U*}{ayAs|?@@?&@s? @ @@T*U*wjU*U*U`|@`K@``0f@" " " " """""""""!!! ! ! ! ! !!!!!!!!!   Pò*********************** ** DONATED TO ** APPLE PI USER'S GROUP ** P.O.BOX 17467 ** DENVER-COLORADO 80217 ** *****************************  :6"BLOAD WORLD OF APPLE PI,A$4000"FPAUSE125R(1)7` 16302,0#0,0279,0279,1910,1910,0:1,1278,1278,1901,1901,1(PAUSE<:F10:8:"APPLE PI - EDUCATION DISK 7"KPAUSE1500:P"CATALOG""""