Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß) 10 CLEAR 500,28000:WINDOW:CLS:POKE DEEK(43),32:GOSUB 3970:DIM NA$(20),SC(20) 20! 30!*** MAIN LEVEL 1 *** 40! 50 DATA 2346,14965,29955,-6793,14541,-12939,30023,32481,28670,26316,-12938 60 DATA 30355,-5939,-12938,31096,-9267,-13959 70 FOR X=0 TO 33 STEP 2:READ F:DOKE X+29974,F:NEXT 80! 90!*** LEITER OBEN *** 100! 110 DATA-19167,4589,-32,18486,13849,6472,18486,16073 120 FOR X=0 TO 14 STEP 2:READ F:DOKE X+30008,F:NEXT 130! 140!*** RO/LEI LEVEL1 *** 150! 160 DATA 28478,-8175,8703,-4167,1030,10430,3,8246,4121,8697,-4190,7681,4352 170 DATA-4191,-20243,-8175,8703,-4167,1030,10430,3,18486,4121,15097,-4193 180 DATA-16590,15087,-4225,-24782,15087,-4257,32562,15087,-4289,24370,8687 190 DATA-4315,28478,1030,10430,3,8246,4121,8697,-4290,7937,4352,-4289,-18195 200 DATA-8175,8703,-4315,1030,10430,3,18486,4121,15097,-4352,8242,15087 210 DATA-4384,50,15087,-4416,-8142,15086,-4448,-16334,8686,-4420,28478,1030 220 DATA 10430,3,8246,4121,8697,-4447,7937,4352,-4448,-20243,-17375,4590,-32 230 DATA 1030,10430,3,18486,4121,15097,-4449,-16590,15086,-4481,-24782,15086 240 DATA-4513,32562,15086,-4545,24370,8686,-4568,28478,1030,10430,3,8246 250 DATA 4121,8697,-4546,7937,4352,-4545,-18195,10273,4590,-32,1030,10430,3 260 DATA 18486,4121,15097,-4608,8242,15086,-4640,50,15086,-4672,-8142,15085 270 DATA-4704,-16334,8685,-4703,4097,4352,-4704,-20243,-2615 280 FOR X=0 TO 286 STEP 2:READ F:DOKE X+30023,F:NEXT 290! 300!*** TREFFER *** 310! 320 DATA 10981,29961,-12226,4102,4622,-14314,8213,3581,-2016,15479,-3568 330 DATA 8246,-24287,8943,29961,570,15733,562,8565,3855,1314,-7819,8649 340 FOR X=0 TO 44 STEP 2:READ F:DOKE X+30310,F:NEXT 350! 360!*** TASTATURABFRAGE *** 370! 380 DATA 1057,4469,29958,1281,2677,254,-312,8200,6666,3326,16088,4622,25654 390 DATA-311,8201,6666,3326,16088,4621,25142,-311,8262,6664,3326,16088,4620 400 DATA-311,10272,15876,4613,-5175,-386,-10228,4094,800,2614,-311,8206 410 DATA 13827,-14079,1590,201,10752 420 FOR X=0 TO 84 STEP 2:READ F:DOKE X+30355,F:NEXT 430! 440!*** BEWEGUNG *** 450! 460 DATA 2346,4469,32,17869,14967,29958,4094,-312,-13307,30684,3582,-17204 470 DATA-393,-13300,30670,3070,-7732,-393,-13302,30689,2558,-24628,-392 480 DATA-13304,30741,2046,22732,-392,-13306,30761,3838,-20532,-393,-13308 490 DATA 31023,1022,460,-392,-13310,30952,510,16076,-392,-13312,31160,201 500 DATA 14848 510 FOR X=0 TO 92 STEP 2:READ F:DOKE X+30440,F:NEXT 520! 530!*** FALLTEST *** 540! 550 DATA 1594,-395,10254,-505,10253,-509,-16379,6629,-7810,8446,9256,28670 560 DATA 8232,-25858,7208,-25090,6184,-13058,5160,9470,4136,9982,3112,1594 570 DATA-395,-16379,3902,1586,-13963,1342,1586,-13963 580 FOR X=0 TO 62 STEP 2:READ F:DOKE X+30533,F:NEXT 590! 600!*** RANDTEST RECHTS *** 610! 620 DATA-13443,103,-20533,-18485,-16437,254,11200,1342,1586,-13963 630 FOR X=0 TO 18 STEP 2:READ F:DOKE X+30597,F:NEXT 640! 650!*** RANDTEST LINKS *** 660! 670 DATA-13443,-14233,-22581,-20533,-18485,-16437,4094,9152,1342,1586,-13963 680 FOR X=0 TO 20 STEP 2:READ F:DOKE X+30617,F:NEXT 690! 700!*** <-- *** 710! 720 DATA 11253,-26163,32375,-32514,312,-3805,-2615 730 FOR X=0 TO 12 STEP 2:READ F:DOKE X+30639,F:NEXT 740! 750!*** --> *** 760! 770 DATA 9205,-31283,32375,-32514,312,-3797,201 780 FOR X=0 TO 12 STEP 2:READ F:DOKE X+30652,F:NEXT 790! 800!*** ^ *** 810! 820 DATA 15093,29955,18686,1056,-8175,6655,-13839 830 FOR X=0 TO 12 STEP 2:READ F:DOKE X+30670,F:NEXT 840! 850!*** V *** 860! 870 DATA 8209,6400,-2615 880 FOR X=0 TO 4 STEP 2:READ F:DOKE X+30684,F:NEXT 890! 900!*** ^ SPRUNG *** 910! 920 DATA 15093,29958,2814,800,6204,15874,12805,29958,-8175,6655,-386,8264 930 DATA 15877,12815,29958,-13839 940 FOR X=0 TO 30 STEP 2:READ F:DOKE X+30689,F:NEXT 950! 960!*** <-- SPRUNG *** 970! 980 DATA-20531,-2697,-386,8264,15876,6159,15874,12804,29958,-13839 990 FOR X=0 TO 18 STEP 2:READ F:DOKE X+30721,F:NEXT 1000! 1010!*** --> SPRUNG *** 1020! 1030 DATA-17203,-2697,-386,8264,15876,6159,15874,12809,29958,-13839 1040 FOR X=0 TO 18 STEP 2:READ F:DOKE X+30741,F:NEXT 1050! 1060!*** ^ SPRUNG RECHTS *** 1070! 1080 DATA 4597,-32,32281,18686,1056,3902,536,1854,1586,-3723,-2615 1090 FOR X=0 TO 20 STEP 2:READ F:DOKE X+30761,F:NEXT 1100! 1110!*** ^ SPRUNG LINKS *** 1120! 1130 DATA 4597,-32,32281,18686,1056,3902,536,574,1586,-3723,201 1140 FOR X=0 TO 20 STEP 2:READ F:DOKE X+30782,F:NEXT 1150! 1160!*** / RECHTS *** 1170! 1180 DATA 4597,-31,21529,-12963,30597,-17539,1320,8209,6144,32296,18686,1056 1190 DATA 3902,8728,8446,1056,2110,6680,9470,-2008,9982,-3032,-25858,-4056 1200 DATA-25090,-5080,-13058,-6104,7953,6400,1342,1586,-15499,31530 1210 FOR X=0 TO 66 STEP 2:READ F:DOKE X+30808,F:NEXT 1220! 1230!*** \ RECHTS *** 1240! 1250 DATA 4597,33,21529,-12963,30597,-17539,1320,8209,6144,32296,18686,1056 1260 DATA 3902,8728,8446,1056,62,6680,9470,-2008,9982,-3032,-25858,-4056 1270 DATA-25090,-5080,-13058,-6104,-8431,6655,1342,1586,-15499,31530 1280 FOR X=0 TO 66 STEP 2:READ F:DOKE X+30879,F:NEXT 1290! 1300!*** \ LINKS *** 1310! 1320 DATA 4597,-33,21529,-12963,30617,-17539,1320,8209,6144,32296,18686,1056 1330 DATA 3902,8728,8446,1056,830,6680,9470,-2008,9982,-3032,-25858,-4056 1340 DATA-25090,-5080,-13058,-6104,8465,6400,1342,1586,-15499,31530 1350 FOR X=0 TO 66 STEP 2:READ F:DOKE X+30952,F:NEXT 1360! 1370!*** / LINKS *** 1380! 1390 DATA 4597,31,21529,-12963,30617,-17539,1320,8209,6144,32296,18686,1056 1400 DATA 3902,8728,8446,1056,62,6680,9470,-2008,9982,-3032,-25858,-4056 1410 DATA-25090,-5080,-13058,-6104,-7919,6655,1342,1586,-15499,31530 1420 FOR X=0 TO 66 STEP 2:READ F:DOKE X+31023,F:NEXT 1430! 1440!*** AUSWERTUNG *** 1450! 1460 DATA-386,-13713,30310,-25858,26314,-394,-13667,30310,-13058,26314,8822 1470 DATA 29961,818,-2699,1082,30581,4593,100,2858,-395,8395,6412,6425,2850 1480 DATA 15989,12832,29955,-311,10276,-270,10278,-13843 1490 FOR X=0 TO 62 STEP 2:READ F:DOKE X+31096,F:NEXT 1500! 1510!*** V SPRUNG *** 1520! 1530 DATA 4597,32,21453,14967,29958,1534,552,-13839,14873,29956,25854,1056 1540 DATA 3646,536,3390,1586,-3723,15049 1550 FOR X=0 TO 34 STEP 2:READ F:DOKE X+31160,F:NEXT 1560! 1570!*** ZEITKONTROLLE *** 1580! 1590 DATA 1850,18293,2106,-18315,1320,12860,29960,15049,29953,10044,24830 1600 DATA 1832,306,-12939,31240,-20535,306,14965,29952,10044,50,6261,10990 1610 FOR X=0 TO 44 STEP 2:READ F:DOKE X+31195,F:NEXT 1620! 1630!*** ZEITANZEIGE *** 1640! 1650 DATA 11050,-6912,3370,8821,43,58,-12939,-3266,14910,22733,15090,29953 1660 DATA 16077,-20493,2098,-5259,8929,43,9195,8995,8995,8246,201 1670 FOR X=0 TO 44 STEP 2:READ F:DOKE X+31240,F:NEXT 1680! 1690!*** MAIN LEVEL 2 *** 1700! 1710 DATA 2346,14965,29955,-6793,14541,-12939,31302,9411,-2699 1720 FOR X=0 TO 16 STEP 2:READ F:DOKE X+31285,F:NEXT 1730! 1740!*** RO/LEI LEVEL 2 *** 1750! 1760 DATA-6667,-14891,8209,8448,-4212,1030,32431,30489,21229,21229,8197,8694 1770 DATA-4307 1780 DATA 11281,495,9,-20243,8209,8448,-4331,1030,6526,-4745,-4782,1362,-2528 1790 DATA-19183,8686,-4428,3329,-4864,4536,32,-30687,1774,32264,30489,21229 1800 DATA 21229,8197,4598,-4696,-22239,493,8,-20243,-11839,-3615,10953 1810 FOR X=0 TO 96 STEP 2:READ F:DOKE X+31302,F:NEXT 1820! 1830!*** MAIN LEVEL 3 *** 1840! 1850 DATA 2346,14965,29955,-6793,0,-13056,31416,9411,-13963 1860 FOR X=0 TO 16 STEP 2:READ F:DOKE X+31399,F:NEXT 1870! 1880!*** RO/LEI 3 *** 1890! 1900 DATA-6667,-14891,4519,32,26657,1775,32259,30489,21229,21229,8197,4598 1910 DATA-4312,10017,495,5,-18195,8209,8448,-4349,4102,6526,-4745,-4782,1362 1920 DATA-2528,3617,1775,32272,30489,21229,21229,8197,8694,-4239,4870,6526 1930 DATA-4745,-4782,1362,-2528,-11839,-3615,-2615 1940 FOR X=0 TO 86 STEP 2:READ F:DOKE X+31416,F:NEXT 1950! 1960!*** V1 *** 1970! 1980 DATA-6667,8225,6400,-386,10312,15880,12815,29958,-3615,-11831,3902,1586 1990 DATA-3723,201 2000 FOR X=0 TO 26 STEP 2:READ F:DOKE X+31503,F:NEXT 2010! 2020!*** SPRUNGTEST *** 2030! 2040 DATA 4094,544,-13839,1534,-1496,4597,32,21453,14967,29958,1534,1568 2050 DATA 13041,29958,-13839,-15375,31177 2060 FOR X=0 TO 32 STEP 2:READ F:DOKE X+31530,F:NEXT 2070! 2080!*** SOUND *** 2090! 2100 DATA 9,172,2,152,2,134,4,172,3,134,3,114,3,114,3,128,3,152,4 2110 DATA 8,172,2,152,2,134,4,134,4,128,2,152,2,100,4,114,6 2120 DATA 10,172,2,152,2,134,2,128,4,172,6,128,2,134,2,128,2,114,4,152,6 2130 DATA 10,172,7,172,7,172,2,172,7,134,5,152,2,152,7,172,5,172,2,172,10 2140 DATA 50,134,3,182,1,182,4,134,4,164,3,164,1,164,8,142,3,134,1,120,4,142,4 2150 DATA 134,2,107,2,134,4,0,4,142,3,134,1,120,4,120,4,107,2,134,2,120,4,120,4 2160 DATA 142,3,134,2,120,4,120,4,107,2,134,2,120,4,120,4,134,3,142,1 2170 DATA 164,2,100,2,107,2,120,2,107,4,120,4,134,6,0,2,134,3,142,2,164,2 2180 DATA 100,2,107,2,120,2,88,4,142,4,134,8 2182 PRINT AT(31,27);">Ent<" 2185 IF INKEY$=""THEN 2185 2190! 2200!*** HAUPTPROGRAMM *** 2210! 2220 DOKE 29952,0:POKE 29954,5:POKE 29955,32:POKE 29956,98:DOKE 29957,3840 2230 DOKE 29963,0:DOKE 29965,-5041:CLS:POKE DEEK(43),32:TM=1:TS=47:LL=0 2240 LL=LL+1:U=M:DOKE 29961,-4191:POKE 29955,32:POKE 29956,98 2250 IF LL>1 AND DEEK(29963)>1000 THEN DOKE 29954,DEEK(29954)+1 2260 IF LL>1 THEN DOKE 29963,DEEK(29963)+1000 2270 ON LL GOTO 2290,2450,2290,2450,2640 2280! 2290!*** LEVEL 1 *** 2300! 2310 GOSUB 2770:POKE-4191,98:DOKE 29959,7:RESTORE 2120:GOSUB 3710 2320 DOKE 29952,0:Q=1:GOSUB 3660:U=M 2330 IF RND(1)<.04 THEN POKE-4689,111 2340 IN$=INKEY$:IF IN$=""THEN POKE 29957,0:ELSE POKE 29957,ASC(IN$) 2350 CALL*7516:M=PEEK(29954):IF U>M THEN BEEP:GOSUB 3580 2360 U=M:IF DEEK(29961)=-4776 THEN 2380 2370 IF PEEK(29952)=TM AND PEEK(29953)>TS THEN R$="TIME":GOTO 3810:ELSE GOTO 2330 2380 GOSUB 3610:RESTORE 2140:GOSUB 3710:PAUSE 20:GOSUB 3790:POKE DEEK(29961),32 2390 POKE 29958,15:TM=PEEK(29952):TS=PEEK(29953):IF TM=1 THEN TB=48:ELSE TB=96 2400 IF TM=0 AND TS<=48 THEN TM=3:ELSE TM=2 2410 TS=TB-TS-1:IF TB=96 THEN TS=TS+48 2420 IF TS>=96 THEN TS=TS-96:TM=TM+1 2430 GOTO 2240 2440! 2450!*** LEVEL 2 *** 2460! 2470 GOSUB 3040:POKE-4191,98:DOKE 29959,7:DOKE 29952,0 2480 RESTORE 2120:GOSUB 3710:Q=2:GOSUB 3660:U=M 2490 IF RND(1)<.14 THEN POKE-4689,111 2500 IN$=INKEY$:IF IN$=""THEN POKE 29957,0:ELSE POKE 29957,ASC(IN$) 2510 CALL*7A35:M=PEEK(29954):IF U>M THEN BEEP:GOSUB 3580 2520 U=M:IF DEEK(29961)=-4776 THEN 2540 2530 IF PEEK(29952)=TM AND PEEK(29953)>TS THEN R$="TIME":GOTO 3810:ELSE GOTO 2490 2540 GOSUB 3610:RESTORE 2140:GOSUB 3710:PAUSE 20:POKE DEEK(29961),32:GOSUB 3790 2550 POKE 29958,15:TM=PEEK(29952):TS=PEEK(29953):IF LL=2 THEN 2590 2560 IF TS<>0 THEN TS=96-TS-1 2570 IF TM=0 THEN TM=5:ELSE TM=4 2580 GOTO 2240 2590 IF TS<>0 THEN TS=96-TS+47:ELSE TS=47 2600 IF TM=0 THEN TM=2:ELSE TM=1 2610 IF TS>=96 THEN TS=TS-96:TM=TM+1 2620 GOTO 2240 2630! 2640!*** LEVEL 3 *** 2650! 2660 GOSUB 3310:POKE-4191,98:DOKE 29959,7:DOKE 29952,0 2670 RESTORE 2120:GOSUB 3710:Q=3:U=M 2680 GOSUB 3660:DOKE 29952,0 2690 IF RND(1)<.08 THEN POKE-4783,111:ELSE IF RND(1)<.1 THEN POKE-4786,111 2700 IF RND(1)<.12 THEN POKE-4797,111 2710 IN$=INKEY$:IF IN$=""THEN POKE 29957,0:ELSE POKE 29957,ASC(IN$) 2720 CALL*7AA7:M=PEEK(29954):IF U>M THEN BEEP:GOSUB 3580 2730 U=M:F=DEEK(29961):IF F>-4779 AND F<-4775 THEN GOSUB 3660:GOSUB 4180:GOTO 2750 2740 IF PEEK(29952)=TM AND PEEK(29953)>TS THEN R$="TIME":GOTO 3810:ELSE GOTO 2690 2750 RESTORE 2140:GOSUB 3710:PAUSE 20:GOSUB 3770:GOTO 3850 2760! 2770!*** GRAFIK LEVEL 1*** 2780! 2790 PRINT AT(30,0);STRING$(32,"") 2800 PRINT AT(29,0);" H" 2810 PRINT AT(28,0);" H" 2820 PRINT AT(27,0);" H $" 2830 PRINT AT(26,0);STRING$(25,""),"H" 2840 PRINT AT(25,5);"H o o" 2850 PRINT AT(24,5);"H" 2860 PRINT AT(23,1);"&>&> H H" 2870 PRINT AT(22,1);"HHHHH" 2880 PRINT AT(21,20);"o o H" 2890 PRINT AT(20,28);"H" 2900 PRINT AT(19,12);"&>&> $H&>&>" 2910 PRINT AT(18,0);STRING$(28,""),"H" 2920 PRINT AT(17,8);"H oo" 2930 PRINT AT(16,8);"H" 2940 PRINT AT(15,5);"$$ H" 2950 PRINT AT(14,1);"H",STRING$(20,"") 2960 PRINT AT(13,5);"oo H " 2970 PRINT AT(12,21);"H " 2980 PRINT AT(11,2);"&>&> H" 2990 PRINT AT(10,25);"" 3000 PRINT AT(9,25);"" 3010 PRINT AT(8,25);"" 3020 RETURN 3030! 3040!*** GRAFIK LEVEL 2 *** 3050! 3060 PRINT AT(30,0);STRING$(12,""),"",STRING$(19,"") 3070 PRINT AT(29,0);" H" 3080 PRINT AT(28,0);" H" 3090 PRINT AT(27,0);" H $" 3100 PRINT AT(26,0);" HHHH" 3110 PRINT AT(25,5);"H o o oo" 3120 PRINT AT(24,5);"H " 3130 PRINT AT(23,5);"H H&>&>&>&> &>" 3140 PRINT AT(22,2);"HHHHH " 3150 PRINT AT(21,6);" o o H" 3160 PRINT AT(20,6);" H" 3170 PRINT AT(19,5);"$ &>&> H &>" 3180 PRINT AT(18,0);" H" 3190 PRINT AT(17,3);"H" 3200 PRINT AT(16,3);"H" 3210 PRINT AT(15,1);"&> H &>" 3220 PRINT AT(14,1);"H ",STRING$(20,"") 3230 PRINT AT(13,10);"oo o H " 3240 PRINT AT(12,21);"H " 3250 PRINT AT(11,6);"&> H" 3260 PRINT AT(10,25);"" 3270 PRINT AT(9,25);"" 3280 PRINT AT(8,25);"" 3290 RETURN 3300! 3310!*** GRAFIK LEVEL 3 *** 3320! 3330 PRINT AT(30,0);STRING$(32,"") 3340 PRINT AT(29,0);" H H H" 3350 PRINT AT(28,0);" H H H" 3360 PRINT AT(27,0);" H H &> &> H" 3370 PRINT AT(26,0);"H H H" 3380 PRINT AT(25,0);" H H H H" 3390 PRINT AT(24,0);" H H H H" 3400 PRINT AT(23,0);" &> H &> &> H H $ &> H H" 3410 PRINT AT(22,0);" H H HH H" 3420 PRINT AT(21,0);"H H H H" 3430 PRINT AT(20,0);"H H H H" 3440 PRINT AT(19,0);"H $ &> H H H" 3450 PRINT AT(18,0);"H H H H" 3460 PRINT AT(17,0);" H H H H" 3470 PRINT AT(16,0);" H H" 3480 PRINT AT(15,0);" H H" 3490 PRINT AT(14,0);" H * * &> H " 3500 PRINT AT(13,0);" H " 3510 PRINT AT(12,0);" H &>" 3520 PRINT AT(11,0);" &> $ $ H" 3530 PRINT AT(10,25);"" 3540 PRINT AT(9,25);"" 3550 PRINT AT(8,3);" " 3560 RETURN 3570! 3580!*** KOPF *** 3590! 3600 M=PEEK(29954):BZ=G-J:IF Q<>3 THEN PRINT AT(29,1);" " 3610 PRINT AT(0,0);"LEVEL",Q," LADS",M," SCORE",DEEK(29963) 3620 PRINT AT(2,10);"TIME" 3630 N=M:IF M>0 THEN PRINT AT(4,10);"GET READY !":PAUSE 20 3640 IF M<1 THEN R$="LADS":GOTO 3810 3650 PRINT AT(4,0);STRING$(32," "):RETURN 3660 PRINT AT(0,0);"LEVEL",Q," LADS",PEEK(29954)," SCORE",DEEK(29963) 3670 PRINT AT(2,10);"TIME 00:00":RETURN 3680! 3690!*** SOUND *** 3700! 3710 READ K:IF K=50 AND Q<>3 THEN K=15 3720 FOR I=1 TO K:READ T,P:IF T=0 THEN PAUSE 60:GOTO 3740 3730! 3740 PAUSE 1 3750 NEXT:RETURN 3760! 3770!*** LOESCHEN *** 3780! 3790 FOR X=7 TO 31:PRINT AT(X,0);STRING$(32," "):NEXT X:RETURN 3800! 3810!*** ENDE *** 3820! 3830 RESTORE 2130:GOSUB 3710:GOSUB 3770 3840 PRINT AT(5,11);R$," OUT !":POKE 29954,0 3850 PRINT AT(10,10);"GAMES OVER !":TM=TM-PEEK(29952):TS=TS-PEEK(29953) 3860 IF TS<0 THEN TS=TS+96:TM=TM-1 3870 SC=DEEK(29963)+TM*600+TS/16*100+PEEK(29954)*1000 3880 PRINT AT(12,6);"TOTAL SCORE",SC:NA$="":PAUSE 20:CLS:INPUT "NAME:";NA$ 3890 IF NA$=""THEN NA$="NOBODY":ELSE IF LEN(NA$)>13 THEN NA$=LEFT$(NA$,13) 3900 GOSUB 4260:CLS:POKE DEEK(43),32 3910 PRINT AT(14,7);"NEW GAMES ? (Y)/N" 3920 T$=INKEY$ 3930 IF T$=CHR$(13)OR T$="Y"THEN GOTO 2200 3940 IF T$="N"THEN RESTORE 2100:GOSUB 3710:WINDOW:CLS:END:ELSE GOTO 3920 3950 END 3960! 3970!*** TITEL *** 3980! 3990 PRINT AT(30,1);"PER LEVEL 1000 POINTS" 4000 PRINT AT(27,1);"..300 POINTS LEVEL3 4.00min" 4010 PRINT AT(25,1);"&>..200 POINTS LEVEL2 2.00min" 4020 PRINT AT(23,1);"$..100 POINTS LEVEL1 1.30min" 4030 PRINT AT(21,0);STRING$(32,"") 4040 PRINT AT(20,4);"POINTS TIME PER LEVEL" 4050 PRINT AT(16,8);"UP = F JUMP =<Sp>" 4060 PRINT AT(15,1);"=====" 4070 PRINT AT(14,1);"MOVE: LEFT =<-- RIGHT= -->" 4080 PRINT AT(11,0);STRING$(32,"") 4090 PRINT AT(9,7);">>>DEADLY PERIL<<<" 4100 PRINT AT(7,1);"**** ***** **** **** ** *" 4110 PRINT AT(6,1);"* * * * * * * * *" 4120 PRINT AT(5,1);"* * * * ** * ** **** **" 4130 PRINT AT(4,1);"* *** ** * ** * ** * *" 4140 PRINT AT(3,1);"* * *" 4150 PRINT AT(2,1);"* * *" 4160 RETURN 4170! 4180!*** GEWONNEN *** 4190! 4200 FOR J=1 TO 10:FOR Y=8 TO 10:FOR X=22 TO 24:PRINT AT(Y,X);CHR$(RND(1)*40+208) 4210 NEXT X,Y,J:FOR X=8 TO 10:PRINT AT(X,22);STRING$(3," "):NEXT 4220 PRINT AT(10,22);"bd":PAUSE 10:DOKE 29963,DEEK(29963)+300:RETURN 4230! 4240!*** SCORETABLE *** 4250! 4260 SP=SP+1:IF SP>20 THEN PRINT AT(20,7);"NO TABLEPLACE":SP=20 4270 SC(SP)=SC:NA$(SP)=NA$:IF SP=1 THEN 4310 4280 FL=0:FOR X=1 TO SP-1 4290!IFSC(X)<SC(X+1)THENPRINTSC(X),SC(X+1):PRINTNA$(X),NA$(X+1):FL=1 4300 NEXT:IF FL THEN 4280 4310 CLS:PRINT:PRINT "RANG NAME SCORE":PRINT STRING$(32,"") 4320 FOR X=1 TO SP:IF X<10 THEN PRINT X;TAB(5);NA$(X);TAB(20);SC(X) 4330 IF X>=10 THEN PRINT CHR$(8);X;TAB(6);NA$(X);TAB(21);SC(X) 4340 NEXT 4350 POKE DEEK(43),32:PRINT AT(31,25);">ENTER<" 4360 IF INKEY$=""THEN 4360:ELSE RETURN