1 MAXFILES=2
2 CLS:CLEAR 1000:CLOSE 1,2:KEY (6) ON:KEY (7) ON:KEY (8) ON
3 LOCATE 10,10:PRINT "IS THIS INSTRUMENT EQUIPPED WITH BUILT-IN INCOMING CALL IDENTIFICATION (Y/N)":INPUT SP$
5 CLS:IF SP$="y" OR SP$="Y" THEN 7
6 IF SP$="N" OR SP$="n" THEN 9 ELSE 3
7 CLS:LOCATE 10,10:PRINT "ARE YOU ALLOWED TO INTERCEPT INCOMING CALL IDENTIFICATION (Y/N)":INPUT IA$:CLS:GOTO 16
9 OPEN "COM1:300,N,8,1,RS,CS0,DS0,CD0,ASC" FOR INPUT AS 1
14 PRINT CHR$(13);TAB(25)"****  MFOPTION.BAS v.11/06/90  ****";CHR$(13);CHR$(13);TAB(12)"THIS PROGRAM ALLOWS ALL DATA AND DIALED NUMBERS TO BE PRINTED";CHR$(13);TAB(14)"AND SAVED TO ASCII FILE ON DISK DRIVE A> NAMED 'NOTE.DO'.";CHR$(13);CHR$(13)
15 GOTO 19
16 OPEN "COM1:1200,N,8,1,RS,CS0,DS0,CD0,ASC" FOR INPUT AS 1
17 PRINT CHR$(13);TAB(25)"****  CALLID.BAS v. 12/15/92  ****";CHR$(13);CHR$(13);TAB(12)"THIS PROGRAM ALLOWS ALL DATA AND DIALED NUMBERS TO BE PRINTED";CHR$(13);TAB(14)"AND SAVED TO ASCII FILE ON DISK DRIVE A> NAMED 'NOTE.DO'.";CHR$(13);CHR$(13)
18 PRINT TAB(14)"****NOTE!! THIS DISK FOR UNITS EQUIPPED WITH INTERNAL CALL I.D. OPTION ONLY****";CHR$(10)
19 PRINT "    THIS DISKETTE MAY NOW BE REMOVED AND REPLACED WITH A FORMATTED DATA DISK";CHR$(10);TAB(20)"(FORMAT AT 720K OR HIGH DENSITY 1.44 MEG)"
20 PRINT CHR$(10);CHR$(10);CHR$(10);"    DATE ";DATE$;"                                           ";"TIME ";TIME$
21 PRINT CHR$(10);CHR$(10);CHR$(10)
22 PRINT "    IF DATE AND TIME CORRECT-PRESS THE ENTER KEY. OTHERWISE REFER TO MANUAL"
23 INPUT Y$
25 COM(1) ON
28 CLS
30 LOCATE 10,13:PRINT "ENTER PRINTER SIZE - 24 OR 80 COLUMN - AND PRESS ENTER":INPUT PR
32 CLS
34 LOCATE 10,12:PRINT "ENTER LAST CALL# OR JUST PRESS ENTER TO START AT CALL# 1":INPUT K
40 CLS
44 LOCATE 10,17:PRINT "TURN ON PRINTER - ENTER CASE # AND PRESS ENTER":INPUT C$
50 LPRINT "    CASE# ";C$;CHR$(10);DATE$;"     ";TIME$;"........................";CHR$(10);CHR$(10);CHR$(10)
51 CLS:LOCATE 10,20:PRINT "DO YOU WANT TO ENTER ALARM NUMBERS? (Y/N)";CHR$(10);CHR$(10)TAB(12)"FOR CELLULAR ALARM NUMBERS EXTRA DATA IS NEEDED - CALL RIK":INPUT AL$
52 IF AL$="Y" OR AL$="y" THEN 3500
53 IF PR=80 THEN 54 ELSE 65
54 LPRINT "CALL";TAB(10)"DATE";TAB(21)"TIME";TAB(28)"TEL #";TAB(52)"ON HOOK";TAB(61)"DURATION";CHR$(13)
65 CLS
66 LOCATE 10,2:PRINT "IF THIS IS A CELLULAR PHONE TAP OR A SINGLE TONE SLAVE PRESS Y THEN ENTER";CHR$(10);CHR$(10);TAB(24)"OTHERWISE JUST PRESS ENTER":INPUT CP$
67 IF CP$="Y" OR CP$="y" THEN IC$="INCOMING" ELSE IC$="OFF HOOK"
68 CLS
71 LOCATE 10,17:PRINT "DO YOU WANT TO ERASE THE EXISTING NOTE FILE (Y/N)";CHR$(10);CHR$(10);TAB(17)"Y - ERASE ANY OLD DATA ON THE DISK.";CHR$(10);CHR$(10);TAB(17)"N - SAVE OLD DATA AND ADD NEW TO IT.":INPUT EF$
72 IF EF$="Y" OR EF$="y" THEN 75
73 OPEN "A:NOTE.DO" FOR APPEND AS 2
74 GOTO 105
75 OPEN "A:NOTE.DO" FOR OUTPUT AS 2
105 CLS
110 K=K+1
120 CLS:PRINT CHR$(13);" DATE ";DATE$;TAB(66)"TIME ";TIME$;CHR$(10);CHR$(10);TAB(25)"WAITING FOR ACTIVITY ON LINE";CHR$(10);TAB(25)"----------------------------";CHR$(10);CHR$(10)
121 PRINT TAB(20)"LAST CALL WAS ";B$;R$;CHR$(10);TAB(20)"--------------------------------------":PRINT CHR$(10);CHR$(10);TAB(30)"**** IMPORTANT ****";CHR$(13);CHR$(13);TAB(8)"PRESS THE F7 FUNCTION KEY BEFORE REMOVING DATA DISK FROM COMPUTER!!!"
122 PRINT CHR$(10);CHR$(10);TAB(24)"**** TO VIEW OR PRINT FILE ****";CHR$(10);CHR$(10);TAB(10)"PRESS THE F-6 FUNCTION KEY AND FOLLOW ON-SCREEN INSTRUCTIONS";CHR$(10);CHR$(10);TAB(13)"PRESS THE F-8 FUNCTION KEY TO DATE/TIME STAMP PRINTOUT"
125 COM(1) ON
126 ON KEY(8) GOSUB 2500
127 ON COM(1) GOSUB 170
128 ON KEY(6) GOSUB 1000
129 ON KEY(7) GOSUB 1200
133 FOR X=1 TO 400
134 ON COM(1) GOSUB 170
135 NEXT X
140 LOCATE 2,2:PRINT "DATE ";DATE$;TAB(66)"TIME ";TIME$
145 GOTO 125
170 IF LOC(1)>0 THEN 172 ELSE 6000
172 A$=INPUT$(1,1)
173 IF A$="F" THEN 202
174 IF A$="B" THEN 202
175 IF A$="D" THEN 330
176 IF A$="I" THEN 330
177 IF A$="M" THEN M$="      AUDIO OFF"
200 IF LOC(1)=0 THEN RETURN ELSE 170
202 SOUND 880,10
203 TF$=TIME$
204 DF$=DATE$
205 CLS
208 LOCATE 8,22:PRINT "ACTIVITY ON LINE    ";DATE$;"    ";TIME$
222 B$="":R$=""
224 D$=INPUT$(1,1):IF D$="H" OR D$="C" THEN 240
225 IF D$="D" OR D$="I" THEN 320
226 IF D$="L" THEN GOSUB 520
227 IF PR<>80 THEN 228 ELSE 229
228 IF B$="" AND MC=0 THEN LPRINT "CASE# ";C$;" CALL#";K;CHR$(13);DF$;"     ";TF$;M$:M$=""
229 IF D$="M" THEN GOSUB 500
230 IF D$="B" OR D$="F" THEN 224
231 IF D$="U" THEN 320
232 IF D$="A" THEN 2000 ELSE 235
233 X$="MF("+B$+")"
234 B$=X$: GOTO 236
235 B$=B$+D$
236 IF A0$="" THEN 238 ELSE 3600
238 LOCATE 10,22:PRINT "NUMBER DIALED= ";B$;R$:GOTO 224
240 TN$=TIME$:D$=""
241 IF B$="" THEN 290
244 LOCATE 12,22:PRINT "ON HOOK TIME                      ";TN$
245 GOSUB 550
246 IF PR<>80 THEN 251
248 LPRINT "#";K;TAB(8)DF$;TAB(19)TF$;TAB(28)B$;TAB(54)TN$;TAB(63)DU$;M$;MD$;ME$;MF$:M$=""
249 GOTO 257
251 LPRINT CHR$(14);"#DIALED=";B$
253 LPRINT "ON HOOK TIME   ";TN$
254 LPRINT "  ";H;"HRS";M;"MIN";S;"SEC";CHR$(13)
257 PRINT #2, "CALL#";K;", ";DF$;", ";TF$;", ";B$;", ";TN$;", ";H;M;S;", ";MD$;ME$;MF$;MG$:MD$="":ME$="":MF$="":MG$="":MC=0
259 K=K+1
260 IF LOC(1)=0 THEN 6000 ELSE 170
290 GOSUB 550
291 T=(3*H)+(3*M)+S:IF T>2 THEN 294
292 IF LOC(1)=0 THEN 6000 ELSE 170
294 IF MC>0 AND PR<>80 THEN 300
295 IF PR=80 THEN 296 ELSE 297
296 LPRINT "#";K;TAB(8)DF$;TAB(19)TF$;TAB(28)IC$;TAB(52)TN$;TAB(61)DU$:GOTO 302
297 LPRINT "CASE# ";C$;" CALL#";K;CHR$(13);DF$;"     ";TF$;CHR$(13);"     ";IC$;CHR$(13)"ON HOOK        ";TN$;CHR$(13);H;"HRS";M;"MIN";S;"SEC";CHR$(13)
298 GOTO 302
300 LPRINT "        ";IC$;CHR$(13);"ON HOOK         ";TN$;CHR$(13);H;"HRS";M;"MIN";S;"SEC";CHR$(13)
302 PRINT #2, "CALL#";K;", ";DF$;", ";TF$;", ";IC$;", ";TN$;", ";H;M;S;",";MD$;ME$;MF$;MG$:MD$="":ME$="":MF$="":MG$="":MC=0
303 K=K+1:B$=""
304 IF LOC(1)=0 THEN 6000 ELSE 170
320 TN$=TIME$
321 IF B$="" THEN B$="INCOMING"
322 GOSUB 550
324 T=(5*H)+(5*M)+S
326 IF T>4 THEN 224
330 DIN$=DATE$
335 TIN$=TIME$
336 RNG=1
340 CLS:LOCATE 10,20:PRINT "INCOMING CALL ";DIN$;" ";TIN$
341 B$="INCOMING":ID$="":R$="":ID=0
342 IF PR=80 THEN 346
345 LPRINT "CASE# ";C$;" CALL#";K;CHR$(13);"     INCOMING CALL";CHR$(13);DIN$;"     ";TIN$;M$:M$=""
346 IF LOC(1)<>0 THEN 350
347 TF$=TIN$:TN$=TIME$
348 GOSUB 550
349 IF J>6*RNG+.5 THEN 4000 ELSE 346
350 ON ERROR GOTO 5100
351 H$=INPUT$(1,1):IF ASC(H$)>73 THEN 346
352 IF H$="F" OR H$="B" THEN 370
353 IF H$="D" OR H$="I" THEN 358
354 IF IA$="Y" OR IA$="y" THEN 355 ELSE 346
355 IF ASC(H$)<58 AND ASC(H$)>47 THEN 3000
357 GOTO 346
358 RNG=RNG+1:IF RNG=2 AND ID=8 AND PR<>80 THEN LPRINT "   FROM OUT OF AREA"
359 IF ID=8 THEN IE$="OUT OF AREA"
360 GOTO 346
363 LPRINT "#";K;TAB(8)DIN$;TAB(19)TIN$;TAB(28)"INC UNANS FROM ";IE$:GOTO 366
364 IF LEN(ID$)=18 THEN LPRINT "   FROM ";IE$
365 LPRINT "UNANS RINGS=";RNG;CHR$(13)
366 PRINT #2,"CALL#";K;", ";DIN$;", ";TIN$;", INC UNANS FROM ";IE$;" ,,,";MD$;ME$:MD$="":ME$="":MF$="":ID$="":IE$=""
367 K=K+1
368 IF LOC(1)=0 THEN 6000 ELSE 170
370 TF$=TIME$
371 IF ID=8 THEN IE$="OUT OF AREA"
380 H$=INPUT$(1,1)
381 IF H$="C" OR H$="H" THEN 390
382 IF H$="M" THEN GOSUB 480
383 IF H$="L" THEN GOSUB 520
384 IF H$="I" OR H$="D" THEN 358
385 IF ASC(H$)>34 AND ASC(H$)<58 THEN 386 ELSE 380
386 TN$=TIME$:GOSUB 550
387 IF J<5 THEN 380 ELSE 388
388 D$=D$+H$
389 GOTO 380
390 TN$=TIME$:IF LEN(D$)>6 THEN 400
391 GOSUB 550
392 IF J>1 THEN 393 ELSE 346
393 IF PR=80 THEN 394 ELSE 395
394 LPRINT "#";K;TAB(8)DIN$;TAB(19)TF$;TAB(28)"INC ANS FROM ";IE$;TAB(52)TN$;TAB(61)DU$;M$;MD$;ME$;MF$:M$="":GOTO 397
395 IF LEN(ID$)=18 THEN LPRINT "    FROM ";IE$
396 LPRINT "ANS. ";RNG;"RNGS   ";TF$;CHR$(13);"ON HOOK        ";TN$;CHR$(13);"  ";H;"HRS";M;"MIN";S;"SEC";CHR$(13)
397 PRINT #2,"CALL#";K;", ";DIN$;", ";TF$;", INC ANS FROM ";IE$;", ";TN$;", ";H;M;S;",";MD$;ME$;MF$;MG$:MD$="":ME$="":MF$="":MG$="":MC=0:ID$="":IE$=""
398 K=K+1:D$=""
399 IF LOC(1)=0 THEN 6000 ELSE 170
400 B$=D$
401 IF PR=80 THEN 407
405 LPRINT "CALL ENDED     ";TF$;CHR$(13)
406 GOTO 410
407 LPRINT "#";K;TAB(8)DIN$;TAB(19)TIN$;TAB(28)"INCOMING";RNG;"RINGS";TAB(52)TF$;TAB(61)DU$
410 PRINT #2,"CALL#";K;", ";DIN$;", ";TIN$;", INC UNANS ,,,";MD$;ME$:MD$="":ME$="":MF$=""
411 K=K+1
412 IF PR=80 THEN 240
415 LPRINT "CASE# ";C$;" CALL# ";K
420 LPRINT DATE$;"     ";TF$
425 GOTO 240
480 TS$=TIME$:MC=MC+1
481 PRINT "AUDIO OFF ";TS$
482 IF PR<>80 THEN LPRINT "AUDIO OFF      ";TS$
483 IF MC>9 THEN 487
484 MD$=MD$+" OFF "+TS$
485 D$=""
486 RETURN
487 IF MC>19 THEN 491
488 D$=""
489 ME$=ME$+" OFF "+TS$
490 RETURN
491 IF MC>29 THEN 495
492 MF$=MF$+" OFF "+TS$
493 D$=""
494 RETURN
495 MG$=MG$+" OFF "+TS$
496 D$=""
497 RETURN
500 TS$=TIME$:MC=MC+1
501 PRINT "AUDIO OFF ";TS$
502 IF PR<>80 THEN LPRINT "AUDIO OFF      ";TS$
503 IF MC>9 THEN 507
504 MD$=MD$+" OFF "+TS$
505 D$=""
506 RETURN 224
507 IF MC>19 THEN 511
508 D$=""
509 ME$=ME$+" OFF "+TS$
510 RETURN 224
511 IF MC>29 THEN 515
512 MF$=MF$+" OFF "+TS$
513 D$=""
514 RETURN 224
515 MG$=MG$+" OFF "+TS$
516 D$=""
517 RETURN 224
520 TN$=TIME$
521 PRINT "AUDIO ON  ";TN$
522 IF PR<>80 THEN LPRINT "AUDIO ON       ";TN$
523 IF MC>9 THEN 527
524 MD$=MD$+" ON "+TN$
525 D$=""
526 RETURN
527 IF MC>19 THEN 531
528 ME$=ME$+" ON "+TN$
529 D$=""
530 RETURN
531 IF MC>29 THEN 535
532 MF$=MF$+" ON "+TN$
533 D$=""
534 RETURN
535 MG$=MG$+" ON "+TN$
536 D$=""
537 RETURN
550 HN = VAL(TN$)
555 MN = VAL(MID$(TN$,4,2))
557 SN = VAL(RIGHT$(TN$,2))
560 HF = VAL(TF$)
565 MF = VAL(MID$(TF$,4,2))
570 SF = VAL(RIGHT$(TF$,2))
580 IF SF>SN THEN 700
585 S=SN-SF
590 IF MF>MN THEN 800
600 M=MN-MF
610 IF HF>HN THEN 850
620 H=HN-HF
625 DU$=RIGHT$(STR$(H),2)+":"+RIGHT$(STR$(M),2)+":"+RIGHT$(STR$(S),2)
626 J=S+(60*M)
630 RETURN
700 SN=SN+60
710 IF MN=0 THEN 730
720 MN=MN-1:GOTO 585
730 MN=59
735 IF HN=0 THEN 750
740 HN=HN-1:GOTO 585
750 HN=23:GOTO 585
800 MN=MN+60
810 IF HN=0 THEN 830
820 HN=HN-1:GOTO 600
830 HN=23:GOTO 600
850 HN=HN+24:GOTO 620
1000 COM(1) STOP
1001 CLOSE 2
1003 CLS:PRINT CHR$(13);TAB(4)"DO YOU WANT TO PRINT ON SCREEN OR TO LINE PRINTER (S=SCREEN L=LINEPRINTER)":INPUT P$
1004 PRINT CHR$(13);TAB(20)"WHAT CALL# DO YOU WANT TO START PRINTING AT":INPUT N
1005 L=LEN(STR$(N))
1007 IF P$="L" OR P$="l" THEN 1008 ELSE 1060
1008 CLS
1009 PRINT CHR$(13);TAB(20)"PLUG IN AN 80 COLUMN PRINTER AND PRESS ENTER":INPUT P$
1010 LPRINT CHR$(10);CHR$(10);TAB(10)"DATE  ";DATE$;"   TIME  ";TIME$;"   CASE#  ";C$;CHR$(10);CHR$(10)
1011 LPRINT "CALL#";TAB(16)"DATE";TAB(25)"TIME OFF";TAB(37)"TEL #";TAB(46)"ON HOOK";TAB(57)"DURATION";CHR$(10);CHR$(10)
1013 OPEN "A:NOTE.DO" FOR INPUT AS 2
1015 PRINT CHR$(13);TAB(25)"SEARCHING FOR CALL# ";N
1020 IF EOF(2) THEN 1098
1030 LINE INPUT#2,Z$
1035 RN$=MID$(Z$,7,L)
1037 IF VAL(RN$)=>N THEN 1040 ELSE 1020
1040 LPRINT Z$
1050 GOTO 1020
1060 OPEN "A:NOTE.DO" FOR INPUT AS 2
1061 CLS
1062 I=0
1063 PRINT CHR$(13);TAB(25)"SEARCHING FOR CALL# ";N;CHR$(13)
1065 IF EOF(2) THEN 1100
1070 LINE INPUT#2,Z$
1071 RN$=MID$(Z$,7,L)
1072 IF VAL(RN$)=>N THEN 1075 ELSE 1065
1075 PRINT Z$
1077 I=I+1:IF I>20 THEN 1082
1080 GOTO 1065
1082 INPUT "PRINT MORE? Y/N";PM$
1083 IF PM$="Y" OR PM$="y" THEN 1090 ELSE 1100
1090 LET I=1
1095 GOTO 1065
1098 PRINT CHR$(10);TAB(20)"PLUG YOUR NORMAL PRINTER IN";CHR$(10)
1100 CLOSE 2
1102 PRINT ""
1110 OPEN "A:NOTE.DO" FOR APPEND AS 2
1122 PRINT ""
1125 PRINT TAB(15)"ENTER NEXT CALL NUMBER AND PRESS ENTER":INPUT K
1130 IF LOC(1)=0 THEN 6000 ELSE 170
1140 RETURN
1200 COM(1) STOP
1205 CLOSE 2
1210 CLS
1220 PRINT CHR$(13);TAB(4)"REMOVE DATA DISK, REPLACE WITH NEW DATA DISK AND PRESS Y WHEN READY":INPUT N$
1221 IF N$="Y" OR N$="y" THEN 1222 ELSE 1220
1222 CLS
1225 PRINT CHR$(13);TAB(12)"DO YOU WANT TO ERASE THE EXISTING NOTE FILE (Y/N)":INPUT EF$
1226 IF EF$="Y" OR EF$="y" THEN 1230
1227 OPEN "A:NOTE.DO" FOR APPEND AS 2
1228 GOTO 1240
1230 OPEN "A:NOTE.DO" FOR OUTPUT AS 2
1240 CLS:PRINT CHR$(13);" DATE ";DATE$;TAB(66)"TIME ";TIME$;CHR$(10);CHR$(10);TAB(25)"WAITING FOR ACTIVITY ON LINE";CHR$(10);TAB(25)"----------------------------";CHR$(10);CHR$(10)
1241 PRINT TAB(20)"LAST CALL WAS ";B$;R$;CHR$(10);TAB(20)"--------------------------------------":PRINT CHR$(10);CHR$(10);TAB(30)"**** IMPORTANT ****";CHR$(13);CHR$(13);TAB(8)"PRESS THE F7 FUNCTION KEY BEFORE REMOVING DATA DISK FROM COMPUTER!!!"
1242 PRINT CHR$(10);CHR$(10);TAB(24)"**** TO VIEW OR PRINT FILE ****";CHR$(10);CHR$(10);TAB(10)"PRESS THE F-6 FUNCTION KEY AND FOLLOW ON-SCREEN INSTRUCTIONS";CHR$(10);CHR$(10);TAB(13)"PRESS THE F-8 FUNCTION KEY TO DATE/TIME STAMP PRINTOUT"
1250 RETURN
2000 IF B$="*" THEN 2010 ELSE 2030
2010 B$=""
2015 MC=1
2020 GOTO 224
2030 IF LEFT$(B$,1)<>"*" THEN 2015 ELSE 233
2500 LPRINT DATE$;"     ";TIME$;CHR$(10):RETURN
3000 IF LEN(ID$)=18 THEN 5000
3002 IF LEN(ID$)=8 AND IE$="OUT OF AREA" THEN 5000
3005 ID$=ID$+H$
3010 ID=ID+1
3015 IF ID=18 THEN 3025
3020 GOTO 346
3025 LOCATE 12,20:PRINT "CALLING FROM ";RIGHT$(ID$,10)
3030 IE$=RIGHT$(ID$,10)
3035 R$=" FROM "+IE$
3040 ID=0
3050 GOTO 346
3500 PRINT "ENTER FIRST ALARM NUMBER ie. 12123456789 or 72# or 5263408 THEN PRESS ENTER";CHR$(10);CHR$(10);TAB(26)"TO RETURN, JUST PRESS ENTER":INPUT A0$
3510 IF A0$="" THEN 53
3520 PRINT "ENTER SECOND ALARM NUMBER":INPUT A1$
3530 IF A1$="" THEN 53
3540 PRINT "ENTER THIRD ALARM NUMBER":INPUT A2$
3550 IF A2$="" THEN 53
3560 PRINT "ENTER FOURTH ALARM NUMBER":INPUT A3$
3570 IF A3$="" THEN 53
3580 PRINT "ENTER FIFTH ALARM NUMBER":INPUT A4$
3590 GOTO 53
3600 IF B$=A0$ THEN 3650
3610 IF B$=A1$ THEN 3650
3620 IF B$=A2$ THEN 3650
3630 IF B$=A3$ THEN 3650
3640 IF B$=A4$ THEN 3650
3645 GOTO 238
3650 R$=" ALARM NUMBER"
3660 LPRINT CHR$(14);R$
3670 SOUND 880,20
3680 GOTO 238
4000 IF ID=8 THEN IE$="OUT OF AREA"
4020 IF PR=80 THEN 363 ELSE 364
5000 RNG=RNG-1
5005 IF PR=80 THEN 5010 ELSE 5020
5010 LPRINT "#";K;TAB(8)DIN$;TAB(19)TIN$;TAB(28)"INC UNANS FROM ";IE$:GOTO 5040
5020 IF LEN(ID$)=18 THEN LPRINT "   FROM ";IE$
5030 LPRINT "UNANS RINGS=";RNG;CHR$(13)
5040 PRINT #2,"CALL#";K;", ";DIN$;", ";TIN$;", INC UNANS FROM ";IE$;" ,,,";MD$;ME$:MD$="":ME$="":MF$="":ID$="":IE$=""
5050 K=K+1
5060 DIN$=DATE$
5062 TIN$=TIME$
5065 RNG=1
5068 CLS
5070 PRINT "INCOMING CALL ";DIN$;" ";TIN$
5075 B$="INCOMING":ID$=H$:R$="":ID=1
5080 IF PR=80 THEN 346 ELSE 345
5100 IF ERR<>57 THEN PRINT "ERROR ";ERR;"IN LINE ";ERL
5101 IF ERR=62 THEN 5110
5102 H$=""
5103 RESUME 346
5110 CLOSE 1
5120 OPEN "COM1:1200,N,8,1,RS,CS0,DS0,CD0,ASC" FOR INPUT AS 1
5130 COM(1) ON
5140 RESUME 346
6000 CLS:PRINT CHR$(13);" DATE ";DATE$;TAB(66)"TIME ";TIME$;CHR$(10);CHR$(10);TAB(25)"WAITING FOR ACTIVITY ON LINE";CHR$(10);TAB(25)"----------------------------";CHR$(10);CHR$(10)
6010 PRINT TAB(20)"LAST CALL WAS ";B$;R$;CHR$(10);TAB(20)"--------------------------------------":PRINT CHR$(10);CHR$(10);TAB(30)"**** IMPORTANT ****";CHR$(13);CHR$(13);TAB(8)"PRESS THE F7 FUNCTION KEY BEFORE REMOVING DATA DISK FROM COMPUTER!!!"
6020 PRINT CHR$(10);CHR$(10);TAB(24)"**** TO VIEW OR PRINT FILE ****";CHR$(10);CHR$(10);TAB(10)"PRESS THE F-6 FUNCTION KEY AND FOLLOW ON-SCREEN INSTRUCTIONS";CHR$(10);CHR$(10);TAB(13)"PRESS THE F-8 FUNCTION KEY TO DATE/TIME STAMP PRINTOUT"
6030 RETURN