       10 // PRINT USING test program
       20 //
       30 PROC deliet EXTERNAL "deliet.sq"
       40 //
       50 joesing("####", -10, " -10")
       60 joesing("####", 4.5, "   4")
       70 joesing("#.##", 4.5, "4.50")
       80 joesing("##.##", 4.5, " 4.50")
       90 joesing("#.#", 100.001, "100.0")
      100 PRINT "Ok"
      110 //
      120 PROC joesing(format$, num, expect$)
      130   deliet("out")
      140   SELECT OUTPUT "out"
      150   PRINT USING format$: num;
      160   SELECT OUTPUT ""
      170   SELECT INPUT "out"
      180   INPUT a$
      190   SYS assert, a$=expect$
      200   SELECT INPUT ""
      210   DELETE "out"
      220 ENDPROC joesing
