Listing of file='LPSAVDEF' on disk='vmedia/701-2721C.wvd.zip'
# Sector 544, program filename = 'LPSAVDEF'
0003 COM C$4,K8$(490)1,S0$(1)1,T1$(600)1,X$20
0100 LOAD T"bendmenu"1000,2000BEG 103
0103 LOAD T"enterdef"2000,3000BEG 106
0106 LOAD T"SE.SUBS"3000,4000BEG 112
0112 IF R1$(1)="L"THEN 130
: STR(R8$(),1,20)=" "
: LOAD T"DDA.DAT"7000,7050BEG 118
0118 GOSUB '140(1,"150")
: LOAD T<R9>R9$()7000,7999BEG 124
0124 GOSUB '150("2 5 B 525657")
: IF M<>0THEN GOSUB '6(0,"opening")
: PRINT HEX(03)
0130 R1$()=" "
: PRINT AT(0,0,);
0132 PRINT AT(14,0,80);
: GOSUB '100(" "," ")
: IF Q=3THEN PRINT AT(14,0,80);
: PRINT AT(21,30,50);
: PRINT AT(22,30,50);
: IF R1>0THEN 181
: LOAD T"DDA.DAT"7000,7050BEG 148
0148 GOSUB '140(1,"156")
: LOAD T<R9>R9$()7000,7999BEG 154
0154 COM CLEAR G3$()
: PRINT AT(23,0);HEX(0E);"Exiting";HEX(0F);
: GOSUB '156("2 5 B 525657")
: IF M<>0THEN GOSUB '6(0,"closing1")
: LOAD T"LPINIT"
0181 STR(R8$(),27,1)=BIN(Q)
: LOAD T"DDA.DAT"7000,7050BEG 190
0190 GOSUB '140(3,"151152155")
: LOAD T<R9>R9$()7000,7999BEG 196
0196 Q=VAL(STR(R8$(),27,1))
: IF Q=3THEN 295
0208 X$=STR(R8$(),1,20)
0211 GOSUB '200(" "," ")
: STR(R8$(),1,20)=X$
: PRINT AT(21,0,);
: IF R1<1THEN 132
: GOSUB '152("KY","B"," ",X$," "," "," ")
: IF M=0THEN 238
: PRINT AT(23,1);HEX(0E07);"Definition Does Not Exist";HEX(0F);
: GOTO 211
0238 ON QGOTO 244,244,,316
0244 L0$(6)=X$
: LOAD T"DDA.DAT"7000,7050BEG 250
0250 GOSUB '140(1,"156")
: LOAD T<R9>R9$()7000,7999BEG 256
0256 COM CLEAR C$
: GOSUB '156("2 5 B 525657")
: IF M<>0THEN GOSUB '6(0,"closing2")
: IF VAL(STR(R8$(),27,1))=2THEN 277
: S=VAL(STR(K9$,7,1))
: L=VAL(STR(K9$,8,1))
: MAT COPY -K9$<S,L-24>TO -K9$<S+24,L-24>
: STR(K9$,S,24)="LPPROMPT"&"LPINIT "&"LPOVER05"
: GOTO 288
0277 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)="LPRETURN"
0288 A0$()="LPGETDEF"&"DDA.VARC"
: LOAD T<2>A0$()
0295 PRINT AT(14,0,80);
: STR(R8$(),1,1)="B"
: STR(R8$(),2,2)=BIN(01)
: STR(R8$(),4,1)=BIN(05)
: STR(R8$(),5,1)=BIN(2)
: X=LEN(STR(R3$()))-9
: MAT COPY -R3$()<1,X>TO -R3$()<10,X>
: STR(R3$(),,9)="LPSAVDEF"
: A0$()="GENLIST "&"SE.SUBS "
: LOAD T<2>A0$()
0316 PRINT AT(19,30);HEX(0204040E07);"Delete ";X$;"?";HEX(0204020F);
: PRINT AT(21,47);"EXEC/RUN to Continue";
: PRINT AT(22,47);"CANCEL/EDIT to Terminate";
0322 KEYIN T$
: IF T$=HEX(82)OR T$=HEX(F0)THEN 331
: PRINT AT(23,1);HEX(0E07);"Invalid Key Ignored";HEX(0F);
: GOTO 322
0331 PRINT AT(19,0,);
: IF T$=HEX(F0)THEN 132
: PRINT AT(23,1);HEX(0E);"Deleting ";X$;HEX(0F);
: GOSUB '75(STR(K8$(),28,20))
: GOSUB '155("B",X$," "," "," "," ")
: IF M<>0THEN GOSUB '6(1,"delete B")
: STR(R8$(),1,20)=" "
: PRINT AT(23,1,50);
: GOTO 208
0361 DEFFN'75(M2$)
: GOSUB '4("2")
: GOSUB '4("6")
: GOSUB '4("7")
: GOSUB '155("5",M2$," "," "," "," ")
: IF M<>0AND M<>52THEN GOSUB '6(1,"delete 5")
: RETURN
0385 DEFFN'4(M4$)
: M5$=" "
0391 GOSUB '151("GT","5",M2$," ",M4$,M5$," ")
: IF M=64THEN RETURN
: IF M<>0THEN GOSUB '6(1,"find5,M4")
: GOSUB '155(M1$,M2$,M3$,M4$,M5$,M6$)
: IF M<>0AND M<>52THEN GOSUB '6(1,"del 5,M4")
: GOTO 391
0991 DEFFN'6(M4,L0$(4))
: LOAD T"DDA.DAT"7000,7050BEG 994
0994 GOSUB '140(1,"160")
: LOAD T<R9>R9$()7000,7999BEG 997
0997 GOSUB '160(M4,"LPSAVDEF",L0$(4))
: COM CLEAR K9$
: LOAD TR3$(2)
9000 DEFFN'0"SCRATCH T";HEX(22);"NEWSAVDF";HEX(22);
9001 DEFFN'3"SAVE<SR>T ()";HEX(22);"LPSAVDEF";HEX(22);
9002 DEFFN'2"SCRATCH T";HEX(22);"LPSAVDEF";HEX(22);
9100 DEFFN'1"SAVE T ()";HEX(22);"NEWSAVDF";HEX(22);