home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / UTILITY / BATCH / BCSRCE2.ZIP / FLASH.BC < prev    next >
Encoding:
Text File  |  1990-10-18  |  1.1 KB  |  74 lines
  1. ansi
  2. let %!w = %1
  3. if %!w0 = 0 let %!w = 1
  4. let %!t = %!w
  5. LT %!t 1
  6. if not errorlevel 0 let %!w = 1
  7. save_screen
  8. cls
  9. let %!a = 0
  10. do_while %!a = 0
  11.   gosub MIDLO
  12.   box 11 32 13 48
  13.   gosub TESTER
  14.   gosub MIDHI
  15.   box 10 30 14 50
  16.   gosub TESTER
  17.   gosub MIDLO
  18.   box 9 28 15 52
  19.   gosub TESTER
  20.   gosub MIDHI
  21.   box 8 26 16 54
  22.   gosub TESTER
  23.   gosub MIDLO
  24.   box 7 24 17 56
  25.   gosub TESTER
  26.   gosub MIDHI
  27.   box 6 22 18 58
  28.   gosub TESTER
  29.   gosub MIDLO
  30.   box 5 20 19 60
  31.   gosub TESTER
  32.   wait %!w
  33.   cls
  34.   gosub MIDLO
  35.   double_box 5 20 19 60
  36.   gosub TESTER
  37.   gosub MIDHI
  38.   double_box 6 22 18 58
  39.   gosub TESTER
  40.   gosub MIDLO
  41.   double_box 7 24 17 56
  42.   gosub TESTER
  43.   gosub MIDHI
  44.   double_box 8 26 16 54
  45.   gosub TESTER
  46.   gosub MIDLO
  47.   double_box 9 28 15 52
  48.   gosub TESTER
  49.   gosub MIDHI
  50.   double_box 10 30 14 50
  51.   gosub TESTER
  52.   gosub MIDLO
  53.   double_box 11 32 13 48
  54.   gosub TESTER
  55.   wait %!w
  56.   cls
  57. end_while
  58. :TESTER
  59. keypressed
  60. error_level %!a
  61. if not %!a = 0 goto END
  62. RETURN
  63. :MIDHI
  64. locate 12 34
  65. echonolf Press any key
  66. RETURN
  67. :MIDLO
  68. locate 12 34
  69. echonolf Press any key
  70. RETURN
  71. :END
  72. restore_screen
  73. exit
  74.