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);