Atari 8-bit Source code

10 DIM R$(15)
20 ? ""
30 ? "***********************************"
40 ? "* *"
50 ? "* M A K R O F O T O G R A F I E *"
60 ? "* *"
70 ? "***********************************"
80 ?
90 ? "  "
100 ? " objektiv "
110 ? "   "
120 ? "  F  F' obraz"
130 ? "   "
140 ? ""
150 ? " A f  f A'"
160 ? "   "
170 ? "predmet   "
180 ? "   "
190 ? " "
200 ? "  "
210 ? " \ /"
220 ? " a>f f< a'<2f "
230 ?:​? " a+a'=e"
240 SOUND 0,​144,​10,​10:​SOUND 1,​121,​10,​10:​SOUND 2,​72,​10,​10:​SOUND 3,​91,​10,​10
250 FOR T=0 TO 2200:​NEXT T
260 SOUND 0,​0,​0,​0:​SOUND 1,​0,​0,​0:​SOUND 2,​0,​0,​0:​SOUND 3,​0,​0,​0
270 ? ""
280 ?:​? "Vsechny dalsi vypocty predpokladaji"
290 ?:​? "pouziti standartniho objektivu "
300 ?:​? "s ohniskovou vzdalenosti f=50mm"
310 ?:​? "a sady tri mezikrouzku pro PRAKTICU;":​?:​? "kritickou clonou je ta,​po jejimz pre-"
315 ?:​? "kroceni klesa ostrost vlivem ohybu":​?:​? " ***":​?
320 ?:​? " -Jak velky je snimany predmet (tzn."
330 ?:​? "jeho nejvetsi pricny rozmer  v mm)?":​?
340 INPUT Y
350 REM VYPOCET PRICNEHO ZVETSENI P
360 P=24/Y
370 P=INT(P*100)/100
380 REM VYPOCET PRODLOUZENI EXPOZICE Z
390 Z=(P+1)^2
400 Z=INT(Z*100)/100
410 REM VYPOCET PREDMETOVE VZD. A
420 A=INT(50+50/P)
430 REM VYPOCET KRITICKE CLONY 
440 CK=INT(35/(P+1)*10)/10:​S=INT(0.07*CK*(P+1)/(P^2)*1000)/1000
450 REM VYPOCET VZD.PREDMET-FILM
460 E=INT((50/P)*(1+P)^2)
470 ?:​? "Pozadovane pricne zvetseni je P= ":​FOR T=0 TO 400:​NEXT T:​GRAPHICS 2+16
480 POSITION 4,​2
490 ? #6;P;" - KRA'T";
500 POSITION 3,​4
510 ? #6;""
520 POSITION 1,​6
530 ? #6;"krit.clona je ";CK;
540 POSITION 1,​8
550 ? #6;""
560 POSITION 3,​10:​? #6;"JEN ";S;" MM !";
570 SOUND 0,​121,​10,​10:​SOUND 1,​91,​10,​10:​SOUND 2,​72,​10,​10
580 FOR T=0 TO 2500:​NEXT T:​?:​?
590 SOUND 0,​0,​0,​0:​SOUND 1,​0,​0,​0:​SOUND 2,​0,​0,​0
600 ? "Pro vyfotografovani predmetu o"
610 ?:​? "pricnem rozmeru  = ";Y;" mm":​?
620 IF P>1.12 THEN 930
630 IF P<0.14 THEN 720
640 IF P<0.28 THEN 740
650 IF P<0.42000000000000004 THEN 810
660 IF P<0.56 THEN 830
670 IF P<0.7000000000000001 THEN 850
680 IF P<0.8400000000000001 THEN 870
690 IF P<0.98 THEN 890
700 IF P<=1.12 THEN 910
710 IF P>1.12 THEN 930
720 ?:​? ""
730 GOTO 950
740 ? "pouzij mezikrouzek 7mm;"
750 ?:​? " ";Z;" "
760 ?:​? "Vzdalenost predmetu od objektivu"
770 ?:​? "-a- je priblizne ";A;" mm;"
780 ?:​? "vzdalenost predmetu od roviny "
790 ?:​? "filmu -e- je cca ";E;" mm."
800 GOTO 950
810 ? "pouzij mezikrouzek 14mm;"
820 GOTO 750
830 ? "pouzij mezikrouzky 7+14mm;"
840 GOTO 750
850 ? "pouzij mezikrouzek 28mm;"
860 GOTO 750
870 ? "pouzij mezikrouzky 7+28mm;":​?
880 GOTO 750
890 ? "pouzij mezikrouzky 14+28mm;":​?
900 GOTO 750
910 ? "pouzij vsechny tri mezikrouzky"
920 ?:​? "(tzn.7+14+28mm)":​?:​GOTO 750
930 ?:​? ""
940 ?:​? "":​GOTO 950
950 ?:​?:​?:​? "-Chces pokracovat ?":​?
960 INPUT R$
970 IF R$="ANO" THEN 320
980 IF R$="NE" THEN 990
990 ? ""
1000 ?:​?:​?:​? " ,​DOBRE SVETLO' preje ATARI 800 XL "
1010 SOUND 0,​182,​10,​10:​SOUND 1,​144,​10,​10:​SOUND 2,​121,​10,​10:​SOUND 3,​91,​10,​10:​FOR T=0 TO 1400:​NEXT T
1020 ?:​?:​?:​?:​?:​?:​END	

• Download link 1
• Download link 2