image of READY prompt

Wang2200.org

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