SCHNECKENRENNEN =====16= (P) COMMODORE WELT =[ =======================y( (C) BY RALF VIEZENS =2 =< =F VERSION 3.5 40Z/ASCII =P C16/116/PLUS4 =Z =======================)dV1$(017):V2$(145)CnV3$(018):V4$(146)]xV5$(130):V6$(131)wV7$(019):F1$(158)F2$(159) ********************** ********** TITELBILD * **********************# 810,020,854,015,881,020,917,015,897,020,917,010,897,010,881,030i 864,020,881,015,854,020,810,015,834,020,810,030,810,002,810,000B$(1)"* * * * * * * * * * * * * "B$(2)"* * * * * * * * * * * * * "B$(3)" * * * * * * * * * * * * * "9B$(4)" * * * * * * * * * * * * * "mB$(5)" * * * * * * * * * * * * *"B$(6)" * * * * * * * * * * * * *"A$(17):0,6,3:4,6,3:1,8,6V1$V1$ "A$(1)" *** RALF VIEZENS *** PRAESENTIERT**** ",T1(A$(1))16V2$F1$(A$(1),T)E@S100080040SJ4:1,S,1ZTSi^Z140:ZphT|rT106|V7$F2$B$(1)V1$V1$V1$F2$B$(2)Z150:ZV7$F2$B$(3)V1$V1$V1$F2$B$(4)Z150:ZV7$F2$B$(5)V1$V1$V1$F2$B$(6)!Z150:Z(T/68180>GS,DR1,S,D\D0A$(2)" "&A$(3)" "0A$(4)" " :A$(5)" "QDA$(6)" "NA$(7)" "XA$(8)" O@"bA$(9)" "lA$(10)" "HvA$(11)" "zA$(12)" "A$(13)" "A$(14)" "A$(15)" "BA$(16)" O@"tA$(17)" "T139V7$V1$V1$V1$V1$V1$V1$X217F1$(A$(X),T)XS8001000404:1,S,1S T V7$F2$B$(1)*V1$V1$V1$F2$B$(2)-4Z150:Z>>V7$F2$B$(3)UHV1$V1$V1$F2$B$(4)dRZ150:Zu\V7$F2$B$(5)fV1$V1$V1$F2$B$(6)pZ150:ZzX$X$" "T1000700256:1,T,2T:0,12,4:4,12,4:1,1,1 *********************. **** VORBEREITUNGEN *J *********************u6)V1$V1$V1$V1$"WIE VIELE SPIELER ??"6)V1$"(1-7)?";SSSS1SS710005:1,881,54)V1$V1$V1$V1$V1$"EINGABE DER SPIELERNAMEN !!" 5)"(MAX. 8 BUCHSTABEN)"::$I1SS].V2$" ": 38 X SPACEu84)V2$"SPIELER "I;BS$(I)L5:1,881,5VL(S$(I))`L81070jItSS1SS71080~K(1)100SS1K(2)100:K(2)0 SS2K(3)100:K(3)0&SS3K(4)100:K(4)0ASS4K(5)100:K(5)0\SS5K(6)100:K(6)0wSS6K(7)100:K(7)0 ********************* ***** HAUPTSCHLEIFE * *********************K(1)(K(1)E(1)):E(1)0:P(1)0K(2)(K(2)E(2)):E(2)0:P(2)07K(3)(K(3)E(3)):E(3)0:P(3)0[K(4)(K(4)E(4)):E(4)0:P(4)0 K(5)(K(5)E(5)):E(5)0:P(5)0K(6)(K(6)E(6)):E(6)0:P(6)0K(7)(K(7)E(7)):E(7)0:P(7)0(K(1)K(2)K(3)K(4)K(5)K(6)K(7)137502VV1<:0,14,6:4,14,6:1,1,11F18)"RENNEN"VbPV1$"SPIELER KAPITAL SCHNECKE QUOTE"Z""dK(1)0"1)"S$(1)nK(1)0V2$11)K(1);x19)""39)""K(2)0"2)"S$(2)K(2)0V2$11)K(2);19)""39)""1K(3)0"3)"S$(3)KK(3)0V2$11)K(3);_19)""39)""vK(4)0"4)"S$(4)K(4)0V2$11)K(4);19)""39)""K(5)0"5)"S$(5)K(5)0V2$11)K(5)V2$19)""39)"" K(6)0"6)"S$(6) K(6)0V2$11)K(5)2 V2$19)""39)""I K(7)0"7)"S$(7)b "K(7)0V2$11)K(6)y ,V2$19)""39)"" 6"" @G1$"ROMEO " JG2$"FLIPPER " TG3$"WIRBELWIND" ^G4$"BLEIFUSS "!hG5$"KUGELBLITZ"!rV7$6!|20)V1$V1$V1$V1$"1)"G1$J!20)V1$"2)"G2$^!20)V1$"3)"G3$r!20)V1$"4)"G4$!20)V1$"5)"G5$!V7$V1$V1$V1$!2050!Q1QX!2050!Q2QX!2050!Q3QX!2050!Q4QX!2050!Q5QX"I1SS#"&V1$V1$V1$V1$V1$V1$V1$:"0ISSK(I)12380i":K(I)1V2$V2$V2$V2$V2$V2$V2$V2$V2$:1990"DV2$V2$V2$" SPIELER "I"NV1$" ": 38 X SPACE#XV1$" ": 38 X SPACE0#bV2$V2$V2$" WIEVIEL WOLLEN SIE SETZEN ?";:#lE(I)J#v5:1,881,5e#E(I)K(I)E(I)11860x#K(I)K(I)E(I)#V1$" AUF WEN SETZEN SIE (1,2,3,4,5)?";#P(I)#5:1,881,5#P(I)1P(I)5V2$V2$V2$:1860#2080#I$L11000:L$2380+$ *********************G$ **** UNTERPROGRAMME *c$ *********************v$QX((1)9)2$ 33)V1$QX$$ P(I)1QXQ1$*P(I)2QXQ2$4P(I)3QXQ3$>P(I)4QXQ4$HP(I)5QXQ5$RE(I)10002350%\QXQX(E(I)100)%fQX2QX2/%pP(I)1Q1QXA%zP(I)2Q2QXS%P(I)3Q3QXe%P(I)4Q4QXw%P(I)5Q5QX%V7$V1$V1$V1$%T15%33)V1$" ":T%V7$V1$V1$V1$V1$V1$33);%"##.#";Q1%V1$33);%"##.#";Q2&V1$33);&"##.#";Q3!&V1$33);1& "##.#";Q4?& V1$33);O& "##.#";Q5U&$ b&. QXQX10q&8 QX2QX2{&B 2160&L :0,11,3:4,11,3:1,8,5&V SZ0&` 2780,2880,2980,3080,3180&j L301&t V7$V1$V1$V1$13)V3$L&~ 6:1,800,10' T1250:T' L,' G10:G20:G30:G40:G502' H' QXQ1:GXG1:2600g' G1GX:SZ((G15)1):2780}' QXQ2:GXG2:2600' G2GX:SZ((G25)1):2880' QXQ3:GXG3:2600' G3GX:SZ((G35)1):2980' QXQ4:GXG4:2600( G4GX:SZ((G45)1):3080( QXQ5:GXG5:2600;( G5GX:SZ((G55)1):3180i( G1150G2150G3150G4150G5150s( 2690(( QX2Z6(2 QX5Z5(< QX7Z4(F QX9Z3(P QX13Z2(Z QX17Z1(d Y(((1)26)Z)(n GXGXY(x ) G1G2G1G3G1G4G1G5Y1@) G2G1G2G3G2G4G2G5Y2e) G3G1G3G2G3G4G3G5Y3) G4G1G4G2G4G3G4G5Y4) G5G1G5G2G5G3G5G4Y5) 3320) *********************) UNTERPROGRAMM RENNEN * *********************F* 1,0,2," ": 32 SPACE* 1,0,3," ": 32 SPACE* 1,0,4," ": 32 SPACE* 1,SZ,2," "* 1,SZ,3," O@"* 1,SZ,4,""+ 4+" 3,1000,2+, 3,850,2!+6 [+@ 1,0,7," ": 32 SPACE+J 1,0,8," ": 32 SPACE+T 1,0,9," ": 32 SPACE+^ 1,SZ,7," "+h 1,SZ,8," O@",r 1,SZ,9,"",| 4", 3,900,2/, 3,750,25, o, 1,0,11," ": 32 SPACE, 1,0,12," ": 32 SPACE, 1,0,13," ": 32 SPACE, 1,SZ,11," "- 1,SZ,12," O@"%- 1,SZ,13,"",- 4:- 3,1000,2G- 3,850,2M- - 1,0,16," ": 32 SPACE- 1,0,17," ": 32 SPACE- 1,0,18," ": 32 SPACE.& 1,SZ,16," "'.0 1,SZ,17," O@"=.: 1,SZ,18,""D.D 4Q.N 3,900,2^.X 3,750,2d.b .l 1,0,21," ": 32 SPACE.v 1,0,22," ": 32 SPACE/ 1,0,23," ": 32 SPACE'/ 1,SZ,21," ">/ 1,SZ,22," O@"T/ 1,SZ,23,""[/ 4i/ 3,1000,2v/ 3,850,2/ L0200:L/ / *********************/ GEWINNER ERMITTELN */ *********************/ V7$V1$V1$V1$V1$V1$F2$0 " ************************"?0 " * *"a0 " * *"0 " * *"0* Y18)V2$F1$V5$G1$04 Y28)V2$F1$V5$G2$0> Y38)V2$F1$V5$G3$0H Y48)V2$F1$V5$G4$1R Y58)V2$F1$V5$G5$*1\ F2$" * *"L1f " * *"n1p " * *"1z " * "F1$"HAT GEWONNEN "F2$"*"1 " * *"1 " ************************"1 35301 1 S,D2 6:1,S,D2 D0<2 815,18,854,18,897,25,917,40,917,5,917,0M2 L01800:LS2 u2 9)"GEWINNER QUOTE"2 Y1V1$V1$9)V5$G1$V6$" "Q12 Y2V1$V1$9)V5$G2$V6$" "Q22Y3V1$V1$9)V5$G3$V6$" "Q3)3Y4V1$V1$9)V5$G4$V6$" "Q4V3Y5V1$V1$9)V5$G5$V6$" "Q5b3$I1SS3.P(I)YV1$V1$" SPIELER"I"HAT GEWONNEN !!"38P(I)Y36903BP(I)YE(I)03LI3VL11800:L3`12503jY1E(I)(E(I)Q1) 4tY2E(I)(E(I)Q2)#4~Y3E(I)(E(I)Q3);4Y4E(I)(E(I)Q4)S4Y5E(I)(E(I)Q5)Y4_4x40,7,1:4,7,1:1,8,44V1$V1$V1$V1$V1$" ***********************************"4V1$V1$9)"SPIELENDE !!!!!!! " 5V1$V1$" ***********************************"P5V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$V1$18)F2$"NEUES SPIEL MIT + !!"Y5180_5h5S,Dv56:1,S,D5 D05Z$5Z$"+"9405(386052