image of READY prompt

Wang2200.org

Listing of file='MEM-LOAD' on disk='vmedia/wcs_diags.wvd.zip'

# Sector 36, program filename = 'MEM-LOAD'
0010 REM -- MEM-LOAD  --   RICHARD NICHOLS 01/27/76
0020 DIM E1(6),J$59,A$(4)64,B$3
   : INIT("*")J$
0030 DATA LOAD DA T(1023,L)A1$,A2$,A3$,A4$,M$,A,S8,E1(),E1$
   : A=A+1
   : Z9(1)=A
   : IF M$="DISK MC1"THEN 60
   : FOR X=1TO 6
   : E(X)=E(X)+E1(X)
   : NEXT X
   : DATA SAVE DA T$(1023,L)A1$,A2$,A3$,A4$,M$,A,S8,E(),E1$
   : COM CLEAR N5$()
   : IF A3$="OP5D010A"THEN 70
0040 GOSUB 1000
   : PRINT TAB(14);"MINUTES REMAINING IN MEMORY TEST"
   : PRINT J$
0050 LOAD DC T"EXPAN-05"
0060 LOAD DC T"DISK MC1"
0070 CONVERT STR(M$,1,2)TO B
   : INIT(00)H7$
   : BIN(STR(H7$,2,1))=B/4
   : B=24+((B-4)/4)*32
   : CONVERT BTO B$,(###)
0080 GOSUB 1000
   : PRINT "       ";"LOOP"
   : PRINT J$;HEX(0D0C0D)
0090 LIMITS T"EXPAN-03",C,D,E
   : DATA LOAD BA T(C+1,L)A$()
   : STR(A$(1),9,3)=B$
   : DATA SAVE BA T$(C+1,L)A$()
   : LOAD DC T"EXPAN-03"
1000 PRINT HEX(03);"*************  2200 MEMORY TEST";TAB(32);M$;TAB(37);"PASS
     ";A;" *************"
   : RETURN