2205 IF YRS>0 THEN YEAR=YRS¢2520 YRS=0:IF M=N1 THEN POSITION N20,N16:? " YEAR ";YEAR;"? (Y/N) ":GOSUB IN2:IF A=ASC("Y") THEN 2528¢2521 IF M<>N1 THEN 2528¢2522 POSITION N20,N16:? " YEAR? ":COL=36:ROW=N5:GOSUB IN:FOR X=N1 TO N2¢2524 IF TEMP$(X,X)<"0" OR TEMP$(X,X)>"9" THEN GOSUB SND2:POP :GOTO 2522¢2525 NEXT X:YEAR=VAL(TEMP$(N1,N2)):YRS=YEAR:GOTO 2520¢2528 POSITION 0,N16:? B$:DATE$(N3,N6)="/ /":DATE$(N7,N8)=STR$(YEAR):POSITION 30,N5:? DATE$¢