home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / PROGRAM / BASIC / POWBASIC / LIBRARY3 / NATINST.BAS < prev    next >
BASIC Source File  |  1993-12-01  |  2KB  |  70 lines
  1. 'Program Name    : NatInst.bas - graphics screen simulation
  2. 'Author          : Lloyd L. Smith for Spectra Technical Support
  3. 'Date            : 11-12-90
  4. 'Compuserve #    : GO PCVENB, Vendor #12/Spectra,  Tech Support ID 71530,2640
  5. 'Tech Support BBS: 813-625-1721, PC-Board, 8,N,1 USR HST 300 - 14.4, 24hrs
  6. 'Tech Support Fax: 813-625-1698  G2 & G3 compatible
  7. 'Tech Support Voc: 813-625-1172  Voice
  8. 'Concept Date    :
  9. 'Example Screens : Windows feel screens can be achieved through simple
  10. '                : programming.  Advanced examples - few comments.
  11.  
  12. screen 9,,0,0
  13. line(0,0)-(639,349),15,bf
  14.  
  15. color 1,63
  16. locate 1,5:print"File";
  17. locate 1,12:print"Edit";
  18. locate 1,19:print"Operate";
  19. locate 1,29:print"Controls";
  20. locate 1,40:print"Functions";
  21. locate 1,52:print"Windows";
  22. locate 1,62:print"PowerTools";
  23.  
  24. for i=0 to 17 step 2:line(0,13+i)-(639,13+i),8:next i
  25. locate 2,35:print" Power Panel ";
  26.  
  27.  
  28.  
  29. line(5,50)-(625,348),4,bf
  30.  
  31. line(10,55)-(210,150),7,bf:line(215,55)-(415,150),3,bf:line(420,55)-(620,150),7,bf
  32. line(10,153)-(210,248),3,bf:line(215,153)-(415,248),7,bf:line(420,153)-(620,248),3,bf
  33. line(10,251)-(210,346),7,bf :line(215,251)-(415,346),3,bf:line(420,251)-(620,346),7,bf
  34. locate 5,8:print " Oscilloscope ";
  35. locate 5,36:print " Graph ";
  36. locate 5,61:print" Filter ";
  37. locate 12,10:print " Spectrum ";
  38. locate 12,36:print " Chart ";
  39. locate 12,61:print" History ";
  40. locate 19,6:print " Magnetic Anaylzer ";
  41. locate 19,33:print " User Defined ";
  42. locate 19,59:print " User Defined ";
  43.  
  44. 'Bottom Right corner of screen
  45. line(460,267)-(600,335),1,bf
  46. locate 20,54:print "5.00";
  47. locate 22,54:print "2.50";
  48. locate 24,54:print "0.00";
  49.  
  50. 'Vert Line Right Hand of Screen
  51. line(628,50)-(637,348),9,bf
  52.  
  53.  
  54. 'Das Affel
  55. n=4
  56. line (13,2)-(15,0),2:line (14,2)-(16,0),2
  57. line (11-n,3)-(14+n,3),2
  58. line(10-n,4)-(15+n,4),2
  59. line (9-n,5)-(16+n,5),2
  60. line(9-n,6)-(16+n,6),14
  61. line(10-n,7)-(15+n,7),14
  62. line(11-n,8)-(14+n,8),12
  63. line(11-n,9)-(14+n,9),12
  64. line (12-n,10)- (11,10),1:line(14,10)-(14+n-1,10),1
  65.  
  66.  
  67. idle:
  68. k$=inkey$:if k$=chr$(27) then system
  69. goto idle
  70.