home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2001-03_2001_CSW_Side_A.d64 / config-emace0421 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  299 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. 1100 [134]dn(9):[134]na$(9)
  12. 1110 [153]:[129]i[178]8[164]30
  13. 1120 [159]15,i,15:[160]15
  14. 1130 [139]st[179][177]0[167]1320
  15. 1140 [159]15,i,15,"i":[160]15
  16. 1150 [159]2,i,0,"$em64emac*
  17. 1160 forj=0to5:get#2,a$:next:goto1280
  18. 1170 ifk=10then1310
  19. 1180 forj=0to3:get#2,a$:next
  20. 1190 ifst<>0then1310
  21. 1200 get#2,a$:ifst<>0then1310
  22. 1210 ifa$<>chr$(34)then1200
  23. 1220 get#2,a$:ifa$<>"e"then1310
  24. 1230 printk;:goto1250
  25. 1240 get#2,a$:ifa$=chr$(34)then1270
  26. 1250 printa$;:na$(k)=na$(k)+a$
  27. 1260 goto1240
  28. 1270 printi:dn(k)=i:k=k+1
  29. 1280 get#2,a$:ifst<>0then1310
  30. 1290 ifa$<>""then1280
  31. 1300 goto1170
  32. 1310 close2
  33. 1320 next:nd=k
  34. 1330 ifk=0thenprint"insert disk with file 'em64emac...":inputa$:goto1110
  35. 1340 print"type 0 -"k-1"
  36. 1350 [161]a$:a[178][198](a$[170][199](0)):[139](a[179]48)[176](a[177]47[170]k)[167]1350
  37. 1360 an[178]a[171]48
  38. 1370 [147]na$(an),dn(an),1
  39. 1380 a$[178]"":[129]i[178]52996[164]52998:a$[178]a$[170][199]([194](i)):[130]
  40. 1390 [153]a$;
  41. 1400 [153]"  v";[196]([194](52999))
  42. 1410 [133]"return";a$
  43. 1420 [153]"
  44. 1430 print"$cf08-cf2f pop3 server name
  45. 1440 [153]"only standart (no cbm) pc-ascii allowed
  46. 1450 a$="":b$="":c$="":d$=""
  47. 1460 a=peek(53000):rem length of pop3 server name
  48. 1470 rem:print"a"a
  49. 1480 i=53001:a$=""
  50. 1490 b=peek(i):rem length of actual name part
  51. 1500 rem:print"b"b
  52. 1510 ifb=0then1620:rem end
  53. 1520 ifi>53001thena$=a$+".":rem at beginning no point
  54. 1530 forj=i+1toi+b
  55. 1540 ifj>53000+athen1620:rem end if length error
  56. 1550 d=peek(j):rem character of name
  57. 1560 rem:print"d"d,chr$(d)
  58. 1570 if(d>64)and(d<91)thend=d+128
  59. 1580 if(d>96)and(d<123)thend=d-32
  60. 1590 a$=a$+chr$(d):nextj
  61. 1600 i=i+b+1
  62. 1610 goto1490
  63. 1620 print"pop3-name  ";a$
  64. 1630 input"";a$
  65. 1640 rem--------------------------------
  66. 1650 a=len(a$):print"length"a:b$="":i=1
  67. 1660 print"a"a
  68. 1670 ifi>athen1810:rem end of name
  69. 1680 b=asc(mid$(a$,i,1))
  70. 1690 printmid$(a$,i,1);b
  71. 1700 i=i+1
  72. 1710 ifb=46then1790:rem end of one name part
  73. 1720 ifb<32then1770
  74. 1730 ifb<65then1780
  75. 1740 ifb<91thenb=b+32:goto1780
  76. 1750 ifb<193then1770
  77. 1760 ifb<219thenb=b-128:goto1780
  78. 1770 print"illegal character":goto1420
  79. 1780 b$=b$+chr$(b):goto1670
  80. 1790 c$=c$+chr$(len(b$))+b$:b$=""
  81. 1800 goto1670
  82. 1810 c$=c$+chr$(len(b$))+b$
  83. 1820 rem--------------------------------
  84. 1830 print:
  85. 1840 a=len(c$):rem length of name
  86. 1850 ifa>39thenprint"too long":goto1420
  87. 1860 rem:print"a"a
  88. 1870 i=1:a$=""
  89. 1880 ifi>=athen2000:rem end
  90. 1890 b=asc(mid$(c$,i,1)):rem length of actual name part
  91. 1900 rem:print"b"b
  92. 1910 ifi>1thena$=a$+".":rem at beginning no point
  93. 1920 forj=i+1toi+b
  94. 1930 d=asc(mid$(c$,j,1))
  95. 1940 rem:print"d"d,chr$(d)
  96. 1950 if(d>64)and(d<91)thend=d+128
  97. 1960 if(d>96)and(d<123)thend=d-32
  98. 1970 a$=a$+chr$(d):nextj
  99. 1980 i=i+b+1
  100. 1990 goto1880
  101. 2000 print"pop3-name  ";a$
  102. 2010 print"correct (y/n)
  103. 2020 [161]a$:[139]a$[178]"n"[167]1420
  104. 2030 [139]a$[179][177]"y"[167]2020
  105. 2040 [129]i[178]53000[164]53033:[151]i,0:[130]
  106. 2050 [151]53000,a[170]1:[143] total length
  107. 2060 [129]i[178]1[164]a
  108. 2070 [151]53000[170]i,[198]([202](c$,i,1))
  109. 2080 [130]
  110. 2090 [143]================================
  111. 2100 [153]"
  112. 2110 print"$cf30-cf5f smtp server name
  113. 2120 [153]"only standart (no cbm) pc-ascii allowed
  114. 2130 a$="":b$="":c$="":d$=""
  115. 2140 a=peek(53040):rem length of smtp server name
  116. 2150 rem:print"a"a
  117. 2160 i=53041:a$=""
  118. 2170 b=peek(i):rem length of actual name part
  119. 2180 rem:print"b"b
  120. 2190 ifb=0then2300:rem end
  121. 2200 ifi>53041thena$=a$+".":rem at beginning no point
  122. 2210 forj=i+1toi+b
  123. 2220 ifj>53040+athen2300:rem end if length error
  124. 2230 d=peek(j):rem character of name
  125. 2240 rem:print"d"d,chr$(d)
  126. 2250 if(d>64)and(d<91)thend=d+128
  127. 2260 if(d>96)and(d<123)thend=d-32
  128. 2270 a$=a$+chr$(d):nextj
  129. 2280 i=i+b+1
  130. 2290 goto2170
  131. 2300 print"smtp-name  ";a$
  132. 2310 input"";a$
  133. 2320 rem--------------------------------
  134. 2330 a=len(a$):print"length"a:b$="":i=1
  135. 2340 print"a"a
  136. 2350 ifi>athen2490:rem end of name
  137. 2360 b=asc(mid$(a$,i,1))
  138. 2370 printmid$(a$,i,1);b
  139. 2380 i=i+1
  140. 2390 ifb=46then2470:rem end of one name part
  141. 2400 ifb<32then2450
  142. 2410 ifb<65then2460
  143. 2420 ifb<91thenb=b+32:goto2460
  144. 2430 ifb<193then2450
  145. 2440 ifb<219thenb=b-128:goto2460
  146. 2450 print"illegal character":goto2100
  147. 2460 b$=b$+chr$(b):goto2350
  148. 2470 c$=c$+chr$(len(b$))+b$:b$=""
  149. 2480 goto2350
  150. 2490 c$=c$+chr$(len(b$))+b$
  151. 2500 rem--------------------------------
  152. 2510 print:
  153. 2520 a=len(c$):rem length of name
  154. 2530 ifa>47thenprint"too long":goto2100
  155. 2540 rem:print"a"a
  156. 2550 i=1:a$=""
  157. 2560 ifi>=athen2680:rem end
  158. 2570 b=asc(mid$(c$,i,1)):rem length of actual name part
  159. 2580 rem:print"b"b
  160. 2590 ifi>1thena$=a$+".":rem at beginning no point
  161. 2600 forj=i+1toi+b
  162. 2610 d=asc(mid$(c$,j,1))
  163. 2620 rem:print"d"d,chr$(d)
  164. 2630 if(d>64)and(d<91)thend=d+128
  165. 2640 if(d>96)and(d<123)thend=d-32
  166. 2650 a$=a$+chr$(d):nextj
  167. 2660 i=i+b+1
  168. 2670 goto2560
  169. 2680 print"smtp-name  ";a$
  170. 2690 print"correct (y/n)
  171. 2700 [161]a$:[139]a$[178]"n"[167]2100
  172. 2710 [139]a$[179][177]"y"[167]2700
  173. 2720 [129]i[178]53040[164]53087:[151]i,0:[130]
  174. 2730 [151]53040,a[170]1:[143] total length
  175. 2740 [129]i[178]1[164]a
  176. 2750 [151]53040[170]i,[198]([202](c$,i,1))
  177. 2760 [130]
  178. 2770 [143]================================
  179. 2780 [153]"
  180. 2790 print"$cf60-cf8f username
  181. 2800 [153]"only standart (no cbm) pc-ascii allowed
  182. 2810 a=peek(53088):rem length of username
  183. 2820 a$="":fori=53089to53089+a:b=peek(i)
  184. 2830 if(b>64)and(b<91)thenb=b+128
  185. 2840 if(b>96)and(b<123)thenb=b-32
  186. 2850 a$=a$+chr$(b):next
  187. 2860 print"username   ";a$
  188. 2870 input"";a$
  189. 2880 a=len(a$):print"length"a:b$=""
  190. 2890 fori=1toa:b=asc(mid$(a$,i,1))
  191. 2900 printmid$(a$,i,1);b;
  192. 2910 ifb<32then2960
  193. 2920 ifb<65then2970
  194. 2930 ifb<91thenb=b+32:goto2970
  195. 2940 ifb<193then2960
  196. 2950 ifb<219thenb=b-128:goto2970
  197. 2960 print"illegal character":i=99:goto2980
  198. 2970 b$=b$+chr$(b):print"->"chr$(b);b;
  199. 2980 print:next
  200. 2990 ifi>90then2780
  201. 3000 pa$=b$:lp=len(pa$)
  202. 3010 iflp>47thenprint"too long":goto2780
  203. 3020 a$="":fori=1tolp
  204. 3030 b=asc(mid$(pa$,i,1))
  205. 3040 if(b>64)and(b<91)thenb=b+128
  206. 3050 if(b>96)and(b<123)thenb=b-32
  207. 3060 a$=a$+chr$(b):next
  208. 3070 print"username   ";a$
  209. 3080 print"correct (y/n)
  210. 3090 [161]a$:[139]a$[178]"n"[167]2780
  211. 3100 [139]a$[179][177]"y"[167]3090
  212. 3110 [129]i[178]53088[164]53135:[151]i,0:[130]
  213. 3120 [151]53088,lp:[143] length username
  214. 3130 [129]i[178]1[164]lp:[151]53088[170]i,[198]([202](pa$,i,1)):[130]
  215. 3140 [143]================================
  216. 3150 [153]"
  217. 3160 print"$cf90-cfbf password
  218. 3170 [153]"only standart (no cbm) pc-ascii allowed
  219. 3180 print"type "chr$(34);chr$(34)" for no password
  220. 3190 [153]"  (f.e. german t-online)
  221. 3200 a=peek(53136):rem length of password
  222. 3210 a$="":ifa=0then3260
  223. 3220 fori=53137to53137+a:b=peek(i)
  224. 3230 if(b>64)and(b<91)thenb=b+128
  225. 3240 if(b>96)and(b<123)thenb=b-32
  226. 3250 a$=a$+chr$(b):next
  227. 3260 print"password   ";a$
  228. 3270 input"";a$
  229. 3280 a=len(a$):print"length"a:b$=""
  230. 3290 ifa=0thenlp=0:goto3480:rem no password
  231. 3300 fori=1toa:b=asc(mid$(a$,i,1))
  232. 3310 printmid$(a$,i,1);b;
  233. 3320 ifb<32then3370
  234. 3330 ifb<65then3380
  235. 3340 ifb<91thenb=b+32:goto3380
  236. 3350 ifb<193then3370
  237. 3360 ifb<219thenb=b-128:goto3380
  238. 3370 print"illegal character":i=99:goto3390
  239. 3380 b$=b$+chr$(b):print"->"chr$(b);b;
  240. 3390 print:next
  241. 3400 ifi>90then3150
  242. 3410 pa$=b$:lp=len(pa$)
  243. 3420 iflp>47thenprint"too long":goto3150
  244. 3430 a$="":fori=1tolp
  245. 3440 b=asc(mid$(pa$,i,1))
  246. 3450 if(b>64)and(b<91)thenb=b+128
  247. 3460 if(b>96)and(b<123)thenb=b-32
  248. 3470 a$=a$+chr$(b):next
  249. 3480 print"password   ";a$
  250. 3490 print"correct (y/n)
  251. 3500 [161]a$:[139]a$[178]"n"[167]3150
  252. 3510 [139]a$[179][177]"y"[167]3500
  253. 3520 [129]i[178]53136[164]53183:[151]i,0:[130]
  254. 3530 [151]53136,lp:[143] length password
  255. 3540 [139]lp[178]0[167]3560
  256. 3550 [129]i[178]1[164]lp:[151]53136[170]i,[198]([202](pa$,i,1)):[130]
  257. 3560 [153]"save new config (y/n)?"
  258. 3570 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]3570
  259. 3580 [139]a$[178]"n"[167][128]
  260. 3590 [153]"new filename f.config email-account
  261. 3600 print"  "na$(an)
  262. 3610 input"[145]";na$:na$=left$(na$+"                ",16)
  263. 3620 ifleft$(na$,8)<>"em64emac"thenprint"must begin with 'em64emac'":goto3590
  264. 3630 print"device number"
  265. 3640 print" "dn(an)
  266. 3650 input"[145]";dn
  267. 3660 open2,dn,2,na$+",p,r":close2
  268. 3670 open15,dn,15:input#15,a,b$,c,d:close15
  269. 3680 ifa=62then3770:rem file not found
  270. 3690 print"error
  271. 3700 [153]a;b$;c;d
  272. 3710 [139]a[179][177]0[167]3590
  273. 3720 [153]"config file with same name allready
  274. 3730 print"exists. overwrite? (y/n)
  275. 3740 [161]a$:[139]a$[178]"n"[167]3590
  276. 3750 [139]a$[179][177]"y"[167]3740
  277. 3760 [159]15,dn,15,"s:"[170]na$:[160]15
  278. 3770 [129]i[178]1[164][195](na$)
  279. 3780 [151]678[170]i,[198]([202](na$,i,1))
  280. 3790 [130]
  281. 3800 [151]780,0
  282. 3810 [151]781,dn:[143] device number
  283. 3820 [151]782,0:[143] secaddr
  284. 3830 [158]65466
  285. 3840 [151]780,16
  286. 3850 [151]781,167
  287. 3860 [151]782,2
  288. 3870 [158]65469
  289. 3880 [151]193,4
  290. 3890 [151]194,207
  291. 3900 [151]780,193
  292. 3910 [151]781,0
  293. 3920 [151]782,208
  294. 3930 [158]65496
  295. 3940 [159]15,dn,15:[132]15,a,b$,c,d
  296. 3950 [153]a;b$;c;d
  297. 3960 [160]15
  298. 3970 [139]a[177]0[167]3560
  299.