Listing of file='COMPARED' on disk='vmedia/731-0110A.wvd.zip'
# Sector 351, program filename = 'COMPARED' 0010 REM COMPARED 23 JULY 1986 0020 REM PROGRAM NAME - COMPARE DISKS 0030 REM DATE OF FIRST CODE - 23 JULY 1986 0040 REM DATE OF LATEST UPDATE - 0050 REM 0060 REM FUNCTION - 0070 REM THIS PROGRAM WILL COMPARE ALL THE FILES OF DISK 1 AGAINST 0080 REM A MATCHING FILE (W/SAME NAME) ON DISK 2. 0090 REM 0100 DIM N$(500)8,A$(16),B$(16),C$(16),A0$3,A1$3 0105 REM % GET INPUT ADDRESSES 0110 PRINT HEX(03) : PRINT AT(2,24);"COMPARE TWO DISKS" 0120 PRINT AT(5,0,160);"ENTER ADDRESS OF DISK #1"; : A0$="B10" : LINPUT -A0$ : SELECT #1 <A0$> : DATA LOAD BA T#1, (0) A$() : ERRORGOTO 120 0130 PRINT AT(8,0);"DISK #1: ";A0$ : S=VAL(STR(A$(1),2,1)) 0140 PRINT AT(5,0,160);"ENTER ADDRESS OF DISK #2"; : A1$="310" : LINPUT -A1$ : SELECT #2 <A1$> : DATA LOAD BA T#2, (0) B$() : ERRORGOTO 140 0150 PRINT AT(8,40);"DISK #2: ";A1$ 0160 PRINT AT(5,0,160) : PRINT AT(17,0);"FILES WHICH DO NOT COMPARE -" 0170 REM % SET VARAIABLES : X=0 : N=1 : Y=2 0180 REM % PROCESS INDEX SECTOR 0190 IF STR(A$(Y),1,1)=HEX(00) THEN 800 : IF STR(A$(Y),1,1)=HEX(10) THEN 195 : IF STR(A$(Y),1,1)<>HEX(11) THEN 750 0195 REM VALID ENTRY : LIMITS T#1, STR(A$(Y),9,8),S1,E1,Z 0200 LIMITS T#2, STR(A$(Y),9,8),S2,Z,Z : ERRORGOTO 830 0210 REM CMPARE FILE A (S1 TO E1) AGAINST FILE B (S2) : PRINT AT(10,20);"COMPARING FILE: ";STR(A$(Y),9,8) 0215 A=S1 0220 DATA LOAD BA T#1, (A,A) C$() : DATA LOAD BA T#2,(S2,S2) B$() 0230 B=POS(STR(C$())=HEX(FD)) : IF B=0 THEN B=POS(STR(C$())=HEX(FE)) : IF B=0 THEN B=256 : IF STR(C$(),,B)=STR(B$(),,B) THEN 260 0240 REM FILE NO COMPARE : GOTO 830 0250 REM SECTOR COMPARES 0260 IF STR(C$(),1,1)<>HEX(20) AND STR(C$(),1,1)<>HEX(A0) THEN 220 : PRINT AT(10,0,80) 0740 REM NEXT FILE 0750 Y=Y+1 : IF Y<=16 THEN 190 : GOTO 800 0790 REM CHECK IF DONE 0800 IF X=S-1 THEN END 0810 X=X+1 : DATA LOAD BA T#1,(X) A$() : Y=1 : GOTO 190 0820 REM FILE DOES NOT COMPARE 0830 Z=INT((N-1)/5) : PRINT AT(10,0,80) : PRINT AT(18+Z,(N-(Z*5)-1)*16);STR(A$(Y),9,8) : N=N+1 : GOTO 750 9990 DEFFN' 31 "Z$=";HEX(22);"COMPARED";HEX(22);": SCRATCH T Z$: SAVE T () Z$"