[pdp8.git] / sw / rescue / lab8e_goettingen / disk4_5 / rka / paroff / haepti.fi

C	- - - - -   H A E P T I . F I   - - - - -\r
	INTEGER OPTION,		@ ADDITIONAL OPTION FOR THE COMMANDS IE AD*\r
     *  COMD(26),		@ VECTOR CONTAINING THE COMMAND # TO BE EXEC\r
     *  ACTNUM			@ COUNT OF COMMANDS FOUND IN THE COMMAND INPUT\r
 	COMMON /COPTI/ OPTION,COMD,ACTNUM\r
	DATA OPTION,COMD,ACTNUM /0,26*0,0/\r
C	- - - - -\r
\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0
Commit	Line	Data
81e70d48 PH	1	C - - - - - H A E P T I . F I - - - - -\r
	2	INTEGER OPTION, @ ADDITIONAL OPTION FOR THE COMMANDS IE AD*\r
	3	* COMD(26), @ VECTOR CONTAINING THE COMMAND # TO BE EXEC\r
	4	* ACTNUM @ COUNT OF COMMANDS FOUND IN THE COMMAND INPUT\r
	5	COMMON /COPTI/ OPTION,COMD,ACTNUM\r
	6	DATA OPTION,COMD,ACTNUM /0,26*0,0/\r
	7	C - - - - -\r
	8	\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0