image of READY prompt

Wang2200.org

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