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
1095 [153]"EMAIL64-EMAIL-ACCOUNT KONFIGURIEREN
1100 DIMDN(9):DIMNA$(9)
1110 PRINT:FORI=8TO30
1120 OPEN15,I,15:CLOSE15
1130 IFST<>0THEN1320
1140 OPEN15,I,15,"I":CLOSE15
1150 OPEN2,I,0,"$EM64EMAC*
1160 [129]J[178]0[164]5:[161]#2,A$:[130]:[137]1280
1170 [139]K[178]10[167]1310
1180 [129]J[178]0[164]3:[161]#2,A$:[130]
1190 [139]ST[179][177]0[167]1310
1200 [161]#2,A$:[139]ST[179][177]0[167]1310
1210 [139]A$[179][177][199](34)[167]1200
1220 [161]#2,A$:[139]A$[179][177]"E"[167]1310
1230 [153]K;:[137]1250
1240 [161]#2,A$:[139]A$[178][199](34)[167]1270
1250 [153]A$;:NA$(K)[178]NA$(K)[170]A$
1260 [137]1240
1270 [153]I:DN(K)[178]I:K[178]K[170]1
1280 [161]#2,A$:[139]ST[179][177]0[167]1310
1290 [139]A$[179][177]""[167]1280
1300 [137]1170
1310 [160]2
1320 [130]:ND[178]K
1330 [139]K[178]0[167][153]"DISK MIT DATEI 'EM64EMAC...' EINLEGEN":[133]A$:[137]1110
1340 [153]"TYPE 0 -"K[171]1"
1350 GETA$:A=ASC(A$+CHR$(0)):IF(A<48)OR(A>47+K)THEN1350
1360 AN=A-48
1370 LOADNA$(AN),DN(AN),1
1380 A$="":FORI=52996TO52998:A$=A$+CHR$(PEEK(I)):NEXT
1390 PRINTA$;
1400 PRINT"  V";STR$(PEEK(52999))
1410 INPUT"RETURN";A$
1420 PRINT"
1430 [153]"$CF08-CF2F POP3 SERVER NAME
1440 PRINT"NUR STANDARD (KEIN CBM) PCASCII ERLAUBT
1450 A$[178]"":B$[178]"":C$[178]"":D$[178]""
1460 A[178][194](53000):[143] LENGTH OF POP3 SERVER NAME
1470 [143]:PRINT"A"A
1480 I[178]53001:A$[178]""
1490 B[178][194](I):[143] LENGTH OF ACTUAL NAME PART
1500 [143]:PRINT"B"B
1510 [139]B[178]0[167]1620:[143] END
1520 [139]I[177]53001[167]A$[178]A$[170]".":[143] AT BEGINNING NO POINT
1530 [129]J[178]I[170]1[164]I[170]B
1540 [139]J[177]53000[170]A[167]1620:[143] END IF LENGTH ERROR
1550 D[178][194](J):[143] CHARACTER OF NAME
1560 [143]:PRINT"D"D,CHR$(D)
1570 [139](D[177]64)[175](D[179]91)[167]D[178]D[170]128
1580 [139](D[177]96)[175](D[179]123)[167]D[178]D[171]32
1590 A$[178]A$[170][199](D):[130]J
1600 I[178]I[170]B[170]1
1610 [137]1490
1620 [153]"POP3-NAME  ";A$
1630 [133]"";A$
1640 [143]--------------------------------
1650 A[178][195](A$):[153]"LAENGE"A:B$[178]"":I[178]1
1660 [153]"A"A
1670 [139]I[177]A[167]1810:[143] END OF NAME
1680 B[178][198]([202](A$,I,1))
1690 [153][202](A$,I,1);B
1700 I[178]I[170]1
1710 [139]B[178]46[167]1790:[143] END OF ONE NAME PART
1720 [139]B[179]32[167]1770
1730 [139]B[179]65[167]1780
1740 [139]B[179]91[167]B[178]B[170]32:[137]1780
1750 [139]B[179]193[167]1770
1760 [139]B[179]219[167]B[178]B[171]128:[137]1780
1770 [153]"ILLEGALES ZEICHEN":[137]1420
1780 B$[178]B$[170][199](B):[137]1670
1790 C$[178]C$[170][199]([195](B$))[170]B$:B$[178]""
1800 [137]1670
1810 C$[178]C$[170][199]([195](B$))[170]B$
1820 [143]--------------------------------
1830 [153]:
1840 A[178][195](C$):[143] LENGTH OF NAME
1850 [139]A[177]39[167][153]"ZU LANG":[137]1420
1860 [143]:PRINT"A"A
1870 I[178]1:A$[178]""
1880 [139]I[177][178]A[167]2000:[143] END
1890 B[178][198]([202](C$,I,1)):[143] LENGTH OF ACTUAL NAME PART
1900 [143]:PRINT"B"B
1910 [139]I[177]1[167]A$[178]A$[170]".":[143] AT BEGINNING NO POINT
1920 [129]J[178]I[170]1[164]I[170]B
1930 D[178][198]([202](C$,J,1))
1940 [143]:PRINT"D"D,CHR$(D)
1950 [139](D[177]64)[175](D[179]91)[167]D[178]D[170]128
1960 [139](D[177]96)[175](D[179]123)[167]D[178]D[171]32
1970 A$[178]A$[170][199](D):[130]J
1980 I[178]I[170]B[170]1
1990 [137]1880
2000 [153]"POP3-NAME  ";A$
2010 [153]"CORRECT (J/N)
2020 GETA$:IFA$="N"THEN1420
2030 IFA$<>"J"THEN2020
2040 FORI=53000TO53033:POKEI,0:NEXT
2050 POKE53000,A+1:REM TOTAL LENGTH
2060 FORI=1TOA
2070 POKE53000+I,ASC(MID$(C$,I,1))
2080 NEXT
2090 REM================================
2100 PRINT"
2110 [153]"$CF30-CF5F SMTP SERVER NAME
2120 PRINT"NUR STANDARD (KEIN CBM) PCASCII ERLAUBT
2130 A$[178]"":B$[178]"":C$[178]"":D$[178]""
2140 A[178][194](53040):[143] LENGTH OF SMTP SERVER NAME
2150 [143]:PRINT"A"A
2160 I[178]53041:A$[178]""
2170 B[178][194](I):[143] LENGTH OF ACTUAL NAME PART
2180 [143]:PRINT"B"B
2190 [139]B[178]0[167]2300:[143] END
2200 [139]I[177]53041[167]A$[178]A$[170]".":[143] AT BEGINNING NO POINT
2210 [129]J[178]I[170]1[164]I[170]B
2220 [139]J[177]53040[170]A[167]2300:[143] END IF LENGTH ERROR
2230 D[178][194](J):[143] CHARACTER OF NAME
2240 [143]:PRINT"D"D,CHR$(D)
2250 [139](D[177]64)[175](D[179]91)[167]D[178]D[170]128
2260 [139](D[177]96)[175](D[179]123)[167]D[178]D[171]32
2270 A$[178]A$[170][199](D):[130]J
2280 I[178]I[170]B[170]1
2290 [137]2170
2300 [153]"SMTP-NAME  ";A$
2310 [133]"";A$
2320 [143]--------------------------------
2330 A[178][195](A$):[153]"LAENGE"A:B$[178]"":I[178]1
2340 [153]"A"A
2350 [139]I[177]A[167]2490:[143] END OF NAME
2360 B[178][198]([202](A$,I,1))
2370 [153][202](A$,I,1);B
2380 I[178]I[170]1
2390 [139]B[178]46[167]2470:[143] END OF ONE NAME PART
2400 [139]B[179]32[167]2450
2410 [139]B[179]65[167]2460
2420 [139]B[179]91[167]B[178]B[170]32:[137]2460
2430 [139]B[179]193[167]2450
2440 [139]B[179]219[167]B[178]B[171]128:[137]2460
2450 [153]"ILLEGALES ZEICHEN":[137]2100
2460 B$[178]B$[170][199](B):[137]2350
2470 C$[178]C$[170][199]([195](B$))[170]B$:B$[178]""
2480 [137]2350
2490 C$[178]C$[170][199]([195](B$))[170]B$
2500 [143]--------------------------------
2510 [153]:
2520 A[178][195](C$):[143] LENGTH OF NAME
2530 [139]A[177]47[167][153]"ZU LANG":[137]2100
2540 [143]:PRINT"A"A
2550 I[178]1:A$[178]""
2560 [139]I[177][178]A[167]2680:[143] END
2570 B[178][198]([202](C$,I,1)):[143] LENGTH OF ACTUAL NAME PART
2580 [143]:PRINT"B"B
2590 [139]I[177]1[167]A$[178]A$[170]".":[143] AT BEGINNING NO POINT
2600 [129]J[178]I[170]1[164]I[170]B
2610 D[178][198]([202](C$,J,1))
2620 [143]:PRINT"D"D,CHR$(D)
2630 [139](D[177]64)[175](D[179]91)[167]D[178]D[170]128
2640 [139](D[177]96)[175](D[179]123)[167]D[178]D[171]32
2650 A$[178]A$[170][199](D):[130]J
2660 I[178]I[170]B[170]1
2670 [137]2560
2680 [153]"SMTP-NAME  ";A$
2690 [153]"CORRECT (J/N)
2700 GETA$:IFA$="N"THEN2100
2710 IFA$<>"J"THEN2700
2720 FORI=53040TO53087:POKEI,0:NEXT
2730 POKE53040,A+1:REM TOTAL LENGTH
2740 FORI=1TOA
2750 POKE53040+I,ASC(MID$(C$,I,1))
2760 NEXT
2770 REM================================
2780 PRINT"
2790 [153]"$CF60-CF8F BENUTZERNAME
2800 PRINT"NUR STANDARD (KEIN CBM) PCASCII ERLAUBT
2810 A[178][194](53088):[143] LENGTH OF USERNAME
2820 A$[178]"":[129]I[178]53089[164]53089[170]A:B[178][194](I)
2830 [139](B[177]64)[175](B[179]91)[167]B[178]B[170]128
2840 [139](B[177]96)[175](B[179]123)[167]B[178]B[171]32
2850 A$[178]A$[170][199](B):[130]
2860 [153]"BENUTZERNAME  ";A$
2870 [133]"";A$
2880 A[178][195](A$):[153]"LENGTH"A:B$[178]""
2890 [129]I[178]1[164]A:B[178][198]([202](A$,I,1))
2900 [153][202](A$,I,1);B;
2910 [139]B[179]32[167]2960
2920 [139]B[179]65[167]2970
2930 [139]B[179]91[167]B[178]B[170]32:[137]2970
2940 [139]B[179]193[167]2960
2950 [139]B[179]219[167]B[178]B[171]128:[137]2970
2960 [153]"ILLEGALES ZEICHEN":I[178]99:[137]2980
2970 B$[178]B$[170][199](B):[153]"->"[199](B);B;
2980 [153]:[130]
2990 [139]I[177]90[167]2780
3000 PA$[178]B$:LP[178][195](PA$)
3010 [139]LP[177]47[167][153]"ZU LANG":[137]2780
3020 A$[178]"":[129]I[178]1[164]LP
3030 B[178][198]([202](PA$,I,1))
3040 [139](B[177]64)[175](B[179]91)[167]B[178]B[170]128
3050 [139](B[177]96)[175](B[179]123)[167]B[178]B[171]32
3060 A$[178]A$[170][199](B):[130]
3070 [153]"BENUTZERNAME  ";A$
3080 [153]"CORRECT (J/N)
3090 GETA$:IFA$="N"THEN2780
3100 IFA$<>"J"THEN3090
3110 FORI=53088TO53135:POKEI,0:NEXT
3120 POKE53088,LP:REM LENGTH USERNAME
3130 FORI=1TOLP:POKE53088+I,ASC(MID$(PA$,I,1)):NEXT
3140 REM================================
3150 PRINT"
3160 [153]"$CF90-CFBF PASSWORT
3170 PRINT"NUR STANDARD (KEIN CBM) PCASCII ERLAUBT
3180 [153]"TIPP "[199](34);[199](34)" FUER KEIN PASSWORT
3190 PRINT"  (Z.B. T-ONLINE)
3200 A[178][194](53136):[143] LENGTH OF PASSWORD
3210 A$[178]"":[139]A[178]0[167]3260
3220 [129]I[178]53137[164]53137[170]A:B[178][194](I)
3230 [139](B[177]64)[175](B[179]91)[167]B[178]B[170]128
3240 [139](B[177]96)[175](B[179]123)[167]B[178]B[171]32
3250 A$[178]A$[170][199](B):[130]
3260 [153]"PASSWORT   ";A$
3270 [133]"";A$
3280 A[178][195](A$):[153]"LENGTH"A:B$[178]""
3290 [139]A[178]0[167]LP[178]0:[137]3480:[143] NO PASSWORD
3300 [129]I[178]1[164]A:B[178][198]([202](A$,I,1))
3310 [153][202](A$,I,1);B;
3320 [139]B[179]32[167]3370
3330 [139]B[179]65[167]3380
3340 [139]B[179]91[167]B[178]B[170]32:[137]3380
3350 [139]B[179]193[167]3370
3360 [139]B[179]219[167]B[178]B[171]128:[137]3380
3370 [153]"ILLEGAL CHARACTER":I[178]99:[137]3390
3380 B$[178]B$[170][199](B):[153]"->"[199](B);B;
3390 [153]:[130]
3400 [139]I[177]90[167]3150
3410 PA$[178]B$:LP[178][195](PA$)
3420 [139]LP[177]47[167][153]"ZU LANG":[137]3150
3430 A$[178]"":[129]I[178]1[164]LP
3440 B[178][198]([202](PA$,I,1))
3450 [139](B[177]64)[175](B[179]91)[167]B[178]B[170]128
3460 [139](B[177]96)[175](B[179]123)[167]B[178]B[171]32
3470 A$[178]A$[170][199](B):[130]
3480 [153]"PASSWORT   ";A$
3490 [153]"CORRECT (J/N)
3500 GETA$:IFA$="N"THEN3150
3510 IFA$<>"J"THEN3500
3520 FORI=53136TO53183:POKEI,0:NEXT
3530 POKE53136,LP:REM LENGTH PASSWORD
3540 IFLP=0THEN3560
3550 FORI=1TOLP:POKE53136+I,ASC(MID$(PA$,I,1)):NEXT
3560 PRINT"NEUE KONFIGURATION SPEICHERN (J/N)?"
3570 GETA$:IFA$<>"J"ANDA$<>"N"THEN3570
3580 IFA$="N"THENEND
3590 PRINT"NEUER DATEINAME F.CONFIG EMAIL-ACCOUNT
3600 [153]"  "NA$(AN)
3610 [133]"ON";NA$:NA$[178][200](NA$[170]"                ",16)
3620 [139][200](NA$,8)[179][177]"EM64EMAC"[167][153]"MUSS MIT 'EM64EMAC' BEGINNEN":[137]3590
3630 [153]"DEVICE NUMMER"
3640 [153]" "DN(AN)
3650 [133]"ON";DN
3660 [159]2,DN,2,NA$[170]",P,R":[160]2
3670 [159]15,DN,15:[132]15,A,B$,C,D:[160]15
3680 [139]A[178]62[167]3770:[143] FILE NOT FOUND
3690 [153]"FEHLER
3700 PRINTA;B$;C;D
3710 IFA<>0THEN3590
3720 PRINT"CONFIG DATEI MIT GLEICHEM NAMEN
3730 [153]"BESTEHT BEREITS. UEBERSCHREIBEN? (J/N)
3740 GETA$:IFA$="N"THEN3590
3750 IFA$<>"J"THEN3740
3760 OPEN15,DN,15,"S:"+NA$:CLOSE15
3770 FORI=1TOLEN(NA$)
3780 POKE678+I,ASC(MID$(NA$,I,1))
3790 NEXT
3800 POKE780,0
3810 POKE781,DN:REM DEVICE NUMBER
3820 POKE782,0:REM SECADDR
3830 SYS65466
3840 POKE780,16
3850 POKE781,167
3860 POKE782,2
3870 SYS65469
3880 POKE193,4
3890 POKE194,207
3900 POKE780,193
3910 POKE781,0
3920 POKE782,208
3930 SYS65496
3940 OPEN15,DN,15:INPUT#15,A,B$,C,D
3950 PRINTA;B$;C;D
3960 CLOSE15
3970 IFA>0THEN3560