home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Go64!
/
Go64_1999-03_1999_CSW_Side_A.d64
/
nova.Data convrt
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
91 lines
10 poke45,peek(174):poke46,peek(175):clr
20 data300,1200,2400,4800,9600,19200,38400
30 data3408,851,425,4915,1090,459,3410,845,421
40 data3283,820,409,4735,1050,442,3285,814,406
50 dv=peek(186):q$=chr$(34):ifdv<8ordv>16thendv=8
60 dimp$(38),ph$(38),pw$(38),bd$(38),bd%(38),cg%(38),l8%(38),sc$(38),b%(17)
70 dimfc$(16),p(12),bd(6):open9,0:vn$="9.4":fori=0to6:readbd(i):next
80 forj=0topeek(678)
90 fori=0to8:readq:r2=int(q/256):r1=q-r2*256:b%(i*2)=r1:b%(i*2+1)=r2:next:next
100 d1=dv:d2=dv:d3=dv:d1$="0:":d2$="0:":d3$="0:":pn=4:ps=7:sw=0:c8=191:c9=15
110 c4=1:c7=27:xo=17:xf=19:xp=0:pa=0:ft=15:fc=32:sr=1:fk$="":ss$=""
120 print"[147][206]ovaterm config file converter"
130 print"([195]onverts older config files to v"vn$")":open15,dv,15
140 print"[197]nter old version number: [160][157]";:input#9,v$:print""
150 v=val(v$):ifv=0then440
160 vv$=mid$(str$(v),2):ifv=int(v)thenvv$=vv$+".0"
170 gosub610:ifv=0then140
180 ifv>9then260
190 ph=38:fori=1to38:ifbd$(i)=""then220
200 j=0:fork=0to6:ifval(bd$(i))=bd(k)thenj=k:k=6
210 next:bd%(i)=j
220 ifp$(i)=""thenph=i-1:i=38
230 next:ifbd<7then260
240 j=0:fori=0to6:ifbd=bd(i)thenj=i:i=6
250 next:bd=j
260 print"[211]aving...":ifpf$=""thenpf$="nova phone"
265 iffk$=""thenfk$="nova key"
270 open2,dv,2,"nova data "+vn$+",s,w":print#2,vn$
280 print#2,bd:print#2,di:print#2,d1
290 print#2,d2:print#2,q$d1$:print#2,q$d2$:print#2,d3:print#2,q$d3$
300 print#2,pn:print#2,ps:print#2,c1:print#2,c2:print#2,c3:print#2,c4
310 print#2,be:print#2,re:print#2,c7:print#2,c8:print#2,c9:print#2,xo:print#2,xf
320 print#2,xp:print#2,sw:print#2,ld:print#2,pa:print#2,ft:print#2,fc:print#2,sr
330 fori=0to17:print#2,b%(i):next
340 print#2,q$mi$:print#2,q$mo$:print#2,q$pt$:print#2,q$fo$:print#2,q$f8$
350 print#2,q$te$:print#2,q$as$:print#2,q$pf$:print#2,q$fk$:print#2,q$ss$:close2
360 ifph=0orv>=9then440
370 ifph<20then410
380 print#15,"s:"pf$"1":open2,dv,2,pf$+"1,s,w":print#2,ph-19
390 fori=20toph:print#2,q$p$(i):print#2,q$ph$(i):print#2,q$pw$(i):print#2,bd%(i)
400 print#2,cg%(i)+2*l8%(i):print#2,q$sc$(i):next:close2:ph=19
410 print#15,"s:"pf$:open2,dv,2,pf$+",s,w"
420 print#2,ph:fori=1toph:print#2,q$p$(i):print#2,q$ph$(i):print#2,q$pw$(i)
430 print#2,bd%(i):print#2,cg%(i)+2*l8%(i):print#2,q$sc$(i):next:close2
431 open2,dv,2,fk$+",s,w":fori=2to16:print#2,q$fc$(i):next:close2:goto560
440 ifv>=9.2then560
450 print"[197]nter phone book file: [160][157]";:input#9,pf$:print
460 ifpf$="[160]"then560
470 open2,dv,2,pf$:input#15,e:ife>19then550
480 input#2,ph:fori=1toph:input#2,p$(i),ph$(i),pw$(i),bd$(i)
490 input#2,cg%(i),l8%(i),sc$(i):ifval(bd$(i))<7thenbd%(i)=val(bd$(i)):goto520
500 fork=6to0step-1:ifval(bd$(i))>=bd(k)thenbd%(i)=k:k=0
510 next
520 next:close2:print#15,"s:"pf$:open2,dv,2,pf$+",s,w":print#2,ph
530 fori=1toph:print#2,q$p$(i):print#2,q$ph$(i):print#2,q$pw$(i):print#2,bd%(i)
540 print#2,cg%(i)+2*l8%(i):print#2,q$sc$(i):next
550 close2:goto440
560 print"[147]":ifpeek(6)<255thenend
570 open2,dv,0,"prog menu":input#15,e:close2:ife>19then590
580 load"prog menu",dv
590 open2,dv,0,"novaterm ?.?*":input#15,e:close2:ife>19thenend
600 load"novaterm ?.?*",dv,1
610 open2,dv,2,"nova data "+vv$:input#2,v$:ifv$<>vv$thenclose2:goto830
620 ifv>8.1then660
630 fori=1to20:input#2,p$(i),ph$(i),pw$(i),bd$(i),cg%(i):next
640 fori=2to16:input#2,fc$(i):next
650 input#2,bd,pr,s,w,h,c1,c2,c3,be,re,mi$,mo$,pt$,fo$,te$:close2:return
660 ifv>8.2then700
670 input#2,ph:fori=1toph:input#2,p$(i),ph$(i),pw$(i),bd$(i),cg%(i):next
680 fori=2to16:input#2,fc$(i):next
690 input#2,bd,pr,s,w,h,c1,c2,c3,be,re,mi$,mo$,pt$,fo$,te$:close2:return
700 ifv>9then740
710 fori=2to16:input#2,fc$(i):next
720 input#2,bd,pr,s,w,h,di,c1,c2,c3,be,re,rm,l8,mi$,mo$,pt$,fo$,f8$,te$,as$,pf$
730 close2:return
740 ifv>9.1then780
750 fori=2to16:input#2,fc$(i):next
760 input#2,bd,di,d1,d2,d1$,d2$,c1,c2,c3,be,re,rm,c8,c9,xo,xf,sw
770 input#2,mi$,mo$,pt$,fo$,f8$,te$,as$,pf$:close2:return
780 ifv>9.2then830
790 fori=2to16:input#2,fc$(i):next
800 input#2,bd,di,d1,d2,d1$,d2$,d3,d3$,pn,ps,c1,c2,c3,be,re,c8,c9,xo,xf,sw,pa
810 input#2,ft,fc,sr:fori=0to17:input#2,b%(i):next
820 input#2,mi$,mo$,pt$,fo$,f8$,te$,as$,pf$:close2:return
830 ifv>9.3then880
840 fori=2to16:input#2,fc$(i):next
850 input#2,bd,di,d1,d2,d1$,d2$,d3,d3$,pn,ps,c1,c2,c3,be,re,c8,c9,xo,xf,xp,sw
860 input#2,pa,ft,fc,sr:fori=0to17:input#2,b%(i):next
870 input#2,mi$,mo$,pt$,fo$,f8$,te$,as$,pf$:close2:return
880 print"[214]ersion number does not match":v=0:return