From 0d2403426d1fe69197ba0d375c2cb096f828c833 Mon Sep 17 00:00:00 2001 From: Markus Birth Date: Thu, 9 May 1996 00:59:20 +0200 Subject: [PATCH] Added files as of 9 May 1996. --- ABRECHNG.BAS | 129 +++++++++++++++++++++ BARGRAPH.DOC | 22 ++++ BLED.BAS | 24 ++++ CB-FUNK.BAS | 72 ++++++++++++ COLOR.BAS | 7 ++ COLORS.BAS | 41 +++++++ COMPUTER.BAS | 62 ++++++++++ DATABANK.BAS | 92 +++++++++++++++ DATAS.BAS | 10 ++ DEMO.BAS | 34 ++++++ EKG.BAS | 13 +++ GRAPHIC.BAS | 36 ++++++ HORO.BAS | 256 ++++++++++++++++++++++++++++++++++++++++++ IBM1.BAS | 22 ++++ JOY.BAS | 27 +++++ KARTENTR.BAS | 48 ++++++++ KATER_KN.BAS | 49 ++++++++ KNIGHT2.BAS | 25 +++++ KOO.BAS | 59 ++++++++++ KREIS.BAS | 9 ++ LAUFSCHR/FARBEN.DOC | 11 ++ LAUFSCHR/LAUFTEXT.L2D | 11 ++ MOPS.BAS | 33 ++++++ MOUSE.BAS | 34 ++++++ OHM.BAS | 35 ++++++ OUTRUN.BAS | 40 +++++++ PRINT.BAS | 6 + RATEFIX.BAS | 29 +++++ RECHNEN.BAS | 123 ++++++++++++++++++++ RUFTON1.BAS | 5 + SCHREIBE.BAS | 19 ++++ SELFTEST.BAS | 14 +++ SIREN.BAS | 13 +++ SONNE.BAS | 49 ++++++++ STEUER.BAS | 60 ++++++++++ STEUER2.BAS | 60 ++++++++++ STEUER3.BAS | 70 ++++++++++++ STEUER4.BAS | 64 +++++++++++ SUCHEN.BAS | 17 +++ TIMER.BAS | 67 +++++++++++ 40 files changed, 1797 insertions(+) create mode 100644 ABRECHNG.BAS create mode 100644 BARGRAPH.DOC create mode 100644 BLED.BAS create mode 100644 CB-FUNK.BAS create mode 100644 COLOR.BAS create mode 100644 COLORS.BAS create mode 100644 COMPUTER.BAS create mode 100644 DATABANK.BAS create mode 100644 DATAS.BAS create mode 100644 DEMO.BAS create mode 100644 EKG.BAS create mode 100644 GRAPHIC.BAS create mode 100644 HORO.BAS create mode 100644 IBM1.BAS create mode 100644 JOY.BAS create mode 100644 KARTENTR.BAS create mode 100644 KATER_KN.BAS create mode 100644 KNIGHT2.BAS create mode 100644 KOO.BAS create mode 100644 KREIS.BAS create mode 100644 LAUFSCHR/FARBEN.DOC create mode 100644 LAUFSCHR/LAUFTEXT.L2D create mode 100644 MOPS.BAS create mode 100644 MOUSE.BAS create mode 100644 OHM.BAS create mode 100644 OUTRUN.BAS create mode 100644 PRINT.BAS create mode 100644 RATEFIX.BAS create mode 100644 RECHNEN.BAS create mode 100644 RUFTON1.BAS create mode 100644 SCHREIBE.BAS create mode 100644 SELFTEST.BAS create mode 100644 SIREN.BAS create mode 100644 SONNE.BAS create mode 100644 STEUER.BAS create mode 100644 STEUER2.BAS create mode 100644 STEUER3.BAS create mode 100644 STEUER4.BAS create mode 100644 SUCHEN.BAS create mode 100644 TIMER.BAS diff --git a/ABRECHNG.BAS b/ABRECHNG.BAS new file mode 100644 index 0000000..14f0a0f --- /dev/null +++ b/ABRECHNG.BAS @@ -0,0 +1,129 @@ +10 CLS +20 DIM T(31) +30 DIM MA(5) +40 COLOR 10:PRINT" Programm zur Berechnung der Zeitzuschlgen und berstundenvergtung" +50 COLOR 12:PRINT" fr Mutti" +60 COLOR 15 +70 PRINT +80 PRINT"Beschftigungsgrad [1-Ganz; 2-Halb; 3-Dreiviertel]:" +90 BESCH$=INKEY$:IF BESCH$="" THEN 90 +100 IF BESCH$="1" THEN BESCH$="Ganz":GOTO 140 +110 IF BESCH$="2" THEN BESCH$="Halb":GOTO 140 +120 IF BESCH$="3" THEN BESCH$="Dreiviertel":GOTO 140 +130 GOTO 90 +140 INPUT"Tage :",TAG +150 PRINT"FS-Tag [j/n] ?" +160 FS$=INKEY$:IF FS$="" THEN 160 +170 IF FS$="j" THEN FS$="1":GOTO 200 +180 IF FS$="n" THEN FS$="0":GOTO 200 +190 GOTO 160 +200 W=1 +210 T=0 +220 IF BESCH$="Ganz" AND FS$="0" THEN SL=TAG*7.85 +230 IF BESCH$="Ganz" AND FS$="1" THEN SL=(TAG-1)*7.85 +240 IF BESCH$="Halb" AND FS$="0" THEN SL=TAG*3.93 +250 IF BESCH$="Halb" AND FS$="1" THEN SL=(TAG-1)*3.93 +260 IF BESCH$="Dreiviertel" AND FS$="0" THEN SL=TAG*(7.7/4*3) +270 IF BESCH$="Dreiviertel" AND FS$="1" THEN SL=(TAG-1)*(7.7/4*3) +280 PRINT +290 PRINT USING"Soll: ###.##";SL +300 PRINT +310 INPUT"Gutstunden: ",GUT +320 FER=SL-GUT +330 PRINT USING"Mindest. : ###.##";FER +340 PRINT +350 PRINT"Wenn keine Werte mehr ---> 8888 eingeben" +360 PRINT"Wenn 0 ---> 99" +370 PRINT +380 PRINT"Taste fr WEITER" +390 A$=INKEY$:IF A$="" THEN 390 +400 CLS +410 PRINT"20 - 7.85" +420 PRINT"88 - 1 zurck" +430 PRINT USING"Gesamt : ####.##";GES +440 PRINT"Wert (";W;") ";:INPUT" ",T(W) +450 IF T(W)=20 THEN T(W)=7.85 +460 IF T(W)=88 THEN W=W-1:GES=GES-SAFE:GOTO 400 +470 IF T(W)=0 THEN T(W)=SAFE +480 IF T(W)=99 THEN T(W)=0 +490 IF T(W)=8888 THEN 550 +500 SAFE=T(W) +510 GES=T(W)+GES +520 IF W=31 THEN GOTO 550 +530 W=W+1 +540 GOTO 400 +550 PRINT +560 COLOR 12 +570 PRINT USING"Gesamt-Wert: ###.##";GES +580 COLOR 14 +590 PRINT +600 PRINT USING"Mindest.: ###.##";FER +610 PRINT USING"Ist : ###.##";GES +620 COLOR 15 +630 PRINT +640 PRINT USING" ###.##";GES +650 PRINT USING"-###.##";FER +660 PRINT "-------" +670 MA(1)=GES-FER +680 PRINT USING"####.##";MA(1) +690 PRINT "=======" +700 PRINT +710 INPUT"Gearbeitete Tage :",GTAG +720 PRINT +730 MA(2)=GTAG*10/60 +740 PRINT USING"Minutenausgleich: ##.##";MA(2) +750 PRINT +760 PRINT USING " ###.##";MA(1) +770 PRINT USING "+###.##";MA(2) +780 PRINT "-------" +790 MA(3)=MA(1)+MA(2) +800 PRINT USING "####.##";MA(3) +810 PRINT "=======" +820 PRINT +830 COLOR 10 +840 PRINT USING "Gut: ###.##";MA(3) +850 PRINT +860 VZ=MA(3) +870 IF MA(3)<0 THEN MA(3)=MA(3)-MA(3)-MA(3) +880 HR=INT(MA(3)) +890 DMN=MA(3)-HR +900 MN=DMN*6/10 +910 COLOR 14 +920 IF VZ<0 THEN HR=HR-HR-HR +930 PRINT USING "bertrag:+### Std.##'";HR,MN +940 PRINT +950 PRINT"Weitere Berechnungen ?" +960 PRINT"603 - Nachtschicht" +970 PRINT"324 - Samstagsarbeit" +980 PRINT"2 - Genehmigte berstundenzahl mit Freizeitausgleich" +990 PRINT"306 - Arbeit an Sonntagen" +1000 PRINT +1010 INPUT"Code :",CD +1020 IF CD=603 THEN GOTO 1080 +1030 IF CD=324 THEN GOTO +1040 IF CD=2 THEN GOTO +1050 IF CD=200 THEN GOTO +1060 IF CD=306 THEN GOTO +1070 GOTO 1010 +1080 REM Nachtarbeit +1090 CLS +1100 COLOR 10:PRINT" Nachtarbeit" +1110 PRINT +1120 INPUT"Anzahl der zusammenzuzhlenden Tage: ",DAYS +1130 E=1 +1140 D=0 +1150 CLS +1160 PRINT USING"Gesamt: ###.##";GSMT +1170 PRINT"Wert (";D(E);") :";:INPUT WRT +1180 IF E>=DAYS THEN GOTO 1220 +1190 E=E+1 +1200 GSMT=GSMT+WRT +1210 GOTO 1150 +1220 REM Ausgabe +1230 CLS +1240 PRINT"Code: 603" +1250 PRINT"Gesamt: ";GSMT +1260 PRINT +1270 A$=INKEY$:IF A$="" THEN 1270 +1280 CLS:GOTO 940 + \ No newline at end of file diff --git a/BARGRAPH.DOC b/BARGRAPH.DOC new file mode 100644 index 0000000..a2582eb --- /dev/null +++ b/BARGRAPH.DOC @@ -0,0 +1,22 @@ + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/BLED.BAS b/BLED.BAS new file mode 100644 index 0000000..f469dae --- /dev/null +++ b/BLED.BAS @@ -0,0 +1,24 @@ +5 REM Blinking LED +10 CLS +20 GOSUB 200 +30 PRINT"" +40 GOSUB 200 +50 PRINT"" +60 GOSUB 200 +70 PRINT"" +80 GOSUB 200 +90 PRINT"" +100 GOSUB 200 +110 PRINT"" +120 GOSUB 200 +130 PRINT"" +140 GOSUB 200 +150 PRINT"" +160 GOSUB 200 +170 PRINT"" +180 GOSUB 200 +190 GOTO 30 +200 LOCATE 1,1 +210 FOR Z=0 TO 2500:NEXT +220 RETURN + \ No newline at end of file diff --git a/CB-FUNK.BAS b/CB-FUNK.BAS new file mode 100644 index 0000000..c15cf2c --- /dev/null +++ b/CB-FUNK.BAS @@ -0,0 +1,72 @@ +10 KEY OFF +20 CLS +30 COLOR 12:PRINT"Funkgert ";:COLOR 14:PRINT"HF 12/5" +40 COLOR 12:PRINT"Hersteller ";:COLOR 14:PRINT"dnt" +50 COLOR 12:PRINT"Wellenbereiche ";:COLOR 14:PRINT"FM 26.965 - 27.405 MHz" +60 PRINT" ";:COLOR 14:PRINT"AM ---- - ---- kHz" +70 PRINT +80 COLOR 15:PRINT +90 PRINT"Geben Sie die korrekte Serien-Nummer (Ser.N.) ein :" +100 PRINT"--------" +110 A=A+1 +120 B=B+1 +130 IF A=9 THEN 170 +140 A$(B)=INKEY$:IF A$(B)="" GOTO 140 +150 LOCATE 8,A:PRINT A$(B) +160 GOTO 110 +170 PRINT:PRINT +180 FOR Z=1 TO 8 +190 ZAHL$=ZAHL$+A$(Z) +200 NEXT Z +210 IF ZAHL$="11903603" THEN GOTO 280 +220 IF ZAHL$="12920854" THEN GOTO 510 +250 PRINT:PRINT"DatenFile nicht gefunden. Falscher Code eingegeben." +260 A$=INKEY$:IF A$="" THEN 260 +270 A=0:B=0:A$="":GOTO 20 +280 REM ********** 11903603 --- RoboCop ********** +290 CLS +300 COLOR 12:PRINT"Brgerlicher Name ";:COLOR 10:PRINT"Birth, Markus" +310 COLOR 12:PRINT"Strae ";:COLOR 10:PRINT"Musterstrasse 1" +320 COLOR 12:PRINT"Postleitzahl / Wohnort ";:COLOR 10:PRINT"12345 Musterstadt" +330 COLOR 12:PRINT"Telefon-Nummer ";:COLOR 10:PRINT"(0123) 4567" +340 COLOR 12:PRINT:COLOR 15 +350 PRINT"CodeName :":PRINT +360 PRINT" " +370 PRINT" " +380 PRINT" " +390 PRINT" " +400 PRINT" " +410 PRINT:PRINT +420 COLOR 14:PRINT"Kommunikationskanle : 1. FM 33" +430 PRINT" 2. AM 05" +440 PRINT" 3. FM 19" +450 PRINT +460 COLOR 9:PRINT"Kommunikationszeiten : 1. 07:03 (wenn mglich)" +470 PRINT" 2. 15:00" +480 PRINT" 3. 20:15" +490 A$=INKEY$:IF A$="" THEN 490 +500 CLS:COLOR 15:END +510 REM ********** 12920854 --- Tiger ********** +520 CLS +530 COLOR 12:PRINT"Brgerlicher Name ";:COLOR 10:PRINT"Mustermann, Maik" +540 COLOR 12:PRINT"Strae ";:COLOR 10:PRINT"Musterhausener Weg 2" +550 COLOR 12:PRINT"Postleitzahl / Wohnort ";:COLOR 10:PRINT"12345 Musterstadt" +560 COLOR 12:PRINT"Telefon-Nummer ";:COLOR 10:PRINT"(012345) 67890" +570 COLOR 12:PRINT:COLOR 15 +580 PRINT"CodeName :":PRINT +590 PRINT" " +600 PRINT" " +610 PRINT" " +620 PRINT" " +630 PRINT" " +640 PRINT:PRINT +650 COLOR 14:PRINT"Kommunikationskanle : 1. FM 33" +660 PRINT" 2. AM 05" +670 PRINT" 3. FM 19" +680 PRINT +690 COLOR 9:PRINT"Kommunikationszeiten : 1. 07:03 (wenn mglich)" +700 PRINT" 2. 15:00" +710 PRINT" 3. 20:15" +720 A$=INKEY$:IF A$="" THEN 720 +730 CLS:COLOR 15:END + \ No newline at end of file diff --git a/COLOR.BAS b/COLOR.BAS new file mode 100644 index 0000000..83c6b65 --- /dev/null +++ b/COLOR.BAS @@ -0,0 +1,7 @@ +10 CLS +20 A=INT(RND(1)*15)+1 +30 B=INT(RND(1)*15)+1 +40 COLOR ,A,B +50 FOR Z=0 TO 750:NEXT +60 GOTO 10 + \ No newline at end of file diff --git a/COLORS.BAS b/COLORS.BAS new file mode 100644 index 0000000..644a423 --- /dev/null +++ b/COLORS.BAS @@ -0,0 +1,41 @@ +10 CLS +20 A=-1 +30 A=A+1:IF A=32 THEN PRINT"*** program terminated ***":END +40 COLOR A +45 GOSUB 999 +50 PRINT"COLOR ";A;" - ";B$ +60 GOTO 30 +999 IF A=0 THEN B$="schwarz" +1000 IF A=1 THEN B$="dunkelblau" +1010 IF A=2 THEN B$="grn" +1020 IF A=3 THEN B$="hellblau" +1030 IF A=4 THEN B$="rot" +1040 IF A=5 THEN B$="violett" +1050 IF A=6 THEN B$="braun" +1060 IF A=7 THEN B$="wei" +1070 IF A=8 THEN B$="grau" +1080 IF A=9 THEN B$="blau" +1090 IF A=10 THEN B$="hellgrn" +1100 IF A=11 THEN B$="hellblau" +1110 IF A=12 THEN B$="hellrot" +1120 IF A=13 THEN B$="hellviolett" +1130 IF A=14 THEN B$="gelb" +1140 IF A=15 THEN B$="hellwei" +1150 IF A=16 THEN B$="schwarz [blinkend]" +1160 IF A=17 THEN B$="dunkelblau [blinkend]" +1170 IF A=18 THEN B$="grn [blinkend]" +1180 IF A=19 THEN B$="blau [blinkend]" +1190 IF A=20 THEN B$="rot [blinkend]" +1200 IF A=21 THEN B$="violett [blinkend]" +1210 IF A=22 THEN B$="braun [blinkend]" +1220 IF A=23 THEN B$="wei [blinkend]" +1230 IF A=24 THEN B$="grau [blinkend]" +1240 IF A=25 THEN B$="hellblau [blinkend]" +1250 IF A=26 THEN B$="hellgrn [blinkend]" +1260 IF A=27 THEN B$="hellblau [blinkend]" +1270 IF A=28 THEN B$="hellrot [blinkend]" +1280 IF A=29 THEN B$="hellviolett [blinkend]" +1290 IF A=30 THEN B$="gelb [blinkend]" +1300 IF A=31 THEN B$="hellwei [blinkend]" +10000 RETURN + \ No newline at end of file diff --git a/COMPUTER.BAS b/COMPUTER.BAS new file mode 100644 index 0000000..c074dbf --- /dev/null +++ b/COMPUTER.BAS @@ -0,0 +1,62 @@ +10 CLS +20 KEY OFF +30 COLOR 15 +40 PRINT"VERHALTENSREGELN FR DEN COMPUTER" +45 LOCATE 25,1:PRINT"VERHALTENSREGELN FR DEN COMPUTER"; +55 LOCATE 3,1 +60 COLOR 14:PRINT"Funktioniert das verdammte Ding?" +70 GOSUB 520 +80 IF A=1 THEN 110 +90 IF A=2 THEN 140 +100 REM ********** +110 COLOR 14:PRINT"Fummel blo nicht daran rum!" +120 GOTO 460 +130 REM ********** +140 COLOR 14:PRINT"Hast Du daran rumgespielt?" +150 GOSUB 520 +160 IF A=1 THEN 190 +170 IF A=2 THEN 270 +180 REM ********** +190 COLOR 14:PRINT"Du RINDVIEH!" +200 GOTO 220 +210 REM ********** +220 COLOR 14:PRINT"Hat es jemand gemerkt?" +230 GOSUB 520 +240 IF A=1 THEN 350 +250 IF A=2 THEN 320 +260 REM ********** +270 COLOR 14:PRINT"Wird man Dich verantwortlich machen?" +280 GOSUB 520 +290 IF A=1 THEN 350 +300 IF A=2 THEN 430 +310 REM ********** +320 COLOR 14:PRINT"Pfeife unauffllig ";CHR$(34);"La Paloma";CHR$(34);" und verschwinde schnellstens!" +330 GOTO 460 +340 REM ********** +350 COLOR 14:PRINT"Du armes SCHWEIN!" +360 GOTO 380 +370 REM ********** +380 COLOR 14:PRINT"Kannst Du jemanden die Schuld zuschieben?" +390 GOSUB 520 +400 IF A=1 THEN 460 +410 IF A=2 THEN 350 +420 REM ********** +430 COLOR 14:PRINT"Kmmere Dich nicht drum!" +440 GOTO 460 +450 REM ********** +460 COLOR 14:PRINT"ALLES KLAR!" +470 COLOR 12:PRINT"Nochmal ???" +480 GOSUB 520 +490 IF A=1 THEN 10 +500 IF A=2 THEN COLOR 15:LOCATE 8,1:KEY ON:END +510 REM ********** +520 LOCATE 6,1:COLOR 10:PRINT"(J)a / (N)ein" +530 A$=INKEY$:IF A$="" THEN 530 +540 IF A$="j" OR A$="J" THEN A=1:GOTO 570 +550 IF A$="n" OR A$="N" THEN A=2:GOTO 570 +560 GOTO 530 +570 IF A=1 THEN LOCATE 6,1:COLOR 12:PRINT"JA ";:COLOR 10:PRINT" / (N)ein" +580 IF A=2 THEN LOCATE 6,1:COLOR 10:PRINT"(J)a /";:COLOR 12:PRINT" NEIN " +590 FOR Z=0 TO 20000:NEXT +600 PRINT:LOCATE 3,1:PRINT" ":PRINT" ":LOCATE 3,1:RETURN + \ No newline at end of file diff --git a/DATABANK.BAS b/DATABANK.BAS new file mode 100644 index 0000000..f0e4214 --- /dev/null +++ b/DATABANK.BAS @@ -0,0 +1,92 @@ +10 COLOR 15,0,0 +20 CLS +30 PRINT"ͻ" +40 PRINT" Ŀ//////////////////////////Ŀ//" +50 PRINT" < M A T R I X 1 2 S T N >//Ŀ/Ŀ/Ŀ////MODE//" +60 PRINT" AM // OFF/ ^ / v //// ON //" +70 PRINT" PM 8.8.8.8.8.8.8.8.8.8.8.8. //////////" +80 PRINT" TEL MEMO CAL oĿ SHIFT LOCK //////////////////////////////////" +90 PRINT" //////////////////////////////////" +100 PRINT"Ķ" +110 PRINT"" +120 PRINT +130 PRINT"M - Mode/ON" +140 PRINT"F - OFF" +150 PRINT"^ - HOCH" +160 PRINT"v - RUNTER" +170 A$=INKEY$:IF A$="" THEN 170 +180 IF A$="m" THEN 230 +190 IF A$="f" THEN CLS:END +200 IF A$="^" THEN +210 IF A$="v" THEN +220 GOTO 170 +230 INPUT"Tageskennung (z.B. SAT,SUN,MON,WED): ",D$:REM Tageskennung +240 A$=RIGHT$(DATE$,2):REM Jahr +250 B$=MID$(DATE$,4,2):REM Tag +260 C$=LEFT$(DATE$,2):REM Monat +270 PRINT"Datum: ";B$;".";C$;".";A$;" ";D$ +280 E$=LEFT$(TIME$,2):REM Stunde +290 F$=MID$(TIME$,4,2):REM Minuten +300 G$=RIGHT$(TIME$,2):REM Sekunden +310 PRINT"Zeit : ";E$;":";F$;".";G$ +320 PRINT"Zeit : ";E$;"h ";F$;"min ";G$;"sec" +330 PRINT:PRINT"Ist das richtig ??" +340 PRINT"(J)a (Z)eit falsch (D)atum falsch (T)ageskennung falsch (A)lles falsch" +350 H$=INKEY$:IF H$="" THEN 350 +360 IF H$="j" THEN GOTO 560 +370 IF H$="z" THEN GOTO 480 +380 IF H$="d" THEN GOTO 520 +390 IF H$="t" THEN GOTO 230 +400 IF H$="a" THEN GOTO 420 +410 PRINT"Falsche Taste!":GOTO 350 +420 REM Alles falsch (A) +430 INPUT"Zeit [hh:mm:ss]: ",Z$ +440 TIME$=Z$ +450 INPUT"Datum [MM-DD-YYYY]: ",Z$ +460 DATE$=Z$ +470 GOTO 230 +480 REM Zeit falsch (Z) +490 INPUT"Uhrzeit [hh:mm:ss]: ",Z$ +500 TIME$=Z$ +510 GOTO 240 +520 REM Datum falsch (D) +530 INPUT"Datum [MM-DD-YYYY]: ",Z$ +540 DATE$=Z$ +550 GOTO 230 +560 REM Alles richtig !!! (J) +570 LOCATE 1,1 +580 PRINT"ͻ" +590 H$=LEFT$(A$,1) +600 I$=RIGHT$(A$,1) +610 J$=LEFT$(B$,1) +620 K$=RIGHT$(B$,1) +630 L$=LEFT$(C$,1) +640 M$=RIGHT$(C$,1) +650 N$=LEFT$(D$,1) +660 O$=MID$(D$,2,1) +670 P$=RIGHT$(D$,1) +680 PRINT" Ŀ//////////////////////////Ŀ//" +690 PRINT" ";:COLOR 8:PRINT"<";:COLOR 15:PRINT" ";H$;" ";I$;" ";L$;" ";M$;"/";J$;" ";K$;" ";N$;" ";O$;" ";P$;" ";:COLOR 8:PRINT" >";:COLOR 15:PRINT"//Ŀ/Ŀ/Ŀ////MODE//" +700 IF VAL(E$)>11 THEN GOTO 730 +710 PRINT" AM // OFF/ ^ / v //// ON //" +720 GOTO 810 +730 PRINT" ";:COLOR 8:PRINT"AM";:COLOR 15:PRINT" // OFF/ ^ / v //// ON //" +740 Q$=LEFT$(E$,1) +750 R$=MID$(E$,2,1) +760 S$=LEFT$(F$,1) +770 T$=RIGHT$(F$,1) +780 U$=LEFT$(G$,1) +790 V$=RIGHT$(G$,1) +800 IF VAL(E$)<12 THEN GOTO 830 +810 PRINT" PM ";Q$;" ";R$;" - ";S$;" ";T$;" ";U$;" ";V$;" //////////" +820 GOTO 840 +830 PRINT" ";:COLOR 8:PRINT"PM";:COLOR 15:PRINT" ";Q$;" ";R$;" - ";S$;" ";T$;" ";U$;" ";V$;" //////////" +840 PRINT" ";:COLOR 8:PRINT" TEL MEMO CAL oĿ SHIFT LOCK";:COLOR 15:PRINT" //////////////////////////////////" +850 PRINT" //////////////////////////////////" +860 PRINT"Ķ" +870 PRINT"" +880 PRINT +890 IF A=2 THEN GOTO 910 +900 A=2:CLS:GOTO 580 +910 REM + \ No newline at end of file diff --git a/DATAS.BAS b/DATAS.BAS new file mode 100644 index 0000000..e93dd45 --- /dev/null +++ b/DATAS.BAS @@ -0,0 +1,10 @@ +10 N=1000 +20 CLS +30 A=INT(RND*2) +31 IF A=0 THEN A$=" " +32 IF A=1 THEN A$="" +40 IF A=12 THEN GOTO 30 +50 PRINT A$; +60 FOR Z=0 TO N:NEXT +70 GOTO 30 + \ No newline at end of file diff --git a/DEMO.BAS b/DEMO.BAS new file mode 100644 index 0000000..44ed6f3 --- /dev/null +++ b/DEMO.BAS @@ -0,0 +1,34 @@ +1 CLS : REM Maus Basic Beispiel +2 PRINT"Dies ist ein Beispiel in Basic geschrieben, das den Mouse Driver Aufruf zeigt." +3 PRINT" Details entnehmen sie bitte dem Help File [Help.com]." +4 PRINT +5 PRINT" Funktion:" +6 PRINT" Linker Knopf = Ausdruck von Knopfstatus und Cursorposition (x,y)" +7 PRINT" Rechter Knopf = Ende." +11 PRINT +15 DEFINT A-Z +18 DEF SEG=0 +20 MSEG=256*PEEK(51*4+3)+PEEK(51*4+2) +30 MOUSE=256*PEEK(51*4+1)+PEEK(51*4)+2 +40 IF MSEG OR (MOUSE-2) THEN 60 +50 PRINT " Mouse Driver not found":END +60 DEF SEG=MSEG +70 IF PEEK(MOUSE-2)=207 THEN 50 +80 PRINT " Mouse Driver is installed" +100 M1%=0 +110 CALL MOUSE(M1%, M2%, M3%, M4%) +120 S$ = "Fehler" : IF M1=-1 THEN S$ = "O.K." +140 PRINT "Status = ";S$ +150 M1=10:M2=1:M3=2:M4=5 +160 CALL MOUSE(M1%, M2%, M3%, M4%) +170 M1=1 +180 CALL MOUSE(M1%, M2%, M3%, M4%) +190 M1 = 3 +200 CALL MOUSE(M1%, M2%, M3%, M4%) +210 IF M2% = 0 THEN 190 +220 PRINT"Button Status = ";M2,"Cursor Position: x = ";M3," y = ";M4 +230 M1=2 +240 CALL MOUSE(M1%, M2%, M3%, M4%) +250 IF M2 = 1 THEN 170 +260 END + \ No newline at end of file diff --git a/EKG.BAS b/EKG.BAS new file mode 100644 index 0000000..afec27b --- /dev/null +++ b/EKG.BAS @@ -0,0 +1,13 @@ +10 CLS +20 GOSUB 110 +30 COLOR 12:PRINT"EKG" +40 SOUND 1000,1 +50 FOR Z=0 TO 3000:NEXT +60 GOSUB 110 +70 PRINT" " +80 FOR Z=0 TO 15000:NEXT +90 A$=INKEY$:IF A$="" THEN GOTO 20 +100 COLOR 15:END +110 LOCATE 1,1 +120 RETURN + \ No newline at end of file diff --git a/GRAPHIC.BAS b/GRAPHIC.BAS new file mode 100644 index 0000000..d4d7d60 --- /dev/null +++ b/GRAPHIC.BAS @@ -0,0 +1,36 @@ +10 COLOR 15,0,0 +20 CLS +30 COLOR 0:A$=INKEY$:PRINT A$; +40 COLOR 1:A$=INKEY$:PRINT A$; +50 COLOR 2:A$=INKEY$:PRINT A$; +60 COLOR 3:A$=INKEY$:PRINT A$; +70 COLOR 4:A$=INKEY$:PRINT A$; +80 COLOR 5:A$=INKEY$:PRINT A$; +90 COLOR 6:A$=INKEY$:PRINT A$; +100 COLOR 7:A$=INKEY$:PRINT A$; +110 COLOR 8:A$=INKEY$:PRINT A$; +120 COLOR 9:A$=INKEY$:PRINT A$; +130 COLOR 10:A$=INKEY$:PRINT A$; +140 COLOR 11:A$=INKEY$:PRINT A$; +150 COLOR 12:A$=INKEY$:PRINT A$; +160 COLOR 13:A$=INKEY$:PRINT A$; +170 COLOR 14:A$=INKEY$:PRINT A$; +180 COLOR 15:A$=INKEY$:PRINT A$; +190 COLOR 16:A$=INKEY$:PRINT A$; +200 COLOR 17:A$=INKEY$:PRINT A$; +210 COLOR 18:A$=INKEY$:PRINT A$; +220 COLOR 19:A$=INKEY$:PRINT A$; +230 COLOR 20:A$=INKEY$:PRINT A$; +240 COLOR 21:A$=INKEY$:PRINT A$; +250 COLOR 22:A$=INKEY$:PRINT A$; +260 COLOR 23:A$=INKEY$:PRINT A$; +270 COLOR 24:A$=INKEY$:PRINT A$; +280 COLOR 25:A$=INKEY$:PRINT A$; +290 COLOR 26:A$=INKEY$:PRINT A$; +300 COLOR 27:A$=INKEY$:PRINT A$; +310 COLOR 28:A$=INKEY$:PRINT A$; +320 COLOR 29:A$=INKEY$:PRINT A$; +330 COLOR 30:A$=INKEY$:PRINT A$; +340 COLOR 31:A$=INKEY$:PRINT A$; +360 GOTO 30 + \ No newline at end of file diff --git a/HORO.BAS b/HORO.BAS new file mode 100644 index 0000000..72798aa --- /dev/null +++ b/HORO.BAS @@ -0,0 +1,256 @@ +10 CLS +20 PRINT" ******************** German-Horoscope ********************" +30 PRINT:PRINT:PRINT +40 PRINT"Date of Birth please" +50 PRINT"?? . ?? . ????" +60 INPUT"Date DAY : ",A +70 PRINT A;" . ?? . ????" +80 IF A<0 OR A>31 THEN 150 +90 INPUT"Date MONTH : ",B +100 PRINT A;" . ";B;" . ????" +110 INPUT"Date YEAR : ",C +120 PRINT A;" . ";B;" . ";C +130 IF C<0 OR C>9999 THEN 210 +140 GOTO 240 +150 PRINT"?Neue Eingabe" +160 PRINT +170 GOTO 60 +180 PRINT"?Neue Eingabe" +190 PRINT +200 GOTO 90 +210 PRINT"?Neue Eingabe" +220 PRINT +230 GOTO 110 +240 IF A>20 AND A<32 AND B=3 THEN 490 +250 IF A>0 AND A<21 AND B=4 THEN 490 +260 IF A>23 AND A<31 AND B=9 THEN 670 +270 IF A>0 AND A<24 AND B=10 THEN 670 +280 IF A>20 AND A<31 AND B=4 THEN 860 +290 IF A>0 AND A<21 AND B=5 THEN 860 +300 IF A>23 AND A<32 AND B=10 THEN 1050 +310 IF A>0 AND A<23 AND B=11 THEN GOTO 1050 +320 IF A>20 AND A<32 AND B=5 THEN 1240 +330 IF A>0 AND A<22 AND B=6 THEN 1240 +340 IF A>22 AND A<31 AND B=11 THEN 1430 +350 IF A>0 AND A<22 AND B=12 THEN 1430 +360 IF A>21 AND A<31 AND B=6 THEN GOTO 1600 +370 IF A>0 AND A<23 AND B=7 THEN 1600 +380 IF A>21 AND A<32 AND B=12 THEN 1770 +390 IF A>0 AND A<21 AND B=1 THEN 1770 +400 IF A>22 AND A<32 AND B=7 THEN 1930 +410 IF A>0 AND A<24 AND B=8 THEN 1930 +420 IF A>20 AND A<32 AND B=1 THEN GOTO 2090 +430 IF A>0 AND A<20 AND B=2 THEN 2090 +440 IF A>23 AND A<32 AND B=8 THEN 2250 +450 IF A>0 AND A<24 AND B=9 THEN 2250 +460 IF A>19 AND A<30 AND B=2 THEN 2420 +470 IF A>0 AND A<21 AND B=3 THEN 2420 +480 GOTO 10 +490 CLS +500 PRINT" ********** Sternbild : WIDDER **********" +510 PRINT:PRINT +520 PRINT"Datum : ";A;" . ";B;" . ";C +530 PRINT +540 PRINT:PRINT"vom : 21.03.";C;" bis : 20.04.";C +550 PRINT +560 PRINT"Mit Gewalt lt sich in diesem Jahr gar nichts erreichen, und es ist daher " +570 PRINT"auch ratsam, nicht gleich mit der Tr ins Haus zu fallen. Mit Zurckhaltung " +580 PRINT"und Diplomatie - nicht gleich alles sagen, was ihnen auf der Zunge liegt - " +590 PRINT"kommen Sie wesentlich besser weiter. In einer persnlichen Sache ist eine" +600 PRINT"Entscheidung fllig. Drcken Sie sich nicht davor" +610 PRINT:PRINT:PRINT +620 PRINT" ********** Bitte [Space Bar] drcken **********" +630 D$=INKEY$:IF D$=" " THEN GOTO 650 +640 GOTO 630 +650 BEEP:BEEP:BEEP +660 GOTO 10 +670 CLS +680 PRINT" ********** Sternbild : WAAGE **********" +690 PRINT +700 PRINT:PRINT +710 PRINT"Datum : ";A;" . ";B;" . ";C +720 PRINT +730 PRINT"vom : 24.09.";C;" bis : 23.10";C +740 PRINT +750 PRINT"Behauptungen aufzustellen, ohne auch nur die Spur eines Beweises zu haben, ist" +760 PRINT"eine gefhrliche Sache. Bevor Sie also mit anderen ber ihren Verdacht reden," +770 PRINT"sollten Sie erst einmal handfeste Indizien sammeln. Andernfalls knnte Ihr Ruf" +780 PRINT"einen bsen Knacks bekommen, der Ihnen noch viel rger bereiten kann." +790 PRINT"In der Liebe ist mehr Objektivitt notwendig." +800 PRINT:PRINT:PRINT +810 PRINT" ********** Bitte [Space Bar] drcken **********" +820 D$=INKEY$:IF D$=" " THEN GOTO 840 +830 GOTO 820 +840 BEEP:BEEP:BEEP +850 GOTO 10 +860 CLS +870 PRINT" ********** Sternbild : STIER **********" +880 PRINT +890 PRINT:PRINT +900 PRINT"Datum : ";A;" . ";B;" . ";C +910 PRINT +920 PRINT"vom : 21.04.";C;" bis : 20.05.";C +930 PRINT +940 PRINT"Eine sehr schne Zeit mit rundum guten Aussichten liegt vor Ihnen. Sie finden" +950 PRINT"zudem an einem Dienstag jemanden, mit dem Sie offen ber Ihre geheimen ngste" +960 PRINT"reden knnen und bei dem Sie sich total verstanden fhlen. Doch so hilfreich" +970 PRINT"dieser Kontakt auch ist, sollten Sie sich rechtzeitig darauf einstellen, da er" +980 PRINT"nicht von nachhaltiger Dauer sein wird." +990 PRINT:PRINT:PRINT +1000 PRINT" ********** Bitte [Space Bar] drcken **********" +1010 D$=INKEY$:IF D$=" " THEN GOTO 1030 +1020 GOTO 1010 +1030 BEEP:BEEP:BEEP +1040 GOTO 10 +1050 CLS +1060 PRINT" ********** Sternbild : SKORPION (Skorpius) **********" +1070 PRINT +1080 PRINT:PRINT +1090 PRINT"Datum : ";A;" . ";B;" . ";C +1100 PRINT +1110 PRINT"vom : 24.10.";C;" bis : 22.11.";C +1120 PRINT +1130 PRINT"Es kommen Ihnen in einer bestimmten Sache pltzlich Zweifel. Hren Sie lieber" +1140 PRINT"auf die Stimme des Herzens als auf Ihren Verstand. Ein Angebot, das man Ihnen" +1150 PRINT"an einem Donnerstag macht, hat allerhand Haken. Lassen Sie sich nicht darauf" +1160 PRINT"ein, ehe man Ihnen schriftlich alle Zusicherungen gibt, die Sie brauchen. Er-" +1170 PRINT"fllen Sie dem Partner einen Herzenswunsch." +1180 PRINT:PRINT:PRINT +1190 PRINT" ********** Bitte [Space Bar] drcken **********" +1200 D$=INKEY$:IF D$=" " THEN GOTO 1220 +1210 GOTO 1200 +1220 BEEP:BEEP:BEEP +1230 GOTO 10 +1240 CLS +1250 PRINT" *********** Sternbild : Zwillinge **********" +1260 PRINT +1270 PRINT:PRINT +1280 PRINT"Datum : ";A;" . ";B;" . ";C +1290 PRINT +1300 PRINT "vom : 21.05.";C;" bis : 21.06:";C +1310 PRINT +1320 PRINT "Auch wenn Sie meinen es sei unter Ihrer Wrde, so sollten Sie doch ein Ohr da-" +1330 PRINT"rauf halten, was zur Zeit hinter Ihrem Rcken getuschelt wird. Jemand mchte " +1340 PRINT"Ihnen das Leben schwer machen und rechnet fest mit Ihrer vornehmen Zurckhal-" +1350 PRINT"tung. Zeigen Sie ihm sofort die Zhne und lassen Sie sich nichts gefallen. " +1360 PRINT "Ihre Haltung erntet ungeteilten Beifall." +1370 PRINT:PRINT:PRINT +1380 PRINT" ********** Bitte [Space Bar] drcken **********" +1390 D$=INKEY$:IF D$=" " THEN 1410 +1400 GOTO 1390 +1410 BEEP:BEEP:BEEP +1420 GOTO 10 +1430 CLS +1440 PRINT" ********** Sternbild : SCHTZE **********" +1450 PRINT:PRINT:PRINT +1460 PRINT "Datum : ";A;" . ";B;" . ";C +1470 PRINT +1480 PRINT "vom : 23.11.";C;" BIS : 21.12";C +1490 PRINT +1500 PRINT "Beruflich erffnen sich Ihnen ab einem Dienstag Mglichkeiten, von denen Sie" +1510 PRINT "vor kurzem gar nicht zu trumen gewagt htten. Greifen Sie zu und handeln Sie," +1520 PRINT "auch wenn Sie anfangs glauben, sich zu bernehmen. Sie schaffen's bestimmt." +1530 PRINT "Privat sollten Sie jetzt fr klare Verhltnisse sorgen und reinen Wein ein-" +1540 PRINT "schenken, wo immer noch Unklarheiten bestehen." +1550 PRINT :PRINT :PRINT " ********** Bitte [Space Bar] drcken **********" +1560 D$=INKEY$:IF D$=" " THEN GOTO 1580 +1570 GOTO 1560 +1580 BEEP:BEEP:BEEP +1590 GOTO 10 +1600 CLS +1610 PRINT" ********** Sternbild : KREBS **********" +1620 PRINT +1630 PRINT:PRINT"Datum : ";A;" . ";B;" . ";C +1640 PRINT +1650 PRINT"vom : 22.06.";C;" bis : 22.07.";C +1660 PRINT +1670 PRINT "Es knnte sein, da zu einem Wochenbeginn behrdliche Foderungen auf Sie zukom-" +1680 PRINT "men, die Ihnen unverstndlich erscheinen. Schieben Sie aber nichts auf die " +1690 PRINT "lange Bank, sondern setzten Sie sich in Ruhe mit der Angelegenheit auseinander." +1700 PRINT "Gegebenfalls rechtzeitig Expertenrat einholen. An einem privaten Miverstnd-" +1710 PRINT "nis sind Sie ganz schuldlos." +1720 PRINT:PRINT:PRINT" ********** Bitte [Space Bar] drcken **********" +1730 D$=INKEY$:IF D$=" " THEN 1750 +1740 GOTO 1730 +1750 BEEP:BEEP:BEEP +1760 GOTO 10 +1770 CLS +1780 PRINT" ********** Sternbild : STEINBOCK **********" +1790 PRINT:PRINT"Datum : ";A;" . ";B;" . ";C +1800 PRINT +1810 PRINT"vom : 22.12.";C;" bis : 20.01.";C +1820 PRINT +1830 PRINT "Sie haben sich leider all zu sehr in eine Sache festgebissen, und manch einer" +1840 PRINT "hat den Eindruck, da es Ihnen inzwischen gar nicht mehr um die Sache geht," +1850 PRINT "sondern da Sie nur um des Konfliktes willen streiten. Wenn dies zutrifft, dann" +1860 PRINT "mssen Sie dem Ganzen sofort ein kompromiloses Ende bereiten, ehe Sie sich" +1870 PRINT "wichtige Symphatiien verscherzen." +1880 PRINT:PRINT:PRINT" ********** Bitte [Space Bar] drcken **********" +1890 D$=INKEY$:IF D$=" " THEN GOTO 1910 +1900 GOTO 1890 +1910 BEEP:BEEP:BEEP +1920 GOTO 10 +1930 CLS +1940 PRINT" ********** Sternbild : LWE **********" +1950 PRINT:PRINT"Datum : ";A;" . ";B;" . ";C +1960 PRINT +1970 PRINT"vom : 23.07.";C;" bis : 23.08";C +1980 PRINT +1990 PRINT "Es geht Ihnen gewaltig gegen den Strich, da Sie in einer zwischenmenschlichen" +2000 PRINT "Angelegenheit scheinbar noch keinen Schritt voran gekommen sind. Es besteht " +2010 PRINT "wirklich kein Grund zur Panik: Denn an einem Donnerstag erhalten Sie ein deut-" +2020 PRINT "liches Zeichen, da Ihre Zuneigung erwidert wird und da man bereit ist, Ihret-" +2030 PRINT "wegen Kompromisse in Kauf zu nehmen." +2040 PRINT:PRINT:PRINT" ********** Bitte [Space Bar] drcken ***********" +2050 D$=INKEY$:IF D$=" " THEN GOTO 2070 +2060 GOTO 2050 +2070 BEEP:BEEP:BEEP +2080 GOTO 10 +2090 CLS +2100 PRINT" ********** Sternbild : WASSERMANN **********" +2110 PRINT:PRINT"Datum : ";A;" . ";B;" . ";C +2120 PRINT +2130 PRINT"vom : 21.01.";C;" bis : 19.02.";C +2140 PRINT +2150 PRINT"Nehmen Sie jetzt dankbar und freudig alles an, was Ihnen an Schnem und Guten" +2160 PRINT "angeboten wird. Die vergangenen Wochen haben hohe Anforderungen an Sie gestellt," +2170 PRINT "so da ein paar Streicheleinheiten Ihrer Seele jetzt besonders wohl tun. An " +2180 PRINT "einem Donnerstag meldet sich jemand bei Ihnen, dem Sie mit gemischten Gefhlen" +2190 PRINT "gegenberstehen. Folgen Sie Ihrem Instinkt." +2200 PRINT:PRINT:PRINT" ********** Bitte [Space Bar] drcken **********" +2210 D$=INKEY$:IF D$=" " THEN 2230 +2220 GOTO 2210 +2230 BEEP:BEEP:BEEP +2240 GOTO 10 +2250 CLS +2260 PRINT" ********** Sternbild : JUNGFRAU **********" +2270 PRINT +2280 PRINT "Datum : ";A;" . ";B;" . ";C +2290 PRINT +2300 PRINT"vom : 24.08.";C;" bis : 23.09.";C +2310 PRINT +2320 PRINT "rgern Sie sich doch nicht lnger ber die Unzulnglichkeiten Ihrer Mit-" +2330 PRINT "menschen. Kmmern Sie sich lieber um die eigenen Angelegenheiten und treiben " +2340 PRINT "Sie eine Sache voran, mit der Sie sich reichlich Lorbeeren verdienen knnen." +2350 PRINT "Die Mhe lohnt bestimmt, auch wenn Sie alles diesmal im Alleingang machen ms-" +2360 PRINT "sen. Geben Sie Ihr Geld nicht zu sorglos aus!" +2370 PRINT:PRINT:PRINT" ********** Bitte [Space Bar] drcken ***********" +2380 D$=INKEY$:IF D$=" " THEN 2400 +2390 GOTO 2380 +2400 BEEP:BEEP:BEEP +2410 GOTO 10 +2420 CLS +2430 PRINT" ********** Sternbild : FISCHE **********" +2440 PRINT:PRINT"Datum : ";A;" . ";B;" . ";C +2450 PRINT:PRINT"vom : 20.02.";C;" bis : 20.03.";C +2460 PRINT"Sie knnen sich diese Woche viel Aufregung ersparen, wenn Sie sich nicht stn-" +2470 PRINT "dig mit zustzlicher und obendrein oft auch noch berflssiger Arbeit belasten." +2480 PRINT "Konzentrieren Sie sich aufs Wesentliche und versuchen Sie nicht, alles allein" +2490 PRINT "zu machen. Man ist Ihnen nhmlich nur zu gern behilflich. Privat meistern Sie" +2500 PRINT "eine kleine Hrde souvern. Nur keine Panik!" +2510 PRINT:PRINT:PRINT" ********** Bitte [Space Bar] drcken **********" +2520 D$=INKEY$:IF D$=" " THEN 2540 +2530 GOTO 2520 +2540 BEEP:BEEP:BEEP +2550 GOTO 10 + \ No newline at end of file diff --git a/IBM1.BAS b/IBM1.BAS new file mode 100644 index 0000000..f2502d3 --- /dev/null +++ b/IBM1.BAS @@ -0,0 +1,22 @@ +10 CLS +20 COLOR 15,0,0 +30 PRINT" " +40 PRINT" " +50 PRINT" " +60 PRINT" " +70 PRINT" " +80 PRINT" " +90 PRINT" " +100 PRINT" " +110 PRINT +120 PRINT +130 PRINT +140 PRINT" " +150 PRINT" " +160 PRINT" " +170 PRINT" " +180 PRINT" " +190 PRINT +200 PRINT +210 END + \ No newline at end of file diff --git a/JOY.BAS b/JOY.BAS new file mode 100644 index 0000000..3084adb --- /dev/null +++ b/JOY.BAS @@ -0,0 +1,27 @@ +10 CLS +20 PRINT"Dies ist ein Joystick-Test fr den HCV 386-DX." +30 PRINT"Drcken Sie eine Taste zum Start !!!" +40 B$=INKEY$:IF B$="" THEN 40 +50 CLS +60 PRINT"Left = 4-6 Right = 181-185 Up = 5-7 Down = 127-133" +70 PRINT"Fire Button 1 = -1 Fire Button 2 = -1" +80 LOCATE 15,30 +90 A=STICK(0):B=STICK(1) +100 C=STRIG(1):D=STRIG(4) +110 LOCATE 15,1 +120 PRINT " Left/Right : ";A;"Up/Down : ";B;" " +130 LOCATE 16,1 +140 PRINT" Fire Button 1 : ";C;"Fire Button 2 : ";D;" " +150 IF A=5 OR A=6 OR A=7 THEN LOCATE 15,1:PRINT" Left" +160 IF A=152 OR A=153 OR A=154 OR A=155 THEN LOCATE 15,60:PRINT"Right " +170 IF B=5 OR B=6 OR B=7 THEN LOCATE 15,1:PRINT"7 Up" +180 IF B=151 OR B=152 OR B=153 OR B=154 OR B=155 THEN LOCATE 15,60:PRINT"8 Down" +190 IF C=-1 THEN LOCATE 16,1:PRINT"6 Fire Button 1" +200 IF D=-1 THEN LOCATE 16,61:PRINT"6 Fire Button 2" +210 B$=INKEY$:IF B$=" " THEN 230 +220 GOTO 90 +230 PRINT"^C" +240 PRINT"BREAK in 240" +250 A$="Quick" +260 LOAD"WINDOWS.BAS" + \ No newline at end of file diff --git a/KARTENTR.BAS b/KARTENTR.BAS new file mode 100644 index 0000000..a6e1bc8 --- /dev/null +++ b/KARTENTR.BAS @@ -0,0 +1,48 @@ +10 KEY 1,"RUN"+CHR$(13) +20 KEY 2,"LOAD"+CHR$(34) +30 KEY 3,"LIST"+CHR$(13) +40 KEY 4,"" +50 KEY 5,"LIST -" +60 KEY 6,"COLOR 15,0"+CHR$(13) +70 KEY 7,"SYSTEM"+CHR$(13) +80 KEY 8,"KEY LIST"+CHR$(13) +90 KEY 9,"CLS"+CHR$(13) +100 KEY 10,"SAVE"+CHR$(34)+"KARTENTR"+CHR$(34)+CHR$(13) +110 KEY OFF +120 COLOR ,7 +130 CLS +140 COLOR 0:PRINT" |============| |============| |============| |============|" +150 COLOR 0:PRINT" | 4 | | 14 2 | | 14 | | 3 9 |" +160 COLOR 0:PRINT" | 6 5 | | 3 11 6 | | 11 15 | | 13 |" +170 COLOR 0:PRINT" | 13 14 | | 10 15 | | 13 9 10 | | 7 5 1 |" +180 COLOR 0:PRINT" | 7 12 15 | | 7 | | 8 12 | | 15 11 |" +190 COLOR 0:PRINT" |============| |============| |============| |============|" +200 PRINT +210 COLOR 12:PRINT" Karte 1 Karte 2 Karte 3 Karte 4" +220 COLOR 0:PRINT +230 COLOR 10:PRINT"Denken Sie sich eine Zahl von 0-15 aus !!!" +240 PRINT"Schauen Sie nach auf welcher Karte Ihre Zahl ist." +250 PRINT"Tippen Sie jetzt [j]a oder [n]ein ein. z.B.->Karte 2 :j" +260 PRINT" Karte 3 :n" +270 PRINT +280 PRINT"Karte 1 :" +290 A$=INKEY$:IF A$="" THEN 290 +300 PRINT"Karte 2 :" +310 B$=INKEY$:IF B$="" THEN 310 +320 PRINT"Karte 3 :" +330 C$=INKEY$:IF C$="" THEN 330 +340 PRINT"Karte 4 :" +350 D$=INKEY$:IF D$="" THEN 350 +360 PRINT +370 A=0 +380 IF A$="j" OR A$="J" THEN A=A+4 +390 IF B$="j" OR B$="J" THEN A=A+2 +400 IF C$="j" OR C$="J" THEN A=A+8 +410 IF D$="j" OR D$="J" THEN A=A+1 +420 COLOR 12:PRINT"Die gesuchte Zahl lautet ---> ---> ---> : ";A +430 COLOR 10:PRINT +440 PRINT"Wollen Sie noch einmal spielen [j]a/[n]ein ???" +450 Z$=INKEY$:IF Z$="j" OR Z$="J" THEN RUN +460 IF Z$="n" OR Z$="N" THEN COLOR 7,0:CLS:KEY ON:END +470 GOTO 450 + \ No newline at end of file diff --git a/KATER_KN.BAS b/KATER_KN.BAS new file mode 100644 index 0000000..0c3f3cc --- /dev/null +++ b/KATER_KN.BAS @@ -0,0 +1,49 @@ +10 CLS +20 INPUT"Zahl [1.....9] : ",A +30 IF A<1 OR A>9 THEN CLS:GOTO 20 +40 INPUT"Zahl [1.....9] : ",B +50 IF B<1 OR B>9 THEN CLS:GOTO 40 +60 INPUT"Zahl [1.....9] : ",C +70 IF C<1 OR C>9 THEN CLS:GOTO 80 +80 CLS +90 ON A GOTO 130,140,150,160,170,180,190,200,210 +100 ON B GOTO 220,230,240,250,260,270,280,290,300 +110 ON C GOTO 310,330,350,370,390,410,430,450,470 +120 RUN +130 PRINT"Mein Tchterchen hat einen Spatz, das ist ihr allergrter Schatz.":GOTO 100 +140 PRINT"Es wohnt im Zoo ein Elefant, der ist den Kindern wohlbekannt.":GOTO 100 +150 PRINT"Bestimmt kennt ihr den Kater Kno, der liegt den ganzen Tag im Stroh.":GOTO 100 +160 PRINT"Der Taxifahrer Hermann Bont fhrt nie zu schnell, doch sehr gekonnt.":GOTO 100 +170 PRINT"Vor unsrer Haustr sitzt ein Hund, der wiegt schon fnfunddreiig Pfund.":GOTO 100 +180 PRINT"Wir haben einen bunten Hahn, der fhrt gern mit der Eisenbahn.":GOTO 100 +190 PRINT"Ein Turner turn am Reck mit Schwung und mit sehr viel Begeisterung.":GOTO 100 +200 PRINT"Mein Bruder Hans hat einen Zahn mit einem Loch wie ein Vulkan.":GOTO 100 +210 PRINT"Ein kleiner Kaktus steht am Fenster und sieht angeblich nachts Gespenster.":GOTO 100 +220 PRINT"Er zwietscht und zwatscht von frh bis spt, obwohl ihm nie ein Lied gert.":GOTO 110 +230 PRINT"Frit hundert Kilo Heu am Tag, viel Brot und was er sonst noch mag.":GOTO 110 +240 PRINT"Fngt er sich eine kleine Maus, schimpft er sie sieben Stunden aus.":GOTO 110 +250 PRINT"Fhrt fnfzehn Jahre unfallfrei, und das freut auch die Polizei.":GOTO 110 +260 PRINT"Er spitzt die Ohren, lauscht und blefft und blifft und blafft und blfft und klfft.":GOTO 110 +270 PRINT"An jedem Tag legt er ein Ei und sonntags sogar zwei bis drei.":GOTO 110 +280 PRINT"Und manchmal turnt er mit Luise auf unserer Himmelsschlsselwiese.":GOTO 110 +290 PRINT"Ach wrde er zum Zahnarzt gehn, dann knnte jeder das verstehn.":GOTO 110 +300 PRINT"Er bildet sich das zwar nur ein, denn er ist wirklich noch sehr klein.":GOTO 110 +310 PRINT"Und badet im Aqarium vor dem vergngten Publikum." +320 A$=INKEY$:IF A$="" THEN 320 ELSE RUN +330 PRINT"Und abends kettet man ihn an, damit ihn keiner stehlen kann." +340 A$=INKEY$:IF A$="" THEN 340 ELSE RUN +350 PRINT"Dann wischt er sich den Bart und sthnt:Ach, wie ist man doch schon verwhnt." +360 A$=INKEY$:IF A$="" THEN 360 ELSE RUN +370 PRINT"Doch jede dritte Nacht im Traum fhrt er an einen dicken Baum." +380 A$=INKEY$:IF A$="" THEN 380 ELSE RUN +390 PRINT"Kommt ein Gewitter, reit er aus und kricht vor Angst ins Hhnerhaus." +400 A$=INKEY$:IF A$="" THEN 400 ELSE RUN +410 PRINT"Vieleicht war euch das nicht bekannt? Ich finde, es ist allerhand." +420 A$=INKEY$:IF A$="" THEN 420 ELSE RUN +430 PRINT"Bestimmt fhrt er zur Olympiade, wenn nicht, dann wre das sehr schade." +440 A$=INKEY$:IF A$="" THEN 440 ELSE RUN +450 PRINT"Ist auch geschwollen sein Gesicht, bedauern sollte man ihn nicht." +460 A$=INKEY$:IF A$="" THEN 460 ELSE RUN +470 PRINT"Ich gie ihn jetzt mit Hustentee, da wchst er schnell wie Kuckucksklee." +480 A$=INKEY$:IF A$="" THEN 480 ELSE RUN + \ No newline at end of file diff --git a/KNIGHT2.BAS b/KNIGHT2.BAS new file mode 100644 index 0000000..99a6aaf --- /dev/null +++ b/KNIGHT2.BAS @@ -0,0 +1,25 @@ +10 CLS +20 REM COLOR 4=DUNKELROT +30 REM COLOR 12=HELLROT +40 S=S+1 +50 IF S=1 THEN COLOR 12:PRINT"*" +60 IF S=2 THEN COLOR 4:PRINT"*";:COLOR 12:PRINT"*" +70 IF S=3 THEN COLOR 4:PRINT" *";:COLOR 12:PRINT"*" +80 IF S=4 THEN COLOR 4:PRINT" *";:COLOR 12:PRINT"*" +90 IF S=5 THEN COLOR 4:PRINT" *";:COLOR 12:PRINT"*" +100 IF S=6 THEN COLOR 4:PRINT" *";:COLOR 12:PRINT"*" +110 IF S=7 THEN COLOR 4:PRINT" *";:COLOR 12:PRINT"*" +120 IF S=8 THEN COLOR 4:PRINT" *";:COLOR 12:PRINT"*" +130 IF S=9 THEN COLOR 12:PRINT " *" +140 IF S=10 THEN COLOR 12:PRINT" *";:COLOR 4:PRINT"* " +150 IF S=11 THEN COLOR 12:PRINT" *";:COLOR 4:PRINT"* " +160 IF S=12 THEN COLOR 12:PRINT" *";:COLOR 4:PRINT"* " +170 IF S=13 THEN COLOR 12:PRINT" *";:COLOR 4:PRINT"* " +180 IF S=14 THEN COLOR 12:PRINT" *";:COLOR 4:PRINT"* " +190 IF S=15 THEN COLOR 12:PRINT" *";:COLOR 4:PRINT"* " +200 IF S=16 THEN COLOR 12:PRINT" *";:COLOR 4:PRINT"* " +210 IF S=17 THEN COLOR 12:PRINT"*";:COLOR 4:PRINT"* " +220 IF S=18 THEN S=0 +999 FOR Z=0 TO 2000:NEXT +1000 LOCATE 1,1:GOTO 40 + \ No newline at end of file diff --git a/KOO.BAS b/KOO.BAS new file mode 100644 index 0000000..409dc27 --- /dev/null +++ b/KOO.BAS @@ -0,0 +1,59 @@ +10 CLS +20 COLOR 15 +30 PRINT"Bitte geben Sie die Koordinaten ein !!!" +40 PRINT"Bei KEY OFF mu man bei X zur 24 die Zahl 1 ADDIEREN !!!" +50 PRINT"locate x,y" +60 PRINT +70 PRINT"locate ??,y" +80 INPUT"X(1-24):",X +90 PRINT +100 PRINT"locate x,??" +110 INPUT"Y(1-80):",Y +120 CLS +130 COLOR 26:LOCATE X,Y:PRINT"*" +140 B=3500 +150 A$=INKEY$:IF A$="" THEN 150 +160 IF A$=" " THEN 180 +170 GOTO 10 +180 A=79 +190 LOCATE X,A:COLOR 28 +200 PRINT"-< " +210 COLOR 15 +220 PRINT +230 PRINT +240 PRINT"Missile: -<";:COLOR 28:PRINT" ANNIHILATE ROCKET ":COLOR 15 +250 PRINT"Rocket Position :";X;",";A;" (LINE,CREVICE)" +260 SOUND B,1 +270 PRINT" " +280 FOR Z=0 TO 2000:NEXT +290 A=A-1 +300 IF A=Y+10 THEN B=4500:COLOR 28:PRINT:PRINT"Rocket in touch !!!Five seconds to collision !!!":COLOR 15 +310 IF A=Y+5 THEN B=5500:COLOR 28:PRINT:PRINT:PRINT"Rocket too near !!!":COLOR 15 +320 IF A=Y-2 THEN GOTO 340 +330 GOTO 190 +340 COLOR 12:LOCATE X-1,Y-1 +350 PRINT"***" +360 LOCATE X,Y-1 +370 PRINT"* *" +380 LOCATE X+1,Y-1 +390 PRINT"***" +400 FOR Z=0 TO 22222:NEXT +410 COLOR 14:LOCATE X-2,Y +420 PRINT"*" +430 LOCATE X-1,Y-1:PRINT" " +440 LOCATE X+1,Y-1:PRINT" " +450 LOCATE X,Y-2 +460 PRINT"* *" +470 LOCATE X+2,Y +480 PRINT"*" +490 PRINT +500 PRINT:PRINT:PRINT:PRINT:PRINT +510 COLOR 28:PRINT"STAR BASE destroyed !!!":COLOR 15 +520 SOUND 2500,25 +530 FOR Z=0 TO 22222:NEXT +540 CLS +550 COLOR 30:PRINT"GAME OVER * GAME OVER * GAME OVER * GAME OVER * GAME OVER * GAME OVER * GAME OV" +560 SOUND 3500,45 +570 FOR Z=0 TO 55555!:NEXT +580 GOTO 10 + \ No newline at end of file diff --git a/KREIS.BAS b/KREIS.BAS new file mode 100644 index 0000000..f4d0d6d --- /dev/null +++ b/KREIS.BAS @@ -0,0 +1,9 @@ +10 SCREEN 1 +20 WINDOW (0,0)-(31,39):CLS:PRINT TAB(10);"## Zufallskreise ##":PRINT +30 INPUT "min. : max. Radius : ",RM,RA:RA=RA-RM +40 INPUT "Anzahl : ",N:CLS +50 FOR I=1 TO N +60 X=32*RND(1):Y=25*RND(1):R=RM+RA*RND(1) +70 CIRCLE (X,Y),R,7 +80 NEXT + \ No newline at end of file diff --git a/LAUFSCHR/FARBEN.DOC b/LAUFSCHR/FARBEN.DOC new file mode 100644 index 0000000..00af7c0 --- /dev/null +++ b/LAUFSCHR/FARBEN.DOC @@ -0,0 +1,11 @@ +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 \ No newline at end of file diff --git a/LAUFSCHR/LAUFTEXT.L2D b/LAUFSCHR/LAUFTEXT.L2D new file mode 100644 index 0000000..28c7083 --- /dev/null +++ b/LAUFSCHR/LAUFTEXT.L2D @@ -0,0 +1,11 @@ +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 \ No newline at end of file diff --git a/MOPS.BAS b/MOPS.BAS new file mode 100644 index 0000000..f91fae2 --- /dev/null +++ b/MOPS.BAS @@ -0,0 +1,33 @@ +10 CLS:PRINT TAB(12);"## MOPS ##":B$="Fehler !" +20 PRINT TAB(4);"frei nach Carl Reinhard 1850" +30 PRINT:DIM A(8),B(8),C$(8),D$(2),E$(2),F$(2) +40 D$(0)="der": D$(1)="das": D$(2)="die" +50 E$(0)="dem": E$(1)="dem": E$(2)="der" +60 F$(0)="den": F$(1)="das": F$(2)="die" +70 FOR I=0 TO 8 +80 INPUT"Wort mit Artikel : ",A$ +90 IF MID$(A$,4,1)<>" " THEN PRINT B$:GOTO 80 +100 IF LEFT$(A$,3)="der" THEN A(I)=0:GOTO 140 +110 IF LEFT$(A$,3)="das" THEN A(I)=1:GOTO 140 +120 IF LEFT$(A$,3)="die" THEN A(I)=2:GOTO 140 +130 PRINT B$:GOTO 80 +140 C$(I)=MID$(A$,4) +150 NEXT:CLS +160 CLS +170 FOR I=0 TO 8 +180 X=INT(8*RND(1)+.5) +190 C=0:IF I=0 THEN B(I)=X +200 FOR J=0 TO I-1 +210 IF B(J)=X THEN C=1:J=I +220 NEXT:IF C=1 GOTO 180 +230 B(I)=X +240 NEXT +250 PRINT"Wenn ";D$(A(B(0)));C$(B(0));" mit ";E$(A(B(1)));C$(B(1)) +260 PRINT" ber ";F$(A(B(2)));C$(B(2));" springt" +270 PRINT"und ";D$(A(B(3)));C$(B(3));" in ";E$(A(B(4)));C$(B(4)) +280 PRINT" ";F$(A(B(5)));C$(B(5));" verschlingt" +290 PRINT"dann ";D$(A(B(6)));C$(B(6));" aus ";E$(A(B(7)));C$(B(7)) +300 PRINT" als ";C$(B(8));" erklingt" +310 PRINT:PRINT +320 INPUT"[ENTER]",A:GOTO 160 + \ No newline at end of file diff --git a/MOUSE.BAS b/MOUSE.BAS new file mode 100644 index 0000000..44ed6f3 --- /dev/null +++ b/MOUSE.BAS @@ -0,0 +1,34 @@ +1 CLS : REM Maus Basic Beispiel +2 PRINT"Dies ist ein Beispiel in Basic geschrieben, das den Mouse Driver Aufruf zeigt." +3 PRINT" Details entnehmen sie bitte dem Help File [Help.com]." +4 PRINT +5 PRINT" Funktion:" +6 PRINT" Linker Knopf = Ausdruck von Knopfstatus und Cursorposition (x,y)" +7 PRINT" Rechter Knopf = Ende." +11 PRINT +15 DEFINT A-Z +18 DEF SEG=0 +20 MSEG=256*PEEK(51*4+3)+PEEK(51*4+2) +30 MOUSE=256*PEEK(51*4+1)+PEEK(51*4)+2 +40 IF MSEG OR (MOUSE-2) THEN 60 +50 PRINT " Mouse Driver not found":END +60 DEF SEG=MSEG +70 IF PEEK(MOUSE-2)=207 THEN 50 +80 PRINT " Mouse Driver is installed" +100 M1%=0 +110 CALL MOUSE(M1%, M2%, M3%, M4%) +120 S$ = "Fehler" : IF M1=-1 THEN S$ = "O.K." +140 PRINT "Status = ";S$ +150 M1=10:M2=1:M3=2:M4=5 +160 CALL MOUSE(M1%, M2%, M3%, M4%) +170 M1=1 +180 CALL MOUSE(M1%, M2%, M3%, M4%) +190 M1 = 3 +200 CALL MOUSE(M1%, M2%, M3%, M4%) +210 IF M2% = 0 THEN 190 +220 PRINT"Button Status = ";M2,"Cursor Position: x = ";M3," y = ";M4 +230 M1=2 +240 CALL MOUSE(M1%, M2%, M3%, M4%) +250 IF M2 = 1 THEN 170 +260 END + \ No newline at end of file diff --git a/OHM.BAS b/OHM.BAS new file mode 100644 index 0000000..53416a7 --- /dev/null +++ b/OHM.BAS @@ -0,0 +1,35 @@ +10 CLS:KEY OFF +20 FOR I=0 TO 12:READ A$,A:COLOR A:PRINT I;A$,;:NEXT I +30 PRINT:PRINT:COLOR 5:PRINT" 1.2.3. 4." +40 PRINT" \ \ \ \ +50 PRINT"--"; +60 FOR I=1 TO 9:PRINT CHR$(219);:NEXT I +70 PRINT"--":COLOR 15,8 +80 DATA "SCHWARZ",8,"BRAUN",6,"ROT",4 +90 DATA "ORANGE",12,"GELB",14,"GRN",10,"BLAU",09 +100 DATA "VIOLETT",13,"GRAU",7,"WEISS",15 +110 DATA "ohne",5,"GOLD",14,"SILBER",7 +120 PRINT:FOR R=1 TO 2:GOSUB 270 +130 IF R=1 THEN Y=A*10 ELSE Y=A*1 +140 X=X+Y:NEXT R:R=3:GOSUB 270 +150 IF A<7 THEN X=X*10^A +160 IF A=11 THEN X=X/10 +170 IF A=12 THEN X=X/100 +180 R=4:GOSUB 270:T=A +190 IF A=10 THEN T=20 +200 IF A=11 THEN T=5 +210 IF A=12 THEN T=10 +220 LOCATE 13,1:IF X<9999999! THEN PRINT X" Ohm +230 IF X>1000 THEN PRINT X/1000;" Kilo Ohm +240 PRINT"Toleranz: "T"% = "X/100*T" Ohm +250 INPUT"Nochmal (j/n)";A$ +260 IF A$="n" THEN KEY ON:END ELSE RUN +270 LOCATE 9,1 +280 PRINT"Farbe vom "R". Ring.":INPUT A +290 LOCATE 9,21 +300 PRINT" ":IF A<0 OR A>12 THEN 270 +310 LOCATE 7,1+R*2:IF R=4 THEN LOCATE 7,10 +320 RESTORE:FOR I=0 TO A:READ A$,F:NEXT I +330 COLOR F,5 +340 PRINT CHR$(222):COLOR 15,8:RETURN + \ No newline at end of file diff --git a/OUTRUN.BAS b/OUTRUN.BAS new file mode 100644 index 0000000..3cdf782 --- /dev/null +++ b/OUTRUN.BAS @@ -0,0 +1,40 @@ +10 CLS +20 PRINT"******************** Outrun-Motor-Sound ********************" +30 PRINT +40 PRINT"Bitte benutzen Sie die Tasten auf dem rechten Feld >>> 8,2,+,-,*,/,9,3,7,1,0, [SPACE]" +50 PRINT +60 PRINT"Zum abbrechen bitte Space drcken !!!" +70 PRINT +80 PRINT"Zum Start bitte Taste drcken !!!" +90 A$=INKEY$:IF A$="" THEN 90 +100 CLS +110 LOCATE 1,1:PRINT +120 PRINT"8= +1 2= -1" +130 PRINT"+= +10 -= -10" +140 PRINT"*= +100 /= -100" +150 PRINT"9= +1000 3= -1000" +160 PRINT"7= abschreckton [ca. 2.5 sec.] 1= abschreckton [dauer]" +170 IF A>0 THEN LOCATE 15,30:PRINT " +";A;" " +180 IF A<0 THEN LOCATE 15,30:PRINT " ";A;" " +190 IF A=0 THEN LOCATE 15,30:PRINT" +/-";A;" " +200 IF A<-3650 THEN A=-3600 +210 SOUND 3700+A,1 +220 B$=INKEY$:IF B$="8" THEN 360 +230 IF B$="2" THEN 380 +240 IF B$=" " THEN PRINT"^C":PRINT"BREAK in 170":END +250 IF B$="0" THEN A=0 +260 IF B$="+" THEN A=A+10 +270 IF B$="-" THEN A=A-10 +280 IF B$="/" THEN A=A-100 +290 IF B$="*" THEN A=A+100 +300 IF B$="9" THEN A=A+1000 +310 IF B$="3" THEN A=A-1000 +320 IF B$="7" THEN SOUND 3077,20 +330 IF B$="1" THEN A=-610 +340 IF A>29050 THEN A=29000 +350 GOTO 170 +360 A=A+1 +370 GOTO 170 +380 A=A-1 +390 GOTO 170 + \ No newline at end of file diff --git a/PRINT.BAS b/PRINT.BAS new file mode 100644 index 0000000..a31b0d5 --- /dev/null +++ b/PRINT.BAS @@ -0,0 +1,6 @@ +10 CLS +20 A$=INKEY$:IF A$="" THEN 20 +30 PRINT A$; +40 LPRINT A$; +50 GOTO 20 + \ No newline at end of file diff --git a/RATEFIX.BAS b/RATEFIX.BAS new file mode 100644 index 0000000..6b68e41 --- /dev/null +++ b/RATEFIX.BAS @@ -0,0 +1,29 @@ +10 CLS +20 PRINT +30 PRINT"Raten Sie eine Zahl zwischen 00 und 99 !!!" +40 PRINT +50 LET S=INT(RND(1)*100) +60 PRINT"Ihr Tip :"; +70 INPUT G +80 IF G=S THEN 160 +90 IF G>S THEN 130 +100 PRINT"Zu klein bitte grere Zahlen !!! >>>" +110 PRINT +120 GOTO 60 +130 PRINT"Zu gross bitte kleinere Zahlen !!! <<<" +140 PRINT +150 GOTO 60 +160 PRINT"Auf den Kopf getroffen !!!" +170 PRINT"Bitte Taste drcken !!!" +180 A$=INKEY$:IF A$="" THEN 180 +190 CLS +200 LOCATE 1,1:PRINT"Nochmal Raten [Y/N] ??? >>> " +210 B$=INKEY$:IF B$="y" OR B$="Y" THEN LOCATE 1,1:PRINT"Nochmal Raten [Y/N] ??? >>> Yes":GOTO 300 +220 IF B$="n" OR B$="N" THEN LOCATE 1,1:PRINT"Nochmal Raten [Y/N] ??? >>> No":GOTO 400 +230 GOTO 200 +300 FOR Z=0 TO 10000:NEXT Z +310 GOTO 10 +400 FOR Z=0 TO 10000:NEXT Z +410 CLS +420 END + \ No newline at end of file diff --git a/RECHNEN.BAS b/RECHNEN.BAS new file mode 100644 index 0000000..3faeebb --- /dev/null +++ b/RECHNEN.BAS @@ -0,0 +1,123 @@ +10 CLS +20 PRINT" *************** Reckonmashine ***************" +30 PRINT:PRINT"Welche Rechenart wird gewnscht ???" +40 PRINT:PRINT"+=addition . -=subtraktion . *=multiplikation . /=division . ^=Potenzion" +50 PRINT:PRINT:PRINT"E=Ende" +60 A$=INKEY$:IF A$="+" OR A$="*" THEN GOTO 130 +70 IF A$="-" OR A$="_" THEN GOTO 310 +80 IF A$="+" OR A$="*" THEN GOTO 500 +90 IF A$="7" OR A$="/" THEN GOTO 700 +100 IF A$="^" OR A$="" THEN GOTO 900 +110 IF A$="E" OR A$="e" THEN 1500 +120 GOTO 60 +130 CLS:PRINT" ********** Addition **********" +140 PRINT:PRINT"...+...=..." +150 PRINT"Bitte geben sie jetzt die erste Zahl ein !!! >>> ???+...=..." +160 PRINT:INPUT"1. Zahl : ",B +170 PRINT:PRINT B ;" + ... = ..." +180 PRINT"Bitte geben sie jetzt die zweite Zahl ein !!! >>> ";B ;" + ??? = ..." +190 PRINT:INPUT"2. Zahl : ",C +200 PRINT:PRINT B;" + ";C ;" = ???" +210 D =B +C +220 PRINT"Hmmm" +225 CLS +230 FOR Z=1 TO 10000:NEXT Z +240 LOCATE 1,1 +250 PRINT B ;" + ";C ;" = ";D +260 FOR Z=1 TO 10000:NEXT Z +270 LOCATE 1,1 +280 PRINT B ;" + ";C ;" = " +290 Y$=INKEY$:IF Y$=" " THEN GOTO 10 +300 GOTO 230 +310 CLS +320 PRINT" ********** Subtraktion **********" +330 PRINT:PRINT"...-...=..." +340 PRINT"Bitte geben sie jetzt die erste Zahl ein !!! >>> ???-...=..." +350 PRINT:INPUT"1. Zahl : ",B +360 PRINT B;" - ... = ..." +370 PRINT"Bitte geben sie jetzt die zweite Zahl ein !!! >>> ";B;" - ??? = ..." +380 PRINT:INPUT"2. Zahl : ",C +390 PRINT:PRINT B;" - ";C;" = ???" +400 D=B-C +410 PRINT"Hmmm" +415 CLS +420 FOR Z=1 TO 10000:NEXT Z +430 LOCATE 1,1 +440 PRINT B;" - ";C;" = ";D +450 FOR Z=1 TO 10000:NEXT Z +460 LOCATE 1,1 +470 PRINT B;" - ";C;" = " +480 Y$=INKEY$:IF Y$=" " THEN GOTO 10 +490 GOTO 420 +500 CLS +510 PRINT" ********** Multiplikation **********" +520 PRINT:PRINT"...x...=..." +530 PRINT"Bitte geben sie jetzt die erste Zahl ein !!! >>> ???x...=..." +540 PRINT:INPUT"1. Zahl : ",B +550 PRINT B" x ... = ..." +560 PRINT"Bitte geben sie jetzt die zweite Zahl ein !!! >>> ";B;" x ??? = ..." +570 PRINT:INPUT"2. Zahl : ",C +580 PRINT B;" x ";C;" = ???" +590 D=B*C +600 PRINT"Hmmm" +610 CLS +620 FOR Z=1 TO 10000:NEXT Z +630 LOCATE 1,1 +640 PRINT B;" x ";C;" = ";D +650 FOR Z=1 TO 10000:NEXT Z +660 LOCATE 1,1 +670 PRINT B;" x ";C;" = " +680 Y$=INKEY$:IF Y$=" " THEN GOTO 10 +690 GOTO 620 +700 CLS +710 PRINT" ********** Division **********" +720 PRINT:PRINT"...:...=..." +730 PRINT"Bitte geben sie jetzt die erste Zahl ein !!! >>> ???:...=..." +740 PRINT:INPUT"1. Zahl : ",B +750 PRINT B;" : ... = ..." +760 PRINT"Bitte geben sie jetzt die zweite Zahl ein !!! >>> ";B;" : ??? = ..." +770 PRINT:INPUT"2. Zahl : ",C +780 PRINT B;" : ";C;" = ???" +790 D=B/C +800 PRINT"Hmmm" +810 CLS +820 FOR Z=1 TO 10000:NEXT Z +830 LOCATE 1,1 +840 PRINT B;" : ";C;" = ";D +850 FOR Z=1 TO 10000:NEXT Z +860 LOCATE 1,1 +870 PRINT B;" : ";C;" = " +880 Y$=INKEY$:IF Y$=" " THEN GOTO 10 +890 GOTO 820 +900 CLS +910 PRINT" *********** Potenzion **********" +920 PRINT:PRINT"...^...=..." +930 PRINT"Bitte geben sie jetzt die erste Zahl ein !!! >>> ???^...=..." +940 PRINT:INPUT"1. Zahl : ",B +950 PRINT B;" ^ ... = ..." +960 PRINT"Bitte geben sie jetzt die zweite Zahl ein !!! >>> ";B;"^???=..." +970 PRINT:INPUT"2. Zahl : ",C +980 PRINT B;" ^ ";C;" = ???" +990 D=B^C +1000 PRINT"Hmmm" +1010 CLS +1020 FOR Z=1 TO 10000:NEXT Z +1030 LOCATE 1,1 +1040 PRINT B;" ^ ";C;" = ";D +1050 FOR Z=1 TO 10000:NEXT Z +1060 LOCATE 1,1 +1070 PRINT B;" ^ ";C;" = " +1080 Y$=INKEY$:IF Y$=" " THEN GOTO 10 +1090 GOTO 1020 +1500 CLS +1510 PRINT"Durch ENDE werden alle vorhandenen Daten gelscht und es wird das Microsoft- Programm BREAK.NEW geladen !!!" +1520 INPUT"Sind Sie sicher (Yes/No) ???";A$ +1530 IF A$="yes" OR A$="Yes" THEN 1560 +1540 IF A$="no" OR A$="No" THEN RUN +1550 GOTO 1520 +1560 PRINT"Ok.Selber schuld !!!" +1570 PRINT"Bitte geben Sie >>>run<<< ein oder drcken Sie die Funktions-Taste II" +1580 PRINT"(Falls Sie noch den Befehl >>>RUN+Enter<<< enthlt !!!) +1590 PRINT"BREAK in 1590" +1600 LOAD"BREAK.NEW" + \ No newline at end of file diff --git a/RUFTON1.BAS b/RUFTON1.BAS new file mode 100644 index 0000000..42971db --- /dev/null +++ b/RUFTON1.BAS @@ -0,0 +1,5 @@ +10 CLS +20 SOUND 500,17.5 +30 FOR Z=0 TO 124998.75#:NEXT +40 GOTO 20 + \ No newline at end of file diff --git a/SCHREIBE.BAS b/SCHREIBE.BAS new file mode 100644 index 0000000..7254d21 --- /dev/null +++ b/SCHREIBE.BAS @@ -0,0 +1,19 @@ +10 CLS +20 COLOR 15 +30 B$=INKEY$:IF B$="" THEN 30 +40 IF B$="/" THEN 80 +50 IF B$="*" THEN CLS +60 PRINT B$; +70 GOTO 30 +80 CLS +90 COLOR 4 +100 READ A$ +110 FOR Z=0 TO 1000:NEXT +120 IF A$="en" THEN GOTO 170 +130 PRINT A$ +140 GOTO 90 +160 DATA "**************"," ************"," **********"," ********"," ******"," ****"," **"," ****"," ******"," ********"," **********"," ************","**************","en" +170 RESTORE +180 Z$=INKEY$:IF Z$=" " THEN 10 +190 GOTO 180 + \ No newline at end of file diff --git a/SELFTEST.BAS b/SELFTEST.BAS new file mode 100644 index 0000000..5fafcd3 --- /dev/null +++ b/SELFTEST.BAS @@ -0,0 +1,14 @@ +10 CLS +20 COLOR 12:LOCATE 1,35:PRINT"Self-Check" +30 COLOR 10:PRINT:PRINT"Testing..." +40 PRINT +50 COLOR 15:PRINT"Sound-Blaster Pro card ";:A=5:GOSUB 10010 +60 COLOR 15:PRINT"Motherboard ";:A=6:GOSUB 10010 +10000 END:REM *** Ende wegen folgenden GOSUB...RETURN-Schleifen *** +10010 REM *** Punkt- und OK-Schleife *** +10020 GOSUB 10040:PRINT".";:GOSUB 10040:PRINT".";:GOSUB 10040:PRINT".";:GOSUB 10040:LOCATE A,70:COLOR 26:PRINT"OK" +10030 RETURN +10040 REM *** Zeitschleife *** +10050 FOR Z=0 TO 5000:NEXT Z +10060 RETURN + \ No newline at end of file diff --git a/SIREN.BAS b/SIREN.BAS new file mode 100644 index 0000000..f0b39cf --- /dev/null +++ b/SIREN.BAS @@ -0,0 +1,13 @@ +10 CLS +20 A=1500 +30 B=1 +40 C=2500 +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+80 +80 IF A>=C THEN 20 +90 GOTO 50 + \ No newline at end of file diff --git a/SONNE.BAS b/SONNE.BAS new file mode 100644 index 0000000..74e1a71 --- /dev/null +++ b/SONNE.BAS @@ -0,0 +1,49 @@ +10 'Programm: SONNE.BAS +20 'Funktion: Simulation der Planeten- +30 ' gravitation +40 'Sprache: GW-Basic +50 'Autor: Axel Werner +60 '(C)1991 DMV Widuch GmbH & Co. KG +70 DEFINT I,S,A,F +80 INPUT "A: ",A +90 IF A>5 THEN A=5 +100 IF A<1 THEN A=1 +110 FOR I=1 TO A +120 PRINT"XP("I"),YP("I"),ZP("I"): "; +130 INPUT"",XP(I),YP(I),ZP(I) +140 PRINT"DXP("I"),DYP("I"),DZP("I"): "; +150 INPUT"",DXP(I),DYP(I),DZP(I) +160 PRINT"M("I"): ";:INPUT"",M(I) +170 NEXT +180 INPUT"MS: ",M(0) +190 XP(0)=0:YP(0)=0:ZP(0)=0 +200 SCREEN 2:CLS:KEY OFF +210 WINDOW SCREEN(-320,-250)-(320,250) +220 G=.006672 +230 FOR I=0 TO A +240 NXP=XP(I)+DXP(I):NYP=YP(I)+DYP(I) +250 NZP=ZP(I)+DZP(I) +260 FOR S=0 TO A +270 IF I=S THEN 350 +280 X2=XP(S)-XP(I):Y2=YP(S)-YP(I) +290 Z2=ZP(S)-ZP(I) +300 D=SQR(X2*X2+Y2*Y2+Z2*Z2) +310 GK=G*M(S)*M(I)/(D*D) +320 B=GK/(2*M(I)) +330 X1=X2*B/D:Y1=Y2*B/D:Z1=Z2*B/D +340 NXP=NXP+X1:NYP=NYP+Y1:NZP=NZP+Z1 +350 NEXT +360 DXP(I)=NXP-XP(I):DYP(I)=NYP-YP(I) +370 DZP(I)=NZP-ZP(I):GOTO 400 +380 X%=XP(I):Y%=YP(I):Z%=ZP(I) +390 F=0:GOSUB 450 +400 X%=NXP:Y%=NYP:Z%=NZP:F=1:GOSUB 450 +410 XP(I)=NXP:YP(I)=NYP:ZP(I)=NZP +420 NEXT +430 IF INKEY$="" THEN 230 +440 END +450 X%=X%+Z%/3 +460 Y%=Y%-Z%/3 +470 PSET(X%,Y%),F +480 RETURN + \ No newline at end of file diff --git a/STEUER.BAS b/STEUER.BAS new file mode 100644 index 0000000..bac79d3 --- /dev/null +++ b/STEUER.BAS @@ -0,0 +1,60 @@ +10 CLS +20 S=0 +30 REM COLOR 12=ROT +40 REM COLOR 10=GRN +50 REM COLOR 14=GELB +60 A$=INKEY$:IF A$="" THEN 60 +70 IF A$="+" THEN GOTO 110 +80 IF A$="-" THEN GOTO 600 +90 SOUND 1000,10 +100 GOTO 60 +110 S=S+1 +120 IF S=1 THEN CLS:COLOR 10:PRINT"|":GOSUB 330 +130 IF S=2 THEN CLS:COLOR 10:PRINT"||":GOSUB 330 +140 IF S=3 THEN CLS:COLOR 10:PRINT"|||":GOSUB 330 +150 IF S=4 THEN CLS:COLOR 10:PRINT"||||":GOSUB 330 +160 IF S=5 THEN CLS:COLOR 10:PRINT"|||||":GOSUB 330 +170 IF S=6 THEN CLS:COLOR 10:PRINT"||||||":GOSUB 330 +180 IF S=7 THEN CLS:COLOR 10:PRINT"|||||||":GOSUB 330 +190 IF S=8 THEN CLS:COLOR 10:PRINT"||||||||":GOSUB 330 +200 IF S=9 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|":GOSUB 330 +210 IF S=10 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"||":GOSUB 330 +220 IF S=11 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|||":GOSUB 330 +230 IF S=12 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"||||":GOSUB 330 +240 IF S=13 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|||||":GOSUB 330 +250 IF S=14 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"||||||":GOSUB 330 +260 IF S=15 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|||||||":GOSUB 330 +270 IF S=16 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|||||||";:COLOR 12:PRINT"|":GOSUB 330 +280 IF S=17 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|||||||";:COLOR 12:PRINT"||":GOSUB 330 +290 IF S=18 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|||||||";:COLOR 12:PRINT"|||":GOSUB 330 +300 IF S=19 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|||||||";:COLOR 12:PRINT"||||":GOSUB 330 +310 IF S=20 THEN CLS:COLOR 10:PRINT"||||||||";:COLOR 14:PRINT"|||||||";:COLOR 12:PRINT"|||||":GOSUB 330 +315 IF S=21 THEN S=20:SOUND 1500,1 +320 GOTO 60 +330 COLOR 9 +340 IF S=1 THEN PRINT "005 %" +350 IF S=2 THEN PRINT "010 %" +360 IF S=3 THEN PRINT "015 %" +370 IF S=4 THEN PRINT "020 %" +380 IF S=5 THEN PRINT "025 %" +390 IF S=6 THEN PRINT "030 %" +400 IF S=7 THEN PRINT "035 %" +410 IF S=8 THEN PRINT "040 %" +420 IF S=9 THEN PRINT "045 %" +430 IF S=10 THEN PRINT "050 %" +440 IF S=11 THEN PRINT "055 %" +450 IF S=12 THEN PRINT "060 %" +460 IF S=13 THEN PRINT "065 %" +470 IF S=14 THEN PRINT "070 %" +480 IF S=15 THEN PRINT "075 %" +490 IF S=16 THEN PRINT "080 %" +500 IF S=17 THEN PRINT "085 %" +510 IF S=18 THEN PRINT "090 %" +520 IF S=19 THEN PRINT "095 %" +530 IF S=20 THEN PRINT "100 %":SOUND 2000,2.5 +540 RETURN +600 S=S-1 +601 IF S=0 THEN CLS:COLOR 9:PRINT:PRINT"000 %" +602 IF S=-1 THEN S=0:SOUND 1500,1 +610 GOTO 120 + \ No newline at end of file diff --git a/STEUER2.BAS b/STEUER2.BAS new file mode 100644 index 0000000..8cc83f5 --- /dev/null +++ b/STEUER2.BAS @@ -0,0 +1,60 @@ +10 CLS:LOCATE 1,1 +20 S=0 +30 REM COLOR 12=ROT +40 REM COLOR 10=GRN +50 REM COLOR 14=GELB +60 A$=INKEY$:IF A$="" THEN 60 +70 IF A$="+" THEN GOTO 110 +80 IF A$="-" THEN GOTO 600 +90 SOUND 1000,10 +100 GOTO 60 +110 S=S+1 +120 IF S=1 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 330 +130 IF S=2 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 330 +140 IF S=3 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 330 +150 IF S=4 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 330 +160 IF S=5 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 330 +170 IF S=6 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 330 +180 IF S=7 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 330 +190 IF S=8 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 330 +200 IF S=9 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 330 +210 IF S=10 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 330 +220 IF S=11 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 330 +230 IF S=12 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 330 +240 IF S=13 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 330 +250 IF S=14 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 330 +260 IF S=15 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 330 +270 IF S=16 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT"";:COLOR 12:PRINT" ":GOSUB 330 +280 IF S=17 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT"";:COLOR 12:PRINT" ":GOSUB 330 +290 IF S=18 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT"";:COLOR 12:PRINT" ":GOSUB 330 +300 IF S=19 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT"";:COLOR 12:PRINT" ":GOSUB 330 +310 IF S=20 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT"";:COLOR 12:PRINT" ":GOSUB 330 +315 IF S=21 THEN S=20:SOUND 1500,1 +320 GOTO 60 +330 REM color 14 +340 IF S=1 THEN PRINT "005 %" +350 IF S=2 THEN PRINT "010 %" +360 IF S=3 THEN PRINT "015 %" +370 IF S=4 THEN PRINT "020 %" +380 IF S=5 THEN PRINT "025 %" +390 IF S=6 THEN PRINT "030 %" +400 IF S=7 THEN PRINT "035 %" +410 IF S=8 THEN PRINT "040 %" +420 IF S=9 THEN PRINT "045 %" +430 IF S=10 THEN PRINT "050 %" +440 IF S=11 THEN PRINT "055 %" +450 IF S=12 THEN PRINT "060 %" +460 IF S=13 THEN PRINT "065 %" +470 IF S=14 THEN PRINT "070 %" +480 IF S=15 THEN PRINT "075 %" +490 IF S=16 THEN PRINT "080 %" +500 IF S=17 THEN PRINT "085 %" +510 IF S=18 THEN PRINT "090 %" +520 IF S=19 THEN PRINT "095 %" +530 IF S=20 THEN PRINT "100 %":SOUND 2000,2.5 +540 RETURN +600 S=S-1 +601 IF S=0 THEN CLS:COLOR 9:PRINT:PRINT"000 %" +602 IF S=-1 THEN S=0:SOUND 1500,1 +610 GOTO 120 + \ No newline at end of file diff --git a/STEUER3.BAS b/STEUER3.BAS new file mode 100644 index 0000000..d4b8e94 --- /dev/null +++ b/STEUER3.BAS @@ -0,0 +1,70 @@ +10 CLS:LOCATE 1,1 +20 S=0 +30 REM COLOR 12=ROT +40 REM COLOR 10=GRN +50 REM COLOR 14=GELB +60 A$=INKEY$:IF A$="" THEN 60 +70 IF A$="+" THEN GOTO 210 +80 IF A$="-" THEN GOTO 660 +90 IF A$="0" THEN S=0:GOSUB 440 +100 IF A$="1" THEN S=1:GOTO 210 +110 IF A$="2" THEN S=3:GOTO 210 +120 IF A$="3" THEN S=5:GOTO 210 +130 IF A$="4" THEN S=7:GOTO 210 +140 IF A$="5" THEN S=9:GOTO 210 +150 IF A$="6" THEN S=11:GOTO 210 +160 IF A$="7" THEN S=13:GOTO 210 +170 IF A$="8" THEN S=15:GOTO 210 +180 IF A$="9" THEN S=17:GOTO 210 +190 SOUND 1000,10 +200 GOTO 60 +210 S=S+1 +220 IF S=1 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 440 +230 IF S=2 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 440 +240 IF S=3 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 440 +250 IF S=4 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 440 +260 IF S=5 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 440 +270 IF S=6 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 440 +280 IF S=7 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 440 +290 IF S=8 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 440 +300 IF S=9 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 440 +310 IF S=10 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 440 +320 IF S=11 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 440 +330 IF S=12 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 440 +340 IF S=13 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 440 +350 IF S=14 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 440 +360 IF S=15 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 440 +370 IF S=16 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT"";:COLOR 12:PRINT" ":GOSUB 440 +380 IF S=17 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT"";:COLOR 12:PRINT" ":GOSUB 440 +390 IF S=18 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT"";:COLOR 12:PRINT" ":GOSUB 440 +400 IF S=19 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT"";:COLOR 12:PRINT" ":GOSUB 440 +410 IF S=20 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT"";:COLOR 12:PRINT" ":GOSUB 440 +420 IF S=21 THEN S=20:SOUND 1500,1 +430 GOTO 60 +440 REM color 14 +450 IF S=1 THEN PRINT "005 %" +460 IF S=2 THEN PRINT "010 %" +470 IF S=3 THEN PRINT "015 %" +480 IF S=4 THEN PRINT "020 %" +490 IF S=5 THEN PRINT "025 %" +500 IF S=6 THEN PRINT "030 %" +510 IF S=7 THEN PRINT "035 %" +520 IF S=8 THEN PRINT "040 %" +530 IF S=9 THEN PRINT "045 %" +540 IF S=10 THEN PRINT "050 %" +550 IF S=11 THEN PRINT "055 %" +560 IF S=12 THEN PRINT "060 %" +570 IF S=13 THEN PRINT "065 %" +580 IF S=14 THEN PRINT "070 %" +590 IF S=15 THEN PRINT "075 %" +600 IF S=16 THEN PRINT "080 %" +610 IF S=17 THEN PRINT "085 %" +620 IF S=18 THEN PRINT "090 %" +630 IF S=19 THEN PRINT "095 %" +640 IF S=20 THEN PRINT "100 %":SOUND 2000,2.5 +650 RETURN +660 S=S-1 +670 IF S=0 THEN CLS:COLOR 9:PRINT:PRINT"000 %" +680 IF S=-1 THEN S=0:SOUND 1500,1 +690 GOTO 220 + \ No newline at end of file diff --git a/STEUER4.BAS b/STEUER4.BAS new file mode 100644 index 0000000..30b9bf3 --- /dev/null +++ b/STEUER4.BAS @@ -0,0 +1,64 @@ +10 CLS:LOCATE 1,1 +20 S=0 +30 REM COLOR 12=ROT +40 REM COLOR 10=GRN +50 REM COLOR 14=GELB +60 A$=INKEY$:IF A$="" THEN 60 +70 IF A$="+" THEN GOTO 210 +80 IF A$="-" THEN GOTO 660 +90 IF A$="0" THEN S=0:GOSUB 440 +100 IF A$="1" THEN S=1:GOTO 210 +110 IF A$="2" THEN S=3:GOTO 210 +120 IF A$="3" THEN S=5:GOTO 210 +130 IF A$="4" THEN S=7:GOTO 210 +140 IF A$="5" THEN S=9:GOTO 210 +150 IF A$="6" THEN S=11:GOTO 210 +160 IF A$="7" THEN S=13:GOTO 210 +170 IF A$="8" THEN S=15:GOTO 210 +180 IF A$="9" THEN S=17:GOTO 210 +190 SOUND 1000,10 +200 GOTO 60 +210 S=S+1 +220 IF S=1 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 440 +230 IF S=2 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 440 +240 IF S=3 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 440 +250 IF S=4 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 440 +260 IF S=5 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 440 +270 IF S=6 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 440 +280 IF S=7 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 440 +290 IF S=8 THEN LOCATE 1,1:COLOR 10:PRINT" ":GOSUB 440 +300 IF S=9 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 440 +310 IF S=10 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 440 +320 IF S=11 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 440 +330 IF S=12 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 440 +340 IF S=13 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 440 +350 IF S=14 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 440 +360 IF S=15 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT" ":GOSUB 440 +370 IF S=16 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT"";:COLOR 12:PRINT" ":GOSUB 440 +380 IF S=17 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT"";:COLOR 12:PRINT" ":GOSUB 440 +390 IF S=18 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT"";:COLOR 12:PRINT" ":GOSUB 440 +400 IF S=19 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT"";:COLOR 12:PRINT" ":GOSUB 440 +410 IF S=20 THEN LOCATE 1,1:COLOR 10:PRINT"";:COLOR 14:PRINT"";:COLOR 12:PRINT" ":GOSUB 440 +420 IF S=21 THEN S=20:SOUND 1500,1 +430 GOTO 60 +440 REM color 14 +450 IF S=1 THEN PRINT "005 %":SOUND 2000,2.5 +460 IF S=2 THEN PRINT "010 %":SOUND 2000,2.5 +470 IF S=3 THEN PRINT "015 %":SOUND 2000,2.5 +480 IF S=4 THEN PRINT "020 %":SOUND 2000,2.5 +490 IF S=5 THEN PRINT "025 %":SOUND 2000,2.5 +500 IF S=6 THEN PRINT "030 %":SOUND 2000,2.5 +510 IF S=7 THEN PRINT "035 %":SOUND 2000,2.5 +520 IF S=8 THEN PRINT "040 %":SOUND 2000,2.5 +530 IF S=9 THEN PRINT "045 %":SOUND 2250,2.5 +540 IF S=10 THEN PRINT "050 %":SOUND 2250,2.5 +550 IF S=11 THEN PRINT "055 %":SOUND 2250,3.155444E-29085 %" +620 IF S=18 THEN PRINT "090 %" +630 IF S=19 THEN PRINT "095 %" +640 IF S=20 THEN PRINT "100 %":SOUND 2000,2.5 +650 RETURN +660 S=S-1 +670 IF S=0 THEN CLS:COLOR 9:PRINT:PRINT"000 %" +680 IF S=-1 THEN S=0:SOUND 1500,1 +690 GOTO 220 + \ No newline at end of file diff --git a/SUCHEN.BAS b/SUCHEN.BAS new file mode 100644 index 0000000..aea260a --- /dev/null +++ b/SUCHEN.BAS @@ -0,0 +1,17 @@ +10 REM +20 INPUT"Wort : ",W$ +30 INPUT"File : ",F$ +40 LET N=0 +50 PRINT +60 OPEN "i",#1,F$ +70 IF EOF(1) THEN GOTO 140 +80 LINE INPUT #1,Z$ +90 IF INSTR(Z$,W$) THEN GOTO 110 +100 GOTO 70 +110 PRINT Z$ +120 LET N=N+1 +130 GOTO 70 +140 CLOSE #1 +150 PRINT +160 PRINT W$;"steht in ",N;" Zeilen von ";F$ + \ No newline at end of file diff --git a/TIMER.BAS b/TIMER.BAS new file mode 100644 index 0000000..4fc627a --- /dev/null +++ b/TIMER.BAS @@ -0,0 +1,67 @@ +10 CLS +20 PRINT"Intern-Time >>> ";TIME$ +30 PRINT"Intern-Date >>> ";DATE$ +40 PRINT +50 INPUT"Date [Day ] : ",A +60 IF A=0 THEN A=1 +70 INPUT"Date [Month ] : ",B +80 IF B=0 THEN B=1 +90 INPUT"Date [Year ] : ",C +100 PRINT +110 PRINT A;".";B;".";C +120 INPUT"Time [Hour's ] : ",D +130 INPUT"Time [Minute's ] : ",E +140 INPUT"Time [Second's ] : ",F +150 PRINT +160 PRINT D;":";E;":";F +170 INPUT"Timer-Date [Day ] : ",G +180 IF G=0 THEN G=1 +190 IF H=0 THEN H=1 +200 INPUT"Timer-Date [Month ] : ",H +210 INPUT"Timer-Date [Year ] : ",I +220 PRINT +230 PRINT G;".";H;".";I +240 INPUT"Timer [Hour's ] : ",J +250 INPUT"Timer [Minute's] : ",K +260 INPUT"Timer [Second's] : ",L +270 A$=INKEY$:IF A$="" THEN 270 +280 CLS +290 PRINT"Sind Sie sicher das die Eingaben stimmen [Y/N] ??? " +300 A$=INKEY$:IF A$="" THEN 300 +310 IF A$="Y" OR A$="y" THEN 340 +320 IF A$="N" OR A$="n" THEN 10 +330 GOTO 300 +340 CLS +350 F=F+1 +360 LOCATE 1,1:PRINT"Intern-Time >>> ";TIME$ +370 LOCATE 2,1:PRINT"Intern-Date >>> ";DATE$ +380 FOR Z=0 TO 4500:NEXT Z +390 LOCATE 1,1:PRINT"Intern-Time >>> ";TIME$ +400 LOCATE 2,1:PRINT"Intern-Date >>> ";DATE$ +410 FOR Z=0 TO 4250:NEXT Z +420 LOCATE 1,1:PRINT"Intern-Time >>> ";TIME$ +430 LOCATE 2,1:PRINT"Intern-Date >>> ";DATE$ +440 FOR Z=0 TO 4000:NEXT Z +450 SOUND 2000,1:SOUND 1000,1 +460 IF F=60 THEN SOUND 37,1:F=0:E=E+1 +470 IF E=60 THEN SOUND 100,1:E=0:D=D+1 +480 IF D=24 THEN SOUND 500,1:D=0:A=A+1 +490 IF A=31 THEN SOUND 1000,1:A=1:B=B+1 +500 IF B=13 THEN SOUND 1500,1:B=1:C=C+1 +510 IF A=G AND B=H AND C=I AND D=J AND E=K AND F=L THEN 600 +520 LOCATE 1,1:PRINT"Intern-Time >>> ";TIME$ +530 LOCATE 2,1:PRINT"Intern-Date >>> ";DATE$ +540 LOCATE 4,1:PRINT"Time >>> ";D;":";E;":";F;" " +550 LOCATE 5,1:PRINT"Date >>> ";A;".";B;".";C;" " +560 LOCATE 7,1:PRINT"Timer-Time >>> ";J;":";K;":";L +570 LOCATE 8,1:PRINT"Timer-Date >>> ";G;".";H;".";I +580 A$=INKEY$:IF A$="" THEN 350 +590 END +600 CLS +610 PRINT"Es ist jetzt ";D;":";E;":";F;" Uhr !!!" +620 PRINT"Es ist der ";A;".";B;".";C;" !!!" +630 SOUND 37,1:SOUND 100,1:SOUND 1000,1:SOUND 2000,1:SOUND 3000,1 +640 A$=INKEY$:IF A$="" THEN 630 +650 CLS +660 END + \ No newline at end of file