home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / prog_oth / turbodex.lha / examplesources / Shell.dex < prev    next >
Encoding:
Text File  |  1992-10-11  |  449 b   |  16 lines
  1. /* TurboShell in TurboDEX */
  2.  
  3. PROC main(DETACH)
  4.   DEF window:LONG, buffer=60:ARRAY, a:REGLONG, text:REGLONG
  5.   window := Open('con:10/10/400/100/TurboShell v0.0\0',1006)
  6.   VOID Write(window,'Shell by $#%! in 1991. \aquit\a to stop.\n',LEN)
  7.   WHILE text?"quit"
  8.     VOID Execute(buffer,0,window)
  9.     VOID Write(window,'Turbo> ',LEN)
  10.     a := Read(window,buffer,59)
  11.     MCHAR buffer+a,0
  12.     text := MLONG(buffer)
  13.   ENDWHILE
  14.   VOID Close(window)
  15. ENDPROC
  16.