home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2001-03_2001_CSW_Side_A.d64
/
config-emacd0423
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
7KB
|
300 lines
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