home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 84 / 64er_Magazin_Sonderheft_84_19xx_Markt__Technik_de_Side_A.d64 / fototimer (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  220 lines
  1. 100 printchr$(142);chr$(8)"[147]bitte warten"
  2. 110 poke56,128:clr:poke53280,0:poke53281,0
  3. 120 gosub1940
  4. 130 print"[154][147]"
  5. 140 poke53280,0:poke53281,0
  6. 150 poke251,0:poke252,16:poke253,0
  7. 160 cq=56584:cr=56328
  8. 170 input"[147]datum";da$:ifda$=""then170
  9. 175 iflen(da$)>16then170
  10. 180 print" uhr stellen ?  j/n":poke198,0:wait198,1:getz$:ifz$="j"then200
  11. 190 aq$="000000":goto220
  12. 200 input"hhmmss";aq$
  13. 210 if len(aq$)<>6then200
  14. 220 hq=val(left$(aq$,2))
  15. 230 mq=val(mid$(aq$,3,2))
  16. 240 sq=val(right$(aq$,2))
  17. 250 ifhq>23then1880
  18. 260 ifhq>11thenhq=hq+68
  19. 270 pokecq+3,16*int(hq/10)+hq-int(hq/10)*10
  20. 280 ifmq>59then1880
  21. 290 pokecq+2,16*int(mq/10)+mq-int(mq/10)*10
  22. 300 ifsq>59then1880
  23. 310 pokecq+1,16*int(sq/10)+sq-int(sq/10)*10
  24. 320 pokecq,0
  25. 330 c=0:a=600:b=0:d=10:g=370:s=117:po=56577:si=54272:sy=158*256:pokepo+2,1
  26. 340 :pokepo,0
  27. 350 :
  28. 360 input"[147]filmbezeichnung";na$:iflen(a$)>10then360
  29. 370 ifna$=""then360
  30. 380 :
  31. 390 print"[147]":syssy+9:print"      <h> = hilfstext[154]"
  32. 400 pokepo,0:getz$
  33. 410 s=17:print"[155]vorw. [146]"int(d*100+.1)/100"[157]       ";tab(19)"[150][192][192]"
  34. 420 print""tab(24)"timer    00 00 0"
  35. 430 print"[158]ye[146]";ye;tab(15)"[156]ma[146]";ma;tab(30)"[159]cy[146]";cy;""
  36. 440 print"[155]saeule[146]";g""
  37. 450 print"[152]bez. "da$;tab(24)na$""
  38. 460 gosub1400:print"[145]status:":printtab(9)"[145]ready[146]"
  39. 470 fori=1to100:next:z$=""
  40. 480 :
  41. 490 if(peek(po)and2)=0thens=69:goto1100
  42. 500 syssy+6:getz$:ifz$=" "thens=117:goto660
  43. 510 if(peek(po)and4)=0thens=117:goto660
  44. 520 ifz$="t"thengosub1440:s=17:goto720
  45. 530 ifz$="[133]"thens=69:goto1100
  46. 540 ifz$="[136]"thens=17:goto1160
  47. 550 ifz$="[211]"thengoto1490
  48. 560 ifz$="[204]"thengoto1640
  49. 570 ifz$="[196]"thenprint"[147]":goto1910
  50. 580 ifz$="-"then1270
  51. 590 ifz$="+"then1280
  52. 600 ifz$="f"thens=17:gosub1440:goto740
  53. 610 ifz$="h"thens=17:gosub1400:goto950
  54. 620 ifz$="z"thens=17:gosub1440:goto830
  55. 630 ifz$="n"thens=17:gosub1440:goto360
  56. 640 goto490
  57. 650 :
  58. 660 pokepo,1:print""tab(19)"[150]  "
  59. 670 gosub1400:print"[145]"tab(15)"licht[146]"
  60. 680 syssy+6:if(peek(po)and2)=0then400
  61. 690 getz$:ifz$=" "then400
  62. 700 goto680
  63. 710 :
  64. 720 input"[147]zeit in s ";a$:ifval(a$)=0thenprint"[147]":goto400
  65. 730 d=val(a$):goto1800
  66. 740 input"[147]filterung ye";y
  67. 750 input"          ma";m
  68. 760 input"          cy";ca
  69. 770 ify<0then390
  70. 780 e=d*(1+y*.01*.5)*(1+m*.01*1.6)*(1+ca*.01*1.3)
  71. 790 f=(1+ye*.01*.5)*(1+ma*.01*1.6)*(1+cy*.01*1.3):d=e/f
  72. 800 ye=y:ma=m:cy=ca
  73. 810 goto1800
  74. 820 :
  75. 830 input"[147]saeule";a$:ifval(a$)=0then390
  76. 840 h=val(a$):d=d*((h^2)/(g^2)):g=h
  77. 850 goto1800
  78. 860 :
  79. 870 input"eintestung saeule";a$
  80. 880 ifval(a$)=0then390
  81. 890 g=val(a$):goto390
  82. 900 :
  83. 910 print""tab(20)"e[146]"
  84. 920 input"[147]eintestung ye,ma,cy";ye,ma,cy:ifye<0then390
  85. 930 goto390
  86. 940 :
  87. 950 print"[155][147]    auflistung der funktionen"
  88. 960 print"    [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  89. 970 print"    <t> - neue zeit"
  90. 980 print"    <z> - neue saeulenzahl + autozeit"
  91. 990 print"    <f> - neue filterung + autozeit
  92. 1000 [153]"    <n> - neue bezeichnung"
  93. 1010 [153]:[153]"    <+> - 1/4 blende plus"
  94. 1020 [153]"    <-> - 1/4 blende minus"
  95. 1030 [153]" <sh s> - abspeichern der werte"
  96. 1040 [153]" <sh l> - laden der werte"
  97. 1050 [153]" <sh d> - directory "
  98. 1060 [153]"   <f7> - stoppuhr <f7>,<f8>,<space>cont"
  99. 1065 [153]"      <space> = weiter"
  100. 1070 [129]i[178]1[164]5000:[161]z$:[139]z$[178]" "[167]390
  101. 1080 [130]:[137]390
  102. 1090 :
  103. 1100 [153]""[163]19)"def  wait";[163]30)"        "
  104. 1110 [141]1430
  105. 1120 [158]sy:  [143] * belichtung
  106. 1130 [161]z$:[139]z$[179][177]""[167][137]1300
  107. 1140 s[178]69:[137]410
  108. 1150 :
  109. 1160 [153]"loadcont":d$[178]""
  110. 1170 ti$[178]"000000":[129]i[178]1[164]100:[130]
  111. 1180 a$[178][200](ti$,2):b$[178][202](ti$,3,2):c$[178][201](ti$,2)
  112. 1190 [158]sy[170]6:[153]d$;a$" std.wait  "b$" min.wait   "c$" sec.wait   "
  113. 1200 [161]z$:[139]z$[178]""[167]1180
  114. 1210 [139]z$[178]"let"[167]d$[178]d$[170]"":[137]1170
  115. 1220 [139]z$[178]"restore"[167]d$[178]d$[170]"":[137]1180
  116. 1230 [139]z$[178]" "[167]390
  117. 1240 [139][195](d$)[177]22[167][153]"loadcont":d$[178]""
  118. 1250 [137]1180
  119. 1260 :
  120. 1270 d[178]d[173][186]([186](2)):[137]1790
  121. 1280 d[178]d[172][186]([186](2)):[137]1790
  122. 1290 :
  123. 1300 [151]po,0:[153]""[163]19)"deftantan":[129]i[178]0[164]200:[130]
  124. 1310 [141]1400:[153]"on"[163]27)"breakwait"
  125. 1320 [161]z$:[139]z$[178]" "[167]400
  126. 1330 [139]([194](po)[175]4)[178]0[167]400
  127. 1340 [139]([194](po)[175]2)[178]0[167][141]1430:[151]po,0:[158]sy[170]3:[137]1130
  128. 1350 [139]z$[178]"input"[167][141]1430:[151]po,1:[158]sy[170]3:[137]1130
  129. 1360 [137]1320
  130. 1370 :
  131. 1380 [151]si[170]24,15:[151]si[170]5,9:[151]si,17:[151]si[170]1,s
  132. 1390 [151]si[170]4,17:[129]i[178]0[164]300:[130]:[151]si[170]4,0:[142]
  133. 1400 [153]""[163]9)"contready licht expos break input"
  134. 1410 [153][163]9)"tab(tab(tab(tab(tab(fretab(tab(tab(tab(tab(fretab(tab(tab(tab(tab(fretab(tab(tab(tab(tab(fretab(tab(tab(tab(tab("
  135. 1415 [153][163]9)"list      space  f1   spacecontonon":[137]1380:[142]
  136. 1420 :
  137. 1430 [141]1400:[153]"on"[163]21)"exposwait":[142]
  138. 1440 [141]1400:[153]"on"[163]33)"input":[142]
  139. 1450 :
  140. 1460 [160]1:[159]1,8,2,da$[170]",s,a"
  141. 1470 [139]st[179][177]0[167][153]"":[158]873:[151]198,0:[146]198,1:[137]380
  142. 1480 [137]1500
  143. 1490 na[178]na[170]1:[160]5:[159]1,8,2,da$[170]",s,w":[159]5,8,15:[132]5,ca:[139]ca[178]63[167]1460
  144. 1500 [152]1,"bez "[170]na$
  145. 1510 [152]1,na
  146. 1520 [152]1,g
  147. 1530 [152]1,d
  148. 1540 [152]1,ye
  149. 1550 [152]1,ma
  150. 1560 [152]1,cy
  151. 1570 [160]1:[160]5:[137]390
  152. 1580 [153]"load":[151]198,0:[146]198,1
  153. 1590 h2$[178]"":[133]"ges. datum:";h2$
  154. 1600 [139]h2$[178]"$"[167][153]"load":[158]901:[137]1590
  155. 1610 [139]h2$[178]""[167]390
  156. 1620 [137]1670
  157. 1630 :
  158. 1640 [153]"load"
  159. 1650 h2$[178]"":[133]"ges. datum:";h2$:[139]h2$[178]"$"[167][153]"load":[158]901:[137]1590
  160. 1660 [139]h2$[178]""[167]390
  161. 1670 [160]1:[159]1,8,2,h2$[170]",s,r":[159]5,8,15:[161]#5,ca$:ca[178][197](ca$)
  162. 1680 [139]ca[178]62[167][160]1:[160]5:[137]1640
  163. 1690 [139]ca[177]0[167][153]:[153]:[158]873:[160]1:[160]5:[137]1580
  164. 1700 da$[178]h2$:[132]1,h1$:[139][200](h1$,4)[179][177]"bez "[167]1700
  165. 1710 [132]1,na,g,d,ye,ma,cy
  166. 1720 [153]"load<return> = uebernehmen"
  167. 1730 [153]"nr."na;[163]15);h1$:[153]"zeit ";d"  saeule ";g
  168. 1740 [153]"sysyewait";ye;[163]15)"clrmawait";ma;[163]30)"opencywait";cy;""
  169. 1750 [139]st[178]64[167][158]873:[151]198,0:[146]198,1:[137]1780
  170. 1760 [151]198,0:[146]198,1:[161]z$
  171. 1770 [139]z$[179][177][199](13)[167]1700
  172. 1780 na$[178][201](h1$,[195](h1$)[171]4):[160]1:[160]5
  173. 1790 :
  174. 1800 dq[178][181](d[173]60):mq[178]dq
  175. 1810 sq[178][181]((d[173]60[171]dq)[172]60)
  176. 1820 dq[178][181](d):tq[178][181](d[172]10[171](dq[172]10)[170].5)
  177. 1830 [151]253,16[172][181](mq[173]10)[170]mq[171][181](mq[173]10)[172]10
  178. 1840 [151]252,16[172][181](sq[173]10)[170]sq[171][181](sq[173]10)[172]10
  179. 1850 [151]251,tq
  180. 1860 [137]390
  181. 1870 :
  182. 1880 [153]"loadfalsche eingabe":[137]180
  183. 1890 :
  184. 1900 :
  185. 1910 [153]"load":[158]901:[139]st[179][177]64[167][153]:[153]:[158]873
  186. 1920 [151]198,0:[146]198,1:[137]1800
  187. 1930 :
  188. 1940 [129]i[178]40448[164]40786:[135]a:[151]i,a:[130]
  189. 1950 :
  190. 1960 [131]76,17,158,76,203,158,76,229,158,76,60,159,169,1,141,3,221,169,1,141
  191. 1970 [131]1,221,169,0,141,11,220,141,10,220,141,9,220,141,8,220,173,8,220,162
  192. 1980 [131]10,189,157,158,157,102,4,202,208,247,169,32,141,115,4,141,118,4,173
  193. 1990 [131]11,220,173,10,220,32,148,158,141,113,4,173,10,220,32,152,158,141,114
  194. 2000 [131]4,173,9,220,32,148,158,141,116,4,173,9,220,32,152,158,141,117,4,173
  195. 2010 [131]8,220,56,105,47,141,119,4,173,11,220,165,198,208,63,173,8,220,41,15
  196. 2020 [131]56,197,251,208,169,173,9,220,56,197,252,208,161,173,10,220,56,197,253
  197. 2030 [131]208,153,169,0,141,1,221,96,96,96,96,74,74,74,74,41,15,56,105,47,96
  198. 2040 [131]32,20,9,13,5,18,32,32,32,32,32,26,5,9,20,32,32,32,169,0,141,1,221,141
  199. 2050 [131]1,221,173,10,220,141,60,3,173,9,220,141,61,3,173,8,220,141,62,3,96
  200. 2060 [131]169,0,141,11,220,173,60,3,141,10,220,173,61,3,141,9,220,173,62,3,141
  201. 2070 [131]8,220,76,36,158,162,7,189,167,158,157,22,4,202,208,247,169,32,141,32
  202. 2080 [131]4,141,35,4,141,38,4,141,39,4,173,11,221,41,127,32,148,158,141,30,4
  203. 2090 [131]173,11,221,41,127,32,152,158,141,31,4,173,10,221,32,148,158,141,33
  204. 2100 [131]4,173,10,221,32,152,158,141,34,4,173,9,221,32,148,158,141,36,4,173
  205. 2110 [131]9,221,32,152,158,141,37,4,173,8,221,96,169,1,162,17,157,22,216,202
  206. 2120 [131]208,250,169,1,162,97,157,22,216,202,224,80,208,248,96
  207. 2130 :
  208. 2140 [129]i[178]873[164]1006:[135]a:[151]i,a:[130]
  209. 2150 :
  210. 2160 [131]169,8,133,186,32,180,255,169,111,133,185,32,150,255,32,165,255,32,210
  211. 2170 [131]255,201,13,208,246,32,171,255,96,169,36,133,251,169,251,133,187,169
  212. 2180 [131]0,133,188,169,1,133,183,169,8,133,250,169,96,133,185,32,213,243,165
  213. 2190 [131]186,32,180,255,165,185,32,150,255,169,0,133,144,160,3,132,251,32,165
  214. 2200 [131]255,133,252,164,144,208,47,32,165,255,164,144,208,40,164,251,136,208
  215. 2210 [131]233,166,252,32,205,189,169,32,32,210,255,32,165,255,166,144,208,18
  216. 2220 [131]170,240,6,32,210,255,76,209,3,169,13,32,210,255,160,2,208,198,32,66
  217. 2230 [131]246,96,60
  218. 2240 :
  219. 2250 [142]
  220.