start tok64 d64-LY7dte 0 REM*********************************** 1 REM************trav ranking*********** 2 REM***************841229************** 3 REM*********************************** 4 REM programmet [r skrivet av stefan 5 REM bergstr{pound}m ]kerv[gen 7 6 REM 813 00 hofors 7 REM distribuerat via etern av datorernas 8 REM datorernas v[rld sveriges radio 9 DIMrp(20,20),c(20),a$(20,20),b(20) 10 PRINT"{clear}"TAB(14)"{down*2}{reverse on}trav-ranking{reverse off}" 20 PRINTTAB(13)"{down*3}ett program av" 30 PRINTTAB(12)"{down}stefan bergstr{pound}m" 40 PRINTTAB(3)"{down*5}i programmet beh{pound}vs div. uppgifter" 50 PRINTTAB(5)"{down}som med f{pound}rdel kan h[mtas fr]n" 60 PRINTTAB(10)"{down}{reverse on}atg:s gratis program{reverse off}" 70 PRINTTAB(14)"{down*3}tryck return" 80 GETqw$:IFqw$=""THEN80 90 GOTO15000 999 INPUT"{clear}{right*4}hur m]nga lopp vill du ranka";a 1005 FORb=1TOa 1010 PRINT"{clear}{down*2}{right*2}hur m]nga h[star [r det i lopp"b 1020 INPUT"{up}{right*35}";c(b) 1030 FORd=1TOc(b) 1035 PRINT"{clear}{right*7}namn p] h[st"d"i lopp"b 1037 INPUT"{up}{right*31}";a$(b,d) 1040 PRINT"{clear}{down}{right*2}skriv in de 3 senaste placeringarna" 1041 PRINT"{down}" 1042 hj$="f{pound}r "+a$(b,d):hj=40-LEN(hj$) 1043 FORjh=1TOINT(hj/2):PRINT"{right}";:NEXT 1048 PRINThj$ 1049 PRINT"{down}" 1050 FORe=1TO3:PRINT"{right*17}";e:INPUT"{up}{right*19}";f 1060 IFf=0ORf>=4THENf=10000 1070 IFf=2THENf=10 1080 IFf=3THENf=100 1090 g=g+f 1100 NEXT 1110 IFg=3THENrp(b,d)=29 1120 IFg=12THENrp(b,d)=24 1125 IFg=102THENrp(b,d)=22 1130 IFg=1002THENrp(b,d)=21 1140 IFg=10002THENrp(b,d)=20 1150 IFg=21THENrp(b,d)=19 1160 IFg=111THENrp(b,d)=18 1170 IFg=1011THENrp(b,d)=17 1180 IFg=10011THENrp(b,d)=16 1190 IFg=201THENrp(b,d)=15 1200 IFg=1101THENrp(b,d)=14 1210 IFg=10101THENrp(b,d)=13 1220 IFg=20001THENrp(b,d)=12 1230 IFg=30THENrp(b,d)=16 1240 IFg=120THENrp(b,d)=14 1250 IFg=1020THENrp(b,d)=13 1260 IFg=10020THENrp(b,d)=11 1270 IFg=210THENrp(b,d)=10 1280 IFg=1110THENrp(b,d)=9 1290 IFg=10110THENrp(b,d)=6 1300 IFg=20010THENrp(b,d)=4 1310 IFg=300THENrp(b,d)=4 1350 g=0 1400 ONdGOTO1410,1420,1430,1440,1440,1460,1460,1480,1480,1500,1500,1500,1500,1500 1405 IFd=15THEN1560 1410 rp(b,d)=rp(b,d)+31:GOTO1600 1420 rp(b,d)=rp(b,d)+26:GOTO1600 1430 rp(b,d)=rp(b,d)+21:GOTO1600 1440 rp(b,d)=rp(b,d)+18:GOTO1600 1460 rp(b,d)=rp(b,d)+22:GOTO1600 1480 rp(b,d)=rp(b,d)+14:GOTO1600 1500 rp(b,d)=rp(b,d)+10:GOTO1600 1560 rp(b,d)=rp(b,d)+5 1600 PRINT"{clear}{right*5}skriv in de 3 senaste oddsen " 1601 PRINT"{down}" 1602 hj$="f{pound}r "+a$(b,d):hj=40-LEN(hj$) 1603 FORjh=1TOINT(hj/2):PRINT"{right}";:NEXT 1604 PRINThj$ 1605 PRINT"{down}" 1610 FORq=1TO3:PRINT"{right*18}";q:INPUT"{up}{right*20}";w 1611 IFw=0THENw=250 1612 p=p+w 1615 NEXT:x=p/3 1617 IFx=0THEN1800 1620 IFx<18THENrp(b,d)=rp(b,d)+31:GOTO1800 1630 IFx<26THENrp(b,d)=rp(b,d)+26:GOTO1800 1640 IFx<31THENrp(b,d)=rp(b,d)+23:GOTO1800 1650 IFx<36THENrp(b,d)=rp(b,d)+21:GOTO1800 1660 IFx<51THENrp(b,d)=rp(b,d)+19:GOTO1800 1670 IFx<81THENrp(b,d)=rp(b,d)+16:GOTO1800 1680 IFx<121THENrp(b,d)=rp(b,d)+13:GOTO1800 1690 IFx<161THENrp(b,d)=rp(b,d)+11:GOTO1800 1700 IFx<201THENrp(b,d)=rp(b,d)+9:GOTO1800 1710 rp(b,d)=rp(b,d)+5 1800 x=0:p=0:NEXT:NEXT 1900 PRINT"{clear}{down*2}{right*6}{reverse on}sorterar tar n]gra sekunder{reverse off}" 2000 FORb=1TOa 2010 FORxx=1TOc(b)-1 2020 FORzz=1+xxTOc(b) 2030 IFrp(b,xx)>=rp(b,zz)THEN2070 2040 qq=rp(b,xx):b$=a$(b,xx) 2050 rp(b,xx)=rp(b,zz):a$(b,xx)=a$(b,zz) 2060 rp(b,zz)=qq:a$(b,zz)=b$ 2070 NEXT 2080 NEXT 2090 NEXT 2100 GOTO15000 13998 IFrp(1,1)=0THENPRINT"{clear}{right*3}{down*3}uppgifter saknas v[lj inmatning":ty=9 13999 IFty=9THENty=0:FORgh=1TO2000:NEXT:GOTO15000 14000 FORb=1TOa:PRINT"{clear}":PRINT"{down}{right*17}{reverse on}lopp"b"{reverse off}":PRINT"{down*2}" 14001 FORd=1TOc(b):PRINT"{right}";a$(b,d) 14002 PRINT"{up}{right*25}fick"rp(b,d)"po[ng" 14007 NEXT 14008 PRINT"{home}{down*23}{right*30}{reverse on}return{reverse off}" 14009 GETwe$:IFwe$=""THEN14009 14010 PRINT"{clear}":NEXT 15000 PRINT"{clear}{down}{right*18}{reverse on}meny{reverse off}" 15001 PRINT"{down*3} 1:utskrift av ranking tabell" 15005 PRINT"{down} 2:inmatning av uppgifter fr]n program" 15006 PRINT"{down} 3:utskrift av l[mpligt system" 15007 PRINT"{down} 4:lagra inmatade uppgifter p] band" 15008 PRINT"{down} 5:h[mta lagrade uppgifter fr]n band" 15010 PRINT"{down} 6:avsluta" 15020 GETrt$:IFrt$=""THEN15020 15030 IFrt$="6"THEN15040 15031 IFrt$="2"THEN999 15032 IFrt$="3"THEN16000 15033 IFrt$="1"THEN13998 15034 IFrt$="4"THEN17000 15035 IFrt$="5"THEN18000 15036 PRINT"{home}{down*22}{right*2}v[lj g[rna en siffra mellan 1 och 6" 15037 GOTO15020 15040 PRINT"{clear}{down*3}{right*2}tack och adj{pound} fr]n stefan bergstr{pound}m":END 16000 IFa<>6ANDa<>5THENPRINT"{clear}{right*2}jag kan endast skriva ut system f{pound}r":GOTO16002 16001 GOTO16003 16002 PRINT"{down}{right*14}v-65 och v-5":FORft=1TO2500:NEXT:GOTO15000 16003 PRINT"{clear}{right*10}vad f]r det kosta" 16004 INPUT"{up}{right*29}";ko 16005 DEFFNa(x)=x*.6+2.5 16006 PRINT"{clear}{down*2}tillverkar l[mpligt system, tar en stund" 16010 n=1:tr=0:FORw=1TO6:kl(w)=0:NEXT:hj=0:hu=0 16020 FORb=1TOa:FORd=1TOc(b) 16030 IFrp(b,1)-rp(b,d)koTHENn=n-1:hu=2:GOTO16020 16090 IFko-FNa(hj)>5THENn=n+1:GOTO16020 16100 PRINT"{clear}{right*13}{reverse on}system f{pound}rslag{reverse off}":FORth=1TO500:NEXT 16110 FORb=1TOa:PRINT"{clear}{right*17}{reverse on}lopp"b:PRINT"{reverse off}":FORd=1TOkl(b) 16111 gt=LEN(a$(b,d)):FORtg=1TO(40-gt)/2:PRINT"{right}";:NEXT 16120 PRINTa$(b,d) 16130 NEXT 16135 PRINT"{home}{down*17}{right*30}{reverse on}return{reverse off}" 16136 GETwr$:IFwr$=""THEN16136 16140 PRINT"{home}":NEXT 16150 PRINT"{clear}{right*9}det kostar"FNa(hj)"kronor" 16170 PRINT"{down*2}{right*9}]ter till meny tryck m" 16180 GETdf$:IFdf$="m"THEN15000 16190 GOTO16180 16200 GOTO15000 17000 PRINT"{clear}{down*2}{right}spola fram bandet till l[mpligt st[lle" 17010 PRINT"{down*2}{right*8}tryck sedan p] en tagent" 17020 GETdt$:IFdt$=""THEN17020 17030 OPEN1,1,1,"travdata" 17035 PRINT#1,a 17036 FORb=1TOa:PRINT#1,c(b):NEXT 17040 FORb=1TOa:FORd=1TOc(b) 17050 PRINT#1,a$(b,d):PRINT#1,rp(b,d) 17060 NEXT:NEXT 17070 CLOSE1 17080 PRINT"{down*2}{right*8}lagringen [r nu avslutad":FORwk=1TO2000:NEXT:GOTO15000 18000 PRINT"{clear}{down*2}{right*3}spola fram bandet till det st[lle":CLR 18010 PRINT"{down*2}{right*3}st[lle d[r du lagrade uppgifterna" 18020 PRINT"{down*2}{right*8}tryck sedan p] en tangent" 18030 GETdt$:IFdt$=""THEN18030 18040 OPEN1,1,0,"travdata" 18050 INPUT#1,a 18060 FORb=1TOa:INPUT#1,c(b):NEXT 18070 FORb=1TOa:FORd=1TOc(b) 18080 INPUT#1,a$(b,d),rp(b,d) 18090 NEXT:NEXT 18100 CLOSE1 18110 PRINT"{down*2}{right*8}alla data [r nu h[mtade":FORwg=1TO2000:NEXT:GOTO15000 20000 REM har du sj[lv ett program som 20001 REM s] skicka det (p] kasett) till 20002 REM datorernas v[rld 20003 REM sveriges radio 20004 REM 105 10 stockholm 20005 REM 20006 REM programmet m]ste vara skrivet 20007 REM av dig sj[lv. om du kopierar 20008 REM komersiella program eller 20009 REM program ur b{pound}cker och 20010 REM tidningar kan du st[llas till 20011 REM svars f{pound}r brott mot upphovs- 20012 REM r[tten. stop tok64 (bastext 1.0)