Listing of file='MEMORY' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 264, program filename = 'MEMORY' 0010 REM ******** MEMORY ******* 0020 DIM Z$3,A$(4)64 : INIT(2A)STR(A$(1),1,19) 0030 PRINT HEX(03);TAB(20);"WCS MEMORY TEST";HEX(0D0A);TAB(18);A$(1);HEX(0A0A) 0040 FOR X=2TO 8 : CONVERT XTO STR(Z$,1,1),(#) : PRINT TAB(18);STR(Z$,1,1);".)";" .......";4*X;TAB(32);"K" : NEXT X 0050 PRINT HEX(0A0A);TAB(12);"--- CPU MUST HAVE SORT OPTION ---" : PRINT TAB(12);"KEY NUMBER FOR DESIRED MEMORY SIZE" 0060 KEYIN Z$,70,65 : GOTO 60 0065 IF Z$<>HEX(0F)THEN 60 0070 IF STR(Z$,1,1)=HEX(0F)THEN 9000 : COM CLEAR N5$() : CONVERT Z$ TO Z : BIN(STR(H7$,6,1))=Z : Z=Z*4 : CONVERT ZTO STR(Z$,1,2),(##) : STR(Z$,3,1)="K" 0080 Z=Z/4 : PRINT HEX(010A0A); : FOR X=1TO Z : PRINT HEX(0A); : NEXT X : PRINT " TESTING ---->" : FOR X=1TO 300 : NEXT X 0090 PRINT HEX(03);"WCS MEMORY TEST ";Z$ 0100 Z=24+(Z-1)*32 : CONVERT ZTO Z$,(###) : LIMITS T"M0",A,B,C : DATA LOAD BA T(A+1,L)A$() : STR(A$(1),9,3)=Z$ : DATA SAVE BA T$(A+1,L)A$() 0105 LOAD DC T"M0" 9000 DEFFN'15 : LOAD DC T"START"