gwbasic/UHR/C64-UHR.BAS

10 KEY OFF
20 COLOR 12,0,0
30 CLS
40 PRINT"<22><>  <20><>     <20><>  <20><>     <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
50 PRINT"<22><>  <20><>     <20><>  <20><>     <20><>  <20><>"
60 PRINT"<22><>  <20><>     <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>     <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
70 PRINT"<22><>  <20><>     <20><>  <20><>     <20><><EFBFBD><EFBFBD>"
80 PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>     <20><>  <20><>     <20><>  <20><>"
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<64>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"<22><>"
440 LOCATE 4,23:PRINT"<22><>"
450 LOCATE 2,56:PRINT"<22><>"
460 LOCATE 4,56:PRINT"<22><>"
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"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
800 LOCATE 2,X:PRINT"<22><>  <20><>"
810 LOCATE 3,X:PRINT"<22><>  <20><>"
820 LOCATE 4,X:PRINT"<22><>  <20><>"
830 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
840 RETURN
850 REM EINS - 1
860 LOCATE 1,X:PRINT"    <20><>"
870 LOCATE 2,X:PRINT"    <20><>"
880 LOCATE 3,X:PRINT"    <20><>"
890 LOCATE 4,X:PRINT"    <20><>"
900 LOCATE 5,X:PRINT"    <20><>"
910 RETURN
920 REM ZWEI - 2
930 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
940 LOCATE 2,X:PRINT"    <20><>"
950 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
960 LOCATE 4,X:PRINT"<22><>    "
970 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
980 RETURN
990 REM DREI - 3
1000 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1010 LOCATE 2,X:PRINT"    <20><>"
1020 LOCATE 3,X:PRINT"  <20><><EFBFBD><EFBFBD>"
1030 LOCATE 4,X:PRINT"    <20><>"
1040 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1050 RETURN
1060 REM VIER - 4
1070 LOCATE 1,X:PRINT"<22><>  <20><>"
1080 LOCATE 2,X:PRINT"<22><>  <20><>"
1090 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1100 LOCATE 4,X:PRINT"    <20><>"
1110 LOCATE 5,X:PRINT"    <20><>"
1120 RETURN
1130 REM F<>NF - 5
1140 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1150 LOCATE 2,X:PRINT"<22><>    "
1160 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1170 LOCATE 4,X:PRINT"    <20><>"
1180 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1190 RETURN
1200 REM SECHS - 6
1210 LOCATE 1,X:PRINT"<22><>    "
1220 LOCATE 2,X:PRINT"<22><>    "
1230 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1240 LOCATE 4,X:PRINT"<22><>  <20><>"
1250 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1260 RETURN
1270 REM SIEBEN - 7
1280 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1290 LOCATE 2,X:PRINT"<22><>  <20><>"
1300 LOCATE 3,X:PRINT"    <20><>"
1310 LOCATE 4,X:PRINT"    <20><>"
1320 LOCATE 5,X:PRINT"    <20><>"
1330 RETURN
1340 REM ACHT - 8
1350 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1360 LOCATE 2,X:PRINT"<22><>  <20><>"
1370 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1380 LOCATE 4,X:PRINT"<22><>  <20><>"
1390 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1400 RETURN
1410 REM NEUN - 9
1420 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1430 LOCATE 2,X:PRINT"<22><>  <20><>"
1440 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1450 LOCATE 4,X:PRINT"    <20><>"
1460 LOCATE 5,X:PRINT"    <20><>"
1470 RETURN