File: LISTAL.RD of Tape: Sources/Focal/fc3

(Source file text) 

---

COMMENT:  'LISTAL.RE' 8/17/71 BY H. WHITNEY OF OMSI
COMMENT:  LIST PROGRAMS AND FILES OF THE 'HELP' PACKAGE
COMMENT:  BY GIVING THE 'OPEN INPUT LISTAL.RD' COMMAND
COMMENT:  WHILE IN PS/8 FOCAL'S COMMAND MODE (IMMEDIATE MODE).
E
E A
1.1 O I TTY:,E
1.2 A !"DO YOU WISH LINE PRINTER OUTPUT? ",LP,!
1.3 IF (LP-0YES)1.5,1.4,1.5
1.4 O O LPT:
1.5 O R I;Q
G
L C HELP
W
T !!!;S D=FOUT(140);L C HELPER.RE
W
T !!!;S D=FOUT(140);L C LIBRAR.RE
W
T !!!;S D=FOUT(140);L C HFILE1.RE
W
T !!!;S D=FOUT(140);L C HFILE2.RE
W
T !!!;S D=FOUT(140);L C COMMA1.RE
W
T !!!;S D=FOUT(140);L C COMMA2.RE
W
T !!!;S D=FOUT(140);L C COMMA3.RE
W
T !!!;S D=FOUT(140);L C INDEX.RE
W
T !!!;S D=FOUT(140);L C HERROR.RE
W
T !!!;S D=FOUT(140);L C FUNCT1.RE
W
T !!!;S D=FOUT(140);L C FUNCT2.RE
W
T !!!;S D=FOUT(140);L C SYMBO1.RE
W
T !!!;S D=FOUT(140);L C SYMBO2.RE
W
T !!!;S D=FOUT(140);L C SUMCOM.RE
W
T !!!;S D=FOUT(140);L C MISCL1.RE
W
T !!!;S D=FOUT(140);L C MISCL2.RE
W
T !!!;S D=FOUT(140);L C MISCL3.RE
W
T !!!;S D=FOUT(140)
E
E A
1.1 O I TTY:,E
1.2 T "DATA FILES:"!!!
1.3 T "DIRECA.RD"!!
1.4 O I DIRECA.RD
1.5 S P=1.7;S B=1.6;S Z=154;S L=138;S Q=1.55;G 1.6
1.55 S X=FOUT(D)
1.6 S D=FIN();I (Z-D)Q,P;I (-FABS(D-L))Q,B
1.7 T !!!
1.8 T "DIRECI.RD"!;O I DIRECI.RD
1.9 S P=2.1;G 1.6
2.1 D 1.7;T "DIRECR.RD"!;O I DIRECR.RD;S P=2.2;G 1.6
2.2 D 1.7;T "SDIREC.RD"!;O I SDIREC.RD;S P=2.3;G 1.6
2.3 D 1.7;T !;O C;O I TTY:,E;E A
G

---