File: LIBRAR.RE of Tape: Sources/Focal/fc3
(.FC,.FO Focal format converted to 'WRITE' listing)
C-PS/8 FOCAL, 1971 01.05 C LIBRAR.RE 01.10 L C FOCAL.TM 01.20 G 2.1 01.30 D 2;T !!!"THE GENERAL FORM SHOWS <REQUIRED> AND [OPTIONAL] TERMS PLUS (COMMENTS)"!!!!;G 4.1 01.38 G 2.1 01.70 T " * * * " 01.80 T :25,"(LISTS PROGRAMS AND DATA FILES WITH STANDARD"! 01.85 T :27,"NAME EXTENSIONS (.FC=PROGRAM; .FD=DATA FILES)"! 01.90 D 1.7;T "THIS COMMAND CLOSES OPEN OUTPUT FILES" 02.10 T !!"*** LIBRARY COMMANDS:"!!"LIBRARY <COMMAND>[DEVICE:]<PROGRAM NAME> [LINE NUMBER]"!!! 02.15 L G HFILE1.RE 3 04.10 T "LIBRARY CALL CHISQR",:25,"(LOADS PROGRAM 'CHISQR.FC' FOR USE)"! 04.15 T "L C DTA3:PRGRAM",:25,"(LOADS 'PRGRAM.FC' FROM DECTAPE #3)"! 04.20 T "L C TEST1",:25,"(LOADS 'TEST1.FC' FROM DSK:)"!! 04.30 T "*LIBRARY CALL [DEVICE:]<PROGRAM NAME>"! 04.40 T !!!! 05.10 T "LIBRARY DELETE TTEST",:25,"(UNSAVES 'TTEST.FC')"! 05.15 T "L D DTA7:PROG",:25,"(UNSAVES 'PROG.FC' FROM DECTAPE #7)"! 05.17 T "L D HOLD.FD":25,"(UNSAVES DATA FILE 'HOLD.FD')"!! 05.25 D 1.9;D 1.7;T !! 05.30 T "*LIBRARY DELETE [DEVICE:]<PROGRAM NAME> (ASSUMES .FC NAME EXTENSION)"! 05.40 T !!!! 06.10 T "LIBRARY GOSUB TEXT 13.7 (LINE 13.7 OF 'TEXT.FC' BECOMES A SUBROUTINE WHICH"! 06.20 T :27,"RETURNS TO THE COMMAND FOLLOWING 'GOSUB')"! 06.22 T :25,"(WHEN A 'GOSUB' IS EXECUTED BY A NEW PROGRAM,"! 06.24 T :27,"THE NEW PROGRAM WILL BE SAVED AS 'FOCAL.TM')"! 06.30 T "L G SUMSQR",:25,"(TREATS ENTIRE 'SUMSQR.FC' PROGRAM AS SUBROUTINE)"! 06.40 T "L G CALC 7",:25,"(TREATS GROUP 7 OF 'CALC.FC' LIKE A 'DO' SUBROUTINE)"!! 06.55 D 1.9;T " IF GIVEN BY"!,:8,"AN UNSAVED VERSION OF A PROGRAM";D 1.7;T !! 06.70 T "*LIBRARY GOSUB <PROGRAM NAME> [GROUP OR LINE NUMBER]",! 06.80 T !!!! 07.10 T "LIBRARY LIST":25,"(LISTS FOCAL FILES SAVED ON DSK:)"! 07.12 T "L L":25,"(ABBREVIATION)"! 07.15 T "LIBRARY LIST DTA3:":25,"(LISTS FILES ON DTA3:)"! 07.16 T "L L DTA6:TEST":25,"(STARTS LISTING WITH 'TEST.FC')"! 07.17 T " (FILE LENGTH IN BLOCKS IS ALSO PRINTED; ONE BLOCK"! 07.18 T :4,"CONTAINS ABOUT 500 CHARACTERS)"!! 07.20 T "*LIBRARY LIST [DEVICE:][FIRST FILE NAME TO BE LISTED]"!;D 1.8;D 1.85 07.60 T !!!! 08.10 T "LIBRARY RUN JOHN",:25,"(LOADS 'JOHN.FC' THEN BEGINS PROGRAM EXECUTION)"! 08.15 T "L R DTA2:ZONK":25,"(RUNS 'ZONK.FC' FROM DECTAPE #2)"! 08.20 T "L R POP 22.81",:25,"(STARTS EXECUTING 'POP.FC' AT LINE 22.81)"!! 08.25 D 1.7;T "PROGRAMS CONTAINING 'RUNS' MUST BE SAVED BEFORE EXECUTION";D 1.7;T !! 08.30 T "*LIBRARY RUN [DEVICE:]<PROGRAM NAME> [LINE NUMBER]"! 08.50 T :25,"(TRANSFERS EXECUTION TO NAMED PROGRAM)"! 08.60 T !!!! 09.10 T "LIBRARY SAVE PROG",:25,"(SAVES THE INDIRECT PROGRAM AS 'PROG.FC')"! 09.25 T "L S DTA6:ZAAP":25,"(SAVES 'ZAAP.FC' ON DECTAPE #6)"! 09.30 T "L S PRGNAM":25,"(SAVES 'PRGNAM.FC' ON DSK:)"!! 09.40 D 1.7;T "OLD 'PRGNAM.FC' IS DELETED WHEN NEW 'PRGNAM.FC' IS SAVED";D 1.7;T !! 09.45 D 1.9;T " ";D 1.7;T !! 09.70 T "*LIBRARY SAVE [DEVICE:]<PROGRAM NAME>"! 09.80 T !!!! 10.10 T "L E":25,"(ABBREVIATION)"!! 10.20 T "*LIBRARY EXIT":25,"(LEAVES FOCAL; RETURNS TO PS/8 MONITOR)"!!! 10.30 T !! 11.10 G 11+Q 11.20 L R HFILE1.RE 1.2 11.31 L R HFILE1.RE 1.2 11.33 L R HELP 4.7