Listing of file='dduints1' on disk='vmedia/701-2720C.wvd.zip'
# Sector 972, program filename = 'dduints1' 3000 DEFFN'116(S9$,S0$) : REM Display and Accept DDUINTS1 (VER 5.11) 3001 S4=1 : S3=03 : S2=0 : S1=0 : T0$=" " : IF POS(S9$=F2)>0THEN T0$=STR(S9$,POS(S9$=F2)+1,4) : RESTORE LINE3046 : GOSUB '129("DATA",0) : T9=0 : FOR T4=1TO 07 : ON T4GOSUB 3011,3016,3021,3026,3031,3036,3041 : NEXT T4 : T9=-1 : T3=S4 3007 ON T3GOSUB 3011,3021,3036 : ON R1GOTO ,,,,3009,3010 : RETURN 3009 T3=MOD(T3+1,S3+1) : IF T3=0THEN T3=S4 : GOTO 3007 3010 T3=MOD(T3-1,S3+1) : IF T3<S4THEN GOTO 3010 : GOTO 3007 3011 GOSUB '126(05,41,03,01,00,001,C3$,S0$,"X",1,T9," ") : C3$=T1$() : RETURN 3016 GOSUB '127(07,41,08,01,00,01,1,A1$," ") : RETURN 3021 CONVERT A8TO T1$(),(####) : GOSUB '126(08,41,04,01,00,001,T1$(),S0$,"####",1,T9," ") : CONVERT T1$()TO A8 : RETURN 3026 GOSUB '127(08,51,10,01,01,01,1,C1$," ") : RETURN 3031 GOSUB '127(10,41,08,01,00,01,1,A4$," ") : RETURN 3036 CONVERT A9TO T1$(),(####) : GOSUB '126(11,41,04,01,00,001,T1$(),S0$,"####",1,T9," ") : CONVERT T1$()TO A9 : RETURN 3041 GOSUB '127(11,51,10,01,01,01,1,C2$," ") : RETURN 3046 DATA 01,30,00,"Data Dictionary System" : DATA 02,28,00,"Initialize Data Dictionary" : DATA 05,17,00,"Device Address:" : DATA 07,17,00,"Definition file name:" : DATA 08,17,00,"Number of data blocks:" : DATA 10,17,00,"Relationship file name:" : DATA 11,17,00,"Number of data blocks:" 3053 DATA 22,49,00,"RUN/EXEC - Continue" : DATA 23,49,00,"CANCEL/EDIT - Exit" : DATA 0,0,0," "