mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-12-25 12:04:08 +00:00
Added files as of 9 May 1996.
This commit is contained in:
parent
a834dbdac7
commit
0d2403426d
GPG Key ID:
A9928D7A098C3A9A
129
ABRECHNG.BAS
Normal file
129
ABRECHNG.BAS
Normal file
@ -0,0 +1,129 @@
|
||||
10 CLS
|
||||
20 DIM T(31)
|
||||
30 DIM MA(5)
|
||||
40 COLOR 10:PRINT" Programm zur Berechnung der Zeitzuschl„gen und šberstundenverg<72>tung"
|
||||
50 COLOR 12:PRINT" f<>r Mutti"
|
||||
60 COLOR 15
|
||||
70 PRINT
|
||||
80 PRINT"Besch„ftigungsgrad [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 f<>r WEITER"
|
||||
390 A$=INKEY$:IF A$="" THEN 390
|
||||
400 CLS
|
||||
410 PRINT"20 - 7.85"
|
||||
420 PRINT"88 - 1 zur<75>ck"
|
||||
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 zusammenzuz„hlenden 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
|
||||
|
||||
22
BARGRAPH.DOC
Normal file
22
BARGRAPH.DOC
Normal file
@ -0,0 +1,22 @@
|
||||
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||||
|
||||
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>
|
||||
<EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD> <20><><EFBFBD>
|
||||
24
BLED.BAS
Normal file
24
BLED.BAS
Normal file
@ -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
|
||||
|
||||
72
CB-FUNK.BAS
Normal file
72
CB-FUNK.BAS
Normal file
@ -0,0 +1,72 @@
|
||||
10 KEY OFF
|
||||
20 CLS
|
||||
30 COLOR 12:PRINT"Funkger„t ";: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"B<>rgerlicher Name ";:COLOR 10:PRINT"Birth, Markus"
|
||||
310 COLOR 12:PRINT"Straáe ";: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"Kommunikationskan„le : 1. FM 33"
|
||||
430 PRINT" 2. AM 05"
|
||||
440 PRINT" 3. FM 19"
|
||||
450 PRINT
|
||||
460 COLOR 9:PRINT"Kommunikationszeiten : 1. 07:03 (wenn m”glich)"
|
||||
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"B<>rgerlicher Name ";:COLOR 10:PRINT"Mustermann, Maik"
|
||||
540 COLOR 12:PRINT"Straáe ";: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"Kommunikationskan„le : 1. FM 33"
|
||||
660 PRINT" 2. AM 05"
|
||||
670 PRINT" 3. FM 19"
|
||||
680 PRINT
|
||||
690 COLOR 9:PRINT"Kommunikationszeiten : 1. 07:03 (wenn m”glich)"
|
||||
700 PRINT" 2. 15:00"
|
||||
710 PRINT" 3. 20:15"
|
||||
720 A$=INKEY$:IF A$="" THEN 720
|
||||
730 CLS:COLOR 15:END
|
||||
|
||||
7
COLOR.BAS
Normal file
7
COLOR.BAS
Normal file
@ -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
|
||||
|
||||
41
COLORS.BAS
Normal file
41
COLORS.BAS
Normal file
@ -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$="gr<67>n"
|
||||
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$="hellgr<67>n"
|
||||
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$="gr<67>n [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$="hellgr<67>n [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
|
||||
|
||||
62
COMPUTER.BAS
Normal file
62
COMPUTER.BAS
Normal file
@ -0,0 +1,62 @@
|
||||
10 CLS
|
||||
20 KEY OFF
|
||||
30 COLOR 15
|
||||
40 PRINT"VERHALTENSREGELN FšR DEN COMPUTER"
|
||||
45 LOCATE 25,1:PRINT"VERHALTENSREGELN FšR 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 unauff„llig ";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"K<>mmere 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
|
||||
|
||||
92
DATABANK.BAS
Normal file
92
DATABANK.BAS
Normal file
@ -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
|
||||
|
||||
10
DATAS.BAS
Normal file
10
DATAS.BAS
Normal file
@ -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
|
||||
|
||||
34
DEMO.BAS
Normal file
34
DEMO.BAS
Normal file
@ -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
|
||||
|
||||
13
EKG.BAS
Normal file
13
EKG.BAS
Normal file
@ -0,0 +1,13 @@
|
||||
10 CLS
|
||||
20 GOSUB 110
|
||||
30 COLOR 12:PRINT"EùKùG"
|
||||
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
|
||||
|
||||
36
GRAPHIC.BAS
Normal file
36
GRAPHIC.BAS
Normal file
@ -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
|
||||
|
||||
256
HORO.BAS
Normal file
256
HORO.BAS
Normal file
@ -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 l„át sich in diesem Jahr gar nichts erreichen, und es ist daher "
|
||||
570 PRINT"auch ratsam, nicht gleich mit der T<>r ins Haus zu fallen. Mit Zur<75>ckhaltung "
|
||||
580 PRINT"und Diplomatie - nicht gleich alles sagen, was ihnen auf der Zunge liegt - "
|
||||
590 PRINT"kommen Sie wesentlich besser weiter. In einer pers”nlichen Sache ist eine"
|
||||
600 PRINT"Entscheidung f„llig. Dr<44>cken Sie sich nicht davor"
|
||||
610 PRINT:PRINT:PRINT
|
||||
620 PRINT" ********** Bitte [Space Bar] dr<64>cken **********"
|
||||
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 gef„hrliche Sache. Bevor Sie also mit anderen <20>ber ihren Verdacht reden,"
|
||||
770 PRINT"sollten Sie erst einmal handfeste Indizien sammeln. Andernfalls k”nnte Ihr Ruf"
|
||||
780 PRINT"einen b”sen Knacks bekommen, der Ihnen noch viel Žrger bereiten kann."
|
||||
790 PRINT"In der Liebe ist mehr Objektivit„t notwendig."
|
||||
800 PRINT:PRINT:PRINT
|
||||
810 PRINT" ********** Bitte [Space Bar] dr<64>cken **********"
|
||||
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 sch”ne Zeit mit rundum guten Aussichten liegt vor Ihnen. Sie finden"
|
||||
950 PRINT"zudem an einem Dienstag jemanden, mit dem Sie offen <20>ber Ihre geheimen Žngste"
|
||||
960 PRINT"reden k”nnen und bei dem Sie sich total verstanden f<>hlen. 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] dr<64>cken **********"
|
||||
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 pl”tzlich Zweifel. H”ren 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"f<>llen Sie dem Partner einen Herzenswunsch."
|
||||
1180 PRINT:PRINT:PRINT
|
||||
1190 PRINT" ********** Bitte [Space Bar] dr<64>cken **********"
|
||||
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 W<>rde, so sollten Sie doch ein Ohr da-"
|
||||
1330 PRINT"rauf halten, was zur Zeit hinter Ihrem R<>cken getuschelt wird. Jemand m”chte "
|
||||
1340 PRINT"Ihnen das Leben schwer machen und rechnet fest mit Ihrer vornehmen Zur<75>ckhal-"
|
||||
1350 PRINT"tung. Zeigen Sie ihm sofort die Z„hne und lassen Sie sich nichts gefallen. "
|
||||
1360 PRINT "Ihre Haltung erntet ungeteilten Beifall."
|
||||
1370 PRINT:PRINT:PRINT
|
||||
1380 PRINT" ********** Bitte [Space Bar] dr<64>cken **********"
|
||||
1390 D$=INKEY$:IF D$=" " THEN 1410
|
||||
1400 GOTO 1390
|
||||
1410 BEEP:BEEP:BEEP
|
||||
1420 GOTO 10
|
||||
1430 CLS
|
||||
1440 PRINT" ********** Sternbild : SCHšTZE **********"
|
||||
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 er”ffnen sich Ihnen ab einem Dienstag M”glichkeiten, von denen Sie"
|
||||
1510 PRINT "vor kurzem gar nicht zu tr„umen gewagt h„tten. Greifen Sie zu und handeln Sie,"
|
||||
1520 PRINT "auch wenn Sie anfangs glauben, sich zu <20>bernehmen. Sie schaffen's bestimmt."
|
||||
1530 PRINT "Privat sollten Sie jetzt f<>r klare Verh„ltnisse sorgen und reinen Wein ein-"
|
||||
1540 PRINT "schenken, wo immer noch Unklarheiten bestehen."
|
||||
1550 PRINT :PRINT :PRINT " ********** Bitte [Space Bar] dr<64>cken **********"
|
||||
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 k”nnte sein, daá zu einem Wochenbeginn beh”rdliche Foderungen auf Sie zukom-"
|
||||
1680 PRINT "men, die Ihnen unverst„ndlich 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 Miáverst„nd-"
|
||||
1710 PRINT "nis sind Sie ganz schuldlos."
|
||||
1720 PRINT:PRINT:PRINT" ********** Bitte [Space Bar] dr<64>cken **********"
|
||||
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 "m<>ssen Sie dem Ganzen sofort ein kompromiáloses Ende bereiten, ehe Sie sich"
|
||||
1870 PRINT "wichtige Symphatiien verscherzen."
|
||||
1880 PRINT:PRINT:PRINT" ********** Bitte [Space Bar] dr<64>cken **********"
|
||||
1890 D$=INKEY$:IF D$=" " THEN GOTO 1910
|
||||
1900 GOTO 1890
|
||||
1910 BEEP:BEEP:BEEP
|
||||
1920 GOTO 10
|
||||
1930 CLS
|
||||
1940 PRINT" ********** Sternbild : L™WE **********"
|
||||
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] dr<64>cken ***********"
|
||||
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 Sch”nem 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 Gef<65>hlen"
|
||||
2190 PRINT "gegen<65>berstehen. Folgen Sie Ihrem Instinkt."
|
||||
2200 PRINT:PRINT:PRINT" ********** Bitte [Space Bar] dr<64>cken **********"
|
||||
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 l„nger <20>ber die Unzul„nglichkeiten Ihrer Mit-"
|
||||
2330 PRINT "menschen. K<>mmern Sie sich lieber um die eigenen Angelegenheiten und treiben "
|
||||
2340 PRINT "Sie eine Sache voran, mit der Sie sich reichlich Lorbeeren verdienen k”nnen."
|
||||
2350 PRINT "Die M<>he lohnt bestimmt, auch wenn Sie alles diesmal im Alleingang machen m<>s-"
|
||||
2360 PRINT "sen. Geben Sie Ihr Geld nicht zu sorglos aus!"
|
||||
2370 PRINT:PRINT:PRINT" ********** Bitte [Space Bar] dr<64>cken ***********"
|
||||
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 k”nnen sich diese Woche viel Aufregung ersparen, wenn Sie sich nicht st„n-"
|
||||
2470 PRINT "dig mit zus„tzlicher und obendrein oft auch noch <20>berfl<66>ssiger Arbeit belasten."
|
||||
2480 PRINT "Konzentrieren Sie sich aufs Wesentliche und versuchen Sie nicht, alles allein"
|
||||
2490 PRINT "zu machen. Man ist Ihnen n„hmlich nur zu gern behilflich. Privat meistern Sie"
|
||||
2500 PRINT "eine kleine H<>rde souver„n. Nur keine Panik!"
|
||||
2510 PRINT:PRINT:PRINT" ********** Bitte [Space Bar] dr<64>cken **********"
|
||||
2520 D$=INKEY$:IF D$=" " THEN 2540
|
||||
2530 GOTO 2520
|
||||
2540 BEEP:BEEP:BEEP
|
||||
2550 GOTO 10
|
||||
|
||||
22
IBM1.BAS
Normal file
22
IBM1.BAS
Normal file
@ -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
|
||||
|
||||
27
JOY.BAS
Normal file
27
JOY.BAS
Normal file
@ -0,0 +1,27 @@
|
||||
10 CLS
|
||||
20 PRINT"Dies ist ein Joystick-Test f<>r den HCV 386-DX."
|
||||
30 PRINT"Dr<44>cken 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"
|
||||
|
||||
48
KARTENTR.BAS
Normal file
48
KARTENTR.BAS
Normal file
@ -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
|
||||
|
||||
49
KATER_KN.BAS
Normal file
49
KATER_KN.BAS
Normal file
@ -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 T”chterchen hat einen Spatz, das ist ihr allergr”áter 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 f„hrt nie zu schnell, doch sehr gekonnt.":GOTO 100
|
||||
170 PRINT"Vor unsrer Haust<73>r sitzt ein Hund, der wiegt schon f<>nfunddreiáig Pfund.":GOTO 100
|
||||
180 PRINT"Wir haben einen bunten Hahn, der f„hrt 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 fr<66>h bis sp„t, obwohl ihm nie ein Lied ger„t.":GOTO 110
|
||||
230 PRINT"Friát hundert Kilo Heu am Tag, viel Brot und was er sonst noch mag.":GOTO 110
|
||||
240 PRINT"F„ngt er sich eine kleine Maus, schimpft er sie sieben Stunden aus.":GOTO 110
|
||||
250 PRINT"F„hrt f<>nfzehn Jahre unfallfrei, und das freut auch die Polizei.":GOTO 110
|
||||
260 PRINT"Er spitzt die Ohren, lauscht und blefft und blifft und blafft und bl”fft und kl„fft.":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 Himmelsschl<68>sselwiese.":GOTO 110
|
||||
290 PRINT"Ach w<>rde er zum Zahnarzt gehn, dann k”nnte 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 vergn<67>gten 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 st”hnt:Ach, wie ist man doch schon verw”hnt."
|
||||
360 A$=INKEY$:IF A$="" THEN 360 ELSE RUN
|
||||
370 PRINT"Doch jede dritte Nacht im Traum f„hrt er an einen dicken Baum."
|
||||
380 A$=INKEY$:IF A$="" THEN 380 ELSE RUN
|
||||
390 PRINT"Kommt ein Gewitter, reiát er aus und kricht vor Angst ins H<>hnerhaus."
|
||||
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 f„hrt er zur Olympiade, wenn nicht, dann w„re 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 w„chst er schnell wie Kuckucksklee."
|
||||
480 A$=INKEY$:IF A$="" THEN 480 ELSE RUN
|
||||
|
||||
25
KNIGHT2.BAS
Normal file
25
KNIGHT2.BAS
Normal file
@ -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
|
||||
|
||||
59
KOO.BAS
Normal file
59
KOO.BAS
Normal file
@ -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
|
||||
|
||||
9
KREIS.BAS
Normal file
9
KREIS.BAS
Normal file
@ -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
|
||||
|
||||
11
LAUFSCHR/FARBEN.DOC
Normal file
11
LAUFSCHR/FARBEN.DOC
Normal file
@ -0,0 +1,11 @@
|
||||
Normale Farben:
|
||||
00 - Schwarz 01 - Dunkelblau 02 - Dunkelgr<67>n 03 - Dunkelcyan
|
||||
04 - Dunkelrot 05 - Dunkelviolett 06 - Braun 07 - Hellgrau
|
||||
08 - Grau 09 - Blau 10 - Hellgr<67>n 11 - Hellblau
|
||||
12 - Hellrot 13 - Hellviolett 14 - Gelb 15 - Weiá
|
||||
|
||||
Blinkende Farben:
|
||||
16 - Schwarz 17 - Dunkelblau 18 - Dunkelgr<67>n 19 - Dunkelcyan
|
||||
20 - Dunkelrot 21 - Dunkelviolett 22 - Braun 23 - Hellgrau
|
||||
24 - Grau 25 - Blau 26 - Hellgr<67>n 27 - Hellblau
|
||||
28 - Hellrot 29 - Hellviolett 30 - Gelb 31 - Weiá
|
||||
11
LAUFSCHR/LAUFTEXT.L2D
Normal file
11
LAUFSCHR/LAUFTEXT.L2D
Normal file
@ -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
|
||||
33
MOPS.BAS
Normal file
33
MOPS.BAS
Normal file
@ -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" <20>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
|
||||
|
||||
34
MOUSE.BAS
Normal file
34
MOUSE.BAS
Normal file
@ -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
|
||||
|
||||
35
OHM.BAS
Normal file
35
OHM.BAS
Normal file
@ -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,"GRšN",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
|
||||
|
||||
40
OUTRUN.BAS
Normal file
40
OUTRUN.BAS
Normal file
@ -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 dr<64>cken !!!"
|
||||
70 PRINT
|
||||
80 PRINT"Zum Start bitte Taste dr<64>cken !!!"
|
||||
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
|
||||
|
||||
6
PRINT.BAS
Normal file
6
PRINT.BAS
Normal file
@ -0,0 +1,6 @@
|
||||
10 CLS
|
||||
20 A$=INKEY$:IF A$="" THEN 20
|
||||
30 PRINT A$;
|
||||
40 LPRINT A$;
|
||||
50 GOTO 20
|
||||
|
||||
29
RATEFIX.BAS
Normal file
29
RATEFIX.BAS
Normal file
@ -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 grӇere 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 dr<64>cken !!!"
|
||||
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
|
||||
|
||||
123
RECHNEN.BAS
Normal file
123
RECHNEN.BAS
Normal file
@ -0,0 +1,123 @@
|
||||
10 CLS
|
||||
20 PRINT" *************** Reckonmashine ***************"
|
||||
30 PRINT:PRINT"Welche Rechenart wird gew<65>nscht ???"
|
||||
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 gel”scht 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 dr<64>cken Sie die Funktions-Taste II"
|
||||
1580 PRINT"(Falls Sie noch den Befehl >>>RUN+Enter<<< enth„lt !!!)
|
||||
1590 PRINT"BREAK in 1590"
|
||||
1600 LOAD"BREAK.NEW"
|
||||
|
||||
5
RUFTON1.BAS
Normal file
5
RUFTON1.BAS
Normal file
@ -0,0 +1,5 @@
|
||||
10 CLS
|
||||
20 SOUND 500,17.5
|
||||
30 FOR Z=0 TO 124998.75#:NEXT
|
||||
40 GOTO 20
|
||||
|
||||
19
SCHREIBE.BAS
Normal file
19
SCHREIBE.BAS
Normal file
@ -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
|
||||
|
||||
14
SELFTEST.BAS
Normal file
14
SELFTEST.BAS
Normal file
@ -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
|
||||
|
||||
13
SIREN.BAS
Normal file
13
SIREN.BAS
Normal file
@ -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
|
||||
|
||||
49
SONNE.BAS
Normal file
49
SONNE.BAS
Normal file
@ -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
|
||||
|
||||
60
STEUER.BAS
Normal file
60
STEUER.BAS
Normal file
@ -0,0 +1,60 @@
|
||||
10 CLS
|
||||
20 S=0
|
||||
30 REM COLOR 12=ROT
|
||||
40 REM COLOR 10=GRšN
|
||||
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
|
||||
|
||||
60
STEUER2.BAS
Normal file
60
STEUER2.BAS
Normal file
@ -0,0 +1,60 @@
|
||||
10 CLS:LOCATE 1,1
|
||||
20 S=0
|
||||
30 REM COLOR 12=ROT
|
||||
40 REM COLOR 10=GRšN
|
||||
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
|
||||
|
||||
70
STEUER3.BAS
Normal file
70
STEUER3.BAS
Normal file
@ -0,0 +1,70 @@
|
||||
10 CLS:LOCATE 1,1
|
||||
20 S=0
|
||||
30 REM COLOR 12=ROT
|
||||
40 REM COLOR 10=GRšN
|
||||
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
|
||||
|
||||
64
STEUER4.BAS
Normal file
64
STEUER4.BAS
Normal file
@ -0,0 +1,64 @@
|
||||
10 CLS:LOCATE 1,1
|
||||
20 S=0
|
||||
30 REM COLOR 12=ROT
|
||||
40 REM COLOR 10=GRšN
|
||||
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
|
||||
|
||||
17
SUCHEN.BAS
Normal file
17
SUCHEN.BAS
Normal file
@ -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$
|
||||
|
||||
67
TIMER.BAS
Normal file
67
TIMER.BAS
Normal file
@ -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
|
||||
|
||||
Loading…
Reference in New Issue
Block a user