Listing of file='MEMTST.BAS;01' on disk='vmedia/sampler-3.31.78-sector.ccvf'
0 PLOT 12:CLEAR 0:I= 0:A= 110 1 X= PEEK (32978)+ PEEK (32979)* 256 2 Y= PEEK (32984)+ PEEK (32985)* 256 4 A= (X- Y- A)/ 4:DIM A(A) 5 PRINT :PRINT "START OF RAM TEST "Y 6 FOR I= 0TO A:A(I)= I:IF A(I)< > ITHEN PRINT "BAD LOCATION AT"I 7 NEXT :PRINT :PRINT "END OF RAM TEST"X:PRINT 8 CLEAR 50:PRINT "TEST IS FINISHED" 9 LOAD "MENU":RUN 5