Main Menu

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.

View BASIS LinkedIN Profile Visit our Twitter Feed Check out our Facebook Public Profile Click to View the BASIS youTube channel