Entry

    5 CLS : LET I=1
   10 FOR c=1 TO 8: REM By Wm. L. Pollock, 2318 Meadowlark Lane, Jefferson City, MO 65101
   15 IF c/2-INT (c/2)=0 THEN GO TO 70
   20 FOR x=0 TO 21
   30 BORDER 8-c
   35 PRINT #0;AT 0,0; PAPER 2; INK 7;"  WHEN I GET LOADED I SOMETIMES         SEE STRANGE SIGHTS      "
   40 PRINT AT x,16; INK C;"████████████████"
   50 NEXT x
   60 NEXT c
   70 FOR y=21 TO 0 STEP -1
   80 PRINT AT y,0; INK C;"████████████████"
   90 NEXT y: NEXT c
   95 LET I=I+1: BRIGHT 0: IF I=2 THEN BRIGHT 1: GO TO 10
  100 FOR c=0 TO 7: FOR b=7 TO 0 STEP -1
  110 BORDER c: PAPER b: CLS 
  120 PRINT AT INT (RND*11),0; INK 9;"Sometimes it makes  my poor head";AT 21-INT (RND*11),12; PAPER 2;"HURT!": PAUSE 10
  130 NEXT b: NEXT c: BORDER 0: CLS 
  140 PRINT AT 10,0; PAPER 7; INK 2; FLASH 1;"Sometimes I just take an aspirin";AT 12,6;"and disappear!"
  150 PAUSE 180: FLASH 0: INK 0: PAPER 0: BORDER 0: CLS : PAUSE 0