Tweet
Why won't this program print when compiled under pb3.5 for DOS
on a Windows98 machine?????
I had this running 3 years ago and now it refuses to do so after being on
a an XP Machine.
Any help would be greatly appreceiated......I have many other programs in the
same shape......
------------------
on a Windows98 machine?????
I had this running 3 years ago and now it refuses to do so after being on
a an XP Machine.
Any help would be greatly appreceiated......I have many other programs in the
same shape......
Code:
$compile exe
coo$ = command$
CO$ = mid$(coo$,1,2)
open "TEMPSALE" for input as #1
open "LPT1" for output as #2
do while not eof(1)
line input #1, dtx$
inv$ = mid$(dtx$,5,6) ' 5-10
dat$ = mid$(dtx$,11,10) ' 11-20
coco$ = mid$(dtx$,21,2) ' 21-22
book$ = mid$(dtx$,23,50) ' 23-72
page$ = mid$(dtx$,73,3) ' 73-75
qty = val(mid$(dtx$,76,5)) ' 76-80
card$ = mid$(dtx$,81,20) ' 81-100
vers$ = mid$(dtx$,101,5) ' 101-105
sale = val(mid$(dtx$,106,8)) ' 106-113
dspc = val(mid$(dtx$,114,2)) ' 114-115
dsam = val(mid$(dtx$,116,7)) ' 116-122
tax = val(mid$(dtx$,123,7)) ' 123-129
fgt = val(mid$(dtx$,130,7)) ' 130-136
adl = val(mid$(dtx$,137,7)) ' 137-143
epg = val(mid$(dtx$,144,7)) ' 144-150
incr a
if a = 1 then
if CO$ = "BC" then
gosub bcaddr
end if
if CO$ = "MA" then
gosub maaddr
end if
if CO$ = "RG" then
gosub rgaddr
end if
if CO$ = "RI" then
gosub riaddr
end if
if CO$ = "NU" then
gosub nuaddr
end if
end if
if coco$ = CO$ then
tsale = tsale + sale
tfgt = tfgt + fgt
pc50 = sale * .50
tot = pc50 + fgt
totrm = totrm + tot
print #2, tab(3);dat$;tab(20);inv$;tab(40);using$("##,###.##",sale);_
tab(51);using$("##,###.##",pc50);tab(61);using$("##,###.##",fgt);_
tab(71);using$("##,###.##",tot)
end if
loop
print #2,
print #2,
print #2, tab(3);"Total Remittance";tab(22);using$("##,###.##",totrm)
end
bcaddr:
print #2, "TO: BIRCHCRAFT STUDIOS"
PRINT #2, " P.O.BOX 328"
PRINT #2, " ROCKLAND, MA 02370"
PRINT #2,
PRINT #2, " FROM: LLOYD'S QUALITY CARDS"
PRINT #2, " 1356 N. 21ST STREET
PRINT #2, " ALLENTOWN, PA 18104-2502"
PRINT #2,
print #2,
print #2,
print #2,
gosub header
RETURN
maaddr:
print #2, "TO: MASTERPIECE STUDIOS"
PRINT #2, " 957 N. MERIDIAN STREET"
PRINT #2, " SUNMAN, INDIANA 47041-7586"
PRINT #2,
PRINT #2, " FROM: LLOYD'S QUALITY CARDS"
PRINT #2, " 1356 N. 21ST STREET
PRINT #2, " ALLENTOWN, PA 18104-2502"
PRINT #2,
print #2,
print #2,
print #2,
gosub header
return
rgaddr:
print #2, "TO: REGENCY GREETINGS"
PRINT #2, " 731 CLATON AVENUE"
PRINT #2, " WAYNESBORO, PA 17268-0990"
PRINT #2,
PRINT #2, " FROM: LLOYD'S QUALITY CARDS"
PRINT #2, " 1356 N. 21ST STREET
PRINT #2, " ALLENTOWN, PA 18104-2502"
PRINT #2,
print #2,
print #2,
print #2,
gosub header
return
riaddr:
print #2, "TO: ROYAL IMPRINTS "
PRINT #2, " 711 GERBER STREET"
PRINT #2, " P.O.BOX 208"
PRINT #2, " LIGONIER, IN 46767-0208"
PRINT #2,
PRINT #2, " FROM: LLOYD'S QUALITY CARDS"
PRINT #2, " 1356 N. 21ST STREET
PRINT #2, " ALLENTOWN, PA 18104-2502"
PRINT #2,
print #2,
print #2,
print #2,
gosub header
return
nuaddr:
print #2, "TO: NuArt , INC."
PRINT #2, " 6247 W. 74TH STREET"
PRINT #2, " BEDFORD PARK, IL 60499"
PRINT #2,
PRINT #2, " FROM: LLOYD'S QUALITY CARDS"
PRINT #2, " 1356 N. 21ST STREET
PRINT #2, " ALLENTOWN, PA 18104-2502"
PRINT #2,
print #2,
print #2,
print #2,
gosub header
return
header:
print #2, " R E M I T T A N C E A D V I C E"
PRINT #2, " ---------------------------------
PRINT #2,
Print #2, " DATE DEALER P.O.NO. TOTAL CHARGES 50% FREIGHT TOTAL"
PRINT #2, " ---------- -------------- ------------- ------- ------- -----"
RETURN
Comment