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," "