_4 256,152636A1$"HEIMCOMPUTER robotron Z9001"KA2$"SPIEL":A92](A3$"SKEETL9"r2A4$" S K E E T"<A5$"WURFTAUBENSCHIESSEN" F861,1:862,255:4152,32P VERFASSER Grundprogramm :D. Neumann RED/EC83Z ERWEITERUNG (Informationen,Reaktionen,Blinkeingaben):W.SPIEHL MKD/TN`dVERFASSER UP-blink:M.SCHREIBER MKD/1EKGxn:A9:8:1: x1;(0,0);" ":23,23,39,39:1::8(2,2);A1$:(4,2);"",(34,""),"" (5,2);"":(5,37);"" (6,2);"",(34,""),"" )(5,3);A2$:3;(5,29);A3$ DA9:(8,2);(36,"") mI913:(I,2);"":(I,37);"":I (14,2);(36,"") 8:(10,36(A4$));A4$:(12,36(A5$));A5$ 3:(19,2);"VEB ROBOTRON-MESSELEKTRONIK" (20,8);">OTTO SCHOEN< DRESDEN":8!ZE17:EI$(13)5L$"*** LUXUS "K10000:UP-lauftxR2O(0)201:O(1)207:O(2)195:O(3)166:O(4)140S(0)116:S(1)20:S(2)36:S(3)52:S(4)84:S(5)100 :1::1;(0,0);" "7:M$"N""(5,0);(40,"#"):(19,0);(40,"#"):206,(8,0);"Bitte eingeben :"n6(12,0);"> < ...Erlaeuterungen und Entscheidungen"@(13,7);"gewuenscht"J(14,0);"> < ...Es soll gleich mit Standard-"T(15,7);"einstellung losgehen" ^EI$: EI$"A" EI$"B"360:390& h(12,1);"A":(14,1);"B" I r:4:(12,1);" ":(14,1);" "U |4:350~  EI$"A"(12,1);"A":Ԟ(14,1);"B" 20:  EI$"B"420:430 HP42:AK$"J":960 (1,3);"ICH starte 50 Wurftauben" (3,3);"SIE muessen die anfliegenden"5 (5,3);"Objekte mit der >SPACE< -Taste"R (7,3);"abschieszen..."Z 20} (9,3);"ICH belohne nach dem" 2;(14,5);"L e i s t u n g s p r i n z i p !" 4;(11,0);(40,(160)) 4;(16,0);(40,(160)) (19,3);"Lassen SIE sich ueberraschen !"; (22,22);"Code fuer interne"\ (23,22);"Information : 64"k &I1 1000| 0IN$"":IN$ :IN$"@" 3950 DIN$"@"600 NI S690 X:(0,0);"INTERNE INFORMATION (II)" ](1,0);(24,"") b(3,0);"Demonstration einer Hauptreaktion"V l(7,0);"angen.Treffer Reaktion MKZ"l q(8,0);(40,"_") s(10,0);" 6 -->OS >1<" v(12,0);" 12 konfus >2<" (14,0);" 18 varwind >3<"H (16,0);" 48 Hauptpreis >4<" (20,0);"keine Demonstration gewuenscht >5<" DE$: DE$""670 DE(DE$): DE 1645,1650,1660,1670,690 : (2,3);"Ab wieviel Treffern soll ICH den "(2;(5,3);"===> H A U P T P R E I S <===" B(8,28);"vergeben ?"[2420:Blinkwahl(xx)RA$"So leicht mache ICH es IHNEN nicht !"RB$"---> Neu eingeben !"RC$"Und DEN Preis wollen SIE gewinnen ??" RD$"Aber,aber ICH werfe doch nur 50Tauben !"+ HP42 3;(16,0);RA$:810K HP503;(16,0);RD$:810r HP51HP44 6;(16,0);RC$:20{ 870*R(RB$) 4I14>(17,5);(R,(32)):4H6;(17,5);RB$::4RI\690f1::5:4;(8,5);"Akustische Treffermarkierung " 8p4;(10,15);"gewuenscht? ( / )"Tz2;(10,28);"J/N":4:k(10,28);" / ":4AK$:AK$""(AK$"J" AK$"N")890AK$"J"2;(10,28);AK$:15:960:9302;(10,30);AK$:156;(15,3);"Na,na...Ihre Nerven sind doch nicht"B6;(16,3);"etwa jetzt schon schwach ?":30` B34 M$"1":1030:970:2:(13,3);"Auf Grund Ihrer guten Leistung biete" (14,3);"Ich Ihnen nun auch die Wahl der"(15,3);"SCHWIERIGKEITSSTUFE! " (16,3);"Waehlen Sie !""(22,4);"STUFE"D22,22,18,39:2570:BlinkwahltM$"1"M$"2"10:::1;(0,0);" ":10502;(20,3);"WIE BITTE ?":1020AB$"":::(3,0);"NEUSTART!(Standardeinstellung)"AK$"J":M$"1":HP42"(8,3);"ACHTUNG...":I1350::(10,3);"FERTIG..."G$I1200::(12,3);"LOS!!!":30m.5:5:5::5;(0,0);" ":A0:B088; (8,1);"TAUBEN :",AB8; (10,1);"TREFFER:",BL4;(12,2);"FEHLER:",ABVA50 C(AB)A100:1140`4;(22,2);"FEHLER (%):":2;(23,2);Cj50:16201tN((1)6.8)M~(NC)(N0)1140 CN^M$"1"1230L((1)5.8)1:L1180,1190,1200,1210,1220,1230Z4216:1240Z4218:1240Z4222:1240Z4224:1240Z4226:1240Z4220V((1)4.9):P((1)5.9)>C1260,1270,1280,1290,1300,1310[E4560:FE39:G1:1320yE4601:FE39:G1:1320E4841:FE39:G1:1320 E4960:FE39:G1:1320E5116:FE943:G41:1320E5086:FE936:G39:1320(I41904170:I,32:I:I1200:ID2FZZ:AA1:X0:FZ 984,36:FZ40,204Q<KEFG}FKG,32:K1024,S(P):K,O(V):KFK,32PKZ1430ZX01390dI13::AB$:AB$(27)1045jAB$" "1410 X1nZ5040Z,32:1410xZZ80:Z1024,52:Z,58:Z80,32:ZK1430$K>Z,32:A5116201080d AK$"J" 3890:==>UP-explosionnBB1K1024,20:K1022,52K,202:K2,42:1K1026,52:K944,52:7K2,42:K80,42:2K1104,52:K942,52:8K80,42:K82,42:3$K1106,52:K1110,52:5=K82,42:K86,42:4YK1030,52:K938,52:1rK 6,42:K86,42:6I110:I:5K,32:K2,32:K2,32"K2,32:K80,32,K80,32:K82,326K86,32:K82,32@K86,32:K 6,32JA511080 TI41904170:I,32:I>^1:4:1::1;(0,0);" "ch1680:INT.INF.(II) eingeschobenm:A50:B6:M$"1":1680r:A50:B12:M$"1":1680|:A50:B18:M$"1":1680:A50:B48:M$"1":1680:XXXXXXXXXXXXXX AUSWERTUNG XXXXXXX(3,5);"SIE haben bei"1(5,4);A,"Tauben"Q(7,4);B,"mal getroffen !"Z1(1.15B(1)B):Zahl der Zeichen fuer UP-konfeB71740:181025:(12,0);"Dieses Ergebnis ist absolut miserabel!" (13,0);"Das kann ich gar nicht zur Kenntnis"$(14,0);"nehmen":20Z(17,0);"Sie sind fuer mich kein Spielpartner !":70::(23,16);"***** A D I E U ! *****"25:(23,0);(40," "):4152,16::===>BETRIEBSSYSTEMB121990M$"1"1890&(10,5);"SIE haben sich fuer den Anfang"F0(12,5);"zuviel vorgenommen, versuchen"n:(14,5);"SIE es doch mit der" D(16,5);"einfachen Variante!"N50:2660:J/N-BlinkX2390b(10,5);"Mit dieser miesen Leistung"l(12,5);"haben Sie mich im tiefsten Innern"9v(14,5);"schwer erschuettert!":30:c(5,5);"Mir wird ganz komisch !":20:(23,13);"HILFE! rEtt en Sie miCH!!"::203370:--->UP-konfus3;(10,2);"Na also! Sie sollten es vielleicht"3;(12,2);"doch noch einmal versuchen !":30+2660:J/N-BLINK52390DB182130p(10,5);"SIE sollten weniger trinken,"(12,5);"bevor SIE sich an solch ein"(14,5);"schwieriges Spiel heranwagen."30::(10,5);"Ich will trotzdem mal"(12,5);"andeuten was ich kann..."%40:? 3750:--->UP-varwind\ZWZW1:ZW92080:2110o  ZW: ZW::5y*20604::20>2660:J/N-BlinkH2390RB272180\(10,5);"Na ja...!":25 f(12,5);"Dafuer zeige ICH",Z1,"Konfettis!":50:2910 p20:2380" z23901 B392280f (10,0);"Nicht schlecht, SIE schaffen bestimmt" (12,0);"bald 40 Treffer..." 25 Z1992230:2250 2;(16,5);"SPEZIALPREIS:",Z1,"Blinkkonfettis!":90:2910 2260$!(16,5);"BELOHNUNG :",Z1,"Konfettis!":90:29109!2660:J/N-BlinkC!2390c!J238:6;(0,J);(203):!J116:6;(J,38);(203):!J238:6;(16,40J);(203):! J 823:6;(24J,2);(203):! (10,5);"Hervorragend, SIE sind ein"" (12,5);"MEISTERSCHUETZE !""$ 25Y". B(HP1)(14,5);"HAUPTPREIS folgt!":2750:UP-lied~"8 (14,5);"Konfettiregen folgt !""B 60: 2910:--->UP-konfe"L 2660:J/N-Blink"V :1;(0,0);" ":3;(12,10);"*** AUF WIEDERSEHEN! ***"#` 30:(12,10);(25," "):4152,16:SETCU3#j : ****ENDE****V#t (10,3);"Bitte eingeben!( )"o#~ 2;(10,19);" ":4# 2;(10,19);"xx"::4# XP$:XP(XP$):XP$""XP$(48)XP$(57)2430# 4700,32:4# 4701,(XP$):4700,120::4'$ HX$:HX(HX$):HX$""HX$(48)HX$(57)2460<$ 4700,(HX$):4N$ HP10XPHX:e$ (22,10);" / ":4$ 6;(22,10);"1/2":4:$ M$$( M$(49)M$(50)2570$2 M$(49)2620:2640$< (22,10);"1 ":10$F $P (22,10);" 2":10$Z %d Z08Z01%n Z0Z01>%x Z0;(22,3);"Noch einmal?:(J/N)"E% 4^% (22,17);" / ":4:}% J$:J$"J"J$"N"2660% J$"J"2730:2740% (22,17);"J":20::270% (22,19);"N":20:% UP-lied (Hoch sollst Du leben...)% 2770 & 144,2,144,1.5,144,.5,144,2,193,2@& 114,2,114,1.5,114,.5,114,2`& 144,2,96,4,153,3,144,2,0,1& 144,.25,144,.25,153,.25,172,.25& 193,.25,216,.25,229,.25,-16,.25,-18,.25,0,4& 136,128:T200& I162& I 25 I49 2770&" H,L:2880', I'6 136,0::-->HP*'@ H02900T'J H0 128,7: 128,H:Ԑ128,39:128,Ho'T QQ1 LT::128,3:'^ :====> UP-konfe'h Z0((1)70.5):Farbe fuer BORDER und PAPER'r Z00 2920'| Z1=Zahl der Konfettizeichen(ausHP)( 20:Z0:Z0 :#( I1:I1Z1:Ausgabeschleife@( Z2((1)230.5):Zeile^( Z3((1)390.5):SPALTE~( Z4((1)2550.5):Zeichen( Z433(Z4123Z464) 2990( Z458Z447 2990( Z4127Z42552990( Z5((1)70.5):Farbe fuer Zeichen ) Z50Z5Z03030') (Z5);(Z2,Z3);(Z4)/) ID) Z1100 30::^) 3160:Masch.UP-blinku) (19,0);(40," ")) (20,0);(40," "))& (21,0);(40," "))0 5:): (20,0);"Das waren",Z1,"Konfettis zur Belohnung!")D 30)N :==>HP$*X UP-blink(===>MEM.SIZE=15263 beachten!)H*b VERFASSER:M.SCHREIBER MKD/1EKGr*l X0:Y0:SP40:ZE24:BL15:ZK13:3210*v X0:Y0:SP40:ZE24:BL15:ZK20:3210* X6:Y6:SP21:ZE16:BL6:ZK40:3210* AD16230:PO512040YX* 3230'+ 205,181,63,197,229,61,237,176,225,1,40,,9,193,254,,32j+ 241,58,100,63,71,197,205,142,63,205,232,63,205,173,63,205,232+ 63,193,16,240,201,42,96,63,17,40,,58,98,63,71,58,99+ 63,79,13,62,32,197,229,119,35,16,252,225,25,193,175,185,32$, 240,201,205,181,63,235,205,197,63,201,175,71,58,98,63,79,58c, 99,63,42,96,63,17,160,59,201,197,213,61,237,176,209,235,1, 40,,9,235,193,254,,32,239,201,213,229,17,1,,33,255, 7,55,63,237,82,32,252,225,209,201,8,237,91,101,63,175,205- 215,63,27,187,32,249,186,32,246,8,201 - I1147:A:ADI,A:I8- AD6,PO: AD4,SPZ- AD3,ZE: AD2,BL: AD1,ZKe- AD1k- -* :====>UP-konfus-4 4152,32:(0,0);" ":-> YY((1)127.5):Entwirr-Code-H YY323390-R YA$-\ YA$(27) 3710.f ZA((1)150):ZA=Zahl der Durchlaeufe..p ZA753430;.z I1 ZAW. YA$:YA$(27) 3710w. YA$:YA$(YY) :===>HP. 3750:UP-varwind. ZB((1)127.5):Code Konfuzeichen und Weiche . ZB16 2;"HILFE! >ESC< !";::8:3630:(1.)/ ZB33 :3630:(2.)0/ ZB48 " ";:3630:(3.)a/ ZB34 ZB39 ZB40 ZB41 :3630:(4.)/ ZB44 ZB46 ZB58 ZB59 3550:3560/ (32);:3630:(5.)/ ZB90 ZB97 3570:3580/ 6;"mIR iSt schLECht!",:3630:(6.)0 ZB122 ZB128 :3630:(7.) P0:folgend Regelfall(Zahlen oder Buchstaben)----(8.)0ZC((1)5.5):Einzel- od.Gruppenzeichen0ZD((1)35.5):Zahl der Zeichen in Gruppe0$ ZC33;(ZD,(ZB)):Ԟ5;(ZB);0.08 I0B:15::11::91L:7::5::3::1::.1V:1:1::1;" ":=1`5:5:4:K1j4152,16[1t:====> HPu1~Anzeige Entwirr-Code1(0,20);" ":201(0,20);"Entwirr-Code:",YY:401(0,20);" ":YA$YA$(32):2:UP-varwind2ZE((1)22): 1.ZeileB2ZF((1)230.5): Fensterhoehe\2ZGZEZF: ZG233760y2ZH((1)38): 1.Spalte2ZI((1)380.5): Fensterbreite2ZJZHZI: ZJ3937902 ZE,ZG,ZH,ZJ2ZK((1)7.5):Farbe PAPER2ZK038303 ZK5ZLZK3:ZLZK3+3 ZK: ZK:: ZLA3ZMZM1:ZM1 K3(3750^32:UP-explosionn3<H18:L.253F136,128:T3003PH0128,7:128,H:Ԑ128,39:128,H3Z QQ1LT::128,3:136,03d3n::(0,0);"INTERNE INFORMATION" 04x(1,0);" >ESC<-->Neustart"f4(3,0);"Treffer Reaktion Rettung/Bemerkg."|4(4,0);(40,".")4(6,0);" 0....6"4(8,0);" 7...12"4(10,0);"13...18"4(12,0);"19...50"4(14,0);"33...50"5(16,0);"40...50"95(18,0);"Ab 35 Treffern im Folgedurchlauf Wahl"m5(19,0);"Schwierigkeitsstufe (1/)2 moeglich !"5(21,0);"Hauptpreis"5(22,0);"(waehlen" 5(23,2);"42..50)"5(6,12);"-->OS WBASIC"5(8,12);"-->konfus CONT"$6(10,12);"varwind nur in Farbe"L6(12,12);"konfe Konfettis"v6(14,12);"blink zusaetzlich"6(16,12);"Rahmen "(34)6"(21,12);"lied (Hoch sollst Du leben)"6,(23,15);"===> weiter mit >CONT<"76AB$: AB$(27)1045;7; AB$(30) :4150 H7'L1(L$)]7'L2(40L1.5)1m7$'L$(L2,L$)7.'(ZE,2);(L$,36)78'L1$(L$,(L$)1)7B'L$L1$(L$,1)7L'I150:7V'LZ110130:101107`'(23,31);">ENTER<"8j'LZLZ1:LZ1LZ0 8t'10030#8~':(23,32);" ":8'LZLZ1:LZ1LZ0E8'10030X8' յEI$10080^8'ENTER<"8j'LZLZ1:LZ1LZ0