5 ! ******************* WESS6A *********************** ! ** FIRST OVERLAY FOR WESS6, FEBRUARY, 1975 ** 10 ! ** FROM LOUISVILLE EXP SIMULATION SYSTEM ** 15 ! ** WABASH COLLEGE: P. SPELT & J. WARDEN ** 20 ! ************************************************** 25 !OTHER PROGRAMS CHAIN HERE 30 O$=SYS(CHR$(7%)) 35 OPEN O$ FOR INPUT AS FILE 1% 40 DIM #1%,X%(48),A9(1),A1$(5)=128,A2$(24,4)=128,D2(24,12),X2(24,384) 45 ! \-----ID RECORD ------/ \-----24 MODEL RECORDS-----------/ 48 DIM M%(30) 50 CHANGE SYS(CHR$(6%)+CHR$(9%)) TO M% : O2$="WESS"+CHR$(65%+M%(2%)/2%)+".TMP" : OPEN O2$ AS FILE 2% 52 READ M%(I%) FOR I%=1% TO 16% 53 DATA 1,1,2,1,2,1,1,2,1,2,2,2,2,2,1,1 55 DIM #2%,A3$(4)=128,Q(3,128),I(27),S(27),X(48),O(27),D(12),N(10), P(10),K(20),V(20),T$(500)=64 60 X9=V(1) : Q0=V(2) : P5=V(3) : P6=V(4) : D2=V(5) : Q2=V(6) : M2=V(7) : N=V(8) : A8=V(9) : A9=V(10) : J=V(11) 62 IF T$(0%)="BACKUP" THEN O3%=-1% 65 DIM T(10),U(10) 70 IF X(4)=1 THEN 4900 80 RANDOMIZE 90 O1=O(0) : P3=P(0) : Z1=V(13) 95 C0$=CHR$(10%) : A0$=A1$(0%) 100 GOTO 2000 1000 !GAUSS - MEAN=P9, STD. DEV.=P4, VALUE=P3 1010 P3=P4*SQR(-.2*LOG(RND))*COS(6.28318*RND) + P9 1060 RETURN 1100 !***SUBROUTINE TO CORRECT L1 & L2 (ROW & COLUMN INDICES). 1110 IF L2>128 THEN L2=L2-128:L1=L1+1:GOTO 1110 1150 RETURN 2000 ! *** ROUTINE TO GIVE TOT SUBJECTS WITHOUT RECALL SOME ! CLUES ABOUT TARGET WORDS. 2040 DEF FNR(X)=ABS(INT(X+.5)) 4250 IF S(9)=1 THEN 4500 4270 T0$=C0$+C0$ : GOSUB 4990 ! SECTION TO HANDLE STRESS 4280 T1=Z1*(.21+.01*RND(1)) 4290 MAT T=ZER(4) 4300 T(1)=FNR(T1*(.45+.1*RND(1))):T(2)=FNR(.125*T1) 4320 T(4)=FNR(T1*(.11875+RND(1)*.0125)):T(3)=FNR(T1)-T(1)-T(2) -T(4) 4350 Q$(1%,1%)="TARGET WORD, " : Q$(1%,2%)="SS WORD, " 4370 T0$="OUT OF THE TOTAL NUMBER OF TOT STATES IN WHICH THE TARGET"+ "WORD & SS WORD HAD THE SAME NUMBER OF SYLLABLES ("+NUM$(FNR(T1))+ ") THE FREQUENCY OF THE SAME STRESS PATTERN ON:" 4380 GOSUB 4990 4410 FOR I%=1% TO 4% : K%=(I%-1%)*4% 4430 T0$=" "+Q$(1%,M%(K%+1%))+"SYL."+NUM$(M%(K%+2%))+"& "+ Q$(1%,M%(K%+3%))+"SYL."+NUM$(M%(K%+4%))+"="+NUM$(T(I%)) : GOSUB 4990 4440 NEXT I% 4500 T0$=C0$+C0$+" THERE ARE"+NUM$(V(12))+"SUBJECTS IN A TOT STATE WITH "+ "NO RECALL."+C0$ : GOSUB 4990 4510 IF FNR(N(8))=0 THEN 4890 4520 INPUT"DO YOU WANT TO GIVE THEM CLUES ABOUT TARGET WORDS(Y/N)";Y$ 4540 IF LEFT(Y$,1)<>"Y" THEN 4890 4550 T0$=C0$+" *** CLUES GIVEN" : GOSUB 4990 4552 INPUT"GIVE 4-DIGIT CODE.";I1 4556 T0$="4-DIGIT CODE ="+NUM$(I1) : GOSUB 5000 4580 IF I1>9999 OR I1<1 OR I1<>INT(I1) THEN V(0)=V(0)-1 IF O3% : GO TO 4560 4590 O1=O1+(4*S(1)) ! DECODE CODE INTO 3 SEGMENTS 4600 C2,S1=0 4610 C1=INT(I1/1000) 4620 IF I1<>2*INT(I1/2) THEN 4720 4630 C2=INT((I1-C1*1000)/10) 4640 P4=.2*N(8) 4650 P9=C1/10*N(8) 4660 GOSUB 1000 4670 IF P3>=0 THEN 4690 4680 P3=RND(1)*.01*N(8) 4690 IF P330 THEN 4850 4752 IF I1 <> 2*INT(I1/2) THEN 4850 4760 IF S1>0 THEN 4790 4770 C2=0 4780 GOTO 4850 4790 P9=C2 4800 P4=C2/8 4810 GOSUB 1000 4820 IF P3<=30 THEN 4840 4830 P3=30-RND(1)*C2/4 4840 IF P3>=0 THEN 4860 4850 P3=RND(1)*C2/4 4860 IF P3=0 THEN 4890 4870 T0$="WITH AVERAGE LATENCY OF"+NUM$(P3)+"SECONDS." : GOSUB 4990 4880 T0$="VARIENCE ="+NUM$(C2/8)+"SECONDS." :GOSUB 4990 4890 T0$=C0$+"THE COST FOR THIS RUN WAS"+NUM$(O1)+"POINTS" : GOSUB 4990 4895 X(4)=1 ! NO STATS; BACK TO WESS 4900 V(1)=X9 : V(2)=Q0 : V(3)=P5 : V(4)=P6 : V(5)=D2 : V(6)=Q2 : V(7)=M2 : V(8)=N : V(9)=A8 : V(10)=A9 : V(11)=J 4910 O$=SYS(CHR$(8%)+O$+"!2000") : CLOSE 1%,2%,3% 4920 &"." : & : CHAIN A0$+"WESS" 14 4990 PRINT T0$ 5000 IF O3%=0% THEN RETURN 5010 V(0)=V(0)+1 5015 IF LEN(T0$)<=64% THEN T$(V(0))=T0$ : RETURN 5020 T$(V(0))=";"+LEFT(T0$,63%) : T0$=RIGHT(T0$,64%) : GO TO 5010 9999 END