1000 REM $CF08-$CF2F POP3 SERVER NAME
1010 REM $CF30-$CF5F SMTP SERVER NAME
1020 REM $CF60-$CF8F USERNAME
1030 REM $CF90-$CFBF PASSWORD
1040 REM $CF
1050 REM $CF
1060 REM $CF
1070 REM $CF
1080 IFK>0THEN1380
1090 PRINT"[147]CONFIGURE EMAIL64-EMAIL-ACCOUNT
1100 [134]DN(9):[134]NA$(9)
1110 [153]:[129]I[178]8[164]30
1120 [159]15,I,15:[160]15
1130 [139]ST[179][177]0[167]1320
1140 [159]15,I,15,"I":[160]15
1150 [159]2,I,0,"$EM64EMAC*
1160 FORJ=0TO5:GET#2,A$:NEXT:GOTO1280
1170 IFK=10THEN1310
1180 FORJ=0TO3:GET#2,A$:NEXT
1190 IFST<>0THEN1310
1200 GET#2,A$:IFST<>0THEN1310
1210 IFA$<>CHR$(34)THEN1200
1220 GET#2,A$:IFA$<>"E"THEN1310
1230 PRINTK;:GOTO1250
1240 GET#2,A$:IFA$=CHR$(34)THEN1270
1250 PRINTA$;:NA$(K)=NA$(K)+A$
1260 GOTO1240
1270 PRINTI:DN(K)=I:K=K+1
1280 GET#2,A$:IFST<>0THEN1310
1290 IFA$<>""THEN1280
1300 GOTO1170
1310 CLOSE2
1320 NEXT:ND=K
1330 IFK=0THENPRINT"INSERT DISK WITH FILE 'EM64EMAC...":INPUTA$:GOTO1110
1340 PRINT"TYPE 0 -"K-1"
1350 [161]A$:A[178][198](A$[170][199](0)):[139](A[179]48)[176](A[177]47[170]K)[167]1350
1360 AN[178]A[171]48
1370 [147]NA$(AN),DN(AN),1
1380 A$[178]"":[129]I[178]52996[164]52998:A$[178]A$[170][199]([194](I)):[130]
1390 [153]A$;
1400 [153]"  V";[196]([194](52999))
1410 [133]"RETURN";A$
1420 [153]"
1430 PRINT"$CF08-CF2F POP3 SERVER NAME
1440 [153]"ONLY STANDART (NO CBM) PC-ASCII ALLOWED
1450 A$="":B$="":C$="":D$=""
1460 A=PEEK(53000):REM LENGTH OF POP3 SERVER NAME
1470 REM:PRINT"A"A
1480 I=53001:A$=""
1490 B=PEEK(I):REM LENGTH OF ACTUAL NAME PART
1500 REM:PRINT"B"B
1510 IFB=0THEN1620:REM END
1520 IFI>53001THENA$=A$+".":REM AT BEGINNING NO POINT
1530 FORJ=I+1TOI+B
1540 IFJ>53000+ATHEN1620:REM END IF LENGTH ERROR
1550 D=PEEK(J):REM CHARACTER OF NAME
1560 REM:PRINT"D"D,CHR$(D)
1570 IF(D>64)AND(D<91)THEND=D+128
1580 IF(D>96)AND(D<123)THEND=D-32
1590 A$=A$+CHR$(D):NEXTJ
1600 I=I+B+1
1610 GOTO1490
1620 PRINT"POP3-NAME  ";A$
1630 INPUT"";A$
1640 REM--------------------------------
1650 A=LEN(A$):PRINT"LENGTH"A:B$="":I=1
1660 PRINT"A"A
1670 IFI>ATHEN1810:REM END OF NAME
1680 B=ASC(MID$(A$,I,1))
1690 PRINTMID$(A$,I,1);B
1700 I=I+1
1710 IFB=46THEN1790:REM END OF ONE NAME PART
1720 IFB<32THEN1770
1730 IFB<65THEN1780
1740 IFB<91THENB=B+32:GOTO1780
1750 IFB<193THEN1770
1760 IFB<219THENB=B-128:GOTO1780
1770 PRINT"ILLEGAL CHARACTER":GOTO1420
1780 B$=B$+CHR$(B):GOTO1670
1790 C$=C$+CHR$(LEN(B$))+B$:B$=""
1800 GOTO1670
1810 C$=C$+CHR$(LEN(B$))+B$
1820 REM--------------------------------
1830 PRINT:
1840 A=LEN(C$):REM LENGTH OF NAME
1850 IFA>39THENPRINT"TOO LONG":GOTO1420
1860 REM:PRINT"A"A
1870 I=1:A$=""
1880 IFI>=ATHEN2000:REM END
1890 B=ASC(MID$(C$,I,1)):REM LENGTH OF ACTUAL NAME PART
1900 REM:PRINT"B"B
1910 IFI>1THENA$=A$+".":REM AT BEGINNING NO POINT
1920 FORJ=I+1TOI+B
1930 D=ASC(MID$(C$,J,1))
1940 REM:PRINT"D"D,CHR$(D)
1950 IF(D>64)AND(D<91)THEND=D+128
1960 IF(D>96)AND(D<123)THEND=D-32
1970 A$=A$+CHR$(D):NEXTJ
1980 I=I+B+1
1990 GOTO1880
2000 PRINT"POP3-NAME  ";A$
2010 PRINT"CORRECT (Y/N)
2020 [161]A$:[139]A$[178]"N"[167]1420
2030 [139]A$[179][177]"Y"[167]2020
2040 [129]I[178]53000[164]53033:[151]I,0:[130]
2050 [151]53000,A[170]1:[143] TOTAL LENGTH
2060 [129]I[178]1[164]A
2070 [151]53000[170]I,[198]([202](C$,I,1))
2080 [130]
2090 [143]================================
2100 [153]"
2110 PRINT"$CF30-CF5F SMTP SERVER NAME
2120 [153]"ONLY STANDART (NO CBM) PC-ASCII ALLOWED
2130 A$="":B$="":C$="":D$=""
2140 A=PEEK(53040):REM LENGTH OF SMTP SERVER NAME
2150 REM:PRINT"A"A
2160 I=53041:A$=""
2170 B=PEEK(I):REM LENGTH OF ACTUAL NAME PART
2180 REM:PRINT"B"B
2190 IFB=0THEN2300:REM END
2200 IFI>53041THENA$=A$+".":REM AT BEGINNING NO POINT
2210 FORJ=I+1TOI+B
2220 IFJ>53040+ATHEN2300:REM END IF LENGTH ERROR
2230 D=PEEK(J):REM CHARACTER OF NAME
2240 REM:PRINT"D"D,CHR$(D)
2250 IF(D>64)AND(D<91)THEND=D+128
2260 IF(D>96)AND(D<123)THEND=D-32
2270 A$=A$+CHR$(D):NEXTJ
2280 I=I+B+1
2290 GOTO2170
2300 PRINT"SMTP-NAME  ";A$
2310 INPUT"";A$
2320 REM--------------------------------
2330 A=LEN(A$):PRINT"LENGTH"A:B$="":I=1
2340 PRINT"A"A
2350 IFI>ATHEN2490:REM END OF NAME
2360 B=ASC(MID$(A$,I,1))
2370 PRINTMID$(A$,I,1);B
2380 I=I+1
2390 IFB=46THEN2470:REM END OF ONE NAME PART
2400 IFB<32THEN2450
2410 IFB<65THEN2460
2420 IFB<91THENB=B+32:GOTO2460
2430 IFB<193THEN2450
2440 IFB<219THENB=B-128:GOTO2460
2450 PRINT"ILLEGAL CHARACTER":GOTO2100
2460 B$=B$+CHR$(B):GOTO2350
2470 C$=C$+CHR$(LEN(B$))+B$:B$=""
2480 GOTO2350
2490 C$=C$+CHR$(LEN(B$))+B$
2500 REM--------------------------------
2510 PRINT:
2520 A=LEN(C$):REM LENGTH OF NAME
2530 IFA>47THENPRINT"TOO LONG":GOTO2100
2540 REM:PRINT"A"A
2550 I=1:A$=""
2560 IFI>=ATHEN2680:REM END
2570 B=ASC(MID$(C$,I,1)):REM LENGTH OF ACTUAL NAME PART
2580 REM:PRINT"B"B
2590 IFI>1THENA$=A$+".":REM AT BEGINNING NO POINT
2600 FORJ=I+1TOI+B
2610 D=ASC(MID$(C$,J,1))
2620 REM:PRINT"D"D,CHR$(D)
2630 IF(D>64)AND(D<91)THEND=D+128
2640 IF(D>96)AND(D<123)THEND=D-32
2650 A$=A$+CHR$(D):NEXTJ
2660 I=I+B+1
2670 GOTO2560
2680 PRINT"SMTP-NAME  ";A$
2690 PRINT"CORRECT (Y/N)
2700 [161]A$:[139]A$[178]"N"[167]2100
2710 [139]A$[179][177]"Y"[167]2700
2720 [129]I[178]53040[164]53087:[151]I,0:[130]
2730 [151]53040,A[170]1:[143] TOTAL LENGTH
2740 [129]I[178]1[164]A
2750 [151]53040[170]I,[198]([202](C$,I,1))
2760 [130]
2770 [143]================================
2780 [153]"
2790 PRINT"$CF60-CF8F USERNAME
2800 [153]"ONLY STANDART (NO CBM) PC-ASCII ALLOWED
2810 A=PEEK(53088):REM LENGTH OF USERNAME
2820 A$="":FORI=53089TO53089+A:B=PEEK(I)
2830 IF(B>64)AND(B<91)THENB=B+128
2840 IF(B>96)AND(B<123)THENB=B-32
2850 A$=A$+CHR$(B):NEXT
2860 PRINT"USERNAME   ";A$
2870 INPUT"";A$
2880 A=LEN(A$):PRINT"LENGTH"A:B$=""
2890 FORI=1TOA:B=ASC(MID$(A$,I,1))
2900 PRINTMID$(A$,I,1);B;
2910 IFB<32THEN2960
2920 IFB<65THEN2970
2930 IFB<91THENB=B+32:GOTO2970
2940 IFB<193THEN2960
2950 IFB<219THENB=B-128:GOTO2970
2960 PRINT"ILLEGAL CHARACTER":I=99:GOTO2980
2970 B$=B$+CHR$(B):PRINT"->"CHR$(B);B;
2980 PRINT:NEXT
2990 IFI>90THEN2780
3000 PA$=B$:LP=LEN(PA$)
3010 IFLP>47THENPRINT"TOO LONG":GOTO2780
3020 A$="":FORI=1TOLP
3030 B=ASC(MID$(PA$,I,1))
3040 IF(B>64)AND(B<91)THENB=B+128
3050 IF(B>96)AND(B<123)THENB=B-32
3060 A$=A$+CHR$(B):NEXT
3070 PRINT"USERNAME   ";A$
3080 PRINT"CORRECT (Y/N)
3090 [161]A$:[139]A$[178]"N"[167]2780
3100 [139]A$[179][177]"Y"[167]3090
3110 [129]I[178]53088[164]53135:[151]I,0:[130]
3120 [151]53088,LP:[143] LENGTH USERNAME
3130 [129]I[178]1[164]LP:[151]53088[170]I,[198]([202](PA$,I,1)):[130]
3140 [143]================================
3150 [153]"
3160 PRINT"$CF90-CFBF PASSWORD
3170 [153]"ONLY STANDART (NO CBM) PC-ASCII ALLOWED
3180 PRINT"TYPE "CHR$(34);CHR$(34)" FOR NO PASSWORD
3190 [153]"  (F.E. GERMAN T-ONLINE)
3200 A=PEEK(53136):REM LENGTH OF PASSWORD
3210 A$="":IFA=0THEN3260
3220 FORI=53137TO53137+A:B=PEEK(I)
3230 IF(B>64)AND(B<91)THENB=B+128
3240 IF(B>96)AND(B<123)THENB=B-32
3250 A$=A$+CHR$(B):NEXT
3260 PRINT"PASSWORD   ";A$
3270 INPUT"";A$
3280 A=LEN(A$):PRINT"LENGTH"A:B$=""
3290 IFA=0THENLP=0:GOTO3480:REM NO PASSWORD
3300 FORI=1TOA:B=ASC(MID$(A$,I,1))
3310 PRINTMID$(A$,I,1);B;
3320 IFB<32THEN3370
3330 IFB<65THEN3380
3340 IFB<91THENB=B+32:GOTO3380
3350 IFB<193THEN3370
3360 IFB<219THENB=B-128:GOTO3380
3370 PRINT"ILLEGAL CHARACTER":I=99:GOTO3390
3380 B$=B$+CHR$(B):PRINT"->"CHR$(B);B;
3390 PRINT:NEXT
3400 IFI>90THEN3150
3410 PA$=B$:LP=LEN(PA$)
3420 IFLP>47THENPRINT"TOO LONG":GOTO3150
3430 A$="":FORI=1TOLP
3440 B=ASC(MID$(PA$,I,1))
3450 IF(B>64)AND(B<91)THENB=B+128
3460 IF(B>96)AND(B<123)THENB=B-32
3470 A$=A$+CHR$(B):NEXT
3480 PRINT"PASSWORD   ";A$
3490 PRINT"CORRECT (Y/N)
3500 [161]A$:[139]A$[178]"N"[167]3150
3510 [139]A$[179][177]"Y"[167]3500
3520 [129]I[178]53136[164]53183:[151]I,0:[130]
3530 [151]53136,LP:[143] LENGTH PASSWORD
3540 [139]LP[178]0[167]3560
3550 [129]I[178]1[164]LP:[151]53136[170]I,[198]([202](PA$,I,1)):[130]
3560 [153]"SAVE NEW CONFIG (Y/N)?"
3570 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]3570
3580 [139]A$[178]"N"[167][128]
3590 [153]"NEW FILENAME F.CONFIG EMAIL-ACCOUNT
3600 PRINT"  "NA$(AN)
3610 INPUT"[145]";NA$:NA$=LEFT$(NA$+"                ",16)
3620 IFLEFT$(NA$,8)<>"EM64EMAC"THENPRINT"MUST BEGIN WITH 'EM64EMAC'":GOTO3590
3630 PRINT"DEVICE NUMBER"
3640 PRINT" "DN(AN)
3650 INPUT"[145]";DN
3660 OPEN2,DN,2,NA$+",P,R":CLOSE2
3670 OPEN15,DN,15:INPUT#15,A,B$,C,D:CLOSE15
3680 IFA=62THEN3770:REM FILE NOT FOUND
3690 PRINT"ERROR
3700 [153]A;B$;C;D
3710 [139]A[179][177]0[167]3590
3720 [153]"CONFIG FILE WITH SAME NAME ALLREADY
3730 PRINT"EXISTS. OVERWRITE? (Y/N)
3740 [161]A$:[139]A$[178]"N"[167]3590
3750 [139]A$[179][177]"Y"[167]3740
3760 [159]15,DN,15,"S:"[170]NA$:[160]15
3770 [129]I[178]1[164][195](NA$)
3780 [151]678[170]I,[198]([202](NA$,I,1))
3790 [130]
3800 [151]780,0
3810 [151]781,DN:[143] DEVICE NUMBER
3820 [151]782,0:[143] SECADDR
3830 [158]65466
3840 [151]780,16
3850 [151]781,167
3860 [151]782,2
3870 [158]65469
3880 [151]193,4
3890 [151]194,207
3900 [151]780,193
3910 [151]781,0
3920 [151]782,208
3930 [158]65496
3940 [159]15,DN,15:[132]15,A,B$,C,D
3950 [153]A;B$;C;D
3960 [160]15
3970 [139]A[177]0[167]3560