5 ! ******************* WESS4 ************************ ! ** WRIST VERSION OF LES4, 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% 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 T1(10,50),A(10),B(24,2) 70 A0$=A1$(0%) 80 RANDOMIZE 990 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 : GO TO 1110 1150 RETURN 2000 ! SUBROUTINE TO CALCULATE "X" EFFECT NOT NEEDED IN THIS MODEL. 2010 ! PROGRAM SEGMENT CONTAINING SCHIZOPHRENIA MODEL. 2020 ! SLIGHTLY MODIFIED VERSION OF THE MODEL OBTAINED FROM 2030 ! UNIVERSITY OF MICHIGAN IN FORTRAN. MODIFIED AND CONVERTED 2040 ! TO BASIC BY A. CROMER. 2050 ! VERSION OF MAY 15, 1974. 2060 P1=0 2062 O1=0 2070 IF S(7) <> 3 THEN 2080 2071 IF S(3) = 5 THEN 2110 2072 IF S(3)=6 THEN 2110 2080 IF S(3) <> 8 THEN 2140 2090 S(3)=7 2100 GO TO 2140 2110 & "TWINS HAVE TO BE BIOLOGICALLY RELATED, STUPID." 2120 X(4)=1 2130 GO TO 2700 2140 IF S(3) <> 1 THEN 2160 2150 T0$="NOTE: YOUR VALUE OF ADOPT IS BEING IGNORED" : GOSUB 3990 2160 IF S(3) <> 5 THEN 2230 2170 IF S(5)=0 THEN 2220 2180 IF S(5) <> 2 THEN 2230 2190 &" IDENTICAL TWINS OF OPPOSITE SEX? THINK FIRST." 2200 X(4)=1 2210 GO TO 2700 2220 S(5)=1 2230 IF S(5) <> 0 THEN 2340 2240 R4=2 2250 FOR P1=1 TO S(1) 2260 I(5)= INT(RND(1) +1.5) 2270 L1=D(9) 2280 L2=D(10) +11 + I(5) 2290 GO SUB 1100 2300 O1=O1+ Q(L1,L2) 2310 NEXT P1 2320 O1=O1/S(1) 2330 GO TO 2390 2340 L1=D(9) 2350 L2=D(10) +11 + S(5) 2360 GO SUB 1100 2370 O1=Q(L1,L2) 2380 L1=D(9) 2390 L2= D(10)+S(2) 2400 GO SUB 1100 2410 O1=O1*Q(L1,L2) 2420 L1=D(9) 2430 L2=D(10)+2+S(3) 2440 GO SUB 1100 2450 O1=O1*Q(L1,L2) 2460 L1=D(9) 2470 L2=D(10)+15+S(7) 2480 GO SUB 1100 2490 O1=O1*Q(L1,L2) 2500 L1=D(9) 2510 L2=D(10)+13+S(6) 2520 GO SUB 1100 2530 O1=(S(1)+Q(L1,L2))*O1 2540 L1=D(9) 2550 L2=D(10)+9+S(4) 2560 GO SUB 1100 2570 O1=Q(L1,L2)*(O1+.01*S(1)) 2580 P9=0 2590 P4=SQR(.33*.33*S(1)) 2600 GO SUB 1000 2610 O1=O1+P3+.5 2620 IF O1 0 THEN 2660 2650 O1=ABS(RND(1)/100)+.5 2660 O1=INT(O1) 2670 T0$=NUM$(O1)+"PERSONS IN THIS GROUP WERE DIAGNOSED AS" : GOSUB 3990 2680 T0$="SCHIZOPHRENIC AT THE LEVEL SPECIFIED." : GOSUB 3990 2690 X(4)=1 2700 !BACK TO WESS 2710 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 2720 CLOSE 1%,2%,3% : PRINT "." : PRINT 2730 O$=SYS(CHR$(8%)+O$+"!2000") : CHAIN A0$+"WESS" 14 3990 PRINT T0$ 4000 IF O3% THEN V(0)=V(0)+1 : T$(V(0))=T0$ 4010 RETURN 9999 END