image of READY prompt

Wang2200.org

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