home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / MAX130.ZIP / ARYNAV.MAX < prev    next >
Encoding:
Text File  |  1988-10-30  |  1.8 KB  |  67 lines
  1.  
  2. tclear ()
  3.  
  4. feval (..\misc\lstnav)
  5.  
  6. Function arynav
  7.     Begin
  8.  
  9.         If eq (argc () 1)
  10.             Then
  11.                 set (ad argv (1))
  12.             EndThen
  13.             Else
  14.                 set (ad -1)
  15.             EndElse
  16.         EndIf
  17.  
  18.         Loop
  19.  
  20.             put ("Enter Command")
  21.             get (command)
  22.  
  23.             Case command
  24.                 When "cre"
  25.                     put ("Enter Size")
  26.                     get (size)
  27.                     put (set (ad arycre (size)))
  28.                 EndWhen
  29.                 When "fre"
  30.                     put (aryfre (ad))
  31.                 EndWhen
  32.                 When "ad"
  33.                     put ("Enter Array Descriptor")
  34.                     get (ad)
  35.                 EndWhen
  36.                 When "get"
  37.                     put ("Enter Index")
  38.                     get (i)
  39.                     put (aryget (ad i))
  40.                 EndWhen
  41.                 When "set"
  42.                     put ("Enter Index")
  43.                     get (i)
  44.                     put ("Enter Data")
  45.                     get (data)
  46.                     put (aryset (ad i data))
  47.                 EndWhen
  48.                 When "write"
  49.                     set (size arysize (ad))
  50.                     put ("Array size is " size)
  51.                     For set (i 0) lt (i size) set (i add (i 1))
  52.                         put ("array[" i "] = " aryget (ad i))
  53.                     EndFor
  54.                 EndWhen
  55.                 When "lmap"
  56.                     put (arylmap (ad))
  57.                 EndWhen
  58.                 When "quit"
  59.                     exit ()
  60.                 EndWhen
  61.                 Default
  62.                     put ("Unrecognized Command: " command)
  63.                 EndDefault
  64.             EndCase
  65.         EndLoop
  66.     End
  67. EndFunction