5  REM IATATA, HP 36876A, 6/74
10  REM**LOADR LOADS DATA SERIALLY TO FILES IATAID AND CONTNR WHICH ARE
20  REM**4 RECORDS LONG RESPECTIVELY. LOADR NEED NOT BE
30  REM**SAVED AFTER RUN SINCE IT IS USED ONLY TO INITIALIZE THE FILES.
40  FILES IATAID,CONTNR
50  DIM E$[5],F$[7],I$[5],J$[3]
60  FOR I=1 TO 42
70  READ I$,M,T,V,D,M3,E$,M1,T1,M4
80  IF  END #1 THEN 900
90  PRINT #1;I$,M,T,V,D,M3,E$,M1,T1,M4, END 
100  NEXT I
110  DATA "1",13200,0,1280,25,25000,"NONE",0,0,0
120  DATA "2",6297,1000,668,25,15000,"NONE",0,0,0
130  DATA "2A",0,0,564,25,0,"NONE",0,0,0
140  DATA "2B",0,0,463,25,0,"NONE",0,0,0
150  DATA "3P",0,265,465,15,13300,"A'S",0,0,0
160  DATA "3NSI",0,550,465,25,13300,"A'S",0,0,0
170  DATA "3SI",0,550,465,25,13300,"A'S",0,0,0
180  DATA "4P",0,230,365,15,10000,"A'S",0,0,0
190  DATA "4NSI",0,500,365,25,10000,"A'S",0,0,0
200  DATA "4ANSI",0,500,340,15,8000,"A'S",0,0,0
210  DATA "5P",0,265,375,15,8300,"LD-7",0,0,10200
220  DATA "5NSI",0,550,360,15,8300,"LD-7",0,550,10200
230  DATA "5SI",0,550,350,15,8300,"LD-9",0,685,10200
240  DATA "6P",0,0,265,0,5680,"NONE",0,0,0
250  DATA "7*P",0,265,198,15,5000,"NONE",0,0,0
260  DATA "7P",0,338,198,0,5250,"NONE",0,0,0
270  DATA "7NSI",0,0,217,0,5250,"NONE",0,0,0
280  DATA "8",0,280,170,15,3500,"LD-1",1300,370,3500
290  DATA "8",0,280,162.4,15,3500,"LD-P",1100,350,3500
300  DATA "8*",0,280,160,15,3500,"LD-3",1100,340,3500
310  DATA "9P",0,280,160,0,2500,"NONE",0,0,0
320  DATA "9NSI",0,280,167,0,2500,"NONE",0,0,0
330  DATA "CO1",0,565,377,98.4,10000,"A'S",0,0,0
340  DATA "CO2",0,480,320,83.4,10000,"A'S",0,0,0
350  DATA "CO3",0,293,195,50.8,6686,"B",1800,200,5000
360  DATA "CO4",0,277,184,47.9,6686,"B",1800,200,5000
370  DATA "CO5",0,241,160,41.6,4841,"B",1800,200,5000
380  DATA "CO6",0,225,150,38.9,4841,"B",1800,200,5000
390  DATA "CO7",841,142,94.5,24.3,4050,"LD-N",0,100,2400
400  DATA "CO8",551,93,61.9,15.8,3303,"D",500,63,2000
410  DATA "CO9",396,45,44.4,10.7,2666,"NONE",0,0,0
420  DATA "CO0",267,30,30,7,2666,"NONE",0,0,0
430  DATA "COJ",565,96,63.4,16.2,3383,"D",500,63,2000
440  DATA "COS",160,18,18,4,1691,"E",130,18,500
450  DATA "VAR.",0,0,393,0,0,"A-1",3000,0,13000
460  DATA "VAR.",0,0,457.5,0,0,"A-2",3100,0,13000
470  DATA "VAR.",0,0,476,0,0,"A-3",3200,0,13000
480  DATA "NONE",0,0,98.9,0,0,"B-2",900,100,2500
490  DATA "NONE",0,0,12,0,0,"QD",100,13,400
500  DATA "NONE",0,0,277.8,0,0,"LD-5",2200,630,5000
510  DATA "NONE",0,0,340,0,0,"LD-6",0,0,7000
520  DATA "NONE",0,0,256.6,0,0,"LD-11",1800,0,7000
530  FOR I=1 TO 93
540  READ J$,F$,M2
550  IF  END #2 THEN 900
560  PRINT #2;J$,F$,M2, END 
570  NEXT I
580  DATA "COS","DSC-2",500,"COS","SC-3",500,"COJ","DSC-23",904,"COS"
590  DATA "DSC-34",500,"COS","SC-43",602,"COJ","DSC-46",1400,"COS"
600  DATA "DSC-50",528,"COS","DSC-51",566,"COJ","SC-54",1861,"COJ"
610  DATA "DSC-69",2850,"COS","DSC-76",500,"COS","DSC-92",500,"COS"
620  DATA "DSC-103",500,"COJ","SC-117",1600,"COS","DSC-121",500,"COS"
630  DATA "DSC-141",500,"COJ","DSC-146",512,"COS","SC-148",500,"COJ"
640  DATA "SC-162",1605,"COJ","DSC-164",1743,"COJ","SC-175",2157,"COJ"
650  DATA "SC-176",1032,"COS","SC-201",500,"COS","DSC-212",500,"COS"
660  DATA "DSC-213",459,"COS","DSC-221",500,"COJ","DSC-225",1000,"COJ"
670  DATA "SC-228",1068,"COS","SC-231",483,"COJ","SC-234",1900,"COS"
680  DATA "SC-241",500,"COS","DSC-242",500,"COJ","DSC-244",2866,"COS"
690  DATA "DSC-249",500,"COJ","DSC-250",2104,"COJ","DSC-252",1800,"COS"
700  DATA "DSC-254",500,"COS","DSC-257",500,"COJ","SC-258",2250,"COS"
710  DATA "SC-261",1266,"COS","SC-268",500,"COJ","DSC-270",1584,"COS"
720  DATA "DSC-272",500,"COS","DSC-276",500,"COS","DSC-278",500,"COS"
730  DATA "SC-282",500,"COS","DSC-284",500,"COS","SC-289",500,"COS"
740  DATA "DSC-293",478,"COS","DSC-295",500,"COS","DSC-297",500,"COS"
750  DATA "DSC-299",500,"COJ","SC-303",2250,"COJ","SC-306",1620,"COJ"
760  DATA "DSC-310",1704,"COJ","DSC-312",1845,"COS","DSC-314",772,"COS"
770  DATA "DSC-315",500,"COS","DSC-323",568,"COS","SC-324",500,"COS"
780  DATA "DSC-328",1568,"COS","DSC-330",500,"COS","DSC-332",700,"COJ"
790  DATA "SC-333",2000,"COS","DSC-337",500,"COJ","DSC-341",1000,"COS"
800  DATA "SC-342",500,"COS","DSC-343",500,"COJ","DSC-347",1220,"COJ"
810  DATA "DSC-349",1728,"COJ","DSC-357",1565,"COJ","DSC-358",1565,"COS"
820  DATA "DSC-359",500,"COS","DSC-361",500,"COS","DSC-364",1046,"COJ"
830  DATA "DSC-368",2000,"COJ","DSC-369",2000,"COJ","DSC-372",2860,"COJ"
840  DATA "DSC-374",2094,"COJ","SC-383",1898,"COJ","DSC-389",1898,"COS"
850  DATA "DSC-394",500,"COS","DSC-396",500,"COJ","DSC-397",1620,"COJ"
860  DATA "SC-400",1925,"COS","DSC-401",500,"COS","SC-403",1266,"COJ"
870  DATA "SC-404",1625,"COJ","DSC-405",974,"COS","SC-407",500,"COS"
880  DATA "DSC-408",500,"COJ","DSC-409",1898,"COJ","SC-410",1865
890  GOTO 910
900  PRINT "FILE ERROR, CHECK FILE OPEN COMMMAND FOR PROPER SIZE FILES."
910  END 
