:PTC2JA.BA for T200. Prints .DO to LJ;:in 2 columns. 6/04/04 R H Pigford:Uses PTC2JA.CO IN ALTLCD:Pokes vals to PTC2JA so be CAREFUL7:if you modify PTC2JA.CO!b:Finds contents of a .DO file by chr:Sends to 2 col print program1 M"PTC2ja"ƿ E$(27):P$E$"p":Q$E$"q":FN$""d200:top banner_______________n@80,"elect a TEXT file to Print"/x@120," to quit";8600JA$(27) dA$"S" A$"s" 300130 :_________________________:@0,P$"PTC2JA.BA - Prints a .DO file in two";:@40,"columns on Lazer printer - PCL4 up."Q$; :_________________________`,::"Enter a .DO file to print":"without the '.DO'";F$:700:L$" "6F$F$L$:Z$(F$,6):F$Z$:FN$F$".DO"@F$F$"DO"TDE62133 62551 11: ((DE)128)380: for T200^ (DE)192 380hI18:B$((DEI2)):N$N$B$:I"r N$F$ 4000|N$"":DE†: FN$"- Not Found -":"Press F8 for MENU or F4 to RUN again"::T150:T::200 :____________________š@85,P$FN$Q$" Found!"¤@120,"

rint this file in 2 columns"î@160," to start over.":ó@240,"BEEP = print job sent, all OK"Cø600]A$(27)FN$"":100xA$"P" A$"p" ͌500 440 :________________________AD(DE1)256(DE2) T19:I$(FN$,T,1):I(I$): 63785T1,I:T T18:I$(,T,1):I(I$): 63803T1,I:T9 63572,,AD :at HIMEM?VXA$:A$""600:ļ:capitalize ______________________A$"":B$"":C$"" W1(F$):B$(F$,W,1)B(B$)B96 B123C$((B$) 223):760C$B$A$A$C$ W:F$A$: