1000 RESTORE
1010 READ C$
1020 IF C$="EOF" THEN 1999
1030 READ T$,CAP,PSI
1040 PRINT C$;TAB(7);T$;TAB(12);CAP;TAB(19);PSI
1050 GOTO 1010
1060 DATA A,M4,113,2200
1070 DATA B,M6,164,2200
1080 DATA C,M9,255,2200
1090 DATA D,M14,425,2200
1100 DATA JD,M22,640,2200
1110 DATA E,M24,680,2200
1120 DATA M60,M60,1738,2200
1130 DATA M122,M122,3455,2200
1140 DATA H,M250,7080,2200
1150 DATA EOF
1999 END