10 REM BY JIM LEONARD 2/6/1984
    15 WIDTH 80
    20 CLS
    30 CLS:LOCATE 2,25:PRINT"TAKE ME OUT THE THE BALL GAME"
    40 FOR I = 1 TO 100
    50 X=INT(RND*23):Y=INT(RND*79):IF X=2 OR X=0 OR Y=0 THEN 50
    60 LOCATE X,Y
    70 PRINT CHR$(14)
    80 NEXT I
    90 LOCATE 12,10
    100 PRINT"TAKE ME OUT TO THE BALL GAME!  TAKE ME OUT TO THE CROWD!"
    110 PLAY "MFO3L4CO4L8CO3AGEL4G.D.L4CO4L8CO3AGEL2G."
    120 LOCATE 12,5
    130 PRINT"BUY ME SOME PEANUTS AND CRACKERJACK; I DON'T CARE IF I NEVER GET BACK!"
    140 PLAY "L8AG#AEFGL4AL8FL4D.L8AAAABO4CDO3BAG"
    150 LOCATE 12,1
    160 PRINT"SO LETS ROOT!  ROOT!  ROOT! FOR THE HOME TEAM!  IF THEY DON'T WIN, IT'S A SHAME,"
    170 PLAY "EDL4CO4L8CO3AGEL4G.D.L4CL8DEFGL2A"
    180 LOCATE 12,1
    190 PRINT"FOR IT'S ONE!  TWO!  THREE STRIKES!  YOU'RE OUT! AT THE OLD---BALL---GAME!!!    "
    200 PLAY "L8ABO4L8CP4CP4CO3BAGF#GL4A.B.O4L2C"
    210 FOR I = 1 TO 500:NEXT I:CLS