home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Input 64
/
Input_64_86-08_1986_Verlag_Heinz_Weise_de.d64
/
gobang
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
22KB
|
803 lines
0 ifpeek(50307)<>120then2
1 poke50257,16
2 printchr$(142):printchr$(8)
3 u=54272:fori=0to24:pokeu+i,0:next:pokeu+1,130:pokeu+5,9:pokeu+15,30
4 poke646,14:gosub1512
10 dimb(35,36):d=0:dimt(11):dimtc(80):dimtb(80)
12 print"[144][147]":y=122:x=100
14 goto28
16 gosub34:q1=2:print""spc(28)"der 1. zug"
18 printspc(28)"beginnt in"
20 printspc(28)"der mitte"
22 printspc(28)"des feldes[146]"
24 poke53265,peek(53265)or16:poke53281,14:poke53280,0 :return
28 poke53265,peek(53265)and239:print"";:fori=1to24
30 print"[208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208] ":nexti
32 print"[208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208]";:v=53248:goto44
34 ifq1=0thenprint"";:goto38
36 return
38 print"";: forq=1to24
40 printspc(26)"[155] [146]";
42 nextq:printspc(26)" [146][157][145]":poke2023,224
43 poke2023,160:poke56295,15:print"";:return:rem #
44 pokev+29,1:pokev+23,1:poke2040,13:pokev+39,0:pokev,x:pokev+1,y
46 fori=0to62:reads:poke832 +i,s:next
52 fori=1to100:nexti
54 pokev+21,1
56 ifd=0thengosub16:a=peek(56320):a=abs(127-a):getj$:goto70
58 ifd=2thengosub34:q1=2:d=3:gosub1800
60 a=peek(56320):a=abs(127-a)
61 getj$
62 j1=j1+1:ifj1>08thenpokev+21,1andnotpeek(v+21):j1=0
64 ifa=1orj$=chr$(145)goto74
65 ifa=8orj$=chr$(29)goto78
66 ifa=2orj$=chr$(17)goto82
68 ifa=4orj$=chr$(157)goto86
70 ifa>10orj$=chr$(13)thenpokev+21,0:gosub1900:goto90
72 goto56
74 y=y-8:ify<34theny=34
76 pokev+1,y:goto52
78 x=x+8:ifx>204thenx=204
80 pokev,x:goto52
82 y=y+8:ify>226theny=226
84 pokev+1,y:goto52
86 x=x-8:ifx<4 thenx=4
88 pokev,x:goto52
90 z=1024+int(x/8)+40*((y-34)/8)
92 ifpeek(z)=80then96
94 goto52
96 pokez+54272,1:pokez,81
98 e=int((z-983)/40)
100 f=z-(983+(e*40))
102 e=e+5:f=f+5:b(e,f)=1
104 d=d+1
106 gosub110:goto130
110 ifd=1thene1=e:e2=e:f1=f:f2=f:goto128
112 ife>e1ore=e1then116
114 e1=e:goto120
116 ife<e2ore=e2then120
118 e2=e
120 iff>f1orf=f1then124
122 f1=f:goto128
124 iff<f2orf=f2then128
126 f2=f
128 return
130 fore=e1toe2:forf=f1tof2
132 ifb(e,f)>0thengosub184
133 nextf:nexte
134 forwx=11to1step-1
136 ift(wx)>0thenko=ko+1:goto142
138 nextwx
140 goto 52
142 e=int((t(wx)-983)/40):f=t(wx)-(983+(e*40)):e=e+5:f=f+5:b(e,f)=8
144 d=2:gosub110
146 forj=1to3
148 poket(wx),80:poket(wx)+54272,0
150 fori=1to500:next
152 poket(wx),87:poket(wx)+54272,0
154 fori=1to500:next
156 nextj
158 pokeu+24,14:pokeu+4,0:pokeu+4,21
160 ee=int((z-983)/40):ff=z-(983+(ee*40))
162 ife<eetheny=y-((ee-e)*8):goto166
164 y=y+((e-ee)*8)
166 iff<ffthenx=x-((ff-f)*8):goto170
168 x=x+((f-ff)*8)
170 x=x-40:y=y-40:pokev+1,y:pokev,x
172 ifwx=11thengosub682
174 forwx=11to0step-1
176 t(wx)=0:tc(wx)=0:tb(wx)=0:nextwx
178 bl=0:bx=0:cl=0:cx=0:k3=0:goto52
184 :
186 g=0:fori=0to4:g=g+b(e,f+i):nexti
188 onggoto234,224,216,204,198
190 on(g-7)goto232,236,226,222,206
192 on(g-15)goto228,230,236,220
194 on(g-23)goto208,214,212
196 on(g-31)goto200,202
198 gosub696
200 we=11:gosub406:goto236
202 we=11:gosub536:goto236
204 we=10:gosub406:goto236
206 we=10:gosub468:goto236
208 we=9 :gosub434
210 we=8:gosub710:goto236
212 we=8:gosub746:goto236
214 we=8:gosub778:goto236
216 we=6:gosub1208
218 we=7:gosub434:goto236
220 we=6:gosub936:goto236
222 we=6:gosub968:goto236
224 we=6:gosub858:goto236
226 we=6:gosub1328:goto236
228 we=5:gosub560:goto236
230 we=5:gosub1120:goto236
232 we=3:gosub624:goto236
234 we=2:et=e:ft=f+1:gosub640
236 :
238 g=0:fori=0to4
240 g=g+b(e-i,f)
242 nexti
244 onggoto290,280,272,260,254
246 on(g-7) goto288,292,282,278,262
248 on(g-15)goto284,286,292,276
250 on(g-23)goto264,270,268
252 on(g-31)goto256,258
254 gosub696
256 we=11:gosub412:goto292
258 we=11:gosub542:goto292
260 we=10:gosub412:goto292
262 we=10:gosub484:goto292
264 we=9:gosub442
266 we=8:gosub718:goto292
268 we=8:gosub754:goto292
270 we=8:gosub798:goto292
272 we=6:gosub1238
274 we=7:gosub442:goto292
276 we=6:gosub944:goto292
278 we=6:gosub1006:goto292
280 we=6:gosub878:goto292
282 we=6:gosub1374:goto292
284 we=5:gosub576:goto292
286 we=5:gosub1142:goto292
288 we=3:gosub628:goto292
290 we=2:et=e-1:ft=f:gosub640
292 :
294 g=0:fori=0to4:rem ---------------------diagonal nach rechts oben-----------
296 g=g+b(e-i,f+i)
298 nexti
300 on g goto346,336,328,316,310
302 on(g-7) goto344,348,338,334,318
304 on(g-15)goto340,342,348,332
306 on(g-23)goto320,326,324
308 on(g-31)goto312,314
310 gosub696
312 we=11:gosub418:goto348
314 we=11:gosub548:goto348
316 we=10:gosub418:goto348
318 we=10:gosub500:goto348
320 we=9:gosub450
322 we=8:gosub726:goto348
324 we=8:gosub762:goto348
326 we=8:gosub818:goto348
328 we=6:gosub1268
330 we=7:gosub450:goto348
332 we=6:gosub952:goto348
334 we=6:gosub1044:goto348
336 we=6:gosub898:goto348
338 we=6:gosub1420:goto348
340 we=5:gosub592:goto348
342 we=5:gosub1164:goto348
344 we=3:gosub632:goto348
346 we=2:et=e-1:ft=f+1:gosub640
348 :
350 g=0:fori=0to4
352 g=g+b(e-i,f-i)
354 nexti
356 onggoto402,388,382,372,366
358 on(g-7)goto400,404,392,394,374
360 on(g-15)goto396,398,404,390
362 on(g-23)goto376,384,380
364 on(g-31)goto368,370
366 gosub696
368 we=11:gosub424:return
370 we=11:gosub554:return
372 we=10:gosub424:return
374 we=10:gosub516:return
376 we=9:gosub458
378 we=8:gosub734
380 we=8:gosub770:return
382 we=6:gosub1298:goto386
384 we=8:gosub838:return
386 we=7:gosub458:return
388 we=6:gosub918:return
390 we=6:gosub960:return
392 we=6:gosub1466:return
394 we=6:gosub1082:return
396 we=5:gosub608:return
398 we=5:gosub1186:return
400 we=3:gosub636:return
402 we=2:et=e-1:ft=f-1:gosub640
404 return
406 ifb(e,f-1)=0andb(e,f+4)=0thenet=e:ft=f-1:gosub640:return
407 forh=0to4
408 ifb(e,f+h)=0thenet=e:ft=f+h:gosub640
410 nexth:return
412 ifb(e+1,f)=0andb(e-4,f)=0thenet=e+1:ft=f:gosub640:return
413 forh=0to4
414 ifb(e-h,f)=0thenet=e-h:ft=f:gosub640
416 nexth:return
418 ifb(e+1,f-1)=0andb(e-4,f+4)=0thenet=e+1:ft=f-1:gosub640:return
419 forh=0to4
420 ifb(e-h,f+h)=0thenet=e-h:ft=f+h:gosub640
422 nexth:return
424 ifb(e+1,f+1)=0andb(e-4,f-4)=0thenet=e+1:ft=f+1:gosub640:return
425 forh=0to4
426 ifb(e-h,f-h)=0thenet=e-h:ft=f-h:gosub640
428 nexth:return
434 ifb(e,f-1)+b(e,f+4)+b(e,f+3)=0thenet=e:ft=f+3:gosub640:return
436 ifb(e,f-1)+b(e,f+1)+b(e,f+4)=0thenet=e:ft=f+1:gosub640:return
438 ifb(e,f-1)+b(e,f+2)+b(e,f+4)=0thenet=e:ft=f+2:gosub640:return
440 return
442 ifb(e+1,f)+b(e-4,f)+b(e-3,f)=0thenet=e-3:ft=f:gosub640:return
444 ifb(e+1,f)+b(e-1,f)+b(e-4,f)=0thenet=e-1:ft=f:gosub640:return
446 ifb(e+1,f)+b(e-2,f)+b(e-4,f)=0thenet=e-2:ft=f:gosub640:return
448 return
450 ifb(e+1,f-1)+b(e-4,f+4)+b(e-3,f+3)=0then et=e-3:ft=f+3:gosub640:return
452 ifb(e+1,f-1)+b(e-1,f+1)+b(e-4,f+4)=0then et=e-1:ft=f+1:gosub640:return
454 ifb(e+1,f-1)+b(e-2,f+2)+b(e-4,f+4)=0then et=e-2:ft=f+2:gosub640:return
456 return
458 ifb(e+1,f+1)+b(e-3,f-3)+b(e-4,f-4)=0then et=e-3:ft=f-3:gosub640:return
460 ifb(e+1,f+1)+b(e-1,f-1)+b(e-4,f-4)=0then et=e-1:ft=f-1:gosub640:return
462 ifb(e+1,f+1)+b(e-2,f-2)+b(e-4,f-4)=0then et=e-2:ft=f-2:gosub640:return
464 return
468 ifb(e,f-1)+b(e,f+4)=8thenet=e:ft=f-1:gosub640:return
470 ifb(e,f-1)+b(e,f+3)=8goto480
472 ifb(e,f+1)=8andb(e,f+5)=0goto476
474 return
476 ifb(e,f+6)=0thenwe=6:et=e:ft=f+6:gosub640:et=e:ft=f+5:gosub640:return
478 return
480 ifb(e,f-2)=0thenwe=6:et=e:ft=f-2:gosub640:et=e:ft=f-1:gosub640:return
482 return
484 ifb(e+1,f)+b(e-4,f)=8thenet=e+1:ft=f:gosub640:return
486 ifb(e+1,f)+b(e-3,f)=8goto496
488 ifb(e-1,f)=8andb(e-5,f)=0goto492
490 return
492 ifb(e-6,f)=0thenwe=6:et=e-6:ft=f:gosub640:et=e-5:ft=f:gosub640:return
494 return
496 ifb(e+2,f)=0thenwe=6:et=e+2:ft=f:gosub640:et=e+1:ft=f:gosub640:return
498 return
500 ifb(e+1,f-1)+b(e-4,f+4)=8thenet=e+1:ft=f-1:gosub640:return
502 ifb(e+1,f-1)+b(e-3,f+3)=8goto512
504 ifb(e-1,f+1)=8andb(e-5,f+5)=0goto508
506 return
508 ifb(e-6,f+6)=0thenwe=6:et=e-6:ft=f+6:gosub640:et=e-5:ft=f+5:gosub640:return
510 return
512 ifb(e+2,f-2)=0thenwe=6:et=e+2:ft=f-2:gosub640:et=e+1:ft=f-1:gosub640:return
514 return
516 ifb(e+1,f+1)+b(e-4,f-4)=8thenet=e+1:ft=f+1:gosub640:return
518 ifb(e+1,f+1)+b(e-3,f-3)=8goto528
520 ifb(e-1,f-1)=8andb(e-5,f-5)=0goto524
522 return
524 ifb(e-6,f-6)=0thenwe=6:et=e-6:ft=f-6:gosub640:et=e-5:ft=f-5:gosub640:return
526 return
528 ifb(e+2,f+2)=0thenwe=6:et=e+2:ft=f+2:gosub640:et=e+1:ft=f+1:gosub640:return
530 return
536 ifb(e,f-1)+b(e,f+4)=1thenet=e:ft=f-1:gosub640:return
538 ifb(e,f-1)+b(e,f+3)=1thenwe=8:et=e:ft=f-1:gosub640
540 return
542 ifb(e+1,f)+b(e-4,f)=1thenet=e+1:ft=f:gosub640:return
544 ifb(e+1,f)+b(e-3,f)=1thenwe=8:et=e+1:ft=f:gosub640
546 return
548 ifb(e+1,f-1)+b(e-4,f+4)=1thenet=e+1:ft=f-1:gosub640:return
550 ifb(e+1,f-1)+b(e-3,f+3)=1thenwe=8:et=e+1:ft=f-1:gosub640
552 return
554 ifb(e+1,f+1)+b(e-4,f-4)=1thenet=e+1:ft=f+1:gosub640:return
556 ifb(e+1,f+1)+b(e-3,f-3)=1thenwe=8:et=e+1:ft=f+1:gosub640
558 return
560 ifb(e,f-1)<>0thenreturn
562 ifb(e,f+1)=8thenet=e:ft=f+2:gosub640:et=e:ft=f+3:gosub640:goto568
564 ifb(e,f+2)=8thenet=e:ft=f+1:gosub640:et=e:ft=f+3:gosub640:goto568
566 ifb(e,f+3)=8thenet=e:ft=f+1:gosub640:et=e:ft=f+2:gosub640
568 ifb(e,f-2)<>0thenreturn
570 ifb(e,f+1)orb(e,f+2)=8thenet=e:ft=f-1:gosub640
572 ifb(e,f-3)andb(e,f+1)=8thenet=e:ft=f-2:gosub640
574 return
576 ifb(e+1,f)<>0thenreturn
578 ifb(e-1,f)=8thenet=e-2:ft=f:gosub640:et=e-3:ft=f:gosub640:goto584
580 ifb(e-2,f)=8thenet=e-1:ft=f:gosub640:et=e-3:ft=f:gosub640:goto584
582 ifb(e-3,f)=8thenet=e-1:ft=f:gosub640:et=e-2:ft=f:gosub640
584 ifb(e+2,f)<>0thenreturn
586 ifb(e-1,f)orb(e-2,f)=8thenet=e+1:ft=f:gosub640
588 ifb(e+3,f)andb(e-1,f)=8thenet=e+2:ft=f:gosub640
590 return
592 ifb(e+1,f-1)<>0thenreturn
594 ifb(e-1,f+1)=8thenet=e-2:ft=f+2:gosub640:et=e-3:ft=f+3:gosub640:goto600
596 ifb(e-2,f+2)=8thenet=e-1:ft=f+1:gosub640:et=e-3:ft=f+3:gosub640:goto600
598 ifb(e-3,f+3)=8thenet=e-1:ft=f+1:gosub640:et=e-2:ft=f+2:gosub640
600 ifb(e+2,f-2)<>0thenreturn
602 ifb(e-1,f+1)orb(e-2,f+2)=8thenet=e+1:ft=f-1:gosub640
604 ifb(e+3,f-3)andb(e-1,f+1)=8thenet=e+2:ft=f-2:gosub640
606 return
608 ifb(e+1,f+1)<>0thenreturn
610 ifb(e-1,f-1)=8thenet=e-2:ft=f-2:gosub640:et=e-3:ft=f-3:gosub640:goto616
612 ifb(e-2,f-2)=8thenet=e-1:ft=f-1:gosub640:et=e-3:ft=f-3:gosub640:goto616
614 ifb(e-3,f-3)=8thenet=e-1:ft=f-1:gosub640:et=e-2:ft=f-2:gosub640
616 ifb(e+2,f+2)<>0thenreturn
618 ifb(e-1,f-1)orb(e-2,f-2)=8thenet=e+1:ft=f+1:gosub640
620 ifb(e+3,f+3)andb(e-1,f-1)=8thenet=e+2:ft=f+2:gosub640
622 return
624 ifb(e,f-1)=0thenet=e:ft=f+1:gosub640:return
626 return
628 ifb(e+1,f)=0thenet=e-1:ft=f:gosub640:return
630 return
632 ifb(e+1,f-1)=0thenet=e-1:ft=f+1:gosub640:return
634 return
636 ifb(e+1,f+1)=0thenet=e-1:ft=f-1:gosub640:return
638 return
640 ifb(et,ft)<>0thenreturn
641 print""spc(28)""et:ifet<6oret>30orft<6orft>31thenreturn
642 onwegoto1706,646,648,1706,652,664,643,676,678,644,680
643 t(we)=983+(et*40)+ft:t(we)=t(we)-205:return
644 t(we)=983+(et*40)+ft:t(we)=t(we)-205:return
646 t(we)=983+(et*40)+ft:t(we)=t(we)-205:return
648 ifk3=5thenreturn
650 t(we)=983+(et*40)+ft:t(we)=t(we)-205:return
652 ifbx=8then return
654 bl=bl+1:tb(bl)=983+(et*40)+ft:tb(bl)=tb(bl)-205
656 fori=bl-1to0step-1
658 iftb(bl)=tb(i)thent(we)=tb(bl):bx=8
660 nexti:ifbx=8thenreturn
662 t(we)=tb(bl):return
664 ifcx=8thenreturn
666 cl=cl+1:tc(cl)=983+(et*40)+ft:tc(cl)=tc(cl)-205:t(3)=tc(cl):k3=5
668 fori=cl-1to0step-1
670 iftc(cl)=tc(i)thent(we)=tc(cl):cx=8
672 nexti:ifcx=8thenreturn
674 t(we)=0:return
676 t(we)=983+(et*40)+ft:t(we)=t(we)-205:return
678 t(we)=983+(et*40)+ft:t(we)=t(we)-205:return
680 t(we)=983+(et*40)+ft:t(we)=t(we)-205:return
682 q1=0:pokeu+24,15:pokeu+4,21:poke198,0
684 print"[144][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
686 print"[194]sie haben verloren[144][194]"
688 print"[144][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
690 ifpeek(56320)<112goto708
692 print"[154]";:geta$:ifa$=""then690
694 run
696 q1=0:pokeu+24,15:pokeu+4,21:poke198,0
698 print"[144][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
700 print"[194]sie haben gewonnen[144][194]"
702 print"[144][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
704 ifpeek(56320)<112goto708
706 print"[154]";:geta$:ifa$=""then704
708 run
710 ifb(e,f-1)=1andb(e,f+4)+b(e,f+3)=0then et=e:ft=f+3:gosub640:return
712 ifb(e,f-1)=1andb(e,f+1)+b(e,f+4)=0then et=e:ft=f+1:gosub640:return
714 ifb(e,f-1)=1andb(e,f+2)+b(e,f+4)=0then et=e:ft=f+2:gosub640:return
716 return
718 ifb(e+1,f)=1andb(e-4,f)+b(e-3,f)=0then et=e-3:ft=f:gosub640:return
720 ifb(e+1,f)=1andb(e-1,f)+b(e-4,f)=0then et=e-1:ft=f:gosub640:return
722 ifb(e+1,f)=1andb(e-2,f)+b(e-4,f)=0then et=e-2:ft=f:gosub640:return
724 return
726 ifb(e+1,f-1)=1andb(e-4,f+4)+b(e-3,f+3)=0then et=e-3:ft=f+3:gosub640:return
728 ifb(e+1,f-1)=1andb(e-1,f+1)+b(e-4,f+4)=0then et=e-1:ft=f+1:gosub640:return
730 ifb(e+1,f-1)=1andb(e-2,f+2)+b(e-4,f+4)=0then et=e-2:ft=f+2:gosub640:return
732 return
734 ifb(e+1,f+1)=1andb(e-3,f-3)+b(e-4,f-4)=0then et=e-3:ft=f-3:gosub640:return
736 ifb(e+1,f+1)=1andb(e-1,f-1)+b(e-4,f-4)=0then et=e-1:ft=f-1:gosub640:return
738 ifb(e+1,f+1)=1andb(e-2,f-2)+b(e-4,f-4)=0then et=e-2:ft=f-2:gosub640:return
740 return
746 ifb(e,f-1)+b(e,f-2)=0goto750
748 return
750 ifb(e,f+3)+b(e,f+4)=2thenet=e:ft=f-1:gosub640
752 return
754 ifb(e+1,f)+b(e+2,f)=0goto758
756 return
758 ifb(e-3,f)+b(e-4,f)=2thenet=e+1:ft=f:gosub640
760 return
762 ifb(e+1,f-1)+b(e+2,f-2)=0goto766
764 return
766 ifb(e-3,f+3)+b(e-4,f+4)=2thenet=e+1:ft=f-1:gosub640
768 return
770 ifb(e+1,f+1)+b(e+2,f+2)=0goto774
772 return
774 ifb(e-3,f-3)+b(e-4,f-4)=2thenet=e+1:ft=f+1:gosub640
776 return
778 ifb(e,f-1)=0goto782
780 return
782 ifb(e,f+4)=1goto786
784 goto794
786 ifb(e,f-2)+b(e,f+3)=0thenet=e:ft=f-1:we=9:gosub640:return
788 ifb(e,f+1)=0thenet=e:ft=f+1:gosub640:return
790 ifb(e,f+2)=0thenet=e:ft=f+2:gosub640:return
792 ifb(e,f+3)=0thenet=e:ft=f+3:gosub640:return
794 ifb(e,f+4)+b(e,f-2)=0andb(e,f+3)=1thenet=e:ft=f-1:gosub640:return
796 return
798 ifb(e+1,f)=0goto802
800 return
802 ifb(e-4,f)=1goto806
804 goto814
806 ifb(e+2,f)+b(e-3,f)=0thenet=e+1:ft=f:we=9:gosub640:return
808 ifb(e-1,f)=0thenet=e-1:ft=f:gosub640:return
810 ifb(e-2,f)=0thenet=e-2:ft=f:gosub640:return
812 ifb(e-3,f)=0thenet=e-3:ft=f:gosub640:return
814 ifb(e-4,f)+b(e+2,f)=0andb(e-3,f)=1thenet=e+1:ft=f:gosub640:return
816 return
818 ifb(e+1,f-1)=0goto822
820 return
822 ifb(e-4,f+4)=1goto826
824 goto834
826 ifb(e+2,f-2)+b(e-3,f+3)=0thenet=e+1:ft=f-1:we=9:gosub640:return
828 ifb(e-1,f+1)=0thenet=e-1:ft=f+1:gosub640:return
830 ifb(e-2,f+2)=0thenet=e-2:ft=f+2:gosub640:return
832 ifb(e-3,f+3)=0thenet=e-3:ft=f+3:gosub640:return
834 ifb(e-4,f+4)+b(e+2,f-2)=0andb(e-3,f+3)=1thenet=e+1:ft=f-1:gosub640:return
836 return
838 ifb(e+1,f+1)=0goto842
840 return
842 ifb(e-4,f-4)=1goto846
844 goto854
846 ifb(e+2,f+2)+b(e-3,f-3)=0thenet=e+1:ft=f+1:we=9:gosub640:return
848 ifb(e-1,f-1)=0thenet=e-1:ft=f-1:gosub640:return
850 ifb(e-2,f-2)=0thenet=e-2:ft=f-2:gosub640:return
852 ifb(e-3,f-3)=0thenet=e-3:ft=f-3:gosub640:return
854 ifb(e-4,f-4)+b(e+2,f+2)=0andb(e-3,f-3)=1thenet=e+1:ft=f+1:gosub640:return
856 return
858 ifb(e,f-1)=0goto862
860 return
862 ifb(e,f+1)=1andb(e,f-2)+b(e,f-3)=0thenet=e:ft=f-2:gosub640:goto872
864 ifb(e,f+1)=1andb(e,f-2)=0goto872
866 ifb(e,f+2)=1andb(e,f-2)=0thengoto874
868 ifb(e,f+3)=1thenet=e:ft=f+1:gosub640:et=e:ft=f+2:gosub640:return
870 return
872 et=e:ft=f-1:gosub640:et=e:ft=f+3:gosub640:et=e:ft=f+2:gosub640:return
874 et=e:ft=f-1:gosub640:et=e:ft=f+3:gosub640:et=e:ft=f+1:gosub640:return
878 ifb(e+1,f)=0goto882
880 return
882 ifb(e-1,f)=1andb(e+2,f)+b(e+3,f)=0thenet=e+2:ft=f:gosub640:goto892
884 ifb(e-1,f)=1andb(e+2,f)=0goto892
886 ifb(e-2,f)=1andb(e+2,f)=0goto894
888 ifb(e-3,f)=1thenet=e-1:ft=f:gosub640:et=e-2:ft=f:gosub640:return
890 return
892 et=e+1:ft=f:gosub640:et=e-3:ft=f:gosub640:et=e-2:ft=f:gosub640:return
894 et=e+1:ft=f:gosub640:et=e-3:ft=f:gosub640:et=e-1:ft=f:gosub640:return
898 ifb(e+1,f-1)=0goto902
900 return
902 ifb(e-1,f+1)=1andb(e+2,f-2)+b(e+3,f-3)=0thenet=e+2:ft=f-2:gosub640:goto912
904 ifb(e-1,f+1)=1andb(e+2,f-2)=0goto912
906 ifb(e-2,f+2)=1andb(e+2,f-2)=0goto914
908 ifb(e-3,f+3)=1thenet=e-2:ft=f+2:gosub640:et=e-1:ft=f+1:gosub640:return
910 return
912 et=e+1:ft=f-1:gosub640:et=e-3:ft=f+3:gosub640:et=e-2:ft=f+2:gosub640:return
914 et=e+1:ft=f-1:gosub640:et=e-3:ft=f+3:gosub640:et=e-1:ft=f+1:gosub640:return
918 ifb(e+1,f+1)=0goto922
920 return
922 ifb(e-1,f-1)=1andb(e+2,f+2)+b(e+3,f+3)=0thenet=e+2:ft=f+2:gosub640:goto932
924 ifb(e-1,f-1)=1andb(e+2,f+2)=0goto932
926 ifb(e-2,f-2)=1andb(e+2,f+2)=0goto934
928 ifb(e-3,f-3)=1thenet=e-2:ft=f-2:gosub640:et=e-1:ft=f-1:gosub640:return
930 return
932 et=e+1:ft=f+1:gosub640:et=e-3:ft=f-3:gosub640:et=e-2:ft=f-2:gosub640:return
934 et=e+1:ft=f+1:gosub640:et=e-3:ft=f-3:gosub640:et=e-1:ft=f-1:gosub640:return
936 ifb(e,f-1)+b(e,f-2)=0goto940
938 return
940 ifb(e,f+3)+b(e,f+4)=16thenet=e:ft=f-1:gosub640:et=e:ft=f-2:gosub640:return
942 return
944 ifb(e+1,f)+b(e+2,f)=0goto948
946 return
948 ifb(e-3,f)+b(e-4,f)=16thenet=e+1:ft=f:gosub640:et=e+2:ft=f:gosub640:return
950 return
952 ifb(e+1,f-1)+b(e+2,f-2)=0goto956
954 return
956 ifb(e-3,f+3)+b(e-4,f+4)=16thenet=e+1:ft=f-1:gosub640:et=e+2:ft=f-2:gosub640:return
958 return
960 ifb(e+1,f+1)+b(e+2,f+2)=0goto964
962 return
964 ifb(e-3,f-3)+b(e-4,f-4)=16thenet=e+1:ft=f+1:gosub640:et=e+2:ft=f+2:gosub640:return
966 return
968 ifb(e,f)=8andb(e,f+1)=0andb(e,f+5)=1thenwe=10:et=e:ft=f+1:gosub640:return
969 ifb(e,f-1)=0goto972
970 return
972 ifb(e,f+4)=8goto976
974 goto996
976 ifb(e,f-2)+b(e,f+3)=0thenet=e:ft=f-1:we=7:gosub640:return
978 ifb(e,f+1)=0thenet=e:ft=f+1:gosub640:ft=f-1:gosub640:return
980 ifb(e,f+2)=0thenet=e:ft=f+2:gosub640:ft=f-1:gosub640:goto984
982 goto988
984 ifb(e,f-2)+b(e,f-3)=0thenet=e:ft=f-2:gosub640:return
986 return
988 ifb(e,f+3)=0thenet=e:ft=f+3:gosub640:ft=f-1:gosub640:goto1002
990 ifb(e,f+2)+b(e,f-2)=0andb(e,f+3)=8thenet=e:ft=f-1:goto994
992 goto996
994 gosub640:ifb(e,f-3)=0thenet=e:ft=f-2:gosub640:return
996 ifb(e,f+4)+b(e,f-2)=0andb(e,f+3)=8thenet=e:ft=f-1:goto1000
998 return
1000 gosub640:et=e:ft=f-2:gosub640:return
1002 ifb(e,f-2)=0thenet=e:ft=f-2:gosub640:return
1004 return
1006 ifb(e,f)=8andb(e-1,f)=0andb(e-5,f)=1thenwe=10:et=e-1:ft=f:gosub640:return
1007 ifb(e+1,f)=0goto1010
1008 return
1010 ifb(e-4,f)=8goto806
1012 goto1034
1014 ifb(e+2,f)+b(e-3,f)=0thenet=e+1:ft=f:we=7:gosub640:return
1016 ifb(e-1,f)=0thenet=e-1:ft=f:gosub640:et=e+1:gosub640:return
1018 ifb(e-2,f)=0thenet=e-2:ft=f:gosub640:et=e+1:gosub640:goto1022
1020 goto1026
1022 ifb(e+2,f)+b(e+3,f)=0thenet=e+2:ft=f:gosub640:return
1024 return
1026 ifb(e-3,f)=0thenet=e-3:ft=f:gosub640:et=e+1:gosub640:goto1040
1028 ifb(e-2,f)+b(e+2,f)=0andb(e-3,f)=8thenet=e+1:ft=f:goto1032
1030 goto1034
1032 gosub640:ifb(e+3,f)=0thenet=e+2:ft=f:gosub640:return
1034 ifb(e-4,f)+b(e+2,f)=0andb(e-3,f)=8thenet=e+1:ft=f:goto1038
1036 return
1038 gosub640:et=e+2:ft=f:gosub640:return
1040 ifb(e+2,f)=0thenet=e+2:ft=f:gosub640:return
1042 return
1044 ifb(e,f)=8andb(e-1,f+1)=0andb(e-5,f+5)=1thenwe=10:et=e-1:ft=f+1:gosub640:return
1046 ifb(e+1,f-1)=0goto1048
1047 return
1048 ifb(e-4,f+4)=8goto1052
1050 goto1072
1052 ifb(e+2,f-2)+b(e-3,f+3)=0thenet=e+1:ft=f-1:we=7:gosub640:return
1054 ifb(e-1,f+1)=0thenet=e-1:ft=f+1:gosub640:et=e+1:ft=f-1:gosub640:return
1056 ifb(e-2,f+2)=0thenet=e-2:ft=f+2:gosub640:et=e+2:ft=f-2:gosub640:goto1060
1058 goto1064
1060 ifb(e+2,f-2)+b(e+3,f-3)=0thenet=e+2:ft=f-2:gosub640:return
1062 return
1064 ifb(e-3,f+3)=0thenet=e-3:ft=f+3:gosub640:et=e+3:ft=f-3:gosub640:goto1078
1066 ifb(e-2,f+2)+b(e+2,f-2)=0andb(e-3,f+3)=8thenet=e+1:ft=f-1:goto1070
1068 goto1072
1070 gosub640:ifb(e+3,f-3)=0thenet=e+2:ft=f-2:gosub640:return
1072 ifb(e-4,f+4)+b(e+2,f-2)=0andb(e-3,f+3)=8thenet=e+1:ft=f-1:goto1076
1074 return
1076 gosub640:et=e+2:ft=f-2:gosub640:return
1078 ifb(e+2,f-2)=0thenet=e+2:ft=f-2:gosub640:return
1080 return
1082 ifb(e,f)=8andb(e-1,f-1)=0andb(e-5,f-5)=1thenwe=10:et=e-1:ft=f-1:gosub640:return
1083 ifb(e+1,f+1)=0goto1086
1084 return
1086 ifb(e-4,f-4)=8goto1090
1088 goto1110
1090 ifb(e+2,f+2)+b(e-3,f-3)=0thenet=e+1:ft=f+1:we=7:gosub640:return
1092 ifb(e-1,f-1)=0thenet=e-1:ft=f-1:gosub640:et=e+1:ft=f+1:gosub640:return
1094 ifb(e-2,f-2)=0thenet=e-2:ft=f-2:gosub640:et=e+2:ft=f+2:gosub640:goto1098
1096 goto1102
1098 ifb(e+2,f+2)+b(e+3,f+3)=0thenet=e+2:ft=f+2:gosub640:return
1100 return
1102 ifb(e-3,f-3)=0thenet=e-3:ft=f-3:gosub640:et=e+3:ft=f+3:gosub640:goto1116
1104 ifb(e-2,f-2)+b(e+2,f+2)=0andb(e-3,f-3)=8thenet=e+1:ft=f+1:goto1108
1106 goto1110
1108 gosub640:ifb(e+3,f+3)=0thenet=e+2:ft=f+2:gosub640:return
1110 ifb(e-4,f-4)+b(e+2,f+2)=0andb(e-3,f-3)=8thenet=e+1:ft=f+1:goto1114
1112 return
1114 gosub640:et=e+2:ft=f+2:gosub640:return
1116 ifb(e+2,f+2)=0thenet=e+2:ft=f+2:gosub640:return
1118 return
1120 ifb(e,f-1)=0goto1124
1122 return
1124 ifb(e,f+4)=1goto1130
1126 ifb(e,f+3)=1andb(e,f+1)=8goto1136
1128 return
1130 ifb(e,f+1)=8thenet=e:ft=f+2:gosub640:goto1136
1132 ifb(e,f+2)=8thenet=e:ft=f+1:gosub640:goto1138
1134 return
1136 ifb(e,f-2)+b(e,f-3)=0thenet=e:ft=f-1:gosub640:et=e:ft=f-2:gosub640:return
1138 ifb(e,f-2)=0thenet=e:ft=f-1:gosub640:return
1140 return
1142 ifb(e+1,f)=0goto1146
1144 return
1146 ifb(e-4,f)=1goto1152
1148 ifb(e-3,f)=1andb(e-1,f)=8goto1158
1150 return
1152 ifb(e-1,f)=8thenet=e-2:ft=f:gosub640:goto1158
1154 ifb(e-2,f)=8thenet=e-1:ft=f:gosub640:goto1160
1156 return
1158 ifb(e+2,f)+b(e+3,f)=0thenet=e+1:ft=f:gosub640:et=e+2:ft=f:gosub640:return
1160 ifb(e+2,f)=0thenet=e+1:ft=f:gosub640:return
1162 return
1164 ifb(e+1,f-1)=0goto1168
1166 return
1168 ifb(e-4,f+4)=1goto1174
1170 ifb(e-3,f+3)=1andb(e-1,f+1)=8goto1180
1172 return
1174 ifb(e-1,f+1)=8thenet=e-2:ft=f+2:gosub640:goto1180
1176 ifb(e-2,f+2)=8thenet=e-1:ft=f+1:gosub640:goto1182
1178 return
1180 ifb(e+2,f-2)+b(e+3,f-3)=0thenet=e+1:ft=f-1:gosub640:et=e+2:ft=f-2:gosub640:return
1182 ifb(e+2,f-2)=0thenet=e+1:ft=f-1:gosub640:return
1184 return
1186 ifb(e+1,f+1)=0goto1190
1188 return
1190 ifb(e-4,f-4)=1goto1196
1192 ifb(e-3,f-3)=1andb(e-1,f-1)=8goto1202
1194 return
1196 ifb(e-1,f-1)=8thenet=e-2:ft=f-2:gosub640:goto1202
1198 ifb(e-2,f-2)=8thenet=e-1:ft=f-1:gosub640:goto1204
1200 return
1202 ifb(e+2,f+2)+b(e+3,f+3)=0thenet=e+1:ft=f+1:gosub640:et=e+2:ft=f+2:gosub640:return
1204 ifb(e+2,f+2)=0thenet=e+1:ft=f+1:gosub640:return
1206 return
1208 gosub406
1210 ifb(e,f+1)=0goto1222
1212 ifb(e,f-1)<>0thenreturn
1214 ifb(e,f-2)<>0thenreturn
1216 et=e:ft=f-1:gosub640
1218 ifb(e,f-3)<>0then return
1220 et=e:ft=f-2:gosub640:return
1222 ifb(e,f+2)=0goto1230
1224 ifb(e,f-2)+b(e,f-1)<>0goto1228
1226 et=e:ft=f-1:gosub640
1228 ifb(e,f+5)+b(e,f+6)=0thenet=e:ft=f+5:gosub640:return
1230 ifb(e,f+5)+b(e,f+6)=0thenet=e:ft=f+5:gosub640:goto1234
1232 return
1234 ifb(e,f+7)=0thenet=e:ft=f+6:gosub640:return
1236 return
1238 gosub412
1240 ifb(e-1,f)=0goto1252
1242 ifb(e-1,f)<>0thenreturn
1244 ifb(e+2,f)<>0thenreturn
1246 et=e+1:ft=f:gosub640
1248 ifb(e+3,f)<>0then return
1250 et=e+2:ft=f:gosub640:return
1252 ifb(e-2,f)=0goto1260
1254 ifb(e+2,f)+b(e+1,f)<>0goto1258
1256 et=e+1:ft=f:gosub640
1258 ifb(e-5,f)+b(e-6,f)=0thenet=e-5:ft=f:gosub640:return
1260 ifb(e-5,f)+b(e-6,f)=0thenet=e-5:ft=f:gosub640:goto1264
1262 return
1264 ifb(e-7,f)=0thenet=e-6:ft=f:gosub640:return
1266 return
1268 gosub418
1270 ifb(e-1,f+1)=0goto1282
1272 ifb(e+1,f-1)<>0thenreturn
1274 ifb(e+2,f-2)<>0thenreturn
1276 et=e+1:ft=f-1:gosub640
1278 ifb(e+3,f-3)<>0then return
1280 et=e+2:ft=f-2:gosub640:return
1282 ifb(e-2,f+2)=0goto1290
1284 ifb(e+2,f-2)+b(e+1,f-1)<>0goto1288
1286 et=e+1:ft=f-1:gosub640
1288 ifb(e-5,f+5)+b(e-6,f+6)=0thenet=e-5:ft=f+5:gosub640:return
1290 ifb(e-5,f+5)+b(e-6,f+6)=0thenet=e-5:ft=f+5:gosub640:goto1294
1292 return
1294 ifb(e-7,f+7)=0thenet=e-6:ft=f+6:gosub640:return
1296 return
1298 gosub424
1300 ifb(e-1,f-1)=0goto1312
1302 ifb(e+1,f+1)<>0thenreturn
1304 ifb(e+2,f+2)<>0thenreturn
1306 et=e+1:ft=f+1:gosub640
1308 ifb(e+3,f+3)<>0then return
1310 et=e+2:ft=f+2:gosub640:return
1312 ifb(e-2,f-2)=0goto1320
1314 ifb(e+2,f+2)+b(e+1,f+1)<>0goto1318
1316 et=e+1:ft=f+1:gosub640
1318 ifb(e-5,f-5)+b(e-6,f-6)=0thenet=e-5:ft=f-5:gosub640:return
1320 ifb(e-5,f-5)+b(e-6,f-6)=0thenet=e-5:ft=f-5:gosub640:goto1324
1322 return
1324 ifb(e-7,f-7)=0thenet=e-6:ft=f-6:gosub640:return
1326 return
1328 ifb(e,f)=8andb(e,f+1)=0goto1360
1330 ifb(e,f)=1andb(e,f+1)=1andb(e,f+2)=0goto1334
1332 goto1348
1334 ifb(e,f-1)<>0thenreturn
1336 ifb(e,f-2)<>0goto1340
1338 et=e:ft=f-1:gosub640
1340 ifb(e,f+4)<>8goto1344
1342 et=e:ft=f+2:gosub640
1344 ifb(e,f-3)andb(e,f-2)<>0thenreturn
1346 et=e:ft=f-2:gosub640:return
1348 ifb(e,f+1)+b(e,f+3)<>0thenreturn
1350 ifb(e,f)+b(e,f+2)<>2thenreturn
1352 ifb(e,f-1)<>0thenreturn
1354 et=e:ft=f+1:gosub640
1356 ifb(e,f-2)<>0thenreturn
1358 et=e:ft=f-1:gosub640:return
1360 ifb(e,f+4)+b(e,f+5)<>0goto1368
1362 et=e:ft=f+4:gosub640
1364 ifb(e,f+6)<>0thenreturn
1366 et=e:ft=f+5:gosub640:return
1368 ifb(e,f+3)+b(e,f+5)<>0thenreturn
1370 et=e:ft=f+3:gosub640:goto1364
1374 ifb(e,f)=8andb(e-1,f)=0goto1406
1376 ifb(e,f)=1andb(e-1,f)=1andb(e-2,f)=0goto1380
1378 goto1394
1380 ifb(e+1,f)<>0thenreturn
1382 ifb(e+2,f)<>0goto1386
1384 et=e+1:ft=f:gosub640
1386 ifb(e-4,f)<>8goto1390
1388 et=e-2:ft=f:gosub640
1390 ifb(e+3,f)andb(e+2,f)<>0thenreturn
1392 et=e+2:ft=f:gosub640:return
1394 ifb(e-1,f)+b(e-3,f)<>0thenreturn
1396 ifb(e,f)+b(e-2,f)<>2thenreturn
1398 ifb(e+1,f)<>0thenreturn
1400 et=e-1:ft=f:gosub640
1402 ifb(e+2,f)<>0thenreturn
1404 et=e+1:ft=f:gosub640:return
1406 ifb(e-4,f)+b(e-5,f)<>0goto1414
1408 et=e-4:ft=f:gosub640
1410 ifb(e-6,f)<>0thenreturn
1412 et=e-5:ft=f:gosub640:return
1414 ifb(e-3,f)+b(e-5,f)<>0thenreturn
1416 et=e-3:ft=f:gosub640:goto1410
1420 ifb(e,f)=8andb(e-1,f+1)=0goto1452
1422 ifb(e,f)=1andb(e-1,f+1)=1andb(e-2,f+2)=0goto1426
1424 goto1440
1426 ifb(e+1,f-1)<>0thenreturn
1428 ifb(e+2,f-2)<>0goto1432
1430 et=e+1:ft=f-1:gosub640
1432 ifb(e-4,f+4)<>8goto1436
1434 et=e-2:ft=f+2:gosub640
1436 ifb(e+3,f-3)andb(e+2,f-2)<>0thenreturn
1438 et=e+2:ft=f-2:gosub640:return
1440 ifb(e-1,f+1)+b(e-3,f+3)<>0thenreturn
1442 ifb(e,f)+b(e-2,f+2)<>2thenreturn
1444 ifb(e+1,f-1)<>0thenreturn
1446 et=e-1:ft=f+1:gosub640
1448 ifb(e+2,f-2)<>0thenreturn
1450 et=e+1:ft=f-1:gosub640:return
1452 ifb(e-4,f+4)+b(e-5,f+5)<>0goto1460
1454 et=e-4:ft=f+4:gosub640
1456 ifb(e-6,f+6)<>0thenreturn
1458 et=e-5:ft=f+5:gosub640:return
1460 ifb(e-3,f+3)+b(e-5,f+5)<>0thenreturn
1462 et=e-3:ft=f+3:gosub640:goto1456
1466 ifb(e,f)=8andb(e-1,f-1)=0goto1498
1468 ifb(e,f)=1andb(e-1,f-1)=1andb(e-2,f-2)=0goto1472
1470 goto1486
1472 ifb(e+1,f+1)<>0thenreturn
1474 ifb(e+2,f+2)<>0goto1478
1476 et=e+1:ft=f+1:gosub640
1478 ifb(e-4,f-4)<>8goto1482
1480 et=e-2:ft=f-2:gosub640
1482 ifb(e+3,f+3)andb(e+2,f+2)<>0thenreturn
1484 et=e+2:ft=f+2:gosub640:return
1486 ifb(e-1,f-1)+b(e-3,f-3)<>0thenreturn
1488 ifb(e,f)+b(e-2,f-2)<>2thenreturn
1490 ifb(e+1,f+1)<>0thenreturn
1492 et=e-1:ft=f-1:gosub640
1494 ifb(e+2,f+2)<>0thenreturn
1496 et=e+1:ft=f+1:gosub640:return
1498 ifb(e-4,f-4)+b(e-5,f-5)<>0goto1506
1500 et=e-4:ft=f-4:gosub640
1502 ifb(e-6,f-6)<>0thenreturn
1504 et=e-5:ft=f-5:gosub640:return
1506 ifb(e-3,f-3)+b(e-5,f-5)<>0thenreturn
1508 et=e-3:ft=f-3:gosub640:goto1502
1512 poke53280,0:poke53281,0
1514 print"[147][158]";
1516 print"[159][169] [223][146] [169] [223][146] [223][146] [169] [223][146] [223][146] [146] [169] [223]";
1518 print"[153] [146] [146] [146][169] [223] [146] [146] [223] [146] [169][146][169] [223][223][146] [223][146] [146] [146] [146]";
1520 print" [146] [146] [146] [146] [169][146][169] [146] [146] [146][223][223][146] [146] [146] ";
1522 print"[158] [146] [146] [146] [146] [223][146] [146] [146] [223][223] [146] [146] ";
1524 print"[159] [146] [146] [146] [146] [146] [223] [146] [146] [146] [146] [223] [146] [146] [146] ";
1526 print"[153] [146] [146] [223][146] [169] [146] [146] [169] [146] [146] [146] [146] [146] [146] ";
1528 print"[146][223] [146][169] [223] [146][169] [146][169] [146] [146] [146] [146] [223] [146][169]";
1530 print"";:a=4
1534 fori=1587to1619:readm:pokei,m:pokeu+4,0:nexti
1584 i=0:a=154
1588 print"[158]drucken sie";
1590 poke1626+160,34 :poke1626+54272,1
1592 poke1684+a,134:poke1684+a+54272,12
1594 poke1685+a,177:poke1685+a+54272,12
1596 poke1643+a,108:poke1643+a+54272,12
1598 poke1644+a,98 :poke1644+a+54272,12
1600 poke1645+a,98 :poke1645+a+54272,12
1602 poke1646+a,123:poke1646+a+54272,12
1604 poke1683+a,225:poke1683+a+54272,12
1606 poke1686+a,97 :poke1686+a+54272,12
1608 poke1723+a,124:poke1723+a+54272,12
1610 poke1724+a,226:poke1724+a+54272,12
1612 poke1725+a,226:poke1725+a+54272,12
1614 poke1726+a,126:poke1726+a+54272,12
1620 print"[158]und das spiel startet"
1636 poke198,0
1638 geta$
1640 ifa$=chr$(133)thenti$="000000":print"[147]":return
1644 ifa$=""goto1638
1646 goto1638
1720 data16,18,15,7,18,1,13,13,9,5,18,20,32,22,15,14,32,20,8,15,18,19,20,5,14,32
1730 data2,1,18,20,5,12,20
1740 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,68,0,0,40,0,0,16,0,0
1750 data40,0,0,68,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1800 ifko=1thengosub38
1805 print""spc(27)"die anzahl"
1810 printspc(27)"der gesetzten"
1820 printspc(27)"[145]steine >[146]"ko
1821 print
1822 print
1823 print
1830 printspc(27)"ihre "
1835 printspc(27)"spielzeit"
1838 printspc(27)"betraegt:"
1839 printspc(27)""mid$(ti$,1,2)" stunden"
1841 printspc(27)""mid$(ti$,3,2)" minuten"
1842 printspc(27)""mid$(ti$,5,2)" sekunden"
1850 return
1900 ifd=0thengosub38
1910 return