DIE EIDECHSE VERSUCHT DIE FLIEGE ZU ERHASCHEN. ZUM BETAETIGEN DER ZUNGE DRUECKE IRGENDEINE TASTE ! NACH 7 FEHLVERSUCHEN IST SCHLUSS

1 REMç2ÉAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
100 OUTC.12
110 FOR I=1 TO 5;PR.;N.I
120 TAB(8)
130 PR."E I D E C H S E"
140 TAB(7)
150 PR."-----------------"
160 PR.;PR.;PR.
170 P."DIE EIDECHSE VERSUCHT DIE FLIE-"
220 P.;P."GE ZU ERHASCHEN."
225 P.;P.
230 PR.;PR."ZUM BETAETIGEN DER ZUNGE"
240 P.;P."DRUECKE IRGENDEINE TASTE !"
245 P.;P.
250 P.;P."NACH 7 FEHLVERSUCHEN IST SCHLUSS"
255 TAB(160);P."                        >ENTER<"
270 O=INC.
300 REM VORBEREITUNG
310 OUTC.12
315 TAB(14)
320 PR.;PR.;PR."FERTIGMACHEN!"
340 FOR I=1 TO 1000;N.I
380 Z=0;REM FLIEGENZAEHLER
390 A=0
400 REM SPIEL
410 OUTC.12
430 REM FLIEGE PLATZIEREN
440 P."  Gefangen:",#3,Z,"        Fehler:",#2,A
450 R=RND(10)
460 X=(HEX(EC60)+9)+(R*32)+(RND(20))
470 PO.X,20
480 PO.H.(EC00),32
500 REM EIDECHSE LAUFEN LASSEN
510 FOR K=HEX(EF28) TOHEX(EF3E)
512 PO.K,250;PO.K-32,200;PO.K-33,32;PO.K-31,221;PO.K-1,37
513 PO.K-2,37;PO.K-3,37
514 PO.K-4,37;PO.K-5,61
515 PO.K-6,61;PO.K-7,61
516 PO.K-8,45;PO.K+28,62
517 PO.K+31,60;PO.K+30,32
520 PO.K-9,32;PO.K+27,32
640 CALL HEX(1157)
645 W=PE.(HEX(04))
650 IF W=0 G.710
660 GOSUB 810;REM FANGVERSUCH
680 G.400
710 N.K
740 G.400
800 REM FANGVERSUCH
810 FOR T=K-63 TOK-736 STEP-32
815 PO.T,123
820 IF PE.(T-32)#20 G.870
822 C.H.(18EF)
825 FOR H=T TO K+1 STEP32
830 PO.H-32,32;PO.H,20
832 FORI=1 TO5 ;N.I
834 N.H
845 PO.K-31,32;PO.K-32,32;PO.K,98
847 PO.K+1,98
849 FOR I=1TO150;N.I
850 PO.K,90;PO.K+1,111
860 GOSUB 880
865 RETURN
867 PO.I,123;PO.T,32
870 N.T
872 A=A+1
873 IF A>6 G.1300
875 RETURN
880 REM SCHLUCKEN
881 PR.;PR.;PR.
882 TAB(K-(HEX(EF20))-4)
885 PR.;PR."SCHMATZ"
888 Z=Z+1
889 P.
890 P.;P.Z," FLIEGEN GESCHNAPPT"
891 F.I=0 TO 400;N.I
892 FOR I=1 TO 8
896 PO.K,98;PO.K+1,98
900 FOR J=1 TO 100;N.J
910 PO.K,90;PO.K+1,111
920 F.B=0TO150;N.B
930 N.I
940 RETURN
1300 PR.;PR.;PR.;PR.
1310 PR."SPIEL ZU ENDE!"
1312 P.
1315 P.Z," FLIEGEN GEFANGEN"
1317 P.
1320 P."MOECHTEST DU NOCH EINMAL ?(J/N)"
1330 F.I=1 TO 3
1335 C.H.(19F0)
1337 N.I
1340 U=INC.
1350 IF U='J' G.300
1352 O.12;TAB(488)
1360 PR."AUF WIEDERSEHEN"
1362 TAB(320)