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