LH 5 
Appendix L 
WBASIC Program to Unrandomize the Questionnaires 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
PRINT ‘HOW MANY SUBJECTS? 
INPUT SS 
|DECLARE DIMENSIONS 
OPTION BASE 1 
DIM WORK (21,12) 
DIM WORK2(21,12) 
DIM RRAND (20) 
DIM CRAND (12) 
DIM RORD (20) 
DIM CORD (12) 
DIM L$ (21) 
DIM LABELS (12) 
DIM RLABELS (11) 
DIM ID (4) 
DIM EXS$ (21) 
DIM EX2$ (21) 
DIM TAG (6) 
| DECLARE AND OPEN THE INPUT AND OUTPUT PORTS 
OPEN #4, 'DATA8', INPUT 
OPEN #10, 'FINALS8', OUTPUT 
DEFINE FORMAT STATEMENTS 
F1S = ">##*4 
£28 = ‘>##*l2' 
F3S = ">H$*7? 
FAS = '<HEHHEEEEEE SERRE AE EASES 
FSS = '>H##’ 
F6S = ">####*11" 
F7$ = '>###a*a’ 
F8S = '>H####*6’ 
FOS = 'SH#sdak]nt 
! PREPARE THE LABEL FILES 
LET RLABEL$(1) = 'SBJ' 
LET RLABELS(2) = 'RUN' 
LET RLABELS$(3) = ‘'CPY' 
LET RLABEL$(4) = 'ORD' 
LET RLABELS (5) = 'PRS' 
LET RLABELS(6) = 'AGE' 
LET RLABELS$(7) = 'SEX' 
LET RLABELS$(8) = ‘ED 
LET RLABELS(9) = 'CT1"