File: HFILE1.RE of Tape: Sources/Focal/fc3
(.FC,.FO Focal format converted to 'WRITE' listing)
C-PS/8 FOCAL, 1971
01.05 C HFILE1.RE
01.10 L C FOCAL.TM
01.20 G 2.1
01.90 S DU=FOUT(162)
02.10 T !!!"*** THE EXPERIENCED PROGRAMMER MAY READ AND WRITE PS/8 COMPATIBLE DATA"!
02.12 T "FILES WITH MANY DEVICES."!!
02.14 T "PS/8 FOCAL ASSUMES .FC AND .FD AS NAME EXTENSIONS FOR PROGRAM AND"!
02.16 T "DATA FILES RESPECTIVELY. DATA FILES ARE SAVED IN STANDARD PS/8 ASCII"!
02.18 T "FORMAT AND ARE EDIT AND TECO-8 COMPATIBLE."!!
02.20 T "THE TERMINAL (TTY:) IS PS/8 FOCAL'S NORMAL INPUT AND OUTPUT DEVICE."!
02.22 T "THE 'OPEN INPUT' COMMAND PERMITS SELECTING ANOTHER DEVICE FOR INPUT"!
02.24 T "'OPEN OUTPUT' DOES THE SAME FOR OUTPUT. BE SURE TO CLOSE ONE OUTPUT"!
02.26 T "FILE BEFORE OPENING ANOTHER."!!
02.28 T "',ECHO' ADDED TO THE INPUT COMMANDS ECHOES THE INPUT DATA ON THE OUTPUT"!
02.30 T "DEVICE. WHEN ADDED TO OUTPUT COMMANDS, IT CAUSES THE OUTPUT TO BE ECHOED"!
02.32 T "ON THE TERMINAL."!!
02.34 T "'OUTPUT CLOSE' EMPTIES THE OUTPUT BUFFER ONTO THE DEVICE AND SAVES THE"!
02.36 T "FILE IF THE DEVICE IS FILE STRUCTURED (DISK OR MAGNETIC TAPE)."!!
02.40 T "THE 'OPEN INPUT TTY:,ECHO' COMMAND WILL RESTORE THE TERMINAL AS THE"!
02.42 T "INPUT DEVICE WITH ECHO. AFTER AN ERROR OCCURS OR 'CTRL/P' IS STRUCK,"!
02.44 T "THE TERMINAL IS RESTORED AS BOTH INPUT AND OUTPUT DEVICE."!!
02.46 T "READING AND WRITING CAN BE RESUMED WITH PREVIOUSLY OPENED NON-TTY:"!
02.48 T "DEVICES THROUGH 'OPEN RESTORE INPUT' AND 'OPEN RESTORE OUTPUT' COMMANDS."!!
02.50 T "NOTE: WHEN WRITING FOCAL DATA FILES, IT IS NECESSARY TO INCLUDE A"!
02.52 T "SPACE, COMMA, CARRIAGE RETURN OR OTHER DELIMITER PRECEDING ANY MINUS"!
02.54 T "SIGNS, OTHERWISE THE NUMBER WILL APPEAR POSITIVE WHEN 'ASKED'. A"!
02.56 T "PRECEDING SPACE WILL BE AUTOMATICALLY 'TYPED' IF THE INITIAL DIALOGUE"!
02.58 T "RECEIVES AN ANSWER OF 'YES' OR '4,5'."!!!
03.10 T "*** PS/8 DEVICE NAMES:"!!
03.20 T "SYS: SYSTEM DEVICE (DSK: IN DISK SYSTEM; DTA0: IN DECTAPE SYSTEM)"!
03.30 T "DSK: THE DISK IN DISK SYSTEMS; DECTAPE #1 IN DECTAPE SYSTEMS"!
03.40 T :9,"('DSK:' IS ASSUMED IF A DEVICE IS NOT SPECIFIED)"!
03.50 T "DTA0: - DTA7: DECTAPE DRIVES"!
03.55 T "LTA0: - LTA7: LINCTAPE DRIVES"!
03.60 T "MTA0: - MTA7: MAGTAPE DRIVES"!
03.70 T "PTR: HIGH SPEED READER"!"PTP: HIGH SPEED PUNCH"!
03.75 T "LPT: LINE PRINTER"!
03.80 T "TTY: TERMINAL (MAY BE USED WITH OTHER DEVICES THROUGH 'ECHO')"!!!!!
04.10 T !!!"OPEN INPUT BLEEP":23,"(SWITCHES INPUT TO 'BLEEP.FD' FILE ON DSK:)"!
04.20 T "O I DTA4:RED":23,"(OPENS 'RED.FD' FILE ON DECTAPE DRIVE #4)"!
04.30 T "O I TABLE,ECHO":23,"(WILL ECHO ON OUTPUT DEVICE WHILE READING 'TABLE.FD'"!
04.35 T :25,"FROM THE DSK:)"!
04.40 T "OPEN INPUT TTY:,ECHO":23,"(RESTORES TERMINAL TO NORMAL FUNCTION)"!
04.50 T "O I TTY:,E":23,"(ABBREVIATION)"!!
04.60 T " * * * "
04.70 T "CTRL/Z IS THE END-OF-DATA-FILE CHARACTER. ATTEMPTS TO READ PAST IT"!
04.80 T :8,"WILL OUTPUT A '?' AND SWITCH INPUT TO THE TERMINAL. ";D 4.6;T !!
04.90 T "*OPEN INPUT [DEVICE:][FILE NAME][,ECHO] (PREPARES TO READ A FILE)"!
04.95 T !!!!
05.10 L R HFILE2.RE 5.1