5 '
400 ' Team stats
410 :
420 '	Variables used
430 '	        No  	= Team number(2)
440 '		Tna$    = Team name(13)
450 '		Wns     = Wins(2)          
460 '		Los     = Losses(2)
470 '		T       = ties(2)
480 '           Pct     = percentage of wins(5)
490 '		FR     = points scored by team(3)
500 '		AGNST   = points scored against team(3)
510 '		RATE    = power rating(3)
520 :
530 :
540 '	Files used
550 '		NFLFYL= R_A file
560 :
565 DIM K(28,8)
570 '	File initialization
580 OPEN "O",1,"B:NFLFYL"
600 FOR I=1 TO 28
603 READ TNA$
605	FOR J=1 TO 8
640		K(I,J)=0:K(I,1)=I
645  	NEXT J
650	PRINT CHR$(26)
655	PRINT TNA$
660      INPUT "WHAT IS THE POWER RATING? ";K(I,8)
760      PRINT CHR$(26)
770      PRINT TNA$,K(I,8)
780      LINE INPUT "IS THAT CORRECT? (Y/N) ";R$
790      IF R$<>"Y" THEN 650
800    ' PRINT TO FILE
805	FOR J=1 TO 8
810	WRITE #1,K(I,J)
815	NEXT J
820 NEXT I
830 ' CLOSE FILE
840 CLOSE 1
850 STOP
860 OPEN "I",1,"B:NFLFYL"
880 FOR I=1 TO 28      
885	FOR J=1 TO 8
890	INPUT #1,K(I,J)
970	PRINT K(I,J);
975	NEXT J:PRINT
980 NEXT I
990 CLOSE
1000 END
1010 DATA BALTIMORE,MIAMI,NEW ENGLAND,N.Y.JETS,BUFFALO,CINCINNATI
1020 DATA PITTSBURGH,HOUSTON,CLEVELAND,OAKLAND,DENVER,SAN DIEGO,SEATTLE
1030 DATA KANSAS CITY,DALLAS,PHILADELPHIA,WASHINGTON,ST. LOUIS
1040 DATA N.Y. GIANTS,MINNESOTA,CHICAGO,DETROIT,GREEN BAY,TAMPA BAY,LOS ANGELES
1050 DATA ATLANTA,SAN FRANCISCO,NEW ORLEANS

1040 DATA N.Y. GIANTS,MINNESOTA,CHICAGO,DETROIT,GREEN BAY,TAMPA BAY,LOS ANGELES
1050