Listing of file='GENLIST ' on disk='vmedia/701-2721C.wvd.zip'
# Sector 625, program filename = 'GENLIST'
0003 COM K8$(490)1
0099 DIM Y$(30)20,C$(10)40,F$(10)10,S1(1),X$20,T1$(600)1
: LOAD T"benentry"2000,2500BEG 106
0106 LOAD T"DDA.DAT"7000,7050BEG 109
0109 GOSUB '140(2,"151152")
: LOAD T<R9>R9$()7000,7999BEG 118
0118 E$="N"
0121 GOSUB '200(" "," ")
: IF E$="Y"OR E$="N"THEN 133
: PRINT HEX(06070E);AT(23,0);"Enter 'Y' (yes) or 'N' (no) for viewing descr
iptions";HEX(0F);
: GOTO 121
0133 PRINT HEX(06);AT(21,0,);
: IF R1>0THEN 142
: PRINT HEX(06);AT(13,0,80);
: PRINT AT(16,0,80);
: GOTO 379
0142 STR(R8$(),7,20)=X$
: STR(R8$(),6,1)=E$
: IF E$="N"THEN 157
: A$="listdesc"
: GOTO 169
0157 ON VAL(STR(R8$(),5,1))GOTO 160,163,166
0160 A$="listndf1"
: GOTO 169
0163 A$="listndf2"
: GOTO 169
0166 A$="listndf3"
0169 LOAD TA$1000,1500BEG 178
0178 K$=STR(R8$(),1,1)
: O=VAL(STR(R8$(),2,2))
: Z=VAL(STR(R8$(),4,1))
: V=VAL(STR(R8$(),5,1))
: E$=STR(R8$(),6,1)
: X$=STR(R8$(),7,20)
: IF E$="Y"THEN V=1
: IF X$=" "THEN H$="GT"
: ELSE H$="GE"
: M2$=X$
: F=0
: P=1
: A=1
: B=10*V
: S=1
: PRINT HEX(06);AT(4,0,)
0205 PRINT HEX(0E06);AT(23,1);"Searching Definitions ";HEX
(0F);
: Q=1
: M3$=" "
: M5$=" "
: FOR L=ATO BSTEP S
: GOSUB '151(H$,K$,M2$,M3$," ",M5$," ")
: IF M=64THEN 256
: IF X$<>" "AND STR(M2$,1,LEN(X$))<>X$THEN 256
: IF M<>0THEN GOSUB '6(1,"find def")
: Y$(L)=M2$
: IF E$="N"THEN 241
: GOSUB '152("KY",K$," ",M2$,M3$," ",M5$)
0235 IF M<>0THEN GOSUB '6(1,"read def")
: C$(L)=STR(K8$(),56,40)
: IF Z<>0AND O<>0THEN F$(L)=STR(K8$(),O,Z)
0241 IF H$="GE"THEN H$="GT"
: NEXT L
: IF H$="GT"THEN F=1
: GOTO 289
0256 F=0
: L=L-1
: IF L>0THEN 289
: IF P=1THEN 277
: P=P-1
: GOTO 421
0277 IF X$<>" "THEN 283
: PRINT HEX(06070E);AT(23,0);"There Are No Saved Definitions";HEX(0F);
: GOTO 379
0283 PRINT HEX(06070E);AT(23,0);"No Definitions Match the Search Characters";H
EX(0F);
: GOTO 121
0289 PRINT HEX(06);AT(23,1,70);
: IF E$="N"THEN 298
: X=V
: V=3
0298 PRINT HEX(06);AT(4,(((80-V*22)/(V+1)+22)*V-1));"page";
: PRINT HEX(06);AT(5,(((80-V*22)/(V+1)+22)*V));P;
: IF P<=1THEN 307
: PRINT HEX(06);AT(19,39);"* '5/PREV SCRN for Previous Listing Page";
: GOTO 310
0307 PRINT HEX(06);AT(19,30,50);
0310 IF F=0THEN 316
: PRINT HEX(06);AT(18,((80-V*22)/(V+1)+22)*V-2);"More *";
: PRINT HEX(06);AT(20,39);"* '6/NEXT SCRN for Next Listing Page";
: GOTO 319
0316 PRINT HEX(06);AT(18,40,40);AT(20,30,50);
0319 IF E$="Y"THEN V=X
: IF H$="LT"OR L=BTHEN 355
: IF E$="Y"THEN 349
: FOR J=L+1TO B
: K=FIX((J-1)/10)
: T=MOD(J,10)
: IF T=0THEN T=10
: PRINT HEX(06);AT(6+T,(FIX((80-V*22)/(V+1))+22)*K+FIX((80-V*22)/(V+1)),22)
;
: NEXT J
: GOTO 358
0349 FOR J=L+1TO B
: PRINT HEX(06);AT(6+J,0,80);
: NEXT J
0355 IF H$="LT"THEN L=V*10
0358 S1(1)=L
0361 GOSUB '100(" ","PN")
: IF R1>1THEN 376
: PRINT HEX(06);AT(19,0,);
: IF R1<1THEN 379
0376 ON R1GOTO 382,454,415
0379 X$=" "
: GOTO 388
0382 X$=Y$(Q)
0388 STR(R8$(),1,20)=X$
: R1$(1)="L"
: PRINT HEX(06);AT(21,30,50);AT(22,30,50);
: A$=STR(R3$(),,9)
: R3$()=STR(R3$(),10)
: LOAD TA$
0415 IF F=1THEN 433
0421 PRINT HEX(0E0706);AT(23,1);"No Next Screen of Definitions
";HEX(0F);
: PRINT HEX(06);AT(18,40,40);
: L=S1(1)
: GOTO 361
0433 PRINT HEX(06);AT(19,0,);
: P=P+1
: H$="GT"
: A=1
: B=10*V
: S=1
: M2$=Y$(10*V)
: GOTO 205
0454 IF P>1THEN 469
: PRINT HEX(0E0706);AT(23,1);"No Previous Screen of Definitions
";HEX(0F);
: L=S1(1)
: GOTO 361
0469 PRINT HEX(06);AT(19,0,);
: F=1
: P=P-1
: M2$=Y$(1)
: H$="LT"
: A=10*V
: B=1
: S=-1
: GOTO 205
0991 DEFFN'6(M4,L0$(4))
: LOAD T"DDA.DAT"7000,7050BEG 993
0993 GOSUB '140(1,"160")
: LOAD T<R9>R9$()7000,7999BEG 995
0995 GOSUB '160(M4,"GENLIST ",L0$(4))
: A$=STR(R3$(),,9)
: R3$()=STR(R3$(),10)
: R1$(1)="D"
: LOAD TA$
1000 DEFFN'100(S9$,S0$)
: S4=1
: S3=01
: S2=0
: S1=0
: T0$=" "
: RESTORE LINE1020
: GOSUB '129("DATA",0)
: T9=0
: FOR T4=1TO 02
: ON T4GOSUB 1010,1015
: NEXT T4
: T9=-1
: T3=S4
1006 ON T3GOSUB 1010
: ON R1GOTO ,,,,1008,1009
: RETURN
1008 T3=MOD(T3+1,S3+1)
: IF T3=0THEN T3=S4
: GOTO 1006
1009 T3=MOD(T3-1,S3+1)
: IF T3<S4THEN GOTO 1009
: GOTO 1006
1010 I3=20
: GOSUB '126(08,13,01,10,34,S1(1),Y$(),S0$,"\A5",Q,T9," ")
: Q=T0
: RETURN
1015 RETURN
1020 DATA 05,01,00,"Select a definition:"
: DATA 22,43,00,"EXEC/RUN"
: DATA 22,56,00,"to Select and Return"
: DATA 23,43,00,"CANCEL/EDIT to Return"
: DATA 0,0,0," "
2000 DEFFN'200(S9$,S0$)
: S4=1
: S3=02
: S2=0
: S1=0
: T0$=" "
: RESTORE LINE2020
: GOSUB '129("DATA",0)
: T9=0
: FOR T4=1TO 02
: ON T4GOSUB 2010,2015
: NEXT T4
: T9=-1
: T3=S4
2006 ON T3GOSUB 2010,2015
: ON R1GOTO ,,,,2008,2009
: RETURN
2008 T3=MOD(T3+1,S3+1)
: IF T3=0THEN T3=S4
: GOTO 2006
2009 T3=MOD(T3-1,S3+1)
: IF T3<S4THEN GOTO 2009
: GOTO 2006
2010 GOSUB '126(14,45,20,01,21,001,X$,S0$,"X",1,T9,"1.....7")
: X$=T1$()
: RETURN
2015 GOSUB '126(17,60,01,01,02,001,E$,S0$,"A",1,T9,"1....67")
: E$=T1$()
: RETURN
2020 DATA 01,42,00,"- List Existing Definitions"
: DATA 14,14,00,"Search characters for listing:"
: DATA 17,15,00,"Do you wish to view definition descriptions?"
: DATA 22,49,00,"EXEC/RUN"
: DATA 22,61,00,"to Initiate listing "
: DATA 23,49,00,"CANCEL/EDIT to Terminate listing"
2026 DATA 0,0,0," "
9000 DEFFN'0"SCRATCH T";HEX(22);"DOCGLIST";HEX(22);
9001 DEFFN'3"SAVE<SR>T ()";HEX(22);"GENLIST ";HEX(22);
9002 DEFFN'2"SCRATCH T";HEX(22);"GENLIST ";HEX(22);
9100 DEFFN'1"SAVE T ()";HEX(22);"DOCGLIST";HEX(22);