SET NO DOUBLE 
1 REM      
2 CLEAR 
3 DATA 1,3,5,7
4 FOR I=1 TO 4
5 SET COLOR I
6 READ A(I)
9 REM       
10 SET CHARACTER SIZE .05,.15
19 REM      
20 SET ITALICS 30
29 REM    
30 SET POSITION (.41,.35)
34 REM    : 0 - 0%; 1 - 51%; 2 - 90%; 3 - 129%;
35 REM   4 - 180%; 5 - 231%; 6 - 270%; 7 - 309%
36 SET TEXT ANGLE A(I)
40 GRAPHIC PRINT ""
45 NEXT I
50 END 
