home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / MAGGIE22.ARJ / magg22st.msa / GOODIES / ST_INTRO.ZIP / M21.ST / DATA / FONT.GFA (.txt) < prev    next >
GFA-BASIC Atari  |  1996-08-22  |  2KB  |  43 lines
  1. ' Newfont.Pi1 --> Courier.Dat
  2. RESERVE 200000
  3. screen%=MALLOC(32034)
  4. fontdat%=MALLOC(48*8*13*5)
  5. s%=fontdat%
  6. FILESELECT "d:\*.pi1","",f$
  7. BLOAD f$,screen%
  8. rez#=&H20+8+3
  9. VOID XBIOS(5,L:&H300000,L:&H300000,0)
  10. vis%=XBIOS(2)
  11. VSYNC
  12. FOR x#=0 TO 15
  13.   SETCOLOR x#,x#*&H222
  14. NEXT x#
  15. FOR y%=0 TO 3
  16.   FOR x%=0 TO 12
  17.     GOSUB conv(x%,y%)
  18.   NEXT x%
  19. NEXT y%
  20. ' REPEAT
  21. ' UNTIL MOUSEK<>0
  22. HIDEM
  23. SHOWM
  24. BSAVE "d:\source2\m21.st\data\courier.dat",fontdat%,s%-fontdat%
  25. q%=MFREE(screen%)
  26. VOID XBIOS(5,L:&H300000,L:&H300000,1)
  27. END
  28. PROCEDURE conv(x%,y%)
  29.   BMOVE screen%+34,vis%,32000
  30.   GET x%*20,y%*48,x%*20+18,y%*48+47,a$
  31.   CLS
  32.   PUT 0,0,a$
  33.   v%=vis%
  34.   FOR qy%=0 TO 47
  35.     DPOKE s%,DPEEK(v%)
  36.     DPOKE s%+2,DPEEK(v%+8)
  37.     DPOKE s%+4,DPEEK(v%+2)
  38.     DPOKE s%+6,DPEEK(v%+10)
  39.     ADD v%,160
  40.     ADD s%,8
  41.   NEXT qy%
  42. RETURN
  43.