Listing of file='LPPROMPT' on disk='vmedia/701-2721C.wvd.zip'
# Sector 480, program filename = 'LPPROMPT' 0050 REM % LPPROMPT 0400 DATA 3,0,0,"DATAMERGE Operator Input" : DATA 4,15,10,"Enter the Value for the Field " : DATA 4,20,50,"Press EXEC/RUN to Continue" : DATA 2,15,52,18," " : DATA 0 0430 DATA 3,0,0,"DATAMERGE Operator Input" : DATA 4,15,14,"Press the Key for the Glossary Label " : DATA 4,20,50,"Press EXEC/RUN to Continue" : DATA 2,15,62,1," " : DATA 0 : DIM S5(1),S0(1),T5(1),S3(1) : DIM T1$(1)1,S1$(1)2 : DIM T1(3),S6(3),S1(3),T2$(3)47 : DIM T2(1),S7(1),S2(1),S4(1),T5$(1)18 0590 DIM S2$(18)2,S1$1 : DIM T1$80,T2$2,S2$1 : DIM R7$(1008)1 : LOAD T"Prime 62"3000,3999BEG 597 0597 PRINT AT(0,0,);AT(19,0);BOX(0,-80); : PRINT AT(1,0);BOX(0,80);AT(18,0);BOX(0,80); : I1=1 : FOR I=1TO G3STEP 1 : IF STR(G3$(I),9,1)="G"AND R7$()<>" "THEN GOTO 870 : IF STR(G3$(I),9,1)="P"THEN RESTORE LINE400 : ELSE IF STR(G3$(I),9,1)="G"THEN RESTORE LINE430 : ELSE GOTO 1000 : GOSUB '61 : J=POS(-STR(G3$(I),1,8)=20)-1 : IF J=-1THEN J=8 : T2$(2)=T2$(2)&HEX(2022)&STR(G3$(I),1,J)&HEX(22) 0727 PRINT AT(15,0,80) 0730 GOSUB '62 : IF T5<>1THEN GOTO 730 : STR(G3$(I),10,2)=BIN(25,2) : T6=LEN(T5$(1)) : STR(G3$(I),12,2)=BIN(T6,2) : $TRAN(T5$(1),HEX(8020))R : STR(G3$(I),25,T6)=T5$(1) : GOTO 1000 0870 STR(G3$(I),10,2)=BIN(25,2) : STR(G3$(I),12,2)=BIN(1,2) : STR(G3$(I),25,1)=STR(R7$(),958+I1,1) : I1=I1+1 1000 NEXT I : LOAD T"SLE.STRT" 9000 DEFFN'0"SCRATCH T ";HEX(22);"LPPROMPT";HEX(22); 9100 DEFFN'1"SAVE T () ";HEX(22);"LPPROMPT";HEX(22);