COMMENT:  'GIVE 'OPEN INPUT LISTAL.FD' COMMAND FROM COMMAND MODE TO LIST
COMMENT:  PROGRAMS AND FILES IN THE 'PUBLIC LIBRARY'
COMMENT:  WHILE IN PS/8 FOCAL'S COMMAND MODE (IMMEDIATE MODE).
E
E A
1.1 O I TTY:,E;A !"DO YOU WISH LINE PRINTER OUTPUT? ",LP,!
1.3 O R I;I (FABS(LP-0YES)),1.4;Q
1.4 O O LPT:
G
L C CATLOG
W
T !!!;S D=FOUT(140);L C HELP
W
T !!!;S D=FOUT(140);L C INTRST
W
T !!!;S D=FOUT(140);L C CHISQR
W
T !!!;S D=FOUT(140);L C STAT1
W
T !!!;S D=FOUT(140);L C STAT2
W
T !!!;S D=FOUT(140);L C ADDEX
W
T !!!;S D=FOUT(140);L C BARON
W
T !!!;S D=FOUT(140);L C TRIANG
W
T !!!;S D=FOUT(140);L C CALNDR
W
T !!!;S D=FOUT(140);L C HANGMN
W
T !!!;S D=FOUT(140);L C HANOI
W
T !!!;S D=FOUT(140);L C PLOTER
W
T !!!;S D=FOUT(140);L C POLAR
W
T !!!;S D=FOUT(140);L C GRAPH
W
T !!!;S D=FOUT(140);L C HARMON
W
T !!!;S D=FOUT(140);L C WEB
W
T !!!;S D=FOUT(140);L C BTLSHP
W
E
E A
1.1 O I ERASE;T !!"DATA FILES:"!!!"'ERASE.FD' FOR BTLSHP"!!!
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 "'HANGWD' FOR HANGMAN:"!!;O I HANGWD;S P=2.1;G 1.6
2.1 T !!!;S D=FOUT(140);T "'LISTAL.FD' COMMAND DATA FILE:"!!;O I LISTAL
2.2 S P=2.3;G 1.6
2.3 D 1.7;T !;O C;O I TTY:,E;E A
G