Listing of file='WDKD010A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 822, program filename = 'WDKD010A' 0010 REM . WDKD010A, 00-00 (9/16/75), 12002 0100 COM Z1,Z2,Z1(3),Z2(3),T1,T2,T3,P$30 : DIM Q6$64,Q5$43,Z(3),Q3$4,Q4$6,Z3(3) : STR(Q5$,1,26)= "SELECT DISK ADDRESSES FOR" : STR(Q5$,33,11)= ", 0 TO STOP" : T1,T2,T3=0 0120 P$=HEX(0FAA2D553CB4AA69F055E1AAC34B552DAA7855AAB4554BC3AA0FAAB45587) 0160 PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - DISK HARDWARE" : STR(Q5$,27,6)=" " : ON O1GOTO 200,200,200,220 : GOTO 280 0200 STR(Q5$,27,4),Q3$= "2230" : GOTO 230 0220 STR(Q5$,27,4),Q3$= "2260" 0230 GOSUB 1030 : Z1=Z0 : FOR I=1TO Z1 : Z1(I)=Z(I) : NEXT I 0280 ON O2GOTO 300,320,340 : GOTO 590 0300 STR(Q5$,27,6),Q4$= "SINGLE" : GOTO 350 0320 STR(Q5$,27,4),Q4$= "DUAL" : GOTO 350 0340 STR(Q5$,27,6),Q4$= "TRIPLE" 0350 GOSUB 1030 : Z2=Z0 : FOR I=1TO Z2 : Z3(I)=Z(I) 0390 ON Z(I)GOTO 410,440,470,500,530,560 : GOTO 390 0410 T1=1 : Z2(I)=1 : GOTO 580 0440 T1=1 : Z2(I)=2 : GOTO 580 0470 T3=1 : Z2(I)=1 : GOTO 580 0500 T2=1 : Z2(I)=1 : GOTO 580 0530 T2=1 : Z2(I)=2 : GOTO 580 0560 T3=1 : Z2(I)=2 0580 NEXT I 0590 GOSUB '248(1,0,8) : K=9 : GOSUB '248(4,0,0) : GOSUB '248(5,15,0) : PRINT "DISK HARDWARE TEST TABLE" : PRINT " ----------------------------------------" : GOSUB '248(7,6,0) : PRINT "DISK TYPE";TAB(26);"DISK ADDRESSES" 0670 IF O1=0THEN 740 : GOSUB '248(K,8,0) : PRINT Q3$ : FOR I=1TO Z1 : GOSUB '102(Z1(I)) : NEXT I : K=K+1 0740 IF O2=0THEN 800 : GOSUB '248(K,8,0) : PRINT Q4$ : FOR I=1TO Z2 : GOSUB '102(Z3(I)) : NEXT I 0800 GOSUB '245("ENTER 0 TO CONTINUE, 1 TO RE-SELECT ADDRESSES",1,0) : IF Q9=0THEN 850 : IF Q9=1THEN 160 : GOSUB 1730 : GOTO 800 0850 LOAD DC T#6,"WDKD020A" 0860 DEFFN'102(X) : GOSUB '248(K,36,0) 0880 ON XGOTO 900,930,950,970,990,1010 : GOTO 880 0900 PRINT "310" 0910 K=K+1 : RETURN 0930 PRINT "320" : GOTO 910 0950 PRINT "350" : GOTO 910 0970 PRINT "B10" : GOTO 910 0990 PRINT "B20" : GOTO 910 1010 PRINT "360" : GOTO 910 1030 Z0=0 : GOSUB '248(4,0,0) : PRINT "-------------------------------" : GOSUB '248(6,6,0) : PRINT "1. 310 4. B10" : PRINT TAB(6);"2. 320 5. B20" : PRINT TAB(6);"3. 350 6. 360" 1100 GOSUB '245(Q5$,1,0) : IF Q9=0THEN 1240 : IF Q9>0THEN 1150 1130 GOSUB 1730 : GOTO 1100 1150 IF Q9>6THEN 1130 : K0=5+Q9 : K1=8 : IF Q9<4THEN 1190 : K0=2+Q9 : K1=27 1190 GOSUB '248(K0,K1,0) : PRINT "*" : Z0=Z0+1 : Z(Z0)=Q9 : GOTO 1100 1240 RETURN 1250 Q6=3 : GOTO 1860 1270 DEFFN'254 : GOSUB '243("KEY RETURN(EXEC) TO RESUME",0) : W4$=Q6$ : GOSUB '248(0,0,4) : Q6$=W4$ : RETURN 1330 DEFFN'242(W0,Q6$) : IF W0<=0THEN 2010 : IF W0=1THEN 1370 : STR(Q6$,2)=STR(Q6$,1,W0-1) 1370 PRINT Q6$; : RETURN 1390 DEFFN'243(Q6$,Q0) : GOSUB 1760 1410 SELECT CO 205 : Q6$=" " : INPUT Q6$ : IF Q0=0THEN 1830 : IF LEN(Q6$)<=Q0THEN 1830 : GOSUB 1730 1470 DEFFN'244(Q0) : GOSUB 1810 : GOSUB 1780 : GOTO 1410 1510 DEFFN'245(Q6$,Q2,Q3) : Q0=ABS(Q2)+Q3+1 : GOSUB 1760 1540 GOSUB '242(ABS(Q2)+2,HEX(09)) : PRINT "/" : GOSUB 1810 : SELECT CO 205 : Q9,W0=-1E-99 : INPUT Q9 : IF W0=Q9THEN 1630 : IF Q9>=0THEN 1690 : IF Q2<=0THEN 1690 1630 GOSUB 1730 1640 DEFFN'246(Q2,Q3) : Q0=ABS(Q2)+Q3+1 : GOSUB 1810 : GOSUB 1780 : GOTO 1540 1690 IF ABS(Q9)>=10^ABS(Q2)THEN 1630 : W0=ABS(Q9*10^Q3) : IF INT(W0)<>W0THEN 1630 : GOTO 1250 1730 GOSUB 1250 : PRINT "RE-ENTER" : RETURN 1760 GOSUB 2010 : PRINT HEX(010A);STR(Q6$,1); 1780 GOSUB 2010 : GOSUB '242(Q0+2,"-") : PRINT TAB(64) 1810 PRINT HEX(010A0A) : RETURN 1830 PRINT HEX(0A);TAB(64) : GOTO 2010 1850 Q6=0 1860 Q7=0 : Q8=1 1880 DEFFN'248(Q6,Q7,Q8) : GOSUB 2010 : IF Q8<1THEN 1980 : GOSUB 1980 : SELECT PRINT 205 : Q6$=" " : PRINT STR(Q6$,Q7+1) : IF Q8<2THEN 1980 : FOR W0=2TO Q8 : PRINT HEX(0A);STR(Q6$,1) : NEXT W0 1980 PRINT HEX(01) : GOSUB '242(Q7,HEX(09)) : GOSUB '242(Q6,HEX(0A)) 2010 SELECT PRINT 005(64),CO 005 : RETURN 2030 DEFFN'10"SELECT CO 005";HEX(0D)