! Teco mac to do directory HRT 22-Dec-78 ! @EI%% ! Return input to the terminal ! [3 [A [1 [2 [B [C ! Save our work registers ! 1+2+4+128+512+32768U2 ! Set ET value into Q2 ! @^UA# ! Load the following text into Q-B ! jhxbhk ! save any text currently in buffer into qB ! ETU3 q2ET ! Set the terminal characteristics ! @}HJFile(s)? } ! Output file prompt ! Q3ET ! Restore original terminal characteristics ! ! This next loop will read in the filespecs to list. Legal terminators are : 1) - Will allow the macro to work in normal TECO mode. 2) - Will allow macro to work in MUNG environment 3) - Same as ! !GC! u1 ! Get the file types to list ! q1-27"E 88u3 jhxc hk gb OSD' ! Esc - then start listing dir. ! q1-13"E U1 jhxc hk gb OSD' ! CR - then start listing directory ! q1-10"E jhxc hk gb OSD' ! LF - then start listing directory ! q1-127"E ."E OGC' -D @\ \ OGC' ! Is it a , then do erase ! Q1I OGC ! Else Insert character into buffer and get next ! ! End of input loop ! ! This next section sets up the specs into the FILESPECS buffer and gets the wildcard lookup ready. ! !SD! enqc ! Set up wildcard specs (There're in Q-C) ! etu1 ! Set ET flag for image output ! q2et@|HJ|Q1et ! Clear the screen ! ! Ok, print a header and start looking up the files. ! @~ TECO - 11 File Directory ~ !NF! :ENU1 ! Get next wildcard match ! q1"E OEND' ! Status = 0 then all thru ! @/ / ! Leave space on left ! :G* ! Display filespecs ! @/ / ! Output ! ONF !END! @/ [No more files] / ! Tell them that there are no more files ! ]C ]B ]2 ]1 ]A ! Restore all Q-registers ! # MA Q3-88 "E ' ]3