From 0c59db1856171707740ff7d57d6605e43063ac89 Mon Sep 17 00:00:00 2001
From: Markus Birth <mbirth@gmail.com>
Date: Wed, 12 Apr 1995 21:48:24 +0200
Subject: [PATCH] Added EQUAL.BAS.

---
 EQUAL.BAS | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 EQUAL.BAS

diff --git a/EQUAL.BAS b/EQUAL.BAS
new file mode 100644
index 0000000..c698aa6
--- /dev/null
+++ b/EQUAL.BAS
@@ -0,0 +1,13 @@
+10 CLS
+20 A=100
+30 B=1
+40 C=9000
+50 SOUND A,.5
+51 LOCATE 1,1:PRINT A
+52 LOCATE 2,1:PRINT B
+53 LOCATE 3,1:PRINT C
+60 FOR Z=0 TO B:NEXT Z
+70 A=A+5
+80 IF A>=C THEN 20
+90 GOTO 50
+
\ No newline at end of file