diff --git a/LAUFSCHR/CON_DEMO.L2D b/LAUFSCHR/CON_DEMO.L2D new file mode 100644 index 0000000..be53ced --- /dev/null +++ b/LAUFSCHR/CON_DEMO.L2D @@ -0,0 +1,27 @@ +25 +"_---__- CONDOR _-_--_-",15 +"SOUND 2000 Spectrum Graphic Computer Equalizer",15 +"EV 19",10 +"Das Gert enthlt folgende Features ...",11 +"NACHTDESIGN 7facher COMPUTERGESTEUERTER EQUALIZER VERSTRKER mit SPEKTRUM-ANALYSATOR und LCD-ANZEIGE",14 +"CD-EINGANG fr externen CD-Player",14 +"fr 12V=",12 +"(MASSE am GEHUSE)",10 +"WARNHINWEISE ...",15 +"Dieses Gert ist nur fr den Anschlu an Kraftfahrzeugen mit 12V und Minus am Chassis geeignet.",15 +"a) Bevor Sie den EV 19 einbauen und anschlieen sollte das Pluskabel von der Batterie entfernt werden. um mgliche Beschdigungen 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 Gehuse",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 +"GERUSCHSPANNUNGSABSTAND: 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 + \ No newline at end of file diff --git a/LAUFSCHR/LAUF2.BAS b/LAUFSCHR/LAUF2.BAS new file mode 100644 index 0000000..832d6fb --- /dev/null +++ b/LAUFSCHR/LAUF2.BAS @@ -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 knnen Sie bis zu 2 Zeilen Text eingeben!" +120 PRINT"Nach jeder Anzeige einer Zeile wird eine leere Zeile ausgegeben." +130 PRINT"Sie knnen alle Zeichen auer: ";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 drfen 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"Zeilenlnge :",ZL +360 PRINT +370 PRINT"[J/N]" +380 INPUT"Wiederholen :",W$ +390 PRINT +400 PRINT"[J/N]" +410 INPUT"Grenautom. :",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 + \ No newline at end of file diff --git a/LAUFSCHR/LAUF2DAT.BAS b/LAUFSCHR/LAUF2DAT.BAS new file mode 100644 index 0000000..6b4c6da --- /dev/null +++ b/LAUFSCHR/LAUF2DAT.BAS @@ -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 knnen Sie bis zu 2 Zeilen Text eingeben!" +150 PRINT"Nach jeder Anzeige einer Zeile wird eine leere Zeile ausgegeben." +160 PRINT"Sie knnen alle Zeichen auer: ";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 drfen 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 fr 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"Zeilenlnge :",ZL +380 PRINT +390 PRINT"[J/N]" +400 INPUT"Wiederholen :",W$ +410 PRINT +420 PRINT"[J/N]" +430 INPUT"Grenautom. :",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 + \ No newline at end of file diff --git a/LAUFSCHR/LAUFDAT.HLP b/LAUFSCHR/LAUFDAT.HLP new file mode 100644 index 0000000..bddc1e8 --- /dev/null +++ b/LAUFSCHR/LAUFDAT.HLP @@ -0,0 +1,68 @@ +Hinweise zu LAUFSCHRIFT II - DAT + +Dieses GW-Basic Programm erfordert eine DATENDATEI die folgendermaen +aufgebaut ist: + +Zeile Informationen Beispiel +00001 Stze 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 - Dunkelgrn 03 - Dunkelcyan +04 - Dunkelrot 05 - Dunkelviolett 06 - Braun 07 - Hellgrau +08 - Grau 09 - Blau 10 - Hellgrn 11 - Hellblau +12 - Hellrot 13 - Hellviolett 14 - Gelb 15 - Wei + +Blinkende Farben: +16 - Schwarz 17 - Dunkelblau 18 - Dunkelgrn 19 - Dunkelcyan +20 - Dunkelrot 21 - Dunkelviolett 22 - Braun 23 - Hellgrau +24 - Grau 25 - Blau 26 - Hellgrn 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 Erklrung des Files: + +5 - Datenstze 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 (Hellgrn) +"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 diff --git a/LAUFSCHR/MAKING.BAS b/LAUFSCHR/MAKING.BAS new file mode 100644 index 0000000..f7b937f --- /dev/null +++ b/LAUFSCHR/MAKING.BAS @@ -0,0 +1,117 @@ +10 CLS +20 COLOR 15 +30 PRINT"MakeUtility fr LAUF II DAT" +40 PRINT +50 PRINT"Dieses Programm erstellt Datendateien fr 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 Stzen :",NUM +200 DIM TXT$(NUM+2) +210 DIM COLR(NUM+2) +220 CLS +230 PRINT"STOP - Fertig!" +240 PRINT"REVERSE - 1.Datensatz zurck" +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"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 heien [max. 8 Bstbn.] ";DAT$ +780 IF LEN(DAT$)>8 THEN GOTO 960 +790 PRINT"[ENTER] fr 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 - Dunkelgrn ";: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 - Hellgrn ";: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 - Dunkelgrn ";: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 - Hellgrn ";: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 + \ No newline at end of file