Hier wird wieder einmal etwas subtrahiert, so dass die Tasten IJKLMNOPQ Verwendung finden. 123456789 DER SINN DIESES SPIELES BESTEHT DARIN, MIT MOEGLICHST WENIG SPRUENGEN DEN FLOH IN DEN TELLER ZU SCHNIPPEN. ZU DIESEM ZWECK IST ENTSPRECHEND OFT DURCH EINGABE DER SPRUNGRICHTUNG (L/R) UND DER SPRUNGKRAFT (1-9) hier: IJKLMNOPQ DIE SCHUESSEL ANZUSPRINGEN. DIE ERFORDERLICHE ANZAHL DER VERSUCHE WIRD BEWERTET! DAS GEWICHT DES FLOH'S IST IN DEN SPIELEN VERSCHIEDEN DAS HEISST, DAS DER GLEICHE KRAFTAUFWAND NICHT IMMER GLEICHE LEISTUNG BEDEUTET !!

Zeichensatz UTF-8+Z1013()-CTRL()-ohne Umlaute(äöüß)

   80 GOSUB 1500
   90 M=0
   95 Q=0
   97 N=0
   98 E=0
   99 D=0
  100 OUTCHAR 12
  120 P.
  122 TAB(4)
  130 P."     FLOH-JUMPEN"
  140 P.
  150 P.""
  160 P.
  170 P."DER SINN DIESES SPIELES BESTEHT DARIN,  MIT MOEGLICHST"
  180 P."WENIG SPRUENGEN DEN FLOH IN DEN TELLER ZU SCHNIPPEN."
  200 P."ZU DIESEM ZWECK  IST ENTSPRE-   CHEND OFT DURCH EINGABE"
  210 P.
  220 P."   DER SPRUNGRICHTUNG (L/R)"
  225 P.
  230 P."UND"
  235 P.
  240 P."   DER SPRUNGKRAFT (1-9)"
  250 P.
  260 P."DIE SCHUESSEL ANZUSPRINGEN. "   
  270 P."DIE ERFORDERLICHE ANZAHL DER    VERSUCHE WIRD BEWERTET!"
  280 P."DAS GEWICHT DES FLOH'S IST IN   DEN SPIELEN VERSCHIEDEN"
  285 P."DAS HEISST,DAS DER GLEICHE      KRAFTAUFWAND NICHT",
  287 P." IMMER GLEICHELEISTUNG BEDEUTET !!"
  300 P.
  305 P."ALLES KLAR ?"
  306 PRINT"             START MIT (ENTER)"
  310 A=INCHAR
  320 IF A=13 GOTO 400
  400 OUTC.12
  401 M=H.(EDE0)
  402 N=0;Q=0;E=0;D=0
  405 L=RND(7)+4
  410 FOR K=HEX(EE00) TO HEX(EE1F)
  420 POKE K,45
  430 NEXT K
  440 POKE HEX(EDEF),171
  450 POKE HEX(EDF0),95
  460 POKE HEX(EDF1),95
  470 POKE HEX(EDF2),172
  480 POKE HEX(1B),0
  490 POKE HEX(1C),HEX(EC)
  500 POKE HEX(1D),HEX(9F)
  510 POKE HEX(1E),HEX(ED)
  520 CALL HEX(F6D1)
  530 POKEHEX(EE20),49;POKEHEX(EE3F),48;POKEHEX(EE3E),48
  540 POKEHEX(EE3D),50;POKEHEX(EE3C),51;POKEHEX(EE2C),49
  550 POKEHEX(EE2D),54;POKEHEX(EE2E),48;POKEHEX(EE2F),48
  560 PO.H.(EE30),45;PO.H.(EE31),49;PO.H.(EE32),56
  570 POKEHEX(EE33),48;POKEHEX(EE34),48
  580 POKEHEX(EDE0),64
  600 OUTCHAR 12
  610 PRINT
  620 PRINT"EINGABE RICHTUNG (L/R)"
  630 B=INCHAR
  640 IF B=76 GOTO 700
  650 IF B=82 GOTO 720
  660 GOTO 600
  670 PRINT
  680 PRINT"EINGABE SPRUNGKRAFT (1-9)"
  690 D=INCHAR;GOTO 750
  700 C=-1;POKE HEX(EC3A),76
  710 GOTO 670
  720 C=1;POKE HEX(EC3A),82
  730 GOTO 670
  750 IFD<73G.780
  760 IFD>81G.780
  770 E=D-72
  775 GOTO 800
  780 PRINT"KEINE MAETZCHEN BITTE!"
  790 GOTO 690
  800 REM
  810 Q=Q+1
   52 N=10*L*C*E+N
  815 N=10*L*C*E+N
  816 N=N+RND(50)-25
  817 IFN>0IFN<3200G.825
  818 G.3000
  825 OUTCHAR 12
  830 PRINT"STANDORT       :",;PRINT N
  835 IF N<0 GOTO 1300
  837 IF N>3200 GOTO 1300
  838 G.5000
  840 IFN<1500G.1000
  850 IFN>1900G.1000
  860 IFN>1600IFN<1800G.1000
  890 GOS.1400
  900 PRINT"GROSSER UNFALL!!  FLOH IST AUF  DIE KANTE GESPRUNGEN"
  910 P."UND DABEI TOEDLICH VERUNGLUECKT!       SIE TIERQUAELER!"
  920 PRINT"SPIELEN SIE LIEBER NICHT MIT TIEREN !"
  930 FOR I=1 TO 2000
  935 NEXT I
  940 GOSUB 1500
  950 PO.H.(2C),H.(EE)
  955 PO.H.(2B),H.(60)
  960 P.;P.
  970 P."NOCH EINMAL ? (JA=ENT):",
  980 I=INC.
  985 IFI=13G.400
  990 G.1180
 1000 REM
 1005 POKEHEX(EDE0),32
 1010 M=N/100+HEX(EDE0)
 1020 POKE M,64
 1030 IFM<H.(EDF0)G.610
 1040 IFM>H.(EDF1)G.610
 1050 GOSUB 1500
 1060 OUTCHAR 12
 1070 PRINT;PRINT;PRINT;PRINT;PRINT
 1080 PRINT"              JUCHHE !!"
 1090 PRINT;PRINT;PRINT
 1095 TAB(6)
 1100 P."ES IST GELUNGEN !!!"
 1105 P.
 1106 TAB(9)
 1110 P."MIT ",#1,Q," HUPFERLN"
 1120 PRINT;PRINT;PRINT;PRINT
 1130 P."          GRATULIERE !"
 1134 P.;P.;P.
 1140 P."NOCH EINMAL ? (JA=ENT):",
 1150 D=0;Q=0;N=0;M=0;E=0
 1155 M=H.(EDE0)
 1160 H=INCHAR
 1170 IFH=13G.400
 1180 OUTCHAR 12
 1190 FOR I=1 TO 10
 1200 PRINT
 1210 NEXT I
 1220 PRINT"         AUF WIEDERSEHEN !!"
 1230 FOR I=1 TO 2000
 1240 NEXT I
 1250 OUTCHAR 12
 1255 P."ENDE"
 1260 STOP
 1300 POKE M,32
 1310 GOTO 610
 1400 REM
 1402 IFN<1601PO.H.(EDEF),64
 1403 IFN>1799PO.H.(EDF2),64
 1405 IFPEEK(H.(EDEF))=64Y=H.(EDEF);G.1410
 1407 Y=H.(EDF2)
 1408 G.1450
 1410 REM
 1415 PO.Y-32,64;PO.Y,H.(28)
 1416 F.I=1TO130;N.I
 1417 F.I=1TO100;N.I
 1420 PO.Y-32,32;PO.Y-1,64
 1425 Y=Y-1
 1430 FOR I=1 TO 10 
 1440 NEXT I
 1445 G.1460
 1450 REM
 1452 PO.Y-32,64;PO.Y,H.(29);F.I=1TO200;N.I;PO.Y-32,32;PO.Y+1,64
 1453 Y=Y+1
 1460 F.I=1TO10
 1470 PO.Y,64
 1472 F.Z=1TO200;N.Z
 1475 PO.Y,202
 1477 F.Z=1TO200;N.Z
 1480 N.I
 1490 RETURN
 1500 POKE HEX(1B),0
 1510 POKE HEX(1C),HEX(EC)
 1520 PO.H.(1D),0
 1530 PO.H.(1E),H.(F0)
 1540 CALL HEX(F6D1)
 1550 RETURN
 3000 REM
 3010 OUTC.12;P.
 3020 P."SIE HABEN ZUVIEL KRAFT !!!"
 3030 P.
 3040 P."DER FLOH IST VOM TISCH GEFLOGEN,"
 3050 P."UND DABEI TOEDLICH VERUNGLUECKT."
 3100 IFN>=3200G.3500
 3120 IFM=0M=H.(EDE0)
 3140 IFM>H.(EDE0)G.3200
 3150 F.M=MTOM-128STEP-32
 3155 IFM=H.(EDFF)M=M+1
 3156 IFM=H.(EDDF)M=M+1
 3160 PO.M,64
 3170 F.I=1TO100;N.I
 3180 PO.M,32
 3185 N.M
 3186 PO.M,64
 3188 PO.H.(EE00),32;PO.H.(EE20),32
 3190 F.M=MTOH.(EFE0)STEP32
 3192 PO.M,64
 3194 F.I=1TO100;N.I
 3196 PO.M,32
 3197 N.M;PO.H.(EFE0),202
 3198 G.4000
 3200 REM
 3220 Z=M-H.(EDE0)
 3223 Y=Z/2
 3225 X=1;IFY*2=ZX=0
 3227 PO.H.(EE00),32;PO.H.(EE20),32
 3230 F.I=0TOY
 3240 PO.M,64
 3250 M=M-33
 3255 F.Z=1TO100;N.Z
 3260 PO.M+33,32
 3290 N.I
 3300 M=M+33
 3310 IFX=0M=M-1;PO.M+1,32;PO.M,64
 3330 F.M=MTOH.(EDE0)STEP31
 3340 PO.M,64
 3350 F.I=1TO100;N.I
 3360 PO.M,32
 3390 N.M
 3395 M=M-31
 3397 M=H.(EDE0)
 3400 F.M=MTOH.(EFFF)STEP32
 3420 PO.M,64
 3430 F.I=1TO100;N.I
 3440 PO.M,32
 3450 N.M
 3455 PO.M-32,202
 3460 G.4000
 3499 G.840
 3500 REM
 3510 IFM=0M=H.(EDE0)
 3520 Z=H.(EDFF)-M;Y=Z/2
 3530 X=1;IFY*2=ZX=0
 3540 PO.H.(EE1F),32;PO.H.(EE3F),32
 3550 F.I=0TOY
 3560 PO.M,64
 3570 M=M-31
 3580 F.Z=1TO100;N.Z
 3590 PO.M+31,32;N.I
 3600 M=M+31
 3610 IFX=0M=M+1;PO.M-1,32;PO.M,64
 3620 F.M=MTOH.(EDFF)STEP33
 3630 PO.M,64;F.I=1TO100;N.I
 3640 PO.M,32;N.M
 3650 M=M-33
 3655 M=H.(EDFF)
 3660 G.3400
 4000 G.940
 5000 REM
 5020 IFM>(H.(EDE0)+N/100)G.5500
 5040 Z=(H.(EDE0)+N/100)-M;Y=Z/2
 5056 @(2)=-31
 5058 PO.M,32
 5060 F.I=0TOZ
 5062 IFM=H.(EDEE)IFN>1499M=M-32
 5065 IFM>H.(EDFF)G.5100
 5066 IFM=H.(EDEF)IFN>1600M=M-32
 5067 IFM=H.(EDF2)IFN>1899M=M-32
 5068 IFM=H.(EDF0)IFN>1700M=M-32
 5069 IFM=H.(EDF1)IFN>1799M=M-32
 5070 PO.M,64
 5075 F.@(1)=0TO25;N.@(1)
 5090 PO.M,32
 5092 IFI=Y@(2)=33
 5095 M=M+@(2)
 5100 N.I
 5110 PO.H.(EDE0)+N/100,64
 5120 G.840
 5500 REM
 5520 Z=M-(H.(EDE0)+N/100)
 5535 Y=Z/2
 5540 @(2)=-33
 5545 PO.M,32
 5550 F.I=0TOZ
 5560 IFM>H.(EDFF)G.5630
 5562 IFM=H.(EDF3)IFN<1901M=M-32
 5564 IFM=H.(EDF2)IFN<1800M=M-32
 5566 IFM=H.(EDF1)IFN<1700M=M-32
 5568 IFM=H.(EDF0)IFN<1601M=M-32
 5569 IFM=H.(EDEF)IFN<1500M=M-32
 5580 PO.M,64
 5590 F.@(1)=1TO25;N.@(1)
 5600 PO.M,32
 5610 IFI=Y@(2)=31
 5620 M=M+@(2)
 5630 N.I
 5700 G.840