! LISTTEC.TEC Neatly list some files (with ^ conversion) MCR>MUN LIST,wildcardablefilespecification ! ! Take the file spec, init parser, init "R" to open "next" ! 64+128et ei j hxw ien zj @i// hxs ms @^ur/ :erq*/ 0u3 ! Set up date and time macros ! ! setup qn to hold untouchable characters ! @^un/  / :12^un :11^un ! For each file, clear buf, open input and lp: ! <:en; 1%3 hk g* hxf hk mr"u obot' ew lp: ! Set up this file's page heading in "B" ! hk 12i i Listing of " gf i"  u7 q7-(q7/32*32)u8 q7/32u7 q7-(q7/16*16)u9 q7/16+1900u7 q9-1"EiJanuary' q9-2"EiFebruary' q9-3"EiMarch' q9-4"EiApril' q9-5"EiMay' q9-6"EiJune' q9-7"EiJuly' q9-8"EiAugust' q9-9"EiSeptember' q9-10"EiOctober' q9-11"EiNovember' q9-12"EiDecember' i  q8\ i,  q7\ ^hu7 q7/1800u8 (q7-(q8*1800))/30u7 ^upAM q8-12"loa' ^upPM q8-12"g q8-12u8' !a! i  q8\ 100+q7\ -2c-d i: cc i gp  5<32i> i Page  hxb hk !set up heading! @^uc?j gb 1%2 q2\ i  ! convert control characters to ^ ! j z"n [2 zu2 q2< 0a-31"> c oaa' 0a-32"<::sGN"F [1 0au1 d i^ q1+64i ]1 '' !aa! > j <@fs//$/;>]2 ' hpw hk 0u1? ! Clear line counter and page counter ! 0u1 0u2 ! For each record, if FF output page if page overflow output page if EOF, skip out ! < !read! :a ; "l mc oread' q1-54"g mc oread' 1%1> ! If any chars left at EOF, output page ! z"n mc' ! Give page count and file name, close output If no more files, exit !   q2:=  page q2-1"Gs'  listed from " :gf ". ef !bot!> q3"eNo such file(s) " :gw ". '