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
1190 [134]DN(9):[134]NA$(9)
1200 [153]:[129]I[178]8[164]30
1210 [159]15,I,15:[160]15
1220 [139]ST[179][177]0[167]1410
1230 [159]15,I,15,"I":[160]15
1240 [159]2,I,0,"$EM64INPR*
1250 FORJ=0TO5:GET#2,A$:NEXT:GOTO1370
1260 IFK=10THEN1400
1270 FORJ=0TO3:GET#2,A$:NEXT
1280 IFST<>0THEN1400
1290 GET#2,A$:IFST<>0THEN1400
1300 IFA$<>CHR$(34)THEN1290
1310 GET#2,A$:IFA$<>"E"THEN1400
1320 PRINTK;:GOTO1340
1330 GET#2,A$:IFA$=CHR$(34)THEN1360
1340 PRINTA$;:NA$(K)=NA$(K)+A$
1350 GOTO1330
1360 PRINTI:DN(K)=I:K=K+1
1370 GET#2,A$:IFST<>0THEN1400
1380 IFA$<>""THEN1370
1390 GOTO1260
1400 CLOSE2
1410 NEXT:ND=K
1420 IFK=0THENPRINT"INSERT DISK WITH FILE 'EM64INPR...":INPUTA$:GOTO1200
1430 PRINT"TYPE 0 -"K-1"
1440 [161]A$:A[178][198](A$[170][199](0)):[139](A[179]48)[176](A[177]47[170]K)[167]1440
1450 AN[178]A[171]48
1460 [147]NA$(AN),DN(AN),1
1470 A$[178]"":[129]I[178]828[164]830:A$[178]A$[170][199]([194](I)):[130]
1480 [153]A$
1490 [153]"V";
1500 [129]I[178]832[164]835:[153][199]([194](I));:[130]:[153]
1510 [133]"RETURN";A$
1520 [153]"$0348 INNIIN INVERTED / NOT INVERTED
1530 PRINT"      CONTROL-LINES-INVERTED (0/0)
1540 [153]"                  -NOT INVERTED (1/195)
1550 PRINT"BIT 7 = RTS SAME AS BIT 1 BUT EASIER            TO POLL WITH 'BIT'
1560 [153]"BIT 6 = CTS
1570 PRINT"BIT 2 = DTR (FOR INITIALISE)
1580 [153]"BIT 1 = RTS (FOR INITIALISE)
1590 PRINT"        IF CTS IS  THEN BIT6 OF DD01 IS
1600 [153]"INV.       +12V       LOW 0V
1610 PRINT"INV.       -12V      HIGH 5V
1620 [153]"NOT INV.   +12V      HIGH 5V
1630 PRINT"NOT INV.   -12V       LOW 0V
1640 [153]"THE RS232 DRIVERCHIP INVERTS!!
1650 PRINT"IF YOU HAVE AN ADAPTER WITH ONLY THE
1660 [153]"DRIVERCHIP THEN IT IS INVERTED
1670 PRINT"IF YOU HAVE AN ADAPTER WITH THE DRIVER-
1680 [153]"CHIP AND AN ADDITIONAL INVERTERCHIP     THEN IT IS NOT INVERTED
1690 PRINT"REMARK:IF YOU DON'T KNOW THEN TRY:
1700 [153]"IF EMAIL64 HANGS AFTER 'LOADING' THEN   TRY THE OPPOSITE VALUE
1710 PRINT"REMARK: DATA-LINES ARE ALLWAYS INVERTED
1720 [153]"TYPE 0 F.INVERTED OR 195 F.NOT-INVERTED
1730 PRINT"INNIIN ";PEEK(840)"[145]":INPUT"";A
1740 POKE840,A
1750 PRINT"RESTLO/HI RECEIVE STARTBIT LOW/HIGH TMR
1760 [153]"TRY 442 FOR PAL AND 459 FOR NTSC
1770 PRINT"RESTLO/HI "PEEK(841)+256*PEEK(842)
1780 INPUT"[145]";A:POKE841,AAND255:POKE842,A/256
1790 PRINT"RENOLO/HI RECEIVE NORMALBIT LOW/HIGH TM
1800 [153]"TRY 410 FOR PAL AND 426 FOR NTSC
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 TM
1840 [153]"TRY 410 FOR PAL AND 426 FOR NTSC
1850 PRINT"SESTLO7HI "PEEK(845)+256*PEEK(846)
1860 INPUT"[145]";A:POKE845,AAND255:POKE846,A/256
1870 PRINT"$034F FCHASO FLOWCONTROL HARD / SOFT    0=OFF 1=ON
1880 [153]"BIT 7 = HARDWARE
1890 PRINT"BIT 6 = SOFTWARE
1900 [153]"NOT YET SUPPORTED. TYPE ALLWAYS 0
1910 PRINT"FCHASO ";PEEK(847):INPUT"[145]";A
1920 POKE847,A
1930 PRINT"$0350 COCHAR COLORCHARACTER
1940 [153]"COCHAR ";[194](848):[133]"ON";A
1950 [151]848,A
1960 [153]"$0351 COBABO COLOR BACKGROUND BORDER
1970 PRINT"COBACK ";INT(PEEK(849)/16):INPUT"[145]";BA
1980 PRINT"COBORD ";PEEK(849)AND15:INPUT"[145]";A
1990 POKE849,A+BA*16
2000 PRINT"$0352 DNSYFI DEVICE NUMBER SYSTEM FILES
2010 [153]"TYPE 8-30 FOR DEVICE 8-30
2020 PRINT"OR 0 FOR DEVICE FROM WHICH EM64INPR
2030 [153]"WILL BE LOADED
2040 PRINT"DNSYFI ";PEEK(850):INPUT"[145]";A
2050 POKE850,A
2060 PRINT"
2070 [153]"$0370-03AF USERNAME & PASSWORD
2080 PRINT"ONLY STANDART (NO CBM) PC-ASCII ALLOWED
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]"USERNAME   ";A$
2150 [133]"";A$
2160 A[178][195](A$):[153]"LENGTH"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]"ILLEGAL CHARACTER":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]"TOO LONG":[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]"USERNAME   ";A$
2360 [153]"CORRECT (Y/N)
2370 GETA$:IFA$="N"THEN2060
2380 IFA$<>"Y"THEN2370
2390 PRINT"
2400 [153]"$0370-03AF USERNAME & PASSWORD
2410 PRINT"ONLY STANDART (NO CBM) PC-ASCII ALLOWED
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]"PASSWORD   ";A$
2490 [133]"";A$
2500 A[178][195](A$):[153]"LENGTH"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]"ILLEGAL CHARACTER":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]"TOO LONG":[137]2390
2640 [139]LU[170]LP[177]60[167][153]"TOO LONG":[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]"PASSWORD   ";A$
2710 [153]"CORRECT (Y/N)
2720 GETA$:IFA$="N"THEN2390
2730 IFA$<>"Y"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 SUPPORTS ONLY PASSWORD          AUTHENTICATION PROTOCOL (PAP)
2820 [153]"NOT CHALLENGE HANDSHAKE                 AUTHENTIFICATION PROTOCOL (CHAP)
2830 PRINT"IF THE SERVER TERMINATES THE CONNECTION AFTER SEVERAL
2840 [153]"RCV LCFG RQS                            SND LCFG NAK  (ON THE SCREEN)
2850 PRINT"THEN THIS MEANS THAT YOUR SERVER WANTS  CHAP.
2860 [153]"BECAUSE EMAIL64 DOESN'T SUPPORT CHAP
2870 PRINT"YOU MUST USE A DIFFERENT INTERNET-      PROVIDER.
2880 [153]"AFTER THE 'ATD...'-LINE YOU MUST WAIT   ABOUT 30 SEC.
2890 INPUT"RETURN";A$
2900 PRINT"
2910 [153]"$03B0-$03FE  STRING TO MODEM (0-79)
2920 S$=""
2930 PRINT"[205] = CARRIAGE RETURN
2940 [153]"\ = BACKSLASH
2950 PRINTCHR$(34);
2960 FORI=944TO1022:A=PEEK(I):IFA=13THENA=205
2970 IFA>0THENPRINTCHR$(A);
2980 NEXT:PRINT
2990 INPUT"[157][157]";A$
3000 FORI=1TOLEN(A$):B$=MID$(A$,I,1)
3010 IFB$="[205]"THENB$=CHR$(13)
3020 IF(B$="")OR(B$=CHR$(0))THENI=LEN(A$):GOTO3040
3030 S$=S$+B$
3040 NEXT
3050 PRINT""S$
3060 PRINT"LENGTH:"LEN(S$)
3070 PRINT"CORRECT (Y/N)?"
3080 GETA$:IFA$<>"Y"ANDA$<>"N"THEN3080
3090 IFA$="N"THEN2900
3100 FORI=944TO1023:POKEI,0:NEXT
3110 FORI=1TOLEN(S$):POKE943+I,ASC(MID$(S$,I,1)):NEXT
3120 PRINT"SAVE NEW CONFIG (Y/N)?"
3130 GETA$:IFA$<>"Y"ANDA$<>"N"THEN3130
3140 IFA$="N"THENEND
3150 PRINT"NEW FILENAME F.CONFIG INTERNET 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]"MUST BEGIN WITH 'EM64INPR'":[137]3150
3190 [153]"DEVICE NUMBER"
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]"ERROR
3260 PRINTA;B$;C;D
3270 IFA<>0THEN3150
3280 PRINT"CONFIG FILE WITH SAME NAME ALLREADY
3290 [153]"EXISTS. OVERWRITE? (Y/N)
3300 GETA$:IFA$="N"THEN3150
3310 IFA$<>"Y"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