/* ·C·A·L·L·i·N·G·C·A·R·D·D·i·A·L·E·R· ·v1.1· by .oO-<\/>iKEY/rEVOLUTiON68-Oo. */

	FONT$="p0t-noodle 8"	      /* iF yOU wONT hAVE dIZ fONT, dELETE dIZ lINE */
	PRINT LOCAL "            pLEASE wAiT...iNiTiALiSiNG mODEM!!           "
	SEND "ATZ^M"
	WAIT "OK"
	RELMOVE -1,0
	SEND "ATX1M1^M"
	WAIT "OK"
	RELMOVE -1,0
	PRINT LOCAL " "
	PRINT LOCAL " oK...iNiTiALiSiNG iS dONE...lOADiNG cONFiG&pHONEbOOK... "
	IF EXISTS("TERMINUS:MKDiALER/MKD.DAT")
	   PRINT LOCAL " - --pHONEbOOK·iS·pRESENT...lOADiNG·aND·iNiTiALiSiNG-- -"
	   OPEN INPUT 1,"TERMINUS:MKDiALER/MKD.PRE"
	        READ #1, DPRE$
	   CLOSE #1
	ELSE
	   PRINT LOCAL "     - --iNSTALLiNG·nEW·cONFIG·&·pHONEbOOK·fILE-- -      "
	   OPEN OUTPUT 1,"TERMINUS:MKDiALER/MKD.DAT"
	   CLOSE #1
	   OPEN OUTPUT 2,"TERMINUS:MKDiALER/MKD.PRE"
	   INPUT " ·pULSE·oR·tOUCHtONE·dIALiNG·[P/T]· : ",ANS$
	   IF ANS$=="P"
	      WRITE #2, "ATDP"
	   ELSE
	      WRITE #2, "ATDT"
	   ENDIF
	   CLOSE #2
	ENDIF
	POS==0
	RV$==""
	NPA==1
MAIN:
	L==4
	C==3
	CTDU==1
	CLS
	FONT$="p0t-noodle 8"
        PRINT LOCAL "                    ·wELcOmE·TO·ThE·aT&T·CaLLiNG·cArD·DiALeR·                 "
        PRINT LOCAL "                      ·cHOoSE·oNE·oF·THe·FoLLoWiNG·ToPPiCs·                   "
	PRINT LOCAL "  --------------------------------------+----------------------------PAGE-I---"
	PRINT LOCAL "  .................................-o1- | ................................-21-"
	PRINT LOCAL "  .................................-o2- | ................................-22-"
	PRINT LOCAL "  .................................-o3- | ................................-23-"
	PRINT LOCAL "  .................................-o4- | ................................-24-"
	PRINT LOCAL "  .................................-o5- | ................................-25-"
	PRINT LOCAL "  .................................-o6- | ................................-26-"
	PRINT LOCAL "  .................................-o7- | ................................-27-"
	PRINT LOCAL "  .................................-o8- | ................................-28-"
	PRINT LOCAL "  .................................-o9- | ................................-29-"
	PRINT LOCAL "  .................................-1o- | ................................-3o-"
	PRINT LOCAL "  .................................-11- | ................................-31-"
	PRINT LOCAL "  .................................-12- | ................................-32-"
	PRINT LOCAL "  .................................-13- | ................................-33-"
	PRINT LOCAL "  .................................-14- | ................................-34-"
	PRINT LOCAL "  .................................-15- | ................................-35-"
	PRINT LOCAL "  .................................-16- | ................................-36-"
	PRINT LOCAL "  .................................-17- | ................................-37-"
	PRINT LOCAL "  .................................-18- | ................................-38-"
	PRINT LOCAL "  .................................-19- | ................................-39-"
	PRINT LOCAL "  .................................-2o- | ................................-4o-"
	PRINT LOCAL "  --------------------------------------+-------------------------------------"
	PRINT LOCAL "  TO CHANGE ACTUALL CC NUMBA.......-CC- | ViEW ACTUAL CC NUMBA............-VC-"
	PRINT LOCAL "  TEST A NEW NUMBA.................-TN- | SCAN A CC LiST..................-SC-"
	PRINT LOCAL "  QUiT THiS SCRiPT FiLE............-QU- | NEXT PAGE.......................-NP-"
	PRINT LOCAL "  --------------------------------------+-------------------©-¹995-by-MiKEY---"
MAIN12:
	OPEN INPUT 1,"TERMINUS:MKDiALER/MKD.DAT"
	IF NPA==2
	   FOR I = 1 TO 40
	       READ #1, RV1$
	       READ #1, RV2$
	       READ #1, RV3$
	       READ #1, RV4$
	       READ #1, RV5$
	       READ #1, RV6$
	   NEXT
	ENDIF
	FOR I = 1 TO 40
	      READ #1, RV1$
	      IF RV1$=="END_OF_FILE"
		 CLOSE #1
		 GOTO MAIN2
	      ENDIF
	      READ #1, RV2$
	      READ #1, RV3$
	      READ #1, RV4$
	      READ #1, RV5$
	      READ #1, RV6$
	      MOVE L,C
	      PRINT LOCAL RV1$
	      L==L+1
	      IF L==24
		 L==4
		 C==43
	      ENDIF
	POS==POS+1
	NEXT
	CLOSE #1
