KB#00508-Sample Visual PRO/5 program that prints all the fonts installed on the system
Title:
Sample Visual PRO/5 program that prints all the fonts installed on the system
Description:
The following program is in ASCII format. To import it into Visual PRO/5, save it into a text file and run it through the PRO5CPL standalone compiler.
REM Setup sysgui device window
open(100) "X0"
open(1)"LP"
for i = 179 to 218
up_ascii$=up_ascii$+chr(i)
next i
print (100) 'window'(-100,-100,10,10,$$,$$)
REM Read in font families for menu
fonts$=ctrl(100,0,9)
while pos($0a$=fonts$)>0
f$=fonts$(1,pos($0a$=fonts$)-1)
print(1,err=Bad_Font)'font'(f$,20,8),f$,up_acsii$
Bad_Font:
fonts$=fonts$(pos($0a$=fonts$)+1)
wend
end
Last Modified: 12/24/1997 Product: Visual PRO/5 Operating System: Windows
BASIS structures five components of their technology into the BBx Generations.