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