Listing of file='ddu.005b' on disk='vmedia/701-2720C.wvd.zip'
# Sector 756, program filename = 'ddu.005b' 1000 % LABEL - START OF PROGRAM 1090 COM J9$1,C6$(13)35,D6,D6$2,D8,D8$1,D9,D7,D1$9,D2$47,D3$(2)20,K8$(500)1 : C9$(1)="ddu.005b" : GOSUB '140(3,"152153154") : IF R9$<>HEX(00)THEN 1505 : LOAD T<R9>R9$()7050,7999BEG 1115 1115 GOSUB '152("KY","2"," ",C0$(1)," "," "," ") : C9$(2)="read/rec" : IF M<>0THEN 1515 : D8=0 : D6=1 : D7=1 : D8$=" " : PRINT AT(21,27,);"Reviewing field " 1135 GOSUB '152("NX","2","3"," "," "," "," ") : IF M<>64THEN 1150 : D8$="E" : IF D7>1THEN 1440 : ELSE GOTO 1485 1150 C9$(2)="next/fld" : IF M<>0THEN 1515 : D8=D8+1 : PRINT AT(21,43);D8; : D3$(1)=M5$ : D1$=STR(K8$(),1,9) : D2$=" " : GOSUB '152("KY","3"," ",D3$(1)," "," "," ") : C9$(2)="read/fld" : IF M<>0THEN 1515 : D2$=STR(K8$(),1,47) : D9=0 1215 % LABEL - NEXT FIELD IN FIELD 1220 GOSUB '152("NX","3","3"," "," "," "," ") : IF M=64THEN 1320 : C9$(2)="next/f-f" : IF M<>0THEN 1515 : IF STR(K8$(),2,2)=HEX(0000)THEN 1215 : D9=D9+1 : D3$(2)=M5$ : STR(K8$(),D0(7,1),1)=BIN(D9) : GOSUB '154(K8$(),"3","3") : C9$(2)="mod/fld" : IF M<>0THEN 1515 : K8$()=" " : STR(K8$(),D0(7,1),1)=HEX(00) : STR(K8$(),D0(7,2),2)=HEX(0000) 1290 GOSUB '153("RW",K8$(),"3",D3$(2)," ","3",D3$(1)," ") : C9$(2)="fld/fld" : IF M<>0THEN 1515 : GOTO 1215 1320 IF D9<1THEN 1365 : STR(D2$,D0(3,2),1)="G" : STR(D2$,D0(3,4),1)=" " : STR(D2$,D0(3,5),2)=HEX(0000) : K8$()=" " : STR(K8$(),1,47)=STR(D2$,1,47) : GOSUB '153("RW",K8$(),"3",D3$(1)," "," "," "," ") : IF M<>0THEN 1515 1365 % LABEL - SAVE FIELD IN COMMON FLD. DATA STRUCTURE 1370 C6$(D7)=" " : STR(C6$(D7),D0(6,1),21)=STR(D3$(1),1,20)&" " : STR(C6$(D7),D0(6,2),1)=STR(D2$,D0(3,2),1) : STR(C6$(D7),D0(6,3),2)=STR(D2$,D0(3,3),2) : STR(C6$(D7),D0(6,4),1)=STR(D2$,D0(3,4),1) : STR(C6$(D7),D0(6,5),2)=STR(D2$,D0(3,5),2) : STR(C6$(D7),D0(6,6),1)=STR(D2$,D0(3,6),1) 1405 STR(C6$(D7),D0(6,7),2)=STR(D1$,D0(5,1),2) : STR(C6$(D7),D0(6,8),1)=STR(D1$,D0(5,4),1) : STR(C6$(D7),D0(6,9),2)=STR(D1$,D0(5,5),2) : STR(C6$(D7),D0(6,10),2)=STR(D1$,D0(5,2),2) : D7=D7+1 : IF D7<14THEN 1135 1440 K8$()=" " : STR(K8$(),1,455)=C6$() : CONVERT D6TO D6$,(##) : GOSUB '153("RW",K8$(),"2",C0$(1)," ","8",D6$," ") : C9$(2)="C.F.D.S" : IF M<>0THEN 1515 : C6$()=" " : D6=D6+1 : D7=1 : IF D8$<>"E"THEN 1135 : ELSE GOTO 1485 1485 % LABEL 1490 COM CLEAR J9$ : LOAD T"ddu.005c"1000,2999BEG 1000 1505 D0=2 : GOTO 1525 1515 D0=3 : GOTO 1525 1525 % LABEL 1530 COM CLEAR J9$ : LOAD T"ddu.005e"1000,2999BEG 1000