dJETSPEED !n: 7200:6… L !BOOTER!JET128!J.TEXT!STATES!J.MENU h  `  | L# ꄀ t` ( > B H J Q U MY ] a ( > B TH HJ DQ U Y ] a ( > B hH *J Q @U tY ] a ( H $J U kY   h `Q*R S `!  P `  L SAVING !BOOTER!JET128!J.TEXT!STATES!J.MENU 150: FEBRUARY 1991 A.K.QUINN 0,0,79,24:6,1:5,1:7122:6,1:5,2K$:(212)64: 1405382:%:"":0,0,79,24,1:(5079)177 W1:W0rP1$" ":P2$" RNTR":G1:XX1:,30,0,"#"V$" IEW ":E$" DIT ":A$:580:7020: DATA ONLY2,0,1,"/ (80)80" OADING !JET128":Չ40D"!JET128"::%l(" !JET128 INSTALLED.":80,802"OADING !J.TEXT ....<"!J.TEXT2,0,P1]d5363:NN$"!J.TEXT":Q(60)256(59):(215)128"80 COLUMNS ONLY"::՞5338:7010:%n7010: LINE # OFF:SYS7016:REM ONx6,1:5,2:150: FEB 1991 A.K.QUINN808,112: 0,0,79,24:6,1:5,1:7122:6,1:5,2K$:(212)64808,110:: 1405382:%:""@0,0,79,24,1:(5079)177 W1:W0xP1$" ":P2$" RNTR":G1:XX1:,30,0,""V$" IEW ":E$" DIT ":A$:580:7020: DATA ONLY8,0,1,"":L(NN$):L%(16L)2:,30,0,H$ :,40,0,">u,L%,0,(18)NN$:,60,0," EY=NFO ":,49,0,">"0,0,0,24:"(5100)245S0:,22,0,P1$: S1:,23,0," TEP "ZZ0 ,17,0," AST ":,17,0," LOW W0,32,0,P1$:,32,0,P2$,1A(4877)44,51,0," ABLE ",1:,51,0,P1$q(4997)80,42,0,V$,1:,42,0,E$,1: VIEW0,2,77,24:"NTER QUOTE SIGN TO READ TEXT" ** END _ CLEAR SCREEN FIND _";X$:X$"**""";:7050: "T(211)(212)(213)) ,T8G0G1:5338:T6:400:VIEWO 6T8G1G0:7000:T6:400:EDIT @T9XX0XX1:7016:0,0,79,24:,30,0,"#":210:# JT9XX1XX0:7010:0,0,79,24:,30,0,"":210:$!TT11530:,2,3,"SAVING... "NN$:(NN$)::(NN$):7050:'!^T12LL0LL1:5171:210:LABELG!hT12LL1LL0:5140:210g!rT13S1S0:5355:210:!|T13S0S1:5363:210!:X$"LIST"0,0,79,24,1:5302: 1:!T6 ZZ0ZZ1:5319:210:&!T6 ZZ1ZZ0:160:%"T7 W0W1:5192:5338:210:PRNTR@"T7 W1W0:5160:210:PRNTR $":X$"*P" 4,4:4,(27)"N"(6)(27)"R"(6)(27)"E":4:210:SET ER":X$"*1" 5150:210:SGLSPC":X$"*2" 5186:210:DBLSPC":X$"<<"5378:210:MOVE DIS#:X$">>"5374:210:MOVE0#(212)64130:100: SCREENN#(X$,1)"_"(147):210#X$"DI"51748:0,4,79,24,1:::"GOTO110":#4864:::280 LEAVE BLANK LINE#O$(143):"HIS FILE IS "NN$;O$" AS IN LINE";Q;" IT N TO LIST"Q#$"O RENAME, TYPE NEW NAME IN LINE 100b$&" ES (Y) MEANS OLD "NN$" WILL BE REPLACED BY A NEW "NN$$0"ESAVE "NN$;:" N";A$:(A$,1)"Y"580$:0,0,79,24,1:51748::"LIST";Q:5302:842,19:843,13:208,2:$D(147)::+%" MODE . OLD DOWN SPACE BAR OR HIT ETURN. f%" %"  KEY ABORTS SEARCH AT ANY TIME. ݒ%"  IT TO GET A LINE AT A TIME. ݒ&"  KEY DISPLAYS MORE INFORMATION ݒR&"  ONLY WHEN YOU ARE AT THE _ PROMPT. ݒ&"  &"  ET.EXT '$" HIS IS A CONVENIENT WAY TO DESCRIBE ET128 BY USING ET128.L'." HE PROGRAM CALLED ET128 IS MACHINE LANGUAGE FOR SPEED AND'8" CONVENIENCE, SINCE IT MODIFIES ITSELF-- WHICH SAVES A LOT'B" OF OKE'S (THEY SLOW THINGS UP.) HE MENU IN !. (THIS%(L" PRG) IS FULL-FLEDGED, TO ALLOW YOU TO MOVE EASILY FROM THEn(V" IEW MODE (FOR READING) TO DIT (FOR CHANGING, DELETING, OR(`" RENUMBERING), TO ABEL MODE. IGHT NOW, YOU'RE SET BY 6(j" FOR TEP MODE, SO THAT YOU WILL SEE ONE LINE AT A TIME, ASH)t" CONTROLLED BY REPEATING KEY (SPACE BAR, CURSOR). O, AS)~" YOU SEE, IT NOW WORKS LIKE A WORD PROCESSOR. LSO, YOU CAN)" MAKE IT GO TO THE PRINTER BY HITTING 8. ITTING 8 AGAIN *" WILL TURN THE PRINTER OFF (TOGGLING). M*"  IT THE 2 KEY TO SHOW LINE NUMBERS. *"  2 KEY WILL TOGGLE LINE NUMBERS OR . *" F YOU GO TO DIT MODE (1), AND HIT THE QUOTE KEY, YOU'LL+" GET OF THESE LINES, AND YOU WILL SEE WHY: EVERY LINEf+" BEGINS WITH A QUOTE, SO THAT CAN TYPE IN UPPER/LOWER CASE+" AND EVEN USE QUOTES WITHIN LINES . HE SPACE BAR WILL+" ALSO GET EVERY LINE.--AS LONG AS IT HAS AT LEAST ONE SPACE. =," O--DIT MODE SHOWS LINES THAT CAN BE EDITED ON SCREEN.," IEW MODE SHOWS LINE NUMBERS THE LINE: YOU CANNOT," EDIT THESE LINES, BUT THESE LINE NUMBERS DON'T GO TO THE-" PRINTER. ET MAKES THE ADJUSTMENT FOR YOU. OW-- &- "  ABELS n-" OST ADDRESS LABELS ARE 1-INCH, WHICH MEANS THEY WILL HOLD-" 6 LINES. DDRESSES ARE MOSTLY 3 LINES, MAYBE 4. OU WILL-(" HAVE TO ENSURE THAT YOUR ATA LINES HAVE THE RIGHT NUMBERA.2" OF COMMAS. N LABEL MODE, ET MAKES A CARRIAGE RETURN AT.<" EACH COMMA. NLY YOU KNOW HOW MANY LINES YOU WANT TO BE.F" PRINTED OUT, SO RULE OF THUMB IS-- LABEL LINES MUST HAVE/P" A TOTAL OF 4 COMMAS. ..: THE NEXT TWO LINES ARE SET UPX/Z" SO THAT YOUR PRINTER WILL SKIP THE RIGHT NUMBER OF LINES/d" TO BRING THE NEXT LABEL INTO PLACE ON YOUR PRINTER: /x" ..UINN,206 RIDLEMERE VE,NTERLAKEN 07712,,0" RANK . ONES,249 OSEMITE R,EW ORK 10028,, V0"  (F 4 COMMAS DON'T WORK, TRY 5.) 0" EST TO KEEP A SEPARATE PROGRAM SET UP FOR LABELS. OU0" PROBABLY DO THAT, ANYWAY. O EXPERIMENT, HIT THE KEY,*1" AND THEN THE KEY. T THE MENU, HIT 5 TO ENTER ET'Ss1" ABEL MODE. IT THE QUOTE KEY TO GET ALL THE LINES. T WILL1" LOOK ODD, BECAUSE EVERY COMMA WILL START A NEW LINE ON THE2" SCREEN-- EXCEPT THE TWO LABEL LINES SHOULD LOOK JUST RIGHT.J2" OU MIGHT TRY THAT NOW. HEN 6 AGAIN AND GET BACK HERE.2" (5 AGAIN TURNS LABELS OFF) 2"  MODE (WITH ON): TYPING A QUOTE OR A SPACE WILL3" DISPLAY ALL THE ATA LINES HAVING THOSE TWO CHARACTERS.[3" UT ALSO, YOU'LL SEE SOME LINE NUMBERS WITH NO TEXT AT ALL,3" WHICH MEANS THOSE LINES HAVE A QUOTE A SPACE. HIS IS A3" VERY USEFUL FUNCTION: YOU CAN FIND THE LINE NUMBER OF ANY74"" LINE WITH NO TEXT. OU CAN THEN USE THAT LINE TO WRITE ANY4," INFORMATION YOU WISH. ALSO USE COLONS TO KEEP LINES OPEN. 46" HE STRING "LABEL" IS FOUND IN SEVERAL LINES IN PROGRAM.5@" F YOU TYPED IN "LABEL" YOU WOULD SEE SEVERAL LINE NUMBERS,a5J" FOLLOWED BY AND A QUOTE AND SOME TEXT CONTAINING "LABEL".5T" OU COULD THEN EDIT THE LINE RIGHT ON THE SCREEN.5^"  O READ ONLY TEXT LINES, HIT 1; TOP LINE WILL SHOW . 86r"  : 8 TURNS THE PRINTER ON OR OFF (TOGGLES). BELL6|" SIGNAL REMINDS YOU THAT THE PRINTER WILL ECHO WHAT YOU SEE.6" O YOU CAN PRINT OUT WHAT YOU ARE NOW READING. SE IT ONLY7" IN ABEL OR IEW MODES. HEN FIRST TRYING OUT A NEW DATABASE\7" USING ET, GO INTO TEP AND RINTER MODES. HE PRINTER WILL7" PRINT A LINE, AND WAIT. HE KEY STOPS PRINTING. 7" [OST PRINTERS WILL PRINT OUT REVERSED TEXT.] &8" : N TEP MODE, HITTING WILL -SPACE THEl8" LINES . OLDING DOWN A CURSOR KEY OR8" THE SPACE BAR WILL -SPACE THE PRINTER. 8" OTE THE PRINTER MUST BE TURNED ON ELECTRICALLY. 8 MERELY<9" TELLS IT TO "LISTEN IN" ON WHAT'S GOING TO THE SCREEN AND9" "ECHO" OR REPEAT IT. ET ASSUMES THAT YOUR PRINTER IS DEVICE9" NUMBER 4. F IT'S SOME OTHER NUMBER, ET WON'T SEND TO IT, SO:" THE OTHER NUMBER: 5077,5 (OR WHATEVER.) -:"  : x:" :" OUR ETBASE CAN HAVE DATA OF MANY KINDS: FAMILY NAMES, ALL;&" KINDS OF NUMBERS (CREDIT CARDS, LICENSES,ETC.), BUSINESSN;0" DATA. UTTING A DIFFERENT CHARACTER FOR EACH WILL LET YOU;:" CALL THEM UP TOGETHER, NO MATTER WHERE THEY MAY BE IN 128;D" MEMORY. XAMPLES: ;X" AMILY: ] [ ' # \ <> ETC.=" O GOOD: * ' ? , . (OR ANYTHING THAT MIGHT APPEAR IN YOUR OTHER1>" LINES. ARENTHESES ARE TOO COMMON, AS IN THIS LINE!):>" b>"  : k>" >" INCE ET128 IN LABEL MODE WILL CAUSE A CARRIAGE RETURN WHENEVER?" IT FINDS A COMMA, IT CAN HANDLE SUCH THINGS AS POSTCARDS ANDJ? " OLLODEX CARDS WHEN THEY COME IN TRACTOR-FEED FORM. HE ONLY?" THING THE PROGRAMER NEEDS TO DO IS TO FIGURE HOW MANY TOTAL? " COMMAS A LINE MUST HAVE TO PRINT A LINE FOR EACH COMMA, AND TO@*" MOVE THE PRINTER TO PRINT THE NEXT CARD.@4" e@>" OST PRINTERS ARE SET TO PRINT 6 LINES TO THE INCH, AS WE SAW@H" ABOVE. HAVE PROGRAMS THAT PRINT OUT INDEX CARDS THAT COME IN@R" 3X5 SIZE. HAT MEANS ONE CARD CAN HOLD (3X6) 18 LINES. 2-LINEEA\" MARGIN TOP AND BOTTOM LEAVES 14 USABLE LINES. OR MY SET-UP,Af" ADD ENOUGH COMMAS TO MAKE 12 IN ALL. OUR SET-UP MAY NEEDAp" MORE, OR LESS. RIAL AND ERROR WILL SOLVE THE PROBLEM. B"  AST ODE: ET SEARCHES ONLY LINES IN YOUR PROGRAM. iB" UT, IT DISPLAYS ONLY THE DATA YOU ASK FOR. YPING THE LETTERB" FINDS ALL LINES WITH A CAPITAL . ANY LINES TO SEARCH WILLB" SLOW THINGS UP. MORE SPECIFIC SEARCH, SUCH AS"URPHY"WILLFC" ZIP ALONG VERY FAST. (T TAKES LONGER TO PRINT THE LINE ON THEC" SCREEN THAN IT TAKES ET TO FIND IT!) EFORE LEAVING THISC" PROGRAM, ENTER "URPH" AT THE PROMPT. OU'LL SEE TWO LINES, AT!D" LEAST. EMEMBER, COUNT! (O DO COMMAS, PERIODS,ETC.) mD" OTE 4 ON THE MENU. HIS KEY WORKS SO THAT YOU CAN EASILY SAVED" THE PROGRAM  UNDER PRESENT NAME. (OU MAY HAVE MADE CHANGES.E" F YOU TYPE "N" LINE 100 SHOWS UP.) OU CAN THEN CHANGE THEKE" NAME. ET.EXT WILL REMAIN ON DISK. HE NEW FILE WILL THEN BEE" SAVED. F YOU ANSWER "Y" BECAUSE YOU HAVE MADE A CHANGE, THENE " THE OLD FILE WILL BE SCRATCHED, AND THE NEW WILL REPLACE IT. (F " [HE KEY WILL SLOW UP PRINTING TO THE SCREEN, BUTcF " IT HAS NO EFFECT ON OUTPUT TO THE PRINTER. ] F$ " HEN PRINTER IS AND YOU'RE NOT SURE OF WHAT YOU'RE LOOKINGF. " FOR, IT'S BEST TO GO INTO TEP MODE: YOU CAN STOP ANY TIME.:G8 " OR ANOTHER SAMPLE OF HOW ET CAN BE USED, TRY RUNNINGGB " !. SE !. AS A HEADER FOR NEW PROGRAMS. UST ADDGL " YOUR OWN LINES, STARTING WITH LINE 1000. HV " RH` " .EVIN UINN,206 RIDLEMERE VE,NTERLAKEN 07712D   ` K ` t`-ȥ. # #L{ # # #; #<ii #Ƚw PL  L #. L` ٥HL6L` #Ƀ љ   g    ` L tŪL{Ll  `ɍ , ҍ``ꩮ :`.` L #LD  `O  O `ΙLL`-2-..3`P``L`Lp`[`[`0`  DI D"* HELP   .` `p@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@n ]A   ,       (:J),  (1234),    (#)] ]I    DATA        , J       .] ]N.B. J    J,            ] ]J. E J       ,           "J."] ]P     V  E  L P  S. F    .] ] F1    V   E  . F6   S O  O. ] ] *I P   S  ON,  RETURN    -   .* ] ]N    . S F    ON  . T,   ] ]       ,     OFF. T      ] ]    . T  /      ' '. ] ]p@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@n] ]]։ĉ3́ӔӐВݠ͏ݠȅӃ]] ]]ń1Ӂ4ݠ5ݠ6ݠ7ݠ8 ESC >>,<<ݠHELP٠]] ]m@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}] ] *1     -  *2    -  ] m@@n        (#)   (N) p@@} J ] U M       R/L ȉȅ ] E m@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@} T 128 JETSPEED!  ``=`CDCC.D3-2` $    ` L ͠ ͙UL` ͠U L`L 1405382:%:"":0,0,79,24,1:(5079)177 W1:W0rP1$" ":P2$" RNTR":G1:XX1:,30,0,"#"V$" IEW ":E$" DIT ":A$:580:7020: DATA ONLY2,0,1,"":L(NN$):L%(16L)2:,30,0,H$ :,40,0,">o,L%,0,(18)NN$:,60,0," EY=NFO ":,49,0,">"0,0,0,24:"(5100)245S0:,22,0,P1$: S1:,23,0," TEP "ZZ0 ,17,0," AST ":,17,0," LOW W0,32,0,P1$:,32,0,P2$,1;(4877)44,51,0," ABLE ",1:,51,0,P1$k(4997)80,42,0,V$,1:,42,0,E$,1: VIEW{0,2,77,24" ** END _ CLEAR SCREEN FIND _";X$:X$"**""";:7050:"T(211)(212)(213) ,T8G0G1:5338:T6:400:VIEW) 6T8G1G0:7000:T6:400:EDITc @T9XX0XX1:7016:0,0,79,24:,30,0,"#":210:# JT9XX1XX0:7010:0,0,79,24:,30,0,"":210:$ TT11530:,2,3,"SAVING... "NN$:(NN$)::(NN$):7050:!^T12LL0LL1:5171:210:LABEL!!hT12LL1LL0:5140:210A!rT13S1S0:5355:210:_!|T13S0S1:5363:210!:X$"LIST"0,0,79,24,1:5302: 1:!T6 ZZ0ZZ1:5319:210:&!T6 ZZ1ZZ0:160:%!T7 W0W1:5192:5338:210:PRNTR"T7 W1W0:5160:210Y":X$"*P" 4,4:4,(27)"N"(6)(27)"R"(6)(27)"E":4:210:SET ER{":X$"*1" 5150:210:SGLSPC":X$"*2" 5186:210:DBLSPC":X$"<<"5378:210":X$">>"5374:210"(212)64130:100#(X$,1)"_"(147):210>#X$"DI"51748:0,4,79,24,1:::"GOTO110":b#4864:::280 LEAVE BLANK LINE#O$(143):"HIS FILE IS "NN$;O$" AS IN LINE";Q;" IT N TO LIST"Q#"O RENAME, TYPE NEW NAME IN LINE 100$&" ES (Y) MEANS OLD "NN$" WILL BE REPLACED BY A NEW "NN$L$0"ESAVE "NN$;:" N";A$:(A$,1)"Y"580$:0,0,79,24,1:51748::"LIST";Q:5302:842,19:843,13:208,2:$D(147)::$"ALABAMA,POP 4 MILLION,CAPITAL MONTGOMERY,INCOME $12000 PER CAP$%"ALASKA,POP 525000,CAPITAL JUNEAU,INCOME $18000 PER CAPh%"ARIZONA,POP 3.4 MILLION,CAPITAL PHOENIX,INCOME $14000 PER CAP%"ARKANSAS,POP 2.4 MILLION,CAPITAL LITTLE ROCK,INCOME $11000 PER CAP%"CALIFORNIA,POP 28 MILLION,CAPITAL SACRAMENTO,INCOME $18000 PER CAP>&"COLORADO,POP 3.3 MILLION,CAPITAL DENVER,INCOME $16000 PER CAP&$"CONNECTICUT,POP 3,2 MILLION,CAPITAL HARTFORD,INCOME $21000 PER CAP&."DELAWARE,POP 644000,CAPITAL DOVER,INCOME $16000 PER CAP '8"FLORIDA,POP 12 MILLION,CAPITAL TALLAHASSEE,INCOME $15000 PER CAPN'B"GEORGIA,POP 6 MILLION,CAPITAL ATLANTA,INCOME $14000 PER CAP'L"HAWAII,POP 1 MILLION,CAPITAL HONOLULU,INCOME $15000 PER CAP'V"IDAHO,POP 998000,CAPITAL BOISE,INCOME $12000 PER CAP(`"ILLINOIS,POP 12 MILLION,CAPITAL SPRINGFIELD,INCOME $16000 PER CAP\(j"INDIANA,POP 5.5 MILLION,CAPITAL INDIANAPOLIS,INCOME $14000 PER CAP(t"IOWA,POP 2.9 MILLION,CAPITAL DES MOINES,INCOME $14000 PER CAP(~"KANSAS,POP 2.5 MILLION,CAPITAL TOPEKA,INCOME $15000 PER CAP))"KENTUCKY,POP 3.7 MILLION,CAPITAL FRANKFORT,INCOME $11950 PER CAPs)"LOUISIANA,POP 4.6 MILLION,CAPITAL BATON ROUGE,INCOME $11000 PER CAP)"MAINE.POP 1.2 MILLION,CAPITAL AUGUSTA,INCOME $14000 PER CAP)"MARYLAND,POP4.5 MILLION,CAPITAL ANNAPOLIS,INCOME $17700 PER CAPD*"MASSACHUSETTS,POP 5.9 MILLION,CAPITAL BOSTON,INCOME $18500 PER CAP*"MICHIGAN,POP 9.2 MILLION,CAPITAL LANSING,INCOME $15000 PER CAP*"MINNESOTA,POP 4.3 MILLION,CAPITAL ST.PAUL,INCOME $15800 PER CAP+"MISSISSIPP1,POP 2.6 MILLION,CAPITAL JACKSON,INCOME $10200 PER CAPa+"MISSOURI,POP 5 MILLION,CAPITAL JEFFERSON CITY,INCOME $14500 PER CAP+"MONTANA,POP 80000,CAPITAL HELENA,INCOME $12000 PER CAP+"NEBRASKA,POP 1.6 MILLION,CAPITAL LINCOLN,INCOME $14000 PER CAP(,"NEVADA,POP 1 MILLION,CAPITAL CARSON CITY,INCOME $16000 PER CAPr,"NEW HAMPSHIRE,POP 1.1 MILLION,CAPITAL CONCORD,INCOME $17000 PER CAP, "NEW JERSEY,POP 7.6 MILLION,CAPITAL TRENTON,INCOME $20000 PER CAP-"NEW MEXICO,POP 1.5 MILLION,CAPITAL SANTA FE,INCOME $12000 PER CAPF-"NEW YORK,POP 17.8 MILLION,CAPITAL ALBANY,INCOME $18000 PER CAP-("NORTH CAROLINA,POP 6.4 MILLION,CAPITAL RALEIGH,INCOME $13000 PERCAP-2"NORTH DAKOTA,POP 672000,CAPITAL BISMARCK,INCOME $13000 PER CAP.<"OHIO,POP 10.8 MILLION,CAPITAL COLUMBUS,INCOME $14500 PER CAPc.F"OKLAHOMA,POP 3.2 MILLION,CAPITAL OKLAHOMA CITY,INCOME $12520 PER CAP.P"OREGON,POP 2.7 MILLION,CAPITAL SALEM,INCOME $13800 PER CAP.Z"PENNSYLVANIA,POP 12 MILLION,,CAPITAL HARRISBURG,INCOME $15000 PER CAP=/d"RHODE ISLAND,POP .986 MILLION,CAPITAL PROVIDENCE,INCOME $15300 PER CAP/n"SOUTN CAROLINA,POP 3.4 MILLION,CAPITAL COLUMBIA,INCOME $11800 PER CAP/x"SOUTH DAKOTA,POP .700 MILLION,CAPITAL PIERRE,INCOME $12500 PER CAP0"TENNESSEE,POP 4.8 MILLION,CAPITAL NASHVILLE,INCOME $12700 PER CAP\0"TEXAS,POP 16.7 MILLION,CAPITAL AUSTIN,INCOME $13700 PER CAP0"UTAH,POP 1.7 MILLION,CAPITAL SALT LAKE CITY,INCOME $11200 PER CAP0"VERMONT,POP .548 MILLION,CAPITAL MONTPELIER,INCOME $14000 PER CAP21"VIRGINIA,POP 5.9 MILLION,CAPITAL RICHMOND,INCOME $16000 PER CAPy1"WASHINGTON,POP 4.5 MILLION,CAPITAL OLYMPIA,INCOME $15500 PER CAP1"WEST VIGINIA,POP 1.9 MILLION,CAPITAL CHARLESTON,INCOME $10900 PER CAP 2"WISCONSIN,POP 4.8 MILLION,CAPITAL MADISON,INCOME $14600 PER CAPP2"WYOMING,POP .49 MILLION,CAPITAL CHEYENNE,INCOME $12700 PER CAPWdNN$"!J.MENU":Q(60)256(59):(215)128"80 COLUMNS ONLY"::՞5338:7010:%}n7016: LINE # ON:SYS7010:REM OFFx6,1:5,2:150: FEB 1991 A.K.QUINN808,112: 0,0,79,24:6,1:5,1:7122:6,1:5,2K$:(212)64808,110:: 1405382:%:"":0,0,79,24,1:(5079)177 W1:W0rP1$" ":P2$" RNTR":G1:XX1:,30,0,"#"V$" IEW ":E$" DIT ":A$:580:7020: DATA ONLY2,0,1,"":L(NN$):L%(16L)2:,30,0,H$ :,40,0,">o,L%,0,(18)NN$:,60,0," EY=NFO ":,49,0,">"0,0,0,24:"(5100)245S0:,22,0,P1$: S1:,23,0," TEP "ZZ0 ,17,0," AST ":,17,0," LOW W0,32,0,P1$:,32,0,P2$,1;(4877)44,51,0," ABLE ",1:,51,0,P1$k(4997)80,42,0,V$,1:,42,0,E$,1: VIEW{0,2,77,24" ** END _ CLEAR SCREEN FIND _";X$:X$"**""";:7050:"T(211)(212)(213) ,T8G0G1:5338:T6:400:VIEW) 6T8G1G0:7000:T6:400:EDITc @T9XX0XX1:7016:0,0,79,24:,30,0,"#":210:# JT9XX1XX0:7010:0,0,79,24:,30,0,"":210:$ TT11530:,2,3,"SAVING... "NN$:(NN$)::(NN$):7050:!^T12LL0LL1:5171:210:LABEL!!hT12LL1LL0:5140:210A!rT13S1S0:5355:210:_!|T13S0S1:5363:210!:X$"LIST"0,0,79,24,1:5302: 1:!T6 ZZ0ZZ1:5319:210:&!T6 ZZ1ZZ0:160:%!T7 W0W1:5192:5338:210:PRNTR"T7 W1W0:5160:210Y":X$"*P" 4,4:4,(27)"N"(6)(27)"R"(6)(27)"E":4:210:SET ER{":X$"*1" 5150:210:SGLSPC":X$"*2" 5186:210:DBLSPC":X$"<<"5378:210":X$">>"5374:210"(212)64130:100#(X$,1)"_"(147):210>#X$"DI"51748:0,4,79,24,1:::"GOTO110":b#4864:::280 LEAVE BLANK LINE#O$(143):"HIS FILE IS "NN$;O$" AS IN LINE";Q;" IT N TO LIST"Q#"O RENAME, TYPE NEW NAME IN LINE 100$&" ES (Y) MEANS OLD "NN$" WILL BE REPLACED BY A NEW "NN$L$0"ESAVE "NN$;:" N";A$:(A$,1)"Y"580$:0,0,79,24,1:51748::"LIST";Q:5302:842,19:843,13:208,2:$D(147)::d"STATESDn5363:5171:5338:7016: SYS5192 PTR ON 5160 OFFax STEP LABEL VIEW LINE #" \=END FIND ";X$:X$"\""";:4864::130"ALABAMA,POP 4 MILLION,CAPITAL MONTGOMERY,INCOME $12000 PER CAP"ALASKA,POP 525000,CAPITAL JUNEAU,INCOME $18000 PER CAPa"ARIZONA,POP 3.4 MILLION,CAPITAL PHOENIX,INCOME $14000 PER CAP"ARKANSAS,POP 2.4 MILLION,CAPITAL LITTLE ROCK,INCOME $11000 PER CAP"CALIFORNIA,POP 28 MILLION,CAPITAL SACRAMENTO,INCOME $18000 PER CAP7"COLORADO,POP 3.3 MILLION,CAPITAL DENVER,INCOME $16000 PER CAP$"CONNECTICUT,POP 3.2 MILLION,CAPITAL HARTFORD,INCOME $21000 PER CAP."DELAWARE,POP 644000,CAPITAL DOVER,INCOME $16000 PER CAP8"FLORIDA,POP 12 MILLION,CAPITAL TALLAHASSEE,INCOME $15000 PER CAPGB"GEORGIA,POP 6 MILLION,CAPITAL ATLANTA,INCOME $14000 PER CAPL"HAWAII,POP 1 MILLION,CAPITAL HONOLULU,INCOME $15000 PER CAPV"IDAHO,POP 998000,CAPITAL BOISE,INCOME $12000 PER CAP `"ILLINOIS,POP 12 MILLION,CAPITAL SPRINGFIELD,INCOME $16000 PER CAPU j"INDIANA,POP 5.5 MILLION,CAPITAL INDIANAPOLIS,INCOME $14000 PER CAP t"IOWA,POP 2.9 MILLION,CAPITAL DES MOINES,INCOME $14000 PER CAP ~"KANSAS,POP 2.5 MILLION,CAPITAL TOPEKA,INCOME $15000 PER CAP"!"KENTUCKY,POP 3.7 MILLION,CAPITAL FRANKFORT,INCOME $11950 PER CAPl!"LOUISIANA,POP 4.6 MILLION,CAPITAL BATON ROUGE,INCOME $11000 PER CAP!"MAINE.POP 1.2 MILLION,CAPITAL AUGUSTA,INCOME $14000 PER CAP!"MARYLAND,POP4.5 MILLION,CAPITAL ANNAPOLIS,INCOME $17700 PER CAP=""MASSACHUSETTS,POP 5.9 MILLION,CAPITAL BOSTON,INCOME $18500 PER CAP""MICHIGAN,POP 9.2 MILLION,CAPITAL LANSING,INCOME $15000 PER CAP""MINNESOTA,POP 4.3 MILLION,CAPITAL ST.PAUL,INCOME $15800 PER CAP#"MISSISSIPP1,POP 2.6 MILLION,CAPITAL JACKSON,INCOME $10200 PER CAPZ#"MISSOURI,POP 5 MILLION,CAPITAL JEFFERSON CITY,INCOME $14500 PER CAP#"MONTANA,POP 80000,CAPITAL HELENA,INCOME $12000 PER CAP#"NEBRASKA,POP 1.6 MILLION,CAPITAL LINCOLN,INCOME $14000 PER CAP!$"NEVADA,POP 1 MILLION,CAPITAL CARSON CITY,INCOME $16000 PER CAPk$"NEW HAMPSHIRE,POP 1.1 MILLION,CAPITAL CONCORD,INCOME $17000 PER CAP$ "NEW JERSEY,POP 7.6 MILLION,CAPITAL TRENTON,INCOME $20000 PER CAP$"NEW MEXICO,POP 1.5 MILLION,CAPITAL SANTA FE,INCOME $12000 PER CAP?%"NEW YORK,POP 17.8 MILLION,CAPITAL ALBANY,INCOME $18000 PER CAP%("NORTH CAROLINA,POP 6.4 MILLION,CAPITAL RALEIGH,INCOME $13000 PERCAP%2"NORTH DAKOTA,POP 672000,CAPITAL BISMARCK,INCOME $13000 PER CAP&<"OHIO,POP 10.8 MILLION,CAPITAL COLUMBUS,INCOME $14500 PER CAP\&F"OKLAHOMA,POP 3.2 MILLION,CAPITAL OKLAHOMA CITY,INCOME $12520 PER CAP&P"OREGON,POP 2.7 MILLION,CAPITAL SALEM,INCOME $13800 PER CAP&Z"PENNSYLVANIA,POP 12 MILLION ,CAPITAL HARRISBURG,INCOME $15000 PER CAP6'd"RHODE ISLAND,POP .986 MILLION,CAPITAL PROVIDENCE,INCOME $15300 PER CAP'n"SOUTN CAROLINA,POP 3.4 MILLION,CAPITAL COLUMBIA,INCOME $11800 PER CAP'x"SOUTH DAKOTA,POP .700 MILLION,CAPITAL PIERRE,INCOME $12500 PER CAP("TENNESSEE,POP 4.8 MILLION,CAPITAL NASHVILLE,INCOME $12700 PER CAPU("TEXAS,POP 16.7 MILLION,CAPITAL AUSTIN,INCOME $13700 PER CAP("UTAH,POP 1.7 MILLION,CAPITAL SALT LAKE CITY,INCOME $11200 PER CAP("VERMONT,POP .548 MILLION,CAPITAL MONTPELIER,INCOME $14000 PER CAP+)"VIRGINIA,POP 5.9 MILLION,CAPITAL RICHMOND,INCOME $16000 PER CAPr)"WASHINGTON,POP 4.5 MILLION,CAPITAL OLYMPIA,INCOME $15500 PER CAP)"WEST VIGINIA,POP 1.9 MILLION,CAPITAL CHARLESTON,INCOME $10900 PER CAP*"WISCONSIN,POP 4.8 MILLION,CAPITAL MADISON,INCOME $14600 PER CAPI*"WYOMING,POP .49 MILLION,CAPITAL CHEYENNE,INCOME $12700 PER CAP