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;"ספדצצáIJמךáידך":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"¢
