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