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