MAIN2:
	NPA==1
	MOVE 29,0
	INPUT       "  ·mAKE· ·yOUR· ·cHOiCE· ·sLAPPER·: ",ANS$
	IF EXISTS("TERMINUS:MKDiALER/CCC.DAT")
	   OPEN INPUT 2,"DH0:TERMINUS/CCC.DAT"
	   READ #2, CCNUM$
	   CLOSE #2
	ELSE
	   PRINT LOCAL " - --wARNiNG...nO·cC·nUMBA·aVAiBLE·riGHT·nOW-- -"
	   GOTO CH_CC
	ENDIF
	IF ANS$=="1"
	   GOTO D1
	ENDIF
        IF ANS$=="2"
           GOTO D2
        ENDIF
        IF ANS$=="3"
           GOTO D3
        ENDIF
        IF ANS$=="4"
           GOTO D4
        ENDIF
        IF ANS$=="5"
           GOTO D5
        ENDIF
        IF ANS$=="6"
           GOTO D6
        ENDIF
        IF ANS$=="7"
           GOTO D7
        ENDIF
        IF ANS$=="8"
           GOTO D8
        ENDIF
        IF ANS$=="9"
           GOTO D9
        ENDIF
        IF ANS$=="10"
           GOTO D10
        ENDIF
        IF ANS$=="11"
           GOTO D11
        ENDIF
        IF ANS$=="12"
           GOTO D12
        ENDIF
        IF ANS$=="13"
           GOTO D13
        ENDIF
        IF ANS$=="14"
           GOTO D14
        ENDIF
        IF ANS$=="15"
           GOTO D15
        ENDIF
        IF ANS$=="16"
           GOTO D16
        ENDIF
        IF ANS$=="17"
           GOTO D17
        ENDIF
	IF ANS$=="18"
	   GOTO D18
	ENDIF
        IF ANS$=="19"
           GOTO D19
        ENDIF
        IF ANS$=="20"
           GOTO D20
        ENDIF
        IF ANS$=="21"
           GOTO D21
        ENDIF
        IF ANS$=="22"
           GOTO D22
        ENDIF
        IF ANS$=="23"
           GOTO D23
        ENDIF
        IF ANS$=="24"
           GOTO D24
        ENDIF        
        IF ANS$=="25"
           GOTO D25
        ENDIF        
        IF ANS$=="26"
           GOTO D26
        ENDIF        
        IF ANS$=="27"
           GOTO D27
        ENDIF        
        IF ANS$=="28"
           GOTO D28
        ENDIF        
        IF ANS$=="29"
           GOTO D29
        ENDIF        
        IF ANS$=="30"
           GOTO D30
        ENDIF        
        IF ANS$=="31"
           GOTO D31
        ENDIF        
        IF ANS$=="32"
           GOTO D32
        ENDIF        
        IF ANS$=="33"
           GOTO D33
        ENDIF        
        IF ANS$=="34"
           GOTO D34
        ENDIF        
        IF ANS$=="35"
           GOTO D35
        ENDIF        
        IF ANS$=="36"
           GOTO D36
        ENDIF        
        IF ANS$=="37"
           GOTO D37
        ENDIF        
        IF ANS$=="38"
           GOTO D38
        ENDIF        
        IF ANS$=="39"
           GOTO D39
        ENDIF        
        IF ANS$=="40"
           GOTO D40
        ENDIF
        IF ANS$=="41"
           GOTO D41
        ENDIF
        IF ANS$=="42"
           GOTO D42
        ENDIF
        IF ANS$=="43"
           GOTO D43
        ENDIF
        IF ANS$=="44"
           GOTO D44
        ENDIF
        IF ANS$=="45"
           GOTO D45
        ENDIF
        IF ANS$=="46"
           GOTO D46
        ENDIF
        IF ANS$=="47"
           GOTO D47
        ENDIF
        IF ANS$=="48"
           GOTO D48
        ENDIF
        IF ANS$=="49"
           GOTO D49
        ENDIF
        IF ANS$=="50"
           GOTO D50
        ENDIF
        IF ANS$=="51"
           GOTO D51
        ENDIF
        IF ANS$=="52"
           GOTO D52
        ENDIF
        IF ANS$=="53"
           GOTO D53
        ENDIF
        IF ANS$=="54"
           GOTO D54
        ENDIF
        IF ANS$=="55"
           GOTO D55
        ENDIF
        IF ANS$=="56"
           GOTO D56
        ENDIF
        IF ANS$=="57"
           GOTO D57
        ENDIF
        IF ANS$=="58"
           GOTO D58
        ENDIF
        IF ANS$=="59"
           GOTO D59
        ENDIF
        IF ANS$=="60"
           GOTO D60
        ENDIF
        IF ANS$=="61"
           GOTO D61
        ENDIF
        IF ANS$=="62"
           GOTO D62
        ENDIF
        IF ANS$=="63"
           GOTO D63
        ENDIF
        IF ANS$=="64"
           GOTO D64
        ENDIF
        IF ANS$=="65"
           GOTO D65
        ENDIF
        IF ANS$=="66"
           GOTO D66
        ENDIF
        IF ANS$=="67"
           GOTO D67
        ENDIF
        IF ANS$=="68"
           GOTO D68
        ENDIF
        IF ANS$=="69"
           GOTO D69
        ENDIF
        IF ANS$=="70"
           GOTO D70
        ENDIF
        IF ANS$=="71"
           GOTO D71
        ENDIF
        IF ANS$=="72"
           GOTO D72
        ENDIF
        IF ANS$=="73"
           GOTO D73
        ENDIF
        IF ANS$=="74"
           GOTO D74
        ENDIF
        IF ANS$=="75"
           GOTO D75
        ENDIF
        IF ANS$=="76"
           GOTO D76
        ENDIF
        IF ANS$=="77"
           GOTO D77
        ENDIF
        IF ANS$=="78"
           GOTO D78
        ENDIF
        IF ANS$=="79"
           GOTO D79
        ENDIF
        IF ANS$=="80"
           GOTO D80
        ENDIF
        IF ANS$=="VC" or ANS$=="vc"
           GOTO VC
        ENDIF
        IF ANS$=="SC" OR ANS$=="sc"
           GOTO SC
        ENDIF
        IF ANS$=="NP" OR ANS$=="np"
           GOTO NP
        ENDIF
	IF ANS$=="FP" OR ANS$=="fp"
	   NPA==1
	   GOTO MAIN
	ENDIF
        IF ANS$=="CC" OR ANS$=="cc"
           GOTO CH_CC
        ENDIF
        IF ANS$=="TN" OR ANS$=="tn"
           GOTO DL_NE
        ENDIF
	IF ANS$=="VN" OR ANS$=="vn"
	   GOTO VN
	ENDIF
	IF ANS$=="SL" OR ANS$=="sl"
	   GOTO OUT_SCP
	ENDIF
	IF ANS$=="QU" OR ANS$=="qu" OR ANS$=="0"
	   GOTO OUT_SCP2
	ENDIF
	IF ANS$=="MN" OR ANS$=="mn"
	   GOTO MAKEN
	ENDIF
	IF ANS$=="EE" OR ANS$=="ee"
	   GOTO EDEN
	ENDIF
	IF ANS$=="VF" OR ANS$=="vf"
	   GOTO VIEWF
	ENDIF
	IF ANS$=="DE" OR ANS$=="de"
	   GOTO DELEN
	ENDIF
	IF ANS$=="?"
	   CLS
	   PRINT LOCAL "  -----------------------------------------------------------------------------"
	   PRINT LOCAL "                          wELcoME tO dA mK-dIALer hELP-pAGe                    "
	   PRINT LOCAL "  -----------------------------------------------------------------------------"
	   PRINT LOCAL "  CC - tO cHANGE tHE aCTUAL uSED cARD# ! | VC - tO vIEW tHE aCTUAL uSED cARD#"
	   PRINT LOCAL "  SC - tO sCAN A cARD-fILE !             | TN - tEST A # uSING tHE sTORED cARD#"
	   PRINT LOCAL "  VN - vIEW A pHONE# iN lIST !           | VF - tHE fULL iNFORMATiON oN A # !"
	   PRINT LOCAL "  MN - cREATES A nEW eNTRY iN lIST !     | EE - eDITS eNTRY iN lIST !"
	   PRINT LOCAL "  DE - dELETEs ENTRY fROM lIST !         | QU - qUiTS tHE dIALER !"
	   PRINT LOCAL "  ---------------------------------------+-------------------------------------"
	   PRINT LOCAL "  NP - sHOWs yOU pAGE-II oF mKDiALeR     | FP - rETURNs tO pAGE-I (s.a. RETURN)"
	   PRINT LOCAL "  SL - sETs mKDiALeR tO sLEEP mODE !     | ?  - dIZ hELP-pAGE !"
	   PRINT LOCAL "       hE wILL aWAKE aFTER tYPiNG iN     | ------------------------------------"
	   PRINT LOCAL "       MKDIALER aT aNY pLACE aT aNY tIME | ------------------------------------"
	   PRINT LOCAL "  ---------------------------------------+-------------------------------------"
	   PRINT LOCAL "  aFTER eACH dIALiNG aCTiON, mKDiALEr wILL gO tO tHE sLEEP-mODE, wHICH mEENs,"
	   PRINT LOCAL "  tHAT yOU wONT bE iNTERUPTED bY tHE dIALER wHiLE yOU aRE oNLiNE, bUT iF yOU"
	   PRINT LOCAL "  lOST cARRiER oR lOGG oFF, tHE aUTOMATiC rEACTiVATING oF mK-dIALER wILL aPPEAR"
	   PRINT LOCAL "  iN aPPROXiMATELY 60 sECONDS, iF yOU hAVENT eNTERED MKDIALER iN tHOSE"
	   PRINT LOCAL "  60 sECONDS !!"
	   PRINT LOCAL "  -----------------------------------------------------------------------------"
	   PRINT LOCAL "  gREETiNGs fLiNG oUT tO : RADiOSiTY, dRES!, mR.dEiCiDE, J-mORRiSON, aNiMAX"
	   PRINT LOCAL "                           aND aLL i fORGOT..."
	   PRINT LOCAL "  ---------------------rETURN-kEY-tO-gET-bACK-tO-dIALER!-----------------------"
	   INPUT "",ANS$
	   GOTO MAIN
	ENDIF
	GOTO MAIN

