home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / PROGOLF2.DSK / STAT.REVIEW.bas < prev    next >
BASIC Source File  |  2014-09-09  |  4KB  |  50 lines
  1. 1  REM  STAT.REVIEW
  2. 90  TEXT : HOME : INVERSE : VTAB 1: PRINT  SPC( 11)"STATISTICS REVIEW" SPC( 12): NORMAL 
  3. 100  DIM CN$(20),CS(20),CR(20),CR%(20),RH$(20),ST(80,5)
  4. 110  VTAB 9: PRINT  SPC( 14)"INSERT YOUR": PRINT : PRINT "   ";: INVERSE : PRINT "PROFESSIONAL TOUR GOLF PLAYER DISK": NORMAL : PRINT : PRINT  SPC( 10)"AND PRESS <RETURN>";: INVERSE : PRINT " ": NORMAL 
  5. 120  POKE  -16368,0: POKE  -16384,0
  6. 130  IF  PEEK( -16384) < >141  THEN 130
  7. 140  POKE  -16368,0: POKE  -16384,0
  8. 200  ONERR  GOTO 4000
  9. 3150  &  READ "PL.STATS"
  10. 3160  FOR I = 1 TO 80: FOR J = 0 TO 5: INPUT ST(I,J): NEXT : NEXT : &  END 
  11. 3230  &  READ "C.STATS"
  12. 3240  FOR I = 1 TO 20: INPUT CN$(I): INPUT CS(I): INPUT CR(I): INPUT CR%(I): INPUT RH$(I): NEXT : &  END 
  13. 3340  TEXT : HOME : INVERSE : VTAB 1: PRINT "    NUM. GREENS   AVG   -SCORE SUMMARY- PL# RNDS IN REG  PUTTS  AVERAGE  HI  LO ";: NORMAL : POKE 34,2
  14. 3345  VTAB 24: HTAB 8: PRINT "PRESS <ESC> TO END LISTING";: VTAB 3: HTAB 1
  15. 3350 F% = 0: FOR I = 1 TO 80: IF ST(I,0) = 0  THEN 3555
  16. 3360 F% = F% +1: IF F% <21  THEN 3390
  17. 3370  VTAB 24: HTAB 8: PRINT "PRESS <RETURN> TO CONTINUE";: HTAB 7: FOR J = 1 TO 750: NEXT : CALL  -868: FOR J = 1 TO 40: IF  PEEK( -16384) < >141  THEN  NEXT : GOTO 3370
  18. 3380 J = 40: NEXT : POKE  -16368,0: POKE  -16384,0: HOME : VTAB 24: HTAB 8: PRINT "PRESS <ESC> TO END LISTING";: VTAB 3: HTAB 1:F% = 1
  19. 3390 RP% = ST(I,0):TS = ST(I,1):TP = ST(I,2):GP = ST(I,3):HR% = ST(I,4):LR% = ST(I,5)
  20. 3450 P$ = "  " + STR$(I): HTAB 1: PRINT  RIGHT$(P$,2);
  21. 3470 P$ = "   " + STR$(RP%): HTAB 5: PRINT  RIGHT$(P$,3);
  22. 3480  HTAB 10:P = GP/RP% +.005:P$ =  STR$(P): IF P =  INT(P)  THEN P$ = P$ +".0"
  23. 3484  IF P <1  THEN P$ = "0" +P$
  24. 3485  IF P <10  THEN P$ = " " +P$
  25. 3490 P$ = P$ +"0": PRINT  LEFT$(P$,5);
  26. 3500  HTAB 18:P = TP/RP% +.005:P$ =  STR$(P): IF P =  INT(P)  THEN P$ = P$ +".0"
  27. 3510 P$ = P$ +"0": PRINT  LEFT$(P$,5);
  28. 3520  HTAB 26:P = TS/RP% +.005:P$ =  STR$(P): IF P =  INT(P)  THEN P$ = P$ +".0"
  29. 3530 P$ = P$ +"0": PRINT  LEFT$(P$,5);
  30. 3540  HTAB 33:P$ = "  " + STR$(HR%): PRINT  RIGHT$(P$,3);
  31. 3550  HTAB 37:P$ = "  " + STR$(LR%): PRINT  RIGHT$(P$,3)
  32. 3555  IF  PEEK( -16384) = 155  THEN I = 120
  33. 3560  NEXT 
  34. 3570  VTAB 24: HTAB 1: PRINT "  PRESS <RETURN> FOR COURSE STATISTICS";: FOR I = 1 TO 750: NEXT : HTAB 1: CALL  -868: FOR I = 1 TO 40: IF  PEEK( -16384) < >141  THEN  NEXT : GOTO 3570
  35. 3580 I = 40: NEXT : TEXT : HOME : POKE  -16368,0: POKE  -16384,0: PRINT 
  36. 3620  REM  COURSE STATISTICS
  37. 3630  VTAB 1: INVERSE : PRINT "               NUM.   AVG  COURSE RECORDCOURSE NAME    RNDS  SCORE RECORD HOLDER";: NORMAL 
  38. 3640 ZZ% = 0: FOR I = 1 TO 20:ZZ% = ZZ% +(CR(I) >0): IF   NOT CR(I)  THEN 3710
  39. 3650  HTAB 1: PRINT CN$(I);
  40. 3660  HTAB 16:P$ = "    " + STR$(CR(I)): PRINT  RIGHT$(P$,4);
  41. 3670  HTAB 22:P = CS(I)/CR(I):P$ =  STR$(P): IF P =  INT(P)  THEN P$ = P$ +".00"
  42. 3680 P$ = P$ +"0000": PRINT  LEFT$(P$,5);
  43. 3690  HTAB 30: PRINT CR%(I);
  44. 3700  HTAB 36: PRINT RH$(I)
  45. 3710  NEXT : IF   NOT ZZ%  THEN  VTAB 11: HTAB 15: PRINT "NO COURSES": HTAB 12: PRINT "HAVE BEEN PLAYED"
  46. 3720  POKE  -16368,0: POKE  -16384,0
  47. 3730  VTAB 24: HTAB 5: PRINT "PRESS <RETURN> TO EXIT PROGRAM";: FOR I = 1 TO 750: NEXT : HTAB 1: CALL  -868: FOR I = 1 TO 40: IF  PEEK( -16384) < >141  THEN  NEXT : GOTO 3730
  48. 3740 I = 40: NEXT : POKE  -16368,0: POKE  -16384,0
  49. 3750  TEXT : HOME : POKE 216,0: PRINT "*": END 
  50. 4000  POKE 216,0: PRINT : INVERSE : PRINT "YOU MUST HAVE AN SSI-INITIALIZED PLAYER DISK IN DRIVE #1.                       ": FOR I = 1 TO 3000: NEXT : VTAB 2: HTAB 1: CALL  -958: NORMAL : GOTO 110