Average

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

Average

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 

People

No people associated with this content.

Scroll to Top