File: SYMBO2.RE of Tape: Sources/Focal/fc3
(.FC,.FO Focal format converted to 'WRITE' listing)
C-PS/8 FOCAL, 1971
01.05 C SYMBO2.RE
01.10 L C FOCAL.TM
01.20 C
06.10 T "POWER OF TEN":20,"[E OR &]"!
06.12 T "'E' MAY BE CHANGED TO '&' IN THE INITIAL DIALOGUE"!
06.15 T % 6.04
06.20 T "SEE WHAT THE '",% 6.04
06.22 I (#)6.25,6.6,6.6
06.25 T "&"
06.30 T "' DOES TO LINE "
06.35 T "6.55"
06.40 T " FIRST WRITTEN THEN EXECUTED:"!
06.50 W 6.55
06.55 TYPE 1&1,7&3,1.23&-2,3.76&217,!!!!!
06.58 G 6.9
06.60 T "E' DOES TO LINE 6.80 FIRST WRITTEN THEN EXECUTED:"!;W 6.8
06.80 TYPE 1E1,7E3,1.23E-2,3.76E217,!!!!!
06.90 C
08.10 T "RUBOUT KEY"!
08.20 T "WHEN WRITING A PROGRAM, ONE CHARACTER WILL BE ERASED EACH TIME"!
08.30 T "THE RUBOUT KEY IS STRUCK; RUBOUT WILL SHOW AS A '\' --- THUS:"!
08.40 T "'PLWEA\\\EASE' BECOMES 'PLEASE'."!!!!!
10.10 T "CTRL/C (PRESSING 'CTRL' AND 'C' AT THE SAME TIME)"!
10.20 T "WILL RETURN USER TO THE PS/8 MONITOR WHEN FOCAL IS USING PS/8"!
10.30 T "ROUTINES --- THE 'LIBRARY EXIT' COMMAND IS PREFERRED FOR"!
10.40 T "LEAVING PS/8 FOCAL,1971. CTRL/P IS THE BREAK CHARACTER."!!!!
12.10 T "CTRL/G [BELL] (PRESSING 'CTRL' AND 'G' AT THE SAME TIME)"!
12.20 T "USED WITH THE 'MODIFY' COMMAND TO CHANGE THE SEARCH CHARACTER."!!!!!
14.10 T "CTRL/L (PRESSING 'CTRL' AND 'L' AT THE SAME TIME)"!
14.20 T "USED WITH 'MODIFY' TO SKIP TO THE NEXT SEARCH CHARACTER."!!!!!
16.10 T "CTRL/P (PRESSING 'CTRL' AND 'P' AT THE SAME TIME)"!
16.20 T "PS/8 FOCAL'S BREAK CHARACTER --- ENDS PROGRAM EXECUTION AND CAUSES"!
16.30 T "FOCAL TO PRINT ITS '*'."!!!!
18.10 T "CTRL/Z (PRESSING 'CTRL' AND 'Z' AT THE SAME TIME)"!
18.20 T "IS THE LAST CHARACTER IN A PS/8 FOCAL DATA FILE. ATTEMPTS TO READ"!
18.30 T "PAST THE END-OF-FILE WILL CAUSE A '?' TO BE TYPED ON THE TERMINAL"!
18.40 T "AND WILL RESTORE THE TERMINAL AS THE INPUT DEVICE."!!!!
21.10 T "LINE FEED"!
21.20 T "USED WITH THE 'MODIFY' COMMAND TO RETAIN REMAINDER OF MODIFIED LINE."!!!!
22.10 T "KILL LINE":20,"["
22.20 S X=FOUT(223)
22.30 T "] (BACK ARROW)"!
22.40 T "WHEN WRITING A PROGRAM, '";D 22.2;T "' DELETES EVERYTHING"
22.50 T " OVER TO LEFT MARGIN."!
22.60 T "IN RESPONSE TO 'ASK' COMMAND, '";D 22.2;T "' KILLS "
22.70 T "THE NUMBER BEING ENTERED."!!!!
23.10 T "RETURN KEY"!
23.20 T "USED WITH THE 'MODIFY' COMMAND TO DELETE REMAINDER OF MODIFIED LINE."!
23.30 T "'RETURN' IS A LEGAL SYMBOL FOR SEPARATING DATA PROVIDED TO AN 'ASK'"!
23.40 T "COMMAND."!!!!
24.10 T "ALT MODE KEY ('ESCAPE' OR 'PREFIX' ON SOME TERMINALS)"!
24.20 T "IN RESPONSE TO AN 'ASK' COMMAND, ALT MODE RETAINS THE PREVIOUS"!
24.30 T "VALUE OF THE VARIABLE."!!!!
25.10 T "SPACE KEY"!
25.20 T "IT IS A LEGAL SYMBOL FOR SEPARATING DATA REQUESTED BY AN 'ASK'"!!!!
26.10 T "COMMA":20,"[,]"!
26.15 T %6.04
26.20 T "IT IS A LEGAL SYMBOL FOR SEPARATING DATA IN TYPE AND ASK COMMANDS."!
26.30 D 6.2;T ",";D 6.3;T "26.40";D 6.4;W 26.4
26.40 TYPE 2,3,5/6,12^3,!!!!
27.10 T "SEMICOLON":20,"[;]"!
27.20 T "SEPARATES COMMANDS WHEN PLACED TOGETHER ON ONE LINE"!
27.30 D 6.2;T ";";D 6.3;T "27.42";D 6.4;W 27.42
27.42 SET X=17;TYPE 3*X;SET X=3/7; TYPE " ",X+3,!!!!
28.10 G 28+Q
28.20 L R FUNCT1.RE 1.2
28.41 G 28.43
28.43 L R HELP 4.7