home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / DOSCALL.ZIP / DOSCALL.BAS next >
Encoding:
BASIC Source File  |  1985-10-19  |  1.1 KB  |  16 lines
  1. 20      DEF SEG=0 : DC.OFF=PEEK(&H4F0) + PEEK(&H4F1) *256
  2. 30      DC.SEG = PEEK(&H4F2) + PEEK(&H4F3) * 256
  3. 35      DEF SEG = DC.SEG : DOSCALL=DC.OFF
  4. 50      IF PEEK(DOSCALL)<>&H2E THEN PRINT "DOSCALL.COM MUST BE INSTALLED!":BEEP:END
  5. 60      ERR.FLAG%=0:CMD$=""
  6. 70      CLS:KEY OFF
  7. 80      LOCATE 1,1:COLOR 0,15:PRINT" INPUT DOS COMMAND: ";:COLOR 7,0:INPUT CMD$
  8. 85      IF CMD$="" THEN CLS:KEY ON : END
  9. 90      IF INSTR(CMD$,"BASIC") OR INSTR(CMD$,"basic") THEN BEEP:GOTO 70
  10. 100     DEF SEG = DC.SEG:CALL DOSCALL(CMD$,ERR.FLAG%)
  11. 105     COLOR 0,15
  12. 110     LOCATE 1,60:PRINT" DONE:  ERROR =";ERR.FLAG%
  13. 120     LOCATE 2,60:PRINT" <CR> TO CONTINUE "
  14. 125     COLOR 7,0
  15. 130     WHILE INKEY$="":WEND:GOTO 70
  16.