home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
A.N.A.L.O.G. Magazine 1986 March
/
86_mar.atr
/
check3.lst
< prev
next >
Wrap
File List
|
2023-02-26
|
729b
|
1 lines
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¢