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$›