A.N.A.L.O.G. Magazine 1986 March/86_mar.atr/check4.lst

File List | 2023-02-26 | 2KB | 1 lines

150 POSITION 3,12:? #6;"into drive #2":POSITION 3,22:? #6;"ספדצצáIJמךáידך":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;"ספדצצáIJמךáידך":GOSUB 20¢440 TRAP 450:OPEN #1,4,0,"D2:MENU":CLOSE #1:GOTO 760¢450 GRAPHICS 18:GOSUB BRKDIS:POSITION 2,5:? #6;"הנפלIJקקחמוáגחצי":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;"ספנופIJלáגחצי":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¢