D1:
	CLS
	SNUM==0
	GOTO PLI
D2:
	CLS
	SNUM==1
	GOTO PLI
D3:
	CLS
	SNUM==2
	GOTO PLI
D4:
	CLS
	SNUM==3
	GOTO PLI
D5:
	CLS
	SNUM==4
	GOTO PLI
D6:
	CLS
	SNUM==5
	GOTO PLI
D7:
	CLS
	SNUM==6
	GOTO PLI
D8:
	CLS
	SNUM==7
	GOTO PLI
D9:
	CLS
	SNUM==8
	GOTO PLI
D10:
	CLS
	SNUM==9
	GOTO PLI
D11:
	CLS
	SNUM==10
	GOTO PLI
D12:
	CLS
	SNUM==11
	GOTO PLI
D13:
	CLS
	SNUM==12
	GOTO PLI
D14:
	CLS
	SNUM==13
	GOTO PLI
D15:
	CLS
	SNUM==14
	GOTO PLI
D16:
	CLS
	SNUM==15
	GOTO PLI
D17:
	CLS
	SNUM==16
	GOTO PLI
D18:
	CLS
	SNUM==17
	GOTO PLI
D19:
	CLS
	SNUM==18
	GOTO PLI
D20:
	CLS
	SNUM==19
	GOTO PLI
D21:
	CLS
	SNUM==20
	GOTO PLI
D22:
	CLS
	SNUM==21
	GOTO PLI
D23:
	CLS
	SNUM==22
	GOTO PLI
D24:
	CLS
	SNUM==23
	GOTO PLI
D25:
	CLS
	SNUM==24
	GOTO PLI
D26:
	CLS
	SNUM==25
	GOTO PLI
D27:
	CLS
	SNUM==26
	GOTO PLI
D28:
	CLS
	SNUM==27
	GOTO PLI
D29:
	CLS
	SNUM==28
	GOTO PLI
D30:
	CLS
	SNUM==29
	GOTO PLI
D31:
	CLS
	SNUM==30
	GOTO PLI
D32:
	CLS
	SNUM==31
	GOTO PLI
D33:
	CLS
	SNUM==32
	GOTO PLI
D34:
	CLS
	SNUM==33
	GOTO PLI
D35:
	CLS
	SNUM==34
	GOTO PLI
D36:
	CLS
	SNUM==35
	GOTO PLI
D37:
	CLS
	SNUM==36
	GOTO PLI
D38:
	CLS
	SNUM==37
	GOTO PLI
D39:
	CLS
	SNUM==38
	GOTO PLI
D40:
	CLS
	SNUM==39
	GOTO PLI
D41:
	CLS
	SNUM==40
	GOTO PLI
D42:
	CLS
	SNUM==41
	GOTO PLI
D43:
	CLS
	SNUM==42
	GOTO PLI
D44:
	CLS
	SNUM==43
	GOTO PLI
D45:
	CLS
	SNUM==44
	GOTO PLI
D46:
	CLS
	SNUM==45
	GOTO PLI
D47:
	CLS
	SNUM==46
	GOTO PLI
D48:
	CLS
	SNUM==47
	GOTO PLI
D49:
	CLS
	SNUM==48
	GOTO PLI
D50:
	CLS
	SNUM==49
	GOTO PLI
D51:
	CLS
	SNUM==50
	GOTO PLI
D52:
	CLS
	SNUM==51
	GOTO PLI
D53:
	CLS
	SNUM==52
	GOTO PLI
D54:
	CLS
	SNUM==53
	GOTO PLI
D55:
	CLS
	SNUM==54
	GOTO PLI
D56:
	CLS
	SNUM==55
	GOTO PLI
D57:
	CLS
	SNUM==56
	GOTO PLI
D58:
	CLS
	SNUM==57
	GOTO PLI
D59:
	CLS
	SNUM==58
	GOTO PLI
D60:
	CLS
	SNUM==59
	GOTO PLI
D61:
	CLS
	SNUM==60
	GOTO PLI
D62:
	CLS
	SNUM==61
	GOTO PLI
D63:
	CLS
	SNUM==62
	GOTO PLI
D64:
	CLS
	SNUM==63
	GOTO PLI
D65:
	CLS
	SNUM==64
	GOTO PLI
D66:
	CLS
	SNUM==65
	GOTO PLI
D67:
	CLS
	SNUM==66
	GOTO PLI
D68:
	CLS
	SNUM==67
	GOTO PLI
D69:
	CLS
	SNUM==68
	GOTO PLI
D70:
	CLS
	SNUM==69
	GOTO PLI
D71:
	CLS
	SNUM==70
	GOTO PLI
D72:
	CLS
	SNUM==71
	GOTO PLI
D73:
	CLS
	SNUM==72
	GOTO PLI
D74:
	CLS
	SNUM==73
	GOTO PLI
D75:
	CLS
	SNUM==74
	GOTO PLI
D76:
	CLS
	SNUM==75
	GOTO PLI
D77:
	CLS
	SNUM==76
	GOTO PLI
D78:
	CLS
	SNUM==77
	GOTO PLI
D79:
	CLS
	SNUM==78
	GOTO PLI
D80:
	CLS
	SNUM==79
	GOTO PLI

