Steuerung: ⇦ ⇨ f␣
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,-3327,14910,7117,15090,29953,461
1660 DATA-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 HLOAD T,P*25
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:14,0:NA$="":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 IF SC(X)<SC(X+1)THEN PRINT SC(X),SC(X+1):PRINT NA$(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
