2   REM   H7B0S0S     
10 PLAY "L10"
30 OPEN "NAMECLIP" FOR INPUT AS 1
40 LINE INPUT #1, N$: CLOSE
50 OPEN N$ FOR INPUT AS 1
60 LINE INPUT #1, L$: N = VAL(L$): INPUT #1, NA: NA = NA + 1: CLOSE
61 C = LOG(NA) / LOG(2): PRINT , "WHAT YOU   ", "AGE OF FILE YOU"
62 PRINT , "TYPE IN", "GET IN GENERATION"
63 FOR H = 0 TO C:
64 BA = H: GOSUB 90
65 PRINT , "  "; H, "  ";V: NEXT H
70 INPUT "ENTER A ZERO FOR THE YOUNGEST FILE, 1 FOR THE 2ND YOUNGEST, 2 FOR THE 3RD       YOUNGEST, ETC.  ."; BA: NA = NA - INT(NA/N) * N
80 IF BA < 0 OR BA > C THEN BEEP: PRINT "YOUR CHOICE IS EITHER TOO HIGH OR TOO LOW": GOTO 61
88 GOSUB 90
89 GOTO 100
90 K = 2 ^ (BA - 1): V = INT((NA - INT(NA / K) * K) + K): RETURN
100 IF V = 0 THEN LL = 1 ELSE LL = LOG(V)/LOG(10)
101 Q = LL + 1: Q = INT(Q): FOR II = Q TO 1 STEP -1
102 KK = V/ 10 ^ (II - 1): NN = KK - INT(KK/10) * 10: FOR MM = 1 TO NN
110 PLAY"C": NEXT MM: PLAY "<<<C>>>": NEXT II: PLAY"P2"
120 PRINT "YOUR CHOICE GIVES A FILE "; V; " GENERATIONS OLD.": V = NA - V
130 CLOSE
140INPUT "DO YOU WANT TO GO WITH IT"; A$: C$ = LEFT$(A$, 1): IF C$ = "N" OR C$ = "n" THEN BEEP: GOTO 61 ELSE IF C$ = "Y" OR C$ = "y" THEN 150 ELSE 140
150 MA = V - 1: NU = INT(LOG(V XOR MA) / LOG(2))
160 NU$ = STR$(NU): L = LEN(NU$): NA$ = N$ + RIGHT$(NU$, L - 1)
170 SHELL "CALL COPY " + NA$ + " ISAVE"
180 PLAY ">C16< G32P32G16A16 G8B16>C16<"
190 END
