image of READY prompt

Wang2200.org

Listing of file='ddu.005a' on disk='vmedia/701-2720C.wvd.zip'

# Sector 739, program filename = 'ddu.005a'
1000 % LABEL - START OF PROGRAM
1060 COM J9$1,C5$(249)6,C6$(24)83,D1$48,D8,D9,K8$(2)100
   : C9$(1)="ddu.005a"
   : PRINT AT(21,0,);HEX(020402000F);"Creating new definitions:";
   : LOAD T"DDA.DAT"0,0BEG 1125
1125 LIMITS T#2,C0$(2),C0(1),C0(2),C0(3),C0(4)
   : IF C0(4)<>2THEN 1755
   : DATA LOAD DA T#2,(C0(1))C4$(),C6$()
   : ERRORGOTO 1755
1140 C5$()=STR(C4$(),499,1494)
   : GOSUB '140(1,"150")
   : IF R9$<>HEX(00)THEN 1765
   : LOAD T<R9>R9$()0,0BEG 1165
1165 GOSUB '150("1 12142 2324283 3233344 4243")
   : C9$(2)="Open all"
   : IF M<>0THEN 1775
   : GOSUB '140(1,"153")
   : IF R9$<>HEX(00)THEN 1765
   : LOAD T<R9>R9$()7050,7999BEG 1195
1195 PRINT AT(21,27,);"File ";
   : K8$()=" "
   : STR(K8$(),D0(1,1),32)=STR(C4$(),22,32)
   : STR(K8$(),D0(1,2),1)="I"
   : STR(K8$(),D0(1,3),1)="I"
   : STR(K8$(),D0(1,4),8)=C0$(5)
   : STR(K8$(),D0(1,5),3)=C1$
   : STR(K8$(),D0(1,8),1)=HEX(00)
   : CONVERT STR(C4$(),244,5)TO J
   : STR(K8$(),D0(1,9),2)=BIN(J,2)
1245 GOSUB '153("RW",K8$(),"1",C0$(1)," "," "," "," ")
   : C9$(2)="File"
   : IF M<>0THEN 1775
   : PRINT AT(21,27,);"Record ";
   : K8$()=" "
   : STR(K8$(),D0(2,1),32)=STR(C4$(),22,32)
   : STR(K8$(),D0(2,2),8)=C0$(1)
   : CONVERT STR(C4$(),93,4)TO J
   : STR(K8$(),D0(2,3),2)=BIN(J,2)
   : STR(K8$(),D0(2,4),2)=STR(K8$(),D0(2,3),2)
1295 CONVERT STR(C4$(),90,3)TO J
   : STR(K8$(),D0(2,5),2)=BIN(J,2)
   : STR(K8$(),D0(2,6),1)="B"
   : GOSUB '153("RW",K8$(),"2",C0$(1)," "," "," "," ")
   : C9$(2)="Record"
   : IF M<>0THEN 1775
   : GOSUB '153("RW"," ","1",C0$(1)," ","2",C0$(1)," ")
   : C9$(2)="file/rec"
   : IF M<>0THEN 1775
   : PRINT AT(21,27,);"Creating Field ";
   : D8=0
1380 CONVERT STR(C4$(),90,3)TO D9
   : MAT REDIM C6$(249)8
1395 % LABEL - NEXT FIELD DEFINITION
1400 D8=D8+1
   : D1$=" "
   : IF D8>D9THEN 1740
   : IF C6$(D8)=" "THEN 1740
   : STR(D1$,1,20)=C0$(1)&"-"&C6$(D8)
   : PRINT AT(21,42);D8;
   : C8$=STR(C5$(D8),1,2)
   : C8$=BOOL8HEX(FFF0)
   : ROTATEC(C8$,-4)
   : STR(D1$,21,2)=C8$
   : C8$="  "
   : STR(C8$,1,1)=STR(C5$(D8),2,1)
   : STR(C8$,1,1)=BOOL8HEX(0E)
   : ROTATEC(STR(C8$,1,1),-1)
   : C8=VAL(STR(C8$,1,1))
1485 ON C8GOTO 1495,1490,1495,1500,1500,1500,1505
1490 STR(D1$,23,1)="U"
   : GOTO 1515
1495 STR(D1$,23,1)="S"
   : GOTO 1515
1500 STR(D1$,23,1)="A"
   : GOTO 1515
1505 STR(D1$,23,1)="C"
   : GOTO 1515
1515 STR(D1$,24,1)=HEX(00)
   : STR(D1$,25,1)=STR(C5$(D8),3,1)
   : C8=VAL(STR(C5$(D8),4,1))
   : IF C8>0AND C8<250THEN 1545
   : STR(D1$,46,2)=HEX(0000)
   : GOTO 1565
1545 STR(D1$,26,20)=C0$(1)&"-"&C6$(C8)
   : STR(D1$,46,1)=HEX(00)
   : STR(D1$,47,1)=STR(C5$(D8),5,1)
1565 C8$="  "
   : STR(C8$,1,1)=STR(C5$(D8),6,1)
   : STR(C8$,1,1)=BOOL8HEX(07)
   : STR(D1$,48,1)=C8$
   : K8$()=" "
   : STR(K8$(),D0(3,1),40)="Within record, "&C0$(1)
   : STR(K8$(),D0(3,2),1)="S"
   : STR(K8$(),D0(3,3),2)=HEX(0000)
   : STR(K8$(),D0(3,4),1)=STR(D1$,23,1)
   : STR(K8$(),D0(3,5),2)=STR(D1$,24,2)
1620 STR(K8$(),D0(3,6),1)=STR(D1$,48,1)
   : GOSUB '153("RW",K8$(),"3",STR(D1$,1,20)," "," "," "," ")
   : C9$(2)="Field"
   : IF M<>0THEN 1775
   : GOSUB '153("RW"," ","3",STR(D1$,1,20)," ","2",C0$(1)," ")
   : C9$(2)="fld/rec"
   : IF M<>0THEN 1775
   : K8$()=" "
   : STR(K8$(),D0(5,1),2)=STR(D1$,21,2)
   : STR(K8$(),D0(5,2),2)=STR(D1$,21,2)
1670 STR(K8$(),D0(5,3),2)=BIN(D8,2)
   : STR(K8$(),D0(5,4),1)="A"
   : STR(K8$(),D0(5,5),2)=STR(D1$,24,2)
   : GOSUB '153("RW",K8$(),"2",C0$(1)," ","3",STR(D1$,1,20)," ")
   : C9$(2)="rec/fld"
   : IF M<>0THEN 1775
   : IF STR(D1$,46,2)=HEX(0000)THEN 1730
   : K8$()=" "
   : STR(K8$(),D0(7,1),1)=HEX(00)
   : STR(K8$(),D0(7,2),2)=STR(D1$,46,2)
1720 GOSUB '153("RW",K8$(),"3",STR(D1$,26,20)," ","3",STR(D1$,1,20)," ")
   : C9$(2)="fld/fld"
   : IF M<>0THEN 1775
1730 GOTO 1395
1740 % LABEL - END OF FIELD DEFINITIONS - NEXT PROGRAM
1745 COM CLEAR J9$
   : LOAD T"ddu.005b"1000,2999BEG 1000
1755 D0=1
   : M=ERR
   : GOTO 1785
1765 D0=2
   : GOTO 1785
1775 D0=3
   : GOTO 1785
1785 %LABEL
1795 COM CLEAR J9$
   : LOAD T"ddu.005e"1000,2999BEG 1000