From 2eadb88309adcfb40b4c6f638f1c0c0b97c0f5de Mon Sep 17 00:00:00 2001
From: Markus Birth <mbirth@gmail.com>
Date: Thu, 14 Dec 1995 19:27:00 +0100
Subject: [PATCH] Added multiple scripts as of 14 Dec 1995.

---
 LOGBUCH.BAS        |  10 +++
 MODINFO.BAS        |  10 +++
 MORSE.BAS          |  10 +++
 PLUTO.BAS          |  12 ++++
 THOM/1/THOM1.BAS   |  53 +++++++++++++++
 TIMER/TIMER.BAS    |  63 ++++++++++++++++++
 TIMER/TIMER2.BAS   |  63 ++++++++++++++++++
 UHR/C64-U2.BAS     | 161 +++++++++++++++++++++++++++++++++++++++++++++
 UHR/C64-UHR.BAS    | 148 +++++++++++++++++++++++++++++++++++++++++
 UHR/UHR.BAS        | 112 +++++++++++++++++++++++++++++++
 UHR/UHR1.BAS       | 136 ++++++++++++++++++++++++++++++++++++++
 UHR/UHR2.BAS       |  97 +++++++++++++++++++++++++++
 UHR/UHRZ.BAS       | 111 +++++++++++++++++++++++++++++++
 WRITER/STASTEN.BAS |  20 ++++++
 WRITER/TASTEN.BAS  |  34 ++++++++++
 15 files changed, 1040 insertions(+)
 create mode 100644 LOGBUCH.BAS
 create mode 100644 MODINFO.BAS
 create mode 100644 MORSE.BAS
 create mode 100644 PLUTO.BAS
 create mode 100644 THOM/1/THOM1.BAS
 create mode 100644 TIMER/TIMER.BAS
 create mode 100644 TIMER/TIMER2.BAS
 create mode 100644 UHR/C64-U2.BAS
 create mode 100644 UHR/C64-UHR.BAS
 create mode 100644 UHR/UHR.BAS
 create mode 100644 UHR/UHR1.BAS
 create mode 100644 UHR/UHR2.BAS
 create mode 100644 UHR/UHRZ.BAS
 create mode 100644 WRITER/STASTEN.BAS
 create mode 100644 WRITER/TASTEN.BAS

