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