'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ '³ prints through DOS 21h/40h, which permits redirection from ³°° '³ screen to a file ³°° 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ°° ' °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° SUB DosPrint(BYVAL t$,BYVAL crlf%)PUBLIC $CODE SEG "DNASEG2" LOCAL TmpSeg??, TmpPtr??, tlen% tlen% = LEN(t$): IF ISFALSE(tlen%) THEN EXIT SUB 'if null string IF ISTRUE(crlf%) THEN 'if crlf% <> 0 then add cr/lf t$ = t$ + CHR$(13,10) INCR tlen%, 2 END IF TmpSeg?? = STRSEG(t$) : TmpPtr?? = STRPTR(t$) ! push ax ! push bx ! push cx ! push dx ! push ds ! mov ds, TmpSeg?? ! mov dx, TmpPtr?? ! mov cx, tlen% ! mov bx, 1 ;bx=std output ! mov ah, &h40 ! int &h21 ! pop ds ! pop dx ! pop cx ! pop bx ! pop ax '----------------------------------------------------------------------------- END SUB '-----------------------------------------------------------------------------