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$)"" 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$)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