home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / tipi / t.tpi < prev    next >
Text File  |  1993-11-02  |  621b  |  33 lines
  1.  
  2. define menu
  3. # ( -- choice)
  4. # ( valid$ -- )
  5.  0 cursor
  6.  begin
  7.   inkey$ ucase$ # valid$ key$
  8.   len instr *
  9.   dup
  10.   if dup drop$ endif drop$
  11.  until
  12.  1 cursor
  13. enddef
  14.  
  15. cls
  16. " [E]dit, [L]ookup, [R]un or [Q]uit"
  17. print$ cr cr
  18. " TIPI Programmer's Workbench    X"
  19. print$ cr
  20. " Version 1.0                   / \"
  21. print$ cr
  22. "                              /   \"
  23. print$ cr
  24. " Current File: " print$
  25.  row column 14 +
  26. command$ parse$ drop$ ucase$ print$
  27. locate "/  +  \" print$ cr
  28. "                            /   +   \"
  29. print$ cr
  30. "                           /    O    \"
  31. print$
  32. "ELRQ" menu port? 4 * + bye
  33.