PLI:
	PRINT LOCAL "  .-----------------------------------------------------------------------."
	PRINT LOCAL "  :oO-lOCAL·aCCOUNT·iNFORMATiONS·fOR···································-Oo:"
	PRINT LOCAL "  :-----------------------------------+-----------------------------------:"
	PRINT LOCAL "  | USERNAME :                        | PASSWORD :                        |"
	PRINT LOCAL "  |-» F1 «----------------------------+-» F2 «----------------------------|"
	PRINT LOCAL "  |                                   |                                   |"
	PRINT LOCAL "  |-----------------------------------+-----------------------------------|"
	PRINT LOCAL "  |                                                                       |"
	PRINT LOCAL "  `-----------------------------------------------------------------------'"
        PRINT LOCAL " "
	OPEN INPUT 1,"TERMINUS:MKDiALER/MKD.DAT"
	  IF SNUM==0
	     GOTO PLI2
	  ENDIF
	  IF SNUM==1
	     GOTO PLI3
	  ENDIF
	     FOR I = 1 TO SNUM
	         READ #1, RV1$
	         READ #1, RV2$
	         READ #1, RV3$
	         READ #1, RV4$
	         READ #1, RV5$
	         READ #1, RV6$
	     NEXT
PLI2:
	     READ #1, RV1$
	     IF RV1$=="END_OF_FILE"
	        PRINT LOCAL "  ·sORRY·tHERE·iS·nO·eNTRY·uNDER·dIZ·sELECTED·nUMBER!·"
	        CLOSE #1
	        WAIT 2
	        GOTO MAIN
	     ENDIF
	     MOVE 2,38
	     PRINT LOCAL RV1$
	     READ #1, RV2$
	     MOVE 6,5
	     PRINT LOCAL RV2$
	     READ #1, RV3$
	     MOVE 6,41
	     PRINT LOCAL RV3$
	     READ #1, RV4$
	     IF RV4$=="BILL" OR RV4$=="bill"
	        CTDU==3
	     ENDIF
	     IF RV4$=="AT&T" OR RV4$=="at&t"
		CTDU==1
	     ENDIF
	     IF RV4$=="MCI" OR RV4$=="mci"
		CTDU==2
	     ENDIF
	     READ #1, RV5$
	     READ #1, RV6$
	     MOVE 8,5
	     PRINT LOCAL RV6$
	     MOVE 11,0
	CLOSE #1
	FKEY1$=RV2$
	FKEY2$=RV3$
	IF CARRIER == 1
	   GOTO CDCP
	ENDIF
	GOSUB CATT
	IF CTDU==3
	   SEND DPRE$
	   SEND RV5$
	   SEND "^M"
	   GOTO OUT_SCPB
	ENDIF
	IF CTDU==1
	   SEND "ATDT"
	   SEND RV5$
	   SEND ",,,,,"
	   SEND CCNUM$
	   SEND "^M"
	   GOTO OUT_SCPB
	ELSE
	   SEND "ATDT"
	   SEND CCNUM$
	   SEND ",,,"
	   SEND RV5$
	   SEND "^M"
	   GOTO OUT_SCPB
	ENDIF
PLI3:
	READ #1, RV1$
	READ #1, RV2$
	READ #1, RV3$
	READ #1, RV4$
	READ #1, RV5$
	READ #1, RV6$
	GOTO PLI2

VC:
	RELMOVE -6,42
	PRINT LOCAL "CC-NUMBER : " CCNUM$ ""
	MOVE 29,0
	PRINT LOCAL "                                                "
	MOVE 29,0
	GOTO MAIN2

NP:
	CLS
        PRINT LOCAL "                    ·wELcOmE·TO·ThE·aT&T·CaLLiNG·cArD·DiALeR·                 "
        PRINT LOCAL "                      ·cHOoSE·oNE·oF·THe·FoLLoWiNG·ToPPiCs·                   "
	PRINT LOCAL "  --------------------------------------+----------------------------PAGE-II--"
	PRINT LOCAL "  .................................-41- | ................................-61-"
	PRINT LOCAL "  .................................-42- | ................................-62-"
	PRINT LOCAL "  .................................-43- | ................................-63-"
	PRINT LOCAL "  .................................-44- | ................................-64-"
	PRINT LOCAL "  .................................-45- | ................................-65-"
	PRINT LOCAL "  .................................-46- | ................................-66-"
	PRINT LOCAL "  .................................-47- | ................................-67-"
	PRINT LOCAL "  .................................-48- | ................................-68-"
	PRINT LOCAL "  .................................-49- | ................................-69-"
	PRINT LOCAL "  .................................-5o- | ................................-7o-"
	PRINT LOCAL "  .................................-51- | ................................-71-"
	PRINT LOCAL "  .................................-52- | ................................-72-"
	PRINT LOCAL "  .................................-53- | ................................-73-"
	PRINT LOCAL "  .................................-54- | ................................-74-"
	PRINT LOCAL "  .................................-55- | ................................-75-"
	PRINT LOCAL "  .................................-56- | ................................-76-"
	PRINT LOCAL "  .................................-57- | ................................-77-"
	PRINT LOCAL "  .................................-58- | ................................-78-"
	PRINT LOCAL "  .................................-59- | ................................-79-"
	PRINT LOCAL "  .................................-6o- | ................................-8o-"
	PRINT LOCAL "  --------------------------------------+-------------------------------------"
	PRINT LOCAL "  ViEW A PHONENUMBER...............-VN- | EDiT ENTRY......................-EE-"
	PRINT LOCAL "  ViEW FULL iNFO ON AN ENTRY.......-VF- | DELETE ENTRY....................-DE-"
	PRINT LOCAL "  MAKE NEW ENTRY...................-MN- | FiRST PAGE......................-FP-"
	PRINT LOCAL "  --------------------------------------+-------------------©-¹995-by-MiKEY---"
	NPA==2
	L==4
	C==3
	GOTO MAIN12

SC:
	CLS
	NUM==0
	PRINT LOCAL "  ---------------------------------------------------------------------------"
	PRINT LOCAL "         wELcOMe TO DA aT&T CaLLiNG CaRD sCAnNEr v1.o © ¹995 by MiKEY"
	PRINT LOCAL "  ---------------------------------------------------------------------------"
	PRINT LOCAL " "
	INPUT "  PLEASE ENTER THE FiLENAME/PATH OF THE CARD FiLE : ",ANS$
	IF ANS$==""
	   GOTO MAIN
	ENDIF
	IF EXISTS(ANS$)
	   INPUT "  ENTER PHONE NUMBER TO TEST CARD WiTH            : ",PNUM$
	   INPUT "  ENTER 1 FOR AT&T OR 2 FOR MCi CARDS             : ",CTDU
	   INPUT "  ENTER NUMBER OF CARDS TO SCAN...ENTER FOR ALL   : ",NUM
	ELSE
	   PRINT LOCAL " THE CARDFiLE DOES NOT EXiSTS !!"
	   PRINT LOCAl " HiT ENTER TO QUiT !!"
	   WAIT 2
	   GOTO SC
	ENDIF
	OPEN INPUT 2, ANS$
	IF NUM==0
