100 init
110 dim map$(20),mx(200),my(200)
120 call initmap
130 ccount=0
140 cmax=0
150 rem ######################## main
160 label main
170 ccount=ccount+1
180 if ccount>=cmax then
190   ccount=0
200   for i=1 to 200
210     my(i)=my(i)+1
220     if my(i)>223 then my(i)=my(i)-320
230     sprpos i,mx(i),my(i),0
240   next i
250 end if
260 fsync 1
270 goto *main
280 rem ####################init map
290 sub initmap
300 mmax=20
310 for i=1 to mmax
320   read map$(i)
330 next i
340 k=0
350   yy=208
360 for i=mmax to 1 step -1
370   m$=map$(i)
380   for j=1 to 10
390     k=k+1
400     select case m$(j:j)
410       case "a"
420         sprtex k,7,288,0,320,32
430       case "b"
440         sprtex k,7,320,0,352,32
450       case "c"
460         sprtex k,7,352,0,384,32
470       case "d"
480         sprtex k,7,384,0,416,32
490       case "e"
500         sprtex k,7,416,0,448,32
510       case "f"
520         sprtex k,7,288,32,320,64
530       case "g"
540         sprtex k,7,320,32,352,64
550       case "h"
560         sprtex k,7,352,32,384,64
570       case "i"
580         sprtex k,7,384,32,416,64
590       case "j"
600         sprtex k,7,416,32,448,64
610       case "k"
620       sprtex k,7,320,156,352,188
630       case "l"
640       sprtex k,7,320,156,352,188
650       case "m"
660       sprtex k,7,352,156,384,188
670       case "n"
680       sprtex k,7,384,156,416,188
690       case "o"
700       sprtex k,7,416,156,448,188
710       case "p"
720       sprtex k,7,320,188,352,224
730       case "q"
740       sprtex k,7,352,188,384,224
750       case "r"
760       sprtex k,7,384,188,416,224
770       case "s"
780       sprtex k,7,416,188,448,224
790       case "t"
800       sprtex k,7,320,224,352,256
810       case "u"
820       sprtex k,7,352,224,384,256
830       case "v"
840       sprtex k,7,384,224,416,256
850       case "w"
860       sprtex k,7,416,224,448,256
870     end select
880     mx(k)=j*32
890     my(k)=yy
900     sprpos k,mx(k),my(k),0
910     sprpal k,7,6,1
920     sprdisp k
930   next j
940   yy=yy-16
950 next i
960 end sub
10000 rem #################### data
10010 data"ffffffffff"
10020 data"efffffffff"
10030 data"aededeffff"
10040 data"avwaaaefff"
10050 data"amswaaaeff"
10060 data"amfswaaaef"
10070 data"vrffoaaabf"
10080 data"mffptbcbff"
10090 data"uqfobfffff"
10100 data"amptefffff"
10110 data"autaaeffff"
10120 data"aaaaabffff"
10130 data"aabcaeffff"
10140 data"abfdaaefff"
10150 data"aefcaaaeff"
10160 data"abfdaaabff"
10170 data"bffcbcbfff"
10180 data"ffffffffff"
10190 data"ffffffffff"
10200 data"ffffffffff"