
            EUCSD IMP Compiler for M68000.  APM Version  1.9d

             CHARDEMO  compiled on 03/10/84  at  00.38

              1  ! Demonstration program to draw all of the Hershy fonts
              2  
              3  %include "edwin:consts.inc"
              4  %include "edwin:specs.inc"
              5  
              6  %begin
              7     %own %integer init = 0
              8     %const %integer split = 32
              9     %integer alphabet, char, set, y, dev
             10  
             11     %on 14 %start
             12         ! Event 14,6 signaled if alphabet doesn't exist.
             13         alphabet = alphabet + 1
             14     %finish
             15  
             16     %if init=0 start
             17         dev = default device
             18         initialise for (dev)
             19         viewport (0, 85*400, 0, 60*400) %if  dev=7580
             20         viewport (0, 40*400, 0, 28*400) %if  dev=7221
             21         window (0, 7200, 0, 4000)
             22         new frame
             23         prompt ("Page 1 or Page 2: ")
             24         read symbol (set) %until set='1' %or set='2'
             25         set char quality (software text)
             26         set char size (60)
             27         %if set='1' %start
             28             alphabet = 1
             29             set = split
             30         %else
             31             set = 64
             32             alphabet = split+1
             33         %finish
             34         init = 1
             35     %finish
             36     
             37     %cycle
             38        y = 120 * alphabet
             39        %if set = 64 %then y = y - 120*(split-1)
             40        move abs (0, y)
             41        set char font (26)
             42        text ("Set".ItoS(alphabet,2)." : ")
             43        set char font (alphabet)
             44        %for char = 1, 1, 127 %cycle
             45             character (char)
             46        %repeat
             47        alphabet = alphabet + 1
             48     %repeat %until alphabet>set
             49  
             50     terminate edwin
             51  
             52  %end %of %program

           153 statements compiled (+ 32 comments)
