10CLS
   20PRINT"720 (5*3*3*2*2*2*2) pixels vertically"''
   30PRINT"Character height   No. of lines"
   40PROCheight(5*2)
   50PROCheight(3*2*2)
   60PROCheight(5*3)
   70PROCheight(2*2*2*2)
   80PROCheight(5*2*2)
   90PROCheight(3*2*2*2)
  100PROCheight(5*2*3)
  110PROCheight(36)
  119PRINT"____________________________________"''
  120PRINT''"640 (5*2*2*2*2*2*2*2) pixels vertically"''
  121PRINT"Character height   No. of lines"
  130PROCh(8)
  131PROCh(10)
  140PROCh(16)
  150PROCh(20)
  160PROCh(32)
  161CLS
  170END
  180DEFPROCheight(Pixels)
  190IF Pixels<10 THEN PRINT " ";
  200PRINT"     ";Pixels;"                 ";720/Pixels
  210ENDPROC
  300DEFPROCh(Pixels)
  310IF Pixels<10 THEN PRINT " ";
  320PRINT"     ";Pixels;"                 ";640/Pixels
  330ENDPROC