NSSE12  REMARKS  * CODE @ ETOANIS O  RHDUCML Y  PFWYGB c  JKQXZV m  12345 w  67890  PUNCT  CIPHERS  WORDS  MESSAGES  INSTRUCT  WRITE  FILTRREM FILTER  22 ' MSE CODE PRACTICE SYSTEM < THE PRINCIPLE PROGRAM IN THIS SYSTEM IS NAMED "CODE". 6 THE OTHER PROGRAM "WRITE" IS USED AUGMENT THE ,( PRACTICE MATERIAL AINED IN THE S. 92 THERE IS ALSO A OF INSTRUCTIS NAMED "INSTRUCT". :< BECAUSE OF THIS, THIS DISK MUST BE USED DRIVE #1. F 9P THE PROGRAM GIVES THE OPTI OF GENERATING THE MSE :Z CODE SEQUENCES FROM THE KEYBOARD, ROM SEQUENCES, /d MATERIAL FROM A SELECTED THE DISK. n 5x THIS PROGRAM USES THE TECHNIQUE OF ING A SPACE 5 OCCUPIED IGINALLY BY A "REM" STATEMENT AT THE : BEGINNING OF THE PROGRAM WITH MACHINE CODE. THE CODE 7 IS GENERATED FROM STATEMENTS WITH MATCHING CODE  PERM RELOI. etters." , "Typing a % will terminate. ",T$ \ 0 T$""  \ T$1,1)"%" \  = "There are ten files on the disk. The first six files " < "contain practice letters and words made up from the " ? "letters which make the name of the file plus all of the" ; "letters used before. The file named PUNCT contains " @ "practice using punctuation marks. The file named CIPHERS" < "contains all letters, numbers and punctuation marks " = "aranged in random sequences of five letters. The file" >& "WORDS contains a lot of words and sentances. The file " @0 "called MESSAGES contains some possible messages that one" : "might hear on the air. " %D " FILE NAMES " ?N \" ETOANIS RHDUCML PFWYGB JKQXZV 12345 " ?X " 67890 PUNCT CIPHERS WORDS MESSAGES" +b "Input the file name you want. ",F9$ l #1,F9$ v 1)0   #1,A$  \ " ", \ A$ \  ? "Typing a % will terminate a RETURN will get more out of" ) "the file and a R will Repeat ",R$ ( R$"" v \ R$1,1)"R"  ' R$1,1)"%"  \ #1 \  #1 \ D  D71 1000 \  CA$)  T1 C  " ",  PA$T))32  P58 P0  ALP) \     13), \   K0 7 %* VA10K))10A10K1))) 4 V0 f > V H,R,\ *H DE5,16584) \ S1 E \ \ p *R DE5,49352) \ S1 E \ \ p \ S1 E5 \ \ z f S1 E2 \ \ z p z 9 3,0,121121,0,0,0,0,122221,212212,212212,0,0,221122 8 211112,212121,12112,22222,22221,22211,22111,21111 8 11111,11112,11122,11222,12222,111222,121212,0,0,0 8 112211,0,21,1112,1212,112,1,1211,122,1111,11,2221 6 212,1121,22,12,222,1221,2122,121,111,2,211,2111  221,2112,2212,1122  #1,"INSTRUCT"  #1,A$ \ A$  1)0 \  klnmlllnjl,nl nnwl//l';0A!F"!F!"F!"F""F!F!!!F E"" E""E"!E"E!EE E E" E" E"FF"F!BDD CAD CDB"!D! C!D"BB" C!D!"DCC A!C!D"C!D"D"DlP-NEAT TOTE TOOT NONE TEAT TINT ETON SEATSIN AA  DTOANIS u ElBl`Cl#DERB Al CAB ETOANIS ONE0ANT NIT TOT NET TIE ETA TIN TOE SON SIN-SIT SET ASS SEA INTO TENT TOME ANON NINE-NEAT TOTE TOOT NONE TEAT TINT ETON SEAT-EASE SENT TAINT STINT EATEN STONE TOAST"TEASE SNOOT SENSE SIN NO ONE0IT SENSES TASTE NONE I$nDEBFBA #DE % " 3 "VIETNAM ","HANOI " 3 "AFGHANISTAN ","KABUL " 3 "BANGLADESH ","DACCA " 3$ "BHUTAN ","THIMPHU " F. "BURMA ","RANGOON " 38 "INDIA ","NEW DELHI " 3B "MALDIVES ","MALE` " 3L "NEPAL ","KATMANDU " 3V "PAKISTAN ","ISLAMABAD " 3F "CEYLON $ ","COLOMBO " 3j "AUSTRALIA ","CANBERRA " 3t "FIJI ","SUVA " 3~ "NAURU ","YAREN " 3 "NEW ZEALAND ","WELLINGTON " 3 "NEW GUINEA $","PORT MORESBY " 3 "TONGA ","NUKU'ALOFA " 3 "WESTERN SAMOA ","APIA " 3 "ALGERIA ","ALGIERS " 3 "ANGOLA ","LUANDA " 3F"BENIN ","PORTO-NOVO " 3 "BOTSWANA ","GABORONE " 3 "BURUNDI ","BUJUMBURA " 3 "CAMEROON ","YAOUNDE` " 3 "CAPE VERDE ","PRAIA " 3 F"CENTRAL AFRICAN EMP.","BANGUI " 3 "CHAD ","NDJAMENA " 3  "COMORO ISLANDS ","MORONI " 3 "CONGO ","BRAZZAVILLE " 3 "DJIBOUTI ","DJIBOUTI " 3( FEGYPT ","CAIRO " 32 "EQUATORIAL GUINEA ","MALABO " 3< "ETHIOPIA ","ADDIS ABABA " 3F "GABON ","LIBREVILLE " 3P "GAMBIA ","BANJUL " 3Z "FHANA ","ACCRA " 3d "GUINEA ","CONARY " 3n "GUINEA-BISSAU ","BISSAU " 3x "IVORY COAST ","ABIDJAN " 3 "KENYA ","NAIROBI " 3 "LFSOTHO / ","MASERU " 3 "LIBERIA ","MONROVIA " 3 "LIBYA ","TRIPOLI " 3 "MADAGASCAR ","TANANARIVE " 3 "MALAWI ","LILONGWE " 3 "MAFI ","BAMAO " 3 "MAURITANIA ","NOUACHOTT " 3 "MAURITIUS ","PORT LOUIS " 3 "MOROCCO ","RABAT-SALE` " 3 "MOZAMBIQUE ","MAPUTO " 3 "NAMFBIA ","WINDHOE " 3 "NIGER ","NIAMEY " 3 "NIGERIA ","LAGOS " 3 "RHODESIA ","SALISBURY " 3 "RWANDA ","KIGALI " 3" "SAO FOME ","SAO TOME` " 3, "SENEGAL ","DAKAR " 36 "SEYCHELLES ","VICTORIA " 3@ "SIERRA LEONE ","FREETOWN " 3J "SOMALIA ","MOGADISHU " 3T "REP. FF SOUTH AFRICA","CAPE TOWN " 3^ "SUDAN ","KHARTOUM " 3h "SWAZILAND ","MBABANE " 3r "TANZANIA ","DAR ES SALAAM " 3| "TOGO ","LOME` " 3 "TRANSKFI ","UMTATA " 3 "TUNISIA ","TUNIS " 3 "UGANDA ","KAMPALA " 3 "UPPER VOLTA ","OUAGADOUGOU " 3 "ZAIRE ","KINSHASA " 3 "ZAMBIA F ","LUSAKA "   ,"+1=",T1)\TT1  ; "ON THE FOLLOWING SCALE HOW WOULD YOU RATE YOURSELF?"  . 10),"HAPPY: 3 2 1 0 -1 -2F-3 :UNHAPvY"  A * A0 20),T,"+",A,"=",TA)   TTA\ ( $ 20),T,"+",A,"=",TA)\ TTA ( \  2 8< 10),"YOUR LIFE EXPECTANCY IS <<<",T,">>> YEARS!" F P Q1 6\ \   X1 59\"*",\ X\\F # Q1 4\\\"HIT RETURN",A$  12),"*"\\ CLEAR EEN 0"SORRY, YOU MUST BE AT LEAST 20 YEARS OLD."  =tF[r&ApWo2l'Ja!Q8=f&wV͘Po8=køuiTC`rOF``2{vPe@_+Ig.l|1{TO~iI nD] p5brrX@ tbͿћm;aȵM%4 lPn<@D׀P F2a WVo@ki<"A Afo detareneg ti ekil uoy dluow ro )D(ksid ,)K(draobyekؽmKߧה2rZ[NߞTlD  U> '0<$+\ q{K߿cjHw^^y|$o_JYmxP ( !4h6 HB@?Rz2 yY}D+Cu Ӑ彳W(JTMOpğmWoLAFJ2A@W'g~t7pn ^~4#}d,R!Hя-`2 @2jVH"bjfcO4 |{)/S fs^U$Xu˝K_$8ǥ+) T Kr3!Jt! IJT#ϕ)^DY+JZ;t6 T$Ӊ0݅5 [4:O_vM !gA8r//1j%??Ֆ2|@il_KϹϮ*-/83T{GŰ{POwc=s>_4 bU*B$P+}yPPXM lEA2bEwa&drb>`怚%Dܵܗ*~PUӾh"i-ߣiN BJ55j7 R6(+dy\;$۴?hO?BFiŃ85( ce(LDk C$YT[^ ?*ňea)NRF@Þ!H 0 Mk kSމ=O|ߋ{)ywL@Їg*ƀR#!&# *q-hzz:[*dz}Hb/Ѝo#rVC3zAW"@BI2k3>YluilmS@ ׍鏯ߦ{߿qWw$B I`*>XBM b HGUCݲgm+,޽A埙%DC@`Sd`H9phAD4P.B';.e`ɕܝ(矼:tݦs|5h ~aIaV2H()lR +p2Rj"γ7qO1 7^7u[rImvbPHd$ d#brӳ YP?o2Tӷ,|s]Z"R_InW~GYxb1!6~oҳ<1⏠u)${eFV_h)XPeV*NJ ܅x3< 3+5: .eiovOaf%gF,~MEuIa\ˌYꀪ.9F0‹P6tM\F`W,G|OdwhhϹkn i%Pق y:icq 9B 3@?F@ݐHP"n5: cW:b-#R9YdP$QJ:(gOR(cF vZJR3=:ϐl!/7F[p_?6?/YlGX ,eeET "L,DE+8OpZV^~x5e y 8Z"*@9 i dI`5!xXl}e4}07wROmRlC<OBhZf޹r׏r4uQG۔4U2_  r22@H#+hW pf, /'fvctuu2=ئSQ e!Kr$g([`cᩁ~&eChB f]󶤣hQ\\G{OE 114W+]&|`ҫ XOZE{p!׀H~_& 7gzqSn!OOomNQ̱v AS1/ JzrhC_?3VMdZ|)==&LL]݃\rBtVBq` TZs'*oL]O$ ?9E=N$n]/J `CǪ9brNJ-͟hi]_ o[}1|<>z='*||~cbH`[zS):*INoH<|_ yͭdy<$ X׮xȐD`4J"1@r낢syJD K|ROliL;dHvPÐ߈w(标P@|Ѣ )ɠ]Ywlo&)f's}aT d~b(=  \0XNOk^n _I oH?+HvW&j@JA)4P! '\s67gonWsR0(R[B&BAЪ;{EG.OC ?_e{}}j_}c_uTՙsn紮nǙ7G\.аdRcQՊ<w[z*yVko޿_!}ΘcY;w(h$Ķ#\Dss=O{{뜃}}!S DcB8D8LcBm:o0"rKf~վh^&mތ:T$i Y6xk- ,8>6WovHiZ^xLld;0 8!YE6Y #9mS'o4Dw1n0Z"_ђ~:xCހ}c%@C_g،o3^0tgkkI? XdHh}:K~B.xBdgCOc)f?ߣgEJ'HԐlJ9_|bEɜJ_]{X>2Sjwheް_b?EUo'c;۷13 =y j}I-ay~,20|@J=Pc}tp7(rp $I7RmBB /UeLt@YJň2|QJvqx\0b;y -9@L\dU[ ,\_ۅk7֋F2~S02pbY&)`7RaN44}'>zhV**OO1+X x)I@!Е22W}?Y^>O4SߡwjSLHǀH@`` 11pw wK;3g;w/(-Y "D) ܝ dca5 g&۝wC.[N8lgxu \ "Would you like the code practice to come from the " < "keyboard(K), disk(D) or would you like it generated " * "randomly(R)? (K,D or R) ? ",I$ - I$1,1)"" \ I$1,1)"K" 6 ." I$1,1)"R" | \ I$1,1)"D" ,  =6 \"Anything typed after the question mark will be sent" ;@ "out in Morse Code. Any undefined character will be " @J "treated like a space. Lowercase letters are not defined." =T "If the first character input is a % then the practice" =^ "will be terminated and then you can reset speed, etc." h \ A$ \ A$"" h )r A$1,1)"%" \  \ h @| "Input the characters to be used in the random sequence. "  L$  \ " ",  W1 20  T0)L$)1) 0 Z$W,W)L$T,T) \ Z$W,W), \ \ \ A$Z$   @ "Typing a RETURN will generate a new sequence of letters." , "Typing a % will terminate. ",T$ \ 0 T$""  \ T$1,1)"%" \  = "There are ten files on the disk. The first six files " < "contain practice letters and words made up from the " ? "letters which make the name of the file plus all of the" ; "letters used before. The file named PUNCT contains " @ "practice using punctuation marks. The file named CIPHERS" < "contains all letters, numbers and punctuation marks " > "arranged in random sequences of five letters. The file" >& "WORDS contains a lot of words and sentances. The file " @0 "called MESSAGES contains some possible messages that one" : "might hear on the air. " %D " FILE NAMES " ?N \" ETOANIS RHDUCML PFWYGB JKQXZV 12345 " ?X " 67890 PUNCT CIPHERS WORDS MESSAGES" +b "Input the file name you want. ",F9$ l #1,F9$ v 1)0   #1,A$  \ " ", \ A$ \  ? "Typing a % will terminate a RETURN will get more out of" ) "the file and a R will Repeat ",R$ ( R$"" v \ R$1,1)"R"  ' R$1,1)"%"  \ #1 \  #1 \ D  D71 1000 \  CA$)  T1 C  " ",  PA$T))32  P58 P0  ALP) \     13), \   K0 7 %* VA10K))10A10K1))) 4 V0 f > V H,R,\ *H DE5,16584) \ S1 E \ \ p *R DE5,49352) \ S1 E \ \ p \ S1 E5 \ \ z f S1 E2 \ \ z p z 9 3,0,121121,0,0,0,0,122221,212212,212212,0,0,221122 8 211112,212121,12112,22222,22221,22211,22111,21111 8 11111,11112,11122,11222,12222,111222,121212,0,0,0 8 112211,0,21,1112,1212,112,1,1211,122,1111,11,2221 6 212,1121,22,12,222,1221,2122,121,111,2,211,2111  221,2112,2212,1122  #1,"INSTRUCT"  #1,A$ \ A$  1)0 \  E E E E E E E E E ET T T T T T T T T TO O O O O O O O O OA A A A A A A A A AN N N N N N N N N NI I I I I I I I I I S S S S S S S S S S.AN NO ON IT TO SO IS OAT TAN TEN ONE0ANT NIT TOT NET TIE ETA TIN TOE SON SIN-SIT SET ASS SEA INTO TENT TOME ANON NINE-NEAT TOTE TOOT NONE TEAT TINT ETON SEAT-EASE SENT TAINT STINT EATEN STONE TOAST"TEASE SNOOT SENSE SIN NO ONE0IT SENSES TASTE NONE IS SENT SNOOTS EAT OATS0NO SEASON IS SET IT IS NOT TEA ETA IS A NOTE$NO SENSE IN EASE STAINS TINT A SEA.ASSES NET NO SENSE ETO ANI SIN AOT ESISONNIE SAT ON A TIN SEATIT TOASTS IN TEN TASTESAN OASIS IS NEAT EASE"TIE A NINETEEN TON STONE TO A TENTTOAST IS EATEN AT ETONSTAINS TAINT ONES NEATNESSTOTE A STONE TO TENNESSEE*SAOT NITN SOOE IATE ANOE SINES TOEIS*NAOTE ONTIS ESTAO ENTOIS TOOSEI OENTST &ANSENO NANOSE ETO ANI SIN AOT ESI  R R R R R R R R R R R H H H H H H H H H H HD D D D D D D D D D DU U U U U U U U U U UC C C C C C C C C C CM M M M M M M M M M ML L L L L L L L L L L&RAT RUN RUT RICE RUSH RASH RADIO&HAD HUM HAM HAND HELM HULL HOUSE&URN USE NUT UHIT UNDO URAL UNDER&DAD DAM DON DUDE DICE DOLT DUNCE%COT COD CAM CHIT CORD CURT CHORD&MAN MAD MET MOSS MICE MODE MODEL&LAD LET LID LEAD LORE LUST LURID(REDUCE RADIUS RANCID RADICAL MARCONI)HALTER HUDDLE HORROR HUMIDOR ULTIMATE(ULSTER UNLACE URCHIN UNARMED STATION)DOLLAR DISCUS DANCER DUCTILE RESISTOR(COLLAR CRUISE CUDDLE COLLIER ANTENNA'MUDDLE MURMUR MOTHER MIRACLE AERIAL%LEADER LANCER LUSTRE LECTURE COIL P P P P P P P P P PF F F F F F F F F F FW W W W W W W W W W WY Y Y Y Y Y Y Y Y Y Y G G G G G G G G G G G B B B B B B B B B B B2POW PEP PIG PAGE PYRE PITY POPPY PUFFY FOP2FRY FIG FROG FLOW FILE FABLE FOGGY WEB WON2WHY WHIG WOLF WING WHIFF WEIGH YIP YOU YEG2YOUL YELP YAWN YOUNG YACHT GOB GYP GIN GLO-GASP GRUB GABLE GLOBE BOY BEG BIT BANG.BEEF BLOB BADGE BEFOG PACIFY PEBBLE PHLEGM/PEPPERY AFFLICT FEEBLE FIDGET FLINTY FAIRWAY/BABYLON WAFFLE WEAPON WINDOW WAYWARD CABBAGE'DEPOSITORY ELECTROTYPE FISHWIFE !PYGMY GUYWIRE TAPE$ALPHABET PRACTICE NESSAGE"SUPERHET GEAR SIGNAL#CAPACITY FLYWHEEL FILTER&CRYSTAL PURPOSE STABILITY&FACTOR BEATNOTE AMPLIFIEREPIGRAMS SAY MUCH IN FEW WORDS'WHAT IS WORTH DOING IS WORTH DOING WELLFORTUNE BEFRIENDS THE BOLD'ILL BLOWS THE WIND WHICH PROFITS NOBODYWINGS FLY FAST'WHIFFS OF FOG PACIFY FEEBLE AFFLICTIONSBOYS YELP WHEN BIT BY DOGS#A PUFFY BLIMP IS A PEPPERY FISHWIFE)TETRODE AMPLIFIERS RELAY POWERFUL SIGNALS#RUBBER WHEELS AFFECT RIDING COMFORTPUT YOUR FLYWHEEL IN GEAR#GASP AND YOWL BUT BUY DEFENSE BONDSWHOOP IT UP BEFORE DYINGLIGHT GLOBES GLOW WITH POWERTIGHTEN CAP BEFORE TIPPING'THE BADGE OF COURAGE IS WON BY PLUGGINGALWAYS COPY BEHIND IF POSSIBLEBYCYCLE RIDING CAUSES PUFFING©ING BY TYPEWRITER IS GOOD PRACTICE&PYGMY GUYWIRES PUT STRENGTH INTO POLESHFM ODW AUY NCG IMB FHEP PRTF YUOW WDAY BMNG 1JET JUNK JAVA JERK JACOB JAPAN JELLY1ASK KINK KEEP KALE KAHAKI KNACK KNIVE0QUO QUIT AQUA QUIZ QUICK QUAIL QUEEN-JIM OXEN AXLE XRAY EXACT AXION OXIDE+ZOO ZERO JAZZ ZING AZURE CRAZY ZEBRA0IVY VINE HAVE VOID VIVID AVAIL EVERY+JACKAL JERKIN JOVIAL JONQUIL ZENITH-KIBITZ KINGLY KAISER KICKOFF EMBEZZLE.QUARTZ QUAVER QUORUM ACQUIRE PULVERIZE(PICKAX EXCUSE XERXES EXPLAIN GRAZE+ZEPHYR ZIGZAG ZOUNDS BUZZARD OXYGEN%JACOB ASKED THE KING FOR QUARTZ OXIDEQUICK AXONS AVOID UNJUST TAXESQUIZZES QUICKEN THE REFLEXES#JOVIAL KIBITZERS ARE VERY OBNOXIOUSJAPANS JUNK QUITS QUICKLYEVERY QUEEN KEEPS JONQUILS#HEXAGONAL KNUCKLES HAVE CRAZY KINKS"XERXES EXPLAINED THE QUICK VICTORYVELVET QUAIL GRAZE IN ZOOS%KINGLY BUZZARDS QUAVER IN AZURE SKIESJPR SNQV QYLGV ZKJFBGFKH JAHK XWOFZ RHKPVODQW ZGVM KPCJ QLFPDQXYM YXUT BZLNX XMZNJUZGM ZWDO IVKQW YKWZBGBVC KBLI YJCTV HSIXJAQPX JFRE EQSXR HSIXJA %1 1 1 1 1 1 1 1 1 1%2 2 2 2 2 2 2 2 2 2%3 3 3 3 3 3 3 3 3 3%4 4 4 4 4 4 4 4 4 4%5 5 5 5 5 5 5 5 5 5215 3242 34125 244521431 2151 42153 352142234 4531 33214 332312551 5324 24115 545134422 1543 53425 154322342 3154 14523 453152351 2231 21435 514324AE1 CP2X 3Z4BJ 123VJQ3T5 14B3 XYZ51 W3X5AM42O F3G4 3KP14 435PT1N43 EAR5 RY311 AW1JOZ2MC 424V 14V4U 2UV4JBHT5 D1J3 L3VJ4 XU4PY1425 412V 21JJ2 5SH32W $. . . . . . . .$, , , , , , , ,%? ? ? ? ? ? ? ? . . . ? ? ? ,. ? ,.? ?,. ,?.WHAT? THE END. EDA. E.S.T.10,000.00 , , . ? OKICQ 24680 CKTOG AXBTRAEIOU 13579 CJRNO YOUMKMVHVD APLKM NDHBH JTIONJEHDY MCNCB PAOKU MDHNHZMNZB NDBGY KDIOE CVQAR03759 CWXCK DKAKX WQYFZCEMID JXEFY EFMEY 49285MNLFG YOUMK VOIUM 12709UEYTA QYEUR QWZXN MNOPANASTF CFGIL CADXA TTLOROMIGW HSPCQ XGLDT 80701JNABD JBCYD PGZUN CTILL97201 EFXNK LCKQH OCYAAKQXAZ LARDO MQECV BEXZBMAIDP 76321 70365 OHWIMRKMOZ EKJCD DJHNG HHHGJTHQVI HMOUS TVCPT CPTKOZLJBI 84707 KDKNG FHFUXALCRK DLZIJ PHVTX HIMADVTMEE HELKF 47382 MRFXELDOSK 12310 BAYQT QNBAV20184 VNFBH DIEUY JCUWHNTVMG WOHZR IPAQZ FNZQJCPNZI JBOAH GYEVZ ARJZU40367 OBRDK PVFKQ RBEFP25894 JXHGQ 98015 MBUDF83746 LKDOP WEQFQ 17863PGMAE 10273 DXNZE 98234DXAQN 11902 06143 CPTOK KDIEY MDIDH 09165 QZASU -THE EXPLORER WAS FROZEN IN HIS BIG KAYAK JUSTAFTER MAKING QUEER DISCOVERIES..WHENEVER THE BIG BLACK FOX JUMPED THE SQUIRRELGAZED VERY SUSPICIOUSLY.*MY HELP SQUEEZED IN AND JOINED THE WEAVERSAGAIN BEFORE SIX O'CLOCK.(WE DISLIKE TO EXCHANGE JOB LOTS OF SIZESVARYING FROM A QUARTER UP. CQ CQ CQ CQ CQ DE WB6EJB WB6EJB"CQ CQ CQ CQ CQ DE WB6EJB WB6EJB K 2 1This program was created to help people to learn .the Morse Code. It is fairly self explanatory,1there are only a few things that you must know or%have before you can use this program.  1. A parallel port$ 2. The port address in decimal1 3. An 8 ohm speaker with a 150 ohm resistor. in series connected across data bit 0, 4. The origin of your BASIC in decimal 2NOTE: Data bit 7 goes high at the beginning of the0tone and low at the end, so it could be used to /key an external oscillator or transmitter. You 1will have to come up with the necessary interface/between the TTL level of the parallel port and your external device.% A$50) 0 "INPUT THE FILE NAME TO BE ADDED TO. ",N$  #1,N$ ( 1)1 < 2 #1, A$ \A$\ ( 2< \ "INPUT WHAT YOU WANT ADDED TO THE FILE. " 'A "A % WILL TERMINATE THIS PROGRAM" F A$ P A$"%" d Z #1,A$ \ F d #1 \ ]2&ANSENO NANOSE ETO ANI SIN AOT ESITST ESITE ETOANIS TONE TO A TENTTOAST IS EATEN AT ETONSTAINS TAINT ONES NEATNESSTOTE A STONE TO TENNESSEE*SAOT NITN SOOE IATE AN % " ------FILTER-----" 3 " BY RUSSELL KINCAID AND FREDERICK SHIRLEY " 3 " SANDERS ASSCOCIATES, NASHUA NEW HAMPSHIRE" % " FROM DECUS PROGRAM LIBRARY." 1 "DOCUMENTATION BY PETER ROGERS, FROM THE " 1 "DECUS WRITE-UP. CONVERTED FROM DEC BASIC" - "TO NORTH STAR BASIC BY PETER ROGERS," " " DATA MANAGEMENT SYSTEMS"  X1 5\" "\ 4 " THE FILTERS DESIGNED BY THIS PROGRAM ARE " 3 "RELATIVELY INEXSPENSIVE. THEY MAY BE BUILT" 3 "FROM EITHER DISCRETE COMPONENTS OR HYBRID "  "MICRO-CIRCUITS."  " "\" "\" " . " AS HYBRID MICROCIRCUIT DESIGNS THEY" * "POSSESS THE FOLLOWING ADVANTAGES:"  " " 7 "* SINCE THEY USE NO L'S, THE RESULTING CIRCUIT" 6 " IS SMALLER, MORE STABLE, AND HAS A HIGHER Q" 6 " AT LOW FREQUENCIES THAN PASSIVE LC NETWORKS" 4 "* THE C'S CAN BE CHOSEN AS STANDARD VALUES." 5 " EVEN THOUGH THE R'S ARE NON-STANDARD, THEY" ) " ARE RELATIVELY EASY TO OBTAIN." 7 "* THE FREQUENCY RESPONSE CAN BE ADJUSTED USING"  " ONLY THE R'S." 6 "* USES A MINIMUM OF R'S AND C'S TO SYNTHESIZE"  " A TWO-POLE FUNCTION" 6 "* REQUIRES ONLY ONE UNITY GAIN ACTIVE ELEMENT"  " PER SECTION" 3 "* HAS LOW SENSITIVITY TO PARAMETER CHANGES"  " LO-PASS FILTER "  " "\" "\" " 9! " LOW AND HIGH PASS SECTIONS USED IN THE FILTERS" 8" "ARE SHOWN BELOW. TWO CAPACITORS, TWO RESISTORS " <# "AND A UNITY GAIN ACTIVE ELEMENT SERVE TO SYNTHESIZE" >$ "A COMPLEX PAIR OF POLES IN THE FILTER CHARACTERISTIC." % " "\" "\" " & "LO PASS FILTER " +' " *" -( " ***" /) " *****" <* " E IN-----/\/\/--!--/\/\/---!----*******---!--E OUT" 5+ " R1 ! R2 ! ***** !" 5, " C1 C2 *** !" 5- " ! ! * !" 5. " ! GND !" 5/ " !-------------------------!" 0 " " 1 " " 2 " " 3 " " 4 " HI PASS FILTER " +5 " *" -6 " ***" /7 " *****" <8 " E IN-----!(-----!----!(----!----*******---!--E OUT" 59 " C1 ! C2 ! ***** !" 5: " / / *** !" 5; " \ \ * !" 5< " R1 / R2 / !" 5= " \ \ !" 5> " ! ! !" 5? " ! GND !" 5@ " !-------------------------!" A P1 3\" "\ 9B " BELOW ARE TWO POSIBBLE ACTIVE ELEMENTS FOR USE" C "IN SUCH FILTERS." D " " $E " ! +V" !F " !" !G " !" +I " / COLLECTOR" J " E IN--------------Q1" )K " \ EMITTER" !L " !" 5M " !-------------> E OUT" !N " /" #O " \ R" !P " /" !Q " !" !R " !" %S " ! -V" .T " Q1-2N2222 BETA-100 EMITTER FOLLOWER" 9U " Q1-2N999 BETA-4000 DARLINGTON EMITTER FOLLOWER" !V " ! +V" W " !" X " !" !Y " * ! 7" Z " ***" [ " *****" 2\ " > E IN---------*******--------> E OUT " %] " 3 ***** 6" ^ " ***" !_ " * ! 4" ` " !" a " !" !b " ! -V" ;c " IC-LM102 BETA-100,000 INTEGRATED CIRCUIT FOLLOWER" d " "\" " 6e " FOLLOWING ARE THE VARIABLES USED THROUGHOUT" f "THE PROGRAM." .g "T TYPE OF FILTER(1=LO,2=HI)" $h "N NUMBER OF POLES" )i "F CUT FREQUENCY IN KHZ" .j "R CHEBYSHEV PASSBAND RIPPLE" "k "Q0 2 PI CONSTANT" 0l "Q1 LN GAIN CONVERSION CONSTANT" 8m "I ITERATION INDEX FOR 2 POLE SECTIONS" &n "F(37) FREQUENCY VALUES " o "G(37) GAIN VALUES" 4p "C(25) STANDARD CAPACITANCE PER DECADE" 3q "X1 MINOR CHEBYSHEV ELLIPSE RADIUS" 3r "X2 MAJOR ' ' ' ' ' ' " -s "R CHEBYSHEV RIPPLE FACTOR " 5t "D INTERMEDIATE CHEBYSHEV PARAMETER" /u "P ROOT LOCATION PHASE ANGLE " 4v "S REAL COMPONENT OF POLE LOCATION" 9w "W IMAGINARY COMPONENT OF POLE LOCATION" 7x "A SQUARED MAGNITUDE OF POLE LOCATION" .y "R0 NOMINAL RESISTANCE LEVEL " %z "R1,R2,C1,C2 COMPONENT VALUES" 7{ "M RATIO OF C1/C2 IN LO PASS SECTIONS" E| "K6 NUMBER OF STANDARD CAPACITANCE VALUES PER DECADE" +} "K,N1,I1 ITERATION LOOP INDICES" ,~ "N2,K7 NORMALIZATION CONSTANTS" > "G,I2 INTERMEDIATE VALUES USED IN GRAPH ROUTINE" `A@A`A@A!@,B$J<@  Xe_)DJ#  E6106\E3103 0 "HI OR LO PASS ?",A$\ A$"LO" T1 T2 / 1"NUMBER OF POLES ?",N\" CUT FREQ ? ",F 2 1"PASSBAND RIPPLE ? (=0 FOR BUTTERWORTH )",R # " MAX C IN NANOFARADS ? ",C   RC ACTIVE FILTER PROGRAM 1( 0 SHOULD BE\ 0 T,N,F,R,C WHERE T IS E 2 >< F IS THE CUT FREQ IN KHZ,R IS THE PASSB RIPPLE IN DB0 3F BUTTERWTH), C IS THE MAX C IN NANOFARADS P Z d Q06.28318531 n Q12.30258509 x F37),G37),C25)       < "I" ITERATI LOOP CALCULATIS EACH 2 POLE SECTI  I1 N2  R0 "   BUTTERWTH CIRCLE X11 X21  ^   CHEBYSHEV ELLIPSE " E10R10)1) , D1E1EE1))1N) 6 X1D1D)2 @ X2D1D)2 J T ROOT PAIR LOCATIS ^ PQ04Q04N2I1) h SX1P) r WX2P) | ASSWW  R0SQ0FCE3  C1C  T1    LOWPASS C2 UE  I1   6,1,1.5,2.2,3.3,4.7,6.8  K6  K1 K6  CK)  K  N2C)Q1)  N11 99  KK6 1 1  C2CK)10N2N1)  MCC2 & MASS b 0 K : N1 D N LOWPASS R1,R2 UES !X R1R0MA11ASSM)) !b R2R0MA11ASSM)) l  v  HIGHPASS C2,R1,R2 UES  C2C  R1R0  R2R0ASS    I1  < " COMPONENT VALUES (C IN NANOFARADS, R IN KILOHMS):"  " "  " SECTION",I & " ","C1=",C1," ","R1=",R1) & " ","C2=",C2," ","R2=",R2)   FREQ GAIN UES GRAPH   K0 36  I1 f   T1 > * FK)F251K) 4 H > FK)F2537K) H K72FK))Q1) "R FK)FK)10K7.5)10K7 \ GK)0 f T1  Cp G1R1C1R2C2Q0FK))2E6)2R1R2)C2Q0FK)E3)2 z  B G11R1C1R2C2Q0FK))2E6)22R2C1Q0FK)E3)2  GK)GK)10G)Q1  K  I      HEADING SUBRINE  R0   " ","BUTTERWORTH ",    " ","CHEBYSHEV ",   T1 *  "LOWPASS RC FILTER"  4 * "HIGHPASS RC FILTER" 4 " " > " " H " " R " NUMBER OF POLES =",N \ " " f R0  p " 3-DB FREQ (KHZ) =",F z   " CUT FREQ (KHZ) =",F  " " # " PASSBAND RIPPLE (DB) =",R  " "  " "    GRAPH SUBRINE   " "\" "\" "     I41  R0   I42 * " "," INSERTION GAIN (DB)" F "-15 -12 -9 -6 -3 0 +3" F " + - - - - + - - - - + - - - - + - - - - + - - - - + - - - - +"  I0 36 I4 " GGI).3.5)51 , I10 20 6 I2G3I1 @ I20  J I22  T I22 r ^ " *", h  r I21  | " * ",    "* ",    I6)I6  $ I17)10)I17)10   I110)I110  $ I13)10)I13)10   " ",    " +",    " + ",    "+ ",  I1  FI) & R0 : 0 " " : I D 55),"FREQUENCY (KHZ)" N X 8] THIS IS AN FROM 2 LOOPS PATCH NTH STAR BASIC b X l  R R R R R R R R R R R H H H H H H H H H H HD D D D D D D D D D DU U U U U U U U U U UC C C C C C C C C C CM M M M M M M M M M ML L L L L L L L L L L&RAT RUN RUT RICE RUSH RASH RADIO&HAD HUM HAM HAND HELM HULL HOUSE&URN USE NUT UHIT UNDO URAL UNDER&DAD DAM DON DUDE DICE DOLT DUNCE%COT COD CAM CHIT CORD CURT CHORD&MAN MAD MET MOSS MICE MODE MODEL&LAD LET LID LEAD LORE LUST LURID(REDUCE RADIUS RANCID RADICAL MARCONI)HALTER HUDDLE HORROR HUMIDOR ULTIMATE(ULSTER UNLACE URCHIN UNARMED STATION)DOLLAR DISCUS DANCER DUCTILE RESISTOR(COLLAR CRUISE CUDDLE COLLIER ANTENNA'MUDDLE MURMUR MOTHER MIRACLE AERIAL%LEADER LANCER LUSTRE LECTURE COILSTAINS TAINT ONES NEATNESSTOTE A STONE TO TENNESSEE*SAOT NITN SOOE IATE ANOE SINES TOEIS*NAOTE ONTIS ESTAO ENTOIS TOOSEI OENTST &ANSENO NANOSE ETO ANI SIN AOT ESI