209 
APPENDIX G: WBASIC COMPUTER PROGRAM TO RANK ORDER FIELD DATA 
00010 PURPOSE: RANK THE DATA IN CASES-H WDATA CREATED BY D-FSORTS 
00020 
00030 CASES = 80 
00040 
00050 !DECLARE DIMENSIONS 
00060 
00070 OPTION BASE 1 
00080 DIM DEMO (5) 
00090 DIM VERBS(3,24) 
00120 
00130 MAT DEMO = (0) 
00140 MAT VERBS = (0) 
00160 
00170 | OPEN INPUT AND OUTPUT PORTS 
00180 OPEN #4, ‘CASES-H’/, INPUT 
00180 OPEN #10, ‘CASES-HR’, OUTPUT 
00200 
00210 ! DEFINE FORMATS 
00220 F$ = ‘>###’ 
00230 FF$ = #H###. #44 
00240 
00250 ! DO CASES ONE AT A TIME, READ, PROCESS AND PRINT 
00260 
00270 FOR SS = 1 TO CASES 
00280 
00280 PRINT ‘SUBJ # ’; 
00300 PRINT SS 
00310 
00320 | READ DEMOGRAPHIC DATA 
00330 ! L IS FOR LANGUAGE (1=CREE, 2=ENGLISH) 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 FOR J=1 TO 4 
00420 PRINT #10, USING F$, DEMO(J);: 
00430 NEXT J 
00440 PRINT #10, USING F$, DEMO(S) 
00450 
00460 ! READ ONE LINE OF DATA, SORT, RANK AND PRINT IT: DO 5 TIMES 
00470 
00480 FOR Z = 1 TO 6 
00490 
00500 N = 1 
00510 
20520 FOR A = 1 TO 24 
20540 INPUT #4, USING F$, VERBS(1,A); 
90550 VERBS(2,A) = N 
00560 VERBS(3,A) = N 
20570  . N=N+1 
90590- NEXT A 
00600 
00610 INPUT #4, USING F$, LINESTOPPER 
00620 
20630 N = 0 
00640 
NOBEO FOR A = 1 TO 23