10 IFA=0THENZ=PEEK(186)
20 IFA=0THENA=1:GOSUB3130:LOAD"0:CFG.DEFAULT",Z,1
30 IFA=1THENA=2:LOAD"0:FNT.MINITEL1B",Z,1
40 IFA=2THENA=3:LOAD"0:EXE.SAVEMTO",Z,1
50 IFF$<>""THEN2960
60 POKE51,0:POKE52,128:POKE55,0:POKE56,128
70 CP=128:REM CP=MODEM CARRIER POLARITY 128=NORMAL; 0=INVERTED
80 PA=224:REM PA=CHARACTER PARITY ODD=32; EVEN=96; MARK=144; SPACE=224
90 DP=64:REM DP=DTR/RTS POLARITY 64=NORMAL; 0=INVERTED
100 DIM PN$(191)
110 BL$="                                     "
120 POKE204,1:PRINT"[147]           [199][197][212][212][201][206][199][160][211][212][193][210][212][197][196]..."
130 PRINT"[208]REPARE TO EXPERIENCE THE POWER OF"
140 PRINT"[205]INITEL.  [201]N SECONDS YOU CAN:"
150 PRINT".MEET PEOPLE AND COMMUNICATE WORLDWIDE"
160 PRINT".REVIEW LOCAL AND INTERNATIONAL NEWS"
170 PRINT"AND EVENTS"
180 PRINT".BUY PRODUCTS AND SERVICES FROM"
190 PRINT"AROUND THE GLOBE"
200 PRINT"[199][197][212][212][201][206][199][160][211][212][193][210][212][197][196][160]INSTALLS SOFTWARE ON"
210 PRINT"YOUR [195]OMMODORE 64 OR 128 WHICH ALLOWS IT";
220 PRINT"TO IMITATE A [205]INITEL TERMINAL.  [193]NSWER"
230 PRINT"EACH QUESTION OR SIMPLY PRESS [[210][197][212][213][210][206]]"
240 PRINT"TO SELECT THE AUTOMATIC ANSWER SUPPLIED"
250 PRINT"FOR MOST QUESTIONS."
260 PRINT"[193]T ANY TIME, YOU MAY RERUN THIS [211][197][212][213][208]"
270 PRINT"PROGRAM TO CHANGE YOUR [205]INITEL USER [201][196],"
280 PRINT"PASSWORD, OR TELEPHONE NUMBER."
290 PRINT"[[210][197][212][213][210][206]] TO [195]ONTINUE, [[211][212][207][208]] TO [209]UIT[146]";
300 POKE198,0
310 GETB$:IFB$<>CHR$(13)THEN310
320 POKE204,1:PRINT"[147][215]HAT KIND OF MODEM DO YOU HAVE?"
330 PRINT"A. [214]ICMODEM ([205]ODEL 1600) OR [204]IKE"
340 PRINT"B. [193]UTOMODEM ([205]ODEL 1650) OR [204]IKE"
350 PRINT"C. [205]ODEM 300 ([205]ODEL 1660) OR [204]IKE"
360 PRINT"D. [205]ODEM 1200 ([205]ODEL 1670) OR [204]IKE"
370 PRINT"E. [205]ITEY [205]O/[200][197][211] 2[193]"
380 PRINT"F. [214]OLKS 6470/6480 OR [204]IKE"
390 PRINT"G. [200]AYES 300 OR [204]IKE"
400 PRINT"H. [200]AYES 1200 OR [204]IKE"
410 PRINT"I. [200]AYES 2400 OR [204]IKE"
420 PRINT"J. [205]ANUAL [196]IAL"
430 PRINT"[208]LEASE SELECT THE LETTER CORRESPONDING"
440 PRINT"TO THE TYPE OF MODEM YOU OWN:"
450 PRINT"[[211][212][207][208]] TO [209]UIT, [F3] FOR [208]REVIOUS [208]AGE[146]";
460 PRINT"";
470 MT=PEEK(39933)AND15:MT=MT+65
480 PRINTCHR$(MT);"[157]";:POKE204,0
490 POKE 198,0
500 GETB$
510 IFB$=CHR$(13)THENB$=CHR$(MT)
520 IFB$=CHR$(134)THEN120
530 IF(B$<CHR$(65))+(B$>CHR$(74))THEN500
540 B=ASC(B$)-64
550 POKE204,1:PRINTB$;
560 POKE39935,PA
570 ONBGOTO580,620,680,720,1040,1000,780,840,900,960
580 POKE39933,CP+DP:POKE39934,6
590 FORI=39890TO39905:POKEI,0:NEXT
600 F$="DUMB"
610 GOTO1340
620 POKE39933,CP+DP+1:POKE39934,6
630 FORI=39890TO39905:POKEI,0:NEXT
640 F$="COM1650"
650 PRINT:PRINT"[215]HAT IS THE SPEED OF YOUR MODEM?"
660 PRINT"1. 300 BITS/SECOND"
670 PRINT"2. 1200 BITS/SECOND":GOTO1120
680 POKE39933,CP+DP+2:POKE39934,6
690 FORI=39890TO39905:POKEI,0:NEXT
700 F$="COM1660"
710 GOTO1220
720 POKE39933,CP+DP+3:POKE39934,8
730 FORI=1TO3:M$=MID$("ATZ",I,1)
740 POKEI+39889,ASC(M$):NEXT
750 POKE39893,13:FORI=39894TO39905:POKEI,0:NEXT
760 F$="COM1670"
770 GOTO1220
780 POKE39933,CP+DP+6:POKE39934,6
790 FORI=1TO8:M$=MID$("ATE1Q0V1",I,1)
800 POKEI+39889,ASC(M$):NEXT
810 POKE39898,13:FORI=39899TO39905:POKEI,0:NEXT
820 F$="SMART"
830 GOTO1220
840 POKE39933,CP+DP+7:POKE39934,8
850 FORI=1TO8:M$=MID$("ATE1Q0V1",I,1)
860 POKEI+39889,ASC(M$):NEXT
870 POKE39898,13:FORI=39899TO39905:POKEI,0:NEXT
880 F$="SMART"
890 GOTO1220
900 POKE39933,CP+DP+8:POKE39934,10
910 FORI=1TO11:M$=MID$("ATE1Q0V1&C1",I,1)
920 POKEI+39889,ASC(M$):NEXT
930 POKE39901,13:FORI=39902TO39905:POKEI,0:NEXT
940 F$="SMART"
950 GOTO1220
960 POKE39933,CP+DP+9
970 FORI=39890TO39905:POKEI,0:NEXT
980 F$="DUMB"
990 GOTO1080
1000 POKE39933,CP+DP+5:POKE39934,8
1010 FORI=39890TO39905:POKEI,0:NEXT
1020 F$="VKS6470/80"
1030 GOTO1340
1040 POKE39933,CP+DP+4:POKE39934,6
1050 FORI=39890TO39905:POKEI,0:NEXT
1060 F$="MITEYM/HES"
1070 GOTO1340
1080 PRINT:PRINT"[215]HAT IS THE SPEED OF YOUR MODEM?"
1090 PRINT"1. 300 BITS/SECOND"
1100 PRINT"2. 1200 BITS/SECOND"
1110 PRINT"3. 2400 BITS/SECOND"
1120 PRINT"[208]LEASE SELECT THE NUMBER CORRESPONDING"
1130 PRINT"TO YOUR MODEM SPEED: ";
1140 MS=PEEK(39934)/2-2
1150 MS=MS+48:PRINTCHR$(MS);"[157]";:POKE204,0
1160 POKE198,0
1170 GETB$:IFB$=CHR$(13)THENB$=CHR$(MS)
1180 IFB$=CHR$(134)THEN120
1190 B=VAL(B$):IF(B=0)+(B>3)THEN1170
1200 B=2*(B+2):POKE39934,B
1210 GOTO1340
1220 T=PEEK(39933)AND16:DT$=CHR$(82):IFT=16THENDT$=CHR$(84)
1230 PRINT:PRINT"[196]O YOU HAVE A [210]OTARY OR [212]OUCH-[212]ONE"
1240 PRINT"TELEPHONE SERVICE (R/T)? "
1250 PRINT"([201]F YOU ARE UNSURE, PLEASE USE 'R'.)"
1260 PRINT"[145][145][145]";DT$;"[157]";:POKE204,0
1270 POKE198,0
1280 GETB$
1290 IFB$=CHR$(13)THENB$=DT$
1300 IFB$=CHR$(134)THEN120
1310 IFB$=CHR$(82)THENPOKE39933,PEEK(39933)AND239:POKE39909,80:GOTO1340
1320 IFB$=CHR$(84)THENPOKE39933,PEEK(39933)OR16:POKE39909,84:GOTO1340
1330 GOTO1280
1340 POKE204,1
1350 PRINT"[147][208]LEASE ENTER THE [205]INITEL PHONE NUMBER"
1360 PRINT"NEAREST YOU (DO NOT ENTER AREA CODE FOR"
1370 PRINT"LOCAL CALLS):"
1380 PRINT
1390 PRINT"      [205][201][206][201][212][197][204][160][212][197][204][197][208][200][207][206][197][160][196][201][210][197][195][212][207][210][217]"
1400 PRINT"[204]OCATION                [206]UMBER"
1410 PRINT"[204]OADING PHONE NUMBERS..."
1420 PRINT"[213]SE [[195][213][210][211][207][210][160][213][208]] AND [[195][213][210][211][207][210][160][196][207][215][206]]"
1430 PRINT"TO REVIEW [205]INITEL PHONE NUMBERS."
1440 PRINT"[205]INITEL SUPPORTS 300 AND 1200 (2400 AT"
1450 PRINT"(*) LOCATIONS) BPS MODEMS."
1460 PRINT"[[211][212][207][208]] TO [209]UIT, [F3] FOR [208]REVIOUS [208]AGE[146]";
1470 PRINT""
1480 OPEN2,Z,2,"0:DAT.PHONES,S,R"
1490 I=0
1500 INPUT#2,PN$(I)
1510 I=I+1
1520 IF ST<>64 THEN 1500
1530 CLOSE2
1540 L=I-1
1550 FORI=0TO11:PRINTPN$(I):NEXT
1560 FORI=L+1TO191:PN$(I)=BL$:NEXT
1570 PRINT"";
1580 I=0
1590 J=PEEK(39910+I)
1600 IFJ=13THEN1630
1610 PRINTCHR$(J);
1620 I=I+1:GOTO1590
1630 POKE204,0
1640 POKE198,0
1650 GETB$
1660 IFB$=CHR$(134)THEN320
1670 IFB$=CHR$(13)THEN1840
1680 IF(B$=CHR$(44))OR(B$=CHR$(42))OR(B$=CHR$(35))THEN1730
1690 IFB$=CHR$(17)THEN1800
1700 IFB$=CHR$(145)THEN1820
1710 IFB$=CHR$(20)THEN1770
1720 IFB$<CHR$(48)ORB$>CHR$(57)THEN1650
1730 IFI=20THEN1650
1740 POKE204,1:PRINTB$;:POKE204,0
1750 POKE39910+I,ASC(B$)
1760 I=I+1:GOTO1650
1770 IFI=0THEN1650
1780 POKE204,1:PRINT" [157][157] [157]";:POKE204,0
1790 I=I-1:POKE39910+I,0:GOTO1650
1800 IFK<LTHENK=K+12
1810 GOSUB3250:GOTO1650
1820 IFK>0THENK=K-12
1830 GOSUB3250:GOTO1650
1840 POKE204,1
1850 POKE39910+I,13:POKE39911+I,0
1860 IF(PEEK(39933)AND15)<>8THEN1950
1870 PRINT"[196]OES YOUR PHONE # HAVE AN (*) (Y/N)? Y";"[157]";:POKE204,0
1880 POKE198,0
1890 GETB$
1900 IFB$=CHR$(13)THENB$=CHR$(89)
1910 IFB$=CHR$(134)THEN320
1920 IFB$=CHR$(78)THENPOKE39934,8:GOTO1950
1930 IFB$=CHR$(89)THEN1950
1940 GOTO1890
1950 POKE204,1
1960 PRINT"[147][215]HAT IS THE DEVICE ADDRESS OF YOUR"
1970 PRINT"PRINTER (4/5)?"
1980 PRINT"([201]F YOU DON'T HAVE A PRINTER OR ARE"
1990 PRINT"UNSURE OF THE ADDRESS, PRESS [[210][197][212][213][210][206]].)"
2000 PRINT"[[211][212][207][208]] TO [209]UIT, [F3] FOR [208]REVIOUS [208]AGE[146]";
2010 PRINT"";
2020 P=PEEK(39932)AND5:P=P+48
2030 PRINTCHR$(P);"[157]";:POKE204,0
2040 POKE198,0
2050 GETB$
2060 IFB$=CHR$(13)THENB$=CHR$(P)
2070 IFB$=CHR$(134)THEN1340
2080 B=VAL(B$):IF(B<4)+(B>5)THEN2050
2090 B=B-3
2100 ONBGOTO2110,2120
2110 POKE39932,4:GOTO2130
2120 POKE39932,5
2130 POKE204,1:PRINT"[147][201]F YOU HAVE A [205]INITEL USER [201][196],"
2140 PRINT"PLEASE ENTER IT HERE:"
2150 PRINT"([204]EAVE BLANK AND PRESS [[210][197][212][213][210][206]]"
2160 PRINT"IF YOU DON'T HAVE A USER [201][196] YET.)"
2170 PRINT"[[211][212][207][208]] TO [209]UIT, [F3] FOR [208]REVIOUS [208]AGE[146]";
2180 PRINT"";
2190 I=0
2200 J=PEEK(39875+I)
2210 IFJ=0THEN2250
2220 PRINTCHR$(J);
2230 I=I+1:IFI=5THEN2250
2240 GOTO2200
2250 POKE204,0
2260 POKE198,0
2270 GETB$
2280 IFB$=CHR$(134)THEN1950
2290 IFB$=CHR$(13)THEN2400
2300 IFB$=CHR$(20)THEN2370
2310 IFB$>CHR$(64)ANDB$<CHR$(91)THEN2340
2320 IFB$>CHR$(47)ANDB$<CHR$(58)THEN2340
2330 GOTO2270
2340 IFI=5THEN2270
2350 PRINTB$;:POKE39875+I,ASC(B$)
2360 I=I+1:GOTO2270
2370 IFI=0THEN2270
2380 POKE204,1:PRINT" [157][157] [157]";:POKE204,0
2390 I=I-1:POKE39875+I,0:GOTO2270
2400 IFPEEK(39875)=0THEN2810
2410 PRINT"[197]NTER YOUR [205]INITEL PASSWORD:"
2420 PRINT"[201]F, FOR SECURITY REASONS, YOU DO NOT"
2430 PRINT"WANT YOUR PASSWORD TO BE STORED IN"
2440 PRINT"YOUR COMPUTER SIMPLY PRESS [[210][197][212][213][210][206]]"
2450 PRINT"IN RESPONSE TO THIS PROMPT AND YOU"
2460 PRINT"WILL BE PROMPTED FOR THIS INFORMATION"
2470 PRINT"EACH TIME YOU CONNECT TO [205]INITEL."
2480 PRINT"";
2490 I=0
2500 J=PEEK(39882+I)
2510 IFJ=0THEN2560
2520 IFJ=19THEN2560
2530 PRINTCHR$(J);
2540 I=I+1:IFI=4THEN2560
2550 GOTO2500
2560 POKE198,0
2570 GETB$
2580 IFB$=CHR$(134)THEN1950
2590 IFB$=CHR$(13)THEN2700
2600 IFB$=CHR$(20)THEN2670
2610 IFB$>CHR$(64)ANDB$<CHR$(91)THEN2640
2620 IFB$>CHR$(47)ANDB$<CHR$(58)THEN2640
2630 GOTO2570
2640 IFI=4THEN2570
2650 PRINTB$;:POKE39882+I,ASC(B$):POKE39883+I,19:POKE39884+I,65:POKE39885+I,0
2660 I=I+1:GOTO2570
2670 IFI=0THEN2570
2680 POKE204,1:PRINT" [157][157] [157]";:POKE204,0
2690 I=I-1:POKE39882+I,19:POKE39883+I,65:POKE39884+I,0:GOTO2570
2700 J=PEEK(39882):IFJ=19THENPOKE39882,0
2710 POKE204,1:PRINT"[147][215][193][210][206][201][206][199]:"
2720 PRINT"[217]OUR USER [201][196] AND PASSWORD WILL BE"
2730 PRINT"COPIED TO A FILE NAMED CFG.DEFAULT."
2740 PRINT"[194]E SURE NOT TO GIVE ANYONE A COPY OF"
2750 PRINT"THIS FILE, SINCE THEY WOULD HAVE"
2760 PRINT"ACCESS TO YOUR [205]INITEL USER [201][196] AND"
2770 PRINT"[208]ASSWORD."
2780 PRINT"[[210][197][212][213][210][206]] TO [195]ONTINUE[146]";
2790 POKE198,0
2800 GETB$:IFB$<>CHR$(13)THEN2800
2810 POKE204,1:PRINT"[147][213]PDATING CONFIGURATION..."
2820 OPEN15,Z,15,"S0:CFG.DEFAULT"
2830 INPUT#15,A$,B$,C$,D$:CLOSE15
2840 IFA$="01"THEN2880
2850 PRINT
2860 PRINT""A$" "B$" "C$" "D$
2870 STOP
2880 OPEN1,Z,1,"0:CFG.DEFAULT"
2890 SYS50621:CLOSE1
2900 OPEN15,Z,15
2910 INPUT#15,A$,B$,C$,D$:CLOSE15
2920 IFA$="00"THEN2950
2930 PRINT""A$" "B$" "C$" "D$
2940 STOP
2950 F$="0:MTO."+F$:LOADF$,Z,1
2960 OPEN15,Z,15:INPUT#15,A$,B$,C$,D$:CLOSE15
2970 IFA$<>"00"THEN2850
2980 OPEN15,Z,15,"S0:FNT.MINITEL1B":INPUT#15,A$,B$,C$,D$:CLOSE15
2990 IFA$<>"01"THEN2850
3000 OPEN1,Z,1,"FNT.MINITEL1B":SYS36864:OPEN15,Z,15:INPUT#15,A$,B$,C$,D$
3010 CLOSE15:IFA$<>"00"THEN2850
3020 PRINT"[147][212]O LOAD AND RUN [205]INITEL/64 ENTER:"
3030 PRINT"[204][207][193][196]";CHR$(34);"0:*";CHR$(34);",8,1 [[210][197][212][213][210][206]]"
3040 PRINT"[215][193][210][206][201][206][199]: [212]HE [[211][200][201][198][212][160][204][207][195][203]] KEY ON THE"
3050 PRINT"COMPUTER KEYBOARD IS NOT USED AND"
3060 PRINT"SHOULD ALWAYS BE IN THE UP (UNLOCKED)"
3070 PRINT"POSITION DURING PROGRAM OPERATION."
3080 PRINT"[198]OR TECHNICAL DOCUMENTATION LOAD AND"
3090 PRINT"RUN PROGRAM [196]OCREADER AS FOLLOWS:"
3100 PRINT"[204][207][193][196]";CHR$(34);"0:[196][207][195][210][197][193][196][197][210]";CHR$(34);",8 [[210][197][212][213][210][206]]"
3110 PRINT"[210][213][206][160][[210][197][212][213][210][206]]"
3120 END
3130 POKE53280,6:POKE53281,6
3140 PRINTCHR$(14);CHR$(8);"[147]             [205] [201] [206] [201] [212] [197] [204]"
3150 PRINT"           [194]ROUGHT TO YOU BY"
3160 PRINT"        [205]INITEL [211]ERVICES [195]OMPANY"
3170 PRINT"        [199][197][212][212][201][206][199][160][211][212][193][210][212][197][196] [211]OFTWARE"
3180 PRINT"            64 [214]ERSION 1.01"
3190 PRINT"           [195]OPYRIGHT ([195]) 1989"
3200 PRINT"        [205]INITEL [211]ERVICES [195]OMPANY"
3210 PRINT"           [208]URCHASE, [206]EW [217]ORK"
3220 PRINT"          [193]LL [210]IGHTS [210]ESERVED"
3230 PRINT"               [204]OADING..."
3240 RETURN
3250 POKE204,1:N=PEEK(211):PRINT""
3260 FORP=KTOK+11:PRINTBL$:PRINT"[145]";PN$(P):NEXT
3270 PRINTLEFT$("",N+3);
3280 POKE204,0:RETURN