File PHOTO.30 (OMSI 30 basic source file)

Directory of image this file is from
This file as a plain text file

100 PRINT"WHAT IS YOUR FLASH UNIT	S BCPS (TYPE ZERO IF UNKNOWN)";
110 INPUT A
120 IF A<0 THEN 100
130 IF A>0 THEN 200
140 PRINT"FOR WHAT ASA DO YOU HAVE A GUIDE NUMBER";
150 INPUT Z
160 IF Z<=0 THEN 140
170 PRINT"     WHAT IS YOUR GUIDE NUMBER FOR ASA";Z;"FILM";
180 INPUT Y
190 LET A=Y^2/(.05*Z)
200 PRINT "WHAT INFORMATION DO YOU DESIRE  (TYPE 	1	 FOR DISTANCES OR"
210 PRINT "     	2	 FOR GUIDE NUMBERS) ";
220 INPUT M
230 IF M=1 THEN 260
240 IF M=2 THEN 260
250 GO TO 200
260 PRINT"FOR WHAT ASA VALUES DO YOU WANT INFORMATION"
270 FOR X=1 TO 4
280 PRINT"  ASA VALUE";X;".........";
290 INPUT B(X)
300 IF B(1)=0 THEN 260
305 IF B(X)>0 THEN 320
306 LET B(X) =0
310 GO TO 330
320 NEXT X
330 FOR W=1 TO 5
340 PRINT
350 NEXT W
360PRINT"FLASH DATA FOR FLASH UNITS WITH BCPS OUTPUT OF";A
370 PRINT
380 PRINT
390 IF M=2 THEN 410
400 PRINT "F STOP","DISTANCE IN FEET FOR FILM SPEED OF:"
410 FOR V=1 TO 4
420 LET G(V)=SQR(A*.05*B(V))
430 NEXT V
440 PRINT "               ASA";B(1),
450 IF B(2)=0 THEN 530
460 PRINT"ASA";B(2),
470 IF B(3)=0 THEN 530
480 PRINT"ASA";B(3),
490 IF B(4)=0 THEN 530
500 PRINT"ASA";B(4)
520 GO TO 550
530 PRINT" "
540 PRINT
550 IF M=1 THEN 660
560 PRINT"GUIDE NUMBERS",G(1),
570 IF G(2)=0 THEN 640
580 PRINT G(2),
590 IF G(3)=0 THEN 640
600 PRINT G(3),
610 IF G(4)=0 THEN 640
620 PRINT G(4)
630 GO TO 810
640 PRINT" "
650 GO TO 810
660 READ F
670 IF F=7 THEN 810
680 FOR U=1 TO 4
690 LET D(U)=G(U)/F
700 NEXT U
710 PRINT F,D(1),
720 IF D(2)=0 THEN 790
730 PRINT D(2),
740 IF D(3)=0 THEN 790
750 PRINT D(3),
760 IF D(4)=0 THEN 790
770 PRINT D(4)
780 GO TO 660
790 PRINT" "
800 GO TO 660
810 PRINT
820 PRINT
840 FOR T=1 TO 5
850 PRINT
860 NEXT T
870 DATA 1.4,1.8,2,2.8,3.4,4,4.9,5.6,6.9,8,9.8,11,13.5,16,19.6,22,7
880 PRINT "RUN PROGRAM AGAIN (TYPE 	1	 FOR YES OR 	0	 FOR NO)";
890 INPUT M
900 IF M=1 THEN 920
910 GO TO 999
920 RESTORE
930 PRINT
940 FOR J=1 TO 4
950 LET B(J)=0
960 LET G(J)=0
970 LET D(J)=0
980 NEXT J
990 GO TO 100
999 CHAIN "DEMON "
1000 END



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search