10 REM LOGGER Vsn.0.02 F.T.Gowen 06/10/1995
  12 REM Log File closed if "^Z" input!
  20 CLS : DIM M% &100 : Z%=&1A : T%=1000 : f$="LOG"+STR$(T%)+".TXT"
  30 PROCassemble : PROCf2buffer
  40 A%=-1 : PRINT start,end,end-start : STOP
  50 CALL openlog : port=OPENUP("COM:")
  60 CALL connect
  70 CLOSE#port : CALL closelog
 998 STOP
 999 END
1000 DEF PROCassemble
1010 kmreadkbd       =&B806
1020 txtoutput       =&B833
1030 padinserial     =&B85D
1040 padoutserial    =&B863
1050 padreadyserial  =&B869
1060 padserialwaiting=&B86F
1070 fclose          =&B890
1080 ferase          =&B893
1090 fopenout        =&B8A5
1100 foutchar        =&B8AE
1110 fsizehandle     =&B8BA
1120 FOR pass=0 TO 3 STEP 3
1130 P% = M%
1140 [
1150 OPT pass
1160 .start
1170 .buffer
1180 DEFM "FILENAME.EXT"
1190 DEFB 0
1200 .handle
1210 DEFW 0
1220 .openlog
1230 LD HL,buffer
1240 CALL ferase
1250 LD HL,buffer
1260 CALL fopenout
1270 JR C,ok1
1280 LD DE,&0000
1290 .ok1
1300 LD HL,handle
1310 LD (HL),E
1320 INC HL
1330 LD (HL),D
1340 RET
1350 .closelog
1360 LD HL,handle
1370 LD E,(HL)
1380 INC HL
1390 LD D,(HL)
1400 CALL fclose
1410 RET
1420 .connect
1430 LD HL,handle
1440 LD E,(HL)
1450 INC HL
1460 LD D,(HL)
1470 AND A
1480 .query_key
1490 LD BC,&0000
1500 JR NC,query_serial
1510 CALL padreadyserial
1520 CALL C,padoutserial
1530 JR NC,query_serial
1540 CALL padserialwaiting
1550 .get_echo
1560 CALL C,padinserial
1570 CALL C,txtoutput
1580 CALL C,foutchar
1610 LD B,C
1620 .query_serial
1630 CALL padserialwaiting
1640 JR C,get_echo
1650 DJNZ query_serial
1710 CALL kmreadkbd
1720 JR NC,query_key
1730 LD A,C
1740 CP &1A
1750 RET Z
1760 SCF
1770 JR query_key
1940 .dummy
1950 RET
1960 .end
1970 ]
1980 NEXT
1990 ENDPROC
2000 DEF PROCf2buffer
2010 J%=LEN(f$)-1 : IF J%>11 J%=11
2020 FOR I%=0 TO J%
2030 buffer?I% = ASC(MID$(f$,I%+1,1))
2040 NEXT
2050 buffer?I% = 0
2990 ENDPROC