Listing of file='WDMD010A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 622, program filename = 'WDMD010A'
0010 REM . WDMD010A, 00-00 (9/18/75), 12002
0070 COM T0,O9
: DIM Q6$64
: SELECT PRINT 005(64)
0100 GOSUB 830
0140 GOSUB '248(6,6,0)
: PRINT "1. 310"
: GOSUB '248(7,6,0)
: PRINT "2. 320"
: GOSUB '248(8,6,0)
: PRINT "3. 350"
: GOSUB '248(6,22,0)
: PRINT "4. B10"
: GOSUB '248(7,22,0)
: PRINT "5. B20"
: GOSUB '248(8,22,0)
: PRINT "6. 360"
: GOSUB '248(1,0,0)
0270 GOSUB '245("ENTER THE DISK ADDRESS (BY NUMBER)",1,0)
: IF Q9>0THEN 310
0290 GOSUB 1330
: GOTO 270
0310 IF Q9>6THEN 290
: O9=Q9
: GOSUB 830
: GOSUB '248(6,6,0)
: PRINT "DISK ADDRESS = ";
: ON O9GOTO 380,400,420,440,460,480
: STOP "SYSTEM ERROR"
0380 PRINT "310"
: GOTO 490
0400 PRINT "320"
: GOTO 490
0420 PRINT "350"
: GOTO 490
0440 PRINT "B10"
: GOTO 490
0460 PRINT "B20"
: GOTO 490
0480 PRINT "360"
0490 GOSUB '248(1,0,0)
0500 GOSUB '245("ENTER 0 TO ACCEPT, 1 TO RE-ENTER",1,0)
: IF Q9=0THEN 550
: IF Q9=1THEN 100
: GOSUB 1330
: GOTO 500
0550 T0=0
: ON O9GOTO 580,580,660,580,580,660
: STOP "SYSTEM ERROR"
0580 PRINT HEX(03);"ENTER 1 TO TEST 'COPY/MOVE'(REQUIRES BOTH DRIVES), 0 TO SK
IP"
0590 INPUT T0
: IF T0=0THEN 660
: IF T0=1THEN 660
: PRINT "RE-ENTER"
: PRINT HEX(0C0C);TAB(64)
: PRINT HEX(0C);
: GOTO 590
0660 ON O9GOTO 680,700,720,740,760,780
: STOP "SYSTEM ERROR"
0680 SELECT DISK 310,#1310,#2310,#3310,#4310,#5310
: GOTO 800
0700 SELECT DISK 320,#1320,#2320,#3320,#4320,#5320
: GOTO 800
0720 SELECT DISK 310,#1350,#2350,#3350,#4350,#5350
: GOTO 820
0740 SELECT DISK 310,#1B10,#2B10,#3B10,#4B10,#5B10
: GOTO 810
0760 SELECT DISK 320,#1B20,#2B20,#3B20,#4B20,#5B20
: GOTO 810
0780 SELECT DISK 320,#1360,#2360,#3360,#4360,#5360
: GOTO 820
0800 LOAD DC T#6,"WDMD020A"
0810 LOAD DC T#6,"WDMD020B"
0820 LOAD DC T#6,"WDMD020C"
0830 PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - DISK INST."
: RETURN
0850 Q6=3
: GOTO 1460
0870 DEFFN'254
: GOSUB '243("KEY RETURN(EXEC) TO RESUME",0)
: W4$=Q6$
: GOSUB '248(0,0,4)
: Q6$=W4$
: RETURN
0930 DEFFN'242(W0,Q6$)
: IF W0<=0THEN 1620
: IF W0=1THEN 970
: STR(Q6$,2)=STR(Q6$,1,W0-1)
0970 PRINT Q6$;
: RETURN
0990 DEFFN'243(Q6$,Q0)
: GOSUB 1360
1010 SELECT CO 205
: Q6$=" "
: INPUT Q6$
: IF Q0=0THEN 1430
: IF LEN(Q6$)<=Q0THEN 1430
: GOSUB 1330
1070 DEFFN'244(Q0)
: GOSUB 1410
: GOSUB 1380
: GOTO 1010
1110 DEFFN'245(Q6$,Q2,Q3)
: Q0=ABS(Q2)+Q3+1
: GOSUB 1360
1140 GOSUB '242(ABS(Q2)+2,HEX(09))
: PRINT "/"
: GOSUB 1410
: SELECT CO 205
: Q9,W0=-1E-99
: INPUT Q9
: IF W0=Q9THEN 1230
: IF Q9>=0THEN 1290
: IF Q2<=0THEN 1290
1230 GOSUB 1330
1240 DEFFN'246(Q2,Q3)
: Q0=ABS(Q2)+Q3+1
: GOSUB 1410
: GOSUB 1380
: GOTO 1140
1290 IF ABS(Q9)>=10^ABS(Q2)THEN 1230
: W0=ABS(Q9*10^Q3)
: IF INT(W0)<>W0THEN 1230
: GOTO 850
1330 GOSUB 850
: PRINT "RE-ENTER"
: RETURN
1360 GOSUB 1620
: PRINT HEX(010A);STR(Q6$,1);
1380 GOSUB 1620
: GOSUB '242(Q0+2,"-")
: PRINT TAB(64)
1410 PRINT HEX(010A0A)
: RETURN
1430 PRINT HEX(0A);TAB(64)
: GOTO 1620
1450 Q6=0
1460 Q7=0
: Q8=1
1480 DEFFN'248(Q6,Q7,Q8)
: GOSUB 1620
: IF Q8<1THEN 1590
: GOSUB 1590
: SELECT PRINT 205
: Q6$=" "
: PRINT STR(Q6$,Q7+1)
: IF Q8<2THEN 1590
: FOR W0=2TO Q8
: PRINT HEX(0A);STR(Q6$,1)
: NEXT W0
1590 PRINT HEX(01)
: GOSUB '242(Q7,HEX(09))
: GOSUB '242(Q6,HEX(0A))
1620 SELECT PRINT 005(64),CO 005
: RETURN
1640 DEFFN'15
: COM CLEAR
: SELECT PRINT 005
: LOAD DC T#6,"START"
1680 DEFFN'100
: ON O8GOTO 1710,1730,1750
: STOP "SYSTEM ERROR"
1710 SELECT PRINT 005
: RETURN
1730 SELECT PRINT 215
: RETURN
1750 SELECT PRINT 211
: RETURN