home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1996 August / 64er_Magazin_96-08_1996_Markt__Technik_de_Side_A.d64 / telefon-tarife (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  9KB  |  283 lines
  1. 5 poke53281,0:poke53280,0:print""
  2. 10 restore:printchr$(14)chr$(8)chr$(147):goto120
  3. 15 x(1)=23:x(2)=59:x(3)=59:m$="[213]hr":rem zeiteingabe
  4. 20 ifb1=1thenm$="[211]td"
  5. 25 ifb1=2andc2=2thenm$="[211]td"
  6. 30 printtab(11)"";m$;tab(19)"[205]in"tab(27)"[211]ek"
  7. 35 n=1:fori=1to3:m(i)=0:m$(i)=right$(str$(m(i)),2):nexti
  8. 40 m$(n)=right$(str$(m(n)),2):fori=1to3:l(i)=len(m$(i)):nexti
  9. 45 fori=1to3:ifn=ithenprinttab(2+8*n-l(i))chr$(18)"[145]";m$(n)
  10. 50 ifn<>ithenprinttab(2+8*i-l(i))"[145]"m$(i)
  11. 55 nexti
  12. 60 gett$:ift$=""then60
  13. 65 ift$=chr$(29)thenn=n+1:ifn>3thenn=3
  14. 70 ift$=chr$(157)thenn=n-1:ifn<1thenn=1
  15. 75 ift$=chr$(145)thenm(n)=m(n)+1:ifm(n)>x(n)thenm(n)=0
  16. 80 ift$=chr$(17)thenm(n)=m(n)-1:ifm(n)<0thenm(n)=x(n)
  17. 85 ift$=chr$(13)theng=m(3)+60*m(2)+3600*m(1):goto4000
  18. 90 goto40
  19. 120 printtab(7)"[212][160][197][160][204][160][197][160][198][160][207][160][206][160][212][160][193][160][210][160][201][160][198][160][197]"chr$(13)tab(12)"( [201] [206] [204] [193] [206] [196] )"
  20. 123 printtab(9)"gueltig ab 01.07.1996"
  21. 125 printtab(10)"von [199]unther [210]ichter"
  22. 130 printtab(10)"[210]ichard-[203]och-[211]tr. 1"
  23. 135 printtab(11)"38685 [204]angelsheim"
  24. 140 printtab(2)"[197]-[205]ail: trichtex@data-klo.mcnet.de"
  25. 145 printtab(2)"  oder: trichtex@nightbox.leine.de"
  26. 150 printtab(2)"[196]ie [208]rogrammsteuerung erfolgt mittels"
  27. 155 printtab(2)"der [195]ursortasten und [210][197][212][213][210][206]. <[212]aste>"
  28. 165 geta$:ifa$=""then165
  29. 170 fori=1to7:reada$(i):nexti
  30. 180 fori=1to6:readb$(i):nexti
  31. 190 fori=1to5:readb1$(i):nexti
  32. 200 fori=1to9:readc$(i):nexti
  33. 210 fori=1to5:readc1$(i):nexti
  34. 220 fori=1to5:readc2$(i):nexti
  35. 230 fori=1to5:readc3$(i):nexti
  36. 240 fori=1to8:reade(i):nexti
  37. 250 fori=1to4:reade1(i):nexti
  38. 280 print"[147]     [194]itte waehlen [211]ie die [198]ernzone,"
  39. 290 printtab(4)"in der das [199]espraech stattfindet:"
  40. 300 a=1:rem fernzone
  41. 310 fori=1to7:ifa=ithenprinttab(13)chr$(18)a$(a)
  42. 320 ifa<>ithen printtab(13)a$(i)
  43. 330 nexti
  44. 340 gett$:ift$=""then340
  45. 350 ift$=chr$(17)thena=a+1:ifa>7thena=7
  46. 360 ift$=chr$(145)thena=a-1:ifa<1thena=1
  47. 370 ift$=chr$(13)anda<5then500
  48. 375 ift$=chr$(13)anda=5thengoto6200
  49. 380 ift$=chr$(13)anda=6thengoto10
  50. 390 ift$=chr$(13)anda=7thengoto6000
  51. 400 print"[145][145][145][145][145][145][145][145]":goto310
  52. 500 b=1:rem wochentag
  53. 510 print"[147]     [215]ann findet das [199]espraech statt?"
  54. 520 fori=1to6:ifb=ithenprinttab(8)chr$(18)b$(b)
  55. 530 ifb<>ithen printtab(8)b$(i)
  56. 540 nexti
  57. 550 gett$:ift$=""then550
  58. 560 ift$=chr$(17)thenb=b+1:ifb>6thenb=6
  59. 570 ift$=chr$(145)thenb=b-1:ifb<1thenb=1
  60. 580 ift$=chr$(13)andb<5then700
  61. 590 ift$=chr$(13)andb=5then280
  62. 600 ift$=chr$(13)andb=6then6000
  63. 610 print"[145][145][145][145][145][145][145]":goto520
  64. 700 b1=1:rem art der zeiteingabe
  65. 710 print"[147]     [205]it welchen [196]aten soll die"
  66. 720 print" [199]espraechsdauer eingegeben werden?"
  67. 730 fori=1to5:ifb1=ithenprinttab(7)chr$(18)b1$(b1)
  68. 740 ifb1<>ithen printtab(7)b1$(i)
  69. 750 nexti
  70. 760 gett$:ift$=""then760
  71. 770 ift$=chr$(17)thenb1=b1+1:ifb1>5thenb1=5
  72. 780 ift$=chr$(145)thenb1=b1-1:ifb1<1thenb1=1
  73. 790 ift$=chr$(13)andb1=1then1000
  74. 800 ift$=chr$(13)andb1=2then1700
  75. 810 ift$=chr$(13)andb1=3then2000
  76. 820 ift$=chr$(13)andb1=4then500
  77. 830 ift$=chr$(13)andb1=5then6000
  78. 840 ift$=chr$(13)andb1<4then4000
  79. 850 print"[145][145][145][145][145][145]":goto730
  80. 1000 c=1:ifb=2orb=3then1300:rem eingabe der zeitzone in der woche
  81. 1010 print"[147]        [201]n welcher [218]eitzone"
  82. 1020 print"     findet das [199]espraech statt?"
  83. 1030 fori=1to9:ifc=ithenprinttab(10)chr$(18)c$(c)
  84. 1040 ifc<>ithen printtab(10)c$(i)
  85. 1050 nexti
  86. 1060 gett$:ift$=""then1060
  87. 1070 ift$=chr$(17)thenc=c+1:ifc>9thenc=9
  88. 1080 ift$=chr$(145)thenc=c-1:ifc<1thenc=1
  89. 1090 ift$=chr$(13)andc<8thengosub3000:print"[196]auer:[145][145][145]":goto15
  90. 1100 ift$=chr$(13)andc=8then700
  91. 1110 ift$=chr$(13)andc=9then6000
  92. 1120 print"[145][145][145][145][145][145][145][145][145][145]":goto1030
  93. 1300 c1=1:rem eingabe der zeitzone am wochenende und feiertags
  94. 1310 print"[147]        [201]n welcher [218]eitzone"
  95. 1320 print"     findet das [199]espraech statt?"
  96. 1330 fori=1to5:ifc1=ithenprinttab(10)chr$(18)c1$(c1)
  97. 1340 ifc1<>ithen printtab(10)c1$(i)
  98. 1350 nexti
  99. 1360 gett$:ift$=""then1360
  100. 1370 ift$=chr$(17)thenc1=c1+1:ifc1>5thenc1=5
  101. 1380 ift$=chr$(145)thenc1=c1-1:ifc1<1thenc1=1
  102. 1390 ift$=chr$(13)andc1<4thengosub3500:print"[196]auer:[145][145][145]":goto15
  103. 1400 ift$=chr$(13)andc1=4then700
  104. 1410 ift$=chr$(13)andc1=5then6000
  105. 1420 print"[145][145][145][145][145][145]":goto1330
  106. 1700 c2=1:rem eingabe der startzeit und dauer
  107. 1710 print"[147]     [215]as soll eingegeben werden?"
  108. 1730 fori=1to5:ifc2=ithenprinttab(13)chr$(18)c2$(c2)
  109. 1740 ifc2<>ithen printtab(13)c2$(i)
  110. 1750 nexti
  111. 1760 gett$:ift$=""then1760
  112. 1770 ift$=chr$(17)thenc2=c2+1:ifc2>5thenc2=4
  113. 1780 ift$=chr$(145)thenc2=c2-1:ifc2<1thenc2=1
  114. 1790 ift$=chr$(13)andc2<3thengosub15:goto1700
  115. 1795 ift$=chr$(13)andc2=3then4000
  116. 1800 ift$=chr$(13)andc2=4then700
  117. 1810 ift$=chr$(13)andc2=5then6000
  118. 1820 print"[145][145][145][145][145][145]":goto1730
  119. 2000 c3=1:rem eingabe der startzeit und der endzeit
  120. 2010 print"[147]     [215]as soll eingegeben werden?"
  121. 2030 fori=1to5:ifc3=ithenprinttab(13)chr$(18)c3$(c3)
  122. 2040 ifc3<>ithen printtab(13)c3$(i)
  123. 2050 nexti
  124. 2060 gett$:ift$=""then2060
  125. 2070 ift$=chr$(17)thenc3=c3+1:ifc3>5thenc3=4
  126. 2080 ift$=chr$(145)thenc3=c3-1:ifc3<1thenc3=1
  127. 2090 ift$=chr$(13)andc3<3thengosub15:goto2000
  128. 2095 ift$=chr$(13)andc3=3then4000
  129. 2100 ift$=chr$(13)andc3=4then700
  130. 2110 ift$=chr$(13)andc3=5then6000
  131. 2120 print"[145][145][145][145][145][145]":goto2030
  132. 3000 ifa=1andc=1thend=240:rem city werktag
  133. 3010 ifa=1andc=2thend=240
  134. 3020 ifa=1andc=3thend=150
  135. 3030 ifa=1andc=4thend=90
  136. 3040 ifa=1andc=5thend=90
  137. 3050 ifa=1andc=6thend=150
  138. 3060 ifa=1andc=7thend=240
  139. 3100 ifa=2andc=1thend=60:rem region 50 werktag
  140. 3110 ifa=2andc=2thend=120
  141. 3120 ifa=2andc=3thend=45
  142. 3130 ifa=2andc=4thend=26:ifb=4thend=36
  143. 3140 ifa=2andc=5thend=30:ifb=4thend=36
  144. 3150 ifa=2andc=6thend=45
  145. 3160 ifa=2andc=7thend=60
  146. 3200 ifa=3andc=1thend=36:rem region 200 werktag
  147. 3210 ifa=3andc=2thend=120
  148. 3220 ifa=3andc=3thend=22.5:ifb=4thend=36
  149. 3230 ifa=3andc=4thend=13:ifb=4thend=36
  150. 3240 ifa=3andc=5thend=14:ifb=4thend=36
  151. 3250 ifa=3andc=6thend=22.5:ifb=4thend=36
  152. 3260 ifa=3andc=7thend=36
  153. 3300 ifa=4andc=1thend=30:ifb=4thend=36:rem fernzone werktag
  154. 3310 ifa=4andc=2thend=120
  155. 3320 ifa=4andc=3thend=21.5:ifb=4thend=36
  156. 3330 ifa=4andc=4thend=12:ifb=4thend=36
  157. 3340 ifa=4andc=5thend=13.5:ifb=4thend=36
  158. 3350 ifa=4andc=6thend=21.5:ifb=4thend=36
  159. 3360 ifa=4andc=7thend=30:ifb=4thend=36
  160. 3370 return
  161. 3500 ifa=1andc1=1thend=240:rem city wochenende
  162. 3510 ifa=1andc1=2thend=150
  163. 3520 ifa=1andc1=3thend=240
  164. 3550 ifa=2andc1=1thend=60:rem region 50 wochenende
  165. 3560 ifa=2andc1=2thend=45
  166. 3570 ifa=2andc1=3thend=60
  167. 3600 ifa=3andc1=1thend=36:rem region 200 wochenende
  168. 3610 ifa=3andc1=2thend=22.5:ifb=3thend=36
  169. 3620 ifa=3andc1=3thend=36
  170. 3650 ifa=4andc1=1thend=30:ifb=3thend=36:rem fernzone wochenende
  171. 3660 ifa=4andc1=2thend=21.5:ifb=3thend=36
  172. 3670 ifa=4andc1=3thend=30:ifb=3thend=36
  173. 3680 return
  174. 4000 ifc2=1andb1=2then g1=g:fori=1to3:g1$(i)=m$(i):nexti:return
  175. 4010 ifc2=2andb1=2then g3=g:fori=1to3:g3$(i)=m$(i):nexti:return
  176. 4030 ifc2=3andb1=2then g2=g1+g3
  177. 4040 ifc3=1andb1=3then g1=g:fori=1to3:g1$(i)=m$(i):nexti:return
  178. 4050 ifc3=2andb1=3then g2=g:fori=1to3:g2$(i)=m$(i):nexti:return
  179. 4060 ifc3=3andb1=3andg2<g1theng2=g2+86400
  180. 4070 ifc3=3andb1=3then g3=g2-g1
  181. 4080 i=1:h1=0:h2=0:g4=0:g5=0
  182. 4085 ifb1=1theng3=g:goto4500
  183. 4090 ifb=2orb=3then4300
  184. 4100 ifg1>=e(i)andg1<e(i+1)thenc=i:gosub3000:goto4200
  185. 4140 ifi=7theni=0:g1=g1-86400
  186. 4150 i=i+1:goto4100
  187. 4200 ifg1+g3<=e(i+1)theng4=g3
  188. 4210 ifg1+g3>e(i+1)theng4=e(i+1)-g1
  189. 4220 g5=g4/d:ifint(g5)<g5theng5=int(g5)+1
  190. 4230 g5=int(g5):g6=d*g5:h1=g5*12:h2=h2+h1
  191. 4240 g3=g3-g6:g1=g1+g6:ifg3<=0thengoto4600
  192. 4260 goto4100
  193. 4300 ifg1>=e1(i)andg1<e1(i+1)thenc1=i:gosub3500:goto4400
  194. 4340 ifi=4theni=0:g1=g1-86400
  195. 4350 i=i+1:goto4300
  196. 4400 ifg1+g3<=e1(i+1)theng4=g3
  197. 4410 ifg1+g3>e1(i+1)theng4=e1(i+1)-g1
  198. 4420 g5=g4/d:ifint(g5)<g5theng5=int(g5)+1
  199. 4430 g5=int(g5):g6=d*g5:h1=g5*12:h2=h2+h1
  200. 4440 g3=g3-g6:g1=g1+g6:ifg3<=0thengoto4600
  201. 4460 goto4300
  202. 4500 fori=1to3:g3$(i)=m$(i):nexti
  203. 4510 g5=g3/d:ifint(g5)<g5theng5=int(g5)+1
  204. 4520 g5=int(g5):g6=d*g5:h2=g5*12
  205. 4600 print"[147] [196]ie [199]espraechsdaten:"
  206. 4610 print" [197]ntfernungszone:";a$(a)
  207. 4620 print" [199]espraech";b$(b)
  208. 4625 fori=1to3:ifg1$(i)=""theng1$(i)=" 0":nexti
  209. 4630 ifb1=2orb1=3thenprint" [211]tartzeit: "g1$(1)" [213]hr "g1$(2)" [205]in "g1$(3)" [211]ek"
  210. 4635 fori=1to3:ifg2$(i)=""theng2$(i)=" 0":nexti
  211. 4640 ifb1=3thenprint" [197]ndzeit:   "g2$(1)" [213]hr "g2$(2)" [205]in "g2$(3)" [211]ek"
  212. 4645 fori=1to3:ifg3$(i)=""theng3$(i)=" 0":nexti
  213. 4650 ifb1=1orb1=2thenprint" [196]auer:     "g3$(1)" [211]td "g3$(2)" [205]in "g3$(3)" [211]ek"
  214. 4660 ifb1=1andb=1thenprint" [218]eitzone: ";c$(c)
  215. 4665 ifb1=1andb=4thenprint" [218]eitzone: ";c$(c)
  216. 4670 ifb1=1andb=2thenprint" [218]eitzone: ";c1$(c1)
  217. 4680 ifb1=1andb=3thenprint" [218]eitzone: ";c1$(c1)
  218. 4690 h2$=str$(h2)
  219. 4710 hl=len(h2$):h3$=left$(h2$,(hl-2))
  220. 4720 h4$=right$(h2$,2):ifh2=0thenh4$="00"
  221. 4730 ifh2/100<1thenprint" [203]osten: "tab(20-hl)"0."h4$"[196][205]"
  222. 4740 ifh2/100>=1thenprint" [203]osten: "tab(20-hl)h3$"."h4$"[196][205]
  223. 5000 [131]" lenityzone   "," (NULL)egion 50  "," (NULL)egion 200 "," ascernzone   "
  224. 5010 [131]" (NULL)ebersicht "," zurueck    "," val(NULL)str$val       "
  225. 5020 [131]" in der (NULL)oche         "," am (NULL)ochenende        "
  226. 5024 [131]" am asceiertag          "," werktags, 27.-30.12. "
  227. 5028 [131]" zurueck              "," val(NULL)str$val                 "
  228. 5040 [131]" (NULL)eitzone und str$auer    "," (NULL)tartzeit und str$auer   "
  229. 5050 [131]" (NULL)tartzeit und valndzeit "," zurueck               "
  230. 5060 [131]" val(NULL)str$val                  "
  231. 5070 [131]" 00.00-02.00 (NULL)hr "," 02.00-05.00 (NULL)hr "," 05.00-09.00 (NULL)hr "
  232. 5080 [131]" 09.00-12.00 (NULL)hr "," 12.00-18.00 (NULL)hr "," 18.00-21.00 (NULL)hr "
  233. 5090 [131]" 21.00-24.00 (NULL)hr "," zurueck         "," val(NULL)str$val            "
  234. 5100 [131]" 00.00-05.00 (NULL)hr "," 05.00-21.00 (NULL)hr "," 21.00-24.00 (NULL)hr "
  235. 5110 [131]" zurueck         "," val(NULL)str$val            "
  236. 5120 [131]" (NULL)tartzeit "," str$auer     "," peekerechnen "
  237. 5130 [131]" zurueck   "," val(NULL)str$val      "
  238. 5140 [131]" (NULL)tartzeit "," valndzeit   "," peekerechnen "
  239. 5150 [131]" zurueck   "," val(NULL)str$val      "
  240. 5160 [131]0,7200,18000,32400,43200,64800,75600,86400
  241. 5170 [131]0,18000,75600,86400
  242. 6000 [153]" (NULL)och eine peekerechnung?"
  243. 6010 o$(1)[178]"ja":o$(2)[178]"nein":o[178]1
  244. 6020 [129]i[178]1[164]2:[139]o[178]i[167][153][163]22[170]4[172]i)[199](18)"on"o$(i)
  245. 6030 [139]o[179][177]i[167][153][163]22[170]4[172]i)"on"o$(i)
  246. 6035 [130]i
  247. 6040 [161]t$:[139]t$[178]""[167]6040
  248. 6050 [139]t$[178][199](29)[167]o[178]o[170]1:[139]o[177]2[167]o[178]2
  249. 6060 [139]t$[178][199](157)[167]o[178]o[171]1:[139]o[179]1[167]o[178]1
  250. 6070 [139]t$[178][199](13)[175]o[178]1[167]280
  251. 6080 [139]t$[178][199](13)[175]o[178]2[167]6100
  252. 6090 [137]6020
  253. 6100 [153][163]8)"(NULL) n d   t s c h u e s s ! !":[128]
  254. 6200 [153]"loaddef (NULL)prechdauer fuer eine valinheit (0.12str$(NULL))"
  255. 6210 [153]"in der (NULL)oche  lenity  (NULL)eg50 (NULL)eg200   ascern"
  256. 6230 [153]"00.00-02.00print   240s    60sprint    36s    30s"
  257. 6240 [153]"02.00-05.00print   240s   120sprint   120s   120s"
  258. 6250 [153]"05.00-09.00print   150s    45sprint  22.5s   21.5"
  259. 6260 [153]"09.00-12.00print    90s    26sprint    13s    12s"
  260. 6270 [153]"12.00-18.00print    90s    30sprint    14s  13.5s"
  261. 6280 [153]"18.00-21.00print   150s    45sprint  22.5s  21.5s"
  262. 6290 [153]"21.00-24.00print   240s    60sprint    36s    30s"
  263. 6300 [153]"defam (NULL)ochenende"
  264. 6310 [153]"00.00-05.00print   240s    60sprint    36s    30s"
  265. 6320 [153]"00.00-05.00print   240s    45sprint  22.5s  21.5s"
  266. 6330 [153]"21.00-24.00print   240s    60sprint    36s    30son"
  267. 6340 [161]t$:[139]t$[178]""[167]6340
  268. 6400 [153]"loaddef (NULL)prechdauer fuer eine valinheit (0.12str$(NULL))"
  269. 6410 [153]"am asceiertag   lenity  (NULL)eg50 (NULL)eg200   ascern"
  270. 6420 [153]"00.00-05.00print   240s    60sprint    36s    36s"
  271. 6430 [153]"05.00-21.00print   150s    45sprint    36s    36s"
  272. 6440 [153]"21.00-24.00print   240s    60sprint    36s    36s"
  273. 6450 [153]"def(NULL)om 27.12. bis 30.12. werktags"
  274. 6460 [153]"00.00-02.00print   240s    60sprint    36s    36s"
  275. 6470 [153]"02.00-05.00print   240s   120sprint   120s   120s"
  276. 6480 [153]"05.00-09.00print   150s    45sprint    36s    36s"
  277. 6490 [153]"09.00-12.00print    90s    36sprint    36s    36s"
  278. 6500 [153]"12.00-18.00print    90s    36sprint    36s    36s"
  279. 6510 [153]"18.00-21.00print   150s    45sprint    36s    36s"
  280. 6520 [153]"21.00-24.00print   240s    60sprint    36s    36son"
  281. 6530 [161]t$:[139]t$[178]""[167]6530
  282. 6540 [137]280
  283.