home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / gwbasic / misbasic / age-cal.bas next >
Encoding:
BASIC Source File  |  1988-09-26  |  536 b   |  25 lines
  1. 20 CLS
  2. 30 PRINT "FUTURE AGE CALCULATOR"
  3. 40 FOR X = 1 TO 1000
  4. 50 NEXT X
  5. 60 CLS
  6. 70 PRINT "TYPE THE CORRECT ANSWER;"
  7. 80 PRINT "THEN PRESS THE ENTER KEY."
  8. 90 PRINT
  9. 100 PRINT "WHAT YEAR IS IT";
  10. 110 INPUT Y
  11. 120 PRINT
  12. 130 PRINT "HOW OLD ARE YOU";
  13. 140 INPUT A
  14. 150 PRINT
  15. 160 PRINT "FOR WHAT FUTURE YEAR DO"
  16. 170 PRINT "YOU WANT TO SEE YOUR AGE";
  17. 180 INPUT F
  18. 190 CLS
  19. 200 PRINT "ON THIS DAY IN ";F
  20. 210 PRINT "YOU WILL BE ";(F-Y)+A;"."
  21. 220 PRINT
  22. 230 PRINT "PLAY AGAIN (Y or N)"
  23. 250 INPUT P$
  24. 255 IF P$ = "Y" THEN 20 ELSE END
  25.