This site might be helpful: http://aics-research.com/basic/
BASIC/V manuals, plus info on downloading BASIC and BASICOMP.
On Tue, 4 Dec 2001 16:45:48 -0600 (Central Standard Time), "William L.
Brandt" <[log in to unmask]> wrote:
>We are using BASIC/3000 - I'll bet we are one of the last.
>
>Does anybody know what the "options" are in the OPT argument? We have always
>used 0 and gotten a smallest->highest key sort - anyone know what you use to
>get a highest->lowest sort?
>
>The person who initially wrote our system in 1978 included some SPL code
>that I believe was in the Interact CSL (BASSORT)
>
>I don't know SPL but in looking at the code I determined that the 2nd to
>last argument is the Options, and the same argument becomes the 3rd
>arguiment in the call to SORTINITIAL within BASSORT.
>
>So, what's the magic number to get a top down sort?
>
>TIA
>Bill Brandt
>
>
>
>
>2080 I$="STNSRTI;",O$="STNSRTO;"
> 2090 MAT K=ZER
> 2100 K[1,1]=6,K[1,2]=5
> 2110 REM: K[2,1]=0,K[2,2]=0
> 2120 CALL BASSORT(I$,O$,FNI(1),K[*,*],FNI(0),E)
><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
> 2130 IF E=0 THEN 2200
> 2140 PRINT "SORT ERROR#";E
> 2150 GOTO 9020
>
>* To join/leave the list, search archives, change list settings, *
>* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|