home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library2 / flash.bas < prev    next >
BASIC Source File  |  1990-09-22  |  833b  |  24 lines
  1. 'Program Name    : Flash.bas Demo program loads Flash Code .scr screens
  2. 'Author          : Spectra Publishing - Tech Support  Lloyd L. Smith
  3. 'Date            : 09-23-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.  
  9. screen 0,,0,0
  10. def seg=&hb800:bload "voltmtr.scr",0:def seg
  11. def seg=&hb800:bload "fkeys.scr",4096*1:def seg
  12. def seg=&hb800:bload "plcbar1.scr",4096*2:def seg
  13. def seg=&hb800:bload "calendr1.scr",4096*3:def seg
  14.  
  15. NLoop:
  16. k$ = UCASE$(INKEY$): IF k$ = CHR$(27) THEN SYSTEM
  17.  
  18. if k$="1" then screen 0,,0,0
  19. if k$="2" then screen 0,,1,1
  20. if k$="3" then screen 0,,2,2
  21. if k$="4" then screen 0,,3,3
  22. GOTO NLoop
  23.  
  24.