diff --git a/LOGBUCH.BAS b/LOGBUCH.BAS
new file mode 100644
index 0000000..436b9fd
--- /dev/null
+++ b/LOGBUCH.BAS
@@ -0,0 +1,10 @@
+10 OPEN "I",#1,"MSG.DAT"
+20 OPEN "A",#2,"D:\UTIL\SPRACHEN\TBATCH\LOGBUCH.DAT"
+30 LINE INPUT#1,MSG$
+40 T$=TIME$
+50 D$=DATE$
+60 T$=LEFT$(T$,5)+"."+RIGHT$(T$,2)
+70 PRINT#2,D$;"  ";T$;"   ";MSG$
+80 SHELL"DEL MSG.DAT"
+90 SYSTEM
+
\ No newline at end of file
diff --git a/MODINFO.BAS b/MODINFO.BAS
new file mode 100644
index 0000000..6a37fb2
--- /dev/null
+++ b/MODINFO.BAS
@@ -0,0 +1,10 @@
+10 CLS
+20 P$=" "
+30 COLOR 15,0,0
+40 INPUT"Datei: ",D$
+50 IF D$="" THEN GOTO 40
+60 CLS
+70 OPEN "I",#1,D$
+80 N$=INPUT$(20,#1)
+90 PRINT N$
+
\ No newline at end of file
diff --git a/MORSE.BAS b/MORSE.BAS
new file mode 100644
index 0000000..cca6cee
--- /dev/null
+++ b/MORSE.BAS
@@ -0,0 +1,10 @@
+10 CLS
+20 COLOR 15
+30 A=INT(RND*2)
+40 IF A=0 THEN B=.00005:C=2500
+50 IF A=1 THEN B=.5:C=2500
+60 IF A=2 THEN B=0:C=4000
+70 SOUND 1000,B
+75 FOR Z=0 TO C:NEXT
+80 GOTO 30
+
\ No newline at end of file
diff --git a/PLUTO.BAS b/PLUTO.BAS
new file mode 100644
index 0000000..406818b
--- /dev/null
+++ b/PLUTO.BAS
@@ -0,0 +1,12 @@
+10 D$=DATE$
+20 T$=TIME$
+30 TAG$=MID$(D$,4,2)
+40 MON$=LEFT$(D$,2)
+50 JAR$=RIGHT$(D$,2)
+60 STD$=LEFT$(T$,2)
+70 MIN$=MID$(T$,4,2)
+80 AUFRUF$="RENAME PLUTO.DAT P"+STD$+MIN$+"_"+TAG$+"."+MON$+" "
+90 SHELL AUFRUF$
+100 PRINT"Nachrichtendatei unter P";STD$;MIN$;"_";TAG$;".";MON$;"  gespeichert !"
+110 SYSTEM
+
\ No newline at end of file
diff --git a/THOM/1/THOM1.BAS b/THOM/1/THOM1.BAS
new file mode 100644
index 0000000..f07a512
--- /dev/null
+++ b/THOM/1/THOM1.BAS
@@ -0,0 +1,53 @@
+10 X=400
+20 CLS
+30 KEY OFF
+40 GOSUB 490
+50 A=12:B=A:C=A:D=A:E=A:F=14:G=10:H=A:I=A:J=G:K=F:L=A:M=A:N=A:O=A:P=A
+60 GOSUB 350
+70 A=0:GOSUB 340:E=0:GOSUB 340:I=0:GOSUB 340:M=0:GOSUB 340
+80 B=0:GOSUB 340:F=0:GOSUB 340:J=0:GOSUB 340:N=0:GOSUB 340
+90 C=0:GOSUB 340:G=0:GOSUB 340:K=0:GOSUB 340:O=0:GOSUB 340
+100 D=0:GOSUB 340:H=0:GOSUB 340:L=0:GOSUB 340:P=0:GOSUB 340
+110 X=300:FOR Z=0 TO 5000:NEXT Z
+120 GOSUB 510
+130 REM HAUPTTEIL
+140 Q=INT(RND*(2)):IF Q=1 THEN A=12 ELSE A=0
+150 IF U>=V THEN A=0:W=W+1
+160 IF W=20 THEN W=0:U=0:GOSUB 490
+170 IF U/Y=INT(U/Y) THEN FOR Z=0 TO 3000:NEXT Z:GOSUB 510
+180 A$=INKEY$
+190 IF A$=CHR$(27) THEN END
+200 IF A$="+" THEN X=X+10
+210 IF A$="-" THEN X=X-10:IF X<0 THEN X=0
+220 GOSUB 340
+230 P=L:L=H:H=D:D=O
+240 C=N:B=M:M=I:I=E:E=A
+250 IF K=14 THEN O=12 ELSE O=0
+260 IF G=10 THEN K=14 ELSE K=0
+270 IF C=12 THEN G=10 ELSE G=0
+280 IF J=10 THEN N=12 ELSE N=0
+290 IF F=14 THEN J=10 ELSE J=0
+300 IF B=12 THEN F=14 ELSE F=0
+310 U=U+1
+320 GOTO 140
+330 END
+340 LOCATE 1,1
+350 COLOR A:PRINT" ммм  ";:COLOR E:PRINT" ммм  ";:COLOR I:PRINT" ммм  ";:COLOR M:PRINT" ммм  "
+360 COLOR A:PRINT"ллллл ";:COLOR E:PRINT"ллллл ";:COLOR I:PRINT"ллллл ";:COLOR M:PRINT"ллллл "
+370 COLOR A:PRINT" ппп  ";:COLOR E:PRINT" ппп  ";:COLOR I:PRINT" ппп  ";:COLOR M:PRINT" ппп  "
+380 COLOR B:PRINT" ммм  ";:COLOR F:PRINT" ммм  ";:COLOR J:PRINT" ммм  ";:COLOR N:PRINT" ммм  "
+390 COLOR B:PRINT"ллллл ";:COLOR F:PRINT"ллллл ";:COLOR J:PRINT"ллллл ";:COLOR N:PRINT"ллллл "
+400 COLOR B:PRINT" ппп  ";:COLOR F:PRINT" ппп  ";:COLOR J:PRINT" ппп  ";:COLOR N:PRINT" ппп  "
+410 COLOR C:PRINT" ммм  ";:COLOR G:PRINT" ммм  ";:COLOR K:PRINT" ммм  ";:COLOR O:PRINT" ммм  "
+420 COLOR C:PRINT"ллллл ";:COLOR G:PRINT"ллллл ";:COLOR K:PRINT"ллллл ";:COLOR O:PRINT"ллллл "
+430 COLOR C:PRINT" ппп  ";:COLOR G:PRINT" ппп  ";:COLOR K:PRINT" ппп  ";:COLOR O:PRINT" ппп  "
+440 COLOR D:PRINT" ммм  ";:COLOR H:PRINT" ммм  ";:COLOR L:PRINT" ммм  ";:COLOR P:PRINT" ммм  "
+450 COLOR D:PRINT"ллллл ";:COLOR H:PRINT"ллллл ";:COLOR L:PRINT"ллллл ";:COLOR P:PRINT"ллллл "
+460 COLOR D:PRINT" ппп  ";:COLOR H:PRINT" ппп  ";:COLOR L:PRINT" ппп  ";:COLOR P:PRINT" ппп  "
+470 FOR Z=0 TO X:NEXT
+480 RETURN
+490 V=INT(RND*(20))+30
+500 RETURN
+510 Y=INT(RND*(10))+10
+520 RETURN
+
\ No newline at end of file
diff --git a/TIMER/TIMER.BAS b/TIMER/TIMER.BAS
new file mode 100644
index 0000000..8e071cb
--- /dev/null
+++ b/TIMER/TIMER.BAS
@@ -0,0 +1,63 @@
+10 CLS
+20 COLOR 15
+30 LOCATE 2,13:PRINT"1"
+40 LOCATE 3,13:PRINT"10"
+50 LOCATE 4,13:PRINT"100"
+60 LOCATE 5,13:PRINT"1000"
+70 LOCATE 6,1:COLOR 10:PRINT"12345";:COLOR 14:PRINT"678";:COLOR 12:PRINT"9"
+80 A=0
+90 A=A+1
+100 LOCATE 1,1
+110 COLOR 15
+120 PRINT USING "#";I;H;G;F;E;D;C;B;A
+130 IF A=0 THEN LOCATE 2,1:COLOR 10:PRINT"џџџџџџџџџџ ":SOUND 3000,.25
+140 IF A=1 THEN LOCATE 2,1:COLOR 10:PRINT"5":SOUND 3000,.25
+150 IF A=2 THEN LOCATE 2,1:COLOR 10:PRINT"55":SOUND 3000,.25
+160 IF A=3 THEN LOCATE 2,1:COLOR 10:PRINT"555":SOUND 3000,.25
+170 IF A=4 THEN LOCATE 2,1:COLOR 10:PRINT"5555":SOUND 3000,.25
+180 IF A=5 THEN LOCATE 2,1:COLOR 10:PRINT"55555":SOUND 3000,.25
+190 IF A=6 THEN LOCATE 2,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"5":SOUND 3000,.25
+200 IF A=7 THEN LOCATE 2,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"55":SOUND 3000,.25
+210 IF A=8 THEN LOCATE 2,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"555":SOUND 3000,.25
+220 IF A=9 THEN LOCATE 2,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"555";:COLOR 12:PRINT"5":SOUND 3000,.25
+230 IF B=0 THEN LOCATE 3,1:COLOR 10:PRINT"џџџџџџџџџџ "
+240 IF B=1 THEN LOCATE 3,1:COLOR 10:PRINT"5"
+250 IF B=2 THEN LOCATE 3,1:COLOR 10:PRINT"55"
+260 IF B=3 THEN LOCATE 3,1:COLOR 10:PRINT"555"
+270 IF B=4 THEN LOCATE 3,1:COLOR 10:PRINT"5555"
+280 IF B=5 THEN LOCATE 3,1:COLOR 10:PRINT"55555"
+290 IF B=6 THEN LOCATE 3,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"5"
+300 IF B=7 THEN LOCATE 3,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"55"
+310 IF B=8 THEN LOCATE 3,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"555"
+320 IF B=9 THEN LOCATE 3,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"555";:COLOR 12:PRINT"5"
+330 IF C=0 THEN LOCATE 4,1:COLOR 10:PRINT"џџџџџџџџџџ "
+340 IF C=1 THEN LOCATE 4,1:COLOR 10:PRINT"5"
+350 IF C=2 THEN LOCATE 4,1:COLOR 10:PRINT"55"
+360 IF C=3 THEN LOCATE 4,1:COLOR 10:PRINT"555"
+370 IF C=4 THEN LOCATE 4,1:COLOR 10:PRINT"5555"
+380 IF C=5 THEN LOCATE 4,1:COLOR 10:PRINT"55555"
+390 IF C=6 THEN LOCATE 4,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"5"
+400 IF C=7 THEN LOCATE 4,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"55"
+410 IF C=8 THEN LOCATE 4,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"555"
+420 IF C=9 THEN LOCATE 4,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"555";:COLOR 12:PRINT"5"
+430 IF D=0 THEN LOCATE 5,1:COLOR 10:PRINT"џџџџџџџџџџ "
+440 IF D=1 THEN LOCATE 5,1:COLOR 10:PRINT"5"
+450 IF D=2 THEN LOCATE 5,1:COLOR 10:PRINT"55"
+460 IF D=3 THEN LOCATE 5,1:COLOR 10:PRINT"555"
+470 IF D=4 THEN LOCATE 5,1:COLOR 10:PRINT"5555"
+480 IF D=5 THEN LOCATE 5,1:COLOR 10:PRINT"55555"
+490 IF D=6 THEN LOCATE 5,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"5"
+500 IF D=7 THEN LOCATE 5,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"55"
+510 IF D=8 THEN LOCATE 5,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"555"
+520 IF D=9 THEN LOCATE 5,1:COLOR 10:PRINT"55555";:COLOR 14:PRINT"555";:COLOR 12:PRINT"5"
+530 IF I=9 THEN I=0:PRINT" OVERFLOW"
+540 IF H=9 THEN H=0:I=I+1
+550 IF G=9 THEN G=0:H=H+1
+560 IF F=9 THEN F=0:G=G+1
+570 IF E=9 AND D=9 AND C=9 AND B=9 AND A=9 THEN E=-1:F=F+1
+580 IF D=9 AND C=9 AND B=9 AND A=9 THEN D=-1:E=E+1
+590 IF C=9 AND B=9 AND A=9 THEN C=-1:D=D+1
+600 IF B=9 AND A=9 THEN B=-1:C=C+1
+610 IF A=9 THEN A=-1:B=B+1
+620 GOTO 90
+
\ No newline at end of file
diff --git a/TIMER/TIMER2.BAS b/TIMER/TIMER2.BAS
new file mode 100644
index 0000000..f535a4a
--- /dev/null
+++ b/TIMER/TIMER2.BAS
@@ -0,0 +1,63 @@
+10 CLS
+20 COLOR 15
+30 LOCATE 2,13:PRINT"1"
+40 LOCATE 3,13:PRINT"10"
+50 LOCATE 4,13:PRINT"100"
+60 LOCATE 5,13:PRINT"1000"
+70 LOCATE 6,1:COLOR 10:PRINT"12345";:COLOR 14:PRINT"678";:COLOR 12:PRINT"9"
+80 A=0
+90 A=A+1
+100 LOCATE 1,1
+110 COLOR 15
+120 PRINT USING "#";I;H;G;F;E;D;C;B;A
+130 IF A=0 THEN LOCATE 2,1:COLOR 10:PRINT"         "
+140 IF A=1 THEN LOCATE 2,1:COLOR 10:PRINT"1        "
+150 IF A=2 THEN LOCATE 2,1:COLOR 10:PRINT" 2       "
+160 IF A=3 THEN LOCATE 2,1:COLOR 10:PRINT"  3      "
+170 IF A=4 THEN LOCATE 2,1:COLOR 10:PRINT"   4     "
+180 IF A=5 THEN LOCATE 2,1:COLOR 10:PRINT"    5    "
+190 IF A=6 THEN LOCATE 2,1:COLOR 14:PRINT"     6   "
+200 IF A=7 THEN LOCATE 2,1:COLOR 14:PRINT"      7  "
+210 IF A=8 THEN LOCATE 2,1:COLOR 14:PRINT"       8 "
+220 IF A=9 THEN LOCATE 2,1:COLOR 12:PRINT"        9"
+230 IF B=0 THEN LOCATE 3,1:COLOR 10:PRINT"џџџџџџџџџ"
+240 IF B=1 THEN LOCATE 3,1:COLOR 10:PRINT"1        "
+250 IF B=2 THEN LOCATE 3,1:COLOR 10:PRINT" 2       "
+260 IF B=3 THEN LOCATE 3,1:COLOR 10:PRINT"  3      "
+270 IF B=4 THEN LOCATE 3,1:COLOR 10:PRINT"   4     "
+280 IF B=5 THEN LOCATE 3,1:COLOR 10:PRINT"    5    "
+290 IF B=6 THEN LOCATE 3,1:COLOR 14:PRINT"     6   "
+300 IF B=7 THEN LOCATE 3,1:COLOR 14:PRINT"      7  "
+310 IF B=8 THEN LOCATE 3,1:COLOR 14:PRINT"       8 "
+320 IF B=9 THEN LOCATE 3,1:COLOR 12:PRINT"        9"
+330 IF C=0 THEN LOCATE 4,1:COLOR 10:PRINT"џџџџџџџџ "
+340 IF C=1 THEN LOCATE 4,1:COLOR 10:PRINT"1        "
+350 IF C=2 THEN LOCATE 4,1:COLOR 10:PRINT" 2       "
+360 IF C=3 THEN LOCATE 4,1:COLOR 10:PRINT"  3      "
+370 IF C=4 THEN LOCATE 4,1:COLOR 10:PRINT"   4     "
+380 IF C=5 THEN LOCATE 4,1:COLOR 10:PRINT"    5    "
+390 IF C=6 THEN LOCATE 4,1:COLOR 14:PRINT"     6   "
+400 IF C=7 THEN LOCATE 4,1:COLOR 14:PRINT"      7  "
+410 IF C=8 THEN LOCATE 4,1:COLOR 14:PRINT"       8 "
+420 IF C=9 THEN LOCATE 4,1:COLOR 12:PRINT"        9"
+430 IF D=0 THEN LOCATE 5,1:COLOR 10:PRINT"џџџџџџџџџ"
+440 IF D=1 THEN LOCATE 5,1:COLOR 10:PRINT"1        "
+450 IF D=2 THEN LOCATE 5,1:COLOR 10:PRINT" 2       "
+460 IF D=3 THEN LOCATE 5,1:COLOR 10:PRINT"  3      "
+470 IF D=4 THEN LOCATE 5,1:COLOR 10:PRINT"   4     "
+480 IF D=5 THEN LOCATE 5,1:COLOR 10:PRINT"    5    "
+490 IF D=6 THEN LOCATE 5,1:COLOR 14:PRINT"     6   "
+500 IF D=7 THEN LOCATE 5,1:COLOR 14:PRINT"      7  "
+510 IF D=8 THEN LOCATE 5,1:COLOR 14:PRINT"       8 "
+520 IF D=9 THEN LOCATE 5,1:COLOR 12:PRINT"        9"
+530 IF I=9 THEN I=0:PRINT" OVERFLOW"
+540 IF H=9 THEN H=0:I=I+1
+550 IF G=9 THEN G=0:H=H+1
+560 IF F=9 THEN F=0:G=G+1
+570 IF E=9 AND D=9 AND C=9 AND B=9 AND A=9 THEN E=-1:F=F+1
+580 IF D=9 AND C=9 AND B=9 AND A=9 THEN D=-1:E=E+1
+590 IF C=9 AND B=9 AND A=9 THEN C=-1:D=D+1
+600 IF B=9 AND A=9 THEN B=-1:C=C+1
+610 IF A=9 THEN A=-1:B=B+1
+620 GOTO 90
+
\ No newline at end of file
diff --git a/UHR/C64-U2.BAS b/UHR/C64-U2.BAS
new file mode 100644
index 0000000..4e4bd0e
--- /dev/null
+++ b/UHR/C64-U2.BAS
@@ -0,0 +1,161 @@
+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 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
+
\ No newline at end of file
diff --git a/UHR/C64-UHR.BAS b/UHR/C64-UHR.BAS
new file mode 100644
index 0000000..5a25aeb
--- /dev/null
+++ b/UHR/C64-UHR.BAS
@@ -0,0 +1,148 @@
+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
+
\ No newline at end of file
diff --git a/UHR/UHR.BAS b/UHR/UHR.BAS
new file mode 100644
index 0000000..68e0769
--- /dev/null
+++ b/UHR/UHR.BAS
@@ -0,0 +1,112 @@
+10 KEY OFF
+20 COLOR 15,0,0
+30 IF TIM$="" THEN TIM$=TIME$
+40 REM *** Anzeigeroutine ***
+50 CLS
+60 LOCATE 2,23:PRINT"лл"
+70 LOCATE 4,23:PRINT"лл"
+80 LOCATE 2,56:PRINT"лл"
+90 LOCATE 4,56:PRINT"лл"
+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"лллллл"
+440 LOCATE 2,X:PRINT"лл  лл"
+450 LOCATE 3,X:PRINT"лл  лл"
+460 LOCATE 4,X:PRINT"лл  лл"
+470 LOCATE 5,X:PRINT"лллллл"
+480 RETURN
+490 REM EINS - 1
+500 LOCATE 1,X:PRINT"    лл"
+510 LOCATE 2,X:PRINT"    лл"
+520 LOCATE 3,X:PRINT"    лл"
+530 LOCATE 4,X:PRINT"    лл"
+540 LOCATE 5,X:PRINT"    лл"
+550 RETURN
+560 REM ZWEI - 2
+570 LOCATE 1,X:PRINT"лллллл"
+580 LOCATE 2,X:PRINT"    лл"
+590 LOCATE 3,X:PRINT"лллллл"
+600 LOCATE 4,X:PRINT"лл    "
+610 LOCATE 5,X:PRINT"лллллл"
+620 RETURN
+630 REM DREI - 3
+640 LOCATE 1,X:PRINT"лллллл"
+650 LOCATE 2,X:PRINT"    лл"
+660 LOCATE 3,X:PRINT"  лллл"
+670 LOCATE 4,X:PRINT"    лл"
+680 LOCATE 5,X:PRINT"лллллл"
+690 RETURN
+700 REM VIER - 4
+710 LOCATE 1,X:PRINT"лл  лл"
+720 LOCATE 2,X:PRINT"лл  лл"
+730 LOCATE 3,X:PRINT"лллллл"
+740 LOCATE 4,X:PRINT"    лл"
+750 LOCATE 5,X:PRINT"    лл"
+760 RETURN
+770 REM FšNF - 5
+780 LOCATE 1,X:PRINT"лллллл"
+790 LOCATE 2,X:PRINT"лл    "
+800 LOCATE 3,X:PRINT"лллллл"
+810 LOCATE 4,X:PRINT"    лл"
+820 LOCATE 5,X:PRINT"лллллл"
+830 RETURN
+840 REM SECHS - 6
+850 LOCATE 1,X:PRINT"лл    "
+860 LOCATE 2,X:PRINT"лл    "
+870 LOCATE 3,X:PRINT"лллллл"
+880 LOCATE 4,X:PRINT"лл  лл"
+890 LOCATE 5,X:PRINT"лллллл"
+900 RETURN
+910 REM SIEBEN - 7
+920 LOCATE 1,X:PRINT"лллллл"
+930 LOCATE 2,X:PRINT"лл  лл"
+940 LOCATE 3,X:PRINT"    лл"
+950 LOCATE 4,X:PRINT"    лл"
+960 LOCATE 5,X:PRINT"    лл"
+970 RETURN
+980 REM ACHT - 8
+990 LOCATE 1,X:PRINT"лллллл"
+1000 LOCATE 2,X:PRINT"лл  лл"
+1010 LOCATE 3,X:PRINT"лллллл"
+1020 LOCATE 4,X:PRINT"лл  лл"
+1030 LOCATE 5,X:PRINT"лллллл"
+1040 RETURN
+1050 REM NEUN - 9
+1060 LOCATE 1,X:PRINT"лллллл"
+1070 LOCATE 2,X:PRINT"лл  лл"
+1080 LOCATE 3,X:PRINT"лллллл"
+1090 LOCATE 4,X:PRINT"    лл"
+1100 LOCATE 5,X:PRINT"    лл"
+1110 RETURN
+
\ No newline at end of file
diff --git a/UHR/UHR1.BAS b/UHR/UHR1.BAS
new file mode 100644
index 0000000..b4e3d5c
--- /dev/null
+++ b/UHR/UHR1.BAS
@@ -0,0 +1,136 @@
+10 KEY OFF
+20 COLOR 15,0,0
+30 REM *** Hauptroutine ***
+40 CLS
+50 IF TI=2 THEN GOTO 290
+60 PRINT"Bitte geben Sie die genaue Uhrzeit ein"
+70 PRINT"oder drcken Sie [ENTER] fr die interne Uhr"
+80 PRINT
+90 INPUT"Uhrzeit [HH:MM:SS] :",TIM$
+100 IF TIM$="" THEN TIM$=TIME$
+110 IF MID$(TIM$,3,1)<>":" THEN GOTO 150
+120 IF MID$(TIM$,6,1)<>":" THEN GOTO 150
+130 IF LEN(TIM$)<>8 THEN 150
+140 GOTO 190
+150 REM *** Fehler bei eingabe
+160 PRINT:PRINT"Die Zeit wurde falsch eingegeben!!!"
+170 PRINT"Bitte wiederholen Sie den Vorgang!"
+180 GOTO 90
+190 TIME$=TIM$
+200 PRINT
+210 PRINT"Die momentane Uhrzeit ist: "
+220 PRINT TIM$
+230 PRINT
+240 PRINT"Stimmt das [J/N]?"
+250 A$=INKEY$:IF A$="" THEN 250
+260 IF A$="j" OR A$="J" THEN 290
+270 IF A$="n" OR A$="N" THEN 30
+280 GOTO 250
+290 REM *** Anzeigeroutine ***
+300 CLS
+310 LOCATE 2,23:PRINT"лл"
+320 LOCATE 4,23:PRINT"лл"
+330 LOCATE 2,56:PRINT"лл"
+340 LOCATE 4,56:PRINT"лл"
+350 Z=VAL(LEFT$(TIME$,1))
+360 X=1
+370 GOSUB 540
+380 Z=VAL(MID$(TIME$,2,1))
+390 X=9
+400 GOSUB 540
+410 Z=VAL(MID$(TIME$,4,1))
+420 X=33
+430 GOSUB 540
+440 Z=VAL(MID$(TIME$,5,1))
+450 X=41
+460 GOSUB 540
+470 Z=VAL(MID$(TIME$,7,1))
+480 X=66
+490 GOSUB 540
+500 Z=VAL(RIGHT$(TIME$,1))
+510 X=74
+520 GOSUB 540
+530 GOTO 350
+540 REM *** Anzeigeroutine ***
+550 IF Z=0 THEN GOSUB 660
+560 IF Z=1 THEN GOSUB 730
+570 IF Z=2 THEN GOSUB 800
+580 IF Z=3 THEN GOSUB 870
+590 IF Z=4 THEN GOSUB 940
+600 IF Z=5 THEN GOSUB 1010
+610 IF Z=6 THEN GOSUB 1080
+620 IF Z=7 THEN GOSUB 1150
+630 IF Z=8 THEN GOSUB 1220
+640 IF Z=9 THEN GOSUB 1290
+650 RETURN
+660 REM NULL - 0
+670 LOCATE 1,X:PRINT"лллллл"
+680 LOCATE 2,X:PRINT"лл  лл"
+690 LOCATE 3,X:PRINT"лл  лл"
+700 LOCATE 4,X:PRINT"лл  лл"
+710 LOCATE 5,X:PRINT"лллллл"
+720 RETURN
+730 REM EINS - 1
+740 LOCATE 1,X:PRINT"    лл"
+750 LOCATE 2,X:PRINT"    лл"
+760 LOCATE 3,X:PRINT"    лл"
+770 LOCATE 4,X:PRINT"    лл"
+780 LOCATE 5,X:PRINT"    лл"
+790 RETURN
+800 REM ZWEI - 2
+810 LOCATE 1,X:PRINT"лллллл"
+820 LOCATE 2,X:PRINT"    лл"
+830 LOCATE 3,X:PRINT"лллллл"
+840 LOCATE 4,X:PRINT"лл    "
+850 LOCATE 5,X:PRINT"лллллл"
+860 RETURN
+870 REM DREI - 3
+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 VIER - 4
+950 LOCATE 1,X:PRINT"лл  лл"
+960 LOCATE 2,X:PRINT"лл  лл"
+970 LOCATE 3,X:PRINT"лллллл"
+980 LOCATE 4,X:PRINT"    лл"
+990 LOCATE 5,X:PRINT"    лл"
+1000 RETURN
+1010 REM FšNF - 5
+1020 LOCATE 1,X:PRINT"лллллл"
+1030 LOCATE 2,X:PRINT"лл    "
+1040 LOCATE 3,X:PRINT"лллллл"
+1050 LOCATE 4,X:PRINT"    лл"
+1060 LOCATE 5,X:PRINT"лллллл"
+1070 RETURN
+1080 REM SECHS - 6
+1090 LOCATE 1,X:PRINT"лл    "
+1100 LOCATE 2,X:PRINT"лл    "
+1110 LOCATE 3,X:PRINT"лллллл"
+1120 LOCATE 4,X:PRINT"лл  лл"
+1130 LOCATE 5,X:PRINT"лллллл"
+1140 RETURN
+1150 REM SIEBEN - 7
+1160 LOCATE 1,X:PRINT"лллллл"
+1170 LOCATE 2,X:PRINT"лл  лл"
+1180 LOCATE 3,X:PRINT"    лл"
+1190 LOCATE 4,X:PRINT"    лл"
+1200 LOCATE 5,X:PRINT"    лл"
+1210 RETURN
+1220 REM ACHT - 8
+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 NEUN - 9
+1300 LOCATE 1,X:PRINT"лллллл"
+1310 LOCATE 2,X:PRINT"лл  лл"
+1320 LOCATE 3,X:PRINT"лллллл"
+1330 LOCATE 4,X:PRINT"    лл"
+1340 LOCATE 5,X:PRINT"    лл"
+1350 RETURN
+
\ No newline at end of file
diff --git a/UHR/UHR2.BAS b/UHR/UHR2.BAS
new file mode 100644
index 0000000..f4cbb8d
--- /dev/null
+++ b/UHR/UHR2.BAS
@@ -0,0 +1,97 @@
+10 CLS
+20 COLOR 15
+30 PRINT"UHR.BAS   by RoboCop"
+40 PRINT
+50 PRINT"W„hlen Sie eine Funktion:"
+60 PRINT
+70 PRINT"01 - Uhr"
+80 PRINT"02 - Wecker"
+90 PRINT"03 - Timer"
+100 PRINT"04 - int. Uhr stellen"
+110 PRINT"05 - int. Datum stellen"
+120 PRINT
+130 PRINT"Geben Sie die Kennziffer ein --->"
+140 LOCATE 11,35:PRINT"--"
+150 LOCATE 13,1:PRINT"--------------"
+160 A=0
+170 A$=INKEY$:IF A$="" THEN GOTO 170
+180 IF A=0 THEN WAHL=VAL(A$)*10:LOCATE 11,35:PRINT A$
+190 IF A=1 THEN WAHL=VAL(A$)+WAHL:LOCATE 11,36:PRINT A$
+200 A=A+1
+210 IF A=2 THEN GOTO 230
+220 GOTO 170
+230 REM
+240 IF WAHL=1 THEN GOTO 320
+250 IF WAHL=2 THEN
+260 IF WAHL=3 THEN
+270 IF WAHL=4 THEN GOTO 610
+280 IF WAHL=5 THEN
+290 LOCATE 13,1:PRINT"Falscheingabe!"
+300 FOR Z=0 TO 9000:NEXT
+310 LOCATE 1,1:A=-1:GOTO 30
+320 REM WAHL=1
+330 LOCATE 5,1:COLOR 31:PRINT"01 - Uhr"
+340 FOR Z=0 TO 20000:NEXT
+350 CLS
+360 COLOR 14
+370 A=0
+380 A=A+1
+390 H$=LEFT$(TIME$,2)
+400 M$=MID$(TIME$,4,2)
+410 S$=RIGHT$(TIME$,2)
+420 H=VAL(H$)
+430 M=VAL(M$)
+440 S=VAL(S$)
+450 MS=M+(S/100)
+460 IF A=1 THEN V=S
+470 IF V+1=60 THEN V=-1
+480 IF V+1=S THEN GOTO 500
+490 GOTO 380
+500 LOCATE 12,36
+510 IF S=15 OR S=45 THEN SOUND 500,1:GOTO 590
+520 IF S=30 THEN SOUND 1000,1:GOTO 590
+530 IF S=0 THEN SOUND 3000,1:GOTO 590
+540 IF M=30 AND C=0 THEN SOUND 3000,10:C=C+1
+550 IF M=60 AND D=0 THEN SOUND 1000,10:D=D+1
+560 IF H=12 AND E=0 THEN SOUND 2000,10:E=E+1
+570 IF H=0 AND F=0 THEN SOUND 2000,10:F=F+1
+580 SOUND 2000,1
+590 PRINT USING"##:##.##";H;MS
+600 GOTO 370
+610 REM int. Uhr stellen
+620 LOCATE 8,1:COLOR 31:PRINT"04 - int. Uhr stellen"
+630 FOR Z=0 TO 20000:NEXT Z
+640 COLOR 15
+650 CLS
+660 PRINT"Interne Uhr stellen:"
+670 PRINT
+680 PRINT"Geben Sie die genaue Uhrzeit ein:"
+690 PRINT"      Format: HH:MM.SS (im 24h Format)"
+700 PRINT
+710 INPUT"Neue Uhrzeit: ",TIM$
+720 T1$=LEFT$(TIM$,2)
+730 T2$=MID$(TIM$,4,2)
+740 T3$=RIGHT$(TIM$,2)
+750 IF VAL(T1$)<0 OR VAL(T1$)>23 THEN GOTO 840
+760 IF VAL(T2$)<0 OR VAL(T2$)>59 THEN GOTO 840
+770 IF VAL(T3$)<0 OR VAL(T3$)>59 THEN GOTO 840
+780 IF LEN(TIM$)<>8 THEN GOTO 840
+790 IF MID$(TIM$,3,1)<>":" THEN GOTO 840
+800 IF MID$(TIM$,6,1)<>"." THEN GOTO 840
+810 LOCATE 6,15:COLOR 31:PRINT TIME$
+820 COLOR 12:PRINT"Zeit gestellt!"
+830 GOTO 10
+840 REM Zeitstellerror!!!
+850 CLS
+860 COLOR 12
+870 PRINT"LER *** FEHLER *** FEHLER *** FEHLER *** FEHLER *** FEHLER *** FEHLER *** FEH"
+880 PRINT
+890 PRINT"Beim Uhrstellen ist ein FEHLER aufgetreten!!!"
+900 PRINT"Der Wert ";TIM$;" ist ungltig !!!"
+910 PRINT"Bitte geben Sie die Zeit nocheinmal ein."
+920 PRINT
+930 COLOR 10:PRINT"Mit Tastendruck geht's weiter"
+940 A$=INKEY$:IF A$="" THEN 940
+950 COLOR 15
+960 GOTO 650
+
\ No newline at end of file
diff --git a/UHR/UHRZ.BAS b/UHR/UHRZ.BAS
new file mode 100644
index 0000000..e4b9462
--- /dev/null
+++ b/UHR/UHRZ.BAS
@@ -0,0 +1,111 @@
+10 KEY OFF
+20 COLOR 15,0,0
+220 IF TIM$="" THEN TIM$=TIME$
+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
+
\ No newline at end of file
diff --git a/WRITER/STASTEN.BAS b/WRITER/STASTEN.BAS
new file mode 100644
index 0000000..b9eae5f
--- /dev/null
+++ b/WRITER/STASTEN.BAS
@@ -0,0 +1,20 @@
+10 DAT$="OUTPUT.TTN"
+20 KEY OFF
+30 COLOR 15,0,0
+40 CLS
+50 CLOSE 1
+60 INPUT"Dateinamen eingeben: ",DN$
+70 IF DN$="" THEN DN$=DAT$
+80 IF LEFT$(RIGHT$(DN$,4),1)<>"." THEN 30
+90 CLS
+100 COLOR 15,0,0
+110 FOR Z=1 TO 24
+120 LOCATE Z,1:PRINT SPACE$(79)
+130 NEXT Z
+140 LOCATE 1,1
+150 AUFRUF$="TYPE "+DN$+" |MORE"
+160 SHELL AUFRUF$
+170 LOCATE 24,1
+180 SHELL"PAUSE"
+190 CLS
+
\ No newline at end of file
diff --git a/WRITER/TASTEN.BAS b/WRITER/TASTEN.BAS
new file mode 100644
index 0000000..8f857ff
--- /dev/null
+++ b/WRITER/TASTEN.BAS
@@ -0,0 +1,34 @@
+10 DAT$="OUTPUT.TTN"
+20 OPEN "O",1,DAT$
+30 PRINT#1,"Ausgabe-Datei von TASTEN.BAS"
+40 PRINT#1,""
+50 KEY OFF
+60 B=1:C=0:D=1:E=1
+70 CLS
+80 GOTO 210
+90 ON ERROR GOTO 310
+100 A$=INKEY$:IF A$="" THEN 100
+110 A=ASC(A$)
+120 IF A=8 THEN C=C-2:E=E-2:GOSUB 320:GOTO 190
+130 IF A=13 THEN GOSUB 270:GOTO 190
+140 IF A=27 THEN GOSUB 290:GOTO 310
+150 LOCATE B,C
+160 COLOR 15,0,0
+170 PRINT CHR$(A)
+180 OUTP$=OUTP$+CHR$(A)
+190 COLOR 14:LOCATE 24,1:PRINT USING"CHR$(###)                                                        \            \";A;DAT$;
+200 LOCATE 25,1:PRINT OUTP$;SPACE$(80-LEN(OUTP$));
+210 LOCATE D,E
+220 COLOR 31,0,0
+230 PRINT CHR$(95);" "
+240 C=C+1:IF C>80 THEN C=1:B=B+1:PRINT#1,OUTP$:OUTP$=""
+250 E=E+1:IF E>80 THEN E=1:D=D+1
+260 GOTO 100
+270 LOCATE D,E-1:PRINT " "
+280 B=B+1:C=0:D=D+1:E=1
+290 PRINT#1,OUTP$:OUTP$=""
+300 RETURN
+310 COLOR 15:CLS:END
+320 OUTP$=LEFT$(OUTP$,(LEN(OUTP$)-1))
+330 RETURN
+
\ No newline at end of file