1!		LAWRENCE UNIVERSITY
		COMPUTER CENTER
		APPLETON, WISCONSIN 54911
		(414) 739-3681, EXT 564

    PROGRAM NAME, VERSION AND DATE:
	CREATE, VERSION 1A, 10-JUN-74

    PROGRAM AUTHORSHIP:
2!	CREATE, ONE OF THE PROGRAMS OF THE TIMER PACKAGE, WAS
	DESIGNED AND WRITTEN BY PAUL KONING OF THE LAWRENCE UNIVERSITY
	COMPUTER CENTER.

    PURPOSE OF PROGRAM:
	CREATE IS USED FOR CREATING THE TWO FILES ON ACCOUNT [254,254]
3!	USED BY TIMER AND TIMOUT.

    LANGUAGE AND OPERATING SYSTEM:
	CREATE IS WRITTEN IN BASIC-PLUS FOR OPERATION UNDER RSTS V4A-12
	ON A PDP11/20 OR PDP11/35 WITH 28K OF CORE. IT USES ONE PRIVILEGED
4!	FUNCTION (PEEK) THAT WOULD HAVE TO BE MODIFIED FOR OPERATION
	UNDER RSTS/E.
10!
    AVAILABILITY:
	CREATE IS A NON-PROPRIETARY PROGRAM PRODUCT OF LAWRENCE
	UNIVERSITY. IT IS DISTRIBUTED AT COST FOR EDUCATIONAL USE, ON
	THE CONDITION THAT IT NOT BE SOLD, RENTED OR LEASED FOR PROFIT.

    LIMITATIONS:
11!	CREATE SHOULD NOT BE RUN WITH TIMER RUNNING (IT DOESN'T WORK).

    FURTHER DOCUMENTATION:
	FOR FURTHER DOCUMENTATION, RUN INSTRUCTIONS AND USER'S GUIDE
	PLEASE REFER TO THE TIMER DOCUMENTATION, MSPD # PDP11/74/010.
20!
    DISCLAIMER:
	NEITHER THE AUTHOR OF THIS PROGRAM NOR LAWRENCE UNIVERSITY
	ASSUME ANY LIABILITY, EXPRESSED OR IMPLIED, WITH RESPECT TO
	THE CORRECTNESS OR PERFORMANCE OF THIS PROGRAM.

100 OPEN"[254,254]TIMOUT.TMR" FOR OUTPUT AS FILE 1%
110 DIM #1%,X%(5%),D%(4%,2000%)
120 D%(4%,2000%)=0%
130 MAT X%=ZER:MAT D%=ZER
140 D%(0%,I%)=0% FOR I%=0% TO 2000%
150 X%(0%)=0%:X%(3%)=1%
160 MAT& X%;
170 D%(0%,0%)=PEEK(2050%):D%(1%,0%)=PEEK(2048%)
180 ! THIS ENTERS THE CREATION DATE AND TIME IN THE FILE
190 CLOSE 1%
200 OPEN"[254,254]TIME.TIM" FOR OUTPUT AS FILE 1%
210 &#1%,"THIS FILE IS USED BY TIMER TO DETERMINE TRANSFER TIME"
220 &#1%,"PLEASE DO NOT DELETE IT!!!"
230 CLOSE 1%
240 END