home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 623a.lha / TurboDEX / ExampleSources / Shell.dex < prev    next >
Text File  |  1992-03-22  |  448b  |  19 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.  
  17.  
  18.  
  19.