gwbasic/UHR/C64-U2.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 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" <20><><EFBFBD><EFBFBD> "
810 LOCATE 2,X:PRINT"<22><>  <20><>"
820 LOCATE 3,X:PRINT" <20>  <20> "
830 LOCATE 4,X:PRINT"<22><>  <20><>"
840 LOCATE 5,X:PRINT" <20><><EFBFBD><EFBFBD> "
850 RETURN
860 REM EINS - 1
870 COLOR 10
880 LOCATE 1,X:PRINT"    <20> "
890 LOCATE 2,X:PRINT"    <20><>"
900 LOCATE 3,X:PRINT"    <20> "
910 LOCATE 4,X:PRINT"    <20><>"
920 LOCATE 5,X:PRINT"    <20> "
930 RETURN
940 REM ZWEI - 2
950 COLOR 10
960 LOCATE 1,X:PRINT" <20><><EFBFBD><EFBFBD> "
970 LOCATE 2,X:PRINT"    <20><>"
980 LOCATE 3,X:PRINT" <20><><EFBFBD><EFBFBD> "
990 LOCATE 4,X:PRINT"<22><>    "
1000 LOCATE 5,X:PRINT" <20><><EFBFBD><EFBFBD> "
1010 RETURN
1020 REM DREI - 3
1030 COLOR 10
1040 IF X=33 OR X=66 THEN COLOR 14
1050 LOCATE 1,X:PRINT" <20><><EFBFBD><EFBFBD> "
1060 LOCATE 2,X:PRINT"    <20><>"
1070 LOCATE 3,X:PRINT"  <20><><EFBFBD> "
1080 LOCATE 4,X:PRINT"    <20><>"
1090 LOCATE 5,X:PRINT" <20><><EFBFBD><EFBFBD> "
1100 RETURN
1110 REM VIER - 4
1120 COLOR 10
1130 IF X=33 OR X=66 THEN COLOR 14
1140 LOCATE 1,X:PRINT" <20>  <20> "
1150 LOCATE 2,X:PRINT"<22><>  <20><>"
1160 LOCATE 3,X:PRINT" <20><><EFBFBD><EFBFBD> "
1170 LOCATE 4,X:PRINT"    <20><>"
1180 LOCATE 5,X:PRINT"    <20> "
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" <20><><EFBFBD><EFBFBD> "
1240 LOCATE 2,X:PRINT"<22><>    "
1250 LOCATE 3,X:PRINT" <20><><EFBFBD><EFBFBD> "
1260 LOCATE 4,X:PRINT"    <20><>"
1270 LOCATE 5,X:PRINT" <20><><EFBFBD><EFBFBD> "
1280 RETURN
1290 REM SECHS - 6
1300 COLOR 14
1310 LOCATE 1,X:PRINT" <20>    "
1320 LOCATE 2,X:PRINT"<22><>    "
1330 LOCATE 3,X:PRINT" <20><><EFBFBD><EFBFBD> "
1340 LOCATE 4,X:PRINT"<22><>  <20><>"
1350 LOCATE 5,X:PRINT" <20><><EFBFBD><EFBFBD> "
1360 RETURN
1370 REM SIEBEN - 7
1380 COLOR 14
1390 LOCATE 1,X:PRINT" <20><><EFBFBD><EFBFBD> "
1400 LOCATE 2,X:PRINT"<22><>  <20><>"
1410 LOCATE 3,X:PRINT"    <20> "
1420 LOCATE 4,X:PRINT"    <20><>"
1430 LOCATE 5,X:PRINT"    <20> "
1440 RETURN
1450 REM ACHT - 8
1460 COLOR 12
1470 LOCATE 1,X:PRINT" <20><><EFBFBD><EFBFBD> "
1480 LOCATE 2,X:PRINT"<22><>  <20><>"
1490 LOCATE 3,X:PRINT" <20><><EFBFBD><EFBFBD> "
1500 LOCATE 4,X:PRINT"<22><>  <20><>"
1510 LOCATE 5,X:PRINT" <20><><EFBFBD><EFBFBD> "
1520 RETURN
1530 REM NEUN - 9
1540 COLOR 12
1550 LOCATE 1,X:PRINT" <20><><EFBFBD><EFBFBD> "
1560 LOCATE 2,X:PRINT"<22><>  <20><>"
1570 LOCATE 3,X:PRINT" <20><><EFBFBD><EFBFBD> "
1580 LOCATE 4,X:PRINT"    <20><>"
1590 LOCATE 5,X:PRINT"    <20> "
1600 RETURN