SCROLLER.bas                       <L;<F)<F…€   F        TEXTSmBa            `@Å@   d@Å@ H S  Main ½Á Rê 7<Ä R6    R6ÁXº ½º ½º Rê 7<Ä RJ 7¬– ½º 7¬^' 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=20
IF b="a" THEN
RECT  x,0,x+20,160 FILLED : RECT x+20,0,x+100,20 FILLED : RECT x+100,0,x+120,160 FILLED : RECT x+20,60,x+100,80 FILLED
ELIF b="b" 
RECT x,0,x+20,160 FILLED : RECT x+20,0,x+80,20 FILLED : RECT x+80,0,x+100,70 FILLED : RECT x+20,60,x+100,80 FILLED : RECT x+100,80,x+120,160 FILLED : RECT x+20,140,x+120,160 FILLED
ELIF b="c"
RECT x,0,x+20,160 FILLED: RECT x+20,0,x+120,20 FILLED: RECT x+20,140,x+120,160 FILLED
ELIF b="d"
RECT x+100,0,x+120,160 FILLED: RECT x,60,x+100,80 FILLED: RECT x,80,x+20,140 FILLED: RECT x,140,x+120,160 FILLED
ELIF b="e"
RECT x,0,x+20,160 FILLED: RECT x+20,0,x+120,20 FILLED: RECT x+20,60,x+100,80 FILLED: RECT x+20,140,x+120,160 FILLED
ELIF b="f"
RECT x,0,x+20,160 FILLED: RECT x+20,0,x+120,20 FILLED: RECT x+20,60,x+100,80 FILLED
ELIF b="g"
RECT x,0,x+20,160 FILLED: RECT x+20,0,x+120,20 FILLED: RECT x+20,140,x+120,160 FILLED: RECT x+100,80,x+120,140 FILLED: RECT x+60,60,x+100,80 FILLED
ELIF b="h"
RECT x,0,x+20,160 FILLED: RECT x+20,60,x+100,80 FILLED: RECT x+100,0,x+120,160 FILLED
ELIF b="i"
RECT x,0,x+120,20 FILLED: RECT x,140,x+120,160 FILLED: RECT x+50,20,x+70,140 FILLED
ELIF b="j"
RECT x,0,x+120,20 FILLED: RECT x+50,20,x+70,140 FILLED: RECT x,140,x+70,160 FILLED: RECT x,80,x+20,140 FILLED
ELIF b="k"
RECT x,0,x+20,160 FILLED: RECT x+20,60,x+120,80 FILLED: RECT x+80,60,x+100,20 FILLED: RECT x+100,80,x+120,160 FILLED
ELIF b="l"
RECT x,0,x+20,160 FILLED: RECT x+20,140,x+120,160 FILLED
ELIF b="m"
RECT x,0,x+20,160 FILLED: RECT x+20,0,x+100,20 FILLED: RECT x+100,0,x+120,160 FILLED: RECT x+50,20,x+70,100 FILLED
ELIF b="n"
RECT x,0,x+20,160 FILLED: RECT x+20,20,x+120,40 FILLED: RECT x+100,40,x+120,160 FILLED
ELIF b="o": RECT x,0,x+20,160 FILLED: RECT x+20,0,x+100,20 FILLED: RECT x+100,0,x+120,140 FILLED: RECT x+20,140,x+120,160 FILLED
ELIF b="p": RECT x,0,x+20,160 FILLED: RECT x+20,0,x+120,20 FILLED: RECT x+100,20,x+120,60 FILLED: RECT x+20,60,x+120,80 FILLED
ELIF b="q": RECT x+20,0,x+40,140 FILLED: RECT x+20,0,x+100,20 FILLED: RECT x+100,0,x+120,120 FILLED: RECT x+20,120,x+120,140 FILLED: RECT x,140,x+20,160 FILLED: RECT x+40,100,x+60,120 FILLED
ELIF b="r": RECT x,0,x+20,160 FILLED: RECT x+20,0,x+120,20 FILLED: RECT x+100,20,x+120,60 FILLED: RECT x+20,60,x+120,80 FILLED: RECT x+60,80,x+80,160 FILLED
ELIF b="s": RECT x,0,x+120,20 FILLED: RECT x,60,x+120,80 FILLED: RECT x,140,x+120,160 FILLED: RECT x,20,x+20,60 FILLED: RECT x+100,80,x+120,140 FILLED
ELIF b="t": RECT x,0,x+120,20 FILLED: RECT x+50,20,x+70,160 FILLED
ELIF b="u": RECT x,0,x+20,160 FILLED:  RECT x+20,140,x+100,160 FILLED: RECT x+100,0,x+120,160 FILLED
ELIF b="v": RECT x,0,x+20,40 FILLED: RECT x+20,40,x+40,80 FILLED: RECT x+40,80,x+60,120 FILLED: RECT x+50,120,x+70,160 FILLED: RECT x+60,80,x+80,120 FILLED: RECT x+80,40,x+100,80 FILLED: RECT x+100,0,x+120,40 FILLED
ELIF b="w": RECT x,0,x+20,160 FILLED: RECT x+20,140,x+50,160 FILLED: RECT x+50,80,x+70,160 FILLED: RECT x+70,140,x+100,160 FILLED: RECT x+100,0,x+120,160 FILLED
ELIF b="x": RECT x,0,x+20,10 FILLED: RECT x+20,10,x+40,40 FILLED: RECT x+40,40,x+60,70 FILLED: RECT x+60,70,x+80,100 FILLED: RECT x+80,100,x+100,130 FILLED: RECT x+100,130,x+120,160 FILLED: RECT x,130,x+20,160 FILLED: RECT x+20,130,x+40,100 FILLED: RECT x+40,100,x+60,70 FILLED: RECT x+60,70,x+80,40 FILLED: RECT x+80,40,x+100,10 FILLED: RECT x+100,10,x+120,0 FILLED
ELIF b="y":  RECT x,0,x+20,10 FILLED: RECT x+20,10,x+40,40 FILLED: RECT x+40,40,x+60,70 FILLED: RECT x,130,x+20,160 FILLED: RECT x+20,130,x+40,100 FILLED: RECT x+40,100,x+60,70 FILLED: RECT x+60,70,x+80,40 FILLED: RECT x+80,40,x+100,10 FILLED: RECT x+100,10,x+120,0 FILLED
ELIF b="z":RECT x,130,x+20,160 FILLED: RECT x+20,130,x+40,100 FILLED: RECT x+40,100,x+60,70 FILLED: RECT x+60,70,x+80,40 FILLED: RECT x+80,40,x+100,10 FILLED: RECT x+100,20,x+120,0 FILLED: RECT x,0,x+100,20 FILLED: RECT x+20,140,x+120,160 FILLED
ELIF b=".": RECT x+50,140,x+70,160 FILLED
ELIF b=" ": PSET 60,80
ELIF b="?": RECT x,20,x+20,40 FILLED: RECT x+20,0,x+100,20 FILLED: RECT x+100,20,x+120,60 FILLED: RECT x+50,60,x+70,100 FILLED: RECT x+50,60,x+70,120 FILLED: RECT x+50,140,x+70,160 FILLED
ELIF b="1": RECT x+30,0,x+50,20 FILLED: RECT x+50,0,x+70,140 FILLED: RECT x+10,140,x+110,160 FILLED
ELIF b="2": RECT x,20,x+20,40 FILLED: RECT x+20,0,x+100,20 FILLED: RECT x+100,20,x+120,60 FILLED: RECT x+20,60,x+100,80 FILLED: RECT x,80,x+20,140 FILLED: RECT x,140,x+120,160 FILLED
ELIF b="3": RECT x,0,x+120,20 FILLED: RECT x+100,20,x+120,60 FILLED: RECT x+60,60,x+120,80 FILLED: RECT x+100,80,x+120,140 FILLED: RECT x,140,x+120,160 FILLED
ELIF b="4":RECT x,0,x+20,80 FILLED:RECT x+20,60,x+100,80 FILLED:RECT x+100,0,x+120,160 FILLED
ELIF b="5":RECT x,0,x+120,20 FILLED:RECT x,20,x+20,80 FILLED:RECT x+20,60,x+100,80 FILLED:RECT x+100,80,x+120,140 FILLED:RECT x,140,x+100,160 FILLED
ELIF b="6":RECT x,0,x+120,20 FILLED:RECT x,20,x+20,160 FILLED:RECT x+20,70,x+120,90 FILLED:RECT x+100,90,x+120,140 FILLED:RECT x+20,140,x+120,160 FILLED
ELIF b="7":RECT x,0,x+120,20 FILLED:RECT x+80,20,x+100,80 FILLED:RECT x+60,80,x+80,160 FILLED
ELIF b="8":RECT x+20,0,x+100,20 FILLED:RECT x+100,20,x+120,70 FILLED:RECT x+100,90,x+120,140 FILLED:RECT x+20,140,x+100,160 FILLED:RECT x,90,x+20,140 FILLED:RECT x,20,x+20,70 FILLED:RECT x+20,70,x+100,90 FILLED
ELIF b="9":RECT x,20,x+20,70 FILLED:RECT x+20,0,x+120,20 FILLED:RECT x+100,20,x+120,160 FILLED:RECT x+20,70,x+100,90 FILLED
ELIF b="0":RECT x+20,0,x+100,20 FILLED:RECT x+100,20,x+120,140 FILLED:RECT x+20,140,x+100,160 FILLED:RECT x,20,x+20,140 FILLED

FI
DELAY 500
CLS
DELAY 300
NEXT
DELAY 500
UNTIL PEN(3)=1
PEN OFF
END 