1 STOP ST*P
3 EXPT EX*
4 ECHO EC*
5 NOECHO N*EC*
6 LECHO LEC*
7 LOAD L*D
9 VARS VA*
10 COMMANDS C*M*
11 SHORT SH*
12 VSHORT V*SH*
13 LONG L*G
14 STAT STA* ST*T*
15 REPEAT R*P*
16 NORPT N*R*P*
17 SAVEBIN S*V*B*
18 SAVECARD S*V*C*
19 DATAOUT D*A* D*O*
20 NODATOUT N*D*T*
21 XPRINT X*PR*
22 NOXPRINT N*X*
@END




DRUG OBSERVATIONS:  PROGRAM FOR EXPERIMENTS (DOPE)
SECOND VERSION--SUMMER 1973
H. EICHENBAUM, T. VILLARS, AND R. NUSSLOCH,  AUTHORS
MODIFIED FOR THE DEC-SYSTEM-10 BY JAMES R ULLRICH AND ROY F TOUZEAU
@END
ECHO MAXCONDS=1 NOVER=500 NGRP=40 NDEF=10 COSTPT @E
/TASK (TA*) 1 EXT KWD (AA(A*A*)=1, PA(P*A*)=2,
DISC(D*)=3) AA/
/DRUG (DR*) 2 EXT KWD (UPS(U*)=1, DOWNS(D*)=2,
NARC(N*)=3, ABIO(A*)=4) UPS/
/TEST (TE*) 3 EXT KWD (ACQ(A*)=1, RET(R*)=2) ACQ/
/STRAIN (STR*) 4 EXT KWD (WILD(W*)=1, BW(B*)=2,
ALB(A*)=3) WILD/
/DOSE (DO*) 1 EXT NUMF 0 (0,40000)/
/TOL (TO*) 5 EXT KWD (NAIVE(N*)=1, EXPER(E*)=2) EXPER/
/INTIME (I*) 2 EXT NUMF 0 (-40000,-.00)(.00,40000)/
/TRIALS (TR*) 3 EXT NUMF 0 (0,40000)/
/REINF (R*) 4 EXT NUMF 0 (0,6)/
/STATES(STA*) 6 EXT KWD (NN=1; ND=2; DN=3; DD=4) NN/
/VVVV 6 EXT NUMF 0 (0,1)/
/XDRUG (XD*) 7 EXT NUMI 0 (-.00,.00) (1000,9999)/
/TTTT 7 EXT NUMF 0 (0,1)/
@END
@END
@END
MEAN,VAR@END
ACQ,RET