1 IF PEEK(49152)<> 76 THEN SYS57812"CC49152",8,1:POKE780,0:SYS65493
5 PRINTCHR$(8);CHR$(142)
10 FL=855:MT=65536*256:DB=1:SF=879:FS=1
11 RT=843:MZ=5:TE(0)=50:TE(1)=50
20 POKE SF,0:REM RENNEN NICHT AKTIV SETZEN (STOPFLAG)
25 J=49152:SYS J:REM TIMER UND IRQ INITIALISIEREN
26 C=J+30
29 L$="                                        "
30 L1$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
31 L2$="[194][157]":T$=L2$:L2$=T$+T$:L2$=L2$+L2$+L2$+L2$+L2$:L2$=L2$+L2$+T$+T$
40 DIM T(4)
41 DIM BT(4)
42 DIM R(4) :REM RUNDENZEITEN
50 MO$(0)="TRAINING     ":MO$(1)="EINZELFAHRER":MO$(2)="TEAM (NORMAL)"
51 MO$(3)="TEAM (RUGBY)"
52 F$(0)="FAHRER 1":F$(1)="FAHRER 2":F$(2)="FAHRER 3":F$(3)="FAHRER 4"
54 MR(0)=25:MR(1)=25:MR(2)=25:MR(3)=25
99 GOSUB4010
100 REM MAIN
110 POKE646,15:PRINTCHR$(147):PRINT"          - CARRERA COUNT V1.0B -"
111 PRINT"----------------------------------------"
120 PRINT"    F1 - SETUP (DATEN EINGEBEN)"
130 PRINT"    F7 - ZAEHLER (RENNEN STARTEN)"
140 PRINT"    F3 - RENNMODUS: "MO$(MO)
170 PRINT"     Q - QUIT"
175 PRINT"----- (C) 1999 BY PETER STEINMEYER -----"
180 GETK$
182 IF K$="[136]"THEN GOSUB500:GOTO100
184 IF K$="Q"ORK$=CHR$(3)THEN SYSJ+18:PRINT"[147]CIAO ..":PRINTCHR$(9):END
186 IFK$="[133]"THEN GOSUB5000:GOTO100
188 IF K$="[134]"THEN GOSUB400:GOTO180
190 GOTO 180
200 REM ZAEHLSCHLEIFE
210 FOR BA=0TO3:IFPEEK(FL+BA)=1THEN GOSUB2300:REM RUNDE GEFAHREN
220 NEXT:GOSUB1200
222 IF FW<>10 THEN GOSUB 2400:REM SIEG!
230 GETK$
231 IF K$="[133]"THEN BT(0)=MT
232 IF K$="[134]"THEN BT(1)=MT
233 IF K$="[135]"THEN BT(2)=MT
234 IF K$="[136]"THEN BT(3)=MT
235 IF K$="1"THEN FF=1:BA=0:GOSUB2300
236 IF K$="2"THEN FF=1:BA=1:GOSUB2300
237 IF K$="3"THEN FF=1:BA=2:GOSUB2300
238 IF K$="4"THEN FF=1:BA=3:GOSUB2300
240 IF K$="Q"ORK$=CHR$(3)THENPOKESF,0:RETURN
241 IF K$="S"THENRS=1:GOSUB300:GOTO200
242 IF K$="P"ORK$=" "THEN GOSUB 2600
249 IFFW<>10 THEN 230
250 GOTO200
299 REM
300 REM RENNEN STARTEN
310 SYSJ+3:POKESF,0:REM STROM AUS
352 GOSUB3000:REM BILDSCHIRM
354 GOSUB4000:REM VARIABLEN INIT
356 IFMO>0THEN GOSUB3800:REM COUNTDOWN
360 SYSJ+24:SYSJ+39:POKESF,1:SYSJ+6
370 RETURN
400 REM MODUS
402 MO=MO+1:IFMO=4THEN MO=0
404 SYSC,20,8:PRINTMO$(MO):RETURN
500 REM RENNEN
510 GOSUB 300
520 GOSUB 200
530 RETURN
999 END
1000 REM HOLT ZEIT FUER BA IN T1$
1010 T1=PEEK(RT+BA*3)+PEEK(RT+1+BA*3)*256+PEEK(RT+2+BA*3)*65536
1012 T2=INT(T1/6000):T2$=STR$(T2):T2$="00"+MID$(T2$,2)
1014 T3=T1-(T2*6000):T3=INT(T3/100):T3$=STR$(T3):T3$="00"+MID$(T3$,2)
1016 T4=T1-T2*6000-T3*100:T4$=STR$(T4):T4$="00"+MID$(T4$,2)
1018 T1$=RIGHT$(T2$,2)+CHR$(58)+RIGHT$(T3$,2)+"'"+RIGHT$(T4$,2)
1020 RETURN
1100 GETK$:IFK$=""THEN1100
1110 RETURN
1200 REM BESTE(R) DURCHSCHNITT / RUNDE
1205 SYS C,14,24:POKE646,15
1210 F=F+1:IF F>20THENF=-10
1220 IF F>0 THEN 1240
1225 BT=BT(0):I=0:POKE646,15
1230 FORT=1TO3:IFBT(T)<BTTHEN I=T:BT=BT(T)
1232 NEXT
1234 IF BT(I)<MTTHENPRINT"  BESTE RUNDE :";F$(I);
1236 RETURN
1240 IF F>10THEN1300
1242 D=D(0):I=0
1245 FORT=1TO3:IFD(T)<DTHEN I=T:D=D(T)
1248 NEXT
1250 IFD(I)<MTTHENPRINT"BESTER SCHNITT:";F$(I);
1290 RETURN
1300 PRINT"  MODUS: ";MO$(MO);"   ";
1310 RETURN
2300 REM ZAEHLEN
2302 IF FS=0ORMO=0THEN2310
2304 IF SF(BA)=1THENSF(BA)=0:POKEFL+BA,0:RETURN
2310 R(BA)=R(BA)+1:IFR(BA)=100THENR(BA)=0
2315 SYS J+36,R(BA),4+BA*9,5
2330 GOSUB1000
2332 IF FF=1THENGOTO2392
2335 SYSJ+33,BA
2340 SYS C,4+BA*9,15
2350 POKE646,1:PRINTT1$;
2360 POKE FL+BA,0:REM RUNDENFLAG LOE.
2370 IF T1<BT(BA)THENBT(BA)=T1:SYSC,4+9*BA,13:POKE646,15:PRINTT1$;
2375 GOSUB2800:REM RUNDENSCNITT
2380 IFMO=1THENGOSUB2900
2382 IFMO=2THENGOSUB2920
2384 IFMO=3THENGOSUB2950
2390 RETURN
2392 REM KEINE ZEITEN ERMITTELN
2394 FF=0:POKEFL+BA,0:RETURN
2400 REM ENDE DES RENNENS
2405 POKESF,0
2410 SYSJ+3
2420 SYSC,0,24:PRINT"                                       ";
2422 SYSC,0,24
2430 IF MO=1THENPRINT"DER SIEGER IST:"F$(FW);
2440 IF MO=2THENPRINT"GEWINNER : "F$(2*FW);" UND ";F$(2*FW+1);
2450 IF MO=3THENPRINT"GEWINNER : "F$(FW);" UND ";F$(FW+2);
2490 RETURN
2600 REM PAUSE
2605 IF PF=1 THEN 2650
2610 POKESF,0:SYSJ+3:
2620 SYS C,5,24:PRINT"--PAUSE--";
2630 PF=1:REM PAUSENFLAG
2640 RETURN
2650 PF=0:POKE SF,1:SYSJ+6
2690 RETURN
2800 REM RUNDENSCHNITT
2805 IFD(BA)=MTTHEND(BA)=0
2810 D(BA)=D(BA)+T1:IFR(BA)=0THEN2840
2820 T1=INT(D(BA)/R(BA)):GOSUB1012
2830 SYSC,4+BA*9,11:POKE646,15:PRINTT1$;
2840 RETURN
2900 IFR(BA)=MR(BA)THENFW=BA
2910 RETURN
2920 REM AUSW TEAM NORM
2925 TT(0)=R(0)+R(1):TT(1)=R(2)+R(3)
2928 IF TT(0)=TE(0)THENFW=0
2930 IF TT(1)=TE(1)THENFW=1
2932 POKE646,15:SYS C,4,1:PRINT"TEAM 1 RUNDEN:[157]";TT(0)
2934 POKE646,15:SYS C,22,1:PRINT"TEAM 2 RUNDEN:[157]";TT(1)
2949 RETURN
2950 REM AUSW TEAM RUG
2955 TT(0)=R(0)+R(2):TT(1)=R(1)+R(3)
2958 IF TT(0)=TE(0)THENFW=0
2960 IF TT(1)=TE(1)THENFW=1
2962 POKE646,15:SYS C,4,1:PRINT"TEAM 1 RUNDEN:[157]";TT(0)
2964 POKE646,15:SYS C,22,1:PRINT"TEAM 2 RUNDEN:[157]";TT(1)
2999 RETURN
3000 REM RENN-BILDSCHIRM AUFBAUEN
3005 POKE646,15:PRINT"[147]";:REM HINTERGRUND EINFAERBEN
3010 POKE646,14:PRINT"   [176]";L1$;"[174]";
3020 SYS C,3,1:PRINTL2$
3040 SYS C,21,0:PRINT"[178][157]";L2$;
3060 SYS C,39,1:PRINTL2$;
3070 PRINT"   [171]";L1$;"[179]";
3080 PRINT"   [194]";L1$;"[194]";
3090 SYS C,12,2:PRINT"[178][157]";LEFT$(L2$,61)
3100 SYS C,30,2:PRINT"[178][157]";LEFT$(L2$,61)
3110 SYSC,3,12:PRINT"[171]";L1$;"[179]";
3120 SYSC,3,23:PRINT"[173][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][189]";
3130 POKE646,1:PRINT"S[146][157]T[157]A[157]R[157]T[157] [157]";
3140 PRINT"Q[146][157]U[157]I[157]T[157] [157]";
3150 PRINT"P[146][157]A[157]U[157]S[157]E[157] [157]";
3180 SYSC,4,3:PRINTLEFT$(F$(0)+"        ",8)
3181 SYSC,13,3:PRINTLEFT$(F$(1)+"        ",8)
3182 SYSC,22,3:PRINTLEFT$(F$(2)+"        ",8)
3183 SYSC,31,3:PRINTLEFT$(F$(3)+"        ",8)
3190 POKE1125,91:POKE1205,66:POKE1525,91
3200 SYSC,0,24:PRINT"ZEIT:";:POKE 880,5:POKE881,24
3290 RETURN
3800 REM COUNTDOWN
3805 FOR T=10 TO 0 STEP-1
3806 WT=50:GOSUB3900
3810 FOR BA=0TO3
3820 SYS J+36,T,4+BA*9,5:REM ZAHL ANZEIGEN
3830 NEXT:NEXT
3890 RETURN
3900 REM WAIT WT=WARTEZEIT IN 1/100S
3910 TW=TI
3920 IF TI-TW<WTTHEN3920
3930 RETURN
4000 REM VARIABLEN INIT FUER RENNEN
4001 IF DB=0THEN4010:REM BESTZEITEN LOESCHEN?
4002 FOR I=0TO3:BT(I)=MT:D(BA)=MT:NEXT
4010 I=MZ*100:POKE860,I/256
4012 POKE859,I-(PEEK(860)*256)
4020 FW =10
4040 FORI=0TO3:D(I)=MT:SF(I)=1:R(I)=0:NEXT
4050 SF(4)=1
4070 FOR I=0TO1:POKE828,0:POKE829,0:POKE830,0:NEXT
4090 RETURN
5000 REM SETUP
5010 PRINT"[147]                   SETUP "
5020 PRINT"----------------------------------------"
5030 PRINT" -M-     MODUS:  ";MO$(MO)
5035 PRINT
5040 PRINT"  F1  NAME FAHRER BAHN 1: ";F$(0)
5041 PRINT"  F3  NAME FAHRER BAHN 2: ";F$(1)
5042 PRINT"  F5  NAME FAHRER BAHN 3: ";F$(2)
5043 PRINT"  F7  NAME FAHRER BAHN 4: ";F$(3)
5060 PRINT
5062 PRINT" -1- VORGABE BAHN 1: ";MR(0)
5064 PRINT" -2- VORGABE BAHN 2: ";MR(1)
5066 PRINT" -3- VORGABE BAHN 3: ";MR(2)
5068 PRINT" -4- VORGABE BAHN 4: ";MR(3)
5070 PRINT" -5- VORGABE TEAM 1: ";TE(0)
5072 PRINT" -6- VORGABE TEAM 2: ";TE(1)
5100 PRINT
5110 PRINT" -B- BESTZEITEN LOESCHEN: ";
5120 IF DB=0THEN PRINT"NEIN"
5122 IF DB=1THEN PRINT"JA  "
5130 PRINT" -Z- MINIMALE RUNDENZEIT";MZ;" SEC"
5135 PRINT" -F- FLIEGENDER START   : ";
5136 IF FS=0THEN PRINT"NEIN"
5137 IF FS=1THEN PRINT"JA  "
5190 PRINT" -Q-  HAUPTMENU"
5195 PRINT" -SHIFT- UND TASTE ZAEHLT HERAB !";
5500 GETK$
5510 IF K$="M"THENGOSUB6000
5525 IF K$="[133]"THEN GOSUB6100:GOTO5000
5530 IF K$="[134]"THEN GOSUB6200:GOTO5000
5535 IF K$="[135]"THEN GOSUB6300:GOTO5000
5540 IF K$="[136]"THEN GOSUB6400:GOTO5000
5545 IF K$="1"THEN GOSUB6500
5546 IF K$="!"THEN GOSUB6510
5550 IF K$="2"THEN GOSUB6520
5551 IF K$=CHR$(34)THENGOSUB6530
5555 IF K$="3"THEN GOSUB6540
5556 IF K$="#"THEN GOSUB6550
5560 IF K$="4"THEN GOSUB6560
5561 IF K$="$"THEN GOSUB6570
5565 IF K$="B"THENGOSUB6600
5567 IF K$="F"THENGOSUB7000
5570 IF K$="Z"THEN GOSUB6700
5572 IF K$="[218]"THEN GOSUB6750
5575 IFK$="5"THENGOSUB6800
5577 IFK$="%"THENGOSUB6850
5580 IFK$="6"THENGOSUB6900
5582 IFK$="&"THENGOSUB6950
5600 IF K$="Q"ORK$=CHR$(3)THEN RETURN
5610 GOTO5500
6000 REM MODUS
6010 MO=MO+1:IFMO=4THENMO=0
6020 SYSC,16,3:PRINTMO$(MO):RETURN
6100 SYS C,1,20:INPUT"FAHRERNAME:";F$:F$(0)=LEFT$(F$+"        ",8)
6105 SYSC,26,5:PRINTF$(0)
6110 SYS C,1,20:PRINTL$:RETURN
6200 SYS C,1,20:INPUT"FAHRERNAME:";F$:F$(1)=LEFT$(F$+"        ",8)
6205 SYSC,26,6:PRINTF$(1)
6210 SYS C,1,20:PRINTL$:RETURN
6300 SYS C,1,20:INPUT"FAHRERNAME:";F$:F$(2)=LEFT$(F$+"        ",8)
6305 SYSC,26,7:PRINTF$(2)
6310 SYS C,1,20:PRINTL$:RETURN
6400 SYS C,1,20:INPUT"FAHRERNAME:";F$:F$(3)=LEFT$(F$+"        ",8)
6405 SYSC,26,8:PRINTF$(3)
6410 SYS C,1,20:PRINTL$:RETURN
6500 MR(0)=MR(0)+1:IFMR(0)=100THENMR(0)=0
6505 SYS C,21,10:PRINTMR(0);"[157] ":RETURN
6510 MR(0)=MR(0)-1:IFMR(0)=-1THENMR(0)=99
6515 SYS C,21,10:PRINTMR(0);"[157] ":RETURN
6520 MR(1)=MR(1)+1:IFMR(1)=100THENMR(1)=0
6525 SYS C,21,11:PRINTMR(1);"[157] ":RETURN
6530 MR(1)=MR(1)-1:IFMR(1)=-1THENMR(1)=99
6535 SYS C,21,11:PRINTMR(1);"[157] ":RETURN
6540 MR(2)=MR(2)+1:IFMR(2)=100THENMR(2)=0
6545 SYS C,21,12:PRINTMR(2);"[157] ":RETURN
6550 MR(2)=MR(2)-1:IFMR(2)=-1THENMR(2)=99
6555 SYS C,21,12:PRINTMR(2);"[157] ":RETURN
6560 MR(3)=MR(3)+1:IFMR(3)=100THENMR(3)=0
6565 SYS C,21,13:PRINTMR(3);"[157] ":RETURN
6570 MR(3)=MR(3)-1:IFMR(3)=-1THENMR(3)=99
6575 SYS C,21,13:PRINTMR(3);"[157] ":RETURN
6600 IF DB=0THENDB=1:SYSC,26,17:PRINT"JA  ":RETURN
6610 DB=0:SYSC,26,17:PRINT"NEIN":RETURN
6700 REM MINIMALE RUNDENZEIT
6710 MZ=MZ+1:IFMZ>30THENMZ=3
6720 SYSC,24,18:PRINTMZ;"[157] ":RETURN
6750 MZ=MZ-1:IFMZ<3THENMZ=30
6760 SYSC,24,18:PRINTMZ;"[157] ":RETURN
6800 REM TEAM1 VORGABE
6810 TE(0)=TE(0)+10:IFTE(0)>150THENTE(0)=10
6820 SYSC,21,14:PRINTTE(0);"[157] ":RETURN
6850 TE(0)=TE(0)-10:IFTE(0)<10THENTE(0)=150
6860 SYSC,21,14:PRINTTE(0);"[157] ":RETURN
6900 REM TEAM2 VORGABE
6910 TE(1)=TE(1)+10:IFTE(1)>150THENTE(1)=10
6920 SYSC,21,15:PRINTTE(1);"[157] ":RETURN
6950 TE(1)=TE(1)-10:IFTE(1)<10THENTE(1)=150
6960 SYSC,21,15:PRINTTE(1);"[157] ":RETURN
7000 IF FS=0THENFS=1:SYSC,26,19:PRINT"JA  ":RETURN
7010 FS=0:SYSC,26,19:PRINT"NEIN":RETURN