home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-03_1989_-_de_Side_B.d64 / timeset (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  88 lines

  1. 10 ifk=1then1120
  2. 20 poke53280,0:poke53281,0:print"[147][155]"
  3. 30 goto1000
  4. 100 print"[147]    die hardware-uhr"
  5. 110 print"    [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  6. 111 ifz<>1then120
  7. 112 print" eingestellte zeit: "
  8. 113 print" ";a$(val(w$));", den ";d1$;".";d2$;".";d3$;
  9. 114 print" - ";z1$;":";z2$;":";z3$
  10. 120 print" -1- uhr stellen"
  11. 130 ifz=1then print" -2- eingestellte zeit starten"
  12. 135 print"       copyright 1989 magic disk"
  13. 140 geta$
  14. 150 ifa$="1"then200
  15. 160 ifa$<>"2"then140
  16. 170 ifz<>1then140
  17. 180 sys828:end
  18. 200 print"[147]       copyright 1989 magic disk"
  19. 205 print"    zeit stellen"
  20. 210 print"    [197][197][197][197][197][197][197][197][197][197][197][197]"
  21. 220 print" wochentag:     montag=0"
  22. 230 print"              dienstag=1"
  23. 240 print"              mittwoch=2"
  24. 250 print"            donnerstag=3"
  25. 260 print"               freitag=4"
  26. 270 print"               samstag=5"
  27. 280 print"               sonntag=6"
  28. 290 print" tag: ";
  29. 300 getw$:ifw$<"0"orw$>"6"then300
  30. 310 printw$:poke1006,val(w$)
  31. 320 print"[147]    zeit stellen"
  32. 330 print"    [197][197][197][197][197][197][197][197][197][197][197][197]"
  33. 340 print" datum: tag-monat-jahr"
  34. 350 print" tt-mm-jj    eingabe: ";
  35. 360 open1,0:input#1,d$:close1:iflen(d$)<>8then320
  36. 370 ifmid$(d$,1,1)<"0"ormid$(d$,1,1)>"3"then320
  37. 380 ifmid$(d$,2,1)<"0"ormid$(d$,2,1)>"9"then320
  38. 390 ifmid$(d$,2,1)>"1"andmid$(d$,1,1)="3"then320
  39. 400 ifmid$(d$,4,1)<"0"ormid$(d$,4,1)>"1"then320
  40. 410 ifmid$(d$,5,1)<"0"ormid$(d$,5,1)>"9"then320
  41. 420 ifmid$(d$,5,1)>"2"andmid$(d$,4,1)="1"then320
  42. 430 ifmid$(d$,7,1)<"0"ormid$(d$,7,1)>"9"then320
  43. 440 ifmid$(d$,8,1)<"0"ormid$(d$,8,1)>"9"then320
  44. 450 d1$=mid$(d$,1,2)
  45. 460 d2$=mid$(d$,4,2)
  46. 470 d3$=mid$(d$,7,2)
  47. 480 poke1008,val(left$(d1$,1)):poke1007,val(right$(d1$,1))
  48. 490 poke1010,val(left$(d2$,1)):poke1009,val(right$(d2$,1))
  49. 500 poke1012,val(left$(d3$,1)):poke1011,val(right$(d3$,1))
  50. 520 print"[147]       copyright 1989 magic disk"
  51. 525 print"    zeit stellen"
  52. 530 print"    [197][197][197][197][197][197][197][197][197][197][197][197]"
  53. 540 print" zeit: std-min-sek"
  54. 550 print" ss-mm-ss    eingabe: ";
  55. 560 open1,0:input#1,z$:close1:iflen(z$)<>8then520
  56. 570 ifmid$(z$,1,1)<"0"ormid$(z$,1,1)>"2"then520
  57. 580 ifmid$(z$,2,1)<"0"ormid$(z$,2,1)>"9"then520
  58. 590 ifmid$(z$,2,1)>"3"andmid$(z$,1,1)="2"then520
  59. 600 ifmid$(z$,4,1)<"0"ormid$(z$,4,1)>"5"then520
  60. 610 ifmid$(z$,5,1)<"0"ormid$(z$,5,1)>"9"then520
  61. 630 ifmid$(z$,8,1)<"0"ormid$(z$,8,1)>"9"then520
  62. 640 ifmid$(z$,7,1)<"0"ormid$(z$,7,1)>"5"then520
  63. 650 z1$=mid$(z$,1,2)
  64. 660 z2$=mid$(z$,4,2)
  65. 670 z3$=mid$(z$,7,2)
  66. 680 poke1005,val(left$(z1$,1))+8:poke1004,val(right$(z1$,1))
  67. 690 poke1003,val(left$(z2$,1)):poke1002,val(right$(z2$,1))
  68. 700 poke1001,val(left$(z3$,1)):poke1000,val(right$(z3$,1))
  69. 710 z=1
  70. 720 fori=0to6:reada$(i):next
  71. 730 datamontag,dienstag,mittwoch,donnerstag,freitag,samstag,sonntag
  72. 740 goto100
  73. 1000 print"[147]    die hardware-uhr"
  74. 1010 print"    [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  75. 1020 print"  folgendes programm stellt bei ihrer"
  76. 1030 print"  hardware-uhr datum und zeit ein."
  77. 1040 print"  die hardware-uhr  koennen sie nach"
  78. 1050 print"  der schaltung dieser ausgabe (3/89)"
  79. 1060 print"  selbst bauen, oder beim cp-verlag"
  80. 1070 print"  als bausatz (39.-dm) bzw. als "
  81. 1080 print"  fertigmodul (49.-dm) erwerben."
  82. 1085 print"             -taste-"
  83. 1090 print"       copyright 1989 magic disk"
  84. 1100 k=1
  85. 1110 load"timeset.m",8,1
  86. 1120 geta$:ifa$=""then1120
  87. 1130 goto100
  88.