10 REM ********************************
11 REM ** CMD-UHREN VON RAMLINK, HD  **
12 REM ** ODER FD AUSLESEN UND IN    **
13 REM ** BASIC WEITERVERARBEITEN    **
14 REM ********************************
15 REM ** GESCHRIEBEN 1998 VON       **
16 REM ** MATTHIAS "HONK MAN" HEYMANN**
17 REM ********************************
18 REM ** DAS BENUTZEN DIESER ROUTI- **
19 REM ** NEN IN EIGENEN PROGRAMMEN  **
20 REM ** IST ERLAUBT!               **
21 REM ********************************
22 REM **       "T-RA"-VERSION       **
23 REM ********************************
24 :
40 INPUT"[147]GERAETE-NR DES CMD-GERAETES MIT UHR";LF
45 :
46 REM **********************
47 REM ***CMD-UHR AUSLESEN***
48 REM **********************
49 :
50 OPEN15,LF,15,"T-RA"
60 A$=""
70 GET#15,C$:A$=A$+C$:IFST<>64THEN70
80 CLOSE15
95 :
96 REM **********************
97 REM **DATEN KONVERTIEREN**
98 REM **********************
99 :
100 WOCHENTAG$=LEFT$(A$,4)
110 MO$       =MID$(A$,6,2) :REM MONAT
120 TAG$      =MID$(A$,9,2)
130 JAHR$     =MID$(A$,12,2)
140 STUNDEN$  =MID$(A$,15,2)
150 MINUTEN$  =MID$(A$,18,2)
160 SEKUNDEN$ =MID$(A$,21,2)
170 AP$       =MID$(A$,24,2):REM AM/PM
194 :
195 REM**********************
196 REM*****STUNDEN INS******
197 REM**24-STUNDEN-FORMAT***
198 REM**********************
199 :
200 AP=-(AP$="PM"):H=VAL(ST$)
210 S2$=RIGHT$(STR$(H+12*(AP+(H=12))),2)
220 IFVAL(S2$)<10THENS2$="0"+RIGHT$(S2$,1)
230 REM NEUE 24-STUNDEN-VARIABLE: S2$
295 :
296 REM**********************
297 REM*****TI$ SETZEN*******
298 REM**********************
299 :
300 TI$=S2$+MI$+SE$
395 :
396 REM**********************
397 REM****DATEN AUSGEBEN****
398 REM**********************
399 :
400 PRINT"A$ =";A$
410 PRINT"WO$=";WO$
420 PRINT"TA$=";TA$
430 PRINT"MO$=";MO$
440 PRINT"JA$=";JA$
450 PRINT"ST$=";ST$
460 PRINT"MI$=";MI$
470 PRINT"SE$=";SE$
480 PRINT"AP$=";AP$:PRINT
490 PRINT"S2$=";S2$:PRINT
500 PRINT"TI$=";TI$