1
0
mirror of https://github.com/mbirth/gwbasic.git synced 2024-12-25 03:54:07 +00:00

Added EQUAL.BAS.

This commit is contained in:
Markus Birth 1995-04-12 21:48:24 +02:00
parent df0f4f4f27
commit 0c59db1856
Signed by: mbirth
GPG Key ID: A9928D7A098C3A9A

13
EQUAL.BAS Normal file
View File

@ -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