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