Listing of file='LPSUPER' on disk='vmedia/701-2721C.wvd.zip'
# Sector 586, program filename = 'LPSUPER' 0100 REM %LIST PROCESSING SUPERVISORY MENU 0230 DATA 4,0,0,"DATAMERGE Supervisory Functions" : DATA 4,7,10,"Please Select the Next Operation" : DATA 1,9,21,1,"Examine / Clear the DATAMERGE In Use Conditions" : DATA "Describe an IDEAS-2 File in the Definition File " : DATA "Reorganize (Sort) the DATAMERGE Definition File" 0300 DATA "\DE" : DATA 4,21,50,"Press EXEC/RUN to Continue" : DATA 4,22,50," CANCEL/EDIT to Return" : DATA 0 : DIM S5(1),S0(1),T5(1),S3(1) : DIM T1$(4)47,S1$(4)2 : DIM T1(4),S6(4),S1(4),T2$(4)32 : DIM T2(1),S7(1),S2(1),S4(1),T5$(1)1 : DIM S2$(1)2,S1$1 : DIM S2$1,T1$80 : LOAD T"Prime 62"3000,3999BEG 920 0920 PRINT HEX(03) : GOSUB '61 : PRINT AT(1,0);BOX(0,80);AT(20,0);BOX(0,80) 0950 GOSUB '62 : IF T5<=0THEN GOTO 1900 : IF T5>1THEN GOTO 950 : S=VAL(STR(K9$,7,1)) : L=VAL(STR(K9$,8,1)) : MAT COPY -K9$<S,L-8>TO -K9$<S+8,L-8> : STR(K9$,S,8)="LPSUPER " : ON T5(1)GOTO 1000,1010,1020 1000 LOAD T"ddu.035" 1010 LOAD T"ddu.005s" 1020 LOAD T"ddu.040" 1900 LOAD T"LPINIT" 9000 DEFFN'0"SCRATCH T ";HEX(22);"LPSUPER";HEX(22) 9100 DEFFN'1"SAVE T() ";HEX(22);"LPSUPER";HEX(22)