440 IF MONTHFILE$="D2:AUTO.DAT" THEN GOSUB AMOUNT:GOTO 310›1180 IF MONTHFILE$<>"D2:AUTO.DAT" THEN POSITION N7,N17:? "RETURN = ENTER NEXT CHECK"›1210 IF PEEK(764)=N12 AND MONTHFILE$<>"D2:AUTO.DAT" THEN SVE=N1:GOTO 1260›1870 XIO 33,#N1,N0,N0,MONTHFILE$:MONTHFILE$=MONTHFILE$(N4)›1900 POKE 842,N12:CLOSE #N2:OPEN #N2,N8,N0,"D2:BALANCE.DAT":? #N2;BALANCE$:? #N2;YEAR:CLOSE #N2›1930 OPEN #N2,N8,N0,"D2:AUTO.TMP"›1960 XIO 33,#N1,N0,N0,"D2:AUTO.DAT":XIO 32,#N1,N0,N0,"D2:AUTO.TMP,AUTO.DAT"›2090 DIM PAYEE$(21),AMOUNT$(N7),MEMO$(22),MONTHFILE$(N14),MONTHDAT$(6300),CHNUM$(N4),CHECK$(63),B$(37),T$(N8)›2100 DIM TEMP$(22),CH$(40),NAME$(N20),ADDRESS$(N20),CITY$(N20),BALANCE$(N8),DATE$(N8),TEMPFILE$(N14),A$(22)›2110 DIM AUTO$(315),AUTOFILE$(N14),FULL$(N5)›2180 POSITION 3,12:? #6;"into drive #2":POSITION 3,22:? #6;"ะาลำำ มฮู หลู":GOSUB IN2›2190 TRAP 2730:OPEN #N1,N4,N0,"D2:NAME.DAT":INPUT #N1;NAME$:INPUT #N1;ADDRESS$:INPUT #N1;CITY$:CLOSE #N1›2200 OPEN #N1,N4,N0,"D2:BALANCE.DAT":INPUT #N1;BALANCE$,YEAR:CLOSE #N1›2220 OPEN #N1,N4,N0,"D2:AUTO.DAT"›2410 MONTHFILE$="D2:MONTH  .DAT":GOSUB SND1:POSITION N20,N16:? "    ๅ๎๔ๅ๒ ํ๏๎๔่  "›2440 IF TEMP$="A" THEN MONTHFILE$="D2:AUTO.DAT":POSITION 30,N5:? "AUTO":GOTO 2540›2530 MONTHFILE$(N9,N10)=DATE$›2590 IF COUNT=N0 AND MONTHFILE$="D2:AUTO.DAT" THEN 2760›2640 CHNUM$="0000":OPEN #N2,N4,N0,"D2:AUTO.DAT"›