mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-12-25 12:04:08 +00:00
Added blinking LED 3.
This commit is contained in:
parent
816c9b6978
commit
df0f4f4f27
21
BLED3.BAS
Normal file
21
BLED3.BAS
Normal file
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user