100 '********************************************** 110 '* Dieses Programm enth{lt * 120 '* 100 getestete Level f}r das Spiel * 130 '* BOUNCE V 1.4 (C) 12.05.1991 by H. Geyer * 140 '* Jeweils 5 DATA-Werte ergeben einen Level * 150 '********************************************** 160 CLEAR ,,,1,20 170 OPEN "R",1,"BOUNCE.LEV",20:FIELD 1,20 AS stu$ 180 FOR i=1 TO 100:a$="":FOR j=1 TO 5 190 READ b$:a$=a$+b$:by=by+ABS(VAL("&H"+b$)) 200 NEXT j:LSET stu$=a$:PUT 1,i:NEXT i 210 IF by<>7013109! THEN PRINT "Datafehler!" 220 END 230 ' 240 DATA 1A54,1A47,0A45,0A50,2127,50D0,CD56,DB15 250 DATA 1000,2557,4000,D457,D114,0F14,3338,42F7 260 DATA 4A00,42FE,461A,2146,F002,DF12,4362,0BF8 270 DATA 7143,40EE,444C,1F46,A4EC,7367,4D55,4805 280 DATA 2960,A7FA,7334,2227,722A,4A5F,4243,6136 290 DATA 1410,063C,0250,1600,3464,2075,0B09,3E2B 300 DATA 0200,6123,A61C,A7F4,247A,0527,8364,1E60 310 DATA 1CAA,E882,A0AF,2153,80BF,9890,16B8,52D6 320 DATA 8157,6171,2766,241A,7050,7112,145F,54C5 330 DATA 4FA0,70A0,3477,005A,4A74,742E,5400,7336 340 DATA 08E8,3F40,E95B,086A,2385,0050,4B1D,04C4 350 DATA 2EF4,2788,BEA8,5DAA,49BA,C995,2143,0074 360 DATA 0E24,2E34,2420,7225,FF89,AD89,8BA5,81FF 370 DATA 4418,0079,A1C5,A475,042E,1256,283E,08F2 380 DATA 0812,1E0A,3237,0716,F85A,0602,5EE8,1174 390 DATA 0405,041F,5451,E84D,2447,F507,320E,D42C 400 DATA 80F8,5358,0055,BB51,A20A,7A42,8378,12FB 410 DATA 12D3,8A18,CF00,1277,A8DD,091C,0911,7539 420 DATA 7217,0704,1216,3B4A,EB74,1517,AB55,A857 430 DATA 6AF2,4000,2126,84AF,8174,2527,782F,3181 440 DATA C8AA,C80F,C178,E95B,8134,C017,CC99,D441 450 DATA EF41,4427,0055,2A21,FB21,1331,7257,0000 460 DATA B02A,D8D6,E800,2467,0040,EC5A,770A,7000 470 DATA 3346,2A74,6614,2EB4,2E00,5427,0003,0057 480 DATA 6816,0A05,3418,0503,050A,2CAA,3400,1157 490 DATA 0034,18E4,1C5E,0800,4676,0000,A276,BE68 500 DATA 0028,5425,554E,F52B,11F1,A140,2264,0028 510 DATA 660A,0C76,182C,2326,7D36,D52A,B902,AD06 520 DATA 6245,302A,142A,060A,7C2A,4228,00F5,CB74 530 DATA 0B2D,0600,3466,28FF,8061,8348,6A68,2264 540 DATA 0A53,1469,7CC9,34AD,3367,E057,9862,A856 550 DATA C600,3256,5AA7,7194,1BC6,58EC,7334,D430 560 DATA 9620,D635,5263,6427,0517,6518,F4A8,565A 570 DATA 3375,00DA,5486,6B8D,E00B,3348,006B,1659 580 DATA 420B,5514,3325,63AA,D718,C668,0A00,1366 590 DATA 281D,6358,16CA,A800,2335,0002,5ABA,46B0 600 DATA 572A,4437,5628,572A,1D62,5D03,3347,0050 610 DATA 10EA,107F,90AC,2476,FF40,A073,2914,0D05 620 DATA 5618,1435,1CE1,1AC9,32A7,6243,4EE2,443A 630 DATA AA12,A23C,3373,0755,07F8,194B,0557,2176 640 DATA 6058,35CD,A847,5214,1345,520F,5A68,480A 650 DATA 2A28,5327,A02A,96D0,AF09,340B,7435,43AB 660 DATA E514,00DA,2AA2,7627,9DE3,8EA2,62BE,6A52 670 DATA 3383,0E0A,635F,2922,5678,1345,0107,1B6D 680 DATA 334A,296D,1446,D50A,8C63,AE51,96AB,1145 690 DATA 6AC2,B51A,AFD4,37ED,1345,15EB,9825,C632 700 DATA D7AA,1128,1895,C9CE,6BC4,2CA4,2465,57A1 710 DATA 288F,D801,2DFD,2467,ED49,0A09,DA89,6AC3 720 DATA 2546,E796,A590,9BEC,8780,3136,3EC4,F2A9 730 DATA 137B,6000,4477,605A,36C6,30AF,D085,3377 740 DATA 021B,D7A8,32D6,0A68,3336,00F6,A34A,5BA0 750 DATA DEA8,2255,3A2C,16A8,D65A,6C57,4176,001A 760 DATA 07B4,2A8B,55D8,1358,46FA,4C12,0897,A8B5 770 DATA 7338,AA1A,90AD,3B86,D080,1586,00A5,D639 780 DATA 271A,3400,4426,2833,DB25,DD71,0414,6445 790 DATA 160C,3A56,6C0E,602C,3568,00A0,B6DA,AC66 800 DATA A8AC,4485,0C28,A6D4,2BF5,0CA8,3448,08ED 810 DATA 8B48,D4AD,1530,3216,A095,A57A,946E,B800 820 DATA 1267,D428,BC94,16CA,186A,3428,00D5,2BEA 830 DATA BD4A,7E18,3558,0033,2DDB,35D8,6B0D,1386 840 DATA 0056,2C6A,5218,4AE8,3377,002F,A21D,C61B 850 DATA 5400,2377,1404,1AEC,5A94,56C0,3227,D095 860 DATA 73AC,4A0C,521A,4528