home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 December / PCWKCD1296.iso / demo / wgelectr / cameval / cam31 / misc.z / SIMPLE2.SCR < prev    next >
Text File  |  1995-11-08  |  639b  |  30 lines
  1. ; File name is SIMPLE2.SCR
  2. ; Version 1.1, November 1995
  3. setnewfile@
  4.  
  5. 50 ok_cancel "This macro will compute your age", OK
  6. if OK=1 then goto 100
  7. if OK=0 then end
  8.  
  9. 100 Input "Enter the current year ", Year
  10. if Year < 1900 then goto 200
  11. Input "Enter the year you were born ", yearborn
  12. if yearborn < 1900 then goto 200
  13. age=Year-yearborn
  14. print "Your current age is ", age
  15. ok_cancel "Do you want to count the years?", ok
  16. if OK=1 then goto 250
  17. if OK=0 then end
  18.  
  19. 200 print "The year must be 19xx"
  20. goto 100
  21.  
  22. 250 for count=1 to age
  23.  print_msg "Years lived: ", count
  24.    delay 100
  25.  next
  26. print "Pretty old huh!"
  27. goto 50
  28.  
  29. end
  30.