OK LIST 2 REM TENNIS BY JOSEF ELLERT 1983 3 FORZ=1TO33:PRINT:NEXTZ 4 FORN=1TO15 5 PRINTTAB(N)"SMASH THE CHICKEN!!!" 6 NEXTN 7 FORI=1TO5000:NEXTI 10 FORZ=1TO33:PRINT:NEXTZ 11 Q=53451:O=48:P=48 12 POKEQ,80:POKEQ+1,85:POKEQ+2,78:POKEQ+3,75:POKEQ+4,84 13 POKEQ+5,69:POKEQ+6,58 14 POKEQ+7,O:POKEQ+8,P 19 REM RAHMEN 20 E=53479:F=53497:G=53510:H=54054:I=54087:J=54105 21 K=54074:L=53530:T=53782 22 POKE53478,165:POKE53498,167:POKE54086,166:POKE54106,168 23 FORRO=ETOF:POKERO,154:NEXTRO:FORUR=ITOJ:POKEUR,155:NEXTUR 24 FORLR=GTOHSTEP32:POKELR,157:NEXTLR 25 FORRR=LTOKSTEP32:POKERR,156:NEXTRR 26 A=53511:B=54055:D=54073:C=53529:POKET,152:M=57088 27 REM WERTE CHICKEN 28 OG=54023-(32*INT(RND(1)*12)) 29 POKET,152 30 O=49:P=49 33 Z=INT(RND(1)*8) 34 IFZ<5THEN50 35 IFZ>5THEN150 36 IFZ=5THEN150 50 REM MOVE OB.L-UN.R. 51 POKEOG,226 53 POKE530,1:POKEM,127 54 IFPEEK(M)=239THENGOSUB330 55 IFPEEK(M)=247THENGOSUB300 56 POKE530,0 57 IFOG=T-1THENGOSUB380 58 IFOG=T-1THEN100 59 IFOG=TTHEN500 60 IFOG=DTHEN500 70 IFOG>BTHEN150 75 FORS=CTODSTEP32 80 IFS=OGTHEN500 83 NEXTS 84 POKEOG,32 85 OG=OG+33:GOTO50 100 REM MOVE OB.R.-UN.L 101 POKEOG,226 103 POKE530,1:POKEM,127 104 IFPEEK(M)=239THENGOSUB330 105 IFPEEK(M)=247THENGOSUB300 106 POKE530,0 110 IFOG=BTHEN150 115 IFOG>BTHEN200 120 FORS=ATOBSTEP32 125 IFS=OGTHEN50 130 NEXTS 133 POKEOG,32 135 OG=OG+31:GOTO100 150 REM MOVE UN.L-OB.R 151 POKEOG,226 152 POKE530,1:POKEM,127 153 IFPEEK(M)=239THENGOSUB330 154 IFPEEK(M)=247THENGOSUB300 155 POKE530,0 156 IFOG=T-1THENGOSUB380 157 IFOG=T-1THEN200 158 IFOG=TTHEN500 160 IFOG=CTHEN500 165 IFOG48THENPOKEQ+8,O-1 606 IFP<>48THENPOKEQ+7,P-1 610 GOTO506 OK