Hey, guys. I've jotted down the code here. I'd like to hear some criticism. What I did right and what I didn't.
I also wonder how it works for you.
Rem Project: chousemode
Rem Created: Tuesday, June 15, 2021
Rem ***** Main Source File *****
perform checklist for display modes
sync on
sync rate 30
dim checkmode$(checklist quantity())
set cursor 20,10
print checklist quantity()
for x=1 to checklist quantity()
print checklist string$(x)
checkmode$(x)=checklist string$(x)
next x
lenmode=LEN(checkmode$(checklist quantity()))
print lenmode
for zxc=1 to lenmode
a$=LEFT$(checkmode$(checklist quantity()),zxc)
aa$=RIGHT$(a$,1)
if aa$="x" then goto _aaaa:
NEXT zxc
_aaaa:
a$=LEFT$(checkmode$(checklist quantity()),zxc-1)
print a$
for zxc=lenmode to zxc step -1
b$=RIGHT$(checkmode$(checklist quantity()),zxc-1)
bb$=LEFT$(b$,1)
if bb$="x" then goto _aaaa1:
NEXT zxc
_aaaa1:
b$=LEFT$(checkmode$(checklist quantity()),zxc)
print b$
lenmode=LEN(b$)
for zxc=lenmode to zxc step -1
b1$=RIGHT$(b$,zxc)
bb1$=LEFT$(b1$,1)
if bb1$="x" then goto _aaaa2:
NEXT zxc
_aaaa2:
b$=RIGHT$(b1$,zxc-1)
print b$
SET DISPLAY MODE VAL(a$), VAL(b$), 32
SET WINDOW on
SET WINDOW POSITION 0, 0
set window layout 0,0,0
MAXIMIZE WINDOW
print a$
print b$
make object sphere 10,10
print SCREEN WIDTH()
print SCREEN HEIGHT()
print SCREEN TYPE()
do
` print a$+b$
sync
LOOP
programming is a hobby, not a job.
