start tok64 d64-XpoYpl
0 REM"{141}{142}{ct h}{up}sys pd- resultatsma{up}{left}R{down}staren{141}{cm y*6}{space*2}(c) 1991 mr.p. & softwolves
1 REM"{141}{up}{space*8}{cm y*31}
10 DIMa(21),a$(21)
20 s=.:PRINT"{clear}{down}{right}{142}{ct h}resultatma{up}{left}R{down}staren (c) 1991 mr.p.
30 PRINT"{down}? ger hja{up}{left}R{down}lp.
32 a$="":INPUT"{light blue}kom/namn{space*2}";a$:h=.:m=.:sk=.:l$="":IFa$=""THEN32
34 IFa$="?"THEN1000
35 IFLEFT$(a$,1)="-"THEN2000
36 IFa$="/"THEN3000
37 IFa$="*"THEN111
38 IFa$="@"THEN9990
39 INPUT"land{space*6}";l$:IFLEN(l$)<>3THENPRINT"{white}";:GOTO39
40 INPUT"{light blue}timmar{space*4}";h
50 INPUT"{light blue}minuter{space*3}";m
60 INPUT"{light blue}sekunder{space*2}";sk
70 a(s+1)=h*3600+m*60+sk:a$(s+1)=LEFT$(a$+"{space*20}",21)+"("+l$+")
80 s=s+1:IFs=1THEN111
90 FORi=1TOs-1:FORj=i+1TOs:IFa(i)<a(j)THEN110
91 IFa(j)=-1THEN110
100 x=a(i):a(i)=a(j):a(j)=x:x$=a$(i):a$(i)=a$(j):a$(j)=x$
110 NEXT:NEXT
111 PRINT"{clear}{light blue}plac.namn"TAB(25)"land{space*2}tid
112 PRINT"{cm y*39}
120 h=INT(a(1)/3600):sk=a(1)-h*3600:m=INT(sk/60):sk=sk-m*60:PRINT" {white}1. {light blue}"a$(1);
121 PRINTTAB(31)MID$(STR$(100+h),3)":"MID$(STR$(100+m),3)":"MID$(STR$(100+sk),3)
122 PRINT" {white}{cm y*2} {light blue}{cm y*26} {cm y*8}
123 FORi=2TO15:PRINTi"{left}."TAB(4)a$(i)TAB(30)"+";:sk=a(i)-a(1):h=INT(sk/3600)
130 sk=sk-h*3600:m=INT(sk/60):sk=sk-m*60
131 IFh<.THENPRINTCHR$(20):NEXT:GOTO160
133 IFa(i)-a(i-1)=.THENPRINT:PRINT"{up}{space*4}"TAB(31);
135 IFh>.THENPRINTMID$(STR$(100+h),3)":";
140 IFm+h>.THENPRINTTAB(34)MID$(STR$(100+m),3);
150 PRINTTAB(36)":"MID$(STR$(100+sk),3):NEXT:PRINT:PRINT
160 s=s+(s=21)+(LEFT$(a$,1)="-"):GOTO30
1000 PRINT"kommandon: {white}-x{light blue} tar bort plats nr x i{space*5}{cm y*10}{space*4}listan
1010 PRINT"{space*11}{white}/{light blue}{space*2}ger resultatlista med
1020 PRINT"{sh space}{space*13}inviduella tider
1030 PRINT"{space*11}{white}*{light blue}{space*2}ger resultatlista med
1040 PRINT"{sh space}{space*13}relativa tider
1050 PRINT"{space*11}{white}@{light blue}{space*2}rakna ut hastighet
1999 GOTO32
2000 q=VAL(MID$(a$,2)):a$(q)=a$(s):a(q)=a(s):a$(s)="":a(s)=-1:GOTO90
3000 PRINT"{clear}";:FORi=1TOs:PRINTi"{left}."TAB(4)a$(i)TAB(31):h=INT(a(i)/3600)
3010 h=INT(a(i)/3600):sk=a(i)-h*3600:m=INT(sk/60):sk=sk-m*60
3020 PRINTMID$(STR$(100+h),3)":"MID$(STR$(m+100),3)":"MID$(STR$(100+sk),3)
3025 IFa(i)-a(i-1)=.THENPRINT"{up}{space*4}"
3030 NEXT
3040 PRINT"{down}tryck >":POKE198,.:WAIT198,1:POKE198,.:GOTO32
9990 INPUT"km{space*5}";km
9991 INPUT"h,min,s";hr,mn,sk
9992 kp=km/((hr*3600+mn*60+sk)/3600)
9993 kp=INT(kp*100+.5)/100
9994 PRINTkp"km/h
9995 PRINT:GOTO32
stop tok64
(bastext 1.0)