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.