home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Input 64
/
Input_64_85-03_1985_Verlag_Heinz_Weise_de.d64
/
biathlon
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
20KB
|
685 lines
100 poke50257,16:rem systempoke
105 v=53248:forx=0to16:pokev+x,0:next:pokev+17,155:pokev+18,55
110 forx=19to21:pokev+x,0:next:pokev+22,8:pokev+23,0:pokev+24,20
120 pokev+25,15:forx=26to31:pokev+x,0:next:pokev+32,14:pokev+33,6
130 pokev+34,1:pokev+35,2:pokev+36,3:pokev+37,4:pokev+38,0:pokev+39,1
140 pokev+40,2:pokev+41,3:pokev+42,4:pokev+43,5:pokev+44,6:pokev+45,7
150 dim e(20),z1(20),z2(20)
160 en=40500:poke55,(en-(int(en/256)*256))
170 poke56,en/256
180 gosub6890
190 print chr$(8)
200 goto 720
210 si=54272:l2=54279:l3=54286 :fh=si+1:h2=l2+1:h3=l3+1
220 ww=si+4:v2=l2+4:v3=l3+4
230 poke 54296,15
240 poke ww+1,9:poke v2+2,0
250 poke v2+1,36:poke v2+2,36
260 poke v3+1,18:poke v3+2,170
270 i=ti
280 poke ww,16:poke v2,32:poke v3,16
290 read s:if s=0 goto 370
300 read x1,y1,x2,y2,x3,y3
310 if x1 then poke fh,x1:poke si,y1:poke ww,17
320 if x2 then poke h2,x2:poke l2,y2:poke v2,33
330 if x3 then poke h3,x3:poke l3,y3:poke v3,17
340 i=i+s
350 if i>ti goto 350
360 goto 280
370 forj=si to 54296:poke j,0:next j
380 data 20,34,75,21,154,8,147
390 data 20,34,75,25,177,0,0
400 data 20,38,126,28,214,6,108
410 data 20,43,52,25,177,0,0
420 data 20,34,75,21,154,8,147
430 data 20,43,180,25,177,0,0
440 data 20,38,126,22,227,8,23
450 data 20,0,0,25,177,0,0
460 data 20,34,75,21,154,8,147
470 data 20,34,75,25,177,0,0
480 data 20,38,126,28,214,6,108
490 data 20,43,52,25,177,0,0
500 data 20,34,75,21,154,8,147
510 data 20,0,0,25,177,0,0
520 data 20,32,94,22,227,8,23
530 data 20,0,0,19,63,6,108
540 data 20,34,75,21,154,8,147
550 data 20,34,75,25,177,0,0
560 data 20,38,126,21,154,7,163
570 data 20,43,52,17,37,0,0
580 data 20,45,198,28,214,7,53
590 data 20,43,52,34,75,0,0
600 data 20,38,116,28,214,0,206
610 data 20,34,75,22,227,0,0
620 data 20,32,94,25,177,6,108
630 data 20,25,177,22,227,0,0
640 data 20,28,214,21,154,7,53
650 data 20,32,94,19,63,8,23
660 data 20,34,75,21,154,8,147
670 data 20,0,0,25,177,6,108
680 data 20,34,75,21,154,4,73
690 data 20,0,0,0,0,0,0
700 data 0
710 goto930
720 printchr$(142)"[147][153]":poke53280,0:poke53281,0
730 print" [213][192][192][192][201][213][201][213][192][192][192][201][213][192][192][192][192][201][213][201][213][201][213][201] [213][192][192][192][201][213][192][192][192][201]"
740 print" [221][213][192][201][221][221][221][221][213][192][201][221][202][192][201][213][192][203][221][221][221][221][221][221] [221][213][192][201][221][221][213][192][201][221]"
750 print" [221][221] [221][221][221][221][221][221][160][221][221][160][160][221][221][160][160][221][221][221][221][221][221] [221][221][160][221][221][221][221][160][221][221]"
760 print" [221][202][192][203][221][221][221][221][202][192][203][221] [221][221] [221][202][203][221][221][221] [221][221] [221][221][221][221][160][221][221]"
770 print" [221][213][192][201][221][221][221][221][213][192][201][221] [221][221] [221][213][201][221][221][221] [221][221] [221][221][221][221][160][221][221]"
780 print" [221][221] [221][221][221][221][221][221][160][221][221][160][160][221][221][160][160][221][221][221][221][221][221][160][160][221][221][160][221][221][221][221][160][221][221]"
790 print" [221][202][192][203][221][221][221][221][221] [221][221] [221][221] [221][221][221][221][221][202][192][201][221][202][192][203][221][221][221][160][221][221]"
800 print" [202][192][192][192][203][202][203][202][203][160][202][203][160][160][202][203][160][160][202][203][202][203][202][192][192][203][202][192][192][192][203][202][203][160][202][203]"
810 print" [213][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][201]"
820 print" [202][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][203]"
830 print" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
840 print" [221] [221]"
850 print" [221] erstellt jan. 1985 [221]"
860 print" [221] [221]"
870 print" [221] von [221]"
880 print" [221] [221]"
890 print" [221]guenter und bernd lutz[221]"
900 print" [221] [221]"
910 print" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
920 goto 210
930 print" [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
940 print " [221]taste druecken[221]"
950 print " [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
960 get a$ : if a$="" then 960
970 print"[147][153]"
980 poke 53280,0 : poke53281,0
990 gosub 1130
1000 printchr$(14)" [200]erzlich willkommen , zum [194][201][193][212][200][204][207][206] !"
1010 print" [194]ringen [211]ie ihren [204]aeufer moeglichst"
1020 print " schnell ins [218]iel , indem [211]ie die"
1030 print " eingeblendeten [210]echenaufgaben ,so"
1040 print" schnell wie moeglich loesen !"
1050 gosub 1070
1060 goto 1140
1070 print"";tab(11);" [212]aste druecken ! "
1080 for i=1 to 100 : get a$ : if a$<>"" then return
1090 next : print"";tab(11);"[146] "
1100 for i=1 to 100 : get a$ : if a$<>"" then return
1110 next
1120 goto 1070
1130 print"[147] [194][201][193][212][200][204][207][206] - [211]pielanleitung ! [157] " : return
1140 poke40505,0
1150 si=54272 : fl=si : fh=si+1
1160 ll=si+24 : ww=si+4 : aa=si+5
1170 hh=si+6 : v=53248 : sr=00
1180 p$="":
1190 if dd=2 then for i=1 to 225 : read y : next:goto1470
1200 gosub 1130
1210 printchr$(14)" [194]enoetigen [211]ie eine [193]nleitung fuer den"
1220 print" [204]anglauf ?"
1230 print" [194]itte geben [211]ie '[202]' fuer [202][193] oder"
1240 print " '[206]' fuer [206][197][201][206] ein !"
1250 get a$
1260 if a$="j" then 1290
1270 if a$="n" then 1470
1280 if a$<>"j" then 1250
1290 gosub 1130
1300 print""
1310 print" [215]enn am unteren [194]ildschirmrand die"
1320 print " [210]echenaufgabe erscheint ,muessen [211]ie"
1330 print " diese so schnell wie moeglich loesen."
1340 print" [211]chliessen [211]ie ihre [197]ingabe der"
1350 print " [204]oesung mit der '[210][197][212][213][210][206]' [212]aste ab !"
1360 gosub 1070
1370 gosub 1130
1380 print" [211]ollten [211]ie sich einmal vertippen ,"
1390 print " so koennen [211]ie ihre [197]ingabe mit der"
1400 print " '_' [212]aste loeschen ."
1410 print" [196]ie erste [196]isziplin ist zehn"
1420 print " [210]echenaufgaben lang."
1430 print" [201]ch melde mich vor dem"
1440 print " [211]chiesswettbewerb wieder."
1450 :
1460 gosub 1070:
1470 if dd=2 then print"[147] bitte warten !!" : goto 1680
1480 gosub1130:print"[215]elchen [211]chwierigkeitsgrad waehlen [211]ie ?"
1490 print" -1- = [193]ufgaben , deren [197]rgebnisse"
1500 print " zwischen 0 und 10 liegen."
1510 print " [194]eispiel : 4+3=7"
1520 print " -2- = [193]ufgaben , deren [197]rgebnisse"
1530 print " zwischen 0 und 100 liegen."
1540 print " [194]eispiel : 35+61=96"
1550 print " -3- = [193]ufgaben , deren [197]rgebnisse"
1560 print " zwischen -100 und 100 liegen ,"
1570 print " in denen die [215]erte jedoch"
1580 print " negativ sein koennen."
1590 print " [194]eispiel : -13+6=-7"
1600 print" [194]itte geben [211]ie die entsprechende [218]ahl"
1610 print " ein !!"
1620 get a$:if a$="1" then qw=10:qq=0:goto1670
1630 if a$="2"then qw=100:qq=0:goto1670
1640 if a$="3"then qw=100:qq=1:goto1670
1650 if a$<>"1"then 1620
1660 :
1670 print"[147] [194]itte warten !!!"
1680 ii=0:for i=40601to40856
1690 ready:pokei,y:ii=ii+y:next
1700 :
1710 data 32,241,183,138,74,8,32,241,183,224
1720 data 25,144,2,162,24,142,246,7,32,241
1730 data 183,224,25,144,2,162,24,142,247,7
1740 data 138,174,246,7,172,247,7,56,237,246
1750 data 7,176,8,73,255,174,247,7,172,246
1760 data 7,133,254,40,8,144,3,200,152,170
1770 data 189,100,159,133,98,189,126,159,133,97
1780 data 40,8,144,8,233,1,133,97,176,2
1790 data 198,98,165,98,41,3,9,4,40,8
1800 data 32,31,159,40,8,165,97,144,10,105
1810 data 39,133,97,144,12,230,98,176,8,233
1820 data 39,133,97,176,2,198,98,165,98,41
1830 data 3,9,216,40,8,32,31,159,198,254
1840 data 16,206,40,96,133,98,144,3,76,68
1850 data 159,160,0,177,97,170,160,39,177,97
1860 data 72,138,145,97,104,170,136,16,245,24
1870 data 165,97,105,40,133,97,144,2,230,98
1880 data 96,56,165,97,233,40,133,97,176,2
1890 data 198,98,160,40,177,97,170,160,1,177
1900 data 97,72,138,145,97,104,170,200,192,41
1910 data 208,243,96,4,4,4,4,4,4,4
1920 data 5,5,5,5,5,5,6,6,6,6
1930 data 6,6,6,7,7,7,7,7,7,0
1940 data 40,80,120,160,200,240,24,64,104,144
1950 data 184,224,8,48,88,128,168,208,248,32
1960 data 72,112,152,192,232,34
1970 ifii<>26392thenprint"fehler in datas":end
1980 ts=11
1990 for i=1 to sr+10
2000 e(i)=int(rnd(1)*qw+1)
2010 z1(i)=int(rnd(1)*qw+1) : if z1(i)>=e(i) then 2000
2020 z2(i)=e(i)-z1(i)
2030 if qq=1 then w=int(rnd(1)*2+1):ifw=1thenz1(i)=-z1(i):e(i)=e(i)+2*z1(i)
2040 if qq=1 then w=int(rnd(1)*2+1):ifw=1thenz2(i)=-z2(i):e(i)=e(i)+2*z2(i)
2050 next
2060 for i=0to62:ready:poke832+i,y:next
2070 for i=0to62:ready:poke832+i+64,y:next
2080 for i=0to62:ready:poke832+i+128,y:next
2090 print chr$(142)
2100 poke53280,0 : poke 53281,6
2110 print"[147]"
2120 print"[169][223][169][223][169][163][163][223]"
2130 print"[169] [223][169][223][169] [223][169] [223]"
2140 print"[169] [223][169] [223][169] [223][169] [223]"
2150 print"[169] [206] [223][169] [223][169] [223]"
2160 print"[169] [206] [205] [223][169] [223]"
2170 print"[169] [206][205] [205] [206] [223]"
2180 print"[169] [205] [206] [223]";
2190 print" [205] ";
2200 print" ";
2210 print" ";
2220 print"[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][163][163][163][163][163][163]";
2230 print" ";
2240 print" ";
2250 print" ";
2260 print" ";
2270 print"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]";
2280 print" ";
2290 print" ";
2300 poke2042,13:poke2043,14:poke2044,15
2310 poke v+41,0 : poke v+42,0 : poke v+43,0
2320 poke v+4,140: poke v+5,188
2330 poke v+6,140: poke v+7,188
2340 poke v+8,140: poke v+9,188
2350 poke v+21,8
2360 data0,0,0,0,0,124,0,0,124,0,0,116,40,0,124,28,0,124,35,7,224,0,207
2370 data224,0,63,224,0,63,96,0,124,96,0,122,96,0,97,96,0,48,224,0,24
2380 data64,0,24,0,0,48,0,0,48,0,0,60,0,0,0,2,255,255,252
2390 data0,0,0,0,30,0,0,26,0,0,30,0,0,24,0,0,28,62,0,63,196,0,62,4,0,62
2400 data4,0,62,8,0,126,8,0,124,8,0,56,16,0,48,16,0,48,16,0,48,32,0,48
2410 data32,0,48,112,0,56,32,0,0,2,255,255,252
2420 data0,0,0,0,0,120,0,0,104,0,0,120,0,0,0,0,1,192,0,3,224,0,7,192,0
2430 data15,192,0,31,64,0,30,64,0,60,64,0,48,64,0,49,192,0,30,64,0,24
2440 data0,0,112,0,1,176,0,6,56,0,24,0,2,255,255,252
2450 y=9
2460 ii=100
2470 print p$
2480 print"[146] start in ";y;"[157] sekunden !!! "
2490 for i=1 to 800 : next
2500 if y=1 then ii=400
2510 y=y-1
2520 poke ll,15 : poke aa,16+9
2530 poke hh,4*16+4 : poke fh,104
2540 poke fl,78 : poke ww,17
2550 for i=1 to ii : next
2560 poke ww,0 : poke aa,0
2570 poke hh,0
2580 if y=0 then 2600
2590 goto 2470
2600 if dd=2 then ti$=t$ : goto 2620
2610 ti$="000000"
2620 print p$
2630 print" "
2640 az=0:c=fre(0)
2650 print p$
2660 az=az+1
2670 if z2(az)<0 then printz1(az)"- "abs(z2(az))"=":goto 2700
2680 printz1(az)"+"z2(az)"="
2690 rem *** ergebniseingabe ***
2700 i=0:e$=""
2710 get a$
2720 if qq=1 and a$="-" then 2800
2730 if i>4 then a$="_" : e$=""
2740 if a$=chr$(13) then 2820
2750 if a$="_" then print p$ : printtab(11);" ":az=az-1:ts=11: goto 2650
2760 print p$
2770 printtab(30);ti$
2780 if a$="" then 2710
2790 if a$<>"" then if asc(a$)<48 or asc(a$)>57 then 2710
2800 ifa$<>""thene$=e$+a$:print p$ : printtab(ts);a$:ts=ts+1 : i=i+1
2810 goto 2710
2820 if val(e$)=e(az) then 2930
2830 print p$
2840 print"[154] falsch !!![146] "
2850 poke ll,15 : poke aa,16+9
2860 poke hh,4*16+4 : poke fh,10
2870 poke fl,147 : poke ww,17
2880 for i=1 to 400 : next
2890 poke ww,0 : poke aa,0
2900 poke hh,0
2910 print"[145] "
2920 az=az-1 : ts=11 : e$="" : goto 2650
2930 if dd=2 and az=10+sr then 5900
2940 if dd=2 and az<10+sr then 2960
2950 if az=10 then 3300
2960 poke v+21,8 : s=1 : g=100 : j=1 : goto 3000
2970 poke v+21,16: s=1 : g=100 : j=2 : goto 3000
2980 poke v+21,4 : s=100: g=10 : j=3 : goto 3000
2990 end
3000 for i=1 to s:sys40601,0,0,20
3010 if i=5 then 3080
3020 print p$
3030 printtab(30);ti$
3040 for y=1 to g :next
3050 g=g+5 : if g>250 then g=250
3060 next
3070 on j goto 2970,2980
3080 print p$
3090 print" "
3100 print p$
3110 az=az+1
3120 if z2(az)<0 then printz1(az)"-"abs(z2(az))"=":goto 3140
3130 printz1(az)"+"z2(az)"="
3140 ts=11
3150 e$=""
3160 i=0
3170 get a$
3180 if qq=1 and a$="-" then 3280
3190 if i>4 then a$="_"
3200 if a$=chr$(13) then 2820
3210 if a$="_" then printp$ : printtab(11);" ":az=az-1:ts=11:goto 3100
3220 print p$
3230 printtab(30);ti$
3240 sys 40601,0,0,20:for y=1 to g : next
3250 g=g+5 : if g>250 then g=250
3260 if a$="" then 3170
3270 if a$<>"" then if asc(a$)<48 or asc(a$)>57 then 3170
3280 ifa$<>""thene$=e$+a$:print p$ : printtab(ts);a$:ts=ts+1:i=i+1
3290 goto 3170
3300 t$=left$(ti$,2)+":"+mid$(ti$,3,2)+":"+right$(ti$,2)
3310 poke v+21,0
3320 a=fre(0):print"[147]":poke53280,0:poke53281,0
3330 print" "
3340 print" "
3350 print" "
3360 print" "
3370 print" "
3380 :
3390 print" fuer die erste disziplin haben sie"
3400 print"";tab(16);t$
3410 print"";tab(15);"benoetigt ."
3420 print" goennen sie sich eine kurze pause und"
3430 print" versuchen sie den puls zu beruhigen !"
3440 print" wenn sie zum schiessen bereit sind,"
3450 print" druecken sie eine taste !"
3460 get a$:if a$<>"" then 3490
3470 sys 40601,0,0,6
3480 goto 3460
3490 printchr$(14) : gosub 1130
3500 print" [194]enoetigen [211]ie fuer das [211]chiessen eine"
3510 print " [193]nleitung ?"
3520 print" [194]itte geben [211]ie '[202]' fuer [202][193] oder"
3530 print " '[206]' fuer [206][197][201][206] ein."
3540 get a$ : if a$="j" then 3570
3550 if a$="n" then 4050
3560 if a$<>"j" then 3540
3570 gosub 1130
3580 print" [215]enn der [211]chiessstand erscheint ,sehen"
3590 print "[211]ie die [218]ielvorrichtung ihres [199]ewehres,";
3600 print " die durch ein '^' dargestellt wird ."
3610 print" [211]obald [211]ie die [210]echenaufgabe geloest"
3620 print " haben , muessen [211]ie einen [211]chuss auf"
3630 print " die [218]ehner und einen [211]chuss auf die"
3640 print " [197]iner abgeben."
3650 gosub1070
3660 gosub1130
3670 print" [196]azu fahren [211]ie mit dem '^' unter die"
3680 print " entsprechende [218]ahl."
3690 print" [211]ie koennen die [218]ielvorrichtung mit"
3700 print " den beiden [195]ursortasten steuern :"
3710 print " ^ = [218]ielvorrichtung nach links"
3720 print " -> = [218]ielvorrichtung nach rechts."
3730 print "[211][208][193][195][197] = [211]chuss"
3740 print" [205][197][210][203][197] : [196]er [218]ehner einer [218]ahl ist die"
3750 print " erste [218]iffer (bei 53 ist der"
3760 print " [218]ehner = 5).
3770 [153] " str$er valiner einer (NULL)ahl ist die"
3780 [153] " (NULL)weite (NULL)iffer (bei 53 ist der"
3790 [153] " valiner = 3).
3800 gosub1070
3810 gosub1130
3820 print" [206]achdem das [197]rgebnis hinter der"
3830 print " [193]ufgabe erscheint , muessen [211]ie mit"
3840 print " der '[210][197][212][213][210][206]' [212]aste abschliessen."
3850 print " [211]ollten [211]ie sich einmal verschiessen ,"
3860 print " koennen [211]ie mit der [218]ielvorrichtung"
3870 print " unter das [198]eld '[204][207][197][211][195][200][197][206]' fahren und"
3880 print " einen [211]chuss darauf abgeben."
3890 print " [193][195][200][212][213][206][199] : [215]ird ein falsches [197]rgebnis"
3900 print " mit '[210][197][212][213][210][206]' abgeschlossen,"
3910 print " muessen [211]ie beim [204]anglauf"
3920 print " eine zusaetzliche [193]ufgabe"
3930 print " rechnen."
3940 gosub1070
3950 gosub 1130
3960 print" [193]chtung : [201]st das [197]rgebnis einer"
3970 print " [210]echenaufgabe eine"
3980 print " einstellige [218]ahl (0-9) ,"
3990 print " so muessen sie im [218]ehnerfeld"
4000 print " die '0' abschiessen."
4010 print" [196]er [211]chiesswettbewerb ist 5 [193]ufgaben"
4020 print" lang ."
4030 gosub 1070
4040 print"[147] bitte warten !"
4050 print"[147] [194]itte warten !":a$=""
4060 a$=mid$(t$,1,1)
4070 for i=2 to 8
4080 if mid$(t$,i,1)=":" then next
4090 a$=a$+mid$(t$,i,1)
4100 next
4110 poke 40506,dk: poke40507,qw:poke40508,qq
4120 sa=40510
4130 fori=1to3
4140 t=val(left$(t$(i),2)) : poke sa,t
4150 sa=sa+1
4160 t=val(mid$(t$(i),3,2)): poke sa,t
4170 sa=sa+1
4180 t=val(right$(t$(i),2)): poke sa,t
4190 sa=sa+1
4200 for y=1 to 10
4210 poke sa,asc(mid$(n$(i),y,1))
4220 sa=sa+1
4230 next
4240 next
4250 ti$=right$(a$,6) : clr : t$=ti$
4260 dim n$(12),t$(12)
4270 si=54272 : fl=si
4280 fh=si+1 : ll=si+24
4290 ww=si+4 : aa=si+5
4300 hh=si+6 : v=53248
4310 az=1 : k=1764
4320 tl=si+2 : th=si+3
4330 kf=56036
4340 p$=""
4350 dk=peek(40506):qw=peek(40507):qq=peek(40508)
4360 sa=40510
4370 for i=1 to 3
4380 t1$=str$(peek(sa)) :if val(t1$)<10 then t1$="0"+right$(t1$,1)
4390 sa=sa+1
4400 t2$=str$(peek(sa)) :if val(t2$)<10 then t2$="0"+right$(t2$,1)
4410 sa=sa+1
4420 t3$=str$(peek(sa)) :if val(t3$)<10 then t3$="0"+right$(t3$,1)
4430 t$(i)=right$(t1$,2)+right$(t2$,2)+right$(t3$,2)
4440 sa=sa+1:for y=1to10
4450 n$(i)=n$(i)+chr$(peek(sa))
4460 sa=sa+1
4470 next
4480 next
4485 a=fre(0)
4490 for i=1 to 5
4500 e(i)=int(rnd(1)*qw+1)
4510 z1(i)=int(rnd(1)*qw+1) : if z1(i)<=e(i) then 4500
4520 z2(i)=z1(i)-e(i)
4530 next
4540 ti$=t$
4550 printchr$(142)
4560 print"[147]" : poke 53280,5 : poke53281,15
4570 print"[169] [223][169] [223][169] [223]"
4580 print"[169]zehner[223][169] loeschen [223][169] einer[223]"
4590 print" "
4600 print"[146][144] [176][178][178][178][178][178][178][178][178][174] [146][144] [176][178][178][178][178][178][178][178][178][174]"
4610 print " 13579 [166][166][166][166][166][166][166][166][166][166][166][166] [146][144] 13579"
4620 print"[145]2468024680"
4630 for i=1 to 10 : print : next
4640 for i=1 to 40 : print"[183]"; : next
4650 poke k,30 : poke kf,0
4660 poke 650,128
4670 print p$
4680 print z1(az)"-"z2(az)"="
4690 get a$
4700 print p$ : printtab(30);ti$
4710 if a$=chr$(13) and ag>1 then 5160
4720 if a$="" then 4760
4730 if a$="" then 4800
4740 if a$=" " then 4840
4750 if a$<>"" then 4690
4760 poke k,32
4770 k=k+1 : kf=kf+1
4780 if k=1783 then k=k-1 : kf=kf-1
4790 goto 4650
4800 poke k,32
4810 k=k-1 : kf=kf-1
4820 if k=1744 then k=k+1 : kf=kf+1
4830 goto 4650
4840 for i=15 to 0 step-1
4850 poke ll,i : poke aa,15
4860 poke hh,0 : poke fh,40
4870 poke fl,200 : poke ww,129
4880 next
4890 poke ww,0 : poke aa,0
4900 g=k-120 : gf=kf-120
4910 poke g,87 : poke gf,0
4920 g=g-40 : gf=gf-40
4930 for i=1 to 30 : next
4940 poke g+40,32
4950 if peek(g)<>32 then 4970
4960 goto 4910
4970 if ag>2 and peek(g) <>230 then 4690
4980 if peek(g)>47 and peek(g)<58 then 5010
4990 if peek(g)=230 then 5310
5000 goto 4690
5010 w=peek(g)-48 : poke g,32 : ag=ag+1
5020 if k<1764 then w=w*10 : wg=wg+w : z=z+1
5030 if k>1764 then wg=wg+w : e=e+1
5040 if e>1 and k>1764 then ag=ag-1 : wg=wg-w : : poke g,w+48
5050 if z>1 and k<1764 then ag=ag-1 : wg=wg-w : poke g,w/10+48
5060 if ag>1 then 5080
5070 goto 4690
5080 get a$
5090 print p$ : printtab(30);ti$
5100 print p$ : printtab(12);wg
5110 if a$=chr$(13) and ag>1 then 5160
5120 if a$="" then 4800
5130 if a$="" then 4760
5140 if a$=" " then 4840
5150 if a$<>"" then 5080
5160 if wg<>e(az)then5200
5170 if wg=e(az) then ag=0:e=0:z=0:k=1764:kf=56036
5180 if az=5 then 5340
5190 if wg=e(az) then wg=0 : az=az+1 : goto 4560
5200 print p$
5210 print"[154] falsch !!![146] "
5220 sr=sr+1
5230 poke ll,15 : poke aa,16+9
5240 poke hh,4*16+4 : poke fh,10
5250 poke fl,147 : poke ww,17
5260 for i=1 to 400 : next
5270 poke ww,0 : poke aa,0
5280 poke hh,0
5290 print"[145] "
5300 e=0 : z=0 : ag=0 : wg=0 : k=1764 : kf=56036 : goto4560
5310 printp$ : printtab(11);" "
5320 wg=0 : ag=0 : e=0 : z=0
5330 goto 4560
5340 print"[147]" : poke 53280,0 : poke 53281,0
5350 t$=ti$
5360 poke 650,64
5370 print" "
5380 print" "
5390 print" "
5400 print" "
5410 print" "
5420 print""
5430 print" fur die ersten beiden disziplinen"
5440 print tab(15);"haben sie"
5450 print"";tab(16);left$(t$,2);":";mid$(t$,3,2);":";right$(t$,2)
5460 printtab(15);"benoetigt."
5470 print" da sie "sr" aufgaben falsch gerechnet"
5480 print" haben, muessen sie beim langlauf"
5490 print" "sr" aufgaben mehr rechnen."
5500 print" wenn sie zum langlauf bereit sind,"
5510 print" druecken sie eine taste."
5520 poke 40505,sr:poke40506,dk:poke40507,qw:poke40508,qq
5530 sa=40510
5540 for i=1to3
5550 t=val(left$(t$(i),2)) : poke sa,t
5560 sa=sa+1
5570 t=val(mid$(t$(i),3,2)) : poke sa,t
5580 sa=sa+1
5590 t=val(right$(t$(i),2)) : poke sa,t
5600 sa=sa+1
5610 for y=1 to 10
5620 poke sa,asc(mid$(n$(i),y,1))
5630 sa=sa+1
5640 next
5650 next
5660 get a$ : if a$<>"" then 5690
5670 a=fre(0):sys 40601,0,0,7
5680 goto 5660
5690 ti$=t$:clr:t$=ti$
5700 si=54272 : fl=si : fh=si+1
5710 ll=si+24 : ww=si+4 : aa=si+5
5720 hh=si+6 : v=53248 : dd=2
5730 p$=""
5740 sr=peek(40505):dk=peek(40506):qw=peek(40507):qq=peek(40508)
5750 sa=40510
5760 for i=1 to 3
5770 t1$=str$(peek(sa)):if val(t1$)<10then t1$="0"+right$(t1$,1)
5780 sa=sa+1
5790 t2$=str$(peek(sa)):if val(t2$)<10then t2$="0"+right$(t2$,1)
5800 sa=sa+1
5810 t3$ =str$(peek(sa)):if val(t3$)<10 then t3$="0"+right$(t3$,1)
5820 t$(i)=right$(t1$,2)+right$(t2$,2)+right$(t3$,2)
5830 sa=sa+1:for y=1 to 10
5840 n$(i)=n$(i)+chr$(peek(sa))
5850 sa=sa+1
5860 next
5870 next
5880 dim e(20),z1(20),z2(20)
5890 goto 1190
5900 print"[147]" : poke 53280,0 : poke53281,0
5910 poke v+21,0
5920 tt$=ti$
5930 t$=left$(tt$,2)+":"+mid$(tt$,3,2)+":"+right$(tt$,2)
5940 print" "
5950 print" "
5960 print" "
5970 print" "
5980 print" "
5990 print
6000 print" "
6010 print" herzlichen glueckwunsch !!"
6020 print " [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]"
6030 print" sie haben das ziel erreicht."
6040 print" insgesamt haben sie"
6050 print"";tab(16);t$
6060 print"";tab(15);"benoetigt."
6070 print" bitte druecken sie eine taste !!!"
6080 print " [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]"
6090 get a$ : if a$<>"" then 6120
6100 sys 40601,0,0,8
6110 goto 6090
6120 print"[147]"
6130 print" "
6140 print" "
6150 print" "
6160 print" "
6170 print" "
6180 print
6190 for i=1 to 3
6200 if t$(i)="555555"then print" "i;"[157].","--:--:--",n$(i):next
6210 if i>3 then 6240
6220 print" "i;"[157].",left$(t$(i),2)":"mid$(t$(i),3,2)":"right$(t$(i),2),n$(i)
6230 next i
6240 if val(tt$)<val(t$(3)) then 6310
6250 print" sie duerfen sich leider nicht in die"
6260 print" bestenliste eintragen."
6270 print" bitte eine taste druecken !!!"
6280 get a$ : if a$<>"" then print"[147]":goto6680
6290 sys 40601,0,0,5
6300 goto 6280
6310 print" bravo, sie duerfen sich in die"
6320 print" bestenliste eintragen."
6330 print" bitte eine taste druecken !!!"
6340 get a$ : if a$<>"" then 6370
6350 sys 40601,0,0,5
6360 goto 6340
6370 print"[147]":i=0
6380 print" bitte geben sie ihren namen ein !"
6390 print" [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]"
6400 print" (hoechstens 10 zeichen)"
6410 print" name ........... ";
6420 get a$:if a$=""ora$=""ora$="[145]"ora$=""ora$="[157]"then 6420
6430 if a$=chr$(13) then 6500
6440 if a$="_" or a$=chr$(20) then 6470
6450 printa$;:n$=n$+a$:i=i+1:if i>10 then n$="":i=0:goto 6480
6460 goto 6420
6470 n$=left$(n$,i-2):i=i-1
6480 print"";tab(22);" "
6490 print"[145]";tab(22);n$;:goto 6420
6500 if len(n$)>10then6420
6510 if len(n$)<10 then for i=len(n$) to 9:n$=n$+" ":next
6520 for i=1 to 3
6530 if val(tt$)<val(t$(i)) then 6550
6540 next
6550 print""
6560 a$="herzlichen glueckwunsch , "+n$
6570 printtab((40-len(a$))/2);a$
6580 print" sie haben den "i". platz belegt."
6590 print" bitte druecken sie eine taste !!!"
6600 print" [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]"
6610 j=i
6620 get a$ : if a$="" then 6620
6630 for i=2 to j step-1
6640 t$(i+1)=t$(i) : n$(i+1)=n$(i)
6650 next
6660 t$(j)=tt$:n$(j)=n$
6670 print"[147]"
6680 print" "
6690 print" "
6700 print" "
6710 print" "
6720 print" "
6730 print
6740 for i=1 to 3
6750 if t$(i)="555555" then print" "i;"[157].","--:--:--",n$(i):next
6760 if i>3 then 6790
6770 print" "i;"[157].",left$(t$(i),2)":"mid$(t$(i),3,2)":"right$(t$(i),2),n$(i)
6780 next i
6790 print" wollen sie noch einmal spielen ???"
6800 print " [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
6810 print" dann druecken sie bitte eine taste"
6830 get a$:ifa$=""then6830
6840 restore:i=0:az=0:dd=1:dk=0:sr=0:goto200
6850 :
6860 sys 40601,0,0,5
6870 if a$<>"j" then 6830
6880 end
6890 for i=1 to 3
6900 t$(i)="555555" : n$(i)=".........."
6910 next i
6920 return