Appears on
Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.
Source Code
5 REM PHOTO CLOSE-UPS 10 PRINT "CLOSE UPS" 20 PRINT "*********" 30 PRINT "NORMALF/NUMBER: "; 40 INPUT F 50 PRINT F 60 PRINT "LENS-FILM DISTANCE "; 70 INPUT D 80 IF F=0 THEN GOTO 70 90 PRINT D 100 PRINT "LENS FOCAL LENGTH: "; 110 INPUT L 120 PRINT L 130 LET N=F*L/D 140 PRINT "EFFECTIVE F/NUMBER ISF/";N 150 FOR Z=1 TO 8 160 PRINT 170 NEXT Z 180 PRINT "FOR MORE,PRESS ANY KEY" 190 IF INKEY$="" THEN GOTO 190 200 CLS 210 GOTO 10 250 SAVE "1005%7" 300 RUN