Listing of file='PHAL010A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 72, program filename = 'PHAL010A'
0010 REM . PHAL010A, 00-00 (6/28/75), 12002
0100 DIM Q6$64,N1$(6)8,N2$(6),N3$(7),L$(1)2
: A9,K9=0
: GOTO 460
0130 GOSUB '100
0140 PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - MESSAGE"
: GOSUB '248(2,20,0)
: GOSUB '100
: PRINT "TESTING RESULTS"
: I=1
: IF K9=0THEN 220
: GOSUB '248(6,6,0)
: PRINT "NO PROGRAM IS CHOSEN ON THIS VOLUME - NO MESSAGE"
0220 I=I+1
: IF I>P8-1THEN 280
: GOSUB '248(1+I,8,0)
: GOSUB '100
: PRINT STR(N3$(I),1,16);" ---------------- ";E9$(I-1)
: GOTO 220
0280 GOSUB '248(11,0,0)
: IF A9>0THEN 330
: A9=1
: SELECT PRINT 005
: GOTO 140
0330 PRINT "-------------------------------------------------"
: PRINT "... SF 14 FOR PERIPHERIAL DIAG. BRANCH ..."
: PRINT "... SF 15 FOR DIAGNOSTIC MENU ...";
: STOP
0370 DEFFN'14
: PRINT HEX(03);"MOUNT PERIPHERIAL DIAG. VOLUME,"
: PRINT "KEY (EXEC) TO RESUME";
: INPUT Z
: COM CLEAR
: LOAD DC T#6,"START"
0430 DEFFN'15
: COM CLEAR
: LOAD DC T#6,"START"
0460 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"
0550 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
: IF V=0THEN 660
: N3$(J)=N2$(V)
: NEXT J
: GOTO 130
0660 K9=1
: GOTO 130
0680 DEFFN'100
: ON O8GOTO 700,730,760
0700 SELECT PRINT 005
: A9=1
: RETURN
0730 IF A9=1THEN 790
: SELECT PRINT 215
: RETURN
0760 IF A9=1THEN 790
: SELECT PRINT 211
: RETURN
0790 RETURN
0800 Q6=3
: GOTO 1410
0820 DEFFN'254
: GOSUB '243("KEY RETURN(EXEC) TO RESUME",0)
: W4$=Q6$
: GOSUB '248(0,0,4)
: Q6$=W4$
: RETURN
0880 DEFFN'242(W0,Q6$)
: IF W0<=0THEN 1570
: IF W0=1THEN 920
: STR(Q6$,2)=STR(Q6$,1,W0-1)
0920 PRINT Q6$;
: RETURN
0940 DEFFN'243(Q6$,Q0)
: GOSUB 1310
0960 SELECT CO 205
: Q6$=" "
: INPUT Q6$
: IF Q0=0THEN 1380
: IF LEN(Q6$)<=Q0THEN 1380
: GOSUB 1280
1020 DEFFN'244(Q0)
: GOSUB 1360
: GOSUB 1330
: GOTO 960
1060 DEFFN'245(Q6$,Q2,Q3)
: Q0=ABS(Q2)+Q3+1
: GOSUB 1310
1090 GOSUB '242(ABS(Q2)+2,HEX(09))
: PRINT "/"
: GOSUB 1360
: SELECT CO 205
: Q9,W0=-1E-99
: INPUT Q9
: IF W0=Q9THEN 1180
: IF Q9>=0THEN 1240
: IF Q2<=0THEN 1240
1180 GOSUB 1280
1190 DEFFN'246(Q2,Q3)
: Q0=ABS(Q2)+Q3+1
: GOSUB 1360
: GOSUB 1330
: GOTO 1090
1240 IF ABS(Q9)>=10^ABS(Q2)THEN 1180
: W0=ABS(Q9*10^Q3)
: IF INT(W0)<>W0THEN 1180
: GOTO 800
1280 GOSUB 800
: PRINT "RE-ENTER"
: RETURN
1310 GOSUB 1570
: PRINT HEX(010A);STR(Q6$,1);
1330 GOSUB 1570
: GOSUB '242(Q0+2,"-")
: PRINT TAB(64)
1360 PRINT HEX(010A0A)
: RETURN
1380 PRINT HEX(0A);TAB(64)
: GOTO 1570
1400 Q6=0
1410 Q7=0
: Q8=1
1430 DEFFN'248(Q6,Q7,Q8)
: GOSUB 1570
: IF Q8<1THEN 1540
: GOSUB 1540
: SELECT PRINT 205
: Q6$=" "
: PRINT STR(Q6$,Q7+1)
: IF Q8<2THEN 1540
: FOR W0=2TO Q8
: PRINT HEX(0A);STR(Q6$,1)
: NEXT W0
1540 PRINT HEX(01)
: GOSUB '242(Q7,HEX(09))
: GOSUB '242(Q6,HEX(0A))
1570 SELECT PRINT 005(64),CO 005
: RETURN