2bc0 6316 2bc0 B ... LADDER
ähnlich wie [0744f2b1e88dc26ec6e8a90605ead7cf], Monitoraufrufe von A2 nach 2.02 angepasst Scoretable-Ausgabe Zeile 4290 unterschiedlich
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);"HHHHH"
 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);"  HHHH"
 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);"HHHHH  "
 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    HH  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
 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$="":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);"bd":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