TACN:
	   READ #2, RV1$
	   READ #2, RV2$
	   IF RV2$=="END_OF_FILE"
	      GOTO MAIN
	   ENDIF
	   GOSUB TDCN
	   GOTO TACN
	ELSE
	   FOR I = 1 TO NUM STEP 2
	       READ #2, RV1$
	       READ #2, RV2$
	       GOSUB TDCN
	   NEXT
	ENDIF
	CLOSE #2
	GOTO MAIN

TDCN:
	GOSUB CATT
	SEND "ATDT"
	SEND PNUM$
	SEND ",,,,,"
	SEND RV1$
	SEND ";^M"
	WAIT "OK"
	RELMOVE -1,0
	WAIT 8
	SEND "ATDT"
	SEND RV2$
	SEND ";^M"
	WAIT "OK"
	RELMOVE -1,0
	WAIT 9
	SEND "ATH^M"
	WAIT "OK"
	RELMOVE -1,0
	WAIT 1
	RETURN

DL_NE:
	NUM$=""
	NUM2$=""
        IF EXISTS("TERMINUS:MKDiALER/DiALER.STORE")
           OPEN INPUT 2,"TERMINUS:MKDiALER/DiALER.STORE"
           READ #2,NUM$
           CLOSE #2
        ENDIF
DL_NE2:
	INPUT "  ·eNTER·nUMBA·tO·cHECK·oUT· : ",NUM2$
	IF NUM$=="" AND NUM2$==""
	   RELMOVE -1,61
	   PRINT LOCAL "  <-- Q·fOR·qUiT!"
	   RELMOVE -1,-1
	   GOTO DL_NE2
	ENDIF
	MOVE 30,61
	PRINT LOCAL "                  "
	IF NUM2$==""
	   NUM2$=NUM$
	ENDIF
	IF NUM2$=="Q" OR NUM2$=="q"
	   OPEN OUTPUT 2,"TERMINUS:MKDiALER/DiALER.STORE"
	   WRITE #2,""
	   CLOSE #2
	   GOTO MAIN
	ENDIF
	OPEN OUTPUT 2,"TERMINUS:MKDiALER/DiALER.STORE"
	WRITE #2,NUM2$
	CLOSE #2
	RELMOVE -1,29
	PRINT LOCAL NUM2$
	GOSUB CATT
	SEND "ATDT"
	SEND NUM2$
	SEND ",,,,,"
	SEND CCNUM$
	SEND "^M"
	GOTO OUT_SCP
                                  
CH_CC:
	INPUT "  ·pLEASE·eNTER·nEW·cC·nUMBA·riGHT·hERE· : ",CCNUM3$
	IF CCNUM3$==""
	   RELMOVE -1,43
	   PRINT LOCAL CCNUM$
	ELSE
           OPEN OUTPUT 2,"TERMINUS:MKDiALER/CCC.DAT"
           WRITE #2, CCNUM3$
	   CLOSE #2
	   RELMOVE -1,60
	   PRINT LOCAL "·cC·hAS·bEEN·sAFED·"
	ENDIF
	WAIT 1
	RELMOVE -1,0
	PRINT LOCAL "                                                                             "
	RELMOVE -2,-1
	PRINT LOCAL "                                                                             "
	RELMOVE -1,-1
	GOTO MAIN2

VN:
	INPUT       "  ·eNTER·nUMBA·iN·liST·tO·viEW·pHONENUMBER·oF· : ",VPN
	IF VPN==0
	   GOTO MAIN
	ENDIF
	OPEN INPUT 1,"TERMINUS:MKDiALER/MKD.DAT"
	FOR I = 1 TO VPN
	    READ #1, RV1$
	    READ #1, RV2$
	    READ #1, RV3$
	    READ #1, RV4$
	    READ #1, RV5$
	    READ #1, RV6$
	NEXT
	CLOSE #1
	IF RV5$=="END_OF_FILE"
	   MOVE 24,4
	   PRINT LOCAL "·nO·eNTRY·uNDER·dIZ·nUMBER·"
	   GOTO VN2
	ENDIF
	MOVE 24,4
        PRINT LOCAL "pHONE-nUMBER : " RV5$  ""
VN2:
        MOVE 29,0
        PRINT LOCAL "                                                      "
        MOVE 30,0
	PRINT LOCAL "                                                      "
	MOVE 29,0
        GOTO MAIN2

MAKEN:
	CLS
	PRINT LOCAL " - - -- - ----- - - -- - -- -- -- - --- --- - --- - -- - -- -- - -- -- -- - -- -"
	PRINT LOCAL "                     JoIN nEw bOArd tO dA pHONebOoK"
	PRINT LOCAL " - - - -- - --- - - -- - -- -- -- - --- --- - --- - -- - -- -- - -- -- -- - -- -"
	PRINT LOCAL " "
	PRINT LOCAL " 1. bOARD-nAME :                         | 4. pHONe-nUMBA :                     "
	PRINT LOCAL " 2. uSER-nAME  :                         : 5. aT&T oR mCi :                     "
	PRINT LOCAL " 3. pASSwORD   :                         ` - - --- - -- -- - -- - --- --- - -- -"
	PRINT LOCAL " 6. cOMMENT    :                                                                "
        OPEN INPUT 1,"TERMINUS:MKDiALER/MKD.DAT"
        FOR I = 1 TO 80
            READ #1, RV1$
	    IF RV1$=="END_OF_FILE"
	       GOTO MAKEN2
	    ENDIF
            READ #1, RV2$
            READ #1, RV3$
            READ #1, RV4$
            READ #1, RV5$
            READ #1, RV6$
        NEXT
	CLOSE #1
	PRINT LOCAL ""
	PRINT LOCAL " ·sORRY·bUT·tHE·pHONEbOOK·aLREADY·cONTAiNS·8o·eNTRiES!·"
	WAIT 2
	GOTO MAIN
MAKEN2:
        CLOSE #1
	MOVE 5,18
	INPUT "",RV1$
	MOVE 6,18
	INPUT "",RV2$
	MOVE 7,18
	INPUT "",RV3$
	MOVE 5,61
	INPUT "",RV5$
	MOVE 6,61
	INPUT "",RV4$
	MOVE 8,18
	INPUT "",RV6$
