home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI03.ARJ / ictari.03 / GFA / TUTORIAL / ARRAY_1.LST next >
File List  |  1989-07-29  |  2KB  |  57 lines
  1. ' ****** Program Parameters ******
  2. maxdrink%=10                               !*** Max Number Of Drinks } Must Be
  3. maxlength%=30                              !*** Max Length Of Drink  } Positive
  4. stop$="stop"                               !*** String To Stop Before Max ***
  5. '
  6. ' ****** Create Drinks Array ******
  7. DIM drink$(maxdrink%-1)                    !*** Note Range Is 0 To Max-1 ***
  8. '
  9. ' ****** Clear Screen And Display Instructions ******
  10. CLS
  11. PRINT "Enter upto ";maxdrink%;" top tipples!"
  12. PRINT "Use '"+stop$+"' to enter less,"
  13. '
  14. '
  15. ' ****** INPUT: Set Drinkcount To 0 And Enter Loop ******
  16. count%=0
  17. REPEAT
  18.   '
  19.   ' ***** Get A Drink,  While Invalid: Get A Drink       *****
  20.   ' ***** Note: LEN(tempdrink$) returns length of string *****
  21.   PRINT CHR$(10);"Drink ";count%+1;": ";
  22.   INPUT "",tempdrink$
  23.   WHILE (LEN(tempdrink$)<1 OR LEN(tempdrink$)>maxlength%) AND NOT (tempdrink$=stop$)
  24.     PRINT CHR$(7);"Invalid - 1 to ";maxlength%;" characters only!"
  25.     PRINT "Drink ";count%+1;": ";
  26.     INPUT "",tempdrink$
  27.   WEND
  28.   '
  29.   ' ***** Providing Not Stopping, Add Valid Drink And Increment Drinkcount *****
  30.   IF NOT (tempdrink$=stop$)
  31.     drink$(count%)=tempdrink$
  32.     ADD count%,1
  33.   ENDIF
  34. UNTIL count%=maxdrink% OR tempdrink$=stop$
  35. '
  36. '
  37. ' ****** OUTPUT: Exit Loop And Clear Screen ******
  38. CLS
  39. '
  40. ' ****** Are There #Any# Drinks??  If So Let`s See Them ******
  41. IF count%>0
  42.   PRINT "Here are your top ";count%;" tipples:"
  43.   PRINT
  44.   '
  45.   FOR display%=0 TO count%-1
  46.     PRINT drink$(display%)
  47.   NEXT display%
  48.   '
  49.   PRINT CHR$(10)
  50. ENDIF
  51. '
  52. '
  53. ' ****** Finish Off And End ******
  54. PRINT CHR$(10);CHR$(7);"Terminated, press any key to exit:";
  55. VOID INP(2)
  56. EDIT
  57.