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