home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2001-03_2001_CSW_Side_A.d64 / config-emacd0423 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2004-01-01  |  6.9 KB  |  300 lines
  1. 1000 rem $cf08-$cf2f pop3 server name
  2. 1010 rem $cf30-$cf5f smtp server name
  3. 1020 rem $cf60-$cf8f username
  4. 1030 rem $cf90-$cfbf password
  5. 1040 rem $cf
  6. 1050 rem $cf
  7. 1060 rem $cf
  8. 1070 rem $cf
  9. 1080 ifk>0then1380
  10. 1090 print"[147]configure email64-email-account
  11. 1095 [153]"email64-email-account konfigurieren
  12. 1100 dimdn(9):dimna$(9)
  13. 1110 print:fori=8to30
  14. 1120 open15,i,15:close15
  15. 1130 ifst<>0then1320
  16. 1140 open15,i,15,"i":close15
  17. 1150 open2,i,0,"$em64emac*
  18. 1160 [129]j[178]0[164]5:[161]#2,a$:[130]:[137]1280
  19. 1170 [139]k[178]10[167]1310
  20. 1180 [129]j[178]0[164]3:[161]#2,a$:[130]
  21. 1190 [139]st[179][177]0[167]1310
  22. 1200 [161]#2,a$:[139]st[179][177]0[167]1310
  23. 1210 [139]a$[179][177][199](34)[167]1200
  24. 1220 [161]#2,a$:[139]a$[179][177]"e"[167]1310
  25. 1230 [153]k;:[137]1250
  26. 1240 [161]#2,a$:[139]a$[178][199](34)[167]1270
  27. 1250 [153]a$;:na$(k)[178]na$(k)[170]a$
  28. 1260 [137]1240
  29. 1270 [153]i:dn(k)[178]i:k[178]k[170]1
  30. 1280 [161]#2,a$:[139]st[179][177]0[167]1310
  31. 1290 [139]a$[179][177]""[167]1280
  32. 1300 [137]1170
  33. 1310 [160]2
  34. 1320 [130]:nd[178]k
  35. 1330 [139]k[178]0[167][153]"disk mit datei 'em64emac...' einlegen":[133]a$:[137]1110
  36. 1340 [153]"type 0 -"k[171]1"
  37. 1350 geta$:a=asc(a$+chr$(0)):if(a<48)or(a>47+k)then1350
  38. 1360 an=a-48
  39. 1370 loadna$(an),dn(an),1
  40. 1380 a$="":fori=52996to52998:a$=a$+chr$(peek(i)):next
  41. 1390 printa$;
  42. 1400 print"  v";str$(peek(52999))
  43. 1410 input"return";a$
  44. 1420 print"
  45. 1430 [153]"$cf08-cf2f pop3 server name
  46. 1440 print"nur standard (kein cbm) pcascii erlaubt
  47. 1450 a$[178]"":b$[178]"":c$[178]"":d$[178]""
  48. 1460 a[178][194](53000):[143] length of pop3 server name
  49. 1470 [143]:print"a"a
  50. 1480 i[178]53001:a$[178]""
  51. 1490 b[178][194](i):[143] length of actual name part
  52. 1500 [143]:print"b"b
  53. 1510 [139]b[178]0[167]1620:[143] end
  54. 1520 [139]i[177]53001[167]a$[178]a$[170]".":[143] at beginning no point
  55. 1530 [129]j[178]i[170]1[164]i[170]b
  56. 1540 [139]j[177]53000[170]a[167]1620:[143] end if length error
  57. 1550 d[178][194](j):[143] character of name
  58. 1560 [143]:print"d"d,chr$(d)
  59. 1570 [139](d[177]64)[175](d[179]91)[167]d[178]d[170]128
  60. 1580 [139](d[177]96)[175](d[179]123)[167]d[178]d[171]32
  61. 1590 a$[178]a$[170][199](d):[130]j
  62. 1600 i[178]i[170]b[170]1
  63. 1610 [137]1490
  64. 1620 [153]"pop3-name  ";a$
  65. 1630 [133]"";a$
  66. 1640 [143]--------------------------------
  67. 1650 a[178][195](a$):[153]"laenge"a:b$[178]"":i[178]1
  68. 1660 [153]"a"a
  69. 1670 [139]i[177]a[167]1810:[143] end of name
  70. 1680 b[178][198]([202](a$,i,1))
  71. 1690 [153][202](a$,i,1);b
  72. 1700 i[178]i[170]1
  73. 1710 [139]b[178]46[167]1790:[143] end of one name part
  74. 1720 [139]b[179]32[167]1770
  75. 1730 [139]b[179]65[167]1780
  76. 1740 [139]b[179]91[167]b[178]b[170]32:[137]1780
  77. 1750 [139]b[179]193[167]1770
  78. 1760 [139]b[179]219[167]b[178]b[171]128:[137]1780
  79. 1770 [153]"illegales zeichen":[137]1420
  80. 1780 b$[178]b$[170][199](b):[137]1670
  81. 1790 c$[178]c$[170][199]([195](b$))[170]b$:b$[178]""
  82. 1800 [137]1670
  83. 1810 c$[178]c$[170][199]([195](b$))[170]b$
  84. 1820 [143]--------------------------------
  85. 1830 [153]:
  86. 1840 a[178][195](c$):[143] length of name
  87. 1850 [139]a[177]39[167][153]"zu lang":[137]1420
  88. 1860 [143]:print"a"a
  89. 1870 i[178]1:a$[178]""
  90. 1880 [139]i[177][178]a[167]2000:[143] end
  91. 1890 b[178][198]([202](c$,i,1)):[143] length of actual name part
  92. 1900 [143]:print"b"b
  93. 1910 [139]i[177]1[167]a$[178]a$[170]".":[143] at beginning no point
  94. 1920 [129]j[178]i[170]1[164]i[170]b
  95. 1930 d[178][198]([202](c$,j,1))
  96. 1940 [143]:print"d"d,chr$(d)
  97. 1950 [139](d[177]64)[175](d[179]91)[167]d[178]d[170]128
  98. 1960 [139](d[177]96)[175](d[179]123)[167]d[178]d[171]32
  99. 1970 a$[178]a$[170][199](d):[130]j
  100. 1980 i[178]i[170]b[170]1
  101. 1990 [137]1880
  102. 2000 [153]"pop3-name  ";a$
  103. 2010 [153]"correct (j/n)
  104. 2020 geta$:ifa$="n"then1420
  105. 2030 ifa$<>"j"then2020
  106. 2040 fori=53000to53033:pokei,0:next
  107. 2050 poke53000,a+1:rem total length
  108. 2060 fori=1toa
  109. 2070 poke53000+i,asc(mid$(c$,i,1))
  110. 2080 next
  111. 2090 rem================================
  112. 2100 print"
  113. 2110 [153]"$cf30-cf5f smtp server name
  114. 2120 print"nur standard (kein cbm) pcascii erlaubt
  115. 2130 a$[178]"":b$[178]"":c$[178]"":d$[178]""
  116. 2140 a[178][194](53040):[143] length of smtp server name
  117. 2150 [143]:print"a"a
  118. 2160 i[178]53041:a$[178]""
  119. 2170 b[178][194](i):[143] length of actual name part
  120. 2180 [143]:print"b"b
  121. 2190 [139]b[178]0[167]2300:[143] end
  122. 2200 [139]i[177]53041[167]a$[178]a$[170]".":[143] at beginning no point
  123. 2210 [129]j[178]i[170]1[164]i[170]b
  124. 2220 [139]j[177]53040[170]a[167]2300:[143] end if length error
  125. 2230 d[178][194](j):[143] character of name
  126. 2240 [143]:print"d"d,chr$(d)
  127. 2250 [139](d[177]64)[175](d[179]91)[167]d[178]d[170]128
  128. 2260 [139](d[177]96)[175](d[179]123)[167]d[178]d[171]32
  129. 2270 a$[178]a$[170][199](d):[130]j
  130. 2280 i[178]i[170]b[170]1
  131. 2290 [137]2170
  132. 2300 [153]"smtp-name  ";a$
  133. 2310 [133]"";a$
  134. 2320 [143]--------------------------------
  135. 2330 a[178][195](a$):[153]"laenge"a:b$[178]"":i[178]1
  136. 2340 [153]"a"a
  137. 2350 [139]i[177]a[167]2490:[143] end of name
  138. 2360 b[178][198]([202](a$,i,1))
  139. 2370 [153][202](a$,i,1);b
  140. 2380 i[178]i[170]1
  141. 2390 [139]b[178]46[167]2470:[143] end of one name part
  142. 2400 [139]b[179]32[167]2450
  143. 2410 [139]b[179]65[167]2460
  144. 2420 [139]b[179]91[167]b[178]b[170]32:[137]2460
  145. 2430 [139]b[179]193[167]2450
  146. 2440 [139]b[179]219[167]b[178]b[171]128:[137]2460
  147. 2450 [153]"illegales zeichen":[137]2100
  148. 2460 b$[178]b$[170][199](b):[137]2350
  149. 2470 c$[178]c$[170][199]([195](b$))[170]b$:b$[178]""
  150. 2480 [137]2350
  151. 2490 c$[178]c$[170][199]([195](b$))[170]b$
  152. 2500 [143]--------------------------------
  153. 2510 [153]:
  154. 2520 a[178][195](c$):[143] length of name
  155. 2530 [139]a[177]47[167][153]"zu lang":[137]2100
  156. 2540 [143]:print"a"a
  157. 2550 i[178]1:a$[178]""
  158. 2560 [139]i[177][178]a[167]2680:[143] end
  159. 2570 b[178][198]([202](c$,i,1)):[143] length of actual name part
  160. 2580 [143]:print"b"b
  161. 2590 [139]i[177]1[167]a$[178]a$[170]".":[143] at beginning no point
  162. 2600 [129]j[178]i[170]1[164]i[170]b
  163. 2610 d[178][198]([202](c$,j,1))
  164. 2620 [143]:print"d"d,chr$(d)
  165. 2630 [139](d[177]64)[175](d[179]91)[167]d[178]d[170]128
  166. 2640 [139](d[177]96)[175](d[179]123)[167]d[178]d[171]32
  167. 2650 a$[178]a$[170][199](d):[130]j
  168. 2660 i[178]i[170]b[170]1
  169. 2670 [137]2560
  170. 2680 [153]"smtp-name  ";a$
  171. 2690 [153]"correct (j/n)
  172. 2700 geta$:ifa$="n"then2100
  173. 2710 ifa$<>"j"then2700
  174. 2720 fori=53040to53087:pokei,0:next
  175. 2730 poke53040,a+1:rem total length
  176. 2740 fori=1toa
  177. 2750 poke53040+i,asc(mid$(c$,i,1))
  178. 2760 next
  179. 2770 rem================================
  180. 2780 print"
  181. 2790 [153]"$cf60-cf8f benutzername
  182. 2800 print"nur standard (kein cbm) pcascii erlaubt
  183. 2810 a[178][194](53088):[143] length of username
  184. 2820 a$[178]"":[129]i[178]53089[164]53089[170]a:b[178][194](i)
  185. 2830 [139](b[177]64)[175](b[179]91)[167]b[178]b[170]128
  186. 2840 [139](b[177]96)[175](b[179]123)[167]b[178]b[171]32
  187. 2850 a$[178]a$[170][199](b):[130]
  188. 2860 [153]"benutzername  ";a$
  189. 2870 [133]"";a$
  190. 2880 a[178][195](a$):[153]"length"a:b$[178]""
  191. 2890 [129]i[178]1[164]a:b[178][198]([202](a$,i,1))
  192. 2900 [153][202](a$,i,1);b;
  193. 2910 [139]b[179]32[167]2960
  194. 2920 [139]b[179]65[167]2970
  195. 2930 [139]b[179]91[167]b[178]b[170]32:[137]2970
  196. 2940 [139]b[179]193[167]2960
  197. 2950 [139]b[179]219[167]b[178]b[171]128:[137]2970
  198. 2960 [153]"illegales zeichen":i[178]99:[137]2980
  199. 2970 b$[178]b$[170][199](b):[153]"->"[199](b);b;
  200. 2980 [153]:[130]
  201. 2990 [139]i[177]90[167]2780
  202. 3000 pa$[178]b$:lp[178][195](pa$)
  203. 3010 [139]lp[177]47[167][153]"zu lang":[137]2780
  204. 3020 a$[178]"":[129]i[178]1[164]lp
  205. 3030 b[178][198]([202](pa$,i,1))
  206. 3040 [139](b[177]64)[175](b[179]91)[167]b[178]b[170]128
  207. 3050 [139](b[177]96)[175](b[179]123)[167]b[178]b[171]32
  208. 3060 a$[178]a$[170][199](b):[130]
  209. 3070 [153]"benutzername  ";a$
  210. 3080 [153]"correct (j/n)
  211. 3090 geta$:ifa$="n"then2780
  212. 3100 ifa$<>"j"then3090
  213. 3110 fori=53088to53135:pokei,0:next
  214. 3120 poke53088,lp:rem length username
  215. 3130 fori=1tolp:poke53088+i,asc(mid$(pa$,i,1)):next
  216. 3140 rem================================
  217. 3150 print"
  218. 3160 [153]"$cf90-cfbf passwort
  219. 3170 print"nur standard (kein cbm) pcascii erlaubt
  220. 3180 [153]"tipp "[199](34);[199](34)" fuer kein passwort
  221. 3190 print"  (z.b. t-online)
  222. 3200 a[178][194](53136):[143] length of password
  223. 3210 a$[178]"":[139]a[178]0[167]3260
  224. 3220 [129]i[178]53137[164]53137[170]a:b[178][194](i)
  225. 3230 [139](b[177]64)[175](b[179]91)[167]b[178]b[170]128
  226. 3240 [139](b[177]96)[175](b[179]123)[167]b[178]b[171]32
  227. 3250 a$[178]a$[170][199](b):[130]
  228. 3260 [153]"passwort   ";a$
  229. 3270 [133]"";a$
  230. 3280 a[178][195](a$):[153]"length"a:b$[178]""
  231. 3290 [139]a[178]0[167]lp[178]0:[137]3480:[143] no password
  232. 3300 [129]i[178]1[164]a:b[178][198]([202](a$,i,1))
  233. 3310 [153][202](a$,i,1);b;
  234. 3320 [139]b[179]32[167]3370
  235. 3330 [139]b[179]65[167]3380
  236. 3340 [139]b[179]91[167]b[178]b[170]32:[137]3380
  237. 3350 [139]b[179]193[167]3370
  238. 3360 [139]b[179]219[167]b[178]b[171]128:[137]3380
  239. 3370 [153]"illegal character":i[178]99:[137]3390
  240. 3380 b$[178]b$[170][199](b):[153]"->"[199](b);b;
  241. 3390 [153]:[130]
  242. 3400 [139]i[177]90[167]3150
  243. 3410 pa$[178]b$:lp[178][195](pa$)
  244. 3420 [139]lp[177]47[167][153]"zu lang":[137]3150
  245. 3430 a$[178]"":[129]i[178]1[164]lp
  246. 3440 b[178][198]([202](pa$,i,1))
  247. 3450 [139](b[177]64)[175](b[179]91)[167]b[178]b[170]128
  248. 3460 [139](b[177]96)[175](b[179]123)[167]b[178]b[171]32
  249. 3470 a$[178]a$[170][199](b):[130]
  250. 3480 [153]"passwort   ";a$
  251. 3490 [153]"correct (j/n)
  252. 3500 geta$:ifa$="n"then3150
  253. 3510 ifa$<>"j"then3500
  254. 3520 fori=53136to53183:pokei,0:next
  255. 3530 poke53136,lp:rem length password
  256. 3540 iflp=0then3560
  257. 3550 fori=1tolp:poke53136+i,asc(mid$(pa$,i,1)):next
  258. 3560 print"neue konfiguration speichern (j/n)?"
  259. 3570 geta$:ifa$<>"j"anda$<>"n"then3570
  260. 3580 ifa$="n"thenend
  261. 3590 print"neuer dateiname f.config email-account
  262. 3600 [153]"  "na$(an)
  263. 3610 [133]"on";na$:na$[178][200](na$[170]"                ",16)
  264. 3620 [139][200](na$,8)[179][177]"em64emac"[167][153]"muss mit 'em64emac' beginnen":[137]3590
  265. 3630 [153]"device nummer"
  266. 3640 [153]" "dn(an)
  267. 3650 [133]"on";dn
  268. 3660 [159]2,dn,2,na$[170]",p,r":[160]2
  269. 3670 [159]15,dn,15:[132]15,a,b$,c,d:[160]15
  270. 3680 [139]a[178]62[167]3770:[143] file not found
  271. 3690 [153]"fehler
  272. 3700 printa;b$;c;d
  273. 3710 ifa<>0then3590
  274. 3720 print"config datei mit gleichem namen
  275. 3730 [153]"besteht bereits. ueberschreiben? (j/n)
  276. 3740 geta$:ifa$="n"then3590
  277. 3750 ifa$<>"j"then3740
  278. 3760 open15,dn,15,"s:"+na$:close15
  279. 3770 fori=1tolen(na$)
  280. 3780 poke678+i,asc(mid$(na$,i,1))
  281. 3790 next
  282. 3800 poke780,0
  283. 3810 poke781,dn:rem device number
  284. 3820 poke782,0:rem secaddr
  285. 3830 sys65466
  286. 3840 poke780,16
  287. 3850 poke781,167
  288. 3860 poke782,2
  289. 3870 sys65469
  290. 3880 poke193,4
  291. 3890 poke194,207
  292. 3900 poke780,193
  293. 3910 poke781,0
  294. 3920 poke782,208
  295. 3930 sys65496
  296. 3940 open15,dn,15:input#15,a,b$,c,d
  297. 3950 printa;b$;c;d
  298. 3960 close15
  299. 3970 ifa>0then3560
  300.