CLS
PRINT "This Program is was for the Tasco World Class Plus 8-32x50mm Rifle Scope"
PRINT "It now works for other scopes with different elevation divisions."
PRINT " "
PRINT "This WC-Plus scope has 0-7 numbered divisions with 8 small divisions"
PRINT "and 4 divisions from 7-0. This adds a bit of complication, but"
PRINT "has been included in the program. My scope's click size is a measured"
PRINT "0.1394 inches per click at 100 yards."
PRINT " "
PRINT "This program calculates the scope click adjustments for various"
PRINT "ranges. It write a table to a text file named clickout.txt that can be"
PRINT "printed and used in the field for quick adjustmest. The table"
PRINT "lists Distance (yards), Number of Clicks, Number of Full Turns,"
PRINT "Number of Numbered Divisions (0-7), and Number of Small Divisions."

INPUT "Press Enter to continue"; aa

PRINT "The input text file is named clickin.txt and in the"
PRINT "first line is the click size at 100 yards (inches) and number of "
PRINT "minor divisions between the major divisions and the number of."
PRINT "remaining divisions past the last numbered division to Zero."
PRINT "These four numbers are separated by commas."
PRINT "The remainder of the file is a list of Distance (yards), Drop (in) for as many"
PRINT "data pairs that you want to use, again separated by commas."
PRINT "Good shooting from Varmint Al"
PRINT " "
PRINT "The Output file named Clickout.txt contains the following:"
PRINT "Yrd = Distance in yards"
PRINT "CL = Total Number of Clicks"
PRINT "T = Total Full Turns"
PRINT "L = Large Division Number"
PRINT "S = Additional Small Divisions"
PRINT " "

INPUT "Press Enter to continue"; aa
OPEN "clickin.txt" FOR INPUT AS #1
OPEN "clickout.txt" FOR OUTPUT AS #2

PRINT #2, "Yrd = Distance in yards"
PRINT #2, "CL  = Total Number of Clicks"
PRINT #2, "T   = Total Full Turns"
PRINT #2, "L   = Large Division Number"
PRINT #2, "S   = Additional Small Divisions"
PRINT #2, " "


INPUT #1, csize, ldin, sdin, rdin
PRINT "Yrd  CL T.L.S"
PRINT #2, "Yrd  CL T.L.S"
FOR i = 1 TO 1000
INPUT #1, dist, drop
drop = ABS(drop)
acs = dist * csize / 100:        REM Size of click at that distance

Clicks = .5 + drop / acs:        REM Total clicks at that distance

cpt = ldin * sdin + rdin:        REM Clicks for each full turn

turns = INT(Clicks / cpt):       REM Calculate full turns

rclicks = INT(Clicks - turns * cpt):  REM Remainder Clicks

ld = INT(rclicks / sdin):        REM Number of Large Divisions

sd = rclicks - ld * sdin:        REM Number of Small Divisions

PRINT USING "### ### #_.##_.#"; dist; Clicks - .5; turns; ld; sd

PRINT #2, USING "### ### #_.##_.#"; dist; Clicks - .5; turns; ld; sd

IF EOF(1) THEN 100 ELSE 200
200 REM
NEXT i
100 INPUT "Press Enter to quit"; aa

STOP