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