100 ! CARDS -- PRINTS ADMISSIONS FILE ! IN 3 X 5 CARD FORMAT 120 ! 16-NOV-73 J. WARDEN WABASH COLLEGE 130 ! REVISED FORMAT (YORK) INSERTED 23-JUL-74...JW 135 ! FORMAT RE-REVISED 26-SEP-74 (KUDLATY) 140 DIM B$(50),D%(13%,3%) 160 PRINT"ADMISSIONS FILE: 3 X 5 CARDS" 180 N5%=1%: GOSUB 1100 200 READ D%(U%,V%) FOR U%=1% TO 13% FOR V%=1% TO 3% 220 DATA 5,6,7,8,38,9,10,11,12,13,14,15,16 240 DATA 18,19,20,33,36,37,25,21,22,23,34,26,27 260 DATA 24,30,35,28,31,32,0,0,0,0,0,0,0 280 M1%=V2%(1,0) : M2%=M1%/2% 300 S$=" \ \ \ \" 320 T$=" \\ \ \ \\ \ \ \\ \ \" 340 INPUT"OUTPUT TO (DEV:FILE)";F2$ 360 OPEN F2$ FOR OUTPUT AS FILE 2% 380 ON ERROR GO TO 420 400 GO TO 460 420 IF ERR<>5% THEN ON ERROR GO TO 0 440 PRINT"** CAN'T FIND FILE **" : RESUME 460 460 PRINT"ADM FILE"; : INPUT LINE F$ : F$=LEFT(F$,LEN(F$)-2%) 480 OPEN F$ FOR INPUT AS FILE 1% 500 FIELD #1%, N1%*A% AS Z$, N1% AS A$(A%) FOR A%=0% TO N6% 520 INPUT"SKIP PAST ID ( FOR NOSKIP)";I0$ 540 GOSUB 1020 560 IF A%6% THEN RETURN 1040 IF A%F$ THEN 1200 1260 V2%(2%,0%),N%=VAL(MID(A$(A%),4%,2%)) : N9%=VAL(MID(A$(A%),6%,1%))*2% 1280 N1%=510%/N% : N2%=N1%-8% : N3%=N%*N1% : N6%=N%-1% 1300 FOR V%=1% TO 50% 1320 V2$(V%)=MID(A$(A%),42%+(V%-1%)*4%,2%) : IF V2$(V%)=" " THEN 1400 1340 V5%=CVT$%(MID(A$(A%),44%+(V%-1%)*4%,2%)) 1360 V2%(1%,V%)=ASCII(CHR$(V5%)) : V2%(2%,V%)=ASCII(CHR$(SWAP%(V5%))) 1380 NEXT V% 1400 V2%(1%,0%)=V%-1% : IF N5% THEN 1420 ELSE PRINT"CODES: "; : PRINT V2$(I%)+" "; FOR I%=1% TO V%-1% : PRINT 1420 CLOSE 1% : ON ERROR GO TO 0 : RETURN 1500 PRINT"THE FILE '$ATRIB' HAS BEEN DELETED;" : PRINT"IT MUST BE REPLACED TO PROCEED." 1520 END