1	.DEFINE .BFZ%=512%
2	MAP (DSKTS) BUFFER$=.BFZ%
10	PRINT "I/O TEST"
100	PRINT "Open Close eXit Get Put H=getn Q=putn I=gets R=puts E=enq S=set"
105	PRINT "A=putA 1=input 0=print U=openu 2=prinl 3=nob 4=nor 5=inout 6=oprin";
110	INPUT A$
120	A$ = SEG$(A$,1%,1%)
130	A = POS("OCXGPHQIRES10U234A56",A$,1%)
140	IF A>0 GOTO 200
150	PRINT CHR$(7%)
160	GOTO 100
200	ON A GOSUB 1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,16000,17000,18000,19000,20000
700	! HERE TO EXAMINE ERRORS 
710	COMMON (FCSERR) E1%,E2%
720	PRINT "E:",E1%,E2%
730	GOTO 100
1000	PRINT "OPEN."
1010	INPUT "FILESPEC$=",F$
1020	INPUT "ACCESS$=",A$
1030	INPUT "CHANNEL%=",C%
1040	INPUT "RECORDSIZE%=",Z%
1045	IF .BFZ%<Z% THEN 1070
1050	CALL OPEN. (F$,A$,C%,Z%)
1060	RETURN
1070	PRINT "FCSTST. MAXIMUM RECORD SIZE =";.BFZ%
1080	PRINT "OPEN. NOT CALLED!"
1090	GOTO 1060
2000	INPUT "CHANNEL%=",C%
2010	CALL CLOSE.(C%)
2020	RETURN
3000	STOP
3010	GOTO 3000
4000	INPUT "CHANNEL%=",C%
4010	INPUT "LMNT#%=",L%
4020	LSET BUFFER$ = STRING$(.BFZ%,0%)
4030	CALL GET. (C%,BUFFER$,L%)
4040	PRINT "BUFFER$=";BUFFER$
4050	RETURN
5000	INPUT "CHANNEL%=",C%
5010	INPUT "BUFFER$=";B$
5020	LSET BUFFER$=B$
5030	INPUT "LMNT#%=",L%
5040	CALL PUT. (C%,BUFFER$,L%)
5050	RETURN
6000	INPUT "CHANNEL%=",C%
6010	CALL GET.N (C%,BUFFER$)
6020	PRINT "BUFFER$=";BUFFER$
6030	RETURN
7000	INPUT "CHANNEL%=",C%
7010	INPUT "BUFFER$=",B$
7020	LSET BUFFER$=B$
7030	CALL PUT.N (C%,BUFFER$)
7040	RETURN
8000	INPUT "CHANNEL%=",C%
8010	INPUT "LNMT#%=",L%
8020	LSET BUFFER$ = STRING$(.BFZ%,0%)
8030	INPUT "# ELEMENTS %=",N%
8040	CALL GETS. (C%,BUFFER$,L%,N%)
8050	PRINT "BUFFER$=";BUFFER$
8060	RETURN
9000	INPUT "CHANNEL%=",C%
9010	INPUT "LNMT#%=",L%
9020	INPUT "BUFFER$=",B$
9025	LSET BUFFER$ = B$
9030	INPUT "# ELEMENTS %=",N%
9040	CALL PUTS. (C%,BUFFER$,L%,N%)
9060	RETURN
10000	INPUT "CHANNEL%=",C%
10010	CALL BZENQ. (C%,ZU%,ZN%)
10020	PRINT "BUFFERSIZE%=",ZU%,ZN%
10030	RETURN
11000	INPUT "CHANNEL%=",C%
11010	INPUT "BUFFERSIZE%=",Z%
11020	CALL BZSET. (C%,Z%)
11030	RETURN
12000	INPUT "CHANNEL%=";C%
12010	CALL INPUT. (C%,BUFFER$,Z%)
12020	PRINT "BUFFERSIZE%=";Z%
12030	PRINT "BUFFER$=";LEFT$(BUFFER$,Z%)
12040	RETURN
13000	INPUT "CHANNEL%=";C%
13010	INPUT "BUFFER$=";B$
13030	CALL PRINT. (C%,B$)
13040	RETURN
14000	INPUT "FILENAME$=",F$
14010	INPUT "CHANNEL%=",C%
14020	INPUT "RECORDSIZE%=";R%
14030	CALL OPENU.(F$,C%,R%)
14040	RETURN
15000	INPUT "CHANNEL%=";C%
15010	INPUT "BUFFER$=";B$
15020	INPUT "BUFFERSIZE%=";Z%
15030	CALL PRINL.(C%,B$,Z%)
15040	RETURN
16000	INPUT "CHANNEL%=";C%
16010	CALL FCSNOB (C%,NOB)
16020	PRINT "NUMBER OF BYTES=";NOB
16030	RETURN
17000	INPUT "CHANNEL%=";C%
17010	CALL FCSNOR (C%,NOR)
17020	PRINT "NUMBER OF RECORDS=";NOR
17030	RETURN
18000	INPUT "CHANNEL%=";C%
18010	INPUT "BUFFER$=";B$
18020	LSET BUFFER$=B$
18030	CALL PUT.A (C%,BUFFER$)
18040	RETURN
19000	INPUT "CHANNEL%=",C%
19010	CALL INOUT.(C%,BUFFER$,Z%)
19020	PRINT "BUFFERSIZE%=";Z%
19030	PRINT "BUFFER$=";LEFT$(BUFFER$,Z%)
19040	RETURN
20000	INPUT "CHANNEL%=",C%
20010	INPUT "BUFFER$=",B$
20020	CALL OPRIN.(B$)
20030	RETURN