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]