3902  "A" clear :X=12317:Y=8
3903  input "KARTE(1-7):";Z
3905  wait 0:print ""
3910  call 1208:restore 3970+Z*30
3915  for I=12317 to 12288 step -1
3920  read A:poke I,A
3930  next I
3935  restore 3970+Z*30
3940  ""X=X-1:if X<12288 beep 3:pause "KARTE";Z;"GESCHAFFT"
3942  if (Y and (peek X))<>0 beep 1:goto 3902
3945  poke X,Y or (peek X):read X1:poke X+1,X1
3950  goto inkey$ 
3960  "8"Y=Y/((Y>1)+1):goto ""
3970  "2"Y=Y*((Y<64)+1):goto ""
4000  data 113,99,99,103,113,97,67,7,15,71,95,67,67,103,113,97,71,115,67,71,115,71,79
4005  data 99,65,79,67,113,79,99
4030  data 67,71,79,99,97,65,115,103,67,71,31,15,31,63,31,79,103,67,113,71,115,103
4035  data 103,115,115,71,79,3,31,67
4060  data 97,97,123,123,67,71,67,115,115,99,97,121,97,99,115,115,115,67,67,79,79
4065  data 97,97,99,79,71,99,113,115,71
4090  data 103,103,115,115,121,121,97,99,71,99,103,115,103,3,121,121,121,113,99,71
4095  data 79,71,103,103,103,103,99,113,121,99
4120  data 71,71,99,113,120,124,120,64,99,112,113,99,99,99,113,124,96,120,96,126
4125  data 124,112,97,71,103,103,99,113,121,67
4150  data 65,99,115,115,115,113,121,120,120,124,125,121,113,99,67,71,15,15,15,31
4155  data 7,3,65,97,115,115,99,67,95,71
4180  data 119,119,99,97,97,105,73,73,9,31,75,75,3,3,103,103,15,15,31,31,15,15,15,71
4185  data 71,67,65,72,76,125