C-PS/8 FOCAL, 1971 1.05 C LIBRAR.RE 1.10 L C FOCAL.TM 1.20 G 2.1 1.30 D 2;T !!!"THE GENERAL FORM SHOWS AND [OPTIONAL] TERMS PLUS (COMMENTS)"!!!!;G 4.1 1.38 G 2.1 1.70 T " * * * " 1.80 T :25,"(LISTS PROGRAMS AND DATA FILES WITH STANDARD"! 1.85 T :27,"NAME EXTENSIONS (.FC=PROGRAM; .FD=DATA FILES)"! 1.90 D 1.7;T "THIS COMMAND CLOSES OPEN OUTPUT FILES" 2.10 T !!"*** LIBRARY COMMANDS:"!!"LIBRARY [DEVICE:] [LINE NUMBER]"!!! 2.15 L G HFILE1.RE 3 4.10 T "LIBRARY CALL CHISQR",:25,"(LOADS PROGRAM CHISQR.FC FOR USE)"! 4.15 T "L C DTA3:PRGRAM",:25,"(LOADS PRGRAM.FC FROM DECTAPE 3)"! 4.20 T "L C TEST1",:25,"(LOADS TEST1.FC FROM DSK:)"!! 4.30 T "*LIBRARY CALL [DEVICE:]"! 4.40 T !!!! 5.10 T "LIBRARY DELETE TTEST",:25,"(UNSAVES TTEST.FC )"! 5.15 T "L D DTA7:PROG",:25,"(UNSAVES PROG.FC FROM DECTAPE 7)"! 5.17 T "L D HOLD.FD":25,"(UNSAVES DATA FILE HOLD.FD )"!! 5.25 D 1.9;D 1.7;T !! 5.30 T "*LIBRARY DELETE [DEVICE:] (ASSUMES .FC NAME EXTENSION)"! 5.40 T !!!! 6.10 T "LIBRARY GOSUB TEXT 13.7 (LINE 13.7 OF TEXT.FC BECOMES A SUBROUTINE WHICH"! 6.20 T :27,"RETURNS TO THE COMMAND FOLLOWING GOSUB )"! 6.22 T :25,"(WHEN A GOSUB IS EXECUTED BY A NEW PROGRAM,"! 6.24 T :27,"THE NEW PROGRAM WILL BE SAVED AS FOCAL.TM )"! 6.30 T "L G SUMSQR",:25,"(TREATS ENTIRE SUMSQR.FC PROGRAM AS SUBROUTINE)"! 6.40 T "L G CALC 7",:25,"(TREATS GROUP 7 OF CALC.FC LIKE A DO SUBROUTINE)"!! 6.55 D 1.9;T " IF GIVEN BY"!,:8,"AN UNSAVED VERSION OF A PROGRAM";D 1.7;T !! 6.70 T "*LIBRARY GOSUB [GROUP OR LINE NUMBER]",! 6.80 T !!!! 7.10 T "LIBRARY LIST":25,"(LISTS FOCAL FILES SAVED ON DSK:)"! 7.12 T "L L":25,"(ABBREVIATION)"! 7.15 T "LIBRARY LIST DTA3:":25,"(LISTS FILES ON DTA3:)"! 7.16 T "L L DTA6:TEST":25,"(STARTS LISTING WITH TEST.FC )"! 7.17 T " (FILE LENGTH IN BLOCKS IS ALSO PRINTED; ONE BLOCK"! 7.18 T :4,"CONTAINS ABOUT 500 CHARACTERS)"!! 7.20 T "*LIBRARY LIST [DEVICE:][FIRST FILE NAME TO BE LISTED]"!;D 1.8;D 1.85 7.60 T !!!! 8.10 T "LIBRARY RUN JOHN",:25,"(LOADS JOHN.FC THEN BEGINS PROGRAM EXECUTION)"! 8.15 T "L R DTA2:ZONK":25,"(RUNS ZONK.FC FROM DECTAPE 2)"! 8.20 T "L R POP 22.81",:25,"(STARTS EXECUTING POP.FC AT LINE 22.81)"!! 8.25 D 1.7;T "PROGRAMS CONTAINING RUNS MUST BE SAVED BEFORE EXECUTION";D 1.7;T !! 8.30 T "*LIBRARY RUN [DEVICE:] [LINE NUMBER]"! 8.50 T :25,"(TRANSFERS EXECUTION TO NAMED PROGRAM)"! 8.60 T !!!! 9.10 T "LIBRARY SAVE PROG",:25,"(SAVES THE INDIRECT PROGRAM AS PROG.FC )"! 9.25 T "L S DTA6:ZAAP":25,"(SAVES ZAAP.FC ON DECTAPE 6)"! 9.30 T "L S PRGNAM":25,"(SAVES PRGNAM.FC ON DSK:)"!! 9.40 D 1.7;T "OLD PRGNAM.FC IS DELETED WHEN NEW PRGNAM.FC IS SAVED";D 1.7;T !! 9.45 D 1.9;T " ";D 1.7;T !! 9.70 T "*LIBRARY SAVE [DEVICE:]"! 9.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