image of READY prompt

Wang2200.org

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