From df0f4f4f276bdd16a3c16d057aa33d36d200aa67 Mon Sep 17 00:00:00 2001
From: Markus Birth <mbirth@gmail.com>
Date: Fri, 24 Feb 1995 21:58:06 +0100
Subject: [PATCH] Added blinking LED 3.

---
 BLED3.BAS | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 BLED3.BAS

diff --git a/BLED3.BAS b/BLED3.BAS
new file mode 100644
index 0000000..602c75f
--- /dev/null
+++ b/BLED3.BAS
@@ -0,0 +1,21 @@
+10 CLS
+20 A=1
+30 LOCATE 1,1
+40 IF A=1 THEN B=255
+50 IF A=2 THEN B=176
+60 IF A=3 THEN B=177
+70 IF A=4 THEN B=178
+80 IF A=5 THEN B=219
+90 FOR X=0 TO 2500:NEXT
+100 REM FOR Z=1 TO 24
+110 IF INKEY$="" THEN GOTO 120 ELSE END
+120 PRINT STRING$(80,B);
+130 REM NEXT Z
+140 IF C=0 THEN GOTO 180
+150 A=A-1
+160 IF A=0 THEN A=1:C=0
+170 GOTO 30
+180 A=A+1
+190 IF A=6 THEN C=1:A=4
+200 GOTO 30
+
\ No newline at end of file