Compucolor.org – Virtual Media

Listing of file='CMPARE.BAS;01' on disk='vmedia/hardware_utilities-sector.ccvf'

100 PLOT 12,15,6,2:REM  COMPARE OF DATA AT AF80 & OTHER ADD.
110 PRINT "   PROGRAM TO CHECK MASTER DATA AT AF80 WITH OTHER DATA"
120 PRINT :PRINT "   FIRST COLUMN IS AF80, SECOND TESTED DATA, THIRD BYTE NUMBER":PRINT
130 INPUT "   AF80=44928, ENTER OTHER START ADDRESS - DECIMAL ";C
140 PRINT :INPUT "   ENTER SIZE OF MEMORY, BYTES IN DECI. - ";N
150 PRINT :INPUT "   RUN NOW ? - ";A
160 PRINT :B= 44928
170 FOR L= 0TO N- 1
180 X= PEEK (B+ L):Y= PEEK (C+ L)
190 IF X< > YTHEN 260
200 PRINT X,Y,L
210 NEXT L
220 PRINT :PRINT "FINISHED"
230 PRINT :INPUT "AGAIN? (ENTER A Y TO REPEAT)";D$
240 IF D$< > "Y"THEN END
250 GOTO 100
260 PLOT 7:PRINT ""X,Y," DIFFERENCE AT #";L;" ADDRESS, ";
270 INPUT " PROCEED?";P
280 GOTO 210