Font 3 - KVonGit/zil-stuff GitHub Wiki

<GLOBAL USING-FONT-THREE <>>

<ROUTINE TRY-FONT-THREE ()
  <RETURN <SET USING-FONT-THREE <FONT 3>>>
>
  <COND
    (<TRY-FONT-THREE>
      <TELL "||ZZZ" CR> ;"if font 3, this reads XXX, else nothing prints"
    )
  >
  <FONT 1>

Print all the characters

<GLOBAL USING-FONT-THREE <>>

<ROUTINE TRY-FONT-THREE ()
  <COND
    (<NOT <SET USING-FONT-THREE <FONT 3>>>
      <TELL "|[FONT 3 NOT AVAILABLE. USE A DIFFERENT TERP!]" CR>
      <RFALSE>
    )
  >
  <CRLF>
  <TELL "LLLLLLLLLLLLLLLLLLLLLL" CR>
  <FONT 1>
  <TELL "  FONT 3 BEGINS HERE">
  <FONT 3>
  <CRLF>
  <TELL "KKKKKKKKKKKKKKKKKKKKKK" CR>
  ;"33 - 126"
  <REPEAT ((I 33))
    <FONT 1>
    <PRINTC .I><TELL "   ">
    <FONT 3>
    <PRINTC .I>
    <CRLF>
    <SET I <+ .I 1>>
    <COND (<G? .I 126> <RETURN>)>
  >
  <TELL "LLLLLLLLLLLLLLLLLLLLLL" CR>
  <FONT 1>
  <TELL "       END OF FONT 3" CR>
  <FONT 3>
  <TELL "KKKKKKKKKKKKKKKKKKKKKK" CR>
  <RETURN <FONT 1>>
>


;" EXAMPLE: <TRY-FONT-THREE> "
;"  Then check ,USING-FONT-THREE in routines "
⚠️ **GitHub.com Fallback** ⚠️