gwbasic/UHR/UHR.BAS

10 KEY OFF
20 COLOR 15,0,0
30 IF TIM$="" THEN TIM$=TIME$
40 REM *** Anzeigeroutine ***
50 CLS
60 LOCATE 2,23:PRINT"<22><>"
70 LOCATE 4,23:PRINT"<22><>"
80 LOCATE 2,56:PRINT"<22><>"
90 LOCATE 4,56:PRINT"<22><>"
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"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
440 LOCATE 2,X:PRINT"<22><>  <20><>"
450 LOCATE 3,X:PRINT"<22><>  <20><>"
460 LOCATE 4,X:PRINT"<22><>  <20><>"
470 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
480 RETURN
490 REM EINS - 1
500 LOCATE 1,X:PRINT"    <20><>"
510 LOCATE 2,X:PRINT"    <20><>"
520 LOCATE 3,X:PRINT"    <20><>"
530 LOCATE 4,X:PRINT"    <20><>"
540 LOCATE 5,X:PRINT"    <20><>"
550 RETURN
560 REM ZWEI - 2
570 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
580 LOCATE 2,X:PRINT"    <20><>"
590 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
600 LOCATE 4,X:PRINT"<22><>    "
610 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
620 RETURN
630 REM DREI - 3
640 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
650 LOCATE 2,X:PRINT"    <20><>"
660 LOCATE 3,X:PRINT"  <20><><EFBFBD><EFBFBD>"
670 LOCATE 4,X:PRINT"    <20><>"
680 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
690 RETURN
700 REM VIER - 4
710 LOCATE 1,X:PRINT"<22><>  <20><>"
720 LOCATE 2,X:PRINT"<22><>  <20><>"
730 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
740 LOCATE 4,X:PRINT"    <20><>"
750 LOCATE 5,X:PRINT"    <20><>"
760 RETURN
770 REM F<>NF - 5
780 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
790 LOCATE 2,X:PRINT"<22><>    "
800 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
810 LOCATE 4,X:PRINT"    <20><>"
820 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
830 RETURN
840 REM SECHS - 6
850 LOCATE 1,X:PRINT"<22><>    "
860 LOCATE 2,X:PRINT"<22><>    "
870 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
880 LOCATE 4,X:PRINT"<22><>  <20><>"
890 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
900 RETURN
910 REM SIEBEN - 7
920 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
930 LOCATE 2,X:PRINT"<22><>  <20><>"
940 LOCATE 3,X:PRINT"    <20><>"
950 LOCATE 4,X:PRINT"    <20><>"
960 LOCATE 5,X:PRINT"    <20><>"
970 RETURN
980 REM ACHT - 8
990 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1000 LOCATE 2,X:PRINT"<22><>  <20><>"
1010 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1020 LOCATE 4,X:PRINT"<22><>  <20><>"
1030 LOCATE 5,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1040 RETURN
1050 REM NEUN - 9
1060 LOCATE 1,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1070 LOCATE 2,X:PRINT"<22><>  <20><>"
1080 LOCATE 3,X:PRINT"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
1090 LOCATE 4,X:PRINT"    <20><>"
1100 LOCATE 5,X:PRINT"    <20><>"
1110 RETURN