Listing of file='FUNCTION' on disk='vmedia/733-1004.wvd.zip'
# Sector 172, program filename = 'FUNCTION'
0012 DIM C$(4)40,B$10,A$1,Q6$64,C1$64
0050 O$="O"
: L0=80
: PRINT HEX(03);TAB(10);"***** TEST NINE TRACK TAPE DRIVES *****"
: PRINT "S.F.KEY";TAB(27);"S.F.KEY"
: PRINT " 1 BACKSPACE TO WRITE 7 WRITE GAP"
0100 PRINT " 2 BACKSPACE RECORD 8 CLEAN TAPE"
: PRINT " 3 FORWARDSPACE RECORD 9 REREAD A BLOCK"
: PRINT " 4 BACKSPACE FILE 10 WRITE EOF"
0130 PRINT " 5 FORWARDSPACE FILE 11 WRITE A BLOCK"
: PRINT " 6 REWIND 12 READ A BLOCK"
: PRINT "14 MASTER RESET 13 STATUS"
0160 PRINT " REGISTERS STATUS COUNT DESRIPTION"
: PRINT
: PRINT
: PRINT "BUFFER"
0200 GOSUB '248(15,1,0)
0210 KEYIN A$,210,230
: GOTO 210
0230 A=VAL(A$)
: ON AGOSUB 260,260,260,260,260,260,260,260,260,260,320,420,480,260
: GOTO 200
0260 DEFFN'1
: GOSUB '31(A)
: IF A=9THEN 390
: GOSUB '16(0)
: RETURN
0320 DEFFN'11
: GOSUB '248(13,1,2)
: INPUT "C$",C1$
: C$(1)=STR(C1$,1,40)
: C$(2)=STR(C1$,41)
: GOSUB '204(1)
: GOSUB '31(11)
0390 GOSUB '16(1)
: RETURN
0420 DEFFN'12
: GOSUB '31(12)
: GOSUB '204(0)
: GOSUB '16(1)
: RETURN
0480 DEFFN'13
: GOSUB '31(13)
: GOSUB '16(0)
: RETURN
0520 DEFFN'16(A1)
: GOSUB '248(10,1,0)
: HEXPRINT STR(B$,1,4)
: GOSUB '248(10,10,0)
: HEXPRINT STR(B$,5,2)
: GOSUB '248(10,20,0)
: HEXPRINT STR(B$,7,2)
: GOSUB '248(10,30,0)
: HEXPRINT STR(B$,9,2)
: GOSUB '17
: GOSUB '248(13,1,5)
: IF A1=0THEN 620
: FOR I9=1TO 4
: PRINT C$(I9)
: NEXT I9
0620 RETURN
0630 DEFFN'17
: B1=1
: B7$=STR(B$,7,1)
: B8$=STR(B$,8,1)
: IF B7$=HEX(02)THEN 770
: B1=B1+1
: IF B7$=HEX(04)THEN 770
: B1=B1+1
: IF B7$=HEX(08)THEN 770
: B1=B1+1
: IF B7$=HEX(10)THEN 770
: B1=B1+1
: IF B7$=HEX(20)THEN 770
: B1=B1+1
: IF B7$=HEX(40)THEN 770
: B1=B1+1
0730 IF B7$=HEX(80)THEN 770
: B1=B1+1
: IF B8$=HEX(01)THEN 770
: B1=B1+1
: IF B8$=HEX(02)THEN 770
: B1=B1+1
: IF B8$=HEX(04)THEN 770
: B1=B1+1
0770 RESTORE B1
: READ B2$
: DATA "NOT READY","EOF SENSED","EOT","PROTECTED","BOT","SOFT ERROR","HARD
ERROR","BUFFER OVRFLW","TRANS ERROR","INVALID GIO","OK"
: GOSUB '248(10,47,1)
: PRINT B2$
: RETURN