Screenshot 1 Screenshot 2
1000 2341 0000 b ... OBSTERNTE
Wie steuert man das Teil. Ich habe es nicht zum Laufen bekommen. ES IST ERNTEZEIT. FANGEN SIE SO VIEL OBST WIE MOEGLICH AUF. VORSICHT, KEIN OBST ZERTRETEN!!! DAZU KOENNEN SIE MIT DER TASTE 'S4'DEN MENSCHEN NACH LINKS BEWEGEN.DRUECKEN SIE DIE TASTE NICHT, SO BEWEGT ER SICH NACH RECHTS. SCHWIERIGKEITSGRAD: 1 HOHER BAUM,KLEINE KRONE, 2 HOHER BAUM,GROSSE KRONE, 3 KLEINER BAUM,GROSSE KRONE, 4 KLEINER BAUM,GROSSE KRONE,STURM
Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

    1 REM URHEBERRECHTE BEI H.GRUHLE UND A.EIGEBRECHT OBOS 1986
    5 OUTCHAR 12
   10 FOR I=1 TO  15
   20 P.
   30 NEXT I
   35 P."    "
   36 P."                   "
   37 P."       OBSTERNTE   "
   38 P."                   "
   39 P."    "
   60 FOR I=1 TO 2000
   70 NEXT I
   80 OUTCHAR 12
  100 P."ES IST ERNTEZEIT."
  110 P.;P."FANGEN SIE SO VIEL OBST"
  120 P.;P."WIE MOEGLICH AUF."
  130 P.;P."VORSICHT,KEIN OBST ZERTRETEN!!!"
  132 P.;P."DAZU KOENNEN SIE MIT DER TASTE"
  133 P.;P."'S4'DEN MENSCHEN NACH LINKS"
  134 P.;P."BEWEGEN.DRUECKEN SIE DIE TASTE"
  135 P.;P."NICHT,SO BEWEGT ER SICH NACH"
  136 P.;P."RECHTS."
  200 P.
  210 P."SCHWIERIGKEITSGRAD:"
  220 P.;P."1 HOHER BAUM,KLEINE KRONE,"
  240 P.;P."2 HOHER BAUM,GROSSE KRONE,"
  260 P.;P."3 KLEINER BAUM,GROSSE KRONE,"
  280 P.;P."4 KLEINER BAUM,GROSSE KRONE,"
  310 P."  STURM"
  320 P.;P."WAS WAEHLEN SIE?"
  330 INPUT O
  340 IF O=0 GOTO 320
  350 IF O>4 GOTO 320
  500 C=0;K=0;L=0;M=0
  505 G=0;H=0;Q=0
  510 FOR I=1 TO 30
  515 P.
  520 NEXT I
  530 FOR I=0 TO 31
  540 POKE H.(EFA0)+I,158
  550 NEXT I
  555 P."    OBST  GEFANGEN  ZERTRETEN"
  560 P=H.(EF70)
  561 POKE P,15
  565 POKE H.(EFE7),48
  570 POKE H.(EFF1),48
  575 POKE H.(EFFC),48
  580 IF O=1 GOTO 700
  590 IF O=2 GOTO 800
  600 IF O=3 GOTO 900
  610 IF O=4 GOTO 1100
  699 REM SCHWIERIGKEIT 1
  700 A=RND (16)
  710 A=A+8
  720 B=0
  730 C=1
  740 E=0
  750 GOSUB 1400
  760 GOTO 700
  799 REM SCHWIERIGKEIT 2
  800 A=RND(32)
  810 B=0
  820 C=1
  830 E=0
  840 GOSUB 1400
  850 GOTO 800
  899 REM SCHWIERIGKEIT 3
  900 A=RND(32)
  910 B=RND(10)
  920 C=1
  930 E=0
  940 GOSUB 1400
  950 GOTO 900
 1099 REM SCHWIERIGKEIT 4
 1100 A=RND(32)
 1110 B=RND(10)
 1120 C=1
 1125 I=-1
 1130 X=0
 1140 GOSUB 1400
 1150 GOTO 1100
 1400 K=K+1
 1410 IF K=10 G=G+1
 1415 IF K=10 K=0
 1420 POKE H.(EFE6),G+48
 1430 POKE H.(EFE7),K+48
 1499 REM FALLOBST
 1500 A=H.(EC00)+B*32+A
 1510 POKE A,32
 1520 IF O=4 GOTO 1880
 1530 A=A+32
 1540 IF A=P GOTO 2000
 1550 POKE A,140
 1560 POKE P-1,32
 1565 IF P=-4225 GOTO 1600
 1570 POKE P+1,32
 1599 REM MENSCH
 1600 OUT(H.(102))=95
 1610 @(2)=IN(H.(102))
 1620 IF @(2)=87 P=P-1
 1625 IF P=-4225 GOTO 1640
 1630 POKE P+1,32
 1640 IF @(2)=95 P=P+1
 1650 POKE P-1,32
 1670 IF P>-4225 P=P-1
 1680 IF P<-4256 P=P+1
 1690 POKE P,15
 1700 IF A=P GOTO 2200
 1710 IF A<H.(EF60) GOTO 1510
 1720 POKE A,154
 1750 FOR I=1 TO 50
 1760 NEXT I
 1770 POKE A,32
 1790 IF G=2 GOTO 5000
 1850 RETURN
 1880 X=X+1
 1890 IF X=6 X=0
 1895 IF X<5 GOTO 1903
 1900 C=RND(3)-2
 1903 I=I+1
 1905 IF C=0 GOTO 1530
 1920 W=H.(EC1F)
 1940 W=W+(B+I)*32
 1950 IF W=A C=-C
 1960 IF W=A+31 C=-C
 1970 A=A+32+C
 1980 GOTO 1540
 1999 REM TREFFER
 2000 L=L+1
 2010 IF L=10 H=H+1
 2015 IF L=10 L=L-10
 2020 POKE H.(EFF0),H+48
 2030 POKE H.(EFF1),L+48
 2040 RETURN
 2199 REM ZERTRETEN
 2200 M=M+1
 2203 IF A=-4256 GOTO 2206
 2204 POKE A-1,173
 2205 IF A=-4225 GOTO 2207
 2206 POKE A+1,174
 2207 POKE A,24
 2210 IF M=10 Q=Q+1
 2220 IF M=10 M=M-10
 2240 POKE H.(EFFB),Q+48
 2250 POKE H.(EFFC),M+48
 2260 RETURN
 4999 REM AUSWERTUNG
 5000 OUTCHAR 12
 5010 P.;P.;P.;P.
 5015 L=L+10*H
 5020 P."SIE HABEN",L," STUECK OBST "
 5025 P.;P."GEFANGEN."
 5030 GOTO 6000
 5035 M=M+10*Q
 5036 P.;P."SIE HABEN",M," STUECK OBST"
 5037 P.;P."ZERTRETEN."
 5038 GOTO 6500
 5040 P.;P.;P.;P."WOLLEN SIE NOCH EINMAL SPIELEN?"
 5050 P.;P."  JA=1"
 5055 P.;P."NEIN=2"
 5060 P.;P.;INPUT S
 5070 IF S=1 OUTCHAR 12
 5075 IF S=1 GOTO 200
 5080 IF S=2 GOTO5100
 5090 GOTO 5040
 5100 OUTCHAR 12
 5110 FOR I=1 TO 11
 5120 P.
 5130 NEXT I
 5140 P."AUF WIEDERSEHEN ZUR OBSTERNTE "
 5145 P.;P.
 5150 P."    IM NAECHSTEN JAHR!!!"
 5160 P.;P.;P.
 5170 FOR I=1 TO 2000
 5180 NEXT I
 5200 T=H.(EE6C)
 5210 POKE T,131;POKE T+2,131;POKE T+4,131
 5220 POKE T+5,131;POKE T+6,131
 5230 POKE T+31,129;POKE T+32,193
 5240 POKE T+33,158;POKE T+34,158
 5250 POKE T+35,158;POKE T+36,158
 5260 POKE T+37,158
 5270 POKE T+38,137;POKE T+39,128
 5280 POKE T+64,155;POKE T+96,156
 5290 POKE T+129,155;POKE T+161,156
 5300 POKE T+70,153;POKE T+102,152
 5310 POKE T+133,153;POKE T+165,152
 5320 POKE T+162,248;POKE T+163,248
 5330 POKE T+164,248
 5335 V=-1
 5340 FOR I=1 TO 500
 5350 NEXT I
 5360 POKE T+164,32
 5370 POKE T+196,140
 5400 POKE T+164,32
 5410 U=T+196
 5415 V=V+2
 5420 POKE U,140
 5430 U=U+32
 5435 POKE U-32,32
 5440 IF U<H.(EFFF) GOTO 5420
 5445 IF V=13 V=6
 5450 POKE T+V-1,32
 5460 IF V>20 STOP
 5470 GOTO 5410
 6000 P.
 6001 IF L>4 GOTO 6020
 6010 P."SIE VERSAGER!!!WAS FANGE ICH"
 6015 P.;P."NUR MIT DEM VIELEN FALLOBST AN??"
 6017 GOTO 5035
 6020 IF L>6 GOTO 6040
 6030 P."ICH HABE SCHON BESSERE GAERTNER"
 6035 P.;P."GESEHEN!!!"
 6037 GOTO 5035
 6040 IF L>8 GOTO 6060
 6050 P."DAS IST GARNICHT SO UEBEL!"
 6055 P.;P."ICH WUENSCHE 'GUTEN APPETIT'!!"
 6057 GOTO 5035
 6060 IF L>10 GOTO 6080
 6070 P."VIEL SPASS BEIM EINKOCHEN!!!"
 6077 GOTO 5035
 6080 IF L>12 GOTO 6090
 6085 P."SIE SIND SUPER!HOFFENTLICH AUCH"
 6086 P.;P."BEIM EINKOCHEN!!!"
 6088 GOTO 5035
 6090 P."DAS IST ABSOLUTE SPITZE!!!SIE"
 6091 P.;P."HABEN DEN ORDEN DER GAERTNER"
 6093 P.;P."IN GOLD VERDIENT!!!"
 6095 GOTO 5035
 6500 P.
 6510 IF M>2 GOTO 6540
 6520 P."SCHUHEPUTZEN NICHT VERGESSEN!!!"
 6530 GOTO 5040
 6540 IF M>4 GOTO 6570
 6550 P."WAS HABEN SIE BLOSS FUER"
 6560 P.;P."RIESENLATSCHEN?!?!"
 6565 GOTO 5040
 6570 IF M>6 GOTO 6600
 6580 P."SIE SIND JA EINE KLEINE"
 6590 P.;P."OBSTPRESSE!!!"
 6595 GOTO 5040
 6596 IF L>12 GOTO 6630
 6600 P."SIE SIND FRISTLOS ENTLASSEN!!!"
 6620 GOTO 5160
 6630 P."DEN MUS RAEUMEN SIE ABER SELBER"
 6640 P.;P."WEG!!!"
 6650 GOTO 5040