2,1,94,1,1000,1000,0,0,79,1,60,22,0,2,1,2,0,2,2,2,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"","","","","@",""
0,97,300
1
0,6,721400.,70,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,446
0,7,500,8,1300,9,5000,10,10000,11,30000,12,33500.,13,36200.,14,101000.,15,112200.,16,116000.,17,121000.,18,126000.,19,131000.,20,136000.,21,141000.,22,146000.,23,151000.,24,156000.,25,161000.,26,166000.,27,171000.,28,176000.,29,181000.,30,186000.,31,191000.,32,196000.,33,200000.,34,205000.,35,210000.,36,215000.,37,220000.,38,225000.,39,230000.,40,235000.,41,240000.,42,245000.,43,249000.,44,254000.,45,259000.,46,263000.,47,273000.,48,278000.,49,283000.,50,288000.,51,293000.,52,298000.,53,303000.,54,308000.,55,313000.,56,317100.,57,317600.,58,321000.,59,326000.,60,331000.,61,336000.,62,341000.,63,346000.,64,352000.,65,703000.,66,708000.,67,713000.,68,720000.,69,63,6
5,0,"Dummy line 0",100," COM Z0$[45],Z1$[45],H",200," REM***Program to output the contents of the master mail file as",300," REM***lables for mailing or as or as standard Moore Format Letters.",400," REM***Selection of names outputted can be by ZIP code or by Customer code."
5,500," REM***Works in conjunction with $MMAIL which builds and maintains file.",600," REM***Written and installed 3/25/81 by Bob Anderson",1000," PRINT \34                     *******************\34",1100," PRINT \34                     *       M2        *\34",1200," PRINT \34                     *  Format & label *\34"
5,1300," PRINT \34                     *      Output     *\34",1400," PRINT \34                     *******************\34",1500," PRINT LIN(5)",3000," FILES *,*,*,*,*",4000," DIM A$[72],B$[72],C$[72],D$[72]"
5,5000," DIM E$[72],F$[72],G$[72],H$[72]",6000," DIM I$[72],J$[72],K$[72],L$[72]",7000," DIM M$[72],N$[72],O$[72],P$[72]",8000," DIM Q$[72],R$[72],S$[72],T$[72]",9000," DIM U$[72],V$[72],W$[72],X$[72]"
5,10000," DIM A1$[120],B1$[120],C1$[120],D1$[120],E1$[120],F1$[120],G1$[120],H1$[120]",10500," DIM H0$[10],V0$[10]",10600," DIM N1$[72],R1$[72],T1$[72]",11000," DIM I1$[120],J1$[120],K1$[120],L1$[120]",29000," REM***MENU***"
5,30000," PRINT \34     Menu\34",30500," PRINT \34     ====\34",31000," PRINT \34    1=Form Mailer Print\34",32000," PRINT \34    2=Label Print\34",33000.," PRINT"
5,33500.," PRINT \34    3=End Program\34",34000.," PRINT \34    0=Menu\34",35000.," X=0",35500.," PRINT \34>\34;",36000.," INPUT X"
5,36200.," IF X<0 OR X>3 THEN 9998",36300.," IF X=0 THEN 9998",36500.," PRINT LIN(10)",37000.," GOTO X OF 1000,7000,9999",100000.," REM***FORMATTED OUTPUT SECTION***"
5,101000.," PRINT \34Formatted output section\34",101500.," H=1",103000.," PRINT LIN(2)\34Form letter output (Moore Bus Forms standard) Run?\34;",111500.," X$=\34\34",112000.," LINPUT X$"
5,112200.," X$=UPS$(X$)",112500.," IF X$=\340\34 THEN 9998",113000.," IF X$[1,1]=\34N\34 THEN 9998",114000.," PRINT LIN(2)\34Input the 'from' address\34",115000.," PRINT LIN(2)\34Company name:\34;"
5,116000.," LINPUT M$",117000.," PRINT \34Company address:\34;",118000.," LINPUT Q$",119000.," PRINT \34City, State, Zip:\34;",120000.," LINPUT O$"
5,121000.," PRINT \34Telephone #:\34;",122000.," LINPUT O$",123000.," PRINT LIN(3)\34Now input the message exactly as you want to see on the form.\34",124000.," PRINT \34You have 12 lines of 72 characters each.\34",125000.," G=0"
5,126000.," PRINT LIN(2)\34#1 > \34;",127000.," LINPUT A1$",128000.," IF LEN(A1$) <= 72 THEN 1310",129000.," PRINT \34Only 72  characters. you have \34;LEN(A1$)",130000.," GOTO 1260"
5,131000.," IF G=1 THEN 1980",132000.," PRINT \34#2 > \34;",133000.," LINPUT B1$",134000.," IF LEN(B1$) <= 72 THEN 1370",135000.," PRINT \3472  char.  You have \34;LEN(B1$)"
5,136000.," GOTO 1320",137000.," IF G=1 THEN 1980",138000.," PRINT \34#3 > \34;",139000.," LINPUT C1$",140000.," IF LEN(C1$) <= 72 THEN 1430"
5,141000.," PRINT \3472  char. You have \34;LEN(C1$)",142000.," GOTO 1380",143000.," IF G=1 THEN 1980",144000.," PRINT \34#4 > \34;",145000.," LINPUT D1$"
5,146000.," IF LEN(D1$) <= 72 THEN 1490",147000.," PRINT \3472  char.  you have \34;LEN(D1$)",148000.," GOTO 1440",149000.," IF G=1 THEN 1980",150000.," PRINT \34#5 > \34;"
5,151000.," LINPUT E1$",152000.," IF LEN(E1$) <= 72 THEN 1550",153000.," PRINT \3472  char.  You have \34;LEN(E1$)",154000.," GOTO 1500",155000.," IF G=1 THEN 1980"
5,156000.," PRINT \34#6 > \34;",157000.," LINPUT F1$",158000.," IF LEN(F1$) <= 72 THEN 1610",159000.," PRINT \3472  char.  you have \34;LEN(F1$)",160000.," GOTO 1560"
5,161000.," IF G=1 THEN 1980",162000.," PRINT \34#7 > \34;",163000.," LINPUT G1$",164000.," IF LEN(G1$) <= 72 THEN 1670",165000.," PRINT \3472  char.  you have \34;LEN(G1$)"
5,166000.," GOTO 1620",167000.," IF G=1 THEN 1980",168000.," PRINT \34#8 > \34;",169000.," LINPUT H1$",170000.," IF LEN(H1$) <= 72 THEN 1730"
5,171000.," PRINT \3472  char.  You have \34;LEN(H1$)",172000.," GOTO 1680",173000.," IF G=1 THEN 1980",174000.," PRINT \34#9 > \34;",175000.," LINPUT I1$"
5,176000.," IF LEN(I1$) <= 72 THEN 1790",177000.," PRINT \3472  char.  you have \34;LEN(I1$)",178000.," GOTO 1740",179000.," IF G=1 THEN 1980",180000.," PRINT \34#10> \34;"
5,181000.," LINPUT J1$",182000.," IF LEN(J1$) <= 72 THEN 1850",183000.," PRINT \3472  char.  you have \34;LEN(J1$)",184000.," GOTO 1800",185000.," IF G=1 THEN 1980"
5,186000.," PRINT \34#11> \34;",187000.," LINPUT K1$",188000.," IF LEN(K1$) <= 72 THEN 1910",189000.," PRINT \3472  char.  You have \34'7LEN(K1$)",190000.," GOTO 1860"
5,191000.," IF G=1 THEN 1980",192000.," PRINT \34#12> \34;",193000.," LINPUT L1$",194000.," IF LEN(L1$) <= 72 THEN 1970",195000.," PRINT \3472  char.  You have \34'7;LEN(L1$)"
5,196000.," GOTO 1920",197000.," IF G=1 THEN 1980",197500.," PRINT \34No more lines!\34",198000.," PRINT \34(cr) to continue; Line # to edit. \34;",199000.," G=1"
5,200000.," X$=\34\34",201000.," LINPUT X$",202000.," IF X$=\34\34 THEN 2060",203000.," CONVERT X$ TO X,1980",204000.," IF X<1 OR X>12 THEN 1980"
5,205000.," GOTO X OF 1260,1320,1380,1440,1500,1560,1620,1680,1740,1800,1860,1920",206000.," PRINT LIN(4)\34#1 > \34;A1$",207000.," PRINT \34#2 > \34;B1$",208000.," PRINT \34#3 > \34;C1$",209000.," PRINT \34#4 > \34;D1$"
5,210000.," PRINT \34#5 > \34;E1$",211000.," PRINT \34#6 > \34;F1$",212000.," PRINT \34#7 > \34;G1$",213000.," PRINT \34#8 > \34;H1$",214000.," PRINT \34#9 > \34;I1$"
5,215000.," PRINT \34#10> \34;J1$",216000.," PRINT \34#11> \34;K1$",217000.," PRINT \34#12> \34;L1$",218000.," PRINT LIN(3)\34This is it! Any further changes?  (cr)=No \34;",219000.," X$=\34\34"
5,220000.," LINPUT X$",221000.," IF X$[1,1]=\34Y\34 THEN 1980",222000.," PRINT LIN(4)\34TO address: (cr)=mail list \34;",223000.," X$=\34\34",224000.," LINPUT X$"
5,225000.," IF X$=\34\34 THEN 2420",226000.," PRINT LIN(2)\34Manual address:\34",227000.," PRINT \34Contact > \34;",228000.," N$=\34\34",229000.," LINPUT N$"
5,230000.," PRINT \34Company > \34;",231000.," I$=\34\34",232000.," LINPUT I$",233000.," PRINT \34Address > \34;",234000.," R$=\34\34"
5,235000.," LINPUT R$",236000.," PRINT \34City, State > \34;",237000.," T$=\34\34",238000.," LINPUT T$",239000.," PRINT \34ZIP code > \34;"
5,240000.," K$=\34\34",241000.," LINPUT K$",242000.," REM***FORMS PRINTOUT SECTION***",243000.," PRINT LIN(3)\34*****Output routinE*****\34",244000.," PRINT \34/E=backstep one line\34"
5,245000.," PRINT \34 0=return to menu\34",246000.," PRINT \34 ?=instructions\34",247000.," ASSIGN Z0$,1,X2, RR",248000.," IF X2=6 THEN 2500",248500.," PRINT X2"
5,249000.," GOTO 2530",250000.," PRINT \34SOME ONE IS PRINTING . PLEASE TRY LATER\34'7",251000.," ASSIGN *,1",252000.," GOTO 1300",253000.," PRINT \34Print all names ?  (cr)=Yes \34;"
5,254000.," F$=\34\34",255000.," LINPUT F$",256000.," F$=UPS$(F$)",257000.," IF F$=\34/E\34 THEN 1530",258000.," IF F$=\34\34 THEN 2600"
5,259000.," GOTO 2630",260000.," F$=\3400000\34",261000.," A$=\34AAAAA\34",261500.," H0$=\34AAA\34",262000.," GOTO 2690"
5,263000.," GOSUB 9000",269000.," PRINT \34Line printer ? (cr)=Yes \34;",270000.," C$=\34\34",271000.," IF C$=\34/E\34 THEN 2530",272000.," LINPUT C$"
5,273000.," C$=UPS$(C$)",274000.," IF C$=\34\34 THEN 2770",275000.," Z=0",276000.," GOTO 3130",277000.," PURGE R,\34MXASC\34"
5,278000.," SYSTEM X,\34FILE-MXASC,LP0\34",279000.," GOTO 2810",280000.," PRINT \34The LP is busy...please stand by!\34",281000.," ASSIGN \34MXASC\34,2,R",282000.," IF R=8 THEN 2850"
5,283000.," IF R=6 THEN 2800",284000.," PRINT \34Assignmment of LP failed!!\34;R",285000.," Z=2",286000.," PRINT \34Your off!! Check LP for test pattern.\34",287000.," PRINT #2;LIN(3)"
5,288000.," PRINT #2;TAB(7);\34XXXXXXXXXXXXXXXXXXXXXXXXX\34",289000.," PRINT #2;TAB(7);\34XXXXXXXXXXXXXXXXXXXXXXXXX\34",290000.," PRINT #2;TAB(7);\34XXXXXXXXXXXXXXXXXXXXXXXXX\34",291000.," PRINT #2;LIN(1);TAB(7);\34XXXXXXXXXXXXXXXXXXXXXXXXX\34",292000.," PRINT #2;LIN(1)"
5,293000.," FOR I=1 TO 12",294000.," FOR J=1 TO 72",295000.," PRINT #2;TAB(7);\34X\34;",296000.," NEXT J",297000.," PRINT #2"
5,298000.," NEXT I",299000.," PRINT #2;LIN(1)",300000.," PRINT #2;TAB(50);\34XXXXXXXXXXXXXXXXXXXXXXXXX\34",301000.," PRINT #2;TAB(50);\34XXXXXXXXXXXXXXXXXXXXXXXXX\34",302000.," PRINT #2;TAB(50);\34XXXXXXXXXXXXXXXXXXXXXXXXX\34"
5,303000.," PRINT #2;TAB(50);\34XXXXXXXXXXXXXXXXXXXXXXXXX\34",304000.," PRINT #2;TAB(50);\34XXXXX\34",305000.," PRINT #2;LIN(2)",306000.," PRINT \34Yes=Proceed to print   (cr)=Retest\34;",307000.," B$=\34\34"
5,308000.," LINPUT B$",309000.," B$=UPS$(B$)",310000.," IF B$=\340\34 THEN 1300",311000.," IF B$[1,1]=\34Y\34 THEN 3130",312000.," GOTO 2870"
5,313000.," READ #1,1",314000.," IF  END #1 THEN 3470",315000.," READ #1;N$,I$,R$,T$,K$,G$,H$",316000.," IF K$<F$ THEN 3150",317000.," IF K$>A$ THEN 3150"
5,317100.," IF H0$[1,1]=\34A\34 THEN 3173",317200.," IF H0$[1,1]#H$[1,1] THEN 3150",317300.," IF H0$[2,2]=\34A\34 THEN 3180",317400.," IF H0$[2,2]#H$[2,2] THEN 3150",317500.," IF H0$[3,3]=\34A\34 THEN 3180"
5,317600.," IF H0$[3,3]#H$[3,3] THEN 3150",318000.," IF N$[1,3]='25'25'25 THEN 3150",318500.," PRINT #2;LIN(3)",319000.," PRINT #2;TAB(7);M$",320000.," PRINT #2;TAB(7);Q$"
5,321000.," PRINT #2;TAB(7);O$",322000.," PRINT #2;LIN(1);TAB(7);P$",323000.," PRINT #2;LIN(1)",324000.," PRINT #2;TAB(7);A1$",325000.," PRINT #2;TAB(7);B1$"
5,326000.," PRINT #2;TAB(7);C1$",327000.," PRINT #2;TAB(7);D1$",328000.," PRINT #2;TAB(7);E1$",329000.," PRINT #2;TAB(7);F1$",330000.," PRINT #2;TAB(7);G1$"
5,331000.," PRINT #2;TAB(7);H1$",332000.," PRINT #2;TAB(7);I1$",333000.," PRINT #2;TAB(7);J1$",334000.," PRINT #2;TAB(7);K1$",335000.," PRINT #2;TAB(7);L1$"
5,336000.," PRINT #2;LIN(1)",337000.," PRINT #2;TAB(50);N$",338000.," PRINT #2;TAB(50);I$",339000.," PRINT #2;TAB(50);R$",340000.," PRINT #2;TAB(50);T$"
5,341000.," IF K$#\3411111\34 THEN 3430",342000.," K$=\34\34",343000.," PRINT #2;TAB(50);K$",344000.," PRINT #2;LIN(2)",345000.," GOTO 3150"
5,346000.," GOTO 3150",347000.," PRINT \34No more names\34",348000.," ASSIGN *,1",349000.," H1=BRK(0)",350000.," PRINT LIN(2)"
5,352000.," GOTO 9998",700000.," REM***Label Printout Section***",701000.," PRINT LIN(3)\34*****Label Printout Routine*****\34",701500.," H=1",702000.," PRINT \34/E=backstep one line\34"
5,703000.," PRINT \34 0=return to menu\34",704000.," PRINT \34 ?=instructions\34",705000.," ASSIGN Z0$,1,X2, RR",706000.," IF X2=6 THEN 7080",707000.," GOTO 7110"
5,708000.," PRINT \34SOME ONE IS PRINTING . PLEASE TRY LATER\34'7",709000.," ASSIGN *,1",710000.," GOTO 9998",711000.," PRINT LIN(2)\34How many spaces between labels  \34;",712000.," W$=\34\34"
5,713000.," LINPUT W$",714000.," IF W$=\340\34 THEN 9998",715000.," IF W$#\34?\34 THEN 7190",718000.," GOTO 9541",719000.," CONVERT W$ TO W,7110"
5,720000.," IF W>5 THEN 7110",721000.," IF W=0 THEN 9998",721100.," PRINT \34Do you want to include phone # & cust. code (non-lables) \34;",721200.," V0$=\34\34",721300.," LINPUT V0$"
721400.,71,725000.,72,728500.,73,739000.,74,744000.,75,749000.,76,754000.,77,759000.,78,764000.,79,769000.,80,773100.,81,773600.,82,777100.,83,777600.,84,782000.,85,787000.,86,788000.,87,793000.,88,902000.,89,906000.,90,911000.,91,914500.,92,931000.,93,942500.,94,953200.,95,956100.,96,999800.,97,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,27,70
5,721400.," IF V0$[1,1]=\340\34 THEN 9998",721500.," IF V0$[1,2]=\34/E\34 THEN 7110",722000.," PRINT \34Print complete list?\34;",723000.," F$=\34\34",724000.," LINPUT F$"
5,725000.," F$=UPS$(F$)",726000.," IF F$=\34/E\34 THEN 7110",726500.," IF F$=\34\34 THEN 7290",727000.," IF F$[1,1]=\34Y\34 THEN 7290",728000.," GOSUB 9000"
5,728500.," GOTO 7380",729000.," F$=\3400000\34",730000.," A$=\34AAAAA\34",730500.," H0$=\34AAA\34",738000.," PRINT \34Is the list to be routed to the LP?\34;"
5,739000.," C$=\34\34",741000.," LINPUT C$",741500.," IF C$=\34/E\34 THEN 7220",742000.," C$=UPS$(C$)",743000.," IF C$[1,1]=\34Y\34 THEN 7460"
5,744000.," Z=0",745000.," GOTO 7690",746000.," PURGE R,\34MXASC\34",747000.," SYSTEM X,\34FILE-MXASC,LP0\34",748000.," GOTO 7500"
5,749000.," PRINT \34The LP is busy...please stand by!\34",750000.," ASSIGN \34MXASC\34,2,R",751000.," IF R=8 THEN 7540",752000.," IF R=6 THEN 7490",753000.," PRINT \34Assignmment of LP failed!!\34;R"
5,754000.," Z=2",755000.," PRINT \34Your off!! Check LP for test pattern.\34",756000.," PRINT #Z;\34XXXXXXXXXXXXXXXXXXXX\34;TAB(35);\34XXXXXXXXXXXXXXXXXXXX\34",757000.," PRINT #Z;\34XXXXXXXXXXXXXXXXXXXX\34;TAB(35);\34XXXXXXXXXXXXXXXXXXXX\34",758000.," PRINT #Z;\34XXXXXXXXXXXXXXXXXXXX\34;TAB(35);\34XXXXXXXXXXXXXXXXXXXX\34"
5,759000.," PRINT #Z;\34XXXXXXXXXXXXXXXXXXXX\34;TAB(35);\34XXXXXXXXXXXXXXXXXXXX\34",760000.," PRINT #Z;\34XXXXX\34;TAB(35);\34XXXXX\34",761000.," PRINT #Z;LIN(W);",762000.," PRINT \34Yes=Proceed to print   (cr)=Retest\34;",763000.," B$=\34\34"
5,764000.," LINPUT B$",765000.," B$=UPS$(B$)",766000.," IF B$=\340\34 THEN 9998",767000.," IF B$[1,1]=\34Y\34 THEN 7690",768000.," GOTO 7560"
5,769000.," READ #1,1",770000.," IF  END #1 THEN 7900",771000.," READ #1;N$,I$,R$,T$,K$,G$,H$",772000.," IF K$<F$ THEN 7710",773000.," IF K$>A$ THEN 7710"
5,773100.," IF H0$[1,1]=\34A\34 THEN 7733",773200.," IF H0$[1,1]#H$[1,1] THEN 7710",773300.," IF H0$[2,2]=\34A\34 THEN 7740",773400.," IF H0$[2,2]#H$[2,2] THEN 7710",773500.," IF H0$[3,3]=\34A\34 THEN 7740"
5,773600.," IF H0$[3,3]#H$[3,3] THEN 7710",774000.," IF N$[1,3]='25'25'25 THEN 7710",775000.," READ #1;N1$,I1$,R1$,T1$,K1$,G1$,H1$",776000.," IF K1$<F$ THEN 7750",777000.," IF K1$>A$ THEN 7750"
5,777100.," IF H0$[1,1]=\34A\34 THEN 7773",777200.," IF H0$[1,1]#H1$[1,1] THEN 7750",777300.," IF H0$[2,2]=\34A\34 THEN 7780",777400.," IF H0$[2,2]#H1$[2,2] THEN 7750",777500.," IF H0$[3,3]=\34A\34 THEN 7780"
5,777600.," IF H0$[3,3]#H1$[3,3] THEN 7750",778000.," IF N1$[1,3]='25'25'25 THEN 7750",779000.," PRINT #Z;N$;TAB(35);N1$",780000.," PRINT #Z;I$;TAB(35);I1$",781000.," PRINT #Z;R$;TAB(35);R1$"
5,782000.," PRINT #Z;T$;TAB(35);T1$",783000.," IF K$#\3411111\34 THEN 7850",784000.," K$=\34\34",785000.," IF K1$#\3411111\34 THEN 7870",786000.," K1$=\34\34"
5,787000.," PRINT #Z;K$;TAB(35);K1$",787100.," IF V0$[1,1]#\34Y\34 THEN 7880",787200.," PRINT #Z",787300.," PRINT #Z;\34(\34;G$[1,3];\34)\34;G$[4,6];\34-\34;G$[7,10];TAB(35);\34(\34;G1$[1,3];\34)\34;G1$[4,6];\34-\34;G1$[7,10]",787400.," PRINT #Z;H$;TAB(35);H1$"
5,788000.," PRINT #Z;LIN(W);",789000.," GOTO 7710",790000.," PRINT \34No more names\34",791000.," ASSIGN *,1",792000.," H1=BRK(0)"
5,793000.," PRINT LIN(2)",794000.," GOTO 9998",900000.," REM*****PRINT SELECT SUBROUTINE*****",900500.," PRINT LIN(2);\34Select by ZIP code \34",901000.," X$=\34\34"
5,902000.," LINPUT X$",902500.," X$=UPS$(X$)",903000.," IF X$[1,1]#\34Y\34 THEN 9110",904000.," PRINT LIN(1);\34First ZIP code included \34;",905000.," INPUT F$"
5,906000.," IF LEN(F$)#5 THEN 9040",907000.," PRINT LIN(1);\34Last ZIP code included \34;",908000.," INPUT A$",909000.," IF LEN(A$)#5 THEN 9070",910000.," GOTO 9130"
5,911000.," F$=\3400000\34",912000.," A$=\34AAAAA\34",913000.," PRINT LIN(1);\34Select by Customer code ?\34;",914000.," X$=\34\34",914200.," LINPUT X$"
5,914500.," IF X$[1,1]#\34Y\34 THEN 9534",915000.," REMifno",923000.," PRINT LIN(1)\34Input which type\34;",924000.," INPUT H0$",925000.," H0$=UPS$(H0$)"
5,931000.," J$=\34\34",932000.," PRINT LIN(1);\34Input which sub-type \34;",933000.," INPUT J$",934000.," J$=UPS$(J$)",940000.," PRINT LIN(2);\34Class \34;"
5,942500.," G$=\34\34",943000.," INPUT G$",943500.," G$=UPS$(G$)",952500.," H0$[LEN(H0$)+1]=J$",953000.," H0$[LEN(H0$)+1]=G$"
5,953200.," GOTO 9540",953400.," H0$=\34AAA\34",954000.," RETURN",954100.," PRINT \34This routine will print out the contents of\34;Z0$;\34 in a 2 up \34",955100.," PRINT \34lable format.  in the absence of lables it will also include\34"
5,956100.," PRINT \34the phone # and cust. code.  It will selectivly print out  \34",957100.," PRINT \34from/to a start/stop zip code and will also select by a \34",958100.," PRINT \34particular cust. code. Follow the prompts carefully.\34",959100.," PRINT LIN(3)",960100.," GOTO 7000"
2,999800.," CHAIN R,\34MMAIL.A000\34,100",999900.," END",0,"",0,"",0,""
5,743000.," IMAGE\34  Projected New = \34,4D",744000.," PRINT LIN(2)",745000.," PRINT  USING 7400;B",746000.," PRINT  USING 7410;A",747000.," PRINT  USING 7420;A1"
5,748000.," PRINT \34====================\34",749000.," PRINT  USING 7430;B+A-A1",750000.," PRINT LIN(2)\34The sorted file = \34;C1",751000.," IF A+B-A1#C1 THEN 7530",752000.," GOTO 7560"
5,753000.," PRINT LIN(3)\34The old master \34;B;\34 and the old Add \34;A;\34 minus the deletes \34;A1",754000.," PRINT \34do not = the new sorted total. Sort aborted with\34;Z0$;\34and\34;Z1$;",754500.," PRINT \34and SCR01F left intact. \34'7",755000.," STOP",756000.," PRINT LIN(3)\34Sorted file checks...Move to master.(\34;Z0$;\34)\34"
5,757000.," IF  END #2 THEN 7820",758000.," IF  END #3 THEN 7660",759000.," Q=0",760000.," READ #2,1",761000.," READ #3,1"
5,762000.," READ #3;N$,I$,R$,T$,K$,G$,H$",763000.," PRINT #2;N$,I$,R$,T$,K$,G$,H$, END",764000.," Q=Q+1",765000.," GOTO 7620",766000.," IF Q#C1 THEN 7820"
5,767000.," PRINT \34Move completed....Sort completed!!!!!\34",768000.," PRINT \34Clearing Add File..\34",769000.," J=0",770000.," IF  END #1 THEN 7750",771000.," J=J+1"
5,772000.," READ #1,J",773000.," PRINT #1,J",774000.," GOTO 7710",775000.," PRINT \34Add clearing complete!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\34",776000.," ASSIGN *,1,R"
5,777000.," ASSIGN *,2,R",778000.," ASSIGN *,3,R",779000.," PURGE R,\34SCR01F\34",780000.," H1=BRK(1)",781000.," GOTO 7850"
5,782000.," PRINT \34Fatal error---Reload old master and add from tape!!!\34",783000.," PRINT C1;\34 moved to \34;Q;\34 in\34;Z0$;\34or\34;Z0$;\34is to short!\34'7",784000.," STOP",785000.," GOTO 530",786000.," PRINT LIN(3)\34No Sort possible...Add file empty!\34'7"
5,787000.," GOTO 530",788000.," REM ** CONTACT SEARCH BEGINS HERE **",789000.," PRINT LIN(2)",790000.," PRINT \34Search section: System file or Add file>\34",790500.," H=1"
5,791000.," PRINT \340=menu\34",792000.," PRINT \34?=instructions\34",793000.," PRINT LIN(3)\34Search system file ?\34;",794000.," LINPUT P$",795000.," P$=UPS$(P$)"
5,796000.," IF P$=\340\34 THEN 530",797000.," IF P$#\34?\34 THEN 8010",799000.," GOTO 8821",800000.," GOTO 7930",801000.," IF P$[1,1]=\34Y\34 THEN 8030"
5,802000.," GOTO 8480",803000.," ASSIGN Z0$,1,R",804000.," IF R=3 THEN 8060",805000.," GOTO 8080",806000.," PRINT LIN(2)\34System file not found.\34"
5,807000.," GOTO 530",808000.," PRINT \34Do you want to locate by company or person ( C/P ) \34;",809000.," ENTER 255,X,P$",810000.," P$=UPS$(P$)",811000.," IF X=-256 THEN 8090"
5,812000.," IF P$=\340\34 THEN 530",813000.," IF P$=\34/E\34 THEN 7930",814000.," PRINT",815000.," IF X=-256 THEN 8090",816000.," READ #1,1"
5,817000.," IF P$[1,1]=\34C\34 THEN 8190",818000.," GOTO 8210",819000.," PRINT LIN(1)\34Enter company \34;",820000.," GOTO 8220",821000.," PRINT \34Enter person's name \34;"
5,822000.," LINPUT L$",823000.," L$=UPS$(L$)",824000.," IF L$=\34/E\34 THEN 8080",825000.," PRINT LIN(4)",826000.," IF  END #1 THEN 8440"
5,827000.," READ #1;N$,I$,R$,T$,K$,G$,H$",828000.," IF N$[1,3]='25'25'25 THEN 8260",829000.," IF P$=\34C\34 THEN 8330",830000.," LET F=LEN(L$)",831000.," IF N$[1,F]=L$[1,F] THEN 8360"
5,832000.," GOTO 8350",833000.," LET F=LEN(L$)",834000.," IF I$[1,F]=L$[1,F] THEN 8360",835000.," GOTO 8260",836000.," PRINT LIN(2);N$"
5,837000.," PRINT I$",838000.," PRINT R$",839000.," PRINT T$",840000.," PRINT K$",841000.," PRINT"
5,842000.," PRINT \34(\34;G$[1,3];\34) \34;G$[4,6];\34-\34;G$[7,10]",842500.," PRINT H$",843000.," GOTO 8260",844000.," PRINT LIN(2)\34No more names or not found.\34",845000.," GOTO 7880"
5,846000.," IF L9=3 THEN 8580",847000.," GOTO 530",848000.," PRINT LIN(2)\34You will search the 'add' file.\34",849000.," ASSIGN Z1$,1,R",850000.," IF R#3 THEN 8530"
5,851000.," PRINT Z1$;\341 not found!!!\34",852000.," GOTO 530",853000.," PRINT LIN(2)\34Do you want to search by company or person.(C/P)\34;",854000.," LINPUT P$",855000.," P$=UPS$(P$)"
5,856000.," IF P$=\340\34 THEN 530",857000.," IF P$[1,1]=\34C\34 THEN 8590",858000.," GOTO 8610",859000.," PRINT LIN(2)\34Enter company name\34;",860000.," GOTO 8620"
5,861000.," PRINT LIN(2)\34Enter persons name \34;",862000.," LINPUT L$",863000.," L$=UPS$(L$)",864000.," IF L$=\340\34 THEN 530",865000.," IF L$=\34/E\34 THEN 8530"
5,866000.," IF  END #1 THEN 8440",867000.," J=1",868000.," J=J+1",869000.," READ #1,J;N$,I$,R$,T$,K$,G$,H$",870000.," IF N$[1,3]='25'25'25 THEN 8680"
5,871000.," F=LEN(L$)",872000.," IF P$=\34C\34 THEN 8750",873000.," IF N$[1,F]=L$[1,F] THEN 8770",874000.," GOTO 8680",875000.," IF I$[1,F]=L$[1,F] THEN 8770"
5,876000.," GOTO 8680",877000.," PRINT LIN(2);N$",878000.," PRINT I$",879000.," PRINT R$",880000.," PRINT K$"
5,881000.," PRINT LIN(1)\34(\34;G$[1,3];\34) \34;G$[4,6];\34-\34;G$[7,10]",881500.," PRINT H$",882000.," GOTO 8680",882100.," PRINT \34The search function will find an entry in the master or the add\34",882200.," PRINT \34files either by the contact name or by the company name.  It \34"
5,882300.," PRINT \34will also search by a partial input. eg: SAM will find all examples\34",882400.," PRINT \34of SAM regardless of what follows.\34",882500.," PRINT LIN(3)",882600.," GOTO 7880",883000.," REM *** COUNT STARTS HERE ***"
5,884000.," PRINT \34Count section..\34",884500.," H=1",885000.," PRINT \340=menu\34",886000.," PRINT \34/E=backstep\34",887000.," PRINT \34?=instructions\34"
5,888000.," PRINT LIN(2)",889000.," PRINT \34File to be counted \34;",890000.," INPUT B$",891000.," B$=UPS$(B$)",892000.," IF B$=\340\34 THEN 530"
5,893000.," IF B$#\34?\34 THEN 8970",895000.," GOTO 9331",896000.," GOTO 8890",897000.," ASSIGN B$,1,R",898000.," IF R=3 THEN 8890"
5,899000.," A=0",900000.," IF B$=Z1$ THEN 9200",901000.," IF B$=Z1$ THEN 9200",902000.," IMAGE\34Entries = \34,4DX",903000.," IMAGE\34Deletes = \34,4dx"
5,904000.," IMAGE\34         -------\34",905000.," IMAGE\34Valid   = \34,4dx",906000.," IF  END #1 THEN 9130",907000.," READ #1,1",908000.," FOR I=1 TO 32767"
909000.,135,914000.,136,919000.,137,924000.,138,929000.,139,933100.,140,933600.,141,938000.,142,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,134
5,909000.," READ #1;N$,I$,R$,T$,K$,G$,H$",910000.," IF N$[1,3]#'25'25'25 THEN 9120",911000.," A=A+1",912000.," NEXT I",913000.," PRINT  USING 9020;I-1"
5,914000.," PRINT  USING 9030;A",915000.," PRINT  USING 9040",916000.," PRINT  USING 9050;(I-1)-A",917000.," PRINT LIN(3)",918000.," ASSIGN *,1,R"
5,919000.," GOTO 8830",920000.," IF  END #1 THEN 9320",921000.," READ #1,1;I",922000.," I=I+1",923000.," A=0"
5,924000.," IF  END #1 THEN 9310",925000.," J=1",926000.," J=J+1",927000.," READ #1,J;N$",928000.," IF N$[1,3]#'25'25'25 THEN 9260"
5,929000.," A=A+1",930000.," GOTO 9260",931000.," GOTO 9130",932000.," I=1",933000.," GOTO 9130"
5,933100.," PRINT \34This function will count the entrys in the master or the add files.\34",933200.," PRINT \34The master file is named\34;Z0$;\34 & the add file is named\34;Z1$",933300.," PRINT \34The count will show all entrys on file and how many have been \34",933400.," PRINT \34marked for deletion on the next sort.\34",933500.," PRINT LIN(3)"
5,933600.," GOTO 8830",934000.," REM ** MISC AND SUNDRY MSSGS **",935000.," PRINT LIN(2)",936000.," PRINT \34********** ERROR ***********\34'7",937000.," RETURN"
2,938000.," SYSTEM X,\34BYE\34",939000.," END",0,"",0,"",0,""
5,67500.,"KTOL",67600.,"113",67700.,"NML",67800.,"1257 03-20-82 02:22 PM*82079+",67900.,"BOB STRAND"
5,68000.,"BELMONT, CA.",68100.,"QTAR",68200.,"114",68300.,"NML",68400.,"1789 03-29-82 10:43 AM*82088+"
5,68500.,"SAM HAGAR",68600.,"BANGO BANGO",68700.,"BEER",68800.,"115",68900.,"XML"
5,69000.,"1248 03-20-82 01:02 PM*82079+",69100.,"HARLAN ANDREWS",69200.,"CAMPBELL,CA.",69300.,"HEAA",69400.,"116"
5,69500.,"NML",69600.,"1380 03-22-82 10:16 PM*82081+",69700.,"JACK AGNEW",69800.,"SAN JOSE, CA.",69900.,"AGNE"
5,70000.,"117",70100.,"XML",70200.,"2156 04-03-82 08:21 PM*82093+",70300.,"DAVE FOX",70400.,"SAN JOSE, CA"
5,70500.,"STAR",70600.,"118",70700.,"NML",70800.,"9611 03-09-82 03:59 PM*82068+",70900.,"CARL KAMINSKI"
5,71000.,"SAN JOSE, CA.",71100.,"ANTS",71200.,"119",71300.,"NML",71400.,"1572 03-25-82 09:58 PM*82084+"
5,71500.,"ROSS GILDEN",71600.,"SAN JOSE,CA",71700.,"GAIL",71800.,"120",71900.,"NML"
5,72000.,"1680 03-27-82 06:22 PM*82086+",72100.,"ED MORGAN",72200.,"PORTOLA VALLEY",72300.,"NEWW",72400.,"121"
5,72500.,"NML",72600.,"8724 02-22-82 09:28 PM*82053+",72700.,"DAVE LUTZ",72800.,"SUNNYVALE, CA.",72900.,"FILM"
5,73000.,"122",73100.,"NML",73200.,"8729 02-22-82 10:32 PM*82053+",73300.,"RON CARPENTER",73400.,"HALF MOON BAY, CA."
5,73500.,"RONC",73600.,"123",73700.,"NML",73800.,"1550 03-25-82 12:47 PM*82084+",73900.,"AL EMBIC"
5,74000.,"SUNNYVALE",74100.,"EMBI",74200.,"124",74300.,"XML",74400.,"1380 03-22-82 09:55 PM*82081+"
5,74500.,"RICK ADAMS",74600.,"SAN FRANCISCO,CA",74700.,"IGOR",74800.,"125",74900.,"NML"
5,75000.,"2283 04-05-82 10:20 PM*82095+",75100.,"JERRY",75200.,"SAN JOSE,CA",75300.,"JERB",75400.,"126"
5,75500.,"XML",75600.,"9062 02-28-82 01:54 PM*82059+",75700.,"ROBERT MARATAS",75800.,"MTN. VIEW, CA.",75900.,"REMM"
5,76000.,"127",76100.,"XML",76200.,"1863 03-30-82 02:51 PM*82089+",76300.,"BYRON MONROE",76400.,"LOS GATOS, CA."
5,76500.,"PRES",76600.,"128",76700.,"NML",76800.,"9658 03-10-82 05:58 AM*82069+",76900.,"JIM ZIMMER"
5,77000.,"S.J.CA.",77100.,"CIPC",77200.,"129",77300.,"XML",77400.,"9108 03-01-82 12:53 PM*82060+"
5,77500.,"JERRY BUCKMAN",77600.,"SAN JOSE, CA",77700.,"JERB",77800.,"130",77900.,"NML"
5,78000.,"9153 03-01-82 11:06 PM*82060+",78100.,"3CPMS SYSOP",78200.,"CAMPBELL,CALIF",78300.,"SYSO",78400.,"131"
5,78500.,"NML",78600.,"9204 03-02-82 06:34 PM*82061+",78700.,"GARY BART",78800.,"SAN JOSE,CA",78900.,"BART"
5,79000.,"132",79100.,"XML",79200.,"9374 03-05-82 03:44 AM*82064+",79300.," SAM HAGAR",79400.,"BANGO BANGO"
5,79500.,"BEER",79600.,"133",79700.,"XML",79800.,"9461 03-06-82 05:33 PM*82065+",79900.,"DAVID FIBUSH"
5,80000.,"SANTA CLARA,CA",80100.,"KLGW",80200.,"134",80300.,"XML",80400.,"2377 04-07-82 07:24 PM*82097+"
5,80500.,"CRIS AGNEW",80600.,"SAN JOSE, CA.",80700.,"DKLD",80800.,"135",80900.,"XMX"
5,81000.,"2325 04-06-82 11:27 PM*82096+",81100.,"JERRY BEIN",81200.,"SAN JOSE,CALIF",81300.,"KBBG",81400.,"136"
5,81500.,"NML",81600.,"9668 03-10-82 10:53 AM*82069+",81700.,"SAM SEVERS",81800.,"SAN JOSE,CA",81900.,"JANA"
5,82000.,"137",82100.,"NML",82200.,"1018 03-16-82 05:32 PM*82075+",82300.,"JIM DONALDSON",82400.,"SJ,CA"
5,82500.,"IBMC",82600.,"138",82700.,"XXX",82800.,"2281 04-05-82 08:13 PM*82095+",82900.,"DICK HAWK"
5,83000.,"SAN JOSE,CA",83100.,"LOST",83200.,"139",83300.,"NML",83400.,"1038 03-16-82 11:35 PM*82075+"
5,83500.,"JIM MAY",83600.,"SANTA CLARA,CA",83700.,"JEMM",83800.,"140",83900.,"XML"
5,84000.,"1392 03-23-82 09:43 AM*82082+",84100.,"EDWARD HUANG",84200.,"SAN CARLOS,CA",84300.,"CODE",84400.,"141"
5,84500.,"XML",84600.,"1076 03-17-82 04:59 PM*82076+",84700.,"GARY ASHFORD",84800.,"SAN JOSE, CA",84900.,"GARY"
5,85000.,"142",85100.,"NML",85200.,"1441 03-23-82 08:35 PM*82082+",85300.,"CHRIS GRAHAM",85400.,"CUPERTINO,CA"
5,85500.,"MIKE",85600.,"143",85700.,"XXX",85800.,"2320 04-06-82 07:37 PM*82096+",85900.,"CARL HEWITT"
5,86000.,"SAN JOSE,CA",86100.,"FOOB",86200.,"144",86300.,"XXL",86400.,"1760 03-28-82 02:25 PM*82087+"
5,86500.,"MARCOS WOEHRMANN",86600.,"LODS GATOS, CA",86700.,"DISK",86800.,"145",86900.,"XML"
5,87000.,"1268 03-20-82 05:06 PM*82079+",87100.,"KIRK POLLACK",87200.,"BELMONT,CA",87300.,"ZORK",87400.,"146"
5,87500.,"XML",87600.,"1271 03-20-82 07:45 PM*82079+",87700.,"SCOTT JOHNSON",87800.,"CHARLOTTESVILLE,VA",87900.,"FART"
5,88000.,"147",88100.,"XML",88200.,"1284 03-20-82 11:40 PM*82079+",88300.,"PETER MARTIN",88400.,"SANTA CRUZ, CA"
5,88500.,"RLPP",88600.,"148",88700.,"NML",88800.,"1290 03-21-82 02:06 AM*82080+",88900.,"DOUGLAS OARD"
5,89000.,"SUNNYVALE, CA",89100.,"SOAP",89200.,"149",89300.,"NML",89400.,"1309 03-21-82 01:45 PM*82080+"
5,89500.,"HOWARD MARKS",89600.,"SAN JOSE, CALIF",89700.,"HLMO",89800.,"150",89900.,"NML"
5,90000.,"2316 04-06-82 05:41 PM*82096+",90100.,"DAVID K FIBUSH",90200.,"SANTA CLARA, CA",90300.,"KLGW",90400.,"151"
5,90500.,"XML",90600.,"1380 03-22-82 08:10 PM*82081+",90700.,"JOHN DOBBS",90800.,"SJ,CA",90900.,"QQQQ"
5,91000.,"152",91100.,"XML",91200.,"1380 03-22-82 10:01 PM*82081+",91300.,"JIM MORRISON",91400.,"LOS ANGELES, CA"
5,91500.,"DOOR",91600.,"153",91700.,"XML",91800.,"1380 03-22-82 10:08 PM*82081+",91900.,"DAVID BYRNE"
5,92000.,"LOS ANGELES, CA",92100.,"THED",92200.,"154",92300.,"NML",92400.,"1380 03-22-82 10:10 PM*82081+"
5,92500.,"HARLAN EUGENE",92600.,"CAMPBELL,CA.",92700.,"HEAA",92800.,"155",92900.,"NML"
5,93000.,"1380 03-22-82 10:20 PM*82081+",93100.,"GREG SCHAADT",93200.,"SANTA CLARA,CAL",93300.,"GREG",93400.,"156"
5,93500.,"NML",93600.,"2423 04-08-82 07:02 PM*82098+",93700.,"FRANK JEWHURST",93800.,"SAN JOSE,CA",93900.,"FEJK"
5,94000.,"157",94100.,"NML",94200.,"1530 03-24-82 09:28 PM*82083+",94300.,"GEORGES BRODEUR",94400.,"SANTA CLARA,CA"
94500.,199,95000.,200,95500.,201,96000.,202,96500.,203,97000.,204,97500.,205,98000.,206,98500.,207,99000.,208,99500.,209,100000.,210,100500.,211,101000.,212,101500.,213,102000.,214,102500.,215,103000.,216,103500.,217,104000.,218,104500.,219,105000.,220,105500.,221,106000.,222,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,198
5,94500.,"ASDF",94600.,"158",94700.,"NML",94800.,"1685 03-27-82 08:10 PM*82086+",94900.,"JOE HARRIS"
5,95000.,"SAN JOSE,CALIF",95100.,"JOEH",95200.,"159",95300.,"NML",95400.,"1635 03-27-82 00:32 AM*82086+"
5,95500.,"BILL SPOOLHOFF",95600.,"SAN JOSE, CA",95700.,"BILL",95800.,"160",95900.,"NML"
5,96000.,"2124 04-03-82 09:17 AM*82093+",96100.,"BILL OLDHAM",96200.,"CHICAGO IL",96300.,"XYZT",96400.,"161"
5,96500.,"NML",96600.,"1663 03-27-82 12:11 PM*82086+",96700.,"RICH HALL",96800.,"CAMPBELL,CA",96900.,"RDHS"
5,97000.,"162",97100.,"NML",97200.,"1680 03-27-82 06:07 PM*82086+",97300.,"DAVE FLORY",97400.,"SAN JOSE, CA."
5,97500.,"DUIE",97600.,"163",97700.,"NML",97800.,"1773 03-28-82 05:12 PM*82087+",97900.,"JOHN DOE"
5,98000.,"SAN JOSE,CAL",98100.,"ROLM",98200.,"164",98300.,"NML",98400.,"1774 03-28-82 06:14 PM*82087+"
5,98500.,"FRANK",98600.,"SAN JOSE",98700.,"FCFC",98800.,"165",98900.,"NML"
5,99000.,"2412 04-08-82 12:16 PM*82098+",99100.,"RONALD SCOTT",99200.,"MILPITAS,CALIFORNIA",99300.,"PASS",99400.,"166"
5,99500.,"NML",99600.,"2429 04-08-82 08:26 PM*82098+",99700.,"JIM EISELT",99800.,"SAN JOSE,CA",99900.,"JIMM"
5,100000.,"167",100100.,"XML",100200.,"2041 04-02-82 07:54 AM*82092+",100300.,"GLENN",100400.,"MILPITAS,CALIFORNIA"
5,100500.,"NEAT",100600.,"168",100700.,"XXX",100800.,"2331 04-07-82 04:27 AM*82097+",100900.,"GEORGE POMMEL"
5,101000.,"SAN FRANSISCO,CA",101100.,"FRED",101200.,"169",101300.,"XMX",101400.,"2264 04-05-82 05:05 PM*82095+"
5,101500.,"CHUCK TOWNS",101600.,"SARATOGA, CA",101700.,"KLFH",101800.,"170",101900.,"NML"
5,102000.,"2190 04-04-82 01:28 PM*82094+",102100.,"ROBERT REUTER",102200.,"SUNNYVALE,CA.",102300.,"GEBO",102400.,"171"
5,102500.,"NML",102600.,"2199 04-04-82 06:14 PM*82094+",102700.,"GORDON STORGA",102800.,"SAN JOSE,CA.",102900.,"SODA"
5,103000.,"172",103100.,"NML",103200.,"2283 04-05-82 09:09 PM*82095+",103300.,"GARY BAMSCH",103400.,"HAYWARD,CALIF"
5,103500.,"FRED",103600.,"173",103700.,"NML",103800.,"2347 04-07-82 11:55 AM*82097+",103900.,"TIM GARY"
5,104000.,"LOS ALTOS,CA.",104100.,"GARY",104200.,"174",104300.,"XML",104400.,"2419 04-08-82 04:59 PM*82098+"
5,104500.,"JON MACE",104600.,"SAN JOSE, CA",104700.,"MUDD",104800.,"175",104900.,"NML"
5,105000.,"2426 04-08-82 07:11 PM*82098+",105100.,"NED SCHNELL",105200.,"SAN JOSE,CA",105300.,"BETT",105400.,"176"
5,105500.,"NML",105600.,"2434 04-08-82 09:32 PM*82098+",105700.,"PERRY",105800.,"CAMPBELL,CA",105900.,"MLBP"
3,106000.,"177",106100.,"NML",106200.,"2447 04-09-82 09:03 AM*82099+",0,"",0,""
