10 REM +++++++++++++++++++++++++++++++++
11 REM ! Program .... COMPARE.UTL
12 REM ! Utg}va  1.0    1981-09-20
13 REM ! av JAN K[RRB[CK <765>
14 REM ! granskat av BO HJULSTR\M <557>
15 REM ! Copyright SE 4
16 REM ! Minne 16 Kbytes f|r flexskiva
17 REM ! Ins{nt av SE 4
18 REM +++++++++++++++++++++++++++++++++
19 REM UTILITYPROGRAM : 
20 REM PROGRAMMET J[MF\R TV] SEKTORER
21 REM FR]N TV] OLIKA SKIVOR.
22 REM 
23 REM 
24 REM 
25 REM 
26 REM 
27 REM 
28 REM 
29 REM 
30 REM +++++++++++++++++++++++++
31 REM (c) COMPARE Vers 1.0
32 REM JAN K[RRB[CK 81.09.20
33 REM Tel 08/386285,891910 
34 DIM A$=0%,B$=256% : R%=65065%
35 R%=PEEK(R%)+SWAP%(PEEK(R%+1%))
36 POKE (R%+4%),256%,SWAP%(256%),62720%,SWAP%(62720%),256%,SWAP%(256%)
37 ; CHR$(12%)'* ABC80 COMPARE Vers 1.0 *'
38 ONERRORGOTO 45 : ; : ; 'Vilket sp}r,sektor skall j{mf|ras '; : INPUT T%,R%
39 POKE -767%,0% : Z%=CALL(24678%,T%*256%+R%*32%) : IF PEEK(-747%) GOTO 44
40 B$=A$
41 POKE -767%,1% : Z%=CALL(24678%,T%*256%+R%*32%) : IF PEEK(-747%) GOTO 44
42 ; : ; 'Sektorerna {r '; : IF A$=B$ ; 'lika.'; ELSE ; 'olika.';
43 GET T$ : GOTO 37
44 ; : ; 'Diskfel drive'PEEK(-767%)' !!!'
45 END