mbirth/gwbasic
1
0
Fork 0
mirror of https://github.com/mbirth/gwbasic.git synced 2024-11-09 23:06:45 +00:00
Code Issues Releases Wiki Activity

Added FARBTAB to LAUFSCHR.

Browse Source
This commit is contained in:
Markus Birth 1996-01-31 17:51:14 +01:00
parent 2eadb88309
commit a834dbdac7
Signed by: mbirth
GPG Key ID: A9928D7A098C3A9A
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
LAUFSCHR/FARBTAB.BAS Normal file
View File

@ -0,0 +1,20 @@
10 REM Anzeige der Farben
15 SHELL "MODE CO80"
20 CLS
30 COLOR 15:PRINT"Normale Farben:"
40 COLOR 15:PRINT"00 - Schwarz ";:COLOR 1:PRINT"01 - Dunkelblau ";:COLOR 2:PRINT"02 - Dunkelgr<67>n ";:COLOR 3:PRINT"03 - Dunkelcyan"
50 COLOR 4:PRINT"04 - Dunkelrot ";:COLOR 5:PRINT"05 - Dunkelviolett ";:COLOR 6:PRINT"06 - Braun ";:COLOR 7:PRINT"07 - Hellgrau"
60 COLOR 8:PRINT"08 - Grau ";:COLOR 9:PRINT"09 - Blau ";:COLOR 10:PRINT"10 - Hellgr<67>n ";:COLOR 11:PRINT"11 - Hellblau"
70 COLOR 12:PRINT"12 - Hellrot ";:COLOR 13:PRINT"13 - Hellviolett ";:COLOR 14:PRINT"14 - Gelb ";:COLOR 15:PRINT"15 - Weiá"
80 PRINT
90 PRINT"Blinkende Farben:"
100 COLOR 31:PRINT"16 - Schwarz ";:COLOR 17:PRINT"17 - Dunkelblau ";:COLOR 18:PRINT"18 - Dunkelgr<67>n ";:COLOR 19:PRINT"19 - Dunkelcyan"
110 COLOR 20:PRINT"20 - Dunkelrot ";:COLOR 21:PRINT"21 - Dunkelviolett ";:COLOR 22:PRINT"22 - Braun ";:COLOR 23:PRINT"23 - Hellgrau"
120 COLOR 24:PRINT"24 - Grau ";:COLOR 25:PRINT"25 - Blau ";:COLOR 26:PRINT"26 - Hellgr<67>n ";:COLOR 27:PRINT"27 - Hellblau"
130 COLOR 28:PRINT"28 - Hellrot ";:COLOR 29:PRINT"29 - Hellviolett ";:COLOR 30:PRINT"30 - Gelb ";:COLOR 31:PRINT"31 - Weiá"
140 COLOR 15
150 A$=INKEY$:IF A$="" THEN 150
for x=0 to 15
color ,,x
next x