'Program Name    : NatInst.bas - graphics screen simulation
'Author          : Lloyd L. Smith for Spectra Technical Support
'Date            : 11-12-90
'Compuserve #    : GO PCVENB, Vendor #12/Spectra,  Tech Support ID 71530,2640
'Tech Support BBS: 813-625-1721, PC-Board, 8,N,1 USR HST 300 - 14.4, 24hrs
'Tech Support Fax: 813-625-1698  G2 & G3 compatible
'Tech Support Voc: 813-625-1172  Voice
'Concept Date    :
'Example Screens : Windows feel screens can be achieved through simple
'                : programming.  Advanced examples - few comments.

screen 9,,0,0
line(0,0)-(639,349),15,bf

color 1,63
locate 1,5:print"File";
locate 1,12:print"Edit";
locate 1,19:print"Operate";
locate 1,29:print"Controls";
locate 1,40:print"Functions";
locate 1,52:print"Windows";
locate 1,62:print"PowerTools";

for i=0 to 17 step 2:line(0,13+i)-(639,13+i),8:next i
locate 2,35:print" Power Panel ";



line(5,50)-(625,348),4,bf

line(10,55)-(210,150),7,bf:line(215,55)-(415,150),3,bf:line(420,55)-(620,150),7,bf
line(10,153)-(210,248),3,bf:line(215,153)-(415,248),7,bf:line(420,153)-(620,248),3,bf
line(10,251)-(210,346),7,bf :line(215,251)-(415,346),3,bf:line(420,251)-(620,346),7,bf
locate 5,8:print " Oscilloscope ";
locate 5,36:print " Graph ";
locate 5,61:print" Filter ";
locate 12,10:print " Spectrum ";
locate 12,36:print " Chart ";
locate 12,61:print" History ";
locate 19,6:print " Magnetic Anaylzer ";
locate 19,33:print " User Defined ";
locate 19,59:print " User Defined ";

'Bottom Right corner of screen
line(460,267)-(600,335),1,bf
locate 20,54:print "5.00";
locate 22,54:print "2.50";
locate 24,54:print "0.00";

'Vert Line Right Hand of Screen
line(628,50)-(637,348),9,bf


'Das Affel
n=4
line (13,2)-(15,0),2:line (14,2)-(16,0),2
line (11-n,3)-(14+n,3),2
line(10-n,4)-(15+n,4),2
line (9-n,5)-(16+n,5),2
line(9-n,6)-(16+n,6),14
line(10-n,7)-(15+n,7),14
line(11-n,8)-(14+n,8),12
line(11-n,9)-(14+n,9),12
line (12-n,10)- (11,10),1:line(14,10)-(14+n-1,10),1


idle:
k$=inkey$:if k$=chr$(27) then system
goto idle