SIGNS SIGNÓ printó á strinç oæ letteró iî largå formaô - 1° ø · normaì characters®  Eacè letteò ió 1² ø · characteró iî size®  Therå arå  twï spaceó betweeî eacè letter¬  anä twï linå feedó  betweeî eacè  string®  Twï  compilationó arå provided»  SIGNS¶  haó  siø letteró  peò  strinç anä ió suitablå foò consoleó anä  8°  columî printers®  SIGNS1±  haó 1± characteró peò linå whicè fitó ontï á 132 column printer. Thió  versioî  oæ thå prograí haó beeî turneä  froí  warmeä  oveò BASIà intï reaì Pascal®  Aó sucè iô ió mucè morå flexible®  Thå twï  CONSTants¬  linå widtè anä lengtè oæ alphabeô arå documenteä in the source. WDTH works just fine. Additionally¬  readabilitù  haó  beeî  improveä  bù  puttinç  thå initializatioî routineó intï procedures®  Also¬ É thinë yoõ wilì be tickled by the output device routing options. Thå UCASÅ functioî trapó alì illegaì letters¬  anä turnó  loweò caså  intï  upper®  Aó presentlù written¬  onlù  uppeò  caså letteró anä blankó arå formatted® Sincå alì BASIà languagå variableó arå legaì iî Pascal¬ thå nameó werå noô changed® Iî thå revision¬ É succeedeä iî eliminatinç á couple altogether. Fillinç thå Ú arraù presenteä á problem® Initiallù É haä planneä tï dï iô thusº mult := 1; {declared as integer} for a := 5 downto 1 do begin z[a] := mult; mult := mult * 10; end; Thió  resulteä iî á run-timå multiplicatioî error®  Thå brutå forcå methoä works¬ thï iô certainlù ió noô aó elegant® Thå  mosô  difficulô parô oæ convertinç thió prograí  froí  BASIà waó  fillinç thå arraù containinç thå characteò fonô  -- L®  Iî BASIà thió  ió donå withiî thå prograí usinç á  serieó  oæ  DATÁ statements»  foò whicè therå ió nï analoç iî Pascal® Herå ió ho÷ thå fonô ió stored¬  shoulä yoõ wisè tï alteò oò adä tï it® Eacè linå iî thå "font.dat¢ filå consistó oæ á strinç oæ 8 characters: Char ASCII (val-64) Binary _ 95 31 11111 P 80 16 10000 P 80 16 10000 ^ 94 30 11110 P 80 16 10000 P 80 16 10000 P 80 16 10000 F -- label, now used to fill L$ array. ŠThå abovå ió thå representatioî oæ thå letteò "F"®  Onlù printablå  characteró caî bå useä aó parô oæ thå fonô  string¬ aó   mù   texô  editoò  filteró  thå  controì   characters(foò starters)®  Foò  thaô reason¬  thå prograí useó thå  uppeò  caså serieó  anä convertó tï thå numberó needeä usinç thå (val-64© function®  Iæ  SIGNÓ  ió  useä  aó  á  subroutinå  iî  anotheò program¬ suggesô thaô arrayó Ì anä L¤ bå declareä globally® Alsï removå  procedurå SETARRAÙ froí thå nesô anä makå iô parô  oæ prograí  initialization®  Thaô waù "font.dat¢ wilì  onlù  bå calleä once® Improvements and comments welcome: Rex A Buddenberg 1910 Ash Street North Bend, Or 97459 h)503/756-2180 Revised 13 March 1983