'===========================================================================
' Subject: COMMAND$ ACTUAL CASE               Date: 04-24-92 (16:55)       
'  Author: Michael Malley                     Code: QB, PDS                
'  Origin: COMMAND$,ACTUAL,CASE             Packet: DOS.ABC
'===========================================================================
TYPE RegTypeX
     ax    AS INTEGER
     bx    AS INTEGER
     cx    AS INTEGER
     dx    AS INTEGER
     bp    AS INTEGER
     si    AS INTEGER
     di    AS INTEGER
     flags AS INTEGER
     ds    AS INTEGER
     es    AS INTEGER
END TYPE
DECLARE SUB InterruptX (intnum AS INTEGER, Inreg AS RegTypeX, outreg AS RegTypeX)

DIM Regs AS RegTypeX

Regs.ax = &H2F * 256
InterruptX &H21, Regs, Regs
DEF SEG = Regs.es

Offset = Regs.bx
Length = PEEK(Offset)

Cmd$ = SPACE$(Length)

FOR Counter = Offset + 1 TO Offset + Length
    MID$(Cmd$, (Counter - Offset)) = CHR$(PEEK(Counter))
NEXT Counter

PRINT Cmd$

DEF SEG