CN7:
	MOVE 10,2
	PRINT LOCAL "                                               "
	MOVE 11,2
	PRINT LOCAL "                                               "
	MOVE 10,2
	INPUT " ·aNY·cORRECTiONS·[Y/N/A]· : ",ANS$
	IF ANS$=="A" OR ANS$=="a" OR ANS$==""
	   MOVE 11,2
	   PRINT LOCAL " ·aDD·hAS·nOT·bEEN·sAFED...*aBORTED*!·"
	   WAIT 1
	   GOTO MAIN
	ENDIF
	IF ANS$=="N" OR ANS$=="n"
	   OPEN APPEND 1,"TERMINUS:MKDiALER/MKD.DAT"
	   WRITE #1, RV1$
	   WRITE #1, RV2$
	   WRITE #1, RV3$
	   WRITE #1, RV4$
	   WRITE #1, RV5$
	   WRITE #1, RV6$
	   CLOSE #1
	   GOTO MAIN
	ELSE
	   INPUT "  ·wHICH·nUMBER·tO·cORRECT· : ",NTC
	   IF NTC==0
	      GOTO CN7
	   ENDIF
           IF NTC==1
	      MOVE 5,18
	      INPUT "",RV11$
	      IF RV11$ > ""
		 RV1$==RV11$
	      ENDIF
           ENDIF
           IF NTC==2
              MOVE 6,18
	      INPUT "",RV21$
              IF RV21$ > ""
                 RV2$==RV21$
              ENDIF
           ENDIF
           IF NTC==3
              MOVE 7,18
	      INPUT "",RV31$
              IF RV31$ > ""
                 RV3$==RV31$
              ENDIF
           ENDIF
           IF NTC==4
              MOVE 5,61
	      INPUT "",RV51$
              IF RV51$ > ""
                 RV5$==RV51$
              ENDIF
           ENDIF
           IF NTC==5
              MOVE 6,61
	      INPUT "",RV41$
              IF RV41$ > ""
                 RV4$==RV41$
              ENDIF
           ENDIF
           IF NTC==6
              MOVE 8,18
	      INPUT "",RV61$
              IF RV61$ > ""
                 RV6$==RV61$
              ENDIF
           ENDIF
	ENDIF
	GOTO CN7

EDEN:
	CLS
	BTE==0
	PRINT LOCAL " - - -- - ----- - - -- - -- -- -- - --- --- - --- - -- - -- -- - -- -- -- - -- -"
	PRINT LOCAL "                              eDiT enTRie iN lISt"
	PRINT LOCAL " - - - -- - --- - - -- - -- -- -- - --- --- - --- - -- - -- -- - -- -- -- - -- -"
	PRINT LOCAL " "
	PRINT LOCAL " 1. bOARD-nAME :                         | 4. pHONe-nUMBA :                     "
	PRINT LOCAL " 2. uSER-nAME  :                         : 5. aT&T oR mCi :                     "
	PRINT LOCAL " 3. pASSwORD   :                         ` - - --- - -- -- - -- - --- --- - -- -"
	PRINT LOCAL " 6. cOMMENT    :                                                                "
	PRINT LOCAl " "
	INPUT " ·wHiCH·bOARD·dO·yOU·wANNA·eDiT· : ",BTE
	IF BTE==0
	   GOTO MAIN
	ENDIF
	IF BTE==""
	   GOTO MAIN
	ENDIF
	IF BTE > 80
	   PRINT LOCAL " ·sORRY·oNLY·8o·bOARDs·aRE·aVAiBLE!·"
	   PRINT LOCAL " ·eNTER·0·tO·gET·oUT·oF·eDIT·mENU!!·"
	   WAIT 2
	   GOTO EDEN
	ELSE
	   OPEN INPUT 1,"TERMINUS:MKDiALER/MKD.DAT"
	   IF BTE==1
	      READ #1, RV1$
	      READ #1, RV2$
	      READ #1, RV3$
	      READ #1, RV4$
	      READ #1, RV5$
	      READ #1, RV6$
	   ENDIF
	   FOR I = 1 TO BTE
	       READ #1, RV1$
	       READ #1, RV2$
	       READ #1, RV3$
	       READ #1, RV4$
	       READ #1, RV5$
	       READ #1, RV6$
	   NEXT
	   CLOSE #1
	   IF RV1$=="END_OF_FILE"
	      PRINT LOCAL " ·dIZ·bOARD·dOES·nOT·eXISTS!·"
	      WAIT 1
	      GOTO EDEN
	   ENDIF
	   MOVE 5,18
	   PRINT LOCAL RV1$
	   MOVE 6,18
	   PRINT LOCAL RV2$
	   MOVE 7,18
	   PRINT LOCAL RV3$
	   MOVE 5,61
	   PRINT LOCAL RV5$
	   MOVE 6,61
	   PRINT LOCAL RV4$
	   MOVE 8,18
	   PRINT LOCAL RV6$
EDEN3:
	 MOVE 11,2
	 PRINT LOCAL "                                      "
	 MOVE 11,2
	 INPUT "·wHICH·nUMBER·tO·cORRECT·       : ",NTC
	 IF NTC==0
	    GOTO EDEN2
	 ENDIF
         IF NTC==1
	    MOVE 5,18
	    PRINT LOCAL "                    "
	    MOVE 5,18
	    INPUT "",RV11$
	    IF RV11$ > ""
	       RV1$==RV11$
	    ENDIF
         ENDIF
         IF NTC==2
            MOVE 6,18
	    PRINT LOCAL "                    "
	    MOVE 6,18
	    INPUT "",RV21$
            IF RV21$ > ""
               RV2$==RV21$
            ENDIF
         ENDIF
         IF NTC==3
            MOVE 7,18
	    PRINT LOCAL "                    "
	    MOVE 7,18
	    INPUT "",RV31$
            IF RV31$ > ""
               RV3$==RV31$
            ENDIF
         ENDIF
         IF NTC==4
            MOVE 5,61
	    PRINT LOCAL "                    "
	    MOVE 5,61
	    INPUT "",RV51$
            IF RV51$ > ""
               RV5$==RV51$
            ENDIF
         ENDIF
         IF NTC==5
            MOVE 6,61
	    PRINT LOCAL "                    "
	    MOVE 6,61
	    INPUT "",RV41$
            IF RV41$ > ""
               RV4$==RV41$
            ENDIF
         ENDIF
         IF NTC==6
            MOVE 8,18
	    PRINT LOCAL "                                        "
	    MOVE 8,18
	    INPUT "",RV61$
            IF RV61$ > ""
               RV6$==RV61$
            ENDIF
         ENDIF
	 GOTO EDEN3
	ENDIF
EDEN2:
	MOVE 12,2
	INPUT "·wANNA·sAFE·dIZ· [Y/N]          : ",ANS$
	IF ANS$=="N" OR ANS$=="n" OR ANS$==""
	   PRINT LOCAL " ·cORRECTiON·hAS·nOT·bEEN·sAFED...*aBORTED*!·"
	   WAIT 1
	   GOTO MAIN
	ELSE
	   OPEN INPUT 1,"TERMINUS:MKDiALER/MKD.DAT"
	   OPEN OUTPUT 2,"TERMINUS:MKDiALER/MKD.STO"
	   IF BTE==1
	      GOSUB EDEN4
	      READ #1, RVA$
	      READ #1, RVB$
	      READ #1, RVC$
	      READ #1, RVD$
	      READ #1, RVE$
	      READ #1, RVF$
	      GOTO EDEN5
	   ENDIF
	   IF BTE==2
	      READ #1, RVA$
	      READ #1, RVB$
	      READ #1, RVC$
	      READ #1, RVD$
	      READ #1, RVE$
	      READ #1, RVF$
	      WRITE #2, RVA$
	      WRITE #2, RVB$
	      WRITE #2, RVC$
	      WRITE #2, RVD$
	      WRITE #2, RVE$
	      WRITE #2, RVF$
	      GOSUB EDEN4
	      READ #1, RVA$
	      READ #1, RVB$
	      READ #1, RVC$
	      READ #1, RVD$
	      READ #1, RVE$
	      READ #1, RVF$
	      GOTO EDEN5
	   ENDIF
	   FOR I = 1 TO BTE-1
	       READ #1, RVA$
	       READ #1, RVB$
	       READ #1, RVC$
	       READ #1, RVD$
	       READ #1, RVE$
	       READ #1, RVF$
	       WRITE #2, RVA$
	       WRITE #2, RVB$
	       WRITE #2, RVC$
	       WRITE #2, RVD$
	       WRITE #2, RVE$
	       WRITE #2, RVF$
	   NEXT
	   GOSUB EDEN4
	   READ #1, RVA$
	   READ #1, RVB$
	   READ #1, RVC$
	   READ #1, RVD$
	   READ #1, RVE$
	   READ #1, RVF$
