Listing of file='LPUNQ' on disk='vmedia/701-2721C.wvd.zip'
# Sector 593, program filename = 'LPUNQ' 0010 REM % LPUNQ 0060 DIM V1$(3)82,V0$(1)1 : IF L0$(4)=" "THEN I=3 : ELSE I=4 : PRINT AT(23,0);HEX(0E);"Deleting Data for Background Merge";HEX(0F); : GOSUB '211(L0$(I),B9$,B4$,HEX(FF)) : IF R1$<>HEX(00)THEN GOTO 970 : GOSUB '220(V3,1,1,1,1) : IF R1$<>HEX(00)THEN GOTO 970 : GOSUB '223(V3,V0,1) : IF R1$<>HEX(00)THEN GOTO 970 : IF L0$(4)<>" "THEN GOTO 800 : FOR K=1TO G5STEP 5 : GOSUB '223(V3,V0,1) 0720 IF R1$<>HEX(00)THEN GOTO 970 : NEXT K 0800 GOSUB '212(V3) : IF R1$<>HEX(00)THEN GOTO 970 : COM CLEAR U1$() : L0(3)=1 : L0(4)=0 : LOAD T"LPOVER01" 0970 L0$=BIN(9) : STR(L0$,2)="Accessed" : LOAD T"LPERROR" 9000 DEFFN'0"SCRATCH T";HEX(22);"LPUNQ";HEX(22); 9100 DEFFN'1"SAVE T ()";HEX(22);"LPUNQ";HEX(22);