INDEX

 INDEX		PROGRAM WRITEUP INDEX.		04/24/75.
 -----		*=*=*=*=*=*=*=*=*=*=*


 CS

 CS		SOURCE & BINARY ON MH#1.	04/24/75.
 --		*=*=*=*=*=*=*=*=*=*=*=*


 CS	(COPY SHIFT) SENDS TEXT FROM A OS/8 LINC TAPE FILE TO THE
	PRINTC 100 (LINE PRINTER, LPT:). THE FIRST LINE OF THE TEXT
	IS USED AS THE LABEL (CHRS 2-8). IF THE TEXT HAS AN
	EOR (CTRL/Y) AT THE VERY BEGINNING OF THE FILE, THE TITLE
	LINE IS SKIPPED. ALL FOLLOWING EOR CHARACTERS CAUSE A
	PAGE EJECT AND A NEW TITLE LINE WITH LABELING FROM THE
	NEXT LINE. "CS" REQUESTS ANOTHER FILE AFTER READING
	AN EOF (STANDARD OS/8 TEXT FILES ARE TERMINATED BY CTRL/Z).
	TYPE CTRL/C TO TERMINATE "CS" AND EXIT TO THE OS/8 MONITOR.


	EXAMPLE RUN:

 CRT:	.CS
 TTY:1	FILE? ------ EXT? -- UNIT? --
 TTY:2	ARE YOU SURE? -


 TTY1:	FILE	INPUT FILE NAME, LEFT JUSTIFIED, @ SIGN FILLED
		TO 6 CHARACTERS.

	EXT	TWO CHARACTER FILE EXTENSION.

	UNIT	0 IS UNIT 0 (SYS:), 1 IS UNIT 1 (DSK:).

 TTY2:		ENTER "Y" TO PRINT THE FILE, "N" TO
		RE-ENTER FILE PARAMETERS AGAIN.


 PUNCHR

 PUNCHR		SOURCE & BINARY ON MH#1.		08/21/74.
 ------		*=*=*=*=*=*=*=*=*=*=*=*


 AT ANY TIME WHEN THE QUESTION MARK APPEARS, TYPE IN A LINE
 CONTAINING 6-BIT CHARACTERS TO BE PUNCHED FOLLOWED BY A
 CARRIAGE RETURN. "PUNCHR" WILL PAUSE TO ALLOW THE PAPER TAPE
 PUNCH TO BE TURNED ON. TYPE ANY CHARACTER, WHICH WILL NOT BE
 PUNCHED, TO START PUNCHING. THE CTRL/O, CTRL/C, AND "RUBOUT"
 KEYS ARE USED AS FOLLOWS:


 CTRL/O		DELETE INPUT LINE ON INPUT OR TERMINATE PUNCHING
		ON PUNCH, THE QUESTION MARK IS DISPLAYED AGAIN.

 CTRL/C		TERMINATE INPUT OR OUTPUT AND RETURN TO OS/8 MONITOR.

 RUBOUT		DELETE LAST ACTIVE CHARACTER IN INPUT LINE.
 TAPED

 TAPED		SOURCE ON STRAIT #1.		11/18/74.
 -----		*=*=*=*=*=*=*=*=*=*


 TAPED		128 WORD BLOCK TAPE EDITOR.

	MODIFIES A 128 WORD LINCTAPE BLOCK. THE BLOCK NUMBER IS
	READ FROM THE RIGHT SWITCHES BEFORE ANY BLOCK TRANSFERS
	ARE MADE. THIS BLOCK NUMBER WILL BE SHOWN AS  "IRDSW(0)".

	THE DIRECTIVE INPUT LINE IS :	?P0000

	WHERE THE FIRST CHARACTER (P) IS A DIRECTIVE CHARACTER
	BETWEEN A-G. 0000=K IS A 4 DIGIT OCTAL NUMBER. THIS
	OCTAL NUMBER (K) IS THE WORD NUMBER OF THE BLOCK (0<=K<200).

 DIRECTIVE CHARACTERS :

 A	PRINT 8 WORDS STARTING AT WORD "K" IN OCTAL AND DISPLAY CODE.

 B	REPLACE THE CONTENTS OF "K". WHEN "B=" IS DISPLAYED
	ON THE TELETYPE, ENTER THE CONTENTS AS A 4 DIGIT OCTAL NUMBER.

 C	REPLACE THE CONTENTS OF "K" WITH THE COMPLIMENT OF THE
	INPUT ENTERED WHEN "B=-" IS DISPLAYED ON THE TELETYPE, ENTER
	THE CONTENTS AS A 4 DIGIT OCTAL NUMBER.

 D	PRINT THE CURRENT 128 WORD BLOCK IN OCTAL AND DISPLAY CODE.

 E	WRITE BLOCK USING BLOCK # "IRDSW(0)" FOR THE BLOCK NUMBER.

 F	READ BLOCK -- "IRDSW(0). NO WRITE IS MADE.

 G	SET STANDARD OUTPUT DEVICE TO "K".


 CAL

 CAL		SOURCE & BINARY ON MH #1.		10/6/74.
 ---		*=*=*=*=*=*=*=*=*=*=*=*=


 CAL-ENDAR

	INPUT YEAR HEAR: ---- UNIT 1 OR 3: -

	ENTER THE YEAR (E.G. 1974) AND THEN THE UNIT NUMBER
	THE CALENDAR WILL BE OUTPUT TO.

 1	UNIT 1. TELETYPE.
 3	UNIT 3. PRINTC 100.
 4	UNIT 4. LINC TAPE. FILE NAME=  DSK:CAL.DA

	TERMINATE "CAL" BY ENTERING A NEGATIVE YEAR WHICH WILL
	CLOSE THE UNIT 4 TAPE FILE "DSK:CAL.DA".


	PROGRAMING NOTE:

	"CAL" USES THE  'REORG'  METHOD FOR SIMULATING A DATA
	STATEMENT.