mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-12-26 12:34:08 +00:00
Added LAUFSCH files.
This commit is contained in:
parent
6f62011a47
commit
c75e857a85
GPG Key ID:
A9928D7A098C3A9A
27
LAUFSCHR/CON_DEMO.L2D
Normal file
27
LAUFSCHR/CON_DEMO.L2D
Normal file
@ -0,0 +1,27 @@
|
|||||||
|
25
|
||||||
|
"_---__- CONDOR _-_--_-",15
|
||||||
|
"SOUND 2000 Spectrum Graphic Computer Equalizer",15
|
||||||
|
"EV 19",10
|
||||||
|
"Das Ger„t enth„lt folgende Features ...",11
|
||||||
|
"NACHTDESIGN 7facher COMPUTERGESTEUERTER EQUALIZER VERSTŽRKER mit SPEKTRUM-ANALYSATOR und LCD-ANZEIGE",14
|
||||||
|
"CD-EINGANG f<>r externen CD-Player",14
|
||||||
|
"f<>r 12V=",12
|
||||||
|
"(MASSE am GEHŽUSE)",10
|
||||||
|
"WARNHINWEISE ...",15
|
||||||
|
"Dieses Ger„t ist nur f<>r den Anschluá an Kraftfahrzeugen mit 12V und Minus am Chassis geeignet.",15
|
||||||
|
"a) Bevor Sie den EV 19 einbauen und anschlieáen sollte das Pluskabel von der Batterie entfernt werden. um m”gliche Besch„digungen zu vermeiden.",14
|
||||||
|
"b) Das Massekabel von der Batterie soll hingegen mit der Autokarosserie verbunden sein.",14
|
||||||
|
"TECHNISCHE DATEN...",15
|
||||||
|
"BETRIEBSSPANNUNG: 14V (11-16V Gleichspannung) *** Minus am Geh„use",14
|
||||||
|
"STROMAUFNAHME: ó 1A",14
|
||||||
|
"AUSGANGSLEISTUNG: max. 4x50W (4ê)",14
|
||||||
|
"EQUALIZER: 60Hz/150Hz/400Hz/1kHz/2.5kHz/6kHz/12kHz",14
|
||||||
|
"KLANGREGELBEREICH: ñ12dB",14
|
||||||
|
"FREQUENZBEREICH: 20-21'000Hz",14
|
||||||
|
"KANALTRENNUNG (L-R): 60 dB",14
|
||||||
|
"GERŽUSCHSPANNUNGSABSTAND: 60 dB",14
|
||||||
|
"SIGNAL-EINGANGSPEGEL: 1V (Lautsprecher) *** 350mV (LINE-Eingang)",14
|
||||||
|
"ABMESSUNGEN: 178(B)x46(H)x163(T) mm",14
|
||||||
|
"GEWICHT: 1.4kg",14
|
||||||
|
"STOP",0
|
||||||
|
|
||||||
69
LAUFSCHR/LAUF2.BAS
Normal file
69
LAUFSCHR/LAUF2.BAS
Normal file
@ -0,0 +1,69 @@
|
|||||||
|
7 REM ððð L ð A ð U ð F ð S ð C ð H ð R ð I ð F ð T ððð
|
||||||
|
8 REM von Markus Birth
|
||||||
|
9 REM
|
||||||
|
10 SAVE"LAUF2.BAK"
|
||||||
|
20 SCREEN 0,0,0
|
||||||
|
30 WIDTH 80
|
||||||
|
40 KEY OFF
|
||||||
|
50 CLS
|
||||||
|
60 COLOR 14:PRINT"ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
|
||||||
|
70 COLOR 14:PRINT"º ððððððððððððððððððððð L A U F S C H R I F T ððððððððððððððððð ³ von RoboCop º"
|
||||||
|
80 COLOR 14:PRINT"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍͼ"
|
||||||
|
90 PRINT
|
||||||
|
100 COLOR 15
|
||||||
|
110 PRINT"Als Zeile k”nnen Sie bis zu 2 Zeilen Text eingeben!"
|
||||||
|
120 PRINT"Nach jeder Anzeige einer Zeile wird eine leere Zeile ausgegeben."
|
||||||
|
130 PRINT"Sie k”nnen alle Zeichen auáer: ";CHR$(44);CHR$(59);" und ";CHR$(34);" eingeben."
|
||||||
|
140 PRINT"Wenn Sie ein nichtprintbares Zeichen eingeben, erscheint :"
|
||||||
|
150 PRINT CHR$(34);"Neue Eingabe?";CHR$(34);" und Sie d<>rfen den Text nochmal eingeben."
|
||||||
|
160 LOCATE 23,1
|
||||||
|
170 PRINT" *** Taste ***"
|
||||||
|
180 A$=INKEY$:IF A$="" THEN GOTO 180
|
||||||
|
190 CLS
|
||||||
|
200 COLOR 15
|
||||||
|
210 INPUT"Zeilen : ",A
|
||||||
|
220 DIM Z$(A),C(A)
|
||||||
|
230 PRINT
|
||||||
|
240 B=1
|
||||||
|
250 PRINT"Zeile (" B ") :";:INPUT "",Z$(B)
|
||||||
|
260 IF Z$(B)="" THEN A=B-1:GOTO 320
|
||||||
|
270 PRINT"Farbe (" B ") :";:INPUT "",C(B)
|
||||||
|
280 PRINT
|
||||||
|
290 B=B+1
|
||||||
|
300 IF B>A THEN GOTO 320
|
||||||
|
310 GOTO 250
|
||||||
|
320 INPUT"Pause :",P
|
||||||
|
330 PRINT
|
||||||
|
340 PRINT"[1-80]"
|
||||||
|
350 INPUT"Zeilenl„nge :",ZL
|
||||||
|
360 PRINT
|
||||||
|
370 PRINT"[J/N]"
|
||||||
|
380 INPUT"Wiederholen :",W$
|
||||||
|
390 PRINT
|
||||||
|
400 PRINT"[J/N]"
|
||||||
|
410 INPUT"GrӇenautom. :",GA$
|
||||||
|
420 IF GA$="j" OR GA$="J" AND ZL<41 THEN WIDTH 40
|
||||||
|
430 CLS
|
||||||
|
440 B=1
|
||||||
|
450 ZC$(B)=SPACE$(ZL-1) + Z$(B) + " "
|
||||||
|
460 B=B+1
|
||||||
|
470 IF B>A THEN GOTO 490
|
||||||
|
480 GOTO 450
|
||||||
|
490 REM Hauptroutine
|
||||||
|
500 X=1
|
||||||
|
510 B=1
|
||||||
|
520 CLS
|
||||||
|
530 IF B>A THEN 630
|
||||||
|
540 COLOR C(B)
|
||||||
|
550 TX$=ZC$(B)
|
||||||
|
560 T$=MID$(TX$,X,ZL)
|
||||||
|
570 LOCATE 1,1
|
||||||
|
580 PRINT T$;
|
||||||
|
590 X=X+1
|
||||||
|
600 IF X>LEN(TX$) THEN B=B+1:X=1:GOTO 530
|
||||||
|
610 FOR M=0 TO P:NEXT M
|
||||||
|
620 GOTO 550
|
||||||
|
630 IF W$="j" OR W$="J" THEN X=1:B=1:GOTO 530
|
||||||
|
640 COLOR 15
|
||||||
|
650 END
|
||||||
|
|
||||||
68
LAUFSCHR/LAUF2DAT.BAS
Normal file
68
LAUFSCHR/LAUF2DAT.BAS
Normal file
@ -0,0 +1,68 @@
|
|||||||
|
10 REM ððð L ð A ð U ð F ð S ð C ð H ð R ð I ð F ð T ððð
|
||||||
|
20 REM von Markus Birth
|
||||||
|
30 REM
|
||||||
|
40 SAVE"LAUF2DAT.BAK"
|
||||||
|
50 SCREEN 0,0,0
|
||||||
|
60 WIDTH 80
|
||||||
|
70 KEY OFF
|
||||||
|
80 CLS
|
||||||
|
90 COLOR 14:PRINT"ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
|
||||||
|
100 COLOR 14:PRINT"º ððððððððððððððððððððð L A U F S C H R I F T ððððððððððððððððð ³ von RoboCop º"
|
||||||
|
110 COLOR 14:PRINT"ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍͼ"
|
||||||
|
120 PRINT
|
||||||
|
130 COLOR 15
|
||||||
|
140 PRINT"Als Zeile k”nnen Sie bis zu 2 Zeilen Text eingeben!"
|
||||||
|
150 PRINT"Nach jeder Anzeige einer Zeile wird eine leere Zeile ausgegeben."
|
||||||
|
160 PRINT"Sie k”nnen alle Zeichen auáer: ";CHR$(44);CHR$(59);" und ";CHR$(34);" eingeben."
|
||||||
|
170 PRINT"Wenn Sie ein nichtprintbares Zeichen eingeben, erscheint :"
|
||||||
|
180 PRINT CHR$(34);"Neue Eingabe?";CHR$(34);" und Sie d<>rfen den Text nochmal eingeben."
|
||||||
|
190 LOCATE 23,1
|
||||||
|
200 PRINT" *** Taste ***"
|
||||||
|
210 A$=INKEY$:IF A$="" THEN GOTO 210
|
||||||
|
220 CLS
|
||||||
|
230 COLOR 15
|
||||||
|
240 INPUT"Dateiname [ENTER f<>r LAUFTEXT.L2D]:",D$
|
||||||
|
250 IF D$="" THEN D$="LAUFTEXT.L2D"
|
||||||
|
260 OPEN "I",#1,D$
|
||||||
|
270 INPUT#1,A
|
||||||
|
280 DIM Z$(A+2):DIM C(A+2):DIM ZC$(A+2)
|
||||||
|
290 FOR X=1 TO A
|
||||||
|
300 IF EOF(1) THEN 330
|
||||||
|
310 INPUT#1,Z$(X),C(X)
|
||||||
|
320 NEXT X
|
||||||
|
330 CLOSE 1
|
||||||
|
340 INPUT"Pause :",P
|
||||||
|
350 PRINT
|
||||||
|
360 PRINT"[1-80]"
|
||||||
|
370 INPUT"Zeilenl„nge :",ZL
|
||||||
|
380 PRINT
|
||||||
|
390 PRINT"[J/N]"
|
||||||
|
400 INPUT"Wiederholen :",W$
|
||||||
|
410 PRINT
|
||||||
|
420 PRINT"[J/N]"
|
||||||
|
430 INPUT"GrӇenautom. :",GA$
|
||||||
|
440 IF GA$="j" OR GA$="J" AND ZL<41 THEN WIDTH 40
|
||||||
|
450 CLS
|
||||||
|
460 B=1
|
||||||
|
470 ZC$(B)=SPACE$(ZL-1) + Z$(B) + " "
|
||||||
|
480 B=B+1
|
||||||
|
490 IF B>A THEN GOTO 510
|
||||||
|
500 GOTO 470
|
||||||
|
510 REM Hauptroutine
|
||||||
|
520 X=1
|
||||||
|
530 B=1
|
||||||
|
540 CLS
|
||||||
|
550 IF B>A THEN 650
|
||||||
|
560 COLOR C(B)
|
||||||
|
570 TX$=ZC$(B)
|
||||||
|
580 T$=MID$(TX$,X,ZL)
|
||||||
|
590 LOCATE 1,1
|
||||||
|
600 PRINT T$;
|
||||||
|
610 X=X+1
|
||||||
|
620 IF X>LEN(TX$) THEN B=B+1:X=1:GOTO 550
|
||||||
|
630 FOR M=0 TO P:NEXT M
|
||||||
|
640 GOTO 570
|
||||||
|
650 IF W$="j" OR W$="J" THEN X=1:B=1:GOTO 550
|
||||||
|
660 COLOR 15
|
||||||
|
670 END
|
||||||
|
|
||||||
68
LAUFSCHR/LAUFDAT.HLP
Normal file
68
LAUFSCHR/LAUFDAT.HLP
Normal file
@ -0,0 +1,68 @@
|
|||||||
|
Hinweise zu LAUFSCHRIFT II - DAT
|
||||||
|
|
||||||
|
Dieses GW-Basic Programm erfordert eine DATENDATEI die folgendermaáen
|
||||||
|
aufgebaut ist:
|
||||||
|
|
||||||
|
Zeile Informationen Beispiel
|
||||||
|
00001 S„tze insgesamt 3
|
||||||
|
00002 Text : Satz 1 (muá in "" stehen) "Text"
|
||||||
|
00003 Farbe: Satz 1 (0-31) 12
|
||||||
|
00004 Text : Satz 2 "Satz 2"
|
||||||
|
00005 Farbe: Satz 2 10
|
||||||
|
00006 Text : Satz 3 "Beispieltext"
|
||||||
|
. . .
|
||||||
|
. . .
|
||||||
|
. . .
|
||||||
|
|
||||||
|
Am Ende muá ein Farbwert stehen!!!
|
||||||
|
|
||||||
|
Farbtabelle:
|
||||||
|
|
||||||
|
Normale Farben:
|
||||||
|
00 - Schwarz 01 - Dunkelblau 02 - Dunkelgr<67>n 03 - Dunkelcyan
|
||||||
|
04 - Dunkelrot 05 - Dunkelviolett 06 - Braun 07 - Hellgrau
|
||||||
|
08 - Grau 09 - Blau 10 - Hellgr<67>n 11 - Hellblau
|
||||||
|
12 - Hellrot 13 - Hellviolett 14 - Gelb 15 - Weiá
|
||||||
|
|
||||||
|
Blinkende Farben:
|
||||||
|
16 - Schwarz 17 - Dunkelblau 18 - Dunkelgr<67>n 19 - Dunkelcyan
|
||||||
|
20 - Dunkelrot 21 - Dunkelviolett 22 - Braun 23 - Hellgrau
|
||||||
|
24 - Grau 25 - Blau 26 - Hellgr<67>n 27 - Hellblau
|
||||||
|
28 - Hellrot 29 - Hellviolett 30 - Gelb 31 - Weiá
|
||||||
|
|
||||||
|
Hier ein Dateibeispiel:
|
||||||
|
|
||||||
|
Datei: LAUFTEXT.L2D
|
||||||
|
|
||||||
|
5
|
||||||
|
"Laufschrift II - DAT *** Laufschrift II - DAT *** Laufschrift II - DAT"
|
||||||
|
12
|
||||||
|
"geschrieben in GW-BASIC"
|
||||||
|
10
|
||||||
|
"von Markus Birth"
|
||||||
|
12
|
||||||
|
"Musterstrasse 1 in 12345 Musterstadt"
|
||||||
|
11
|
||||||
|
"Telefon/FAX: (0123) 4567"
|
||||||
|
8
|
||||||
|
[EOF]
|
||||||
|
|
||||||
|
Und hier die Erkl„rung des Files:
|
||||||
|
|
||||||
|
5 - Datens„tze ges.
|
||||||
|
"Laufschrift II - DAT *** Laufschrift II - DAT *** Laufschrift II - DAT" - Satz 1
|
||||||
|
12 - Farbe 12 (Hellrot)
|
||||||
|
"geschrieben in GW-BASIC" - Satz 2
|
||||||
|
10 - Farbe 10 (Hellgr<67>n)
|
||||||
|
"von Markus Birth" - Satz 3
|
||||||
|
12 - Farbe 12 (wieder Hellrot)
|
||||||
|
"Musterstrasse 1 in 12345 Musterstadt" - Satz 4
|
||||||
|
11 - Farbe 11 (Hellcyan)
|
||||||
|
"Telefon/FAX: (0123) 4567" - Satz 5
|
||||||
|
8 - Farbe 8 (Dunkelgrau)
|
||||||
|
[EOF]
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Ich hoffe diese Datei konnte helfen.
|
||||||
|
Markus Birth
|
||||||
117
LAUFSCHR/MAKING.BAS
Normal file
117
LAUFSCHR/MAKING.BAS
Normal file
@ -0,0 +1,117 @@
|
|||||||
|
10 CLS
|
||||||
|
20 COLOR 15
|
||||||
|
30 PRINT"MakeUtility f<>r LAUF II DAT"
|
||||||
|
40 PRINT
|
||||||
|
50 PRINT"Dieses Programm erstellt Datendateien f<>r LAUF II DAT (*.L2D)"
|
||||||
|
60 PRINT
|
||||||
|
70 A=1
|
||||||
|
80 PRINT"Geben Sie erst den Text und dann"
|
||||||
|
90 PRINT"die Farbnummer ein"
|
||||||
|
100 PRINT
|
||||||
|
110 PRINT"z.B:"
|
||||||
|
120 PRINT"Test [ENTER] 15 [ENTER]"
|
||||||
|
130 PRINT" | |"
|
||||||
|
140 PRINT" | --- Farbe 15 (Hellweiá)"
|
||||||
|
150 PRINT" --------------- Text: ";CHR$(34);"Test";CHR$(34)
|
||||||
|
160 PRINT
|
||||||
|
170 A$=INKEY$:IF A$="" THEN 170
|
||||||
|
180 CLS
|
||||||
|
190 INPUT"Anzahl an S„tzen :",NUM
|
||||||
|
200 DIM TXT$(NUM+2)
|
||||||
|
210 DIM COLR(NUM+2)
|
||||||
|
220 CLS
|
||||||
|
230 PRINT"STOP - Fertig!"
|
||||||
|
240 PRINT"REVERSE - 1.Datensatz zur<75>ck"
|
||||||
|
250 PRINT"LAST TOO - letzten Datensatz in jetzigen kopieren"
|
||||||
|
260 PRINT"COLORS - Zeigt alle Farben an"
|
||||||
|
270 PRINT"[ENTER] - Aktuelle Daten erhalten"
|
||||||
|
280 PRINT
|
||||||
|
290 PRINT"Alter Datensatz:"
|
||||||
|
300 PRINT CHR$(34);TXT$(A);CHR$(34)
|
||||||
|
310 PRINT:PRINT"Alte Farbe:"
|
||||||
|
320 PRINT USING"##";COLR(A)
|
||||||
|
330 PRINT
|
||||||
|
340 TXTSAVE$=TXT$(A)
|
||||||
|
350 COLSAVE=COLR(A)
|
||||||
|
360 PRINT"Satz "A" :";:INPUT "",TXT$(A)
|
||||||
|
370 IF TXT$(A)="STOP" OR TXT$(A)="stop" THEN GOTO 720
|
||||||
|
380 IF TXT$(A)="REVERSE" OR TXT$(A)="reverse" THEN GOTO 470
|
||||||
|
390 IF TXT$(A)="LAST TOO" OR TXT$(A)="last too" THEN GOTO 500
|
||||||
|
400 IF TXT$(A)="COLORS" OR TXT$(A)="colors" THEN GOTO 1010
|
||||||
|
410 IF TXT$(A)="" THEN TXT$(A)=TXTSAVE$
|
||||||
|
420 PRINT"Farbe "A":";:INPUT "",COLR(A)
|
||||||
|
430 IF COLR(A)=0 THEN COLR(A)=COLSAVE
|
||||||
|
440 PRINT
|
||||||
|
450 A=A+1
|
||||||
|
460 GOTO 220
|
||||||
|
470 REM REVERSE
|
||||||
|
480 A=A-1
|
||||||
|
490 GOTO 220
|
||||||
|
500 REM LAST TOO
|
||||||
|
510 CLS
|
||||||
|
520 PRINT"Wollen Sie wirklich den Datensatz Nr. "A" mit dem Datensatz Nr. "A-1
|
||||||
|
530 PRINT"<22>berschreiben [J/N] ???"
|
||||||
|
540 PRINT
|
||||||
|
550 PRINT"Datenvergleich:"
|
||||||
|
560 PRINT"Jetziger Datensatz:"
|
||||||
|
570 PRINT"N§ "A
|
||||||
|
580 PRINT CHR$(34);TXT$(A);CHR$(34)
|
||||||
|
590 PRINT
|
||||||
|
600 PRINT"Vorlagensatz:"
|
||||||
|
610 PRINT"N§ "A-1
|
||||||
|
620 PRINT CHR$(34);TXT$(A-1);CHR$(34)
|
||||||
|
630 PRINT
|
||||||
|
640 A$=INKEY$:IF A$="" THEN 640
|
||||||
|
650 IF A$="j" OR A$="J" THEN GOTO 680
|
||||||
|
660 IF A$="n" OR A$="N" THEN GOTO 220
|
||||||
|
670 GOTO 640
|
||||||
|
680 REM šBERWRITEN
|
||||||
|
690 PRINT"Datensatz wird kopiert..."
|
||||||
|
700 TXT$(A)=TXT$(A-1):COLR(A)=COLR(A-1)
|
||||||
|
710 A=A+1:GOTO 220
|
||||||
|
720 REM SPEICHERN
|
||||||
|
730 CLS
|
||||||
|
740 PRINT"Wollen Sie schon speichern?"
|
||||||
|
750 A$=INKEY$:IF A$="" THEN 750
|
||||||
|
760 PRINT
|
||||||
|
770 INPUT"Wie soll die Datei heiáen [max. 8 Bstbn.] ";DAT$
|
||||||
|
780 IF LEN(DAT$)>8 THEN GOTO 960
|
||||||
|
790 PRINT"[ENTER] f<>r L2D"
|
||||||
|
800 INPUT"Wie soll die Extension lauten [max. 3 Stln.] ";EXT$
|
||||||
|
810 IF EXT$="" THEN EXT$="L2D"
|
||||||
|
820 IF LEN(EXT$)>3 THEN GOTO 960
|
||||||
|
830 DATEI$=DAT$+"."+EXT$
|
||||||
|
840 OPEN "O",#1,DATEI$
|
||||||
|
850 ENDCHAR=A
|
||||||
|
860 WRITE#1,ENDCHAR
|
||||||
|
870 FOR X=1 TO ENDCHAR
|
||||||
|
880 WRITE#1,TXT$(X),COLR(X)
|
||||||
|
890 NEXT X
|
||||||
|
900 PRINT"Fertig!"
|
||||||
|
910 CLS
|
||||||
|
920 FILES DATEI$
|
||||||
|
930 PRINT
|
||||||
|
940 PRINT
|
||||||
|
950 END
|
||||||
|
960 REM FEHLER!
|
||||||
|
970 CLS:PRINT"Es ist ein Fehler bei der Eingabe der Dateinamen aufgetreten!"
|
||||||
|
980 PRINT"Geben Sie sie bitte nocheinmal ein."
|
||||||
|
990 A$=INKEY$:IF A$="" THEN 990
|
||||||
|
1000 GOTO 720
|
||||||
|
1010 REM Anzeige der Farben
|
||||||
|
1020 CLS
|
||||||
|
1030 COLOR 15:PRINT"Normale Farben:"
|
||||||
|
1040 COLOR 15:PRINT"00 - Schwarz ";:COLOR 1:PRINT"01 - Dunkelblau ";:COLOR 2:PRINT"02 - Dunkelgr<67>n ";:COLOR 3:PRINT"03 - Dunkelcyan"
|
||||||
|
1050 COLOR 4:PRINT"04 - Dunkelrot ";:COLOR 5:PRINT"05 - Dunkelviolett ";:COLOR 6:PRINT"06 - Braun ";:COLOR 7:PRINT"07 - Hellgrau"
|
||||||
|
1060 COLOR 8:PRINT"08 - Grau ";:COLOR 9:PRINT"09 - Blau ";:COLOR 10:PRINT"10 - Hellgr<67>n ";:COLOR 11:PRINT"11 - Hellblau"
|
||||||
|
1070 COLOR 12:PRINT"12 - Hellrot ";:COLOR 13:PRINT"13 - Hellviolett ";:COLOR 14:PRINT"14 - Gelb ";:COLOR 15:PRINT"15 - Weiá"
|
||||||
|
1080 PRINT
|
||||||
|
1090 PRINT"Blinkende Farben:"
|
||||||
|
1100 COLOR 31:PRINT"16 - Schwarz ";:COLOR 17:PRINT"17 - Dunkelblau ";:COLOR 18:PRINT"18 - Dunkelgr<67>n ";:COLOR 19:PRINT"19 - Dunkelcyan"
|
||||||
|
1110 COLOR 20:PRINT"20 - Dunkelrot ";:COLOR 21:PRINT"21 - Dunkelviolett ";:COLOR 22:PRINT"22 - Braun ";:COLOR 23:PRINT"23 - Hellgrau"
|
||||||
|
1120 COLOR 24:PRINT"24 - Grau ";:COLOR 25:PRINT"25 - Blau ";:COLOR 26:PRINT"26 - Hellgr<67>n ";:COLOR 27:PRINT"27 - Hellblau"
|
||||||
|
1130 COLOR 28:PRINT"28 - Hellrot ";:COLOR 29:PRINT"29 - Hellviolett ";:COLOR 30:PRINT"30 - Gelb ";:COLOR 31:PRINT"31 - Weiá"
|
||||||
|
1140 COLOR 15
|
||||||
|
1150 A$=INKEY$:IF A$="" THEN 1150
|
||||||
|
1160 GOTO 220
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user