This could be useful, as opposed to doing it by hand.
I saw an idea, I wondered if I could do that.
Down key to highlight a name and right key to move that name.
restore selection
read maxnum
dim name$(maxnum)
dim type(maxnum)
for a=1 to maxnum
read name$(a)
read type(a)
next a
down=1
open window 640,512
repeat
setdrawbuf vm
vm=1-vm
setdispbuf vm
clear window
row1=0
row2=0
row3=0
c=peek("port1")
go=go+1
if go>10 go=10
if and(c,64)>0 and go=10 then
go=0
down=down+1
endif
if down>maxnum down=1
for a=1 to maxnum
if and(c,32)>0 and go=10 and down=a then
go=0
type(a)=type(a)+1
endif
if type(a)>3 type(a)=1
next a
for a=1 to maxnum
if down=a then
setrgb 1,256,0,0
else
setrgb 1,256,256,256
endif
if type(a)>3 type(a)=1
if type(a)=1 then
row1=row1+1
text 10,row1*17+50,name$(a)
endif
if type(a)=2 then
row2=row2+1
text 210,row2*17+50,name$(a)
endif
if type(a)=3 then
row3=row3+1
text 400,row3*17+50,name$(a)
endif
next a
setrgb 1,256,256,256
text 10,20,"Undecided"
text 210,20,"Left Wing"
text 400,20,"Right Wing"
until(1=0)
label selection
data 25
data "Benny!",1
data "Bikemadness",1
data "Clanky",1
data "Clyde",1
data "Combatking0",1
data "Hellfire",1
data "Hotshot",1
data "Jim",1
data "Ninogenio",1
data "Optimus",1
data "Paul",1
data "Pixel_Outlaw",1
data "Rain_Storm",1
data "RBZ",1
data "RDC",1
data "Relsoft",1
data "Shockwave",1
data "Slinks",1
data "Staticgerbil",1
data "Stonemonkey",1
data "Stormbringer",1
data "Taj",1
data "Tetra",1
data "Va!n",1
data "Yaloopy",1
added bits (just for fun) version.
Down key to highlight a name and Right key to move that name.
Left key to randomize positions and Up key to reset.
restore selection
read maxnum
dim name$(maxnum)
dim type(maxnum)
for a=1 to maxnum
read name$(a)
read type(a)
next a
down=1
open window 640,512
repeat
setdrawbuf vm
vm=1-vm
setdispbuf vm
clear window
row1=0
row2=0
row3=0
c=peek("port1")
go=go+1
if go>10 go=10
if and(c,64)>0 and go=10 then
go=0
down=down+1
endif
if down>maxnum down=1
if and(c,16384)>0 and go=10 then
for a=1 to maxnum
if len(name$(a))<6 type(a)=1
if len(name$(a))>5 and len(name$(a))<9 type(a)=2
if len(name$(a))>8 type(a)=3
next a
endif
if and(c,16)>0 and go=10 then
for a=1 to maxnum
go=0
type(a)=1
next a
endif
if and(c,128)>0 and go=10 then
for a=1 to maxnum
go=0
type(a)=int(ran(3))+1
next a
endif
for a=1 to maxnum
if and(c,32)>0 and go=10 and down=a then
go=0
type(a)=type(a)+1
endif
if type(a)>3 type(a)=1
next a
for a=1 to maxnum
if down=a then
setrgb 1,256,0,0
else
setrgb 1,256,256,256
endif
if type(a)>3 type(a)=1
if type(a)=1 then
row1=row1+1
text 140-(len(name$(a))*10),row1*17+50,name$(a)+" "+str$(len(name$(a)))
endif
if type(a)=2 then
row2=row2+1
text 340-(len(name$(a))*10),row2*17+50,name$(a)+" "+str$(len(name$(a)))
endif
if type(a)=3 then
row3=row3+1
text 530-(len(name$(a))*10),row3*17+50,name$(a)+" "+str$(len(name$(a)))
endif
next a
setrgb 1,256,256,256
text 10,20," Undecided"
text 210,20," Left Wing"
text 400,20," Right Wing"
until(1=0)
label selection
data 25
data "Benny!",1
data "Bikemadness",1
data "Clanky",1
data "Clyde",1
data "Combatking0",1
data "Hellfire",1
data "Hotshot",1
data "Jim",1
data "Ninogenio",1
data "Optimus",1
data "Paul",1
data "Pixel_Outlaw",1
data "Rain_Storm",1
data "RBZ",1
data "RDC",1
data "Relsoft",1
data "Shockwave",1
data "Slinks",1
data "Staticgerbil",1
data "Stonemonkey",1
data "Stormbringer",1
data "Taj",1
data "Tetra",1
data "Va!n",1
data "Yaloopy",1
Or a basic version, using 1,2 and 3 for name movement.
restore selection
read maxnum
dim name$(maxnum)
dim type(maxnum)
for a=1 to maxnum
read name$(a)
read type(a)
next a
down=1
open window 640,512
repeat
setdrawbuf vm
vm=1-vm
setdispbuf vm
clear window
row1=0
row2=0
row3=0
c=peek("port1")
go=go+1
if go>10 go=10
if and(c,16)>0 and go=10 then
go=0
down=down-1
endif
if and(c,64)>0 and go=10 then
go=0
down=down+1
endif
if down<1 down=maxnum
if down>maxnum down=1
if and(c,128)>0 and go=10 then
for a=1 to maxnum
go=0
type(a)=1
next a
endif
g$=inkey$(0)
for a=1 to maxnum
if down=a then
if g$="1" type(a)=1
if g$="2" type(a)=2
if g$="3" type(a)=3
endif
next a
for a=1 to maxnum
if type(a)=1 then
row1=row1+1
if down=a text 145,row1*17+50,"<"
text 140-(len(name$(a))*10),row1*17+50,name$(a)
endif
if type(a)=2 then
row2=row2+1
if down=a text 345,row2*17+50,"<"
text 340-(len(name$(a))*10),row2*17+50,name$(a)
endif
if type(a)=3 then
row3=row3+1
if down=a text 545,row3*17+50,"<"
text 540-(len(name$(a))*10),row3*17+50,name$(a)
endif
next a
text 10,20," (1)Undecided"
text 210,20," (2)Left Wing"
text 410,20,"(3)Right Wing"
until(1=0)
label selection
data 25
data "Benny!",1
data "Bikemadness",1
data "Clanky",1
data "Clyde",1
data "Combatking0",1
data "Hellfire",1
data "Hotshot",1
data "Jim",1
data "Ninogenio",1
data "Optimus",1
data "Paul",1
data "Pixel_Outlaw",1
data "Rain_Storm",1
data "RBZ",1
data "RDC",1
data "Relsoft",1
data "Shockwave",1
data "Slinks",1
data "Staticgerbil",1
data "Stonemonkey",1
data "Stormbringer",1
data "Taj",1
data "Tetra",1
data "Va!n",1
data "Yaloopy",1
I don't know what is wrong with the world, but I know how to fix it.
Have a Yahappy day.
