home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 52
/
052.d81
/
bikegear
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
5KB
|
150 lines
50 poke53281,1
60 print"[147][208]lease wait..."
105 dimx,y,t,q,p,a,b,d,s,f,l,k,g,e,c,t$,g$,h$,a$,b$
110 dimb$(25),c$(22),f(13),g(21),e$(9),d$(9),i$(1)
115 dima(24),b(24),c(24),e(20,1),v$(25),j$(13):poke53280,3
135 o=54272:h=.002975:k=999:r$=chr$(13)
140 forx=1to33:b$=b$+" ":next:i$(0)="[144]":i$(1)=""
145 v$(0)="[147][144] [196]ata [195]w/[195]g"
150 v$(0)=v$(0)+" [199]ear [204]o-[205][208][200]-[200]i "
155 t$=" [165] [221] [221]"
160 t$=t$+" [221] [167]"
165 k$=mid$(t$,10):forx=1to21:v$(x)=t$:next
170 t$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
175 v$(22)=" "+t$:v$(23)="[163][163][163][163][163]"+t$+""
180 forx=0to4:reade$(x):next:forx=0to4:readd$(x):next
185 forx=1to14:e(x,0)=10:e(x,1)=99:next:e(14,1)=k
190 e(16,1)=100:e(18,1)=k:e(20,0)=10:e(18,0)=10:e(20,1)=k
195 f(5)=100:f(13)=100:forx=0to78:u$=u$+"[192]":next
200 readb$(0),b$(1):forx=13to21:readb$(x):next
205 forx=0to5:readf$(x):next:n$=" n/a"
210 u=1:g=0:forx=2to12:b$(x)="* ":next
215 b$(5)="[195]og[144]":goto335
220 print"[144][215]orking[146]":k=val(b$(20))/10
225 ifk>36thenk=k*.3937
230 l=val(b$(18)):ifl>250thenl=l*.254
235 l=170/l:b=1:d=5:a=0:forx=2to4:f(x)=100
240 ifval(b$(x))thenf(x)=val(b$(x)):b=b+1
245 b$(x)="* ":next:onbgoto285:forx=2to4:fory=xto4
250 iff(x)>f(y)thent=f(y):f(y)=f(x):f(x)=t
255 nexty,x:forx=2tob:b$(x)=right$(str$(f(x)),2):next
260 forx=6to12:f(x)=100
265 ifval(b$(x))thenf(x)=val(b$(x)):d=d+1
270 b$(x)="* ":next:on-(d=5)goto285:forx=6to12
275 fory=xto12:iff(x)>f(y)thent=f(y):f(y)=f(x):f(x)=t
280 nexty,x:forx=6tod:b$(x)=right$(str$(f(x)),2):next
285 g=(b-1)*(d-5):on-(g=0)goto335:forx=2tob
290 fory=dto6step-1:g(a)=(f(x)/f(y))*k
295 c$(a)=b$(x)+"/"+b$(y):a=a+1:nexty,x:a=a-1
300 forx=0toa:fory=xtoa:ifg(x)=<g(y)then310
305 t=g(y):g(y)=g(x):g(x)=t:t$=c$(y):c$(y)=c$(x):c$(x)=t$
310 nexty,x:x=val(b$(14)):y=val(b$(16))/100
315 s=(x-x*y)*h:f=(x+x*y)*h:x=not(f*g(a)>99orl*g(a)>999)
320 g=g*(-x):on-(g=0)goto335:forx=0toa:t=g(x)
325 a(x)=int(.5+l*t*10)/10:b(x)=int(.5+s*t*10)/10
330 c(x)=int(.5+f*t*10)/10:next
335 ifuthenu=0:onj+1goto600,345,700,515
340 onj+1goto615,350
345 p=0:n=5:e=8:forx=0to22:printv$(x):next
350 x=0:print" ":ifg=0then375
355 forx=0toa:printtab(5)"[144]"b$(x+1)i$(-p)tab(10);
360 printc$(x)" [145]"r$tab(16);
365 printa(x)tab(25)b(x)tab(32);:iff-sthenprintc(x);
370 print:p=notp:next:ifx>19then380
375 forx=xto20:print"[144]"tab(5)b$(x+1)tab(9)k$:next
380 v=0:p=0:print"[144]"
385 z=n-(j=3):poke211,z
390 w=peek(214)-2:x=peek(209)+256*peek(210)
395 ifasc(b$(w))<>31then405
400 printchr$(17*-(t<>145)-145*(t=145));:goto390
405 poke213,e:c=peek(211):ifc=ethenc=c-1:poke211,c
410 m=x+c:pokem,peek(m)or128:wait198,1
415 t=peek(631):poke198,0:pokem,peek(m)and127
416 if t=asc("[171]")then 1100
420 ift>132andt<138thenifc=zthenx=t-133:print:goto495
425 on-(t=13)goto450:ift=145thenifw<3orc>zthen410
430 ift=17and((w>19orw=0)orc>z)ort=148andw>0then410
435 on-(t=19ort=147)goto410:ift=34thent=39
440 ift=29andc=eor(t=20ort=157)andc=zthen410
445 printchr$(t);:on1-(t=17ort=145)goto405,385
450 poke211,n:poke213,e:poke631,13:poke198,1
455 open1,0:input#1,a$:close1:print
460 on-(w=0)goto525:ifb$(w)="* "then470
465 ifleft$(a$,1)="*"andw<13thenb$(w)="*":v=1:goto510
470 forx=1tolen(a$)
475 t$=mid$(a$,x,1):ift$<"0"andt$<>" "ort$>"9"then510
480 next:ifval(a$)<e(w,0)orval(a$)>e(w,1)then510
485 ifval(b$(w))<>val(a$)thenb$(w)=a$:v=1
490 w=w+1:on-(w<>13andw<>21)goto385:print"[145][145]":goto385
495 poke213,79:u=-(x<>j):ifu+v=0then510
500 on-(v=0and((x=2orx=3)andg=0))goto510:ifx=4then210
505 i=j:j=x:onvgoto220:onx+1goto600,345,700,515
510 print"[145]"tab(n)" [157][157][157][157]"b$(w)"[145]":goto385
515 p=0:n=14:e=78:t$=chr$(34)+chr$(34)+chr$(20)+i$(0)
520 print"[147][195]urrent label:[159]"t$f$"";:goto385
525 open15,4,15:close15:if st<>0 then 2000
526 open4,4,7:cmd4:printa$r$:ifa$>""thenf$=a$
530 print"[196]ata[221][195]w/[195]g[221] [199]ear [221] [204]o-[205][208][200]-[200]i [221]51[207]verlap"
535 printu$:forx=0toa:v=g(0)*s
540 q=g(a)*f:t=g(x):z=b(x):w=c(x)
545 print" "b$(x+1)"04[221]"c$(x)"10[221]";
550 printa(x)"18[221]"b(x);:t=274/abs(q-v)
555 ifs<fthenprint"26"c(x)"32[221]";
560 q=int(200+(t*(z-v))):v=-(q>255):q=q-255*v
565 print""chr$(v)chr$(q);:fory=0toint(t*(w-z))
570 printchr$(156);:next:print"":next
575 ifa<20thenforx=a+2to21:print" "b$(x);: print"04[221]10[221]18[221]32[221]":next
585 printu$:t$="":r=1:goto705
590 v=35-(((b*2))*(d>6orb>2)):forv=vto66
595 print#4:next:close4:v=0:r=0:j=i:u=1:goto335
600 p=0:n=0:e=3:print"[147][144]"tab(19)"[207]verlap"
605 printtab(6)"<"tab(21)"[205][208][200]"tab(38)">"
610 forx=1to21:printtab(5)"[221]":next:printv$(23)
615 x=0:print" "r$tab(7)" "tab(32)" [145]"
620 ifg=0thenprint"":goto690
625 printtab(7)b(0)tab(33)c(a)""
630 ifg=1thenifs=fthenprint:printtab(21)"*":goto380
635 y=g(0)*s:q=g(a)*f:t=(q-y)/33:forx=0toa:g$=b$:h$=b$
640 a$=""+b$:z=(g(x)*s-y)/t:c=(g(x)*f-y)/t
645 ifc<28thenh$=c$(x)+h$:goto660
650 ifz>5theng$=g$+c$(x):goto660
655 a$=""+c$(x)+b$
660 t$=right$(g$,z+(z=33))
665 if(c-z<=1)thent$=t$+"*":goto680
670 t$=t$+d$((.125+z-int(z))*4)+left$(a$,int(c)-int(z))
675 t$=t$+"[146]"+e$((.125+c-int(c))*4)
680 t$=left$(t$+h$,41)
685 print"[144]"b$(x+1)i$(-p)tab(6)t$:p=notp:next
690 ifx<20thenforx=xto20:print"[144]"b$(x+1)tab(6)b$:next
695 goto380
700 p=0:print"[147]":t$=""
705 forx=2tod:j$(x)=mid$(str$(f(x+1)-f(x)),2):next
710 printf$(0);:ifb=2thenprintn$t$r$f$(1)n$t$:goto725
715 forx=2tob-1:printj$(x);:ifx<b-1thenprint",";
720 next:printt$:t=f(b)-f(2):printf$(1)t"[212]"t$
725 printf$(2);:ifd=6thenprintn$t$r$f$(3)n$t$:goto740
730 forx=6tod-1:printj$(x);:ifx<d-1thenprint",";
735 next:printt$r$f$(3)f(d)"[212]"t$
740 printf$(4);:ifb=2andd=6thenprintn$t$:goto750
745 print((f(b)-f(2))+(f(d)-f(6)))"[212]"
750 ifrthenprintu$
755 printr$f$(5);:ifb=2andd=6thenprintn$;:goto785
760 printr$r$" ";:forx=dto6step-1:print" "b$(x);
765 next:forx=2tob:printr$r$" "b$(x)" ";
770 fory=dto6step-1:g$=b$(x)+"/"+b$(y):z=0
775 ifc$(z)<>g$thenz=z+1:goto775
780 printright$(str$(z+1)+" ",4);:nexty,x
785 onrgoto590:printr$"[208]ress any key to go on.";
790 poke198,0:wait198,1:t=peek(631):poke198,0:ift=asc("[171]") then 1100
791 j=i:u=1:goto335
795 data"","[180]","[161]","[170][146]"," [146]"
800 data" [146]","[180][146]","[182]","[170]"," "
805 data"[157]","[195]wl[144]","[195]ad[144]","72 ","[214]ar[144]"
810 data"10 ","[195]rk[144]","170","[215]hl[144]","270"," "
815 data"[195]hainwheel jumps: ","[198]ront derailleur capacity:"
820 data"[195]ogset jumps: ","[210]ear derailleur capacity:"
825 data"[212]akeup requirement:","[211]hift sequence:"
1100 print"[147]":open15,8,15,"r0:hello connect=hello connect":input#15,er,er$:close15
1110 ifer<>63 then print"[147]":end
1111 load"hello connect",8,1