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              
                  
                  
SELF-STIMULATION SIMULATION:  RATS
VERSION 1 : WRITTEN BY MARK KLEIN
PROGRAMMED BY MARK KLEIN WITH THE AID OF
RICHARD NUSSLOCH  
IT TWAS BUT A VERY SNOWY JANUARY OF 1974
@END              
ECHO MAXCONDS=1 NOVER=300 NGRP=30 NDEF=10  @END
/MICROA (MI*) 1 EXT NUMF 0 (0,1000)/
/PHASE (PH*) 1 EXT KI  (MONO(MO*)=1, BI=2) 2 (1,2)/
/POLES (PO*) 2 EXT KI  (MONO(MO*)=1, BI=2) 2 (1,2)/
/DIRECT (DI*) 3 EXT KWD (CATHOD(CA*)=1,
ANODE(AN*)=2) CATHOD/
/SHAPE (SH*) 4 EXT KWD (SINE(SI*)=1,
SQUARE(SQ*)=2) SINE/
/FREQ (FR*) 2 EXT NUMF 60 (1,1000)/
/PULSE (PU*) 3 EXT NUMF 02 (0,1000)/
/TRAIN (TR*) 4 EXT NUMF 0.2 (0,10)/
/ELECTR (EL*) 5 EXT KWD (STEEL(ST*)=1,
PLATIN(PL*)=2) STEEL/
/LCYCLE (LC*) 6 EXT NUMI 0 (0,15)/
/TESTH (TE*) 5 EXT NUMF 0 (0,720)/
/RTEMP (RT*) 6 EXT NUMF 25 (0,40)/
/AREA (AR*) 7 EXT KWD (MFB(MF*)=1, FORNIX(FO*)=2,
SEPTUM(SE*)=3, POHYPO(PO*)=4, HIPPO(HI*)=5
CENTGR(CE*)=6, NEOCTX(NE*)=7) MFB/
/SEX (SE*) 7 EXT KF  (MALE(MA*)=0,
FEMALE(FE*)=1) 0 (0,1)/
/ANDOSE (AN*) 8 EXT NUMF 0 (0,200000)/
/LESION (LE*) 8 EXT KWD (CENTGR(CE*)=1,
MFB(MF*)=2, TEGMNT(TE*)=3, SEPTUM(SE*)=4,
ALHYPO(AL*)=5, RETFRM(RE*)=6, MAMILL(MA*)=7,
NONE(NO*)=8) NONE/
/DL1 9 EXT KWD (CENTGR(CE*)=1, MFB(MF*)=2,
TEGMNT(TE*)=3, SEPTUM(SE*)=4, ALHYPO(AL*)=5,
RETFRM(RE*)=6, MAMILL(MA*)=7, NONE(N0*)=8) NONE/
/DRUG (DR*) 10 EXT KWD (NAPENT(NA*)=1, MORPH(MO*)=2,
CHLORP(CH*)=3, MEPROB(ME*)=4, SALINE(SA*)=5,
NONE(NO*)=6) NONE/
/DDOSE (DD*) 9 EXT NUMF 0 (0,200000)/
/INJECT (IN*) 10 EXT NUMF 0 (-48,720)/
/FDEPRV (FD*) 11 EXT NUMF 0 (0,50)/
/EXPER (EX*) 11 EXT NUMI 0 (0,10000)/
@END              
@END              
@END              
MEAN,VAR@END      
BPPM