home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_1998-10_1998_CSW_Side_A.d64
/
cmd-uhr.t-ra
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
71 lines
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$