At times, I wish I was more proficient at YaBasic.
I have ideas I can't translate into the simplest of languages.
But the relief is better when I do get a problem out.
It took me ages to get this:
restore wrd
read maxnum
dim wrd$(maxnum)
for a=1 to maxnum
read wrd$(a)
next a
row=1
open window 640,512
repeat
setdrawbuf vm
vm=1-vm
setdispbuf vm
clear window
for a=1 to maxnum
for b=1 to len(wrd$(a))
if mid$(wrd$(a),b-1,a)>=mid$(wrd$(a),b,1) goto next_word
next b
row=row+1
if row>33 then
col=col+50
row=1
endif
text col,row*15,wrd$(a)
label next_word
next a
until (1=0)
label wrd
data rem enter lots of words here
This is designed to search and list the words where the letters are in alphabetical order and used once.
It's the sort of thing I think about and write programs for.
I needed a short list of words for another program I'm writing.
I thought, what bunch of words could I use?
Oh, By the way, Happy new year!