I founds treasure!!

[bplus]

Thanks!

[SMcNeill]

@bplus I dunno about the "no gems" statement.  A lot of this is ancient code, averaging about 30 years old or whatnot, and yet it's the same type of stuff that we see folks posting and asking about or showing on the forums even today.

A lot of this, I think needs to be looked at and appreciated with a critical eye, and taken with the knowledge that none of our modern underscore commands were used to make things work.   And some of the LOGIC in here is rather impressive and worth considering and thinking about.

Code: (Select All)

        Do: k$ = UCase$(InKey$): Loop While k$ = ""
        k% = Asc(k$): If k% = 0 Then k% = -Asc(Mid$(k$, 2))
        Select Case k%
            Case 13: ChooseProgram$ = BF(choice%).F: Exit Do
            Case 27: ChooseProgram$ = "": Exit Do
            Case -71: choice% = 1: index% = 1
            Case -72: choice% = choice% + (choice% > 1)
                If choice% < index% Then index% = choice%
            Case -73: choice% = choice% - 10: index% = index% - 10
                If choice% < 1 Then choice% = 1
                If index% < 1 Then index% = 1
            Case -79: choice% = hi%: index% = hi% - 9
                If index% < 1 Then index% = 1
            Case -80: choice% = choice% - (choice% < hi%)
                If index% < (choice% - 9) Then index% = choice% - 9
            Case -81: choice% = choice% + 10: index% = index% + 10
                If choice% > hi% Then choice% = hi%
                If index% < (choice% - 9) Then index% = choice% - 9
        End Select

Take the above little snippet into consideration.  It used INKEY$ to read user input, but ingeniously sorts out how to pass the result as a single byte of info, rather than having to parse it twice depending on length!  That's a trick I don't remember seeing elsewhere before.  I think Pete might love to make use of it sometime as INKEY$ is definitely his coding tool for input usually. 

[bplus]

Yeah like I said I haven't gone down far from list, allot of mining for some nugget of gold.

I already threw out the one needing the qb.bi file, as I recall nothing useful in what it seemed to do. (That we dont already have better!)

Yes allot of clever techniques used in old code, I found that out years ago doing an update of ELIZA from Morristown N.J. There Goto was used smartly to overcome defficiencies in the PL. Animal guessing/learning program was also really clever!

[madscijr]

That's the beauty of BASIC, it's been around so long, there's a huge amount of accumulated knowledge and code to explore!