Listing of file='MEMTST.BAS;01' on disk='vmedia/sampler-sector.ccvf'
100 PLOT 12:CLEAR 0:I= 0:A= 110 110 X= PEEK (32978)+ PEEK (32979)* 256 120 Y= PEEK (32984)+ PEEK (32985)* 256 130 A= (X- Y- A)/ 4:DIM A(A) 140 PRINT :PRINT "START OF RAM TEST "Y 150 FOR I= 0TO A:A(I)= I:IF A(I)< > ITHEN PRINT "BAD LOCATION AT"I 160 NEXT :PRINT :PRINT "END OF RAM TEST"X:PRINT 170 CLEAR 50:PRINT "TEST IS FINISHED" 180 PLOT 1