home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib19b.dsk / AVERAGE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  446b  |  11 lines
  1. 10  REM  --- FIND THE AVERAGE OF A SET OF DATA
  2. 20  PRINT : PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **": PRINT  CHR$(4);"BLOAD OVLY.OBJ": CALL 37088
  3. 30  PRINT : PRINT "DATA FILENAME OR": INPUT "<RETURN> TO END ?";F$: PRINT 
  4. 40  IF F$ = ""  THEN  PRINT : END 
  5. 50  & OVERLAY,500 -599,F$
  6. 60  RESTORE :SUM = 0:N = 0
  7. 70  READ X: IF X <0  THEN 100
  8. 80 SUM = SUM +X:N = N +1
  9. 90  GOTO 70
  10. 100  PRINT "THE AVERAGE OF ";N;" CASES WAS ";SUM/N
  11. 110  GOTO 30