Appears on
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.
Source Code
5 REM %A%V%E%R%A%G%E%S 10 LET N=0 15 LET T=0 20 LET A=0 22 PRINT "%A%V%E%R%A%G%E%S" 23 PRINT 25 PRINT "ENTER A NUMBER(ENTER 0 TO STOP)" 30 INPUT Z 35 IF Z=0 THEN GOTO 70 40 PRINT Z 45 LET N=N+1 50 LET T=T+Z 60 GOTO 25 70 LET A=T/N 80 CLS 90 PRINT "THE AVG. NR. IS ";A 100 PRINT 110 GOTO 10 120 SAVE "1005%3" 130 RUN