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