Listing of file='M/VD010A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 24, program filename = 'M/VD010A' 0010 REM . M/VD010A, 00-00 (6/28/75), 12002 0100 DIM Q6$64 0110 GOSUB 800 : 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) 0230 GOSUB '245("ENTER THE DISK ADDRESS (BY NUMBER)",1,0) : IF Q9>0THEN 270 0250 GOSUB 1320 : GOTO 230 0270 IF Q9>6THEN 250 : O5=Q9 : GOSUB '248(6,6,4) : PRINT "1. 2230-1" : GOSUB '248(7,6,0) : PRINT "2. 2230-2" : GOSUB '248(8,6,0) : PRINT "3. 2230-3" : GOSUB '248(6,28,0) : PRINT "4. 2260" : GOSUB '248(7,28,0) : PRINT "5. DISKETTE DRIVE" 0390 GOSUB '245("ENTER THE DISK MODEL NO.(1-5)",1,0) : IF Q9>0THEN 430 0410 GOSUB 1320 : GOTO 390 0430 IF Q9>5THEN 410 : A9=Q9 : GOSUB 800 : GOSUB '248(6,6,0) : PRINT "DISK ADDRESS = "; : ON O5GOTO 500,520,540,560,580,584 : STOP "SYSTEM ERROR" 0500 PRINT "310" : GOTO 590 0520 PRINT "320" : GOTO 590 0540 PRINT "350" : GOTO 590 0560 PRINT "B10" : GOTO 590 0580 PRINT "B20" : GOTO 590 0584 PRINT "360" 0590 GOSUB '248(8,6,0) : PRINT "DISK MODEL = "; : ON A9GOTO 630,650,670,690,710 : STOP "SYSTEM ERROR" 0630 PRINT "2230-1" : GOTO 720 0650 PRINT "2230-2" : GOTO 720 0670 PRINT "2230-3" : GOTO 720 0690 PRINT "2260" : GOTO 720 0710 PRINT "DISKETTE DRIVE" 0720 GOSUB '248(1,0,0) 0730 GOSUB '245("ENTER 0 TO ACCEPT, 1 TO RE-ENTER",1,0) : IF Q9=0THEN 780 : IF Q9=1THEN 110 : GOSUB 1320 : GOTO 730 0780 BIN(STR(D9$(1),7,1))=A9*16+O5 : LOAD DC T#6,"M/START" 0800 PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - PLATTER VERIFY" : GOSUB '248(4,0,0) : PRINT "----------------------------------------" : RETURN 0840 Q6=3 : GOTO 1450 0860 DEFFN'254 : GOSUB '243("KEY RETURN(EXEC) TO RESUME",0) : W4$=Q6$ : GOSUB '248(0,0,4) : Q6$=W4$ : RETURN 0920 DEFFN'242(W0,Q6$) : IF W0<=0THEN 1610 : IF W0=1THEN 960 : STR(Q6$,2)=STR(Q6$,1,W0-1) 0960 PRINT Q6$; : RETURN 0980 DEFFN'243(Q6$,Q0) : GOSUB 1350 1000 SELECT CO 205 : Q6$=" " : INPUT Q6$ : IF Q0=0THEN 1420 : IF LEN(Q6$)<=Q0THEN 1420 : GOSUB 1320 1060 DEFFN'244(Q0) : GOSUB 1400 : GOSUB 1370 : GOTO 1000 1100 DEFFN'245(Q6$,Q2,Q3) : Q0=ABS(Q2)+Q3+1 : GOSUB 1350 1130 GOSUB '242(ABS(Q2)+2,HEX(09)) : PRINT "/" : GOSUB 1400 : SELECT CO 205 : Q9,W0=-1E-99 : INPUT Q9 : IF W0=Q9THEN 1220 : IF Q9>=0THEN 1280 : IF Q2<=0THEN 1280 1220 GOSUB 1320 1230 DEFFN'246(Q2,Q3) : Q0=ABS(Q2)+Q3+1 : GOSUB 1400 : GOSUB 1370 : GOTO 1130 1280 IF ABS(Q9)>=10^ABS(Q2)THEN 1220 : W0=ABS(Q9*10^Q3) : IF INT(W0)<>W0THEN 1220 : GOTO 840 1320 GOSUB 840 : PRINT "RE-ENTER" : RETURN 1350 GOSUB 1610 : PRINT HEX(010A);STR(Q6$,1); 1370 GOSUB 1610 : GOSUB '242(Q0+2,"-") : PRINT TAB(64) 1400 PRINT HEX(010A0A) : RETURN 1420 PRINT HEX(0A);TAB(64) : GOTO 1610 1440 Q6=0 1450 Q7=0 : Q8=1 1470 DEFFN'248(Q6,Q7,Q8) : GOSUB 1610 : IF Q8<1THEN 1580 : GOSUB 1580 : SELECT PRINT 205 : Q6$=" " : PRINT STR(Q6$,Q7+1) : IF Q8<2THEN 1580 : FOR W0=2TO Q8 : PRINT HEX(0A);STR(Q6$,1) : NEXT W0 1580 PRINT HEX(01) : GOSUB '242(Q7,HEX(09)) : GOSUB '242(Q6,HEX(0A)) 1610 SELECT PRINT 005(64),CO 005 : RETURN 1630 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"