gwbasic/UHR/C64-U2.BAS

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<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"ÛÛ"
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