10REM MONTHLY
   20REM JOHN A COLL
   30REM VERSION 1 / 16 NOV 81
   40REM MODEL B
   60*KEY 0 "MODE7 |M LIST|M"
   70*KEY 9 "RUN |M"
   80M$="JFMAMJJASOND"
   90C=0
  100MODE 2
  110VDU 5
  120VDU 29,0;100;
  140FOR X=0 TO 1100 STEP 100
  150GCOL 0,C MOD 7+1
  160C=C+1
  170H=RND(400)+300
  180MOVE X,0
  190MOVE X,H
  200PLOT 85,X+100,0
  210PLOT 85,X+100,H
  220MOVE X+70,H+50
  230MOVE X,H
  240PLOT 85,X+170,H+50
  250PLOT 85,X+100,H
  260PLOT 85,X+170,50
  270PLOT 85,X+100,0
  280GCOL0,0
  290MOVEX,H
  300DRAW X+100,H
  310DRAW X+170,H+50
  320MOVE X+100,H
  330DRAW X+100,0
  340MOVE X+10,50
  350PRINT MID$(M$,C,1)
  360NEXT
  380GCOL 4,1
  390PRINT TAB(0,16)"----------------"
  400VDU4
  410PRINTTAB(3,0)"critical level"