Listing of file='MSGD010A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 84, program filename = 'MSGD010A'
0010 REM . MSGD010A, 00-00 (6/28/75), 12002
0100 DIM Q6$64,N1$(6)8,N2$(6),N3$(7),L$(1)2
: A9=0
: GOTO 440
0130 GOSUB '100
0140 PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - MESSAGE"
: GOSUB '248(2,20,0)
: GOSUB '100
: PRINT "TESTING RESULTS"
: I=1
0190 I=I+1
: IF I>P8-1THEN 250
: GOSUB '248(1+I,8,0)
: GOSUB '100
: PRINT STR(N3$(I),1,16);" ---------------- ";E9$(I-1)
: GOTO 190
0250 GOSUB '248(11,0,0)
: IF A9>0THEN 300
: A9=1
: SELECT PRINT 005
: GOTO 140
0300 PRINT "-------------------------------------------------"
: IF O0>1THEN 330
: PRINT "... SF 14 FOR IPL VOLUME RETURN ..."
0330 PRINT "... SF 15 FOR DIAGNOSTIC MENU ...";
: STOP
0350 DEFFN'14
: PRINT HEX(03);"MOUNT APPROPRIATE IPL VOLUME,"
: PRINT "KEY (EXEC) TO RESUME";
: INPUT Z
: COM CLEAR
: LOAD DC T#6,"IPL"
0410 DEFFN'15
: COM CLEAR
: LOAD DC T#6,"START"
0440 N1$(1)="WM0D010A"
: N2$(1)="MEMORY"
: N1$(2)="WCPD010A"
: N2$(2)="CPU"
: N1$(3)="PTRD010A"
: N2$(3)="PRINTER"
: N1$(4)="PRVD010A"
: N2$(4)="PLATTER VERIFY"
: N1$(5)="WDMD010A"
0530 N2$(5)="DISK-INSTR."
: N1$(6)="WDKD010A"
: N2$(6)="DISK"
: FOR J=2TO P8-1
: MAT SEARCHN1$(),=D9$(J)TO L$()
: V=VAL(STR(L$(1),2))
: V=INT((V-1)/8)+1
: N3$(J)=N2$(V)
: NEXT J
: GOTO 130
0630 DEFFN'100
: ON O8GOTO 650,680,710
0650 SELECT PRINT 005
: A9=1
: RETURN
0680 IF A9=1THEN 730
: SELECT PRINT 215
: GOTO 740
0710 IF A9=1THEN 730
: SELECT PRINT 211
0730 RETURN
0740 RETURN
0750 Q6=3
: GOTO 1360
0770 DEFFN'254
: GOSUB '243("KEY RETURN(EXEC) TO RESUME",0)
: W4$=Q6$
: GOSUB '248(0,0,4)
: Q6$=W4$
: RETURN
0830 DEFFN'242(W0,Q6$)
: IF W0<=0THEN 1520
: IF W0=1THEN 870
: STR(Q6$,2)=STR(Q6$,1,W0-1)
0870 PRINT Q6$;
: RETURN
0890 DEFFN'243(Q6$,Q0)
: GOSUB 1260
0910 SELECT CO 205
: Q6$=" "
: INPUT Q6$
: IF Q0=0THEN 1330
: IF LEN(Q6$)<=Q0THEN 1330
: GOSUB 1230
0970 DEFFN'244(Q0)
: GOSUB 1310
: GOSUB 1280
: GOTO 910
1010 DEFFN'245(Q6$,Q2,Q3)
: Q0=ABS(Q2)+Q3+1
: GOSUB 1260
1040 GOSUB '242(ABS(Q2)+2,HEX(09))
: PRINT "/"
: GOSUB 1310
: SELECT CO 205
: Q9,W0=-1E-99
: INPUT Q9
: IF W0=Q9THEN 1130
: IF Q9>=0THEN 1190
: IF Q2<=0THEN 1190
1130 GOSUB 1230
1140 DEFFN'246(Q2,Q3)
: Q0=ABS(Q2)+Q3+1
: GOSUB 1310
: GOSUB 1280
: GOTO 1040
1190 IF ABS(Q9)>=10^ABS(Q2)THEN 1130
: W0=ABS(Q9*10^Q3)
: IF INT(W0)<>W0THEN 1130
: GOTO 750
1230 GOSUB 750
: PRINT "RE-ENTER"
: RETURN
1260 GOSUB 1520
: PRINT HEX(010A);STR(Q6$,1);
1280 GOSUB 1520
: GOSUB '242(Q0+2,"-")
: PRINT TAB(64)
1310 PRINT HEX(010A0A)
: RETURN
1330 PRINT HEX(0A);TAB(64)
: GOTO 1520
1350 Q6=0
1360 Q7=0
: Q8=1
1380 DEFFN'248(Q6,Q7,Q8)
: GOSUB 1520
: IF Q8<1THEN 1490
: GOSUB 1490
: SELECT PRINT 205
: Q6$=" "
: PRINT STR(Q6$,Q7+1)
: IF Q8<2THEN 1490
: FOR W0=2TO Q8
: PRINT HEX(0A);STR(Q6$,1)
: NEXT W0
1490 PRINT HEX(01)
: GOSUB '242(Q7,HEX(09))
: GOSUB '242(Q6,HEX(0A))
1520 SELECT PRINT 005(64),CO 005
: RETURN