home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib37b.dsk
/
SUMFIVE.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
370b
|
20 lines
10 PRINT "THIS PROGRAM WILL COMPUTE THE SUM""
20 PRINT "OF FIVE NUMBERS YOU SUPPLY"
30 PRINT
40 GOSUB 170
50 T = T +A
60 GOSUB 170
70 T = T +A
80 GOSUB 170
90 T = T +A
100 GOSUB 170
110 T = T +A
120 GOSUB 170
130 T = T +A
140 PRINT
150 PRINT "THE SUM OF YOUR NUMBERS IS ";T
160 END
170 PRINT
180 INPUT "ENTER A NUMBER: ";A$
190 A = VAL(A$)
200 RETURN