Listing of file='MEMTST.BAS;01' on disk='vmedia/chip_27-sector.ccvf'
4 REM CUWEST JOHN NEWMAN 6 9 81 5 PLOT 12,14:PRINT " MEMORY TEST":PRINT 6 INPUT "LOW ADDRESS (MIN IS 34500): ";L 7 INPUT "HIGH ADDRESS(MAX=49151 FOR 16K,65535 FOR 32K) : ";H 8 PRINT :INPUT "WRITE OR READ MEMORY : ";WR$ 10 INPUT "BIT PATTERN (0 TO 255) : ";BITS 12 IF WR$= "R"THEN 20 13 PRINT :PRINT "WRITING :";BITS;" TO MEMORY" 15 FOR I= LTO H:POKE I,BITS:NEXT :PRINT "FINISHED WRITING ";BITS 16 PRINT :PRINT "NOW CHECK READING." 20 PRINT "MEMORY READ, CHECKING BIT PATTERN: ";BITS:PLOT 15:FOR I= LTO H 30 M= PEEK (I):IF M< > BITS THEN PRINT "ADDRESS: ";I;" CONTAINS: ";M;TAB( 30)" SHOULD BE: ";BITS 40 NEXT 50 PRINT :PRINT "FINISHED READING MEMORY":GOTO 8