150 POSITION 3,12:? #6;"into drive #2":POSITION 3,22:? #6;"пресс═аны═кеы":GOSUB 20:RETURN ⌡200 DIM NAME$(20),ADDRESS$(20),CITY$(20),BALANCE$(8),MONTHFILE$(14),B$(20),CHECK$(63)⌡390 MONTHFILE$="D2:MONTH  .DAT":B$="                    "⌡430 POSITION 6,12:? #6;"drive #2":POSITION 3,22:? #6;"пресс═аны═кеы":GOSUB 20⌡440 TRAP 450:OPEN #1,4,0,"D2:MENU":CLOSE #1:GOTO 760⌡450 GRAPHICS 18:GOSUB BRKDIS:POSITION 2,5:? #6;"форматтинг═диск":XIO 254,#1,0,0,"D2:"⌡550 OPEN #1,8,0,"D2:NAME.DAT":? #1;NAME$:? #1;ADDRESS$:? #1;CITY$:CLOSE #1⌡690 OPEN #1,8,0,"D2:BALANCE.DAT":? #1;BALANCE$:? #1;YEAR:CLOSE #1⌡720 FOR X=0 TO 12:POSITION 13,10:? #6;X:IF X<10 THEN MONTHFILE$(9,9)="0":MONTHFILE$(10,10)=STR$(X):GOTO 740⌡730 MONTHFILE$(9,10)=STR$(X)⌡750 OPEN #1,8,0,"D2:AUTO.DAT":? #1;"END":CLOSE #1:GOTO INSPRO⌡760 GRAPHICS 17:GOSUB BRKDIS:POSITION 4,8:? #6;"програм═диск":POSITION 9,10:? #6;"ин"⌡770 POSITION 6,12:? #6;"дриже═ё╡":GOSUB SND1:GOSUB DELAY:GOTO 420⌡810 GOSUB 1110:MONTHFILE$="D2:MONTH  .DAT"⌡820 GOSUB INSDAT:TRAP 980:OPEN #2,4,0,"D2:MONTH01.DAT":TRAP 40000⌡830 CLOSE #2:OPEN #2,8,0,"D2:MONTH00.TMP"⌡850 FOR X=0 TO 12:POSITION 13,10:? #6;X:IF X<10 THEN MONTHFILE$(9,9)="0":MONTHFILE$(10,10)=STR$(X):GOTO 870⌡860 MONTHFILE$(9,10)=STR$(X)⌡930 XIO 33,#1,0,0,"D2:MONTH00.DAT":XIO 32,#1,0,0,"D2:MONTH00.TMP,MONTH00.DAT"⌡940 OPEN #1,4,0,"D2:BALANCE.DAT":INPUT #1;BALANCE$:INPUT #1;YEAR:YEAR=YEAR+1⌡950 CLOSE #1:OPEN #1,8,0,"D2:BALANCE.TMP":? #1;BALANCE$:? #1;YEAR:CLOSE #1⌡960 XIO 33,#1,0,0,"D2:BALANCE.DAT":XIO 32,#1,0,0,"D2:BALANCE.TMP,BALANCE.DAT"⌡1040 GOSUB INSDAT:TRAP 1090:OPEN #2,4,0,"D2:AUTO.DAT":CLOSE #2⌡1060 OPEN #2,8,0,"D2:AUTO.DAT":? #2;"END":CLOSE #2⌡