Listing of file='listdesc' on disk='vmedia/701-2721C.wvd.zip'
# Sector 674, program filename = 'listdesc'
1000 DEFFN'100(S9$,S0$)
: REM Display and Accept LISTDESC (VER 5.15)
1001 S4=1
: S3=01
: S2=0
: S1=0
: T0$=" "
: RESTORE LINE1030
: GOSUB '129("DATA",0)
: T9=0
: FOR T4=1TO 04
: ON T4GOSUB 1010,1015,1020,1025
: 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,01,01,10,01,S1(1),Y$(),S0$,"\A5",Q,T9," ")
: Q=T0
: RETURN
1015 RETURN
1020 GOSUB '127(08,26,40,10,41,S1(1),1,C$(),"......7")
: RETURN
1025 GOSUB '127(08,69,10,10,11,S1(1),1,F$(),"......7")
: RETURN
1030 DATA 05,01,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 Terminate"
: DATA 0,0,0," "