100	! ****************** WRIST ********************
	! **  STUDENT ENTRY PROGRAM FOR WESS SYSTEM  **
120	! **  27-FEB-74  J. WARDEN  WABASH COLLEGE   **
	! *********************************************
140	! ENTER [PROJ,PROG] DEV: FOR INSTRUCTOR AND STUDENT
	! ACCOUNTS HERE:
160	I0$="[50,40]"	! INSTRUCTOR ACCOUNT
180	S0$="[50,50]"	! STUDENT ACCOUNT
200	F0$="[50,40]DK1:WESDAT"	! MASTER FILE
220 !-------------------------------------------------------
240 DIM M%(30%)
260 CHANGE SYS(CHR$(6%)+CHR$(14%)) TO M%
280 M7%=M%(7%) : M8%=M%(8%) : T$=S0$
300 CHANGE SYS(CHR$(6%)+CHR$(-10%)+T$) TO M%
320 IF (M%(5%)-M7%)+(M%(6%)-M8%) THEN 520
340 IF Q% THEN A$="" ELSE A$="S"
360 PRINT"WABASH EXPERIMENT SIMULATION SYSTEM  *  ";
	DATE$(0%);"  *  ";TIME$(0%)
380 IF Q% THEN INPUT"MODEL FILE (<CR>=STD)";O$
400 IF O$<>"" THEN F0$=O$
420	ON ERROR GO TO 440 : OPEN F0$ FOR INPUT AS FILE 1% :
	CLOSE 1% : GO TO 460	! CHECK MODEL FILE
440	PRINT : PRINT"WESS MODEL FILE IS NOT AVAILABLE" :
	IF Q% THEN RESUME 3