Category : BASIC Source Code
Archive   : QBDOS.ZIP
Filename : TYPER.BAS

'*****************************************************************************

'Copyright (c) 1987 Marcel Madonna

'TYPER.BAS is an example of redirection. To compile it, at the DOS prompt
' type:

' qb typer /l qbdos.exe;
' link typer;
' del typer.obj

'To execute TYPER just type "TYPER" at the DOS prompt and you will be prompted
'for a file name to type on the monitor. This is a pretty simple program so
'
' USE A REAL FILE NAME OR ELSE THIS PROGRAM WILL ABORT
' USE AN ASCII FILE (LICENSE.DOC ON THE DISTRIBUTION DISKETTE
' WILL WORK JUST FINE)

'To route the output to a printer instead of the monitor, type:

' TYPER /LPT1

'To route output to a file, type:

' TYPER /TEXTFILE.DAT

'*****************************************************************************

';Usage - Call Dosred(Device%, FileSpec$, Rc%)
'; Device% 0 - Stdin
'; 1 - Stdout
'; 2 - Stderr (not redirectable)
'; 3 - AUX (standard auuxilliary device)
'; 4 - PRN (standard list device)
'; FileSpec$ - name of file or device
'; null - reset handle
'; chr$(255) - close handle and exit
'; Rc% 0 - good return
'; 6 - handle already closed
'; 255 - error
'*****************************************************************************

Dim In.Array$(2000)

If Len(Command$) = 0 then
Red% = 0
Else
Red% = -1
Pipe.Char$ = Left$(Command$,1)
Red.File$ = Right$(Command$,Len(Command$)-1)
While Left$(Red.File$,1) = Space$(1) 'Remove leading blanks
Red.File$ = Right$(Red.File$,Len(Red.File$)-1)
Wend
While Right$(Red.File$,1) = Space$(1) 'Remove trailing blanks
Red.File$ = Left$(Red.File$,Len(Red.File$)-1)
Wend
End if
Print Red.file$
Locate 1,1
Print "You are being prompted for a file name."
Print "Because this is a sample program only, I need"
Print "a real file name or else this program will "
Print "ABORT. LICENSE.TXT on the distribution diskette"
Print "will work just fine."
Print

Line Input "Give me a file name please: ", File.Nam$
Cls

Open File.Nam$ For Input As #1 'Open and read the entire file
While Not Eof(1)
If x% >= Ubound(In.Array$) then
Line Input #1, In.Array$(Ubound(In.Array$))
Else
x% = x% + 1
Line Input #1, In.Array$(x%)
End if
Wend
Close #1

Stdin% = 0
Stdout% = 1
Stdaux% = 3
Stdlist% = 4

' Redirect device here

If Red% then
Call DosRed(Stdout%, Red.File$ + chr$(0), Rc%)
If Rc% <> 0 then
Print "Error", Rc%
System
End if
End if

' Print file here
' Use 'print' statements to print to both CON and Red.File$
' Use DosChout to print to only Red.File$

For y% = 1 to x%
Call Doschout(In.Array$(y%)+chr$(10)+chr$(13))
' Print In.Array$(y%)
next

' Reset device to original

If Red% then Call Dosred(Stdout%,"",Rc%) 'Reset device