kuSFILESN0LAB0AMTN 2 @@@ .. PAPER ROUTE INITIALIZATION. PROGRAM - STREETS + LABELS./!!UPDATE AND RUN THIS PROGRAM/TO PREPARE THE STREET AND/LABEL FILE.&/D/VERSION OF 12/31/80N/REVISED 1/4/81//;@,DATA FILE/STREET NAMES/;@,/ LABELS/;@ ,/;@,AMOUNTS (3)p0SET CONSTANTS06. D:STREET1.DAT2***********************2INITIALIZE STREET NAMES2***********************3 PREPARING STREETS3 @@,3"NUMBER OF NAMES.3 @03  STREETS63-@@3 "J3 @T3 3 3 PREPARING LABELS3SETUP DAYA, DAYB3-@@3 "3 @,,3 3"AMOUNTS3 @3@33############3STREET NAMES3############3FORMAT - STREET NAME WITH3TRAILING BLANKS TO THE3LENGTH OF 'SN0$'. FOLLOW3BY COMMA AND NUMBER (TO3FORCE FIXED LENGTH FOR3'SN0$').464Kennedy Drive ,14Quail Drive ,2&4Santos Court ,304Semel Way ,4:4Serpa Drive ,5D4Simas Drive ,64 DATA FOR DAYA, DAYB, LABP$4 1,1,SUNDAY ONLY ,14 6,6,DAILY ONLY ,24 7,7,SUNDAY+DAILY ONLY ,34 1,7,ALL SUNDAYS ,44 6,7,ALL DAILYS ,54""-1,-1,ALL DAYS ,6 53 AMOUNTS FOLLOW FOR*5DELIVERY DAYS 1,6,AND 745IN FORMAT X.XX PACKED AS>5FOLLOWS: 1.116.667.77H52.755.007.006*** END OF DATA *** D:INITST.BAS