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"