210 DIM MONTHFILE$(N14),CHECK$(63),CHECKNUM$(N4),DATE$(N8)›270 POSITION N3,N12:? #N6;"into drive #2":POSITION N3,22:? #N6;"ะาลำำ มฮู หลู":GOSUB 80›280 TRAP 1550:OPEN #N2,N4,N0,"D2:MONTH01.DAT":CLOSE #N2›330 MONTHFILE$="D2:MONTH  .DAT"›340 IF MONTH<N10 THEN MONTHFILE$(N9,N9)="0":MONTHFILE$(N10,N10)=STR$(MONTH):GOTO 360›350 MONTHFILE$(N9,N10)=STR$(MONTH)›810 TEMPFILE$=MONTHFILE$:TEMPFILE$(N12,N14)="TMP":CLOSE #N1:OPEN #N1,N8,N0,TEMPFILE$›840 XIO 33,#N1,N0,N0,MONTHFILE$:MONTHFILE$=MONTHFILE$(N4)›990 MONTHFILE$="D2:MONTH  .DAT"›1020 IF MONTH<N10 THEN MONTHFILE$(N9,N9)="0":MONTHFILE$(N10,N10)=STR$(MONTH):GOTO 1040›1030 MONTHFILE$(N9,N10)=STR$(MONTH)›1110 CLOSE #N2:OPEN #N2,N4,N0,"D2:BALANCE.DAT":INPUT #N2;BALANCE$:CLOSE #N2›