EDEN5:
	  READ #1, RV1$
	  IF RV1$=="END_OF_FILE"
	     GOTO EDEN6
	  ENDIF
	  READ #1, RV2$
	  READ #1, RV3$
	  READ #1, RV4$
	  READ #1, RV5$
	  READ #1, RV6$
	  GOSUB EDEN4
	  GOTO EDEN5
	ENDIF
EDEN6:
	CLOSE #1
	CLOSE #2
	OPEN INPUT 1,"TERMINUS:MKDiALER/MKD.STO"
	OPEN OUTPUT 2,"TERMINUS:MKDiALER/MKD.DAT"
EDEN61:
	READ #1, RV1$
	IF RV1$=="END_OF_FILE"
	   GOTO EDEN7
	ENDIF
	READ #1, RV2$
	READ #1, RV3$
	READ #1, RV4$
	READ #1, RV5$
	READ #1, RV6$
	GOSUB EDEN4
	GOTO EDEN61
EDEN7:
	CLOSE #1
	CLOSE #2
	PRINT LOCAL " ·cORRECTiONS·hAS·bEEN·sAFED·cORRECTLY!·"
	WAIT 1
	GOTO MAIN
EDEN4:
	WRITE #2, RV1$
	WRITE #2, RV2$
	WRITE #2, RV3$
	WRITE #2, RV4$
	WRITE #2, RV5$
	WRITE #2, RV6$
	RETURN

VIEWF:
	CLS
	PRINT LOCAL " - - -- - ----- - - -- - -- -- -- - --- --- - --- - -- - -- -- - -- -- -- - -- -"
	PRINT LOCAL "                   vIEw FuLl inFOrmATiONs oN aN enTRy iN liST"
	PRINT LOCAL " - - - -- - --- - - -- - -- -- -- - --- --- - --- - -- - -- -- - -- -- -- - -- -"
	PRINT LOCAL " "
	PRINT LOCAL " 1. bOARD-nAME :                         | 4. pHONe-nUMBA :                     "
	PRINT LOCAL " 2. uSER-nAME  :                         : 5. aT&T oR mCi :                     "
	PRINT LOCAL " 3. pASSwORD   :                         ` - - --- - -- -- - -- - --- --- - -- -"
	PRINT LOCAL " 6. cOMMENT    :                                                                "
	PRINT LOCAl " "
VIEWF2:
	MOVE 11,2
	PRINT LOCAL "                                                              "
	MOVE 11,2
	INPUT " ·wHICH·bOARD·iNFORMATiONS·dO·yA·wANNA·sEE· : ",BTE
	IF BTE==0
	   GOTO MAIN
	ENDIF
	IF BTE==""
	   GOTO MAIN
	ENDIF
	IF BTE > 80
	   PRINT LOCAL " ·sORRY·oNLY·8o·bOARDs·aRE·aVAiBLE!·"
	   PRINT LOCAL " ·eNTER·0·tO·gET·oUT·oF·vIEW·mENU!!·"
	   WAIT 2
	   GOTO VIEWF
	ELSE
	   OPEN INPUT 1,"TERMINUS:MKDiALER/MKD.DAT"
	   IF BTE==1
	      READ #1, RV1$
	      READ #1, RV2$
	      READ #1, RV3$
	      READ #1, RV4$
	      READ #1, RV5$
	      READ #1, RV6$
	   ENDIF
	   FOR I = 1 TO BTE
	       READ #1, RV1$
	       READ #1, RV2$
	       READ #1, RV3$
	       READ #1, RV4$
	       READ #1, RV5$
	       READ #1, RV6$
	   NEXT
	   CLOSE #1
	   IF RV1$=="END_OF_FILE"
	      PRINT LOCAL " ·dIZ·bOARD·dOES·nOT·eXISTS!·"
	      WAIT 1
	      GOTO EDEN
	   ENDIF
	   MOVE 5,18
	   PRINT LOCAL "                        "
	   MOVE 5,18
	   PRINT LOCAL RV1$
	   MOVE 6,18
	   PRINT LOCAL "                        "
	   MOVE 6,18
	   PRINT LOCAL RV2$
	   MOVE 7,18
	   PRINT LOCAL "                        "
	   MOVE 7,18
	   PRINT LOCAL RV3$
	   MOVE 5,61
	   PRINT LOCAL "                   "
	   MOVE 5,61
	   PRINT LOCAL RV5$
	   MOVE 6,61
	   PRINT LOCAL "                   "
	   MOVE 6,61
	   PRINT LOCAL RV4$
	   MOVE 8,18
	   PRINT LOCAL "                                           "
	   MOVE 8,18
	   PRINT LOCAL RV6$
	   GOTO VIEWF2
	ENDIF

DELEN:
	CLS
	PRINT LOCAL " - - -- - ----- - - -- - -- -- -- - --- --- - --- - -- - -- -- - -- -- -- - -- -"
	PRINT LOCAL "                               kILL eNTriE iN liST"
	PRINT LOCAL " - - - -- - --- - - -- - -- -- -- - --- --- - --- - -- - -- -- - -- -- -- - -- -"
	PRINT LOCAL " "
	PRINT LOCAL " 1. bOARD-nAME :                         | 4. pHONe-nUMBA :                     "
	PRINT LOCAL " 2. uSER-nAME  :                         : 5. aT&T oR mCi :                     "
	PRINT LOCAL " 3. pASSwORD   :                         ` - - --- - -- -- - -- - --- --- - -- -"
	PRINT LOCAL " 6. cOMMENT    :                                                                "
	PRINT LOCAl " "
