All I gotta do now, is to make my own font.
restore symbol
read char
dim key$(char)
for a=1 to char
read key$(a)
next a
tails=64
tail=12
dim gap(tails)
dim go(tails)
dim en(tails)
dim x(tails)
dim y(tails)
dim z(tail,tails)
for a=1 to tails
gap(a)=1
en(a)=int(ran(100))/10
x(a)=(a-1)*10
y(a)=int(ran(50))*12
for b=1 to tail
z(b,a)=int(ran(char))+1
next b
next a
open window 640,512
repeat
setdrawbuf vm
vm=1-vm
setdispbuf vm
clear window
for a=1 to tails
go(a)=go(a)+gap(a)
en(a)=en(a)+.1
if en(a)>10 en(a)=0
if go(a)>en(a) go(a)=1
if go(a)>en(a)-1 y(a)=y(a)+12
if y(a)>520+(tail*12) then
y(a)=0
for b=1 to tail
z(b,a)=int(ran(char))+1
next b
endif
for b=1 to tail
setrgb 1,0,255+tail-(b*(255/tail)),0
text x(a),y(a)-(b*12),key$(z(b,a))
next b
next a
until (1=0)
label symbol
data 55
data "!","@","#","%","^","&","*"
data "(",")","-","+","=","<",">"
data "?","/","0","1","2","3","4"
data "5","6","7","8","9",",",":"
data ";","{","}","[","]","|"
data "a","b","c","d","e","f","h"
data "i","k","l","m","n","o","r"
data "s","u","v","w","x","z","\"
