home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / amos_tips / execute / execute.asc < prev   
Encoding:
Text File  |  1992-03-02  |  390 b   |  24 lines
  1. '********************************
  2. '*         Execute.AMOS         *
  3. '*  © 1992 by Volker Stepprath  *
  4. '*    Executes a CLI-Command    *
  5. '********************************
  6. '
  7. Amos To Back 
  8. '
  9. '**** Define CLI-Command ****  
  10. '
  11. COMMAND$="SYS:c/Info"+Chr$(0)
  12. '
  13. '**** Execute CLI-Command **** 
  14. '
  15. Dreg(1)=Varptr(COMMAND$)
  16. Dreg(2)=0
  17. Dreg(3)=0
  18. XEXECUTE=Doscall(-222)
  19. '
  20. Wait 100
  21. '
  22. Amos To Front 
  23. Edit 
  24.