File: SUMCOM.RE of Tape: Sources/Focal/fc3
(.FC,.FO Focal format converted to 'WRITE' listing)
C-PS/8 FOCAL, 1971 01.05 C SUMCOM.RE 01.10 L C FOCAL.TM 01.20 G 2.1 01.30 S D=FOUT(162) 02.10 T " ELEMENTARY COMMANDS"!! 02.12 T "*ASK <X> ..........ACCEPT VALUE OF X FROM INPUT DEVICE"! 02.14 T "*COMMENT ..........................IGNORE REST OF LINE"! 02.16 T "*DO [LINE OR GROUP NUMBER] ............SUBROUTINE CALL"! 02.18 T "*ERASE .................................ZERO VARIABLES"! 02.20 T "*ERASE <LINE OR GROUP NUMBER> ....DELETE LINE OR GROUP"! 02.22 T "*ERASE ALL .............DELETE ENTIRE INDIRECT PROGRAM"! 02.24 T "*FOR X=E1[,E2],E3; COMMAND REPEATED (E3-E1)/E2+1 TIMES"! 02.26 T "*GO [L1] ...........START PROGRAM EXECUTION AT LINE L1"! 02.28 T "*IF (E1)L1[,L2,L3] ...............BRANCH ON SIGN OF E1"! 02.30 T "*MODIFY <L1> .............................EDIT LINE L1"! 02.32 T "*QUIT ..................................STOP EXECUTION"! 02.34 T "*RETURN ..........TERMINATE 'DO' OR 'GOSUB' SUBROUTINE"! 02.36 T "*SET X=<E1> ...............ASSIGN VALUE E1 TO VARIABLE"! 02.38 T "*TYPE [NUMBERS, E1, ";D 1.3;T "TEXT";D 1.3;T ", !, #, :, $ OR %] ...OUTPUT"! 02.40 T "*WRITE [LINE OR GROUP NUMBER] ............LIST PROGRAM"!!! 02.42 T " LIBRARY AND FILE COMMANDS"!! 02.44 T "*LIBRARY CALL [DEVICE:]<PROGRAM> .........LOAD PROGRAM"! 02.46 T "*LIBRARY DELETE [DEVICE:]<PROGRAM> .....UNSAVE PROGRAM"! 02.48 T "*LIBRARY GOSUB [DEVICE:]<PROGRAM> [G1] SUBROUTINE CALL"! 02.50 T "*LIBRARY LIST [DEVICE:][FIRST LISTED FILE] ....CATALOG"! 02.52 T "*LIBRARY RUN [DEVICE:]<PROGRAM> [L1] ............CHAIN"! 02.54 T "*LIBRARY SAVE [DEVICE:]<PROGRAM> .........SAVE PROGRAM"! 02.56 T "*LIBRARY EXIT ..................RETURN TO PS/8 MONITOR"!! 02.58 T "*OPEN INPUT [DEVICE:][FILE][,ECHO] ....PREPARE TO READ"! 02.60 T "*OPEN OUTPUT [DEVICE:][FILE][,ECHO] ..PREPARE TO WRITE"! 02.61 T "*OPEN RESTORE INPUT[,ECHO] .....RESUME INPUT FROM FILE"! 02.62 T "*OPEN RESTORE OUTPUT[,ECHO] .....RESUME OUTPUT TO FILE"! 02.63 T "*OUTPUT CLOSE ......OUTPUTS BUFFER; CLOSES OUTPUT FILE"!! 02.64 T "---INPUT---,ECHO ........ECHO INPUT ONTO OUTPUT DEVICE"! 02.65 T "---OUTPUT---,ECHO ...........ECHO OUTPUT ONTO TERMINAL"! 02.66 T ".FC & .FD ARE THE PROGRAM & DATA FILE NAME EXTENSIONS."!! 02.68 T " - - - - -"!! 02.69 T "<> ENCLOSE REQUIRED TERMS. [] ENCLOSE OPTIONAL TERMS."! 02.70 T "ONE LETTER ABBREVIATIONS MAY BE USED AS COMMAND WORDS."! 02.72 T "X REPRESENTS A VARIABLE. E1, E2 AND E3 ARE ARITHMETIC"! 02.74 T "EXPRESSIONS. L1, L2 AND L3 ARE LINE NUMBERS. G1 IS A"! 02.76 T "LINE OR GROUP NUMBER. L1-L3 AND G1 CAN BE REPLACED BY"! 02.78 T "ARITHMETIC EXPRESSIONS WHICH DO NOT BEGIN WITH AN 'A'."!!!!! 03.10 L R HELP 4.7