Listing of file='COPY020A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 184, program filename = 'COPY020A' 0010 REM COPY020A,00-00(09/23/75),12003 0260 DIM C1$(4)64,C2$(4)64 : C0=1 : INIT(00)N$ : PRINT HEX(010A);"MOUNT PLATTERS AT THE INDICATED ADDRESSES",TAB(64) : INPUT "KEY RETURN(EXEC) TO RESUME",Q6$ : PRINT HEX(010A),TAB(64),TAB(64),TAB(64) 0340 GOSUB '91 : IF N$=HEX(0000000000000000)THEN 450 : IF F=2THEN 400 : PRINT HEX(01);"COPYING FILE NUMBER";C0-1,TAB(64) : GOSUB '92(N$) : IF Q6$= "E"THEN 450 0400 IF F=1THEN 340 : PRINT HEX(01);"VERIFYING FILE NUMBER";C0-1,TAB(64) : GOSUB '93(N$) : IF Q6$= "E"THEN 450 : GOTO 340 0450 DEFFN'15 : PRINT HEX(030A);"MOUNT PROGRAM PLATTER" : INPUT "KEY RETURN(EXEC) TO RESUME",Q6$ : LOAD DC T#6,"START" 0510 DEFFN'93(N$) : GOSUB '229(2,N$) : IF R2$=HEX(10)THEN 580 : PRINT HEX(010A);"FILE - ";N$;" - DOES NOT EXIST ON OUTPUT PLATTER." : INPUT "KEY RETURN(EXEC) TO RESUME",Q6$ 0560 Q6$= "E" : RETURN 0580 LIMITS T#1,N$,X1,Y1,Z1 : LIMITS T#2,N$,X2,Y2,Z2 : FOR I=1TO Z1-1 : DATA LOAD BA T#1,(X1,X1)C1$() : DATA LOAD BA T#2,(X2,X2)C2$() : IF C1$(1)<>C2$(1)THEN 560 : IF C1$(2)<>C2$(2)THEN 560 : IF C1$(3)<>C2$(3)THEN 560 : IF C1$(4)<>C2$(4)THEN 560 : NEXT I : RETURN 0710 DEFFN'92(N$) : GOSUB '229(2,N$) : IF R2$=HEX(00)THEN 800 : PRINT HEX(010A);"FILE - ";N$;" - CAN NOT BE PROCESSED" : INPUT "KEY RETURN(EXEC) TO RESUME",Q6$ : Q6$= "E" : GOTO 990 0800 LIMITS T#1,N$,X1,Y1,Z1 : A=Z1+E : IF E>=0THEN 860 : A=Y1-X1+1 0860 DATA SAVE DC OPEN T#2,A,N$ : LIMITS T#2,N$,X2,Y2,Z2 : FOR I=1TO Z1-1 : DATA LOAD BA T#1,(X1,X1)C1$() : DATA SAVE BA T#2,(X2,X2)C1$() : NEXT I : DATA LOAD BA T#1,(Y1,Y1)C1$() : DATA SAVE BA T#2,(Y2,Y2)C1$() : AND (STR(C1$(1),1,1),F0) : IF STR(C1$(1),1,1)=HEX(A0)THEN 990 0960 GOSUB '229(2,N$) : STR(R9$(R6),1,2)=HEX(1080) : DATA SAVE BA T#2,(R3,R)R9$() 0990 RETURN 1020 DEFFN'91 : IF M$= "ALL"THEN 1090 : IF C0>CTHEN 1070 : N$=N$(C0) : GOTO 1110 1070 INIT(00)N$ : RETURN 1090 GOSUB '90(1,N$) : IF N5<0THEN 1090 1110 C0=C0+1 : RETURN 1150 DEFFN'90(N,N$) : GOSUB '229(N,N$) : N5,N1=0 : IF R6<>0THEN 1210 : R=0 : GOTO 1340 1210 R6=R6+1 : IF R6=17THEN 1320 1230 FOR N0=R6TO 16 : IF (N0-1)+ABS(R-1)=0THEN 1310 : IF STR(R9$(N0),1,1)=HEX(21)THEN 1310 : ON VAL(STR(R9$(N0),1,1))-15GOTO 1280,1310 : GOTO 1300 1280 N$=STR(R9$(N0),9,8) : N1=1 1300 N0=16 1310 NEXT N0 1320 IF N1=1THEN 1380 : IF R>R4THEN 1370 1340 DATA LOAD BA T#N,(R,R)R9$() : R6=1 : GOTO 1230 1370 INIT(00)N$ 1380 RETURN 1390 DEFFN'229(R9,R9$) : DATA LOAD BA T#R9,(0,R3)R9$() : AND (STR(R9$(1),2,1),7F) : R4=VAL(STR(R9$(1),2,1)) : R1$=R9$ : XOR (STR(R1$,2),R1$) : R2$=STR(R1$,8,1) : R3$=HEX(0000) : ADDC(R3$,R2$) : ADDC(R3$,R2$) : ADDC(R3$,R2$) 1400 ADD(STR(R3$,1,1),STR(R3$,2,1)) : R3=VAL(R3$) : R3=R3-INT(R3/R4)*R4 : R5=R3 1410 DATA LOAD BA T#R9,(R3,R)R9$() : R6=0 : FOR R7=1TO 16 : IF R3<>0THEN 1420 : IF R7<>1THEN 1420 : R7=2 1420 R2$=STR(R9$(R7),1,1) : IF R2$=HEX(00)THEN 1440 : IF R2$=HEX(10)THEN 1430 : IF R2$<>HEX(11)THEN 1450 1430 IF STR(R9$(R7),9,8)<>R9$THEN 1450 : R6=R7 1440 R7=16 1450 NEXT R7 : IF R2$=HEX(00)THEN 1460 : IF R6<>0THEN 1460 : R2$=HEX(00) : R3=R3-1 : IF R3=R5THEN 1460 : IF R3>=0THEN 1410 : R3=R4-1 : GOTO 1410 1460 RETURN