Added multiple scripts as of 14 Dec 1995.
This commit is contained in:
+161
@@ -0,0 +1,161 @@
|
||||
10 KEY OFF
|
||||
20 COLOR 12,0,0
|
||||
30 CLS
|
||||
40 PRINT"ÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛÛÛ"
|
||||
50 PRINT"ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ"
|
||||
60 PRINT"ÛÛ ÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛ"
|
||||
70 PRINT"ÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛ"
|
||||
80 PRINT"ÛÛÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛ"
|
||||
90 PRINT
|
||||
100 COLOR 15:PRINT"Geschrieben in C64-Basic von"
|
||||
110 COLOR 11:PRINT"Markus Birth";CHR$(44);" dem besten Freund von"
|
||||
120 COLOR 13:PRINT"Computern"
|
||||
130 COLOR 15
|
||||
140 LOCATE 23,25:PRINT"Programmstart mit Tastendruck"
|
||||
150 A$=INKEY$:IF A$="" THEN 150
|
||||
160 REM *** Hauptroutine ***
|
||||
170 CLS
|
||||
180 PRINT"Bitte geben Sie die genaue Uhrzeit ein"
|
||||
190 PRINT"oder dr�cken Sie [ENTER] f�r die interne Uhr"
|
||||
200 PRINT
|
||||
210 INPUT"Uhrzeit [HH:MM:SS] :",TIM$
|
||||
220 IF TIM$="" THEN TIM$=TIME$
|
||||
230 IF MID$(TIM$,3,1)<>":" THEN GOTO 270
|
||||
240 IF MID$(TIM$,6,1)<>":" THEN GOTO 270
|
||||
250 IF LEN(TIM$)<>8 THEN 270
|
||||
260 GOTO 310
|
||||
270 REM *** Fehler bei eingabe
|
||||
280 PRINT:PRINT"Die Zeit wurde falsch eingegeben!!!"
|
||||
290 PRINT"Bitte wiederholen Sie den Vorgang!"
|
||||
300 GOTO 210
|
||||
310 TIME$=TIM$
|
||||
320 PRINT
|
||||
330 PRINT"Die momentane Uhrzeit ist: "
|
||||
340 PRINT TIM$
|
||||
350 PRINT
|
||||
360 PRINT"Stimmt das [J/N]?"
|
||||
370 A$=INKEY$:IF A$="" THEN 370
|
||||
380 IF A$="j" OR A$="J" THEN 410
|
||||
390 IF A$="n" OR A$="N" THEN 160
|
||||
400 GOTO 370
|
||||
410 REM *** Anzeigeroutine ***
|
||||
420 CLS
|
||||
430 LOCATE 2,23:PRINT"ÛÛ"
|
||||
440 LOCATE 4,23:PRINT"ÛÛ"
|
||||
450 LOCATE 2,56:PRINT"ÛÛ"
|
||||
460 LOCATE 4,56:PRINT"ÛÛ"
|
||||
470 Z=VAL(LEFT$(TIME$,1))
|
||||
480 X=1
|
||||
490 GOSUB 660
|
||||
500 Z=VAL(MID$(TIME$,2,1))
|
||||
510 X=9
|
||||
520 GOSUB 660
|
||||
530 Z=VAL(MID$(TIME$,4,1))
|
||||
540 X=33
|
||||
550 GOSUB 660
|
||||
560 Z=VAL(MID$(TIME$,5,1))
|
||||
570 X=41
|
||||
580 GOSUB 660
|
||||
590 Z=VAL(MID$(TIME$,7,1))
|
||||
600 X=66
|
||||
610 GOSUB 660
|
||||
620 Z=VAL(RIGHT$(TIME$,1))
|
||||
630 X=74
|
||||
640 GOSUB 660
|
||||
650 GOTO 470
|
||||
660 REM *** Anzeigeroutine ***
|
||||
670 IF Z=0 THEN GOSUB 780
|
||||
680 IF Z=1 THEN GOSUB 860
|
||||
690 IF Z=2 THEN GOSUB 940
|
||||
700 IF Z=3 THEN GOSUB 1020
|
||||
710 IF Z=4 THEN GOSUB 1110
|
||||
720 IF Z=5 THEN GOSUB 1200
|
||||
730 IF Z=6 THEN GOSUB 1290
|
||||
740 IF Z=7 THEN GOSUB 1370
|
||||
750 IF Z=8 THEN GOSUB 1450
|
||||
760 IF Z=9 THEN GOSUB 1530
|
||||
770 RETURN
|
||||
780 REM NULL - 0
|
||||
790 COLOR 10
|
||||
800 LOCATE 1,X:PRINT" ÛÛÛÛ "
|
||||
810 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
820 LOCATE 3,X:PRINT" Û Û "
|
||||
830 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||||
840 LOCATE 5,X:PRINT" ÛÛÛÛ "
|
||||
850 RETURN
|
||||
860 REM EINS - 1
|
||||
870 COLOR 10
|
||||
880 LOCATE 1,X:PRINT" Û "
|
||||
890 LOCATE 2,X:PRINT" ÛÛ"
|
||||
900 LOCATE 3,X:PRINT" Û "
|
||||
910 LOCATE 4,X:PRINT" ÛÛ"
|
||||
920 LOCATE 5,X:PRINT" Û "
|
||||
930 RETURN
|
||||
940 REM ZWEI - 2
|
||||
950 COLOR 10
|
||||
960 LOCATE 1,X:PRINT" ÛÛÛÛ "
|
||||
970 LOCATE 2,X:PRINT" ÛÛ"
|
||||
980 LOCATE 3,X:PRINT" ÛÛÛÛ "
|
||||
990 LOCATE 4,X:PRINT"ÛÛ "
|
||||
1000 LOCATE 5,X:PRINT" ÛÛÛÛ "
|
||||
1010 RETURN
|
||||
1020 REM DREI - 3
|
||||
1030 COLOR 10
|
||||
1040 IF X=33 OR X=66 THEN COLOR 14
|
||||
1050 LOCATE 1,X:PRINT" ÛÛÛÛ "
|
||||
1060 LOCATE 2,X:PRINT" ÛÛ"
|
||||
1070 LOCATE 3,X:PRINT" ÛÛÛ "
|
||||
1080 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1090 LOCATE 5,X:PRINT" ÛÛÛÛ "
|
||||
1100 RETURN
|
||||
1110 REM VIER - 4
|
||||
1120 COLOR 10
|
||||
1130 IF X=33 OR X=66 THEN COLOR 14
|
||||
1140 LOCATE 1,X:PRINT" Û Û "
|
||||
1150 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1160 LOCATE 3,X:PRINT" ÛÛÛÛ "
|
||||
1170 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1180 LOCATE 5,X:PRINT" Û "
|
||||
1190 RETURN
|
||||
1200 REM FšNF - 5
|
||||
1210 COLOR 14
|
||||
1220 IF X=33 OR X=66 THEN COLOR 12
|
||||
1230 LOCATE 1,X:PRINT" ÛÛÛÛ "
|
||||
1240 LOCATE 2,X:PRINT"ÛÛ "
|
||||
1250 LOCATE 3,X:PRINT" ÛÛÛÛ "
|
||||
1260 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1270 LOCATE 5,X:PRINT" ÛÛÛÛ "
|
||||
1280 RETURN
|
||||
1290 REM SECHS - 6
|
||||
1300 COLOR 14
|
||||
1310 LOCATE 1,X:PRINT" Û "
|
||||
1320 LOCATE 2,X:PRINT"ÛÛ "
|
||||
1330 LOCATE 3,X:PRINT" ÛÛÛÛ "
|
||||
1340 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||||
1350 LOCATE 5,X:PRINT" ÛÛÛÛ "
|
||||
1360 RETURN
|
||||
1370 REM SIEBEN - 7
|
||||
1380 COLOR 14
|
||||
1390 LOCATE 1,X:PRINT" ÛÛÛÛ "
|
||||
1400 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1410 LOCATE 3,X:PRINT" Û "
|
||||
1420 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1430 LOCATE 5,X:PRINT" Û "
|
||||
1440 RETURN
|
||||
1450 REM ACHT - 8
|
||||
1460 COLOR 12
|
||||
1470 LOCATE 1,X:PRINT" ÛÛÛÛ "
|
||||
1480 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1490 LOCATE 3,X:PRINT" ÛÛÛÛ "
|
||||
1500 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||||
1510 LOCATE 5,X:PRINT" ÛÛÛÛ "
|
||||
1520 RETURN
|
||||
1530 REM NEUN - 9
|
||||
1540 COLOR 12
|
||||
1550 LOCATE 1,X:PRINT" ÛÛÛÛ "
|
||||
1560 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1570 LOCATE 3,X:PRINT" ÛÛÛÛ "
|
||||
1580 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1590 LOCATE 5,X:PRINT" Û "
|
||||
1600 RETURN
|
||||
|
||||
+148
@@ -0,0 +1,148 @@
|
||||
10 KEY OFF
|
||||
20 COLOR 12,0,0
|
||||
30 CLS
|
||||
40 PRINT"ÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛÛÛ"
|
||||
50 PRINT"ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ"
|
||||
60 PRINT"ÛÛ ÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛ"
|
||||
70 PRINT"ÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛ"
|
||||
80 PRINT"ÛÛÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛ"
|
||||
90 PRINT
|
||||
100 COLOR 15:PRINT"Geschrieben in C64-Basic von"
|
||||
110 COLOR 11:PRINT"Markus Birth";CHR$(44);" dem besten Freund von"
|
||||
120 COLOR 13:PRINT"Computern"
|
||||
130 COLOR 15
|
||||
140 LOCATE 23,25:PRINT"Programmstart mit Tastendruck"
|
||||
150 A$=INKEY$:IF A$="" THEN 150
|
||||
160 REM *** Hauptroutine ***
|
||||
170 CLS
|
||||
180 PRINT"Bitte geben Sie die genaue Uhrzeit ein"
|
||||
190 PRINT"oder dr�cken Sie [ENTER] f�r die interne Uhr"
|
||||
200 PRINT
|
||||
210 INPUT"Uhrzeit [HH:MM:SS] :",TIM$
|
||||
220 IF TIM$="" THEN TIM$=TIME$
|
||||
230 IF MID$(TIM$,3,1)<>":" THEN GOTO 270
|
||||
240 IF MID$(TIM$,6,1)<>":" THEN GOTO 270
|
||||
250 IF LEN(TIM$)<>8 THEN 270
|
||||
260 GOTO 310
|
||||
270 REM *** Fehler bei eingabe
|
||||
280 PRINT:PRINT"Die Zeit wurde falsch eingegeben!!!"
|
||||
290 PRINT"Bitte wiederholen Sie den Vorgang!"
|
||||
300 GOTO 210
|
||||
310 TIME$=TIM$
|
||||
320 PRINT
|
||||
330 PRINT"Die momentane Uhrzeit ist: "
|
||||
340 PRINT TIM$
|
||||
350 PRINT
|
||||
360 PRINT"Stimmt das [J/N]?"
|
||||
370 A$=INKEY$:IF A$="" THEN 370
|
||||
380 IF A$="j" OR A$="J" THEN 410
|
||||
390 IF A$="n" OR A$="N" THEN 160
|
||||
400 GOTO 370
|
||||
410 REM *** Anzeigeroutine ***
|
||||
420 CLS
|
||||
430 LOCATE 2,23:PRINT"ÛÛ"
|
||||
440 LOCATE 4,23:PRINT"ÛÛ"
|
||||
450 LOCATE 2,56:PRINT"ÛÛ"
|
||||
460 LOCATE 4,56:PRINT"ÛÛ"
|
||||
470 Z=VAL(LEFT$(TIME$,1))
|
||||
480 X=1
|
||||
490 GOSUB 660
|
||||
500 Z=VAL(MID$(TIME$,2,1))
|
||||
510 X=9
|
||||
520 GOSUB 660
|
||||
530 Z=VAL(MID$(TIME$,4,1))
|
||||
540 X=33
|
||||
550 GOSUB 660
|
||||
560 Z=VAL(MID$(TIME$,5,1))
|
||||
570 X=41
|
||||
580 GOSUB 660
|
||||
590 Z=VAL(MID$(TIME$,7,1))
|
||||
600 X=66
|
||||
610 GOSUB 660
|
||||
620 Z=VAL(RIGHT$(TIME$,1))
|
||||
630 X=74
|
||||
640 GOSUB 660
|
||||
650 GOTO 470
|
||||
660 REM *** Anzeigeroutine ***
|
||||
670 IF Z=0 THEN GOSUB 780
|
||||
680 IF Z=1 THEN GOSUB 850
|
||||
690 IF Z=2 THEN GOSUB 920
|
||||
700 IF Z=3 THEN GOSUB 990
|
||||
710 IF Z=4 THEN GOSUB 1060
|
||||
720 IF Z=5 THEN GOSUB 1130
|
||||
730 IF Z=6 THEN GOSUB 1200
|
||||
740 IF Z=7 THEN GOSUB 1270
|
||||
750 IF Z=8 THEN GOSUB 1340
|
||||
760 IF Z=9 THEN GOSUB 1410
|
||||
770 RETURN
|
||||
780 REM NULL - 0
|
||||
790 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
800 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
810 LOCATE 3,X:PRINT"ÛÛ ÛÛ"
|
||||
820 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||||
830 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
840 RETURN
|
||||
850 REM EINS - 1
|
||||
860 LOCATE 1,X:PRINT" ÛÛ"
|
||||
870 LOCATE 2,X:PRINT" ÛÛ"
|
||||
880 LOCATE 3,X:PRINT" ÛÛ"
|
||||
890 LOCATE 4,X:PRINT" ÛÛ"
|
||||
900 LOCATE 5,X:PRINT" ÛÛ"
|
||||
910 RETURN
|
||||
920 REM ZWEI - 2
|
||||
930 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
940 LOCATE 2,X:PRINT" ÛÛ"
|
||||
950 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
960 LOCATE 4,X:PRINT"ÛÛ "
|
||||
970 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
980 RETURN
|
||||
990 REM DREI - 3
|
||||
1000 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1010 LOCATE 2,X:PRINT" ÛÛ"
|
||||
1020 LOCATE 3,X:PRINT" ÛÛÛÛ"
|
||||
1030 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1040 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1050 RETURN
|
||||
1060 REM VIER - 4
|
||||
1070 LOCATE 1,X:PRINT"ÛÛ ÛÛ"
|
||||
1080 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1090 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1100 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1110 LOCATE 5,X:PRINT" ÛÛ"
|
||||
1120 RETURN
|
||||
1130 REM FšNF - 5
|
||||
1140 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1150 LOCATE 2,X:PRINT"ÛÛ "
|
||||
1160 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1170 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1180 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1190 RETURN
|
||||
1200 REM SECHS - 6
|
||||
1210 LOCATE 1,X:PRINT"ÛÛ "
|
||||
1220 LOCATE 2,X:PRINT"ÛÛ "
|
||||
1230 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1240 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||||
1250 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1260 RETURN
|
||||
1270 REM SIEBEN - 7
|
||||
1280 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1290 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1300 LOCATE 3,X:PRINT" ÛÛ"
|
||||
1310 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1320 LOCATE 5,X:PRINT" ÛÛ"
|
||||
1330 RETURN
|
||||
1340 REM ACHT - 8
|
||||
1350 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1360 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1370 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1380 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||||
1390 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1400 RETURN
|
||||
1410 REM NEUN - 9
|
||||
1420 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1430 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1440 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1450 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1460 LOCATE 5,X:PRINT" ÛÛ"
|
||||
1470 RETURN
|
||||
|
||||
+112
@@ -0,0 +1,112 @@
|
||||
10 KEY OFF
|
||||
20 COLOR 15,0,0
|
||||
30 IF TIM$="" THEN TIM$=TIME$
|
||||
40 REM *** Anzeigeroutine ***
|
||||
50 CLS
|
||||
60 LOCATE 2,23:PRINT"ÛÛ"
|
||||
70 LOCATE 4,23:PRINT"ÛÛ"
|
||||
80 LOCATE 2,56:PRINT"ÛÛ"
|
||||
90 LOCATE 4,56:PRINT"ÛÛ"
|
||||
100 Z=VAL(LEFT$(TIME$,1))
|
||||
110 X=1
|
||||
120 GOSUB 290
|
||||
130 Z=VAL(MID$(TIME$,2,1))
|
||||
140 X=9
|
||||
150 GOSUB 290
|
||||
160 Z=VAL(MID$(TIME$,4,1))
|
||||
170 X=33
|
||||
180 GOSUB 290
|
||||
190 Z=VAL(MID$(TIME$,5,1))
|
||||
200 X=41
|
||||
210 GOSUB 290
|
||||
220 Z=VAL(MID$(TIME$,7,1))
|
||||
230 X=66
|
||||
240 GOSUB 290
|
||||
250 Z=VAL(RIGHT$(TIME$,1))
|
||||
260 X=74
|
||||
270 GOSUB 290
|
||||
280 GOTO 100
|
||||
290 REM *** Anzeigeroutine ***
|
||||
300 INK$=INKEY$:IF INK$=CHR$(27) THEN SYSTEM
|
||||
310 IF Z=0 THEN GOSUB 420
|
||||
320 IF Z=1 THEN GOSUB 490
|
||||
330 IF Z=2 THEN GOSUB 560
|
||||
340 IF Z=3 THEN GOSUB 630
|
||||
350 IF Z=4 THEN GOSUB 700
|
||||
360 IF Z=5 THEN GOSUB 770
|
||||
370 IF Z=6 THEN GOSUB 840
|
||||
380 IF Z=7 THEN GOSUB 910
|
||||
390 IF Z=8 THEN GOSUB 980
|
||||
400 IF Z=9 THEN GOSUB 1050
|
||||
410 RETURN
|
||||
420 REM NULL - 0
|
||||
430 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
440 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
450 LOCATE 3,X:PRINT"ÛÛ ÛÛ"
|
||||
460 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||||
470 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
480 RETURN
|
||||
490 REM EINS - 1
|
||||
500 LOCATE 1,X:PRINT" ÛÛ"
|
||||
510 LOCATE 2,X:PRINT" ÛÛ"
|
||||
520 LOCATE 3,X:PRINT" ÛÛ"
|
||||
530 LOCATE 4,X:PRINT" ÛÛ"
|
||||
540 LOCATE 5,X:PRINT" ÛÛ"
|
||||
550 RETURN
|
||||
560 REM ZWEI - 2
|
||||
570 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
580 LOCATE 2,X:PRINT" ÛÛ"
|
||||
590 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
600 LOCATE 4,X:PRINT"ÛÛ "
|
||||
610 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
620 RETURN
|
||||
630 REM DREI - 3
|
||||
640 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
650 LOCATE 2,X:PRINT" ÛÛ"
|
||||
660 LOCATE 3,X:PRINT" ÛÛÛÛ"
|
||||
670 LOCATE 4,X:PRINT" ÛÛ"
|
||||
680 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
690 RETURN
|
||||
700 REM VIER - 4
|
||||
710 LOCATE 1,X:PRINT"ÛÛ ÛÛ"
|
||||
720 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
730 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
740 LOCATE 4,X:PRINT" ÛÛ"
|
||||
750 LOCATE 5,X:PRINT" ÛÛ"
|
||||
760 RETURN
|
||||
770 REM FšNF - 5
|
||||
780 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
790 LOCATE 2,X:PRINT"ÛÛ "
|
||||
800 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
810 LOCATE 4,X:PRINT" ÛÛ"
|
||||
820 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
830 RETURN
|
||||
840 REM SECHS - 6
|
||||
850 LOCATE 1,X:PRINT"ÛÛ "
|
||||
860 LOCATE 2,X:PRINT"ÛÛ "
|
||||
870 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
880 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||||
890 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
900 RETURN
|
||||
910 REM SIEBEN - 7
|
||||
920 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
930 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
940 LOCATE 3,X:PRINT" ÛÛ"
|
||||
950 LOCATE 4,X:PRINT" ÛÛ"
|
||||
960 LOCATE 5,X:PRINT" ÛÛ"
|
||||
970 RETURN
|
||||
980 REM ACHT - 8
|
||||
990 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1000 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1010 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1020 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||||
1030 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1040 RETURN
|
||||
1050 REM NEUN - 9
|
||||
1060 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1070 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1080 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1090 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1100 LOCATE 5,X:PRINT" ÛÛ"
|
||||
1110 RETURN
|
||||
|
||||
+136
@@ -0,0 +1,136 @@
|
||||
10 KEY OFF
|
||||
20 COLOR 15,0,0
|
||||
30 REM *** Hauptroutine ***
|
||||
40 CLS
|
||||
50 IF TI=2 THEN GOTO 290
|
||||
60 PRINT"Bitte geben Sie die genaue Uhrzeit ein"
|
||||
70 PRINT"oder dr�cken Sie [ENTER] f�r die interne Uhr"
|
||||
80 PRINT
|
||||
90 INPUT"Uhrzeit [HH:MM:SS] :",TIM$
|
||||
100 IF TIM$="" THEN TIM$=TIME$
|
||||
110 IF MID$(TIM$,3,1)<>":" THEN GOTO 150
|
||||
120 IF MID$(TIM$,6,1)<>":" THEN GOTO 150
|
||||
130 IF LEN(TIM$)<>8 THEN 150
|
||||
140 GOTO 190
|
||||
150 REM *** Fehler bei eingabe
|
||||
160 PRINT:PRINT"Die Zeit wurde falsch eingegeben!!!"
|
||||
170 PRINT"Bitte wiederholen Sie den Vorgang!"
|
||||
180 GOTO 90
|
||||
190 TIME$=TIM$
|
||||
200 PRINT
|
||||
210 PRINT"Die momentane Uhrzeit ist: "
|
||||
220 PRINT TIM$
|
||||
230 PRINT
|
||||
240 PRINT"Stimmt das [J/N]?"
|
||||
250 A$=INKEY$:IF A$="" THEN 250
|
||||
260 IF A$="j" OR A$="J" THEN 290
|
||||
270 IF A$="n" OR A$="N" THEN 30
|
||||
280 GOTO 250
|
||||
290 REM *** Anzeigeroutine ***
|
||||
300 CLS
|
||||
310 LOCATE 2,23:PRINT"ÛÛ"
|
||||
320 LOCATE 4,23:PRINT"ÛÛ"
|
||||
330 LOCATE 2,56:PRINT"ÛÛ"
|
||||
340 LOCATE 4,56:PRINT"ÛÛ"
|
||||
350 Z=VAL(LEFT$(TIME$,1))
|
||||
360 X=1
|
||||
370 GOSUB 540
|
||||
380 Z=VAL(MID$(TIME$,2,1))
|
||||
390 X=9
|
||||
400 GOSUB 540
|
||||
410 Z=VAL(MID$(TIME$,4,1))
|
||||
420 X=33
|
||||
430 GOSUB 540
|
||||
440 Z=VAL(MID$(TIME$,5,1))
|
||||
450 X=41
|
||||
460 GOSUB 540
|
||||
470 Z=VAL(MID$(TIME$,7,1))
|
||||
480 X=66
|
||||
490 GOSUB 540
|
||||
500 Z=VAL(RIGHT$(TIME$,1))
|
||||
510 X=74
|
||||
520 GOSUB 540
|
||||
530 GOTO 350
|
||||
540 REM *** Anzeigeroutine ***
|
||||
550 IF Z=0 THEN GOSUB 660
|
||||
560 IF Z=1 THEN GOSUB 730
|
||||
570 IF Z=2 THEN GOSUB 800
|
||||
580 IF Z=3 THEN GOSUB 870
|
||||
590 IF Z=4 THEN GOSUB 940
|
||||
600 IF Z=5 THEN GOSUB 1010
|
||||
610 IF Z=6 THEN GOSUB 1080
|
||||
620 IF Z=7 THEN GOSUB 1150
|
||||
630 IF Z=8 THEN GOSUB 1220
|
||||
640 IF Z=9 THEN GOSUB 1290
|
||||
650 RETURN
|
||||
660 REM NULL - 0
|
||||
670 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
680 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
690 LOCATE 3,X:PRINT"ÛÛ ÛÛ"
|
||||
700 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||||
710 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
720 RETURN
|
||||
730 REM EINS - 1
|
||||
740 LOCATE 1,X:PRINT" ÛÛ"
|
||||
750 LOCATE 2,X:PRINT" ÛÛ"
|
||||
760 LOCATE 3,X:PRINT" ÛÛ"
|
||||
770 LOCATE 4,X:PRINT" ÛÛ"
|
||||
780 LOCATE 5,X:PRINT" ÛÛ"
|
||||
790 RETURN
|
||||
800 REM ZWEI - 2
|
||||
810 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
820 LOCATE 2,X:PRINT" ÛÛ"
|
||||
830 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
840 LOCATE 4,X:PRINT"ÛÛ "
|
||||
850 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
860 RETURN
|
||||
870 REM DREI - 3
|
||||
880 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
890 LOCATE 2,X:PRINT" ÛÛ"
|
||||
900 LOCATE 3,X:PRINT" ÛÛÛÛ"
|
||||
910 LOCATE 4,X:PRINT" ÛÛ"
|
||||
920 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
930 RETURN
|
||||
940 REM VIER - 4
|
||||
950 LOCATE 1,X:PRINT"ÛÛ ÛÛ"
|
||||
960 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
970 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
980 LOCATE 4,X:PRINT" ÛÛ"
|
||||
990 LOCATE 5,X:PRINT" ÛÛ"
|
||||
1000 RETURN
|
||||
1010 REM FšNF - 5
|
||||
1020 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1030 LOCATE 2,X:PRINT"ÛÛ "
|
||||
1040 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1050 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1060 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1070 RETURN
|
||||
1080 REM SECHS - 6
|
||||
1090 LOCATE 1,X:PRINT"ÛÛ "
|
||||
1100 LOCATE 2,X:PRINT"ÛÛ "
|
||||
1110 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1120 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||||
1130 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1140 RETURN
|
||||
1150 REM SIEBEN - 7
|
||||
1160 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1170 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1180 LOCATE 3,X:PRINT" ÛÛ"
|
||||
1190 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1200 LOCATE 5,X:PRINT" ÛÛ"
|
||||
1210 RETURN
|
||||
1220 REM ACHT - 8
|
||||
1230 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1240 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1250 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1260 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||||
1270 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1280 RETURN
|
||||
1290 REM NEUN - 9
|
||||
1300 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1310 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1320 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1330 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1340 LOCATE 5,X:PRINT" ÛÛ"
|
||||
1350 RETURN
|
||||
|
||||
@@ -0,0 +1,97 @@
|
||||
10 CLS
|
||||
20 COLOR 15
|
||||
30 PRINT"UHR.BAS by RoboCop"
|
||||
40 PRINT
|
||||
50 PRINT"W„hlen Sie eine Funktion:"
|
||||
60 PRINT
|
||||
70 PRINT"01 - Uhr"
|
||||
80 PRINT"02 - Wecker"
|
||||
90 PRINT"03 - Timer"
|
||||
100 PRINT"04 - int. Uhr stellen"
|
||||
110 PRINT"05 - int. Datum stellen"
|
||||
120 PRINT
|
||||
130 PRINT"Geben Sie die Kennziffer ein --->"
|
||||
140 LOCATE 11,35:PRINT"--"
|
||||
150 LOCATE 13,1:PRINT"--------------"
|
||||
160 A=0
|
||||
170 A$=INKEY$:IF A$="" THEN GOTO 170
|
||||
180 IF A=0 THEN WAHL=VAL(A$)*10:LOCATE 11,35:PRINT A$
|
||||
190 IF A=1 THEN WAHL=VAL(A$)+WAHL:LOCATE 11,36:PRINT A$
|
||||
200 A=A+1
|
||||
210 IF A=2 THEN GOTO 230
|
||||
220 GOTO 170
|
||||
230 REM
|
||||
240 IF WAHL=1 THEN GOTO 320
|
||||
250 IF WAHL=2 THEN
|
||||
260 IF WAHL=3 THEN
|
||||
270 IF WAHL=4 THEN GOTO 610
|
||||
280 IF WAHL=5 THEN
|
||||
290 LOCATE 13,1:PRINT"Falscheingabe!"
|
||||
300 FOR Z=0 TO 9000:NEXT
|
||||
310 LOCATE 1,1:A=-1:GOTO 30
|
||||
320 REM WAHL=1
|
||||
330 LOCATE 5,1:COLOR 31:PRINT"01 - Uhr"
|
||||
340 FOR Z=0 TO 20000:NEXT
|
||||
350 CLS
|
||||
360 COLOR 14
|
||||
370 A=0
|
||||
380 A=A+1
|
||||
390 H$=LEFT$(TIME$,2)
|
||||
400 M$=MID$(TIME$,4,2)
|
||||
410 S$=RIGHT$(TIME$,2)
|
||||
420 H=VAL(H$)
|
||||
430 M=VAL(M$)
|
||||
440 S=VAL(S$)
|
||||
450 MS=M+(S/100)
|
||||
460 IF A=1 THEN V=S
|
||||
470 IF V+1=60 THEN V=-1
|
||||
480 IF V+1=S THEN GOTO 500
|
||||
490 GOTO 380
|
||||
500 LOCATE 12,36
|
||||
510 IF S=15 OR S=45 THEN SOUND 500,1:GOTO 590
|
||||
520 IF S=30 THEN SOUND 1000,1:GOTO 590
|
||||
530 IF S=0 THEN SOUND 3000,1:GOTO 590
|
||||
540 IF M=30 AND C=0 THEN SOUND 3000,10:C=C+1
|
||||
550 IF M=60 AND D=0 THEN SOUND 1000,10:D=D+1
|
||||
560 IF H=12 AND E=0 THEN SOUND 2000,10:E=E+1
|
||||
570 IF H=0 AND F=0 THEN SOUND 2000,10:F=F+1
|
||||
580 SOUND 2000,1
|
||||
590 PRINT USING"##:##.##";H;MS
|
||||
600 GOTO 370
|
||||
610 REM int. Uhr stellen
|
||||
620 LOCATE 8,1:COLOR 31:PRINT"04 - int. Uhr stellen"
|
||||
630 FOR Z=0 TO 20000:NEXT Z
|
||||
640 COLOR 15
|
||||
650 CLS
|
||||
660 PRINT"Interne Uhr stellen:"
|
||||
670 PRINT
|
||||
680 PRINT"Geben Sie die genaue Uhrzeit ein:"
|
||||
690 PRINT" Format: HH:MM.SS (im 24h Format)"
|
||||
700 PRINT
|
||||
710 INPUT"Neue Uhrzeit: ",TIM$
|
||||
720 T1$=LEFT$(TIM$,2)
|
||||
730 T2$=MID$(TIM$,4,2)
|
||||
740 T3$=RIGHT$(TIM$,2)
|
||||
750 IF VAL(T1$)<0 OR VAL(T1$)>23 THEN GOTO 840
|
||||
760 IF VAL(T2$)<0 OR VAL(T2$)>59 THEN GOTO 840
|
||||
770 IF VAL(T3$)<0 OR VAL(T3$)>59 THEN GOTO 840
|
||||
780 IF LEN(TIM$)<>8 THEN GOTO 840
|
||||
790 IF MID$(TIM$,3,1)<>":" THEN GOTO 840
|
||||
800 IF MID$(TIM$,6,1)<>"." THEN GOTO 840
|
||||
810 LOCATE 6,15:COLOR 31:PRINT TIME$
|
||||
820 COLOR 12:PRINT"Zeit gestellt!"
|
||||
830 GOTO 10
|
||||
840 REM Zeitstellerror!!!
|
||||
850 CLS
|
||||
860 COLOR 12
|
||||
870 PRINT"LER *** FEHLER *** FEHLER *** FEHLER *** FEHLER *** FEHLER *** FEHLER *** FEH"
|
||||
880 PRINT
|
||||
890 PRINT"Beim Uhrstellen ist ein FEHLER aufgetreten!!!"
|
||||
900 PRINT"Der Wert ";TIM$;" ist ung�ltig !!!"
|
||||
910 PRINT"Bitte geben Sie die Zeit nocheinmal ein."
|
||||
920 PRINT
|
||||
930 COLOR 10:PRINT"Mit Tastendruck geht's weiter"
|
||||
940 A$=INKEY$:IF A$="" THEN 940
|
||||
950 COLOR 15
|
||||
960 GOTO 650
|
||||
|
||||
+111
@@ -0,0 +1,111 @@
|
||||
10 KEY OFF
|
||||
20 COLOR 15,0,0
|
||||
220 IF TIM$="" THEN TIM$=TIME$
|
||||
410 REM *** Anzeigeroutine ***
|
||||
420 CLS
|
||||
430 LOCATE 2,23:PRINT"ÛÛ"
|
||||
440 LOCATE 4,23:PRINT"ÛÛ"
|
||||
450 LOCATE 2,56:PRINT"ÛÛ"
|
||||
460 LOCATE 4,56:PRINT"ÛÛ"
|
||||
470 Z=VAL(LEFT$(TIME$,1))
|
||||
480 X=1
|
||||
490 GOSUB 660
|
||||
500 Z=VAL(MID$(TIME$,2,1))
|
||||
510 X=9
|
||||
520 GOSUB 660
|
||||
530 Z=VAL(MID$(TIME$,4,1))
|
||||
540 X=33
|
||||
550 GOSUB 660
|
||||
560 Z=VAL(MID$(TIME$,5,1))
|
||||
570 X=41
|
||||
580 GOSUB 660
|
||||
590 Z=VAL(MID$(TIME$,7,1))
|
||||
600 X=66
|
||||
610 GOSUB 660
|
||||
620 Z=VAL(RIGHT$(TIME$,1))
|
||||
630 X=74
|
||||
640 GOSUB 660
|
||||
650 GOTO 470
|
||||
660 REM *** Anzeigeroutine ***
|
||||
670 IF Z=0 THEN GOSUB 780
|
||||
680 IF Z=1 THEN GOSUB 850
|
||||
690 IF Z=2 THEN GOSUB 920
|
||||
700 IF Z=3 THEN GOSUB 990
|
||||
710 IF Z=4 THEN GOSUB 1060
|
||||
720 IF Z=5 THEN GOSUB 1130
|
||||
730 IF Z=6 THEN GOSUB 1200
|
||||
740 IF Z=7 THEN GOSUB 1270
|
||||
750 IF Z=8 THEN GOSUB 1340
|
||||
760 IF Z=9 THEN GOSUB 1410
|
||||
770 RETURN
|
||||
780 REM NULL - 0
|
||||
790 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
800 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
810 LOCATE 3,X:PRINT"ÛÛ ÛÛ"
|
||||
820 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||||
830 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
840 RETURN
|
||||
850 REM EINS - 1
|
||||
860 LOCATE 1,X:PRINT" ÛÛ"
|
||||
870 LOCATE 2,X:PRINT" ÛÛ"
|
||||
880 LOCATE 3,X:PRINT" ÛÛ"
|
||||
890 LOCATE 4,X:PRINT" ÛÛ"
|
||||
900 LOCATE 5,X:PRINT" ÛÛ"
|
||||
910 RETURN
|
||||
920 REM ZWEI - 2
|
||||
930 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
940 LOCATE 2,X:PRINT" ÛÛ"
|
||||
950 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
960 LOCATE 4,X:PRINT"ÛÛ "
|
||||
970 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
980 RETURN
|
||||
990 REM DREI - 3
|
||||
1000 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1010 LOCATE 2,X:PRINT" ÛÛ"
|
||||
1020 LOCATE 3,X:PRINT" ÛÛÛÛ"
|
||||
1030 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1040 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1050 RETURN
|
||||
1060 REM VIER - 4
|
||||
1070 LOCATE 1,X:PRINT"ÛÛ ÛÛ"
|
||||
1080 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1090 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1100 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1110 LOCATE 5,X:PRINT" ÛÛ"
|
||||
1120 RETURN
|
||||
1130 REM FšNF - 5
|
||||
1140 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1150 LOCATE 2,X:PRINT"ÛÛ "
|
||||
1160 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1170 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1180 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1190 RETURN
|
||||
1200 REM SECHS - 6
|
||||
1210 LOCATE 1,X:PRINT"ÛÛ "
|
||||
1220 LOCATE 2,X:PRINT"ÛÛ "
|
||||
1230 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1240 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||||
1250 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1260 RETURN
|
||||
1270 REM SIEBEN - 7
|
||||
1280 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1290 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1300 LOCATE 3,X:PRINT" ÛÛ"
|
||||
1310 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1320 LOCATE 5,X:PRINT" ÛÛ"
|
||||
1330 RETURN
|
||||
1340 REM ACHT - 8
|
||||
1350 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1360 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1370 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1380 LOCATE 4,X:PRINT"ÛÛ ÛÛ"
|
||||
1390 LOCATE 5,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1400 RETURN
|
||||
1410 REM NEUN - 9
|
||||
1420 LOCATE 1,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1430 LOCATE 2,X:PRINT"ÛÛ ÛÛ"
|
||||
1440 LOCATE 3,X:PRINT"ÛÛÛÛÛÛ"
|
||||
1450 LOCATE 4,X:PRINT" ÛÛ"
|
||||
1460 LOCATE 5,X:PRINT" ÛÛ"
|
||||
1470 RETURN
|
||||
|
||||
Reference in New Issue
Block a user