home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d7xx / d743 / turbodex.lha / TurboDEX / ExampleSources / Shell.dex < prev    next >
Text File  |  1992-10-11  |  449b  |  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.