home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / CreateChkyFont.AMOS / CreateChkyFont.amosSourceCode
Encoding:
AMOS Source Code  |  1999-04-03  |  466 b   |  21 lines
  1. Load Iff "dh3:grafik/dpaint/picture/multifonts/16x64x02-Curved",0
  2. Reserve As Work 9,59*1024
  3. ST=Start(9)
  4. Reserve As Work 10,59*64*2
  5. SST=Start(10)
  6. For A=0 To 58
  7.   XX=(A mod 20)*16
  8.   YY=(A/20)*64
  9.   For Y=0 To 63
  10.     Z=0
  11.     For X=0 To 15
  12.       P=Point(XX+X,YY+Y)
  13.       Poke ST,P
  14.       Z=Z*2+P
  15.       Inc ST
  16.     Next 
  17.     Doke SST,Z : Add SST,2
  18.   Next 
  19. Next 
  20.  Extension_8_0472 "dh1:assembler/qapmoc/fontdata.chk",9
  21.  Extension_8_0472 "dh1:assembler/qapmoc/fontdata.raw",10