home *** CD-ROM | disk | FTP | other *** search
/ A.N.A.L.O.G. Magazine 1986 March / 86_mar.atr / check2.lst < prev    next >
File List  |  2023-02-26  |  403b  |  1 lines
  1. 1150 IF MONTH<10 THEN MONTHFILE$(9,9)="0":MONTHFILE$(10,10)=STR$(MONTH):GOTO 1170¢1160 MONTHFILE$(9,10)=STR$(MONTH)¢1580 DIM MONTHFILE$(14),TEMP$(63),DATE$(8),CHNUM$(4),C$(1),A$(1):K1=1:K2=2:K3=3:K4=4:K5=5:K6=6:K7=7:K8=8¢1610 MONTHFILE$="D2:MONTH  .DAT"¢1650 POSITION 3,12:? #6;"into drive #2":POSITION 3,22:? #6;"ספדצצáIJמךáידך":GOSUB IN2¢1660 TRAP 1910:OPEN #2,4,0,"D2:MONTH01.DAT":CLOSE #2:TRAP 40000¢