Screenshot 1
2bc0 3ea8 0302 B ... CAVE
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