A
al jones
I'm converting a very old GWBASIC program - I now have it writing to a file
and I can print the file but that's not what I want to do (page breaks /
widows / orphans / etc). Would some kind soul give me the code I'd need in
my program to replace the following WriteLines with output to a printer - I
just can't see it (here's a sample of about 800 lines of spaghetti code):
L77: P = R - 0.3
L78: myFile.WriteLine("RADIUS TO OUTSIDE 1ST LANE LINE = " + Str(P) + "
(METERS)")
myFile.WriteLine("") : myFile.WriteLine(" ALL OTHER MEASURMENTS
HEREIN ARE IN METERS")
H = intL1Distance / 2 - 200
R1 = R
Z = F + (Q * H)
L88: myFile.WriteLine("") : myFile.WriteLine(" " + Str(Q) +
"TURN STAGGER") : myFile.WriteLine("")
If Q = 1 Then GoTo L210
If Q = 3 Then GoTo L210
L95: If Z > 0 Then GoTo L145
myFile.WriteLine(PrintRadius(intCounter, R, 1, Z))
GoTo L107
L106: myFile.WriteLine(PrintDegrees(intCounter, Int(Z), (Int(B)),
Int(G)))
L107: If M = 20 Then GoTo L110
My emails easy enough to decipher if you'd like to do it for fee - give me
an idea ....
and I can print the file but that's not what I want to do (page breaks /
widows / orphans / etc). Would some kind soul give me the code I'd need in
my program to replace the following WriteLines with output to a printer - I
just can't see it (here's a sample of about 800 lines of spaghetti code):
L77: P = R - 0.3
L78: myFile.WriteLine("RADIUS TO OUTSIDE 1ST LANE LINE = " + Str(P) + "
(METERS)")
myFile.WriteLine("") : myFile.WriteLine(" ALL OTHER MEASURMENTS
HEREIN ARE IN METERS")
H = intL1Distance / 2 - 200
R1 = R
Z = F + (Q * H)
L88: myFile.WriteLine("") : myFile.WriteLine(" " + Str(Q) +
"TURN STAGGER") : myFile.WriteLine("")
If Q = 1 Then GoTo L210
If Q = 3 Then GoTo L210
L95: If Z > 0 Then GoTo L145
myFile.WriteLine(PrintRadius(intCounter, R, 1, Z))
GoTo L107
L106: myFile.WriteLine(PrintDegrees(intCounter, Int(Z), (Int(B)),
Int(G)))
L107: If M = 20 Then GoTo L110
My emails easy enough to decipher if you'd like to do it for fee - give me
an idea ....