image of READY prompt

Wang2200.org

Listing of file='listndf1' on disk='vmedia/701-2721C.wvd.zip'

# Sector 662, program filename = 'listndf1'
1000 DEFFN'100(S9$,S0$)
   : REM Display and Accept LISTNDF1 (VER 5.15)
1001 S4=1
   : S3=01
   : S2=0
   : S1=0
   : T0$=" "
   : RESTORE LINE1020
   : GOSUB '129("DATA",0)
   : T9=0
   : FOR T4=1TO 02
   : ON T4GOSUB 1010,1015
   : NEXT T4
   : T9=-1
   : T3=S4
1006 ON T3GOSUB 1010
   : ON R1GOTO ,,,,1008,1009
   : RETURN
1008 T3=MOD(T3+1,S3+1)
   : IF T3=0THEN T3=S4
   : GOTO 1006
1009 T3=MOD(T3-1,S3+1)
   : IF T3<S4THEN GOTO 1009
   : GOTO 1006
1010 I3=20
   : GOSUB '126(08,30,01,10,01,S1(1),Y$(),S0$,"\A5",Q,T9," ")
   : Q=T0
   : RETURN
1015 RETURN
1020 DATA 05,15,00,"Select a definition"
   : DATA 22,43,00,"EXEC/RUN"
   : DATA 22,56,00,"to Select and Return"
   : DATA 23,43,00,"CANCEL/EDIT  to Return"
   : DATA 0,0,0," "