[mult]

/* this is where you include all the functions you need.

pl char b(0)[MC 13,1;MC 10,1;ps b]
ps char b(0)[int l;char c;l=-1;while(c=b(++l))MC c,1;return l]
sak[pl"Press Enter ... ";return getchar]
getchar[return MC 2]
pn int n[MC ' ',1;MC n,14]
color char c[MC '\'-'A',1;MC '\'-1,1;MC '3',1;MC c,1;MC 'm',1]
hilo char c[MC '\'-'A',1;MC '\'-1,1;MC c,1;MC 'm',1]

/* the next statement is needed to mark the end of your library functions.

endlibrary

/* this is the main program that will "autorun"

/* mult.ipl - lrb - 1/10/9

mult [ /* print multiplication tables from 1*1 up to 12*12
  int i,j
  char blue,white;blue='4';white='7'
  char hi,lo;hi='1';lo='0'
  hilo hi;color blue;pl "mult.ipl - 1/10/9 - lrb"
  color white
  for (i=1;i<=12;++i) [
    pl "";sak
    for (j=1;j<=12;++j) [
      pl "";pn i;ps " *";pn j;ps " ="
      pn i*j
      ]
    ]
    pl "";pl "";hilo lo
  ]