home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_2001-03_2001_CSW_Side_A.d64 / config-inprd0423 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  7KB  |  269 lines
  1. 1000 remem64-inetprovidr
  2. 1010 rem $0348 0840 inniin
  3. 1020 rem $0349 0841 restlo
  4. 1030 rem $034a 0842 resthi
  5. 1040 rem $034b 0843 renolo
  6. 1050 rem $034c 0844 renohi
  7. 1060 rem $034d 0845 senolo
  8. 1070 rem $034e 0846 senohi
  9. 1080 rem $034f 0847 fchaso
  10. 1090 rem $0350 0848 zeichenfarbe  character-color
  11. 1100 rem $0351 0849 hintergrund/rahmenfarbe  background/border-color
  12. 1110 rem $0352 0850 dnsyfi device number system files
  13. 1120 rem $03
  14. 1130 rem $03
  15. 1140 rem $03
  16. 1150 rem $0370-03af 0880-0943 name und passwort  name and password
  17. 1160 rem $03b0-03fe 0944-1022 initialisierungsbefehl     initial string to modem
  18. 1170 ifk>0then1470
  19. 1180 print"[147]configure email64-internet-provider
  20. 1185 [153]"email64-internet-provider konfigurieren
  21. 1190 dimdn(9):dimna$(9)
  22. 1200 print:fori=8to30
  23. 1210 open15,i,15:close15
  24. 1220 ifst<>0then1410
  25. 1230 open15,i,15,"i":close15
  26. 1240 open2,i,0,"$em64inpr*
  27. 1250 [129]j[178]0[164]5:[161]#2,a$:[130]:[137]1370
  28. 1260 [139]k[178]10[167]1400
  29. 1270 [129]j[178]0[164]3:[161]#2,a$:[130]
  30. 1280 [139]st[179][177]0[167]1400
  31. 1290 [161]#2,a$:[139]st[179][177]0[167]1400
  32. 1300 [139]a$[179][177][199](34)[167]1290
  33. 1310 [161]#2,a$:[139]a$[179][177]"e"[167]1400
  34. 1320 [153]k;:[137]1340
  35. 1330 [161]#2,a$:[139]a$[178][199](34)[167]1360
  36. 1340 [153]a$;:na$(k)[178]na$(k)[170]a$
  37. 1350 [137]1330
  38. 1360 [153]i:dn(k)[178]i:k[178]k[170]1
  39. 1370 [161]#2,a$:[139]st[179][177]0[167]1400
  40. 1380 [139]a$[179][177]""[167]1370
  41. 1390 [137]1260
  42. 1400 [160]2
  43. 1410 [130]:nd[178]k
  44. 1420 [139]k[178]0[167][153]"disk mit datei 'em64inpr...' einlegen":[133]a$:[137]1200
  45. 1430 [153]"0 -"k[171]1"druecken
  46. 1440 geta$:a=asc(a$+chr$(0)):if(a<48)or(a>47+k)then1440
  47. 1450 an=a-48
  48. 1460 loadna$(an),dn(an),1
  49. 1470 a$="":fori=828to830:a$=a$+chr$(peek(i)):next
  50. 1480 printa$
  51. 1490 print"v";
  52. 1500 fori=832to835:printchr$(peek(i));:next:print
  53. 1510 input"return";a$
  54. 1520 print"$0348 inniin invertiert/nichtinvertiert
  55. 1530 [153]"   kontroll-leitungen-invertiert (0/0)
  56. 1540 print"              -nicht invertiert (1/195)
  57. 1550 [153]"bit 7 = rts gleich wie bit 1 aber ein-
  58. 1555 print"            facher abzufragen mit 'bit'
  59. 1560 [153]"bit 6 = cts
  60. 1570 print"bit 2 = dtr (zum initialisieren)
  61. 1580 [153]"bit 1 = rts (zum initialisieren)
  62. 1590 print"   wenn cts ist  dann ist bit6 v. dd01
  63. 1600 [153]"inv.       +12v       low 0v
  64. 1610 print"inv.       -12v      high 5v
  65. 1620 [153]"nic.inv.   +12v      high 5v
  66. 1630 print"nic.inv.   -12v       low 0v
  67. 1640 [153]"der rs232 treiberchip invertiert!!
  68. 1650 print"wenn man eine adapter mit nur dem
  69. 1660 [153]"treiberchip hat, dann ist es invertiert
  70. 1670 print"wenn man einen adapter mit dem treiber-
  71. 1680 [153]"und einem zusaetzlichen inverter-chip
  72. 1685 print"hat, dann ist es nicht invertiert
  73. 1690 [153]"wenn mans nicht weiss, ausprobieren
  74. 1700 print"wenn email64 nach 'loading' haengt,
  75. 1705 [153]"dann den anderen wert versuchen
  76. 1710 print"(daten-leitungen sind immer invertiert)
  77. 1720 [153]"0 f.invertiert o. 195 f.nichtinvertiert
  78. 1730 print"inniin ";peek(840)"[145]":input"";a
  79. 1740 poke840,a
  80. 1750 print"restlo/hi receive startbit low/high tmr
  81. 1755 [153]"          empfang startbit low/high tmr
  82. 1760 print"442 f. pal und 459 f. ntsc versuchen
  83. 1770 [153]"restlo/hi "[194](841)[170]256[172][194](842)
  84. 1780 [133]"on";a:[151]841,a[175]255:[151]842,a[173]256
  85. 1790 [153]"renolo/hi receive normalbit low/high tm
  86. 1795 print"          empfang normalbit low/high tm
  87. 1800 [153]"410 f. pal und 426 f. ntsc versuchen
  88. 1810 print"renolo/hi "peek(843)+256*peek(844)
  89. 1820 input"[145]";a:poke843,aand255:poke844,a/256
  90. 1830 print"senolo send normalbit low/high timer
  91. 1840 [153]"410 f. pal und 426 f. ntsc versuchen
  92. 1850 print"sestlo7hi "peek(845)+256*peek(846)
  93. 1860 input"[145]";a:poke845,aand255:poke846,a/256
  94. 1875 print"$034f fchaso flusskontrolle hard / soft 0=off 1=on
  95. 1880 [153]"bit 7 = hardware
  96. 1890 print"bit 6 = software
  97. 1900 [153]"noch nicht unterstuetzt. tipp immer 0
  98. 1910 print"fchaso ";peek(847):input"[145]";a
  99. 1920 poke847,a
  100. 1930 print"$0350 cochar zeichenfarbe
  101. 1940 [153]"cochar ";[194](848):[133]"on";a
  102. 1950 [151]848,a
  103. 1960 [153]"$0351 cobabo farbe hintergrund rahmen
  104. 1970 print"hingru ";int(peek(849)/16):input"[145]";ba
  105. 1980 print"rahmen ";peek(849)and15:input"[145]";a
  106. 1990 poke849,a+ba*16
  107. 2000 print"$0352 dnsyfi device nummer system dateien
  108. 2010 [153]"tipp 8-30 fuer device 8-30
  109. 2020 print"oder 0 fuer device von dem em64inpr
  110. 2030 [153]"geladen wird
  111. 2040 print"dnsyfi ";peek(850):input"[145]";a
  112. 2050 poke850,a
  113. 2060 print"
  114. 2070 [153]"$0370-03af benutzername & passwort
  115. 2080 print"nur standard (kein cbm) pcascii erlaubt
  116. 2090 a[178][194](881):[143] length of name
  117. 2100 a$[178]"":[129]i[178]882[164]881[170]a:b[178][194](i)
  118. 2110 [139](b[177]64)[175](b[179]91)[167]b[178]b[170]128
  119. 2120 [139](b[177]96)[175](b[179]123)[167]b[178]b[171]32
  120. 2130 a$[178]a$[170][199](b):[130]
  121. 2140 [153]"benutzername  ";a$
  122. 2150 [133]"";a$
  123. 2160 a[178][195](a$):[153]"laenge"a:b$[178]""
  124. 2170 [129]i[178]1[164]a:b[178][198]([202](a$,i,1))
  125. 2180 [153][202](a$,i,1);b;
  126. 2190 [139]b[179]32[167]2240
  127. 2200 [139]b[179]65[167]2250
  128. 2210 [139]b[179]91[167]b[178]b[170]32:[137]2250
  129. 2220 [139]b[179]193[167]2240
  130. 2230 [139]b[179]219[167]b[178]b[171]128:[137]2250
  131. 2240 [153]"illegales zeichen":i[178]99:[137]2260
  132. 2250 b$[178]b$[170][199](b):[153]"->"[199](b);b;
  133. 2260 [153]:[130]
  134. 2270 [139]i[177]90[167]2060
  135. 2280 us$[178]b$:lu[178][195](us$)
  136. 2290 [139]lu[177]60[167][153]"zu lang":[137]2060
  137. 2300 a$[178]"":[129]i[178]1[164]lu
  138. 2310 b[178][198]([202](us$,i,1))
  139. 2320 [139](b[177]64)[175](b[179]91)[167]b[178]b[170]128
  140. 2330 [139](b[177]96)[175](b[179]123)[167]b[178]b[171]32
  141. 2340 a$[178]a$[170][199](b):[130]
  142. 2350 [153]"benutzername   ";a$
  143. 2360 [153]"correct (j/n)
  144. 2370 geta$:ifa$="n"then2060
  145. 2380 ifa$<>"j"then2370
  146. 2390 print"
  147. 2400 [153]"$0370-03af benutzername & passwort
  148. 2410 print"nur standard (kein cbm) pcascii erlaubt
  149. 2420 a[178][194](881):[143] length of username
  150. 2430 aa[178][194](882[170]a):[143] length of password
  151. 2440 a$[178]"":[129]i[178]883[170]a[164]882[170]a[170]aa:b[178][194](i)
  152. 2450 [139](b[177]64)[175](b[179]91)[167]b[178]b[170]128
  153. 2460 [139](b[177]96)[175](b[179]123)[167]b[178]b[171]32
  154. 2470 a$[178]a$[170][199](b):[130]
  155. 2480 [153]"passwort   ";a$
  156. 2490 [133]"";a$
  157. 2500 a[178][195](a$):[153]"laenge"a:b$[178]""
  158. 2510 [129]i[178]1[164]a:b[178][198]([202](a$,i,1))
  159. 2520 [153][202](a$,i,1);b;
  160. 2530 [139]b[179]32[167]2580
  161. 2540 [139]b[179]65[167]2590
  162. 2550 [139]b[179]91[167]b[178]b[170]32:[137]2590
  163. 2560 [139]b[179]193[167]2580
  164. 2570 [139]b[179]219[167]b[178]b[171]128:[137]2590
  165. 2580 [153]"illegales zeichen":i[178]99:[137]2600
  166. 2590 b$[178]b$[170][199](b):[153]"->"[199](b);b;
  167. 2600 [153]:[130]
  168. 2610 [139]i[177]90[167]2390
  169. 2620 pa$[178]b$:lp[178][195](pa$)
  170. 2630 [139]lp[177]60[167][153]"zu lang":[137]2390
  171. 2640 [139]lu[170]lp[177]60[167][153]"zu lang":[137]2060
  172. 2650 a$[178]"":[129]i[178]1[164]lp
  173. 2660 b[178][198]([202](pa$,i,1))
  174. 2670 [139](b[177]64)[175](b[179]91)[167]b[178]b[170]128
  175. 2680 [139](b[177]96)[175](b[179]123)[167]b[178]b[171]32
  176. 2690 a$[178]a$[170][199](b):[130]
  177. 2700 [153]"passwort   ";a$
  178. 2710 [153]"correct (j/n)
  179. 2720 geta$:ifa$="n"then2390
  180. 2730 ifa$<>"j"then2720
  181. 2740 fori=880to943:pokei,0:next
  182. 2750 poke881,lu:rem length username
  183. 2760 fori=1tolu:poke881+i,asc(mid$(us$,i,1)):next
  184. 2770 a=peek(881)
  185. 2780 poke882+a,lp:rem length password
  186. 2790 fori=1tolp:poke882+a+i,asc(mid$(pa$,i,1)):next
  187. 2800 poke880,lu+lp+2:rem total length
  188. 2810 print"!!! email64 unterstuetzt nur password
  189. 2814 [153]"authentication protocol (pap)
  190. 2820 print"nicht challenge handshake
  191. 2825 [153]"authentification protocol (chap)
  192. 2830 print"wenn der server die verbindung nach
  193. 2835 [153]"mehreren
  194. 2840 print"rcv lcfg rqs
  195. 2845 [153]"snd lcfg nak  (auf dem bildschirm)
  196. 2850 print"trennt, dann bedeutet das, dass er
  197. 2855 [153]"auf chap besteht
  198. 2860 print"weil email64 chap nicht unterstuetzt
  199. 2870 [153]"muss man einen anderen internet-
  200. 2875 print"provider benutzen
  201. 2880 [153]"nach der 'atd...'-zeile muss man etwa
  202. 2885 print"30 sec warten
  203. 2890 [133]"return";a$
  204. 2900 [153]"
  205. 2910 print"$03b0-$03fe  modembefehl (0-79)
  206. 2920 s$[178]""
  207. 2930 [153]"(NULL) = carriage return
  208. 2940 print"\=backslash (umgekehrter schraegstrich)
  209. 2950 [153][199](34);
  210. 2960 [129]i[178]944[164]1022:a[178][194](i):[139]a[178]13[167]a[178]205
  211. 2970 [139]a[177]0[167][153][199](a);
  212. 2980 [130]:[153]
  213. 2990 [133]"cmdcmd";a$
  214. 3000 [129]i[178]1[164][195](a$):b$[178][202](a$,i,1)
  215. 3010 [139]b$[178]"(NULL)"[167]b$[178][199](13)
  216. 3020 [139](b$[178]"")[176](b$[178][199](0))[167]i[178][195](a$):[137]3040
  217. 3030 s$[178]s$[170]b$
  218. 3040 [130]
  219. 3050 [153]""s$
  220. 3060 [153]"laenge:"[195](s$)
  221. 3070 [153]"correct (j/n)?"
  222. 3080 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]3080
  223. 3090 [139]a$[178]"n"[167]2900
  224. 3100 [129]i[178]944[164]1023:[151]i,0:[130]
  225. 3110 [129]i[178]1[164][195](s$):[151]943[170]i,[198]([202](s$,i,1)):[130]
  226. 3120 [153]"neue konfiguration speichern (j/n)?"
  227. 3130 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]3130
  228. 3140 [139]a$[178]"n"[167][128]
  229. 3150 [153]"neuer dateiename f.config internet
  230. 3155 print" provider
  231. 3160 [153]"  "na$(an)
  232. 3170 [133]"on";na$:na$[178][200](na$[170]"                ",16)
  233. 3180 [139][200](na$,8)[179][177]"em64inpr"[167][153]"muss mit 'em64inpr' beginnen":[137]3150
  234. 3190 [153]"device nummer"
  235. 3200 [153]" "dn(an)
  236. 3210 [133]"on";dn
  237. 3220 [159]2,dn,2,na$[170]",p,r":[160]2
  238. 3230 [159]15,dn,15:[132]15,a,b$,c,d:[160]15
  239. 3240 [139]a[178]62[167]3330:[143] file not found
  240. 3250 [153]"fehler
  241. 3260 printa;b$;c;d
  242. 3270 ifa<>0then3150
  243. 3280 print"config datei mit gleichem namen
  244. 3290 [153]"besteht bereits. ueberschreiben? (j/n)
  245. 3300 geta$:ifa$="n"then3150
  246. 3310 ifa$<>"j"then3300
  247. 3320 open15,dn,15,"s:"+na$:close15
  248. 3330 fori=1tolen(na$)
  249. 3340 poke678+i,asc(mid$(na$,i,1))
  250. 3350 next
  251. 3360 poke780,0
  252. 3370 poke781,dn:rem device number
  253. 3380 poke782,0:rem secaddr
  254. 3390 sys65466
  255. 3400 poke780,16
  256. 3410 poke781,167
  257. 3420 poke782,2
  258. 3430 sys65469
  259. 3440 poke193,60
  260. 3450 poke194,3
  261. 3460 poke780,193
  262. 3470 poke781,0
  263. 3480 poke782,4
  264. 3490 sys65496
  265. 3500 open15,dn,15:input#15,a,b$,c,d
  266. 3510 printa;b$;c;d
  267. 3520 close15
  268. 3530 ifa>0then3120
  269.