image of READY prompt

Wang2200.org

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)