SET NO DOUBLE
20 CLEAR
30 SET WINDOW 0,300,0,300
40 REM SCROLL (15,0)
50 SET VIEWPORT 0,1,0,.625
60 DATA ,,,,,,,,,,
70 FOR I=0 TO 10\ READ E$(I)\ NEXT I
80 SET POSITION (0,100)
90 SET CHARACTER SIZE 27,140
100 FOR I=0 TO 10
110 IF I>5 THEN C=I-5 ELSE C=I+1
120 SET COLOR C
130 GRAPHIC PRINT E$(I);
140 NEXT I
150 REM ...................... VELOSIPED .................
155 CHAIN "K"
