rem *** LPRINT TESTER ***
txt As String
SET PTEXT FONT "ARIAL"
SET PTEXT SIZE 24
SET LINE SPACING 1
SET TEXT FONT "Arial"
PC As integer
cx as integer
cy as integer
DarkInk
wait key
for I= 1 to 25
txt = "This in line number " + str$(I)
print txt
LPRINT "This is line number "
LPRINTNL Str$(I)
next I
SET PTEXT SIZE 12
For I=26 to 50
txt = "This in line number " + str$(I)
print txt
LPRINT "This is line"
SET PTEXT SIZE 10
SET PTEXT TO BOLDITALIC
LPRINT " number "
SET PTEXT SIZE 12
SET PTEXT TO NORMAL
LPRINTNL Str$(I)
next I
SET LINE SPACING 2
For I=51 to 75
txt = "This in line number " + str$(I)
print txt
print
LPRINT "This is line number "
LPRINTNL Str$(I)
next i
For I=76 to 100
txt = "This in line number " + str$(I)
print txt
print
LPRINT "This is line number "
LPRINT Str$(I)
cx = GET PRINTER CURSOR X() + 200
cy = GET PRINTER CURSOR Y()
SET PRINTER CURSOR cx,cy
LPRINT "PRINTING @ "
LPRINT STR$(CX) + " , "
LPRINTNL STR$(CY)
next i
finish:
LPRINTNL "*** FINISHED ***"

PRINTER GO
wait key
end