GREYcells Kulja Simsim
Durkeys.prg
kee=space(1)
durr=space(2)
font_new(nfont1)
fline(250,325,250,430,0)
fline(250,325,612,325,0)
fline(612,325,612,430,0)
fline(250,430,612,430,0)
fline(375,340,610,340,0)
fline(375,425,610,425,0)
fline(610,340,610,425,0)
fline(375,340,375,425,0)
fline(375,358,610,358,0)
font_new(nfont5)
get_getclr(nbotscrtxtclr,nbotscrclr,nbotscrtxtclr,nbotscrclr,nbotscrtxtclr,nbotscrclr)
get_say(360,265,"Key:")
get_say(400,265,"Duration:")
font_new(nfont7)
get_getclr(nbotbartxtclr,nbotbarclr,nbotbartxtclr,nbotbarclr,nbotbartxtclr,nbotbarclr)
get_say(330,390,"Key")
get_say(330,435,"Duration")
get_say(330,500,"Key")
get_say(330,550,"Duration")
font_new(nfont7)
get_getclr(nbotscrtxtclr,nbotscrclr,nbotscrtxtclr,nbotscrclr,nbotscrtxtclr,nbotscrclr)
get_say(365,400,"A 12")
get_say(380,400,"B 12")
get_say(395,400,"C 12")
get_say(410,400,"D 12")
get_say(365,510,"E 12")
get_say(380,510,"F 12")
get_say(395,510,"G 12")
get_say(410,510,"H 12")
font_new(nfont1)
get_getclr(nbotscrtxtclr,nbotscrclr,nbotscrtxtclr,nbotscrclr,nbotscrtxtclr,nbotscrclr)
kee=get_get(367,325,kee)
durr=get_get(402,350,durr)
if kee="A"
dur=val(durr)
else
if kee="B"
dur1=val(durr)
else
if kee="C"
dur2=val(durr)
else
if kee="D"
dur3=val(durr)
else
if kee="E"
dur4=val(durr)
else
if kee="F"
dur5=val(durr)
else
if kee="G"
dur6=val(durr)
else
if kee="H"
dur7=val(durr)
endif
endif
endif
endif
endif
endif
endif
endif
return
Er_mess.prg
flush_evq()
fscreen()
tone(300,10)
say_fmt(alltrim("|(150,445)CF2 KF15 KB0 A SP0 DR|(c) Semantix Computers J.V.RAVICHANDRAN June 1995."))
pat_setfil(1)
fbox(300,300,610,400,15)
fbox(301,301,609,321,0)
pat_setfil(3)
fbox(301,322,305,399,0)
fbox(301,395,609,399,0)
fbox(605,322,609,399,0)
say_fmt(ALLTRIM("|(425,316)CF2 KF15 KB0 A SP0 DR|GREYcells"))
say_fmt(ALLTRIM("|(310,335)CF2 KF0 KB15 A SP0 DR|File Open Error."))
pat_setfil(1)
fbox(310,338,435,341,0)
say_fmt(ALLTRIM("|(310,365)CF2 KF0 KB15 A SP0 DR|Font file(s) missing. Please contact"))
say_fmt(ALLTRIM("|(310,385)CF2 KF0 KB15 A SP0 DR|the developer immediately."))
say_fmt(ALLTRIM("|(308,309)CF2 KF15 KB0 A SP0 DR R1|0"))
KEY_PRESS()
FT='N'
key_press()
vm_quit()
textmode()
quit
Exit.prg
FONT_CLOSE(nfont1,nfont2,nfont3,nfont4,nfont5,nfont6)
clr_all()
mfont1=FONT_OPEN("greyfont\RMN1_15.@")
mfont2=FONT_OPEN("greyfont\SS2_50.@")
mfont3=FONT_OPEN("greyfont\Scr1_16.@")
mFont4=FONT_OPEN("greyfont\rmn1_18.@")
mfont5=FONT_OPEN("greyfont\TTL10_30.@")
mFont6=FONT_OPEN("greyfont\SS2_22.@")
CLs_SCREEN()
FLINE( 185, 100, 185, 150, 8 )
FLINE( 185, 100, 235, 100, 8 )
FLINE( 185, 150, 235, 100, 8 )
FLINE( 300, 240, 275, 190, 8 )
FLINE( 250, 240, 300, 240, 8 )
FLINE( 250, 240, 275, 190, 8 )
SAY_FMT(ALLTRIM("|(50,475)CF7 KF8 KB0 DU R1|SEMANTIX"))
SAY_FMT(ALLTRIM("|(15,120)CF4 KF15 KB0 Dr|DatA"))
SAY_FMT(ALLTRIM("|(55,105)CF4 KF15 KB0 DD|R o C e S s I n G"))
SAY_FMT(ALLTRIM("|(10,100)CF6 KF8 KB0 Dr|GraPh cs"))
SAY_FMT(ALLTRIM("|(115,100)CF4 KF15 KB0 DD| o f T w a R e S"))
SAY_FMT(ALLTRIM("|(90,87)CF4 KF15 KB0 DD|idEaS"))
SAY_FMT(ALLTRIM("|(45,83)CF4 KF15 KB0 DU R1|R"))
SAY_FMT(ALLTRIM("|(45,75)CF8 KF15 KB0 DU R1|Tw"))
SAY_FMT(ALLTRIM("|(45,45)CF4 KF15 KB0 DU R1| O rK"))
SAY_FMT(ALLTRIM("|(10,38)CF4 KF15 KB0 DR|Lay"))
SAY_FMT(ALLTRIM("|(50,38)CF4 KF15 KB0 DR|uT S"))
SAY_FMT(ALLTRIM("|(73,50)CF4 KF15 KB0 DR|y "))
SAY_FMT(ALLTRIM("|(78,66)CF4 KF15 KB0 DR|sT"))
SAY_FMT(ALLTRIM("|(85,76)CF4 KF15 KB0 DR|emS"))
FBOX(600,80,625,475,8)
FBOX(550,90,575,425,8)
FBOX(500,100,525,375,8)
FBOX(450,110,475,325,8)
FBOX(400,120,425,275,8)
FLINE(400,275,600,475,8)
FLINE(400,275,260,300,8)
FLINE(260,300,200,425,8)
FLINE(200,425,625,475,8)
FLINE(200,425,200,475,8)
FLINE(200,475,600,475,8)
pat_setfil(1)
FCIRCLE( 225, 185, 25, 15)
pat_setfil(1)
FBOX(145,0,625,65,15)
fbox(150,3,620,62,0)
fbox(70,165,100,470,15)
SAY_FMT(ALLTRIM("|(153,15)CF4 KF12 KB0 DR| Designed & developed by J.V.Ravichandran."))
SAY_FMT(ALLTRIM("|(153,30)CF4 KF15 KB0 DR|Proprietor/Software Architect/Consultant, SEMANTIX computers."))
SAY_FMT(ALLTRIM("|(153,45)CF10 KF15 KB0 DR| For further details contact, SEMANTIX Computers,"))
SAY_FMT(ALLTRIM("|(153,60)CF10 KF15 KB0 DR| B-10,Triveni Apartments, Near 'H' Block, Vikas Puri, New Delhi-110018"))
inkey(25)
return
Fil_chk.prg
fo_f=FILE("greyfont\paint.@")
if fo_f=.f.
DO ER_MESS
ENDIF
fo_f=FILE("greyfont\rmn1_15.@")
if fo_f=.f.
DO ER_MESS
ENDIF
fo_f=FILE("greyfont\rmn10_39.@")
if fo_f=.f.
DO ER_MESS
ENDIF
fo_f=FILE("greyfont\rmn7_19.@")
if fo_f=.f.
DO ER_MESS
ENDIF
fo_f=FILE("greyfont\SS2_50.@")
if fo_f=.f.
DO ER_MESS
ENDIF
fo_f=FILE("greyfont\RMN1_18.@")
if fo_f=.f.
DO ER_MESS
ENDIF
fo_f=FILE("greyfont\TTL12_68.@")
if fo_f=.f.
DO ER_MESS
ENDIF
fo_f=FILE("greyfont\RMN1_12.@")
if fo_f=.f.
DO ER_MESS
ENDIF
fo_f=FILE("greyfont\RMN10_20.@")
if fo_f=.f.
DO ER_MESS
ENDIF
fo_f=FILE("greyfont\SCR1_33.@")
if fo_f=.f.
DO ER_MESS
ENDIF
fo_f=FILE("greyfont\SSD1_40.@")
if fo_f=.f.
DO ER_MESS
ENDIF
fo_f=FILE("greyfont\SCR2_18.@")
if fo_f=.f.
DO ER_MESS
ENDIF
fo_f=FILE("greyfont\SSF1_15.@")
if fo_f=.f.
DO ER_MESS
ENDIF
fo_f=FILE("greyfont\SCR1_16.@")
if fo_f=.f.
DO ER_MESS
ENDIF
fo_f=FILE("greyfont\SSF1_28.@")
if fo_f=.f.
DO ER_MESS
ENDIF
fo_f=FILE("greyfont\SSF2_17.@")
if fo_f=.f.
DO ER_MESS
ENDIF
fo_f=FILE("greyfont\SS2_22.@")
if fo_f=.f.
DO ER_MESS
ENDIF
pr_f=FILE("greysys\PRX_TBL.BIN")
if pr_f=.f.
DO PR_MESS
ENDIF
db_f=FILE("greydata\tempdata.dbf")
if db_f=.f.
DO db_MESS
ENDIF
db_f=FILE("greydata\pichandl.dbf")
if db_f=.f.
DO db_MESS
ENDIF
db_f=FILE("greydata\file_g.dbf")
if db_f=.f.
DO db_MESS
ENDIF
db_f=FILE("greydata\music.dbf")
if db_f=.f.
DO db_MESS
ENDIF
db_f=FILE("greydata\color.dbf")
if db_f=.f.
DO db_MESS
ENDIF
db_f=FILE("greydata\menucolr.dbf")
if db_f=.f.
DO db_MESS
ENDIF
db_f=FILE("greydata\menuclr.dbf")
if db_f=.f.
DO db_MESS
ENDIF
RETURN
Gr_card.prg
flush_evq()
tone(300,10)
say_fmt(alltrim("|(150,445)CF2 KF15 KB0 A SP0 DR|(c) Semantix Computers J.V.RAVICHANDRAN June 1995."))
pat_setfil(1)
fbox(300,300,610,400,15)
fbox(301,301,609,321,0)
pat_setfil(3)
fbox(301,322,305,399,0)
fbox(301,395,609,399,0)
fbox(605,322,609,399,0)
say_fmt(ALLTRIM("|(425,316)CF2 KF15 KB0 A SP0 DR|GREYcells"))
say_fmt(ALLTRIM("|(310,335)CF2 KF0 KB15 A SP0 DR|Graphic Card missing."))
pat_setfil(1)
fbox(310,338,435,341,0)
say_fmt(ALLTRIM("|(310,365)CF2 KF0 KB15 A SP0 DR|Graphic card missing. Please contact"))
say_fmt(ALLTRIM("|(310,385)CF2 KF0 KB15 A SP0 DR|the developer immediately."))
say_fmt(ALLTRIM("|(308,309)CF2 KF15 KB0 A SP0 DR R1|0"))
KEY_PRESS()
FT='N'
key_press()
vm_quit()
quit
Gr_help.prg
mn='y'
ctr++
pat_setfil(1)
fbox(150,55,600,400,15)
fbox(150,55,600,75,0)
pat_setfil(3)
fbox(150,75,155,400,0)
fbox(150,395,600,400,0)
fbox(595,75,600,400,0)
say_fmt(ALLTRIM("|(360,68)CF4 KF15 KB0 A SP0 DR|Help"))
Say_fmt(ALLTRIM("|(160,62)CF8 KF15 KB0 A SP0 DR R1|0"))
font_new(nfont3)
get_getclr(0,15,0,15,0,15)
get_say(95,165,"Printing graphs")
font_new(nfont1)
get_say(125,160,"Select the 'C File' option. Select the Print option. The layout (Landscape")
get_say(145,160,"or Portrait) can be selected from the 'G Layout' option of the main menu. The")
get_say(165,160,"default is landscape. Select the printer from the 'D setup' option of the main")
get_say(185,160,"menu.")
get_say(375,175,"Next screen...Press Page Down key")
return
Graf_prt.prg
DECLARE nshade[8]
DECLARE PRT_ARRAY[16]
*
font_new(nfont1)
get_getclr(nbotbartxtclr,nbotbarclr,nbotbartxtclr,nbotbarclr,nbotbartxtclr,nbotbarclr)
get_say(329,420,"File")
get_getclr(nbotscrtxtclr,nbotscrclr,nbotscrtxtclr,nbotscrclr,nbotscrtxtclr,nbotscrclr)
get_say(375,265,"Filename -")
DECLARE aFiles[ADIR("*.GRF")]
ADIR("*.GRF",aFiles)
p_ans=MENU_ONLY( aFiles, 50, 10, 4, 2, 10 )
if kp_scan()=27
p_ans=0
endif
if p_ans=0
pr='n'
return
endif
fil_name=aFiles[p_ans]
get_say(375,375,fil_name)
fil_name=get_get(375,375,fil_name)
Pat_setfil(1)
fbox(250,325,612,430,15)
fbox(250,325,612,340,0)
Say_fmt(ALLTRIM("|(255,330)CF8 KF15 KB0 A SP0 DR R1|0"))
fline(250,325,250,430,0)
fline(250,325,612,325,0)
fline(612,325,612,430,0)
fline(250,430,612,430,0)
nstatus=PRT_CHECK(cport)
IF nstatus=0
font_new(nfont1)
get_getclr(0,15,0,15,0,15)
get_say(375,350, "Printer Off Line")
get_say(390,350, "Press any key to continue...")
key_press()
pr='n'
mn='n'
pr_go='n'
return
else
if nstatus=1
pr_go='y'
endif
ENDIF
IF M_printer = 0
font_new(nfont1)
get_getclr(0,15,0,15,0,15)
get_say(375,350, "Please select printer.")
get_say(390,350, "Press any key to continue...")
key_press()
mn='n'
return
ENDIF
*
if M_printer>0 .and. (M_printer<16 .OR. M_printer>19)
use greydata\tempdata
go top
LOCATE FOR upper(fil_name)=alltrim(fy_name)
gt=alltrim(g_title)
gf=rtrim(g_font)
threed=ltrim(str(three_d))
xax=x_title
yax=y_title
xtt=val(num_of_xax)
leg_area=lege_are
leg=num_of_leg
if leg_area=1
set_area(0,10,100,100)
col=8
rol=40
or=0
rt=0
ty=2
else
if leg_area=2
set_area(0,0,100,85)
col=1
rol=470
or=0
rt=0
ty=2
else
if leg_area=3
set_area(0,0,75,100)
col=500
rol=150
or=1
rt=0
ty=2
endif
endif
endif
typ=g_type
gr_type=graf_type
lg=leg_tit1
lg1=leg_tit2
lg2=leg_tit3
lg3=leg_tit4
lg4=leg_tit5
xaxt=xax_tit
xaxt1=xax_tit1
xaxt2=xax_tit2
xaxt3=xax_tit3
xaxt4=xax_tit4
xaxt5=xax_tit5
xaxt6=xax_tit6
xaxt7=xax_tit7
xaxt8=xax_tit8
xaxt9=xax_tit9
*
xd=x_data
xd1=x_data1
xd2=x_data2
xd3=x_data3
xd4=x_data4
yd=y_data
yd1=y_data1
yd2=y_data2
yd3=y_data3
yd4=y_data4
zd=z_data
zd1=z_data1
zd2=z_data2
zd3=z_data3
zd4=z_data4
qd=w_data
qd1=w_data1
qd2=w_data2
qd3=w_data3
qd4=w_data4
wd=r_data
wd1=r_data1
wd2=r_data2
wd3=r_data3
wd4=r_data4
*
xd5=x_data5
xd6=x_data6
xd7=x_data7
xd8=x_data8
xd9=x_data9
yd5=y_data5
yd6=y_data6
yd7=y_data7
yd8=y_data8
yd9=y_data9
zd5=z_data5
zd6=z_data6
zd7=z_data7
zd8=z_data8
zd9=z_data9
qd5=w_data5
qd6=w_data6
qd7=w_data7
qd8=w_data8
qd9=w_data9
wd5=r_data5
wd6=r_data6
wd7=r_data7
wd8=r_data8
wd9=r_data9
*
colr1=graf_clr1
colr2=graf_clr2
colr3=graf_clr3
colr4=graf_clr4
colr5=graf_clr5
colr6=graf_clr6
colr7=graf_clr7
if gr_type='BAR '
typ=3
else
if gr_type='PIE '
pi='y'
chexk='y'
else
if gr_type='LINE '
typ=1
else
if gr_type='STACKED'
typ=4
ELSE
IF gr_type='SPLINE '
typ=2
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
if num_of_leg=1
xs='y '
else
if num_of_leg=2
xs='yy '
else
if num_of_leg=3
xs='yyy '
else
if num_of_leg=4
xs='yyyy '
else
if num_of_leg=5
xs='yyyyy'
endif
endif
endif
endif
endif
if typ=3 .or. typ=1 .or. typ=4 .or. typ=2
pi=' '
chexk='y'
else
if gr_type='PIE '
pi='y'
chexk='y'
endif
endif
*
*
do while pr_go='y'
IF ncolor=0
do set_prt
else
IF ncolor=1
do set_prt1
else
IF ncolor=2
do set_prt2
else
IF ncolor=3
do set_prt3
else
IF ncolor=4
do set_prt4
else
IF ncolor=5
do set_prt5
else
IF ncolor=6
do set_prt6
else
IF ncolor=7
do set_prt7
else
IF ncolor=8
do set_prt8
else
IF ncolor=9
do set_prt9
else
IF ncolor=10
do set_pr10
else
IF ncolor=11
do set_pr11
else
IF ncolor=12
do set_pr12
else
IF ncolor=13
do set_pr13
else
IF ncolor=14
do set_pr14
else
IF ncolor=15
do set_pr15
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
*
SHAD_TABLE(ncolor,nshade[8])
PRT_OPTS(M_orient,M_shade,M_whiteblack,neject)
PRT_COLORS(ncolor,1)
set print on
set device to printer
do prt_graf
PRT_AREA(0,0,640,470,M_xsize,M_ysize,100,100)
font_new(nfont1)
get_getclr(0,15,0,15,0,15)
get_say(350,350,ret_prtdn())
set print off
set device to screen
pr_go='n'
enddo
*
endif
*
if M_printer>16 .or. M_printer<19
HP_SETUP(1)
HP_ROTATE(M_orient)
HP_OPEN('LJIII')
PRT_AREA(0,0,638,450,610,0,100,100)
HP_CLOSE()
LJ3_EJECT()
set print off
set device to screen
pr='n'
endif
*
return
**
Help_b.prg
pat_setfil(1)
fbox(150,50,620,425,15)
fbox(177,51,618,71,0)
fbox(152,52,176,70,8)
pat_setfil(3)
fbox(150,72,155,425,0)
fbox(150,420,620,425,0)
fbox(615,72,620,425,0)
say_fmt(ALLTRIM("|(372,67)CF8 KF15 KB0 A SP0 DR|Help"))
Say_fmt(ALLTRIM("|(156,58)CF8 KF0 KB8 A SP0 DR R1|0"))
do while mnn='y'
if ctr=0
pat_setfil(1)
fbox(156,73,614,419,15)
font_new(nfont3)
get_getclr(0,15,0,15,0,15)
get_say(95,165,"The beginning ...")
font_new(nfont1)
get_say(125,160,"The initial screen of GREYcells instograf. The top oval button is activated")
get_say(145,160,"by the 'F3' key and the left buttons with the alphabets embedded in them are")
get_say(165,160,"activated directly by the press of any alphabet displayed in the menu. The ")
get_say(185,160,"function of each menu item is elucidated on the top of the screen. After the")
get_say(205,160,"press of one of the left buttons the corresponding function will be displayed")
get_say(225,160,"in the screen. All the oval buttons throughout GREYcells instograf are")
get_say(245,160,"activated by the key. ")
get_say(400,175,"For more help...Press Page Down key. Previous screen...Page up key.")
else
if ctr=1
pat_setfil(1)
fbox(156,73,614,419,15)
******PG DN
font_new(nfont3)
get_getclr(0,15,0,15,0,15)
get_say(95,165,"Graph Data")
font_new(nfont1)
get_say(125,160,"A hardware company wishes to show the sales of the many components")
get_say(145,160,"manufactured by the company, in the past two months, in a BAR form.")
get_say(165,160,"So the X-Axis title will be the two months, the legend titles will")
get_say(185,160,"be the names of the different components and the Y_Axis title will")
get_say(205,160,"be 'IN RUPEES' or 'IN MILLIONS/CRORES' and the graph title will be ")
get_say(225,160,"the name of the company. The data will be the number of each items")
get_say(245,160,"sold. To key in data, select 'B' from the main menu, press ")
get_say(265,160,"which will display the input format. To key in the 3-D depth for")
get_say(285,160,"the graph, press which will check the box and then enter the")
get_say(305,160,"3-D depth in numbers. The 3-D depth can also be changed later while")
get_say(325,160,"viewing the graph. In case of any input mishaps, select 'REDO' from")
get_say(345,160,"the submenu and redo the entered data. For saving the entered data,")
get_say(365,160,"select the 'SAVE' option from the submenu and enter the filename.")
get_say(385,160,"Please don't forget to key in the extension '.GRF'.")
get_say(400,175,"Next screen...Press Page Down key. Previous screen...Page up key.")
ELSE
if ctr=2
*** PG DN
pat_setfil(1)
fbox(156,73,614,419,15)
font_new(nfont3)
get_getclr(0,15,0,15,0,15)
get_say(95,165,"Files")
font_new(nfont1)
get_say(125,160,"All GREYcells instograf files have an extension of '*.GRF'. There is")
get_say(145,160,"a two way saving of instograf files. One, files are stored in the")
get_say(165,160,"DOS format and two, data is stored in a database. Please type the")
get_say(185,160,"extension '.GRF' when inputting the filename. Please don't have more ")
get_say(205,160,"than three open files at a time as the system may hang due to lack of")
get_say(225,160,"adequate memory.")
get_say(400,175,"Next screen...Press Page Down key. Previous screen...Page up key.")
ELSE
if ctr=3
pat_setfil(1)
fbox(156,76,614,419,15)
font_new(nfont3)
get_getclr(0,15,0,15,0,15)
get_say(95,165,"Opening *.GRF files")
font_new(nfont1)
get_say(125,160,"All GREYcells instograf files have an extension of '*.GRF'. When")
get_say(145,160,"the key 'C' is pressed from the main menu, a drop menu will appear")
get_say(165,160,"on screen. From this menu choose the option 'Open' and at the bottom")
get_say(185,160,"right corner you will be prompted to give the filename. The menu that")
get_say(205,160,"displays the various files are for your reference so that you can look")
get_say(225,160,"up the filenames and type the correct spelling when prompted.")
get_say(245,160,"Sample files are available which can be opened, viewed and the data can be edited.")
get_say(265,160,"Names of these sample files will be displayed in the menu on selecting the 'C'")
get_say(285,160," option. You can use these files initially to get accustomed to the software.")
get_say(400,175,"Next screen...Press Page Down key. Previous screen...Page up key.")
ELSE
if ctr=4
pat_setfil(1)
fbox(156,73,614,419,15)
font_new(nfont3)
get_getclr(0,15,0,15,0,15)
get_say(95,165,"Viewing graphs")
font_new(nfont1)
get_say(125,160,"Open the file that contains the graph data that you would like to")
get_say(145,160,"view in graphical form. Then select the 'View' option from the")
get_say(165,160,"'File' menu. In case of a new file, make sure that the graph type")
get_say(185,160,"'has been selected before viewing the graph.")
get_say(400,175,"Next screen...Press Page Down key. Previous screen...Page up key.")
ELSE
if ctr=5
pat_setfil(1)
fbox(156,73,614,419,15)
font_new(nfont3)
get_getclr(0,15,0,15,0,15)
get_say(95,165,"Entering data")
font_new(nfont1)
get_say(125,160,"Select the 'A Graph' option. Select the graph type. After selecting")
get_say(145,160,"the graph type select the 'B Data' option from the main menu and start")
get_say(165,160,"entering your data. To edit existing data open the file then select the")
get_say(185,160,"'B Data' option from the main menu and start editing the data. To select")
get_say(205,160,"the 3-D option press 'F4' key which will display a cross box to indicate")
get_say(225,160,"the 3-D option. Then give the required 3-D depth. 0 is no 3-D and any")
get_say(245,160,"value above will be 3-D.")
get_say(400,175,"Next screen...Press Page Down key. Previous screen...Page up key.")
ELSE
if ctr=6
pat_setfil(1)
fbox(156,73,614,419,15)
font_new(nfont3)
get_getclr(0,15,0,15,0,15)
get_say(95,165,"Using the music keys")
font_new(nfont1)
get_say(125,160,"Select the 'E Options' option. Select the musickeys option. Press the 'F1'")
get_say(145,160,"key to modify the pitch and duration of sound. You can either format the")
get_say(165,160,"music keys and play the keys or you can simply compose a tune and play it")
get_say(185,160,"by selecting the 'Play' option from the 'F1' menu. To get back to instograf")
get_say(205,160,"press 'F1' select the 'Close' option. The default values have been tuned to")
get_say(225,160,"resemble the eight basic notes of carnatic music.")
get_say(245,160,"To play a tune, enter 'NEW' or 'SEASONS' when prompted for tune name.")
get_say(400,175,"Next screen...Press Page Down key. Previous screen...Page up key.")
ELSE
if ctr=7
pat_setfil(1)
fbox(156,73,614,419,15)
font_new(nfont3)
get_getclr(0,15,0,15,0,15)
get_say(95,165,"Graph colour attributes")
font_new(nfont1)
get_say(125,160,"Select the 'F Colours' option from the main menu. Select the 'Graph colors'")
get_say(145,160,"option from the main menu to change the graph colours and the 'Column ")
get_say(165,160,"colors' option to change the legend colours. Default is as a graph would ")
get_say(185,160,"appear on a monochrome screen.")
get_say(400,175,"Next screen...Press Page Down key. Previous screen...Page up key.")
ELSE
if ctr=8
pat_setfil(1)
fbox(156,73,614,419,15)
font_new(nfont3)
get_getclr(0,15,0,15,0,15)
get_say(95,165,"Printing graphs")
font_new(nfont1)
get_say(125,160,"Select the 'C File' option. Select the Print option. The layout (Landscape")
get_say(145,160,"or Portrait) can be selected from the 'G Layout' option of the main menu. The")
get_say(165,160,"default is landscape. Select the printer from the 'D setup' option of the main")
get_say(185,160,"menu.")
get_say(400,175,"Next screen...Press Page Down key. Previous screen...Page up key.")
else
if ctr=9
pat_setfil(1)
fbox(156,73,614,419,15)
font_new(nfont3)
get_getclr(0,15,0,15,0,15)
get_say(95,165,"Screen Savers")
font_new(nfont1)
get_say(125,160,"Screen savers in GREYcells instograf, as of now, do not have a password option.")
get_say(145,160,"They are activated when the system is in idle state for more than 1 minute and")
get_say(165,160,"can be deactivated by the press of any key.")
get_say(400,175,"End of help... Press 'F3' key. Previous screen...Page up key.")
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
IJK='Y'
DO WHILE IJK='Y'
key_press()
do case
case KP_SCAN()=81 && PG DN
IJK='N'
if ctr<9
ctr++
ELSE
IF ctr>9
ctr=9
IJK='Y'
ELSE
IF ctr=9
ctr=9
IJK='Y'
ENDIF
ENDIF
endif
CASE KP_SCAN()=73 && PG UP
IJK='N'
if ctr>0
ctr--
ELSE
IF ctr<0
ctr=0
IJK='Y'
ELSE
IF ctr=0
ctr=0
IJK='Y'
ENDIF
ENDIF
endif
case kp_scan()=61
IJK='N'
*********** key F3
t_ans=MENU_ONLY(drop_menu9)
if t_ans>=0
pat_setfil(1)
fbox(177,51,618,71,0)
fbox(152,52,176,70,8)
say_fmt(ALLTRIM("|(372,67)CF8 KF15 KB0 A SP0 DR|Help"))
Say_fmt(ALLTRIM("|(156,58)CF8 KF0 KB8 A SP0 DR R1|0"))
endif
if t_ans=1
mnn='n'
TEXT
if minimize='y'
if mpicok='y'
sele 3
use greydata\pichandl
locate for alltrim(upper(cfil))=alltrim(upper(filname))
nPIChandl=pichand
fpic_put(25,385,nindex,nPIChandl)
min='y'
else
if mpicok='n'
do drawlogo
min='y'
endif
endif
else
if minimize='n'
min='n'
* cls_screen()
* pic_put(0,0,1)
* mn='n'
* nmn='y'
endif
endif
ENDTEXT
else
if t_ans=2
mnn='y'
ctr=0
endif
endif
OTHERWISE
IJK='Y'
ENDCASE
ENDDO
ENDDO
RETURN
Incolor.prg
get_getclr(incolor,nscreenclr1,incolor,nscreenclr1,incolor,nscreenclr1)
font_new(nfont1)
get_say(440,250,"Designed & developed by J.V.Ravichandran.")
get_say(40,4," A) Graph B) Data C) File D) Setup E) Options F) Colors G) Layout H) Exit")
incolor++
if incolor>15
incolor=0
endif
return
sele 1
use greydata\color
if coloron='n'
locate for status="DEFAULT"
ntitleclr=TITLECLR
ntitletxt=titletxt
ninitclr=initclr
ninittxt=inittxt
nfgtxtclr=fgtxtclr
nscreenclr1=screenclr
nbarclr=barclr
nbartxtclr=bartxtclr
else
if coloron='y'
LOCATE FOR status="UPDATED"
ntitleclr=TITLECLR
ntitletxt=titletxt
ninitclr=initclr
ninittxt=inittxt
nfgtxtclr=fgtxtclr
nscreenclr1=screenclr
nbarclr=barclr
nbartxtclr=bartxtclr
endif
endif
USE
sele 2
use greydata\menuclr
if menuclron='n'
locate for status="DEFAULT"
mboxclr=boxclr
mselbg=selbg
mselfg=selfg
mnonselbg=nonselbg
mnonselfg=nonselfg
mn3don=n3don
mnbodrtyp=nbodrtyp && border off
mnbodrclr=nbodrclr
mnbodrthk=nbodrthk
mshadtyp=shadtyp && shadow off
mshadclr=shadclr
mshadthk=shadthk
mn3dfg=n3dfg
mn3dbg=n3dbg
mselfgclr=selfgclr
mselbgclr=selbgclr
else
if menuclron='y'
LOCATE FOR status="UPDATED"
mboxclr=boxclr
mselbg=selbg
mselfg=selfg
mnonselbg=nonselbg
mnonselfg=nonselfg
mn3don=n3don
mnbodrtyp=nbodrtyp && border off
mnbodrclr=nbodrclr
mnbodrthk=nbodrthk
mshadtyp=shadtyp && shadow off
mshadclr=shadclr
mshadthk=shadthk
mn3dfg=n3dfg
mn3dbg=n3dbg
mselfgclr=selfgclr
mselbgclr=selbgclr
endif
endif
use
return
clr_ctr++
do while clr_ctr<5 .and. M_event#2
if clr_ctr=1
clr=7
clr1=15
clr2=7
clr3=15
clr4=7
clr5=0
fpset(375,250,clr)
fpset(360,275,clr1)
fpset(230,240,clr2)
fpset(215,275,clr3)
pat_setfil(1)
fcircle(350,200,1,clr4)
fcircle(375,225,1,clr5)
clr_ctr++
INKEY(5)
else
if clr_ctr=2
clr=15
clr1=7
clr2=15
clr3=7
clr4=15
clr5=7
fpset(375,250,clr)
fpset(360,275,clr1)
fpset(230,240,clr2)
fpset(215,275,clr3)
pat_setfil(1)
fcircle(350,200,1,clr4)
fcircle(375,225,1,clr5)
clr_ctr++
INKEY(5)
else
if clr_ctr=3
clr=15
clr1=7
clr2=15
clr3=7
clr4=15
clr5=7
fpset(375,250,clr)
fcircle(360,275,2,clr1)
fpset(230,240,clr2)
fpset(215,275,clr3)
pat_setfil(1)
fcircle(350,200,1,clr4)
fcircle(375,225,1,clr5)
INKEY(5)
clr_ctr++
else
if clr_ctr=4
clr=15
clr1=15
clr2=15
clr3=7
clr4=15
clr5=7
fpset(375,250,clr)
fcircle(360,275,2,clr1)
fpset(230,240,clr2)
fpset(215,275,clr3)
pat_setfil(1)
fcircle(350,200,1,clr4)
fcircle(375,225,1,clr5)
inkey(5)
endif
endif
endif
endif
INKEY(5)
clr_ctr++
enddo
return
Part-III