Added EQUAL.BAS.

1995-04-12 21:48:24 +02:00 · 1995-04-12 21:48:24 +02:00 · 0c59db1856
commit 0c59db1856
parent df0f4f4f27
1 changed files with 13 additions and 0 deletions
--- a/EQUAL.BAS
+++ 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
+