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