home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1990 / 02 / batsong.bat < prev    next >
DOS Batch File  |  1989-10-30  |  2KB  |  59 lines
  1. @ECHO OFF
  2. SET b=BATCHMAN
  3. REM Set the following line to "%b% CLS 40h" for a red background
  4. %b% CLS 10h
  5. %b% CURSORTYPE 32,0
  6. REM -------- Make a lovely border
  7. %b% WINDOW 1,1,80,8,0Ch,=
  8. %b% WINDOW 2,4,74,6,4Fh,=
  9. %b% WINDOW 2,2,2,6,4Fh,-
  10. %b% WINDOW 2,78,2,6,4Fh,-
  11. %b% WINDOW 3,5,72,4,0Fh
  12. REM ---------- Play the BATCHMAN Theme Song
  13. %b% SETCURSOR 3,6
  14. %b% CECHO C 0Fh,DaDa DaDa DaDa DaDa DaDa DaDa DaDa DaDa
  15. %b% BEEP 659,2;659,2;622,2;622,2;587,2;587,2;622,2;622,1
  16. %b% BEEP 659,2;659,2;622,2;622,2;587,2;587,2;622,2;622,1
  17. %b% CECHO 8Eh,{B * A * T * C * H * M * A * N}
  18. %b% BEEP 988,5;988,15
  19. %b% SETCURSOR 4,6
  20. %b% CECHO C 0Fh,DaDa DaDa DaDa DaDa DaDa DaDa DaDa DaDa
  21. %b% BEEP 880,2;880,2;831,2;831,2;784,2;784,2;831,2;831,1
  22. %b% BEEP 880,2;880,2;831,2;831,2;784,2;784,2;831,2;831,1
  23. %b% CECHO 8Eh,{B * A * T * C * H * M * A * N}
  24. %b% BEEP 1319,5;1319,15
  25. %b% SETCURSOR 5,6
  26. %b% CECHO C 0Fh,DaDa DaDa DaDa DaDa DaDa DaDa DaDa DaDa
  27. %b% BEEP 659,2;659,2;622,2;622,2;587,2;587,2;622,2;622,1
  28. %b% BEEP 659,2;659,2;622,2;622,2;587,2;587,2;622,2;622,1
  29. %b% CECHO 8Eh,{B * A * T * C * H * M * A * N}
  30. %b% BEEP 988,5;988,15
  31. %b% SETCURSOR 6,6
  32. %b% CECHO C 0Fh,DaDa DaDa DaDa DaDa DaDa DaDa DaDa DaDa
  33. %b% BEEP 988,2;988,2;1047,2;1047,2;1109,2;1109,2;1047,2;1047,1
  34. %b% BEEP 988,2;988,2;1047,2;1047,2;1109,2;1109,2;1245,2;1245,1
  35. %b% CECHO 8Eh,{B * A * T * C * H * M * A * N}
  36. %b% BEEP 1319,5;1319,20
  37. REM ---------- Create a moving "POW!" box
  38. %b% SETLOOP 7
  39. SET op=8
  40. SET pl=7
  41. :loop
  42.   FOR %%v IN (1 2 3 4 5 6 7) DO IF ERRORLEVEL %%v SET pl=%%v
  43.   %b% WINDOW 1%pl%,%pl%0,6,3,17h,-
  44.   %b% SETCURSOR 1%op%,%pl%1
  45.   %b% CECHO C 17h,POW!
  46.   %b% BEEP 120,1;115,1;120,1;115,1
  47.   %b% WINDOW 1%pl%,%pl%0,6,3,40h
  48.   SET op=%pl%
  49.   %b% DECLOOP
  50. IF ERRORLEVEL 1 GOTO loop
  51. FOR %%v IN (pl op) DO SET %%v=
  52. %b% WINDOW 1,1,80,8,1Eh,=
  53. %b% WINDOW 2,3,76,6,0Eh
  54. %b% SETCURSOR 4,20
  55. %b% CECHO C 8EH,* * * B * A * T * C * H * M * A * N * * *
  56. %b% SETCURSOR 9,1
  57. %b% CURSORTYPE
  58. SET b=
  59.