Olympic TV Hockey

1 CLEAR 63999 LET RND-PI/PI DXM J<UAL "3"> LET INT=PI/PI LCT SF«PI-PI DEF PN P<X,Yt=INT (Xíl0»Y)/tietY» POKC URL "23638" , UAL 8" CO SUB URL "9010" LO «o -"cooe 6*000 2 LET LUO LCT MiPI-PI LCT L«PI-PI LCT TmPI-PI LET X=PI-P I LCT PsPI-PI LCT LL=PI-PI LE T GtWL "20" LCT Z-PI-PI LET S = PI-PI DIM E %(UAL "3",UAL "32"» 10 PRINT RT 12,0, PRPER 0. INK 0, PRPER 5," ","0 L I M P I C"," 11 GO SUB 9280 13 IF (Z>S RND Z<11> TMEN GO T O S000 14 IF Zal* TMCN GO TO 2000 15 POKE 23607,252 PRINT RT 16 ,0, PRPER 8, INK 0,"GM",RT 19,0;"OP 17 POKE URL "23607"