home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI03.ARJ / ictari.03 / GFA / TUTORIAL / WHILE.LST < prev   
File List  |  1989-07-29  |  1KB  |  34 lines
  1. '   **                                                               **
  2. '   **         Use Of WHILE ... WEND Loop To Validate Input          **
  3. '   **                                                               **
  4. '   ** In my opinion #ALL# input, of this form, should be validated: **
  5. '   **             Get input,  While invalid: get input              **
  6. '   **                                                               **
  7. '
  8. ' *** Get Surname ***
  9. PRINT "Input Name (3-30 characters)"
  10. INPUT "Name: ",surname$
  11. '
  12. ' *** While Surname Invalid: Get Surname ***
  13. WHILE LEN(surname$)<3 OR LEN(surname$)>30
  14.   PRINT CHR$(7);"INVALID NAME (3 TO 30 CHARACTERS ONLY)"
  15.   INPUT "Name: ",surname$
  16. WEND
  17. '
  18. ' *** Get Age ***
  19. PRINT CHR$(10);"Input Age (15-150)"
  20. INPUT "Age: ",age%
  21. '
  22. ' *** While Age Invalid: Get Age ***
  23. WHILE age%<15 OR age%>150
  24.   PRINT CHR$(7);"INVALID AGE (15 TO 150 ONLY)"
  25.   INPUT "Age: ",age%
  26. WEND
  27. '
  28. ' *** 'Process', Output And End ***
  29. MUL age%,12
  30. PRINT CHR$(10);"Hello ";surname$;", you`re over ";age%;" months old!"
  31. PRINT CHR$(7);
  32. VOID INP(2)
  33. EDIT
  34.