()0Y2BTC-PS/8 FOCAL, 1971?MB]BEC LIBRAR.RE?MB&BJL C FOCAL.TM?MB,BTG 2.1?MC]B^D 2;T !!!"THE GENERAL FORM SHOWS <REQUIRED> AND [OPTIONAL] TERMS PLUS (COMMENTS)"!!!!;G 4.1?MCB&G 2.1?MC,CFT " * * * "?MDJCPT :25,"(LISTS PROGRAMS AND DATA FILES WITH STANDARD"!?
WSCUT :27,"NAME EXTENSIONS (.FC=PROGRAM; .FD=DATA FILES)"!?MMSDOL G HFILE1.RE 3?MEKH^T "*LIBRARY CALL [DEVICE:]<PROGRAM NAME>"!?MN5H(T !!!!?ME\JYD 1.9;D 1.7;T !!?MFEJ^T "*LIBRARY DELETE [DEVICE:]<PROGRAM NAME>   (ASSUMES .FC NAME EXTENSION)"!?MPPJ(T !!!!?
F	LTT :27,"RETURNS TO THE COMMAND FOLLOWING 	GOSUB	)"!?MGELVT :25,"(WHEN A 	GOSUB	 IS EXECUTED BY A NEW PROGRAM,"!?MP;LXT :27,"THE NEW PROGRAM WILL BE SAVED AS 	FOCAL.TM	)"!?MG)MPT !!!!?MR+NJT "LIBRARY LIST":25,"(LISTS FOCAL FILES SAVED ON DSK:)"!?MXUNOT 
LIBRARY LIST DTA3:":25,"(LISTS FILES ON DTA3:)"!?MR<NQT "  (FILE LENGTH IN BLOCKS  IS ALSO PRINTED; ONE BLOCK"!?MS:N<T !!!!?MUHPYD 1.7;T "PROGRAMS CONTAINING 	RUNS	 MUST BE SAVED BEFORE EXECUTION";D 1.7;T !!?MJPP2T :25,"(TRANSFERS EXECUTION TO NAMED PROGR
M)"!?MU	P<T !!!!?MJ$R-D 1.9;T " ";D 1.7;T !!?MJ<SFT "*LIBRARY SAVE [DEVICE:]<PROGRAM NAME>"!?MKBSPT !!!!?MKTTJT "L E":25,"(ABBREVIATION)"!!?MK8TTT "*LIBRARY EXIT":25,"(LEAVES FOCAL; RETURNS TO PS/8 MONITOR)"!!!?MK=T^T !!?MLCVJG 11+Q?MLOVTL R HFILE1.RE 1.2
ML[V
L R HFILE1.RE 1.2?MV!L R HELP 4.7?MD(DJT !!"*** LIBRARY COMMANDS:"!!"LIBRARY <COMMAND>[DEVICE:]<PROGRAM NAME> [LINE NUMBER]"!!!?MM7HJT "LIBRARY CALL CHISQR",:25,"(LOADS PROGRAM 	CHISQR.FC	 FOR USE)"!?MNYHOT "L C DTA3:PRGRAM",:25,"(LOADS 	PRGRAM.FC	 FROM D
CTAPE 3)"!?MD3HTT "L C TEST1",:25,"(LOADS 	TEST1.FC	 FROM DSK:)"!!?MORJJT "LIBRARY DELETE TTEST",:25,"(UNSAVES 	TTEST.FC	)"!?MO3JOT "L D DTA7:PROG",:25,"(UNSAVES 	PROG.FC	 FROM DECTAPE 7)"!?MEQJQT "L D HOLD.FD":25,"(UNSAVES DATA FILE 	HOLD.FD	)"!!?MFKLJT 
LIBRARY GOSUB TEXT 13.7 (LINE 13.7 OF 	TEXT.FC	 BECOMES A SUBROUTINE WHICH"!?MQ"L^T "L G SUMSQR",:25,"(TREATS ENTIRE 	SUMSQR.FC	 PROGRAM AS SUBROUTINE)"!?MW.L(T "L G CALC 7",:25,"(TREATS GROUP 7 OF 	CALC.FC	 LIKE A 	DO	 SUBROUTINE)"!!?MGMFT "*LIBRARY GOSU
 <PROGRAM NAME> [GROUP OR LINE NUMBER]",!?MHHNLT "L L":25,"(ABBREVIATION)"!?MSSNRT :4,"CONTAINS ABOUT 500 CHARACTERS)"!!?MIENTT "*LIBRARY LIST [DEVICE:][FIRST FILE NAME TO BE LISTED]"!;D 1.8;D 1.85?MX4PJT "LIBRARY RUN JOHN",:25,"(LOADS 	JOHN.FC	 THEN BEGI
S PROGRAM EXECUTION)"!?MIKPTT "L R POP 22.81",:25,"(STARTS EXECUTING 	POP.FC	 AT LINE 22.81)"!!?MI5P^T "*LIBRARY RUN [DEVICE:]<PROGRAM NAME> [LINE NUMBER]"!?MYSRJT "LIBRARY SAVE PROG",:25,"(SAVES THE INDIRECT PROGRAM AS 	PROG.FC	)"!?MV)R^T "L S PRGNAM":25
"(SAVES 	PRGNAM.FC	 ON DSK:)"!!?MJVR(D 1.7;T "OLD 	PRGNAM.FC	 IS DELETED WHEN NEW 	PRGNAM.FC	 IS SAVED";D 1.7;T !!?ML$CZD 1.7;T "THIS COMMAND CLOSES OPEN OUTPUT FILES"?MRKL7D 1.9;T " IF GIVEN BY"!,:8,"AN UNSAVED VERSION OF A PROGRAM";D 1.7;T !!?MH%NPT "L 
 DTA6:TEST":25,"(STARTS LISTING WITH 	TEST.FC	)"!?MTPOT "L R DTA2:ZONK":25,"(RUNS 	ZONK.FC	 FROM DECTAPE 2)"!?MVMRYT "L S DTA6:ZAAP":25,"(SAVES 	ZAAP.FC	 ON DECTAPE 6)"!?MD L S LIBRAR.RE?M?AP":25,"(S

Note: Lines longer than 256 characters were wrapped