DELEN2:
	MOVE 11,2
	PRINT LOCAL "                                                              "
	MOVE 11,2
	INPUT " ·wHICH·eNTRY·dO·yOU·wANNA·kILL· : ",BTE
	IF BTE==0
	   GOTO MAIN
	ENDIF
	IF BTE==""
	   GOTO MAIN
	ENDIF
	IF BTE > 80
	   PRINT LOCAL " ·sORRY·oNLY·8o·bOARDs·aRE·aVAiBLE!·"
	   PRINT LOCAL " ·eNTER·0·tO·gET·oUT·oF·kILL·mENU!!·"
	   WAIT 2
	   GOTO DELEN
	ELSE
	   OPEN INPUT 1,"TERMINUS:MKDiALER/MKD.DAT"
	   IF BTE==1
	      READ #1, RV1$
	      READ #1, RV2$
	      READ #1, RV3$
	      READ #1, RV4$
	      READ #1, RV5$
	      READ #1, RV6$
	   ENDIF
	   FOR I = 1 TO BTE
	       READ #1, RV1$
	       READ #1, RV2$
	       READ #1, RV3$
	       READ #1, RV4$
	       READ #1, RV5$
	       READ #1, RV6$
	   NEXT
	   CLOSE #1
	   IF RV1$=="END_OF_FILE"
	      PRINT LOCAL "  ·dIZ·bOARD·dOES·nOT·eXISTS!·"
	      WAIT 1
	      GOTO DELEN
	   ENDIF
	   MOVE 5,18
	   PRINT LOCAL "                   "
	   MOVE 5,18
	   PRINT LOCAL RV1$
	   MOVE 6,18
	   PRINT LOCAL "                   "
	   MOVE 6,18
	   PRINT LOCAL RV2$
	   MOVE 7,18
	   PRINT LOCAL "                   "
	   MOVE 7,18
	   PRINT LOCAL RV3$
	   MOVE 5,61
	   PRINT LOCAL "                   "
	   MOVE 5,61
	   PRINT LOCAL RV5$
	   MOVE 6,61
	   PRINT LOCAL "                   "
	   MOVE 6,61
	   PRINT LOCAL RV4$
	   MOVE 8,18
	   PRINT LOCAL "                          "
	   MOVE 8,18
	   PRINT LOCAL RV6$
	ENDIF
	MOVE 12,2
	INPUT " ·kILL·dIZ·eNTRY· [Y/N]          : ",ANS$
	IF ANS$=="N" OR ANS$=="n" OR ANS$==""
	   PRINT LOCAL "  ·eNTRY·hAS·nOT·bEEN·kILLED!...*aBORTED*"
	   WAIT 2
	   GOTO MAIN
	ELSE
	   OPEN INPUT 1,"TERMINUS:MKDiALER/MKD.DAT"
	   OPEN OUTPUT 2,"TERMINUS:MKDiALER/MKD.STO"
	   IF BTE==1
	      READ #1, RVA$
	      READ #1, RVB$
	      READ #1, RVC$
	      READ #1, RVD$
	      READ #1, RVE$
	      READ #1, RVF$
	      GOTO DELEN5
	   ENDIF
	   IF BTE==2
	      READ #1, RV1$
	      READ #1, RV2$
	      READ #1, RV3$
	      READ #1, RV4$
	      READ #1, RV5$
	      READ #1, RV6$
	      GOSUB EDEN4
	      READ #1, RVA$
	      READ #1, RVB$
	      READ #1, RVC$
	      READ #1, RVD$
	      READ #1, RVE$
	      READ #1, RVF$
	      GOTO DELEN5
	   ENDIF
	   FOR I = 1 TO BTE-1
	       READ #1, RVA$
	       READ #1, RVB$
	       READ #1, RVC$
	       READ #1, RVD$
	       READ #1, RVE$
	       READ #1, RVF$
	       WRITE #2, RVA$
	       WRITE #2, RVB$
	       WRITE #2, RVC$
	       WRITE #2, RVD$
	       WRITE #2, RVE$
	       WRITE #2, RVF$
	   NEXT
	   READ #1, RVA$
	   READ #1, RVB$
	   READ #1, RVC$
	   READ #1, RVD$
	   READ #1, RVE$
	   READ #1, RVF$
DELEN5:
	  READ #1, RV1$
	  IF RV1$=="END_OF_FILE"
	     GOTO DELEN6
	  ENDIF
	  READ #1, RV2$
	  READ #1, RV3$
	  READ #1, RV4$
	  READ #1, RV5$
	  READ #1, RV6$
	  GOSUB EDEN4
	  GOTO DELEN5
	ENDIF
DELEN6:
	CLOSE #1
	CLOSE #2
	OPEN INPUT 1,"TERMINUS:MKDiALER/MKD.STO"
	OPEN OUTPUT 2,"TERMINUS:MKDiALER/MKD.DAT"
DELEN61:
	READ #1, RV1$
	IF RV1$=="END_OF_FILE"
	   GOTO DELEN7
	ENDIF
	READ #1, RV2$
	READ #1, RV3$
	READ #1, RV4$
	READ #1, RV5$
	READ #1, RV6$
	GOSUB EDEN4
	GOTO DELEN61
DELEN7:
	CLOSE #1
	CLOSE #2
	PRINT LOCAL "  ·eNTRY·hAS·bEEN·tERMiNATED!·"
	WAIT 1
	GOTO MAIN

CDCP:
	PRINT LOCAL " ·cANT·tRANSFERE·yOUR·cALL...cARRiER·pRESENT·!· "
	GOTO OUT_SCP

CATT:
	IF CTDU==3
	   PRINT LOCAL "  ·cALLiNG· ·oN· ·yOUR· ·oWN· ·pHONEBiLL· ·!·       "
	   RETURN
	ENDIF
	IF CTDU==2
	   PRINT LOCAL "  ·c·A·L·L·i·N·G· ·u·P· ·mCi·                       "
	   SEND DPRE$
	   SEND "0130-00-12,,,,,;^M"
	ELSE
	   PRINT LOCAL "  ·c·A·L·L·i·N·G· ·u·P· ·aT&T·                      "
	   SEND DPRE$
	   SEND "0130-00-11,,,,,;^M"
	ENDIF
	WAIT "OK"
	RELMOVE -1,0
	RETURN

OUT_SCPB:
	IF CTDU==3
	   WAIT 6
	   MOVE 13,0
	   PRINT LOCAL "   ·oK...aLL·iS·dONE·cORRECT...hAVE·A·nICE·cALL·    "
	   GOTO OUT_SCP
	ENDIF
	WAIT 10
	MOVE 14,0
	PRINT LOCAL " ·oK...aLL·iS·dONE·cORRECT...hAVE·A·nICE·fREE-cALL· "

OUT_SCP:
	PRINT LOCAL " ·tO·rEENTER·tHE·dIALER·!·tYPE·:·MKDIALER·aT·aNY·tIME· "
WFR:
	ONTIMEOUT GOTO ARA
	WAIT "MKDIALER"
	GOTO MAIN
ARA:
	IF CARRIER == 1
	   GOTO WFR
	ENDIF
	PRINT LOCAL " "
	PRINT LOCAL " ·tIMEoUT·!·aUTOMATiC·rEACTiVATiON·oF·mK-dIALER-sCRiPT·!· "
	PRINT LOCAL "                    ·iN·5·sECONDs·!·                      "
	WAIT 5
	PRINT LOCAL " ·hANGiNG·uP·tHE·mODEM..."
	SEND "ATH0^M"
	WAIT 2
	GOTO MAIN

OUT_SCP2:
	END