home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / cards.zip / BASE.BAS next >
BASIC Source File  |  1986-09-28  |  404b  |  19 lines
  1. 10 SCREEN 2
  2. 20 SCREEN 0
  3. 30 OPEN "CARDS.DAT" FOR APPEND AS #1
  4. 40 LOCATE 1,1:PRINT"PLAYER"
  5. 45 LOCATE 1,24:PRINT"POS"
  6. 50 LOCATE 1,28:PRINT"YEAR"
  7. 60 LOCATE 1,35:PRINT"HR"
  8. 70 LOCATE 1,42:PRINT"RBI'S"
  9. 80 LOCATE 1,49:PRINT"TEAM"
  10. 85 LOCATE 1,67:PRINT"AVG."
  11. 90 LOCATE 1,72:PRINT"D"
  12. 100 LOCATE 1,76:PRINT"ERA"
  13. 110 FOR X=1 TO 9999
  14. 120   INPUT P$
  15. 130   WRITE #1,P$
  16. 140 NEXT X
  17. 150 CLOSE #1
  18. 160 END
  19.