home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / AMOSCOMP.DMS / in.adf / Execute.AMOS / Execute.amosSourceCode
Encoding:
AMOS Source Code  |  1993-02-25  |  713 b   |  32 lines
  1. '-----------------------------------------------   
  2. ' Execute: how to launch an external program.
  3. ' By Fran�ois Lionet 
  4. ' AMOS (c) 1990/91 Europress Software
  5. '----------------------------------------------- 
  6. '
  7. ' Lets launch AMOS from AMOS. Haha.
  8. '
  9. EXEC["RUN >NIL: <NIL: AMOS1.3"]
  10. Print Param
  11. '
  12. Procedure EXEC[C$]
  13.    '
  14.    ' Open a input/output null channel 
  15.    A$="NIL:"+Chr$(0)
  16.    Dreg(1)=Varptr(A$) : Dreg(2)=1004
  17.    HAND=Doscall(-30)
  18.    '
  19.    If HAND
  20.       '
  21.       ' Send the command to AmigaDos 
  22.       C$=C$+Chr$(0)
  23.       Dreg(1)=Varptr(C$) : Dreg(2)=HAND : Dreg(3)=HAND
  24.       F=Doscall(-222)
  25.       '
  26.       ' Close the channel
  27.       Dreg(1)=HAND
  28.       A=Doscall(-36)
  29.    End If 
  30.    '
  31.    ' -1 if ok 
  32. End Proc[F]