[net.micro.pc] VT52.BAS

G.Dair@SU-SCORE.ARPA (11/22/83)

From:  Willis Dair <G.Dair@SU-SCORE.ARPA>

I have fixed VT52.BAS to work with Version 2 of the IBM Async. Pkg.
Here is the stuff to add and supercede: Line 42-48 checks to see if
the appropriate RS232INT program is loaded.  Lines 115-120 is the
segment description.

42 DEF SEG = 0 : IF PEEK(&H4F4) = &HAA THEN 50
45 PRINT "Interrupt routine is not loaded.  Run RS232INT.EXE first"
48 STOP

115 SEG = PEEK(&H4F0) + 256 * PEEK(&H4F1)
120 DEF SEG = SEG

Also delete the BLOAD in line 130.

-* Willis

[In the Info-IBMPC free program library, VT52.BAS has been split into
VT52-1.BAS and VT52-2.BAS corresponding to Version 1 and 2 of the IBM
Async. Pkg., respectively. -Ed.]