Listing of file='T27D010A' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'
# Sector 4028, program filename = 'T27D010A' 0010 REM . T27D010A, 00-00 (08/18/75), 12002 : DIM Q6$64 : PRINT HEX(03);"PERIPHERAL DIAGNOSTIC - T/C MENU" : GOSUB '248(4,0,0) : PRINT "--------------------------------------" : GOSUB '248(6,6,0) 0150 PRINT "1. 2227 OFF LINE DIAGNOSTIC" : GOSUB '248(7,6,0) : PRINT "2. WYLBER ON LINE DIAGNOSTIC" 0170 GOSUB '245("ENTER THE NUMBER (1 OR 2) TO CHOOSE THE PROGRAM",1,0) : IF Q9>0THEN 200 0185 GOSUB 9724 : GOTO 170 0200 IF Q9>2THEN 185 : IF Q9=2THEN 230 : LOAD DC T"T27D020A" 0230 LOAD DC T"T27D020B" 9698 Q6=3 : GOTO 9736 9700 DEFFN'254 : GOSUB '243("KEY RETURN(EXEC) TO RESUME",0) : W4$=Q6$ : GOSUB '248(0,0,4) : Q6$=W4$ : RETURN 9704 DEFFN'242(W0,Q6$) : IF W0<=0THEN 9744 : IF W0=1THEN 9706 : STR(Q6$,2)=STR(Q6$,1,W0-1) 9706 PRINT Q6$; : RETURN 9708 DEFFN'243(Q6$,Q0) : GOSUB 9726 9710 SELECT CO 205 : Q6$=" " : INPUT Q6$ : IF Q0=0THEN 9732 : IF LEN(Q6$)<=Q0THEN 9732 : GOSUB 9724 9712 DEFFN'244(Q0) : GOSUB 9730 : GOSUB 9728 : GOTO 9710 9714 DEFFN'245(Q6$,Q2,Q3) : Q0=ABS(Q2)+Q3+1 : GOSUB 9726 9716 GOSUB '242(ABS(Q2)+2,HEX(09)) : PRINT "/" : GOSUB 9730 : SELECT CO 205 : Q9,W0=-1E-99 : INPUT Q9 : IF W0=Q9THEN 9718 : IF Q9>=0THEN 9722 : IF Q2<=0THEN 9722 9718 GOSUB 9724 9720 DEFFN'246(Q2,Q3) : Q0=ABS(Q2)+Q3+1 : GOSUB 9730 : GOSUB 9728 : GOTO 9716 9722 IF ABS(Q9)>=10^ABS(Q2)THEN 9718 : W0=ABS(Q9*10^Q3) : IF INT(W0)<>W0THEN 9718 : GOTO 9698 9724 GOSUB 9698 : PRINT "RE-ENTER" : RETURN 9726 GOSUB 9744 : PRINT HEX(010A);STR(Q6$,1); 9728 GOSUB 9744 : GOSUB '242(Q0+2,"-") : PRINT TAB(64) 9730 PRINT HEX(010A0A) : RETURN 9732 PRINT HEX(0A);TAB(64) : GOTO 9744 : Q6=0 9736 Q7=0 : Q8=1 9738 DEFFN'248(Q6,Q7,Q8) : GOSUB 9744 : IF Q8<1THEN 9740 : GOSUB 9740 : SELECT PRINT 205 : Q6$=" " : PRINT STR(Q6$,Q7+1) : IF Q8<2THEN 9740 : FOR W0=2TO Q8 : PRINT HEX(0A);STR(Q6$,1) : NEXT W0 9740 PRINT HEX(01) : GOSUB '242(Q7,HEX(09)) : GOSUB '242(Q6,HEX(0A)) 9744 SELECT PRINT 005(64),CO 005 : RETURN