home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / dba / dba_13.arj / dba-13 / GOODIES / STARTGFA.LST < prev    next >
File List  |  1993-10-30  |  1KB  |  57 lines
  1. ON BREAK GOSUB exit
  2. ON ERROR GOSUB exit
  3. '
  4. init
  5. main
  6. exit
  7. PROCEDURE init
  8.   ' Don't forget to load the INLINE's!!!!!!
  9.   ' vvvvvv MUSICQU.INC
  10.   INLINE afspeel%,3000
  11.   speel%=afspeel%+6
  12.   ' vvvvvvv ITGOESON.MOD
  13.   INLINE zemusix%,3000
  14.   VOID C:speel%(L:zemusix%,W:1)   ! play some music
  15.   HIDEM                           ! kill mouse
  16.   IF XBIOS(4)=2 THEN
  17.     CLS
  18.     PRINT "Sorry this doesn't work in high resolution."
  19.     VOID INP(2)
  20.     EDIT
  21.   ENDIF
  22.   oldrez%=XBIOS(4)
  23.   VOID XBIOS(5,L:-1,L:-1,0)       ! low resolution
  24.   '
  25.   CLS
  26. RETURN
  27. PROCEDURE main
  28.   DO
  29.     vu_meter
  30.   LOOP UNTIL INKEY$<>""
  31. RETURN
  32. PROCEDURE vu_meter
  33.   COLOR 0
  34.   LINE 0,0,240,0
  35.   LINE 0,5,240,5
  36.   LINE 0,10,240,10
  37.   volume1%=XBIOS(28,0,8)
  38.   volume2%=XBIOS(28,0,9)
  39.   volume3%=XBIOS(28,0,10)
  40.   SETCOLOR 0,0
  41.   VSYNC
  42.   SETCOLOR 0,7,7,7
  43.   COLOR 1
  44.   LINE 0,0,volume1%*16,0
  45.   LINE 0,5,volume2%*16,5
  46.   LINE 0,10,volume3%*16,10
  47. RETURN
  48. PROCEDURE exit
  49.   VOID C:speel%(L:0,W:0)          ! EN ALLE GELUID UIT UIT.
  50.   CLS
  51.   VOID XBIOS(5,L:-1,L:-1,oldrez%)
  52.   VSYNC
  53.   SETCOLOR 0,7,7,7
  54.   EDIT
  55. RETURN
  56. '
  57.