10 REM Banisters Ins with fractions. 
20 INPUT "LENGTH ins?" ,L 
25 LET H=L
30 LET L = L * 25.400000
40 INPUT "WIDTH OF BANISTER ins?" ,W 
45 LET V=W
50 LET W = W * 25.400000
60 INPUT "TARGET SPACING ins?" ,S 
70 LET T = S 
80 LET S = S * 25.400000
90 LET N = L / S 
100 LET M = 1 
110 LET M = M + 1 
120 IF M < N THEN GOTO 110 
130 LET N = M - 1 
140 LET N = N - 1 
150 LET G = (L - N * W) / (N + 1) 
160 LET S = G + W 
170 LET U = S / 25.400000
180 COLOR YELLOW ,BLACK 
190 PRINT " NEEDS " ,N ," BANISTERS." 
200 COLOR WHITE ,BLACK 
210 LET C = G + W / 2 
220 LET D = C 
230 LET D = D / 25.400000
240 COLOR MAGENTA ,BLACK 
245 PRINT " RAILING LENGTH = " ,H
247 PRINT " BANISTER WIDTH = " ,V
250 PRINT " TARGET SPACING = " ,T 
260 PRINT " ACTUAL SPACING = " ,U 
270 COLOR WHITE ,BLACK 
285 LET X=D
287 GOSUB 430
290 WAIT 1000
300 LET C = C + S 
310 IF C > L THEN GOTO 360
320 LET D = C 
330 LET D = D / 25.400000
345 LET X=D
347 GOSUB 420
350 GOTO 290 
360 COLOR MAGENTA ,BLACK 
380 INPUT "RETRY?" ,R 
390 IF R = 1 THEN GOTO 60 
395 COLOR MAGENTA ,BLACK 
397 PRINT " Another HEC design. "
400 END 
410 
420 
430 REM Convert decimal to feet & "
460 LET Y = X 
470 LET Z = 0 
480 LET Z = Z + 1 
490 IF Z < Y THEN GOTO 480 
500 LET Z = Z - 1 
510 REM Z=ins
520 LET X = X - Z 
530 LET X = X * 8 
540 LET Y = 0 
550 LET Y = Y + 1 
560 IF Y < X THEN GOTO 550 
570 IF Y = 1 THEN LET P$ = "1/8" 
580 IF Y = 2 THEN LET P$ = "1/4" 
590 IF Y = 3 THEN LET P$ = "3/8" 
600 IF Y = 4 THEN LET P$ = "1/2" 
610 IF Y = 5 THEN LET P$ = "5/8" 
620 IF Y = 6 THEN LET P$ = "3/4" 
630 IF Y = 7 THEN LET P$ = "7/8" 
640 IF Y = 8 THEN LET Z=Z+1
645 IF Y=8  THEN PRINT " Mark " ,Z ," ins. "
647 IF Y=8  THEN GOTO 655
650 PRINT " Mark " ,Z ,"-" ,P$ ," ins. " 
655 RETURN 
660 END