mbirth/gwbasic
1
0
Fork 0
mirror of https://github.com/mbirth/gwbasic.git synced 2024-09-19 16:53:26 +01:00
Code Issues Releases Wiki Activity

Added EQUAL.BAS.

Browse Source
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
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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