I had this idea and wanting to see if I could do it.
Centering lines of data text at the gaps.
The names are Youtubers I watch.
restore youtuber
read profile
dim name$(profile)
dim x(profile)
dim y(profile)
dim z(profile)
for a=1 to profile
read name$(a)
next a
for a=1 to profile
x(a)=30
y(a)=a*15
next a
for a=1 to profile
for b=1 to len(name$(a))
if mid$(name$(a),b,1)=" " b$=" "
z(a)=instr(name$(a),b$)
next b
next a
onoff=0
open window 640,512
repeat
setdispbuf vm
vm=1-vm
setdrawbuf vm
clear window
c=peek("port1")
if and(c,16)>0 up=1
if up=1 U=U+1
if U>2 U=2
if U=2 up=0
if and(c,16)=0 U=0
if and(c,64)>0 down=1
if down=1 D=D+1
if D>2 D=2
if D=2 down=0
if and(c,64)=0 D=0
if up=1 scroll=scroll-15
if down=1 scroll=scroll+15
if scroll>0 scroll=0
if scroll<-(profile*15-500) scroll=-(profile*15-500)
if and(c,8192)<>0 and switch=0 onoff=1
if onoff=1 and and(c,8192)=0 switch=switch+1
if switch>10 switch=10
if and(c,8192)<>0 and switch=10 onoff=0
if onoff=0 and and(c,8192)=0 switch=switch-1
if switch<0 switch=0
if onoff=1 then
for a=1 to profile
for b=1 to len(name$(a))
text b*12+308,y(a)+scroll,mid$(name$(a),b,1)
next b
next a
endif
if onoff=0 then
for a=1 to profile
text x(a)+290,y(a)+scroll,name$(a)
next a
endif
for a=1 to profile
text 130-z(a)*10,y(a)+scroll,name$(a)
next a
until (1=0)
label youtuber
data 64
data "ADAM LZ"
data "ASIAN HEALTHY MASSAGE"
data "ALBERTO BIG BOOST"
data "AMAZING BLANK"
data "AMY YAMATO"
data "ANIME CAKE"
data "BUS LIFE NZ"
data "CASEY NEISTAT"
data "CHLOE DONALD"
data "CHRONICALLY JAQUIE"
data "CODEE YOUNT"
data "COLLETE DAVIS"
data "DALE ATWOOD"
data "DAN MACE"
data "DEMOLITION RANCH"
data "DIYFFERENT OITC"
data "ECCHI ANIME"
data "FTE COLLECTIVE"
data "GILROY VLOGS"
data "HE*SAID SHE*SAID"
data "HES*CRAZY SHES*CRAZY"
data "JAPANESE IDOL"
data "JAPANESE SISTER VLOG"
data "JAPANESE SUN"
data "JIMMY OAKES"
data "JULIETTE SURNAME"
data "JUN YOSHIZUKI"
data "JUNS KITCHEN"
data "KIMAGURE COOK"
data "LADY JP"
data "LANCE 210"
data "LIZZIE WURST"
data "MAGNUM TENT POINT"
data "MATT SHULMAN"
data "MOTION AUTO TV"
data "MOVIE MIX"
data "MR*BEN BROWN"
data "NICOLE EDDY"
data "NICOLE FRYE"
data "NICOLE LZ"
data "NZ*DRIFT LIFE"
data "OFF*THE RANCH"
data "OITC DIYFFERENT"
data "OUT IN THE COUNTRY"
data "PEWDIE PIE"
data "PIXAR ANIMATION"
data "PURE*LIVING FOR*LIFE"
data "RACHEL*AND JUN"
data "RACHEL*AND JUNS*ADVENTURES"
data "RED*TI ANIME"
data "RELAX MASSAGE"
data "ROLL WITH IT"
data "ROMAN ATWOOD"
data "SPENSER FORESMAN"
data "STEPHI LEE"
data "TAYLOR RAY"
data "TIME TEAM"
data "TRACY EDWARDS"
data "VET RANCH"
data "VINHETEIRO BLANK"
data "VIOLET FEELING TV"
data "WINTERGATAN WEDNESDAY"
data "YUSA EMILIAXIII"
data "ZONE TOONS"
