erstaunlich ruckelfreies Scrolling
Steuerung: ␣ U E
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
10 CLS:PRINT AT(16,8);"BITTE WARTEN!"
12 RESTORE 800
13 FOR K=16128 TO 16351:READ B:POKE K,B:NEXT
15 WINDOW 0,26,0,31:CLS:PRINT AT(3,9);"PERLENTAUCHER"
16 PRINT AT(5,13);"(CAVE)"
17 FOR K=-5081 TO-5065:POKE K,175:POKE K+192,175:NEXT
18 FOR K=-5065 TO-4905 STEP 32:POKE K,175:POKE K+16,175:NEXT
20 PRINT AT(22,2);"HOCH=U RUNTER=Space ENDE=E "
24 Q$=INKEY$:IF Q$=""THEN 24
26 IF Q$="E"THEN WINDOW 0,31,0,31:END
30 CLS
32 DOKE 105,0:V=3:S=1
34 PRINT AT(27,2);"PUNKTE:":PRINT AT(27,9);(DEEK(105))
35 PRINT AT(27,10);" "
36 PRINT AT(27,20);"REKORD:":PRINT AT(27,27);H
38 PRINT AT(0,0);STRING$(31,CHR$(198))
40 PRINT AT(23,0);STRING$(31,CHR$(198))
42 POKE 111,1:DOKE 103,-5035
44 N=200:IF S=4 THEN S=1:V=V+1:DOKE 105,DEEK(105)+150
46 IF S=2 THEN RESTORE 300:DOKE 105,DEEK(105)+30
48 IF S=3 THEN RESTORE 400:DOKE 105,DEEK(105)+90
50 IF S=1 THEN RESTORE 200
52 READ A,B:POKE 112,A:POKE 113,B
54 IF INT(RND(1)*40)=1 THEN POKE 108,1
56 X$=INKEY$:IF X$="K"THEN POKE 4,85
57 IF X$=" "THEN POKE 4,32
58 IF X$=""THEN POKE 4,0
59 CALL*3F00
60 N=N-1:IF N=0 THEN S=S+1:GOTO 44
62 PRINT AT(27,9);(DEEK(105))
64 IF PEEK(111)=1 THEN 52
66 IF H<DEEK(105)THEN H=DEEK(105)
68 PRINT AT(27,27);H
70 V=V-1:IF V=0 THEN 15
72 GOTO 34
74 IF H<DEEK(105)THEN H=DEEK(105):PRINT AT(27,27);H
76 GOTO 34
200 DATA 2,21,2,21,2,20,2,20,2,20,3,18,3,18,4,17,6,15,5,15,4,16,4,16,3,16
205 DATA 2,17,2,16,2,16,2,14,2,13,2,10,2,9,2,9,2,10,2,12,2,13,2,13,2,13,2,14
210 DATA 2,16,2,17,2,17,2,18,3,17,3,17,3,18,4,17,4,17,5,16,6,16,7,15,7,15
215 DATA 8,14,8,14,8,15,7,16,7,16,6,17,5,17,5,15,4,15,4,13,3,14,3,15,3,15
220 DATA 3,12,3,13,3,13,3,12,4,19,4,18,4,17,4,16,4,17,4,18,4,17,4,19,5,16
225 DATA 5,10,5,3,5,3,5,3,5,4,5,4,4,6,4,6,4,6,4,6,4,10,4,12,4,14,5,13,6,12
230 DATA 6,12,6,12,6,12,7,11,8,10,8,9,8,10,8,8,8,10,9,6,9,9,9,7,9,9,9,8,9,9
235 DATA 9,9,9,10,8,11,8,11,7,10,7,7,5,9,5,9,5,5,5,5,5,5,6,3,6,3,6,3,6,3,6,3
240 DATA 6,3,6,3,6,3,6,3,6,3,6,3,6,3,6,2,7,1,7,1,7,1,7,1,6,3,4,7,4,10,4,14
245 DATA 4,19,4,19,4,19,4,19,5,18,5,18,5,18,6,17,6,17,6,17,7,16,7,16,7,16
250 DATA 7,16,7,16,7,16,6,17,6,17,6,17,6,17,7,16,7,16,7,15,9,11,10,7,10,7
255 DATA 12,5,12,5,12,4,13,3,13,3,13,3,12,6,11,8,10,10,9,12,8,14,7,16,6,17
260 DATA 5,18,4,19,3,20,2,21,2,21,2,21,2,21,2,21,3,20,5,18,8,15,12,11,17,6
265 DATA 18,5,17,6,12,11,8,15,5,18,3,20,2,21,2,21,3,19,4,17,4,16,5,14,3,14
270 DATA 4,14,5,14,6,14,8,12,3,19,2,19,2,18
300 DATA 2,18,2,14,2,10,2,8,3,8,2,7,4,5,3,5,3,4,2,4,2,4,2,5,2,5,2,5,2,4
305 DATA 2,2,2,3,2,4,2,4,2,6,3,7,3,7,3,7,4,7,4,5,5,4,5,5,5,5,5,5,6,4,4,6
310 DATA 3,9,3,9,8,4,6,7,6,7,6,15,10,11,9,12,9,11,11,9,11,8,11,5,13,7
315 DATA 8,14,5,17,5,17,4,17,4,17,3,18,3,14,10,2,8,6,5,11,3,15,3,15
320 DATA 3,17,2,20,2,21,3,19,3,19,3,19,14,2,4,17,5,16,8,15,6,17,6,16,5,17
325 DATA 13,2,6,15,5,14,3,16,3,12,3,11,4,13,6,11,7,5,2,19,2,19,2,15,2,15
330 DATA 3,14,5,12,3,14,2,15,9,7,5,12,2,15,9,1,2,16,2,17,2,18,2,19,2,20
335 DATA 2,21,2,21,2,15,2,15,2,15,2,14,2,13,2,13,2,13,2,11,2,11,2,7,2,7
340 DATA 2,7,2,5,2,5,2,3,2,3,2,2,2,2,2,3,2,3,2,12,2,14,2,19,2,19,2,21
345 DATA 2,21,2,21,2,21,3,20,5,18,7,16,7,15,7,12,8,9,8,9,9,9,9,9
350 DATA 10,8,10,9,11,9,11,9,12,8,13,6,13,7,14,8,15,8,14,8,13,9,13,10,12,10
355 DATA 10,12,7,14,4,15,2,17,2,18,3,15,4,13,4,12,5,10,5,9,6,7,6,7,7,5
360 DATA 8,3,7,4,5,5,5,5,4,6,3,7,3,7,3,8,2,9,2,9,2,10,2,10,2,10,2,11,2,11
365 DATA 2,11,2,12,2,12,2,13,2,14,2,14,2,15,2,16,2,17,2,17,2,18,2,19,2,20
370 DATA 2,21,2,21,2,21,2,21,2,21,2,21,2,21,2,21,2,21,2,21,2,21,2,21
400 DATA 2,21,2,21,13,1,11,3,11,3,11,3,11,3,11,3,11,2,11,2,11,3,11,7,11,10
405 DATA 11,10,11,10,13,8,14,7,14,4,14,1,11,8,9,11,5,15,4,16,7,13,10,10
410 DATA 14,6,14,6,17,1,11,9,13,7,16,2,16,4,15,3,14,4,11,8,11,7,11,5
415 DATA 5,13,5,12,5,13,6,12,10,6,13,1,10,4,10,6,9,10,7,12,4,15,4,16,6,14
420 DATA 6,14,6,14,8,12,17,1,16,2,16,2,16,2,15,4,13,6,10,9,8,11,6,13
425 DATA 4,15,3,16,3,15,4,12,6,9,7,6,9,4,8,4,6,8,4,11,4,13,3,15,2,11,2,10
430 DATA 2,9,2,8,2,7,2,6,2,5,2,4,2,7,2,8,2,12,2,14,3,18,3,15,4,10,6,6
435 DATA 8,2,7,5,5,9,7,7,7,6,8,6, 9,6,10,6,10,6,11,6,12,6,12,6,13,6,13,6
440 DATA 14,6,14,9,12,11,8,15,7,16,5,18,4,18,4,18,5,14,5,13,6,9,8,5,8,4
445 DATA 9,2,7,6,6,7,3,11,3,13,3,15,3,19,3,19,3,19,3,19,3,18,3,18,13,1
450 DATA 3,19,5,10,3,19,12,1,3,19,12,2,3,19,4,15,13,9,3,11,8,14,3,17
455 DATA 10,12,3,10,11,11,3,11,6,16,3,18,13,9,3,19,3,19,3,17,15,7,3,14
460 DATA 8,14,3,18,16,6,3,15,17,5,3,15,13,9,3,16,7,15,17,1,3,19,15,7
465 DATA 3,19,17,1,3,19,8,11,3,19,15,2,3,19,13,4,3,19,14,1,3,19,11,11
470 DATA 3,19,13,3,3,19,15,2,3,19,11,7,3,19,6,13,3,19,4,17,3,19,3,19
475 DATA 2,21,2,21,2,21,2,21,2,21,2,21,2,21,2,21,2,21,2,21
800 DATA 42,103,0,6,4,54,32,35,16,251,17,32,0,58,4,0,254,85,32,3,167,237
810 DATA 82,254,32,32,1,25,229,33,238,238,1,224,3,17,239,238,237,184
820 DATA 225,6,4,43,126,254,140,32,21,17,50,0,229,42,105,0,25,34,105,0,0,0
830 DATA 0,0,0,0,0,225,24,8,254,32,40,4,175,50,111,0,16,219,34,103,0,54,148
840 DATA 35,54,195,35,54,255,35,54,128,33,32,236,17,32,0,6,23,54,199,25
850 DATA 16,251,33,0,236,58,112,0,71,25,16,253,58,113,0,71,54,32,25,16,251
860 DATA 58,108,0,254,0,40,9,175,50,108,0,167,237,82,54,140,42,105,0,35,34
870 DATA 105,0,58,111,0,254,1,200,22,24,33,32,236,1,0,3,126,254,255,32,4,54
880 DATA 32,24,6,254,32,32,2,54,255,35,13,32,237,16,235,21,32,226,62,24
890 DATA 245,33,207,238,1,192,2,17,239,238,237,184,6,32,33,32,236,54,32,35
900 DATA 16,251,1,0,3,13,32,253,16,251,241,61,32,222,201,0,0,0
