/PARAMETER FILE
/FOR THE VC8E HANDLER AND PROGRAM HELP
/
/
/
/
/
/MAX-PLANCK-INSTITUT FUER PSYCHIATRIE
/STEPHAN V. BECHTOLSHEIM, ULRICH GSCHREI
/KRAEPELINSTR.2
/D-8000 MUENCHEN 40
/WESTERN GERMANY
/
/
/VERSION A
/
/DATE: SATURDAY APRIL  5, 1975
/
/VARIABLES	TRANSLATE
/		HEL
/		STRTHL
/		SIZE
/		ERFUNC
/		FFAUTO
/		BUFFFF
/MUST BE EDITED BY THE USER
/
TRANSLATE=1
/TRANSLATE=0	THE HANDLER IS TRANSLATED
/TRANSLATE=1	PROGRAM HELP IS TRANSLATED
/
/
/
/
HEL=30		/FIELD OF PROGRAM HELP. NORMALLY
		/THE HIGHEST AVAILABLE FIELD
/
/
STRTHL=3000	/STARTING ADDRESS OF PROGRAM HELP.
		/MUST BE AT A PAGE BOUNDARY
	XLIST 1
/
	IFNZRO TRANSLATE <
	XLIST 0
/
/
/
/
ERFUNC=1
/ERFUNC=0   ERASE FUNCTION NOT INSTALLED
/      =1   ERASE FUNCTION INSTALLED
/
/
FFAUTO=0
/FFAUTO=0   FORMFEED EXECUTED ONLY,
/           IF SPACE TYPED
/      =1   FORMFEED EXECUTED AUTOMATICALLY
/
/
BUFFFF=0
/BUFFFF=0   FORMFEEDS READ IN BUFFER
/           ARE REPLACED BY LINEFEED
/      =1   FORMFEEDS READ IN BUFFER
/           ARE EXECUTED
/
/
SIZE=2
/CHARACTER SIZE, 5X7 DOT MATRIX
/1 SMALLEST SIZE, 3 MAXIMAL SIZE
/
ENDHL=STRTHL+777
CDFHEL=CDF HEL
CIFHEL=CIF HEL
CHADR=CHONE
ADXPOS=XPOS
ADYPOS=YPOS
/SAVE COMMAND FOR PROGRAM HELP:
/SAVE SYS:HELP STRTHL:ENDHL;STRTHL=JOB STATUS WORD
/THE NUMBER OF THE FIELD MUST BE INCLUDED
/
/
/
/SUBROUTINE LOXY
/WHEN TRANSLATING SUBROUTINE LOXY
/MODIFY ADXPOS, ADYPOS, CDFHEL RESPECTIVELY
/
/
/
/A SEQUENCE OF INSTRUCTIONS TO PRINT ON THE TELETYPE
/LIKE:	TAD CHAR	/GET CHARACTER
/	TLS		/AND PRINT IT
/	TSF		/WAIT ON FLAG
/	JMP .-1
/CAN BE REPLACED BY:
/	TAD CHAR
/	CIFHEL
/	JMS I (CHOAR
/SO ALL OUTPUT WILL DIRECTED TO THE SCOPE
/(THIS MODIFICATION HAS BEEN DONE TO THE EDITOR
/AND IS DESCRIPED BELOW)
/
/
/
/
/MODIFICATION OF THE EDITOR
/
/(A) ALL PRINTING EXCEPT FOR THE V-COMMAND IS
/DIRECTED TO SCOPE
/
/	GET SYS:EDIT
/	ODT
/	1222/6046 CIFHEL
/	1223/6041 4625
/	1224/5223 5621
/	1225/7200 CHADR
/	CTRL/C
/	SAVE SYS:EDIT1
/
/(B) THE V-COMMAND LISTS THE BUFFER ON SCREEN
/
/	GET SYS:EDIT
/	ODT
/	2713/6666 CIFHEL
/	2714/6661 4716
/	2715/5314 5712
/	2716/7200 CHADR
/	CTRL/C
/	SAVE SYS:EDIT2
/
/
/
	>
	XLIST 0