Listing of file='M/TD010A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 283, program filename = 'M/TD010A'
0010 REM . M/TD010A, 00-00 (6/28/75), 12002
0100 DIM Q6$64
0110 GOSUB 490
: GOSUB '248(6,6,0)
: PRINT "1. 2201"
: GOSUB '248(7,6,0)
: PRINT "2. 2221"
: GOSUB '248(8,6,0)
: PRINT "3. 2221W"
: GOSUB '248(6,22,0)
: PRINT "4. 2231"
: GOSUB '248(7,22,0)
: PRINT "5. 2261"
: GOSUB '248(1,0,0)
0210 GOSUB '245("ENTER THE PRINTER MODEL NO.(BY NUMBER)",1,0)
: IF Q9>0THEN 250
0230 GOSUB 1010
: GOTO 210
0250 IF Q9>5THEN 230
: O4=Q9
: GOSUB 490
: GOSUB '248(6,6,0)
: PRINT "PRINTER MODEL = ";
: ON O4GOTO 320,340,360,380,400
: STOP "SYSTEM ERROR"
0320 PRINT "2201"
: GOTO 410
0340 PRINT "2221"
: GOTO 410
0360 PRINT "2221W"
: GOTO 410
0380 PRINT "2231"
: GOTO 410
0400 PRINT "2261"
0410 GOSUB '248(1,0,0)
0420 GOSUB '245("ENTER 0 TO ACCEPT, 1 TO RE-ENTER",1,0)
: IF Q9=0THEN 470
: IF Q9=1THEN 110
: GOSUB 1010
: GOTO 420
0470 CONVERT O4TO STR(D9$(1),6,1),(#)
: LOAD DC T#6,"M/START"
0490 PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - PRINTER"
: GOSUB '248(4,0,0)
: PRINT "----------------------------------------"
: RETURN
0530 Q6=3
: GOTO 1140
0550 DEFFN'254
: GOSUB '243("KEY RETURN(EXEC) TO RESUME",0)
: W4$=Q6$
: GOSUB '248(0,0,4)
: Q6$=W4$
: RETURN
0610 DEFFN'242(W0,Q6$)
: IF W0<=0THEN 1290
: IF W0=1THEN 650
: STR(Q6$,2)=STR(Q6$,1,W0-1)
0650 PRINT Q6$;
: RETURN
0670 DEFFN'243(Q6$,Q0)
: GOSUB 1040
0690 SELECT CO 205
: Q6$=" "
: INPUT Q6$
: IF Q0=0THEN 1110
: IF LEN(Q6$)<=Q0THEN 1110
: GOSUB 1010
0750 DEFFN'244(Q0)
: GOSUB 1090
: GOSUB 1060
: GOTO 690
0790 DEFFN'245(Q6$,Q2,Q3)
: Q0=ABS(Q2)+Q3+1
: GOSUB 1040
0820 GOSUB '242(ABS(Q2)+2,HEX(09))
: PRINT "/"
: GOSUB 1090
: SELECT CO 205
: Q9,W0=-1E-99
: INPUT Q9
: IF W0=Q9THEN 910
: IF Q9>=0THEN 970
: IF Q2<=0THEN 970
0910 GOSUB 1010
0920 DEFFN'246(Q2,Q3)
: Q0=ABS(Q2)+Q3+1
: GOSUB 1090
: GOSUB 1060
: GOTO 820
0970 IF ABS(Q9)>=10^ABS(Q2)THEN 910
: W0=ABS(Q9*10^Q3)
: IF INT(W0)<>W0THEN 910
: GOTO 530
1010 GOSUB 530
: PRINT "RE-ENTER"
: RETURN
1040 GOSUB 1290
: PRINT HEX(010A);STR(Q6$,1);
1060 GOSUB 1290
: GOSUB '242(Q0+2,"-")
: PRINT TAB(64)
1090 PRINT HEX(010A0A)
: RETURN
1110 PRINT HEX(0A);TAB(64)
: GOTO 1290
1130 Q6=0
1140 Q7=0
: Q8=1
1160 DEFFN'248(Q6,Q7,Q8)
: GOSUB 1290
: IF Q8<1THEN 1260
: GOSUB 1260
: SELECT PRINT 205
: Q6$=" "
: PRINT STR(Q6$,Q7+1)
: IF Q8<2THEN 1260
: FOR W0=2TO Q8
: PRINT HEX(0A);STR(Q6$,1)
: NEXT W0
1260 PRINT HEX(01)
: GOSUB '242(Q7,HEX(09))
: GOSUB '242(Q6,HEX(0A))
1290 SELECT PRINT 005(64),CO 005
: RETURN
1310 DEFFN'15
: COM CLEAR
: LOAD DC T#6,"START"