home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1986 March / 86_mar.atr / check3.lst < prev    next >
File List  |  2023-02-26  |  729b  |  1 lines
  1. 210 DIM MONTHFILE$(N14),CHECK$(63),CHECKNUM$(N4),DATE$(N8)¢270 POSITION N3,N12:? #N6;"into drive #2":POSITION N3,22:? #N6;"ספדצצáIJמךáידך":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¢