100 OPEN 'KB:' AS FILE 1% : ON ERROR GO TO 10000 110 L$ = FNI$ ('Log file name:') : GO TO 32767 IF L$ = '' : OPEN L$ FOR INPUT AS FILE 12%, MODE 5% : O$ = FNI$ ('Output to:') : O$ = 'KB:' UNLESS LEN (O$) : OPEN O$ FOR OUTPUT AS FILE 2% 120 DIM #12%, B% (255%), B$ (32763%) = 128% : PRINT #2%, 'Dump of log file 'L$' at 'TIME$ (0%)' on 'DATE$ (0%) : PRINT #2%, 'Last updated : ' DATE$ (B% (5%)) ' at ' TIME$ (B% (6%)) IF B% (5%) <> 0% 130 PRINT #2%, 'Last dumped : ' DATE$ (B% (2%)) ' at ' TIME$ (B% (3%)) IF B% (2%) <> 0% : PRINT #2% FOR I% = 1% TO 2% : O% = B% (1%) : B7% = B% (7%) 140 F% = B% (0%) : GOSUB 200 WHILE O% <> F% : GO TO 140 IF F% <> B% (0%) : IF FNA% ("Delete") THEN B% (1%) = O% : B% (2%) = SWAP% (CVT$% (MID (SYS (CHR$(6%)+CHR$(-3%)),27%,2%))) : B% (3%) = 1440. - TIME (0%)/60 : B% (4%) = 0% 150 CLOSE 12% : GO TO 100 IF FNA% ("More logs to be dumped") : GO TO 32767 200 PRINT #2%, B$ (O%); : UNLOCK #12% : PRINT #2% IF POS (2%) : O% = O% + 1% : O% = 0% IF O% > B7% : RETURN 300 DEF FNI$ (P$) : PRINT P$' ' ; : INPUT LINE #1%, P$ : FNI$ = CVT$$ (P$, NOT 2%) : FNEND 310 DEF FNA% (P$) : P$ = P$ + '?' 320 P$ = FNI$ (P$) : IF LEFT (P$, 1%) = 'Y' THEN FNA% = -1% ELSE IF LEFT (P$, 1%) = 'N' THEN FNA% = 0% ELSE P$ = 'Please answer "yes" or "no".' : GO TO 320 330 FNEND 10000 IF ERR = 5% AND ERL = 110% THEN PRINT 'File not found.' : RESUME 110 10010 IF ERR = 10% AND ERL = 150% THEN PRINT "Cannot delete log messages" : RESUME 110 10020 IF ERR = 10% THEN PRINT 'Cannot print log' : GO TO 110 10030 IF ERR = 11% AND ERL = 300% THEN RESUME 32767 10040 IF ERR = 19% THEN SLEEP 2% : RESUME 10999 ON ERROR GO TO 0 : GO TO 110 32767 END