image of READY prompt

Wang2200.org

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)