Listing of file='LPBAKDAT' on disk='vmedia/701-2721C.wvd.zip'
# Sector 132, program filename = 'LPBAKDAT'
0100 REM % ***LPBAKDAT***
0135 COM Q4$(5)50,G3$(50)43
: COM L0(5),L8(5),L4,G5,G6,R5$5,B9$,B4$6,B3$5,L0$(7)20
: DIM V1$(3)82,V0$(1)1
: DATA LOAD DA T(L8(5)+2)G3$()
: PRINT AT(21,0,);AT(23,0);HEX(0E);"Saving Data for Background Merge";HEX(0
F);
: V1$()=ALL(FF)
: $PACK(F=HEX(6005600560056005A014))V1$()FROML0(),L4,G5,G6,L0$()
0165 IF L0$(4)=" "THEN GOTO 170
: GOSUB '225(A1,1,1,1)
: IF R1$<>HEX(00)THEN GOTO 1000
: I=4
: GOTO 270
0170 GOSUB '225(L8(2),1,1,1)
: IF R1$<>HEX(00)THEN GOTO 1000
: I=V0
: J=1
: FOR K=1TO G5STEP 5
: MAT COPY STR(G3$(),(K-1)*G6+1,5*G6)TO STR(V1$(),1,5*G6)
: GOSUB '222(L8(2),1,I,1,1)
: IF R1$<>HEX(00)THEN GOTO 1000
: NEXT K
: I=3
0270 STR(Q4$(4),26,5)=B3$
: STR(Q4$(4),31,5)=STR(L0$(I),12,4)&STR(L0$(I),10,1)
: STR(Q4$(4),36,6)=B4$
: Q4$(5)="LPOVER07"
: COM CLEAR G3$()
: A5$="LPOVER06"
: LOAD T"609PR002"
1000 IF R1$=HEX(01)THEN GOTO 1040
: L0$=BIN(9)
: STR(L0$,2)="Created"
: LOAD T"LPERROR"
1040 L0$=BIN(11)
: STR(L0$,2)=B9$
: LOAD T"LPERROR"
9000 DEFFN'0"SCRATCH T ";HEX(22);"LPBAKDAT";HEX(22)
9010 DEFFN'1"SAVE T () ";HEX(22);"LPBAKDAT";HEX(22)