:PTC1JA released 12/19/2007݈:PTC1JA.BA for T100 prints .DO to LJ :in 2 columns. 5/14/04 (c)R H Pigford1:Uses PTC1JA.CO in *** ALTLCD ***[:Pokes vals to PTC1JA so be CAREFUL{:if you modify PTC1JA.CO!:Finds contents of a .DO file by chrʉ:Sends to 2 col print programމ 1:M"PTC1JA" E$(27):P$E$"p":Q$E$"q":FN$""+d200:toz banner_______________Tn@80,"elect a TEXT file to Print"ox@120," to quit";x600A$(27) A$"S" A$"s" 300ʊ130 :_________________________.:@0,P$"PTC1JA.BA - Prints a .DO file in two";:@40,"columns on Lazer printer - PCL4 up."Q$;R :_________________________,::"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"JDE63842 64128 11: ((DE)128)380: for T100*^ (DE)192 380QhI18:B$((DEI2)):N$N$B$:Ibr N$F$ 400p|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"P@160," to start over."Y600sA$(27)FN$"":100A$"P" A$"p" ͌500 440 :________________________ύAD(DE1)256(DE2) T19:I$(FN$,T,1):I(I$): 64927T1,I:T3 T18:I$(,T,1):I(I$): 64945T1,I:TP 64704,,AD :in altlcdVmXA$: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$: