image of READY prompt

Wang2200.org

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