BLED.BAS

5 REM Blinking LED
10 CLS
20 GOSUB 200
30 PRINT"ÿ"
40 GOSUB 200
50 PRINT"°"
60 GOSUB 200
70 PRINT"±"
80 GOSUB 200
90 PRINT"²"
100 GOSUB 200
110 PRINT"Û"
120 GOSUB 200
130 PRINT"²"
140 GOSUB 200
150 PRINT"±"
160 GOSUB 200
170 PRINT"°"
180 GOSUB 200
190 GOTO 30
200 LOCATE 1,1
210 FOR Z=0 TO 2500:NEXT
220 RETURN