home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_2001-03_2001_CSW_Side_A.d64
/
config-inprd0423
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
7KB
|
269 lines
1000 remem64-inetprovidr
1010 rem $0348 0840 inniin
1020 rem $0349 0841 restlo
1030 rem $034a 0842 resthi
1040 rem $034b 0843 renolo
1050 rem $034c 0844 renohi
1060 rem $034d 0845 senolo
1070 rem $034e 0846 senohi
1080 rem $034f 0847 fchaso
1090 rem $0350 0848 zeichenfarbe character-color
1100 rem $0351 0849 hintergrund/rahmenfarbe background/border-color
1110 rem $0352 0850 dnsyfi device number system files
1120 rem $03
1130 rem $03
1140 rem $03
1150 rem $0370-03af 0880-0943 name und passwort name and password
1160 rem $03b0-03fe 0944-1022 initialisierungsbefehl initial string to modem
1170 ifk>0then1470
1180 print"[147]configure email64-internet-provider
1185 [153]"email64-internet-provider konfigurieren
1190 dimdn(9):dimna$(9)
1200 print:fori=8to30
1210 open15,i,15:close15
1220 ifst<>0then1410
1230 open15,i,15,"i":close15
1240 open2,i,0,"$em64inpr*
1250 [129]j[178]0[164]5:[161]#2,a$:[130]:[137]1370
1260 [139]k[178]10[167]1400
1270 [129]j[178]0[164]3:[161]#2,a$:[130]
1280 [139]st[179][177]0[167]1400
1290 [161]#2,a$:[139]st[179][177]0[167]1400
1300 [139]a$[179][177][199](34)[167]1290
1310 [161]#2,a$:[139]a$[179][177]"e"[167]1400
1320 [153]k;:[137]1340
1330 [161]#2,a$:[139]a$[178][199](34)[167]1360
1340 [153]a$;:na$(k)[178]na$(k)[170]a$
1350 [137]1330
1360 [153]i:dn(k)[178]i:k[178]k[170]1
1370 [161]#2,a$:[139]st[179][177]0[167]1400
1380 [139]a$[179][177]""[167]1370
1390 [137]1260
1400 [160]2
1410 [130]:nd[178]k
1420 [139]k[178]0[167][153]"disk mit datei 'em64inpr...' einlegen":[133]a$:[137]1200
1430 [153]"0 -"k[171]1"druecken
1440 geta$:a=asc(a$+chr$(0)):if(a<48)or(a>47+k)then1440
1450 an=a-48
1460 loadna$(an),dn(an),1
1470 a$="":fori=828to830:a$=a$+chr$(peek(i)):next
1480 printa$
1490 print"v";
1500 fori=832to835:printchr$(peek(i));:next:print
1510 input"return";a$
1520 print"$0348 inniin invertiert/nichtinvertiert
1530 [153]" kontroll-leitungen-invertiert (0/0)
1540 print" -nicht invertiert (1/195)
1550 [153]"bit 7 = rts gleich wie bit 1 aber ein-
1555 print" facher abzufragen mit 'bit'
1560 [153]"bit 6 = cts
1570 print"bit 2 = dtr (zum initialisieren)
1580 [153]"bit 1 = rts (zum initialisieren)
1590 print" wenn cts ist dann ist bit6 v. dd01
1600 [153]"inv. +12v low 0v
1610 print"inv. -12v high 5v
1620 [153]"nic.inv. +12v high 5v
1630 print"nic.inv. -12v low 0v
1640 [153]"der rs232 treiberchip invertiert!!
1650 print"wenn man eine adapter mit nur dem
1660 [153]"treiberchip hat, dann ist es invertiert
1670 print"wenn man einen adapter mit dem treiber-
1680 [153]"und einem zusaetzlichen inverter-chip
1685 print"hat, dann ist es nicht invertiert
1690 [153]"wenn mans nicht weiss, ausprobieren
1700 print"wenn email64 nach 'loading' haengt,
1705 [153]"dann den anderen wert versuchen
1710 print"(daten-leitungen sind immer invertiert)
1720 [153]"0 f.invertiert o. 195 f.nichtinvertiert
1730 print"inniin ";peek(840)"[145]":input"";a
1740 poke840,a
1750 print"restlo/hi receive startbit low/high tmr
1755 [153]" empfang startbit low/high tmr
1760 print"442 f. pal und 459 f. ntsc versuchen
1770 [153]"restlo/hi "[194](841)[170]256[172][194](842)
1780 [133]"on";a:[151]841,a[175]255:[151]842,a[173]256
1790 [153]"renolo/hi receive normalbit low/high tm
1795 print" empfang normalbit low/high tm
1800 [153]"410 f. pal und 426 f. ntsc versuchen
1810 print"renolo/hi "peek(843)+256*peek(844)
1820 input"[145]";a:poke843,aand255:poke844,a/256
1830 print"senolo send normalbit low/high timer
1840 [153]"410 f. pal und 426 f. ntsc versuchen
1850 print"sestlo7hi "peek(845)+256*peek(846)
1860 input"[145]";a:poke845,aand255:poke846,a/256
1875 print"$034f fchaso flusskontrolle hard / soft 0=off 1=on
1880 [153]"bit 7 = hardware
1890 print"bit 6 = software
1900 [153]"noch nicht unterstuetzt. tipp immer 0
1910 print"fchaso ";peek(847):input"[145]";a
1920 poke847,a
1930 print"$0350 cochar zeichenfarbe
1940 [153]"cochar ";[194](848):[133]"on";a
1950 [151]848,a
1960 [153]"$0351 cobabo farbe hintergrund rahmen
1970 print"hingru ";int(peek(849)/16):input"[145]";ba
1980 print"rahmen ";peek(849)and15:input"[145]";a
1990 poke849,a+ba*16
2000 print"$0352 dnsyfi device nummer system dateien
2010 [153]"tipp 8-30 fuer device 8-30
2020 print"oder 0 fuer device von dem em64inpr
2030 [153]"geladen wird
2040 print"dnsyfi ";peek(850):input"[145]";a
2050 poke850,a
2060 print"
2070 [153]"$0370-03af benutzername & passwort
2080 print"nur standard (kein cbm) pcascii erlaubt
2090 a[178][194](881):[143] length of name
2100 a$[178]"":[129]i[178]882[164]881[170]a:b[178][194](i)
2110 [139](b[177]64)[175](b[179]91)[167]b[178]b[170]128
2120 [139](b[177]96)[175](b[179]123)[167]b[178]b[171]32
2130 a$[178]a$[170][199](b):[130]
2140 [153]"benutzername ";a$
2150 [133]"";a$
2160 a[178][195](a$):[153]"laenge"a:b$[178]""
2170 [129]i[178]1[164]a:b[178][198]([202](a$,i,1))
2180 [153][202](a$,i,1);b;
2190 [139]b[179]32[167]2240
2200 [139]b[179]65[167]2250
2210 [139]b[179]91[167]b[178]b[170]32:[137]2250
2220 [139]b[179]193[167]2240
2230 [139]b[179]219[167]b[178]b[171]128:[137]2250
2240 [153]"illegales zeichen":i[178]99:[137]2260
2250 b$[178]b$[170][199](b):[153]"->"[199](b);b;
2260 [153]:[130]
2270 [139]i[177]90[167]2060
2280 us$[178]b$:lu[178][195](us$)
2290 [139]lu[177]60[167][153]"zu lang":[137]2060
2300 a$[178]"":[129]i[178]1[164]lu
2310 b[178][198]([202](us$,i,1))
2320 [139](b[177]64)[175](b[179]91)[167]b[178]b[170]128
2330 [139](b[177]96)[175](b[179]123)[167]b[178]b[171]32
2340 a$[178]a$[170][199](b):[130]
2350 [153]"benutzername ";a$
2360 [153]"correct (j/n)
2370 geta$:ifa$="n"then2060
2380 ifa$<>"j"then2370
2390 print"
2400 [153]"$0370-03af benutzername & passwort
2410 print"nur standard (kein cbm) pcascii erlaubt
2420 a[178][194](881):[143] length of username
2430 aa[178][194](882[170]a):[143] length of password
2440 a$[178]"":[129]i[178]883[170]a[164]882[170]a[170]aa:b[178][194](i)
2450 [139](b[177]64)[175](b[179]91)[167]b[178]b[170]128
2460 [139](b[177]96)[175](b[179]123)[167]b[178]b[171]32
2470 a$[178]a$[170][199](b):[130]
2480 [153]"passwort ";a$
2490 [133]"";a$
2500 a[178][195](a$):[153]"laenge"a:b$[178]""
2510 [129]i[178]1[164]a:b[178][198]([202](a$,i,1))
2520 [153][202](a$,i,1);b;
2530 [139]b[179]32[167]2580
2540 [139]b[179]65[167]2590
2550 [139]b[179]91[167]b[178]b[170]32:[137]2590
2560 [139]b[179]193[167]2580
2570 [139]b[179]219[167]b[178]b[171]128:[137]2590
2580 [153]"illegales zeichen":i[178]99:[137]2600
2590 b$[178]b$[170][199](b):[153]"->"[199](b);b;
2600 [153]:[130]
2610 [139]i[177]90[167]2390
2620 pa$[178]b$:lp[178][195](pa$)
2630 [139]lp[177]60[167][153]"zu lang":[137]2390
2640 [139]lu[170]lp[177]60[167][153]"zu lang":[137]2060
2650 a$[178]"":[129]i[178]1[164]lp
2660 b[178][198]([202](pa$,i,1))
2670 [139](b[177]64)[175](b[179]91)[167]b[178]b[170]128
2680 [139](b[177]96)[175](b[179]123)[167]b[178]b[171]32
2690 a$[178]a$[170][199](b):[130]
2700 [153]"passwort ";a$
2710 [153]"correct (j/n)
2720 geta$:ifa$="n"then2390
2730 ifa$<>"j"then2720
2740 fori=880to943:pokei,0:next
2750 poke881,lu:rem length username
2760 fori=1tolu:poke881+i,asc(mid$(us$,i,1)):next
2770 a=peek(881)
2780 poke882+a,lp:rem length password
2790 fori=1tolp:poke882+a+i,asc(mid$(pa$,i,1)):next
2800 poke880,lu+lp+2:rem total length
2810 print"!!! email64 unterstuetzt nur password
2814 [153]"authentication protocol (pap)
2820 print"nicht challenge handshake
2825 [153]"authentification protocol (chap)
2830 print"wenn der server die verbindung nach
2835 [153]"mehreren
2840 print"rcv lcfg rqs
2845 [153]"snd lcfg nak (auf dem bildschirm)
2850 print"trennt, dann bedeutet das, dass er
2855 [153]"auf chap besteht
2860 print"weil email64 chap nicht unterstuetzt
2870 [153]"muss man einen anderen internet-
2875 print"provider benutzen
2880 [153]"nach der 'atd...'-zeile muss man etwa
2885 print"30 sec warten
2890 [133]"return";a$
2900 [153]"
2910 print"$03b0-$03fe modembefehl (0-79)
2920 s$[178]""
2930 [153]"(NULL) = carriage return
2940 print"\=backslash (umgekehrter schraegstrich)
2950 [153][199](34);
2960 [129]i[178]944[164]1022:a[178][194](i):[139]a[178]13[167]a[178]205
2970 [139]a[177]0[167][153][199](a);
2980 [130]:[153]
2990 [133]"cmdcmd";a$
3000 [129]i[178]1[164][195](a$):b$[178][202](a$,i,1)
3010 [139]b$[178]"(NULL)"[167]b$[178][199](13)
3020 [139](b$[178]"")[176](b$[178][199](0))[167]i[178][195](a$):[137]3040
3030 s$[178]s$[170]b$
3040 [130]
3050 [153]""s$
3060 [153]"laenge:"[195](s$)
3070 [153]"correct (j/n)?"
3080 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]3080
3090 [139]a$[178]"n"[167]2900
3100 [129]i[178]944[164]1023:[151]i,0:[130]
3110 [129]i[178]1[164][195](s$):[151]943[170]i,[198]([202](s$,i,1)):[130]
3120 [153]"neue konfiguration speichern (j/n)?"
3130 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]3130
3140 [139]a$[178]"n"[167][128]
3150 [153]"neuer dateiename f.config internet
3155 print" provider
3160 [153]" "na$(an)
3170 [133]"on";na$:na$[178][200](na$[170]" ",16)
3180 [139][200](na$,8)[179][177]"em64inpr"[167][153]"muss mit 'em64inpr' beginnen":[137]3150
3190 [153]"device nummer"
3200 [153]" "dn(an)
3210 [133]"on";dn
3220 [159]2,dn,2,na$[170]",p,r":[160]2
3230 [159]15,dn,15:[132]15,a,b$,c,d:[160]15
3240 [139]a[178]62[167]3330:[143] file not found
3250 [153]"fehler
3260 printa;b$;c;d
3270 ifa<>0then3150
3280 print"config datei mit gleichem namen
3290 [153]"besteht bereits. ueberschreiben? (j/n)
3300 geta$:ifa$="n"then3150
3310 ifa$<>"j"then3300
3320 open15,dn,15,"s:"+na$:close15
3330 fori=1tolen(na$)
3340 poke678+i,asc(mid$(na$,i,1))
3350 next
3360 poke780,0
3370 poke781,dn:rem device number
3380 poke782,0:rem secaddr
3390 sys65466
3400 poke780,16
3410 poke781,167
3420 poke782,2
3430 sys65469
3440 poke193,60
3450 poke194,3
3460 poke780,193
3470 poke781,0
3480 poke782,4
3490 sys65496
3500 open15,dn,15:input#15,a,b$,c,d
3510 printa;b$;c;d
3520 close15
3530 ifa>0then3120