home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_89-03_1989_-_de_Side_B.d64
/
timeset
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
88 lines
10 ifk=1then1120
20 poke53280,0:poke53281,0:print"[147][155]"
30 goto1000
100 print"[147] die hardware-uhr"
110 print" [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
111 ifz<>1then120
112 print" eingestellte zeit: "
113 print" ";a$(val(w$));", den ";d1$;".";d2$;".";d3$;
114 print" - ";z1$;":";z2$;":";z3$
120 print" -1- uhr stellen"
130 ifz=1then print" -2- eingestellte zeit starten"
135 print" copyright 1989 magic disk"
140 geta$
150 ifa$="1"then200
160 ifa$<>"2"then140
170 ifz<>1then140
180 sys828:end
200 print"[147] copyright 1989 magic disk"
205 print" zeit stellen"
210 print" [197][197][197][197][197][197][197][197][197][197][197][197]"
220 print" wochentag: montag=0"
230 print" dienstag=1"
240 print" mittwoch=2"
250 print" donnerstag=3"
260 print" freitag=4"
270 print" samstag=5"
280 print" sonntag=6"
290 print" tag: ";
300 getw$:ifw$<"0"orw$>"6"then300
310 printw$:poke1006,val(w$)
320 print"[147] zeit stellen"
330 print" [197][197][197][197][197][197][197][197][197][197][197][197]"
340 print" datum: tag-monat-jahr"
350 print" tt-mm-jj eingabe: ";
360 open1,0:input#1,d$:close1:iflen(d$)<>8then320
370 ifmid$(d$,1,1)<"0"ormid$(d$,1,1)>"3"then320
380 ifmid$(d$,2,1)<"0"ormid$(d$,2,1)>"9"then320
390 ifmid$(d$,2,1)>"1"andmid$(d$,1,1)="3"then320
400 ifmid$(d$,4,1)<"0"ormid$(d$,4,1)>"1"then320
410 ifmid$(d$,5,1)<"0"ormid$(d$,5,1)>"9"then320
420 ifmid$(d$,5,1)>"2"andmid$(d$,4,1)="1"then320
430 ifmid$(d$,7,1)<"0"ormid$(d$,7,1)>"9"then320
440 ifmid$(d$,8,1)<"0"ormid$(d$,8,1)>"9"then320
450 d1$=mid$(d$,1,2)
460 d2$=mid$(d$,4,2)
470 d3$=mid$(d$,7,2)
480 poke1008,val(left$(d1$,1)):poke1007,val(right$(d1$,1))
490 poke1010,val(left$(d2$,1)):poke1009,val(right$(d2$,1))
500 poke1012,val(left$(d3$,1)):poke1011,val(right$(d3$,1))
520 print"[147] copyright 1989 magic disk"
525 print" zeit stellen"
530 print" [197][197][197][197][197][197][197][197][197][197][197][197]"
540 print" zeit: std-min-sek"
550 print" ss-mm-ss eingabe: ";
560 open1,0:input#1,z$:close1:iflen(z$)<>8then520
570 ifmid$(z$,1,1)<"0"ormid$(z$,1,1)>"2"then520
580 ifmid$(z$,2,1)<"0"ormid$(z$,2,1)>"9"then520
590 ifmid$(z$,2,1)>"3"andmid$(z$,1,1)="2"then520
600 ifmid$(z$,4,1)<"0"ormid$(z$,4,1)>"5"then520
610 ifmid$(z$,5,1)<"0"ormid$(z$,5,1)>"9"then520
630 ifmid$(z$,8,1)<"0"ormid$(z$,8,1)>"9"then520
640 ifmid$(z$,7,1)<"0"ormid$(z$,7,1)>"5"then520
650 z1$=mid$(z$,1,2)
660 z2$=mid$(z$,4,2)
670 z3$=mid$(z$,7,2)
680 poke1005,val(left$(z1$,1))+8:poke1004,val(right$(z1$,1))
690 poke1003,val(left$(z2$,1)):poke1002,val(right$(z2$,1))
700 poke1001,val(left$(z3$,1)):poke1000,val(right$(z3$,1))
710 z=1
720 fori=0to6:reada$(i):next
730 datamontag,dienstag,mittwoch,donnerstag,freitag,samstag,sonntag
740 goto100
1000 print"[147] die hardware-uhr"
1010 print" [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
1020 print" folgendes programm stellt bei ihrer"
1030 print" hardware-uhr datum und zeit ein."
1040 print" die hardware-uhr koennen sie nach"
1050 print" der schaltung dieser ausgabe (3/89)"
1060 print" selbst bauen, oder beim cp-verlag"
1070 print" als bausatz (39.-dm) bzw. als "
1080 print" fertigmodul (49.-dm) erwerben."
1085 print" -taste-"
1090 print" copyright 1989 magic disk"
1100 k=1
1110 load"timeset.m",8,1
1120 geta$:ifa$=""then1120
1130 goto100