Photo Close-Ups

   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