Loadstar 66/066.d81/setup

Commodore BASIC | 2022-08-26 | 9KB | 329 lines

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)
2