Scroller.basCÄBCÄBCÄBTEXTSmBa`@Y d@Y HSMainÙH.?G¤ôÒGGÌô™JGÌª™0U™üØHhh' SCROLLER.bas
PEN ON
? CAT(87);
INPUT "Enter words: ",c
? "Tap to begin"
REPEAT
y=1
UNTIL PEN(3)=1
REPEAT
a = LCASE(c)
FOR i = 1 TO LEN(a)
b= MID (a, i, 1)
x=40
IF b="a" THEN
RECT  x,0,x+40,320 FILLED : RECT x+40,0,x+200,40 FILLED : RECT x+200,0,x+240,320 FILLED : RECT x+40,120,x+200,160 FILLED
ELIF b="b"
RECT x,0,x+40,320 FILLED : RECT x+40,0,x+160,40 FILLED : RECT x+160,0,x+200,140 FILLED : RECT x+40,120,x+200,160 FILLED : RECT x+200,160,x+240,320 FILLED : RECT x+40,280,x+240,320 FILLED
ELIF b="c"
RECT x,0,x+40,320 FILLED: RECT x+40,0,x+240,40 FILLED: RECT x+40,280,x+240,320 FILLED
ELIF b="d"
RECT x+200,0,x+240,320 FILLED: RECT x,120,x+200,160 FILLED: RECT x,160,x+40,280 FILLED: RECT x,280,x+240,320 FILLED
ELIF b="e"
RECT x,0,x+40,320 FILLED: RECT x+40,0,x+240,40 FILLED: RECT x+40,120,x+200,160 FILLED: RECT x+40,280,x+240,320 FILLED
ELIF b="f"
RECT x,0,x+40,320 FILLED: RECT x+40,0,x+240,40 FILLED: RECT x+40,120,x+200,160 FILLED
ELIF b="g"
RECT x,0,x+40,320 FILLED: RECT x+40,0,x+240,40 FILLED: RECT x+40,280,x+240,320 FILLED: RECT x+200,160,x+240,280 FILLED: RECT x+120,120,x+200,160 FILLED
ELIF b="h"
RECT x,0,x+40,320 FILLED: RECT x+40,120,x+200,160 FILLED: RECT x+200,0,x+240,320 FILLED
ELIF b="i"
RECT x,0,x+240,40 FILLED: RECT x,280,x+240,320 FILLED: RECT x+100,40,x+140,280 FILLED
ELIF b="j"
RECT x,0,x+240,40 FILLED: RECT x+100,40,x+140,280 FILLED: RECT x,280,x+140,320 FILLED: RECT x,160,x+40,280 FILLED
ELIF b="k"
RECT x,0,x+40,320 FILLED: RECT x+40,120,x+240,160 FILLED: RECT x+160,120,x+200,40 FILLED: RECT x+200,160,x+240,320 FILLED
ELIF b="l"
RECT x,0,x+40,320 FILLED: RECT x+40,280,x+240,320 FILLED
ELIF b="m"
RECT x,0,x+40,320 FILLED: RECT x+40,0,x+200,40 FILLED: RECT x+200,0,x+240,320 FILLED: RECT x+100,40,x+140,200 FILLED
ELIF b="n"
RECT x,0,x+40,320 FILLED: RECT x+40,40,x+240,80 FILLED: RECT x+200,80,x+240,320 FILLED
ELIF b="o": RECT x,0,x+40,320 FILLED: RECT x+40,0,x+200,40 FILLED: RECT x+200,0,x+240,280 FILLED: RECT x+40,280,x+240,320 FILLED
ELIF b="p": RECT x,0,x+40,320 FILLED: RECT x+40,0,x+240,40 FILLED: RECT x+200,40,x+240,120 FILLED: RECT x+40,120,x+240,160 FILLED
ELIF b="q": RECT x+40,0,x+80,280 FILLED: RECT x+40,0,x+200,40 FILLED: RECT x+200,0,x+240,240 FILLED: RECT x+40,240,x+240,280 FILLED: RECT x,280,x+40,320 FILLED: RECT x+80,200,x+120,240 FILLED
ELIF b="r": RECT x,0,x+40,320 FILLED: RECT x+40,0,x+240,40 FILLED: RECT x+200,40,x+240,120 FILLED: RECT x+40,120,x+240,160 FILLED: RECT x+120,160,x+160,320 FILLED
ELIF b="s": RECT x,0,x+240,40 FILLED: RECT x,120,x+240,160 FILLED: RECT x,280,x+240,320 FILLED: RECT x,40,x+40,120 FILLED: RECT x+200,160,x+240,280 FILLED
ELIF b="t": RECT x,0,x+240,40 FILLED: RECT x+100,40,x+140,320 FILLED
ELIF b="u": RECT x,0,x+40,320 FILLED:  RECT x+40,280,x+200,320 FILLED: RECT x+200,0,x+240,320 FILLED
ELIF b="v": RECT x,0,x+40,80 FILLED: RECT x+40,80,x+80,160 FILLED: RECT x+80,160,x+120,240 FILLED: RECT x+100,240,x+140,320 FILLED: RECT x+120,160,x+160,240 FILLED: RECT x+160,80,x+200,160 FILLED: RECT x+200,0,x+240,80 FILLED
ELIF b="w": RECT x,0,x+40,320 FILLED: RECT x+40,280,x+100,320 FILLED: RECT x+100,160,x+140,320 FILLED: RECT x+140,280,x+200,320 FILLED: RECT x+200,0,x+240,320 FILLED
ELIF b="x": RECT x,0,x+40,20 FILLED: RECT x+40,20,x+80,80 FILLED: RECT x+80,80,x+120,140 FILLED: RECT x+120,140,x+160,200 FILLED: RECT x+160,200,x+200,260 FILLED: RECT x+200,260,x+240,320 FILLED: RECT x,260,x+40,320 FILLED: RECT x+40,260,x+80,200 FILLED: RECT x+80,200,x+120,140 FILLED: RECT x+120,140,x+160,80 FILLED: RECT x+160,80,x+200,20 FILLED: RECT x+200,20,x+240,0 FILLED
ELIF b="y":  RECT x,0,x+40,20 FILLED: RECT x+40,20,x+80,80 FILLED: RECT x+80,80,x+120,140 FILLED: RECT x,260,x+40,320 FILLED: RECT x+40,260,x+80,200 FILLED: RECT x+80,200,x+120,140 FILLED: RECT x+120,140,x+160,80 FILLED: RECT x+160,80,x+200,20 FILLED: RECT x+200,20,x+240,0 FILLED
ELIF b="z":RECT x,260,x+40,320 FILLED: RECT x+40,260,x+80,200 FILLED: RECT x+80,200,x+120,140 FILLED: RECT x+120,140,x+160,80 FILLED: RECT x+160,80,x+200,20 FILLED: RECT x+200,40,x+240,0 FILLED: RECT x,0,x+200,40 FILLED: RECT x+40,280,x+240,320 FILLED
ELIF b=".": RECT x+100,280,x+140,320 FILLED
ELIF b=" ": PSET 120,160
ELIF b="?": RECT x,40,x+40,80 FILLED: RECT x+40,0,x+200,40 FILLED: RECT x+200,40,x+240,120 FILLED: RECT x+100,120,x+140,200 FILLED: RECT x+100,120,x+140,240 FILLED: RECT x+100,280,x+140,320 FILLED
ELIF b="2": RECT x+60,0,x+100,40 FILLED: RECT x+100,0,x+140,280 FILLED: RECT x+20,280,x+220,320 FILLED
ELIF b="4": RECT x,40,x+40,80 FILLED: RECT x+40,0,x+200,40 FILLED: RECT x+200,40,x+240,120 FILLED: RECT x+40,120,x+200,160 FILLED: RECT x,160,x+40,280 FILLED: RECT x,280,x+240,320 FILLED
ELIF b="6": RECT x,0,x+240,40 FILLED: RECT x+200,40,x+240,120 FILLED: RECT x+120,120,x+240,160 FILLED: RECT x+200,160,x+240,280 FILLED: RECT x,280,x+240,320 FILLED
ELIF b="8":RECT x,0,x+40,160 FILLED:RECT x+40,120,x+200,160 FILLED:RECT x+200,0,x+240,320 FILLED
ELIF b="10":RECT x,0,x+240,40 FILLED:RECT x,40,x+40,160 FILLED:RECT x+40,120,x+200,160 FILLED:RECT x+200,160,x+240,280 FILLED:RECT x,280,x+200,320 FILLED
ELIF b="12":RECT x,0,x+240,40 FILLED:RECT x,40,x+40,320 FILLED:RECT x+40,140,x+240,180 FILLED:RECT x+200,180,x+240,280 FILLED:RECT x+40,280,x+240,320 FILLED
ELIF b="14":RECT x,0,x+240,40 FILLED:RECT x+160,40,x+200,160 FILLED:RECT x+120,160,x+160,320 FILLED
ELIF b="16":RECT x+40,0,x+200,40 FILLED:RECT x+200,40,x+240,140 FILLED:RECT x+200,180,x+240,280 FILLED:RECT x+40,280,x+200,320 FILLED:RECT x,180,x+40,280 FILLED:RECT x,40,x+40,140 FILLED:RECT x+40,140,x+200,180 FILLED
ELIF b="18":RECT x,40,x+40,140 FILLED:RECT x+40,0,x+240,40 FILLED:RECT x+200,40,x+240,320 FILLED:RECT x+40,140,x+200,180 FILLED
ELIF b="0":RECT x+40,0,x+200,40 FILLED:RECT x+200,40,x+240,280 FILLED:RECT x+40,280,x+200,320 FILLED:RECT x,40,x+40,280 FILLED

FI
DELAY 500
CLS
DELAY 300
NEXT
DELAY 500
UNTIL PEN(3)=1
? CAT(87);"DONE"
DELAY 500
PEN OFF
END
Source: geocities.com/renwand
