1 ! FORDEC -- DISPLAY OF ADMINISTRATIVE PROGRAMS ! SUPPILED TO DEC. 2 ! J. WARDEN 01-JUN-73 070 S$="\ \ \ \ \"+SPACE$(38%)+"\" 071 S$=" "+S$ 72 P%=1% 074 D$="PROGRAM TYPE -------- DESCRIPTION --------" 80 PRINT"ADMINISTRATIVE LIBRARY" 85 INPUT"STARTING PAGE ##";P1% 090 N5%=1% : GOSUB 4000 100 &"ADMIN LIBRARY FILE"; : INPUT LINE F$ : F$=LEFT(F$,LEN(F$)-2%) 120 OPEN F$ FOR INPUT AS FILE 1% 140 FIELD #1%,N1%*A% AS Z$, N1% AS A$(A%) FOR A%=0% TO N6% 160 INPUT"OUTPUT TO";O$ : IF O$="" THEN O$="KB:" 180 OPEN O$ FOR OUTPUT AS FILE 2% 190 GOSUB 1290 200 IF A%F$ THEN 4080 4140 V2%(2%,0%),N%=VAL(MID(A$(A%),4%,2%)) : N9%=VAL(MID(A$(A%),6%,1%))*2% 4160 N1%=510%/N% : N2%=N1%-8% : N3%=N%*N1% : N6%=N%-1% 4180 FOR V%=1% TO 50% 4200 V2$(V%)=MID(A$(A%),42%+(V%-1%)*4%,2%) : IF V2$(V%)=" " THEN 4280 4220 V5%=CVT$%(MID(A$(A%),44%+(V%-1%)*4%,2%)) 4240 V2%(1%,V%)=ASCII(CHR$(V5%)) : V2%(2%,V%)=ASCII(CHR$(SWAP%(V5%))) 4260 NEXT V% 4280 V2%(1%,0%)=V%-1% : IF N5% THEN 4300 ELSE PRINT"CODES: "; : PRINT V2$(I%)+" "; FOR I%=1% TO V%-1% : PRINT 4300 CLOSE 1% : ON ERROR GO TO 0 : RETURN 4320 IF ERR<>5% AND ERR<>21% THEN 4380 ELSE RESUME 4340 4340 READ V1$ : GO TO 4040 4360 DATA DK2:,DK1:,DK0:,DK3: 4380 PRINT"THE FILE '$ATRIB' HAS BEEN DELETED;" : PRINT"IT MUST BE REPLACED TO PROCEED." 9999 END