SBP
ÿÿmain()
 ÿ‰ÿñ"ColoHelp",300,0,140,160,"Colour Table Help","MS Sans Serif",8
 ÿ|ÿñ"ColoHelp",1,50,140,40,13,1,"&OK",1,1
 ÿ|ÿñ"ColoHelp",5,4,4,132,130,1,txt$
 cr$ÿÿ(13)ÿ
ÿ(10)ÿ
ÿ(13)ÿ
ÿ(10)
 txt$ÿ"First select the printer on which you want to print the colour table, selecting Portrait or Landscape as appropriate"ÿ
cr$
 txt$ÿtxt$ÿ
"You can view what will be printed, selecting a pattern and background colour if appropriate"ÿ
cr$
 txt$ÿtxt$ÿ
"One benefit of printing in Portrait is that the colours will line up exactly as they do in the Form Designer palette, making finding the colour you want to use much easier."ÿ
cr$
 txt$ÿtxt$ÿ
"The numbers in the bottom left of the dialog is the page size in mm"
 ÿ×colours$(255),patterns$(15)
 ÿ›i%%ÿ0ÿq255:colours$(i%%)ÿÿH(ÿ(i%%,"999")):ÿ±
 ÿ›i%%ÿ0ÿq15:patterns$(i%%)ÿÿH(ÿ(i%%,"999")):ÿ±
 patterns$ÿpatterns$(0)
 colours$ÿcolours$(0)
 ÿ‰ÿñ"ColoTabl",0,0,228,71,"Print Colour Table","MS Sans Serif",8
 ÿ|ÿñ"ColoTabl",5,02,20,40,08,0,"Pattern:"
 ÿ|ÿñ"ColoTabl",8,44,18,40,140,3,0,patterns$,patterns$
 ÿ|ÿñ"ColoTabl",5,88,20,80,08,0,"0=solid colour"
 ÿ|ÿñ"ColoTabl",5,02,34,40,08,0,"Background:"
 ÿ|ÿñ"ColoTabl",8,44,32,40,132,3,2,colours$,colours$
 ÿ|ÿñ"ColoTabl",5,88,34,80,08,0,"Irrelevant for pattern=0"
 ÿ|ÿñ"ColoTabl",1,050,54,40,13,1,"Pre&view",3,1
 ÿ|ÿñ"ColoTabl",1,094,54,40,13,0,"&Print",2,1
 ÿ|ÿñ"ColoTabl",1,138,54,40,13,0,"&Cancel",0,0
 ÿ|ÿñ"ColoTabl",1,188,54,36,13,0,"&Help",0,2,"ColoHelp"
 ÿ|ÿñ"ColoTabl",5,00,63,040,08,0,pagesize$
 ÿ|ÿñ"ColoTabl",5,02,04,040,08,0,"Print To:"
 ÿ|ÿñ"ColoTabl",6,44,02,140,12,128ÿ
2048,0,pr$,255
 ÿ|ÿñ"ColoTabl",1,188,02,36,12,0,"Change",1,1
 ÿÊÿ_ÿe3,4,11
 ÿ¡ÿOÿ´("")ÿp
ÿ‰"temp"' fool the PRINT CURRENT PAGE
 ÿ’ÿ¡
 ÿØÿ1
pagesize$ÿÿ(ÿåsys(15),"")ÿ
","ÿ
ÿ(ÿåsys(16),"")
pr$ÿÿhÿ
" on "ÿ
ÿh(0)
ÿñ"ColoTabl",isok%%
ÿ¡isok%%ÿ0ÿpÿ’ÿØ
ÿ¡isok%%ÿ1ÿpÿÊÿh
 
ÿ¡isok%%ÿ1ÿp
xsize%%ÿÿåsys(15)
ysize%%ÿÿåsys(16)
pat%%ÿÿ0(patterns$)
ÿÊÿœÿs0
ÿ‰ÿœ"temp",xsize%%,ysize%%
ÿÊÿœÿÑ1ÿÖ1,0,0,pat%%
ÿÊÿœÿÒÿ0(colours$)
ÿÊÿœÿo"Arial,6"ÿÔÿ³
ÿ|ÿœ5,0,0,xSize%%,3,"Pattern: "ÿ
patterns$ÿ
ÿ¡(pat%%ÿ0,",  Background: "ÿ
colours$,"")
 
ÿ¡xsize%%ÿysize%%ÿp' landscape
dx%ÿxsize%%ÿ16
dy%ÿysize%%ÿ16
ÿ›i%%ÿ0ÿq15
	ÿ›j%%ÿ0ÿq15
ÿÊÿœÿÖ33,0,0,pat%%ÿÑi%%ÿ16ÿ
j%%
ÿ|ÿœ1,dx%ÿi%%ÿ
dx%,dy%ÿj%%ÿ
dy%,dx%,dy%
ÿÊÿœÿÖ32,0,0,pat%%ÿÑ1
ÿ|ÿœ5,dx%ÿi%%ÿ
dx%,dy%ÿj%%ÿ
dy%,dx%,dy%,ÿ(i%%ÿ16ÿ
j%%,"")
	ÿ±
ÿ±
ÿ^
dx%ÿxsize%%ÿ9
dy%ÿysize%%ÿ34
ÿ›j%%ÿ0ÿq31
	ÿ›i%%ÿ0ÿq7
colo%%ÿi%%ÿ
j%%ÿ8
ÿÊÿœÿÖ33,0,0,pat%%ÿÑcolo%%
ÿ|ÿœ1,dx%ÿi%%ÿ
dx%ÿ2,dy%ÿj%%ÿ
dy%,dx%,dy%
ÿÊÿœÿÖ32,0,0,pat%%ÿÑ1
ÿ|ÿœ5,dx%ÿi%%ÿ
dx%ÿ2,dy%ÿj%%ÿ
dy%,dx%,dy%,ÿ(colo%%,"")
	ÿ±
ÿ±
ÿ’ÿ¡
ÿœ
ÿ¡isok%%ÿ2ÿp
ÿ¹ÿYÿí
ÿ’ÿ¡
ÿ’ÿ¡
 ÿÙ
 ÿ¾ÿñ"ColoTabl"
 ÿ¾ÿñ"ColoHelp"
 ÿ¡ÿ´("temp")ÿpÿ†ÿ™"Temp"
 ÿ’ÿÿ