C-PS/8 FOCAL, 1971
 1.05 C HFILE1.RE
 1.10 L C FOCAL.TM
 1.20 G 2.1
 1.90 S DU=FOUT(162)
 2.10 T !!!"*** THE EXPERIENCED PROGRAMMER MAY READ AND WRITE PS/8 COMPATIBLE DATA"!
 2.12 T "FILES WITH MANY DEVICES."!!
 2.14 T "PS/8 FOCAL ASSUMES .FC AND .FD AS NAME EXTENSIONS FOR PROGRAM AND"!
 2.16 T "DATA FILES RESPECTIVELY.  DATA FILES ARE SAVED IN STANDARD PS/8 ASCII"!
 2.18 T "FORMAT AND ARE EDIT AND TECO-8 COMPATIBLE."!!
 2.20 T "THE TERMINAL (TTY:) IS PS/8 FOCAL	S NORMAL INPUT AND OUTPUT DEVICE."!
 2.22 T "THE 	OPEN INPUT	 COMMAND PERMITS SELECTING ANOTHER DEVICE FOR INPUT"!
 2.24 T "	OPEN OUTPUT	 DOES THE SAME FOR OUTPUT.  BE SURE TO CLOSE ONE OUTPUT"!
 2.26 T "FILE BEFORE OPENING ANOTHER."!!
 2.28 T "	,ECHO	 ADDED TO THE INPUT COMMANDS ECHOES THE INPUT DATA ON THE OUTPUT"!
 2.30 T "DEVICE.  WHEN ADDED TO OUTPUT COMMANDS, IT CAUSES THE OUTPUT TO BE ECHOED"!
 2.32 T "ON THE TERMINAL."!!
 2.34 T "	OUTPUT CLOSE	 EMPTIES THE OUTPUT BUFFER ONTO THE DEVICE AND SAVES THE"!
 2.36 T "FILE IF THE DEVICE IS FILE STRUCTURED (DISK OR MAGNETIC TAPE)."!!
 2.40 T "THE 	OPEN INPUT TTY:,ECHO	 COMMAND WILL RESTORE THE TERMINAL AS THE"!
 2.42 T "INPUT DEVICE WITH ECHO.  AFTER AN ERROR OCCURS OR 	CTRL/P	 IS STRUCK,"!
 2.44 T "THE TERMINAL IS RESTORED AS BOTH INPUT AND OUTPUT DEVICE."!!
 2.46 T "READING AND WRITING CAN BE RESUMED WITH PREVIOUSLY OPENED NON-TTY:"!
 2.48 T "DEVICES THROUGH 	OPEN RESTORE INPUT	 AND 	OPEN RESTORE OUTPUT	 COMMANDS."!!
 2.50 T "NOTE:  WHEN WRITING FOCAL DATA FILES, IT IS NECESSARY TO INCLUDE A"!
 2.52 T "SPACE, COMMA, CARRIAGE RETURN OR OTHER DELIMITER PRECEDING ANY MINUS"!
 2.54 T "SIGNS, OTHERWISE THE NUMBER WILL APPEAR POSITIVE WHEN 	ASKED	.  A"!
 2.56 T "PRECEDING SPACE WILL BE AUTOMATICALLY 	TYPED	 IF THE INITIAL DIALOGUE"!
 2.58 T "RECEIVES AN ANSWER OF 	YES	 OR 	4,5	."!!!
 3.10 T "*** PS/8 DEVICE NAMES:"!!
 3.20 T "SYS:    SYSTEM DEVICE (DSK: IN DISK SYSTEM; DTA0: IN DECTAPE SYSTEM)"!
 3.30 T "DSK:    THE DISK IN DISK SYSTEMS; DECTAPE 1 IN DECTAPE SYSTEMS"!
 3.40 T :9,"(	DSK:	 IS ASSUMED IF A DEVICE IS NOT SPECIFIED)"!
 3.50 T "DTA0: - DTA7:   DECTAPE DRIVES"!
 3.55 T "LTA0: - LTA7:   LINCTAPE DRIVES"!
 3.60 T "MTA0: - MTA7:   MAGTAPE DRIVES"!
 3.70 T "PTR:    HIGH SPEED READER"!"PTP:    HIGH SPEED PUNCH"!
 3.75 T "LPT:    LINE PRINTER"!
 3.80 T "TTY:    TERMINAL (MAY BE USED WITH OTHER DEVICES THROUGH 	ECHO	)"!!!!!
 4.10 T !!!"OPEN INPUT BLEEP":23,"(SWITCHES INPUT TO 	BLEEP.FD	 FILE ON DSK:)"!
 4.20 T "O I DTA4:RED":23,"(OPENS 	RED.FD	 FILE ON DECTAPE DRIVE 4)"!
 4.30 T "O I TABLE,ECHO":23,"(WILL ECHO ON OUTPUT DEVICE WHILE READING 	TABLE.FD	"!
 4.35 T :25,"FROM THE DSK:)"!
 4.40 T "OPEN INPUT TTY:,ECHO":23,"(RESTORES TERMINAL TO NORMAL FUNCTION)"!
 4.50 T "O I TTY:,E":23,"(ABBREVIATION)"!!
 4.60 T " * * * "
 4.70 T "CTRL/Z IS THE END-OF-DATA-FILE CHARACTER.  ATTEMPTS TO READ PAST IT"!
 4.80 T :8,"WILL OUTPUT A 	
	 AND SWITCH INPUT TO THE TERMINAL. ";D 4.6;T !!
 4.90 T "*OPEN INPUT [DEVICE:][FILE NAME][,ECHO]    (PREPARES TO READ A FILE)"!
 4.95 T !!!!
 5.10 L R HFILE2.RE 5.1