World of Shareware - Software Farm 2/wosw_2.zip/wosw_2/DATABASE/DBAT110.ZIP/MAXCOL1.BAT

DOS Batch File | 1992-01-10 | 7KB | 357 lines

@echo off
DBAT %0
goto enddbat

PROC dBAT
SET CURSOR OFF
SET COLOR TO 7
CLEAR
@ 00,01 TO 21,78 DOUBLE
@ 02,02 TO 02,77
@ 02,01 SAY "╟"
@ 02,78 SAY "╢"
@ 19,02 TO 19,77
@ 19,01 SAY "╟"
@ 19,78 SAY "╢"
@ 02,05 SAY "┬"
@ 03,05 TO 18,05
@ 19,05 SAY "┴"
SET COLOR TO 15
@ 01,06 SAY "     0  "
@ 03,02 SAY " 0"
@ 20,06 SAY " BLACK  "
SET COLOR TO 31
@ 01,15 SAY "     1  "
@ 04,02 SAY " 1 "
@ 20,15 SAY " BLUE   "
SET COLOR TO 47
@ 01,24 SAY "     2  "
@ 05,02 SAY " 2 "
@ 20,24 SAY " GREEN  "
SET COLOR TO 63
@ 01,33 SAY "     3  "
@ 06,02 SAY " 3 "
@ 20,33 SAY " CYAN   "
SET COLOR TO 79
@ 01,42 SAY "     4  "
@ 07,02 SAY " 4 "
@ 20,42 SAY " RED    "
SET COLOR TO 95
@ 01,51 SAY "     5  "
@ 08,02 SAY " 5 "
@ 20,51 SAY " MAGENTA"
SET COLOR TO 111
@ 01,60 SAY "     6  "
@ 09,02 SAY " 6 "
@ 20,60 SAY " BROWN  "
SET COLOR TO 127
@ 01,69 SAY "     7  "
@ 10,02 SAY " 7 "
@ 20,69 SAY " WHITE  "

SET COLOR TO 00
@ 03,06 SAY " 000 00 "
SET COLOR TO 16
@ 03,15 SAY " 016 10 "
SET COLOR TO 32
@ 03,24 SAY " 032 20 "
SET COLOR TO 48
@ 03,33 SAY " 048 30 "
SET COLOR TO 64
@ 03,42 SAY " 064 40 "
SET COLOR TO 80
@ 03,51 SAY " 080 50 "
SET COLOR TO 96
@ 03,60 SAY " 096 60 "
SET COLOR TO 112
@ 03,69 SAY " 112 70 "

SET COLOR TO 01
@ 04,06 SAY " 001 01 "
SET COLOR TO 17
@ 04,15 SAY " 017 11 "
SET COLOR TO 33
@ 04,24 SAY " 033 21 "
SET COLOR TO 49
@ 04,33 SAY " 049 31 "
SET COLOR TO 65
@ 04,42 SAY " 065 41 "
SET COLOR TO 81
@ 04,51 SAY " 081 51 "
SET COLOR TO 97
@ 04,60 SAY " 097 61 "
SET COLOR TO 113
@ 04,69 SAY " 113 71 "

SET COLOR TO 02
@ 05,06 SAY " 002 02 "
SET COLOR TO 18
@ 05,15 SAY " 018 12 "
SET COLOR TO 34
@ 05,24 SAY " 034 22 "
SET COLOR TO 50
@ 05,33 SAY " 050 32 "
SET COLOR TO 66
@ 05,42 SAY " 066 42 "
SET COLOR TO 82
@ 05,51 SAY " 082 52 "
SET COLOR TO 98
@ 05,60 SAY " 098 62 "
SET COLOR TO 114
@ 05,69 SAY " 114 72 "

SET COLOR TO 03
@ 06,06 SAY " 003 03 "
SET COLOR TO 19
@ 06,15 SAY " 019 13 "
SET COLOR TO 35
@ 06,24 SAY " 035 23 "
SET COLOR TO 51
@ 06,33 SAY " 051 33 "
SET COLOR TO 67
@ 06,42 SAY " 067 43 "
SET COLOR TO 83
@ 06,51 SAY " 083 53 "
SET COLOR TO 99
@ 06,60 SAY " 099 63 "
SET COLOR TO 115
@ 06,69 SAY " 115 73 "

SET COLOR TO 04
@ 07,06 SAY " 004 04 "
SET COLOR TO 20
@ 07,15 SAY " 020 14 "
SET COLOR TO 36
@ 07,24 SAY " 036 24 "
SET COLOR TO 52
@ 07,33 SAY " 052 34 "
SET COLOR TO 68
@ 07,42 SAY " 068 44 "
SET COLOR TO 84
@ 07,51 SAY " 084 54 "
SET COLOR TO 100
@ 07,60 SAY " 100 64 "
SET COLOR TO 116
@ 07,69 SAY " 116 74 "

SET COLOR TO 05
@ 08,06 SAY " 005 05 "
SET COLOR TO 21
@ 08,15 SAY " 021 15 "
SET COLOR TO 37
@ 08,24 SAY " 037 25 "
SET COLOR TO 53
@ 08,33 SAY " 053 35 "
SET COLOR TO 69
@ 08,42 SAY " 069 45 "
SET COLOR TO 85
@ 08,51 SAY " 085 55 "
SET COLOR TO 101
@ 08,60 SAY " 101 65 "
SET COLOR TO 117
@ 08,69 SAY " 117 75 "

SET COLOR TO 06
@ 09,06 SAY " 006 06 "
SET COLOR TO 22
@ 09,15 SAY " 022 16 "
SET COLOR TO 38
@ 09,24 SAY " 038 26 "
SET COLOR TO 54
@ 09,33 SAY " 054 36 "
SET COLOR TO 70
@ 09,42 SAY " 070 46 "
SET COLOR TO 86
@ 09,51 SAY " 086 56 "
SET COLOR TO 102
@ 09,60 SAY " 102 66 "
SET COLOR TO 118
@ 09,69 SAY " 118 76 "

SET COLOR TO 07
@ 10,06 SAY " 007 07 "
SET COLOR TO 23
@ 10,15 SAY " 023 17 "
SET COLOR TO 39
@ 10,24 SAY " 039 27 "
SET COLOR TO 55
@ 10,33 SAY " 055 37 "
SET COLOR TO 71
@ 10,42 SAY " 071 47 "
SET COLOR TO 87
@ 10,51 SAY " 087 57 "
SET COLOR TO 103
@ 10,60 SAY " 103 67 "
SET COLOR TO 119
@ 10,69 SAY " 119 77 "

SET COLOR TO 8
@ 11,02 SAY "█ █"
SET COLOR TO 9
@ 12,02 SAY "█ █"
SET COLOR TO 10
@ 13,02 SAY "█ █"
SET COLOR TO 11
@ 14,02 SAY "█ █"
SET COLOR TO 12
@ 15,02 SAY "█ █"
SET COLOR TO 13
@ 16,02 SAY "█ █"
SET COLOR TO 14
@ 17,02 SAY "█ █"
SET COLOR TO 15
@ 18,02 SAY "█ █"

SET COLOR TO 15
@ 11,03 SAY "8"
@ 12,03 SAY "9"
@ 13,03 SAY "A"
@ 14,03 SAY "B"
@ 15,03 SAY "C"
@ 16,03 SAY "D"
@ 17,03 SAY "E"
@ 18,03 SAY "F"

SET COLOR TO 08
@ 11,06 SAY " 008 08 "
SET COLOR TO 24
@ 11,15 SAY " 024 18 "
SET COLOR TO 40
@ 11,24 SAY " 040 28 "
SET COLOR TO 56
@ 11,33 SAY " 056 38 "
SET COLOR TO 72
@ 11,42 SAY " 072 48 "
SET COLOR TO 88
@ 11,51 SAY " 088 58 "
SET COLOR TO 104
@ 11,60 SAY " 104 68 "
SET COLOR TO 120
@ 11,69 SAY " 120 78 "

SET COLOR TO 09
@ 12,06 SAY " 009 09 "
SET COLOR TO 25
@ 12,15 SAY " 025 19 "
SET COLOR TO 41
@ 12,24 SAY " 041 29 "
SET COLOR TO 57
@ 12,33 SAY " 057 39 "
SET COLOR TO 73
@ 12,42 SAY " 073 49 "
SET COLOR TO 89
@ 12,51 SAY " 089 59 "
SET COLOR TO 105
@ 12,60 SAY " 105 69 "
SET COLOR TO 121
@ 12,69 SAY " 121 79 "

SET COLOR TO 10
@ 13,06 SAY " 010 0A "
SET COLOR TO 26
@ 13,15 SAY " 026 1A "
SET COLOR TO 42
@ 13,24 SAY " 042 2A "
SET COLOR TO 58
@ 13,33 SAY " 058 3A "
SET COLOR TO 74
@ 13,42 SAY " 074 4A "
SET COLOR TO 90
@ 13,51 SAY " 090 5A "
SET COLOR TO 106
@ 13,60 SAY " 106 6A "
SET COLOR TO 122
@ 13,69 SAY " 122 7A "

SET COLOR TO 11
@ 14,06 SAY " 011 0B "
SET COLOR TO 27
@ 14,15 SAY " 027 1B "
SET COLOR TO 43
@ 14,24 SAY " 043 2B "
SET COLOR TO 59
@ 14,33 SAY " 059 3B "
SET COLOR TO 75
@ 14,42 SAY " 075 4B "
SET COLOR TO 91
@ 14,51 SAY " 091 5B "
SET COLOR TO 107
@ 14,60 SAY " 107 6B "
SET COLOR TO 123
@ 14,69 SAY " 123 7B "

SET COLOR TO 12
@ 15,06 SAY " 012 0C "
SET COLOR TO 28
@ 15,15 SAY " 028 1C "
SET COLOR TO 44
@ 15,24 SAY " 044 2C "
SET COLOR TO 60
@ 15,33 SAY " 060 3C "
SET COLOR TO 76
@ 15,42 SAY " 076 4C "
SET COLOR TO 92
@ 15,51 SAY " 092 5C "
SET COLOR TO 108
@ 15,60 SAY " 108 6C "
SET COLOR TO 124
@ 15,69 SAY " 124 7C "

SET COLOR TO 13
@ 16,06 SAY " 013 0D "
SET COLOR TO 29
@ 16,15 SAY " 029 1D "
SET COLOR TO 45
@ 16,24 SAY " 045 2D "
SET COLOR TO 61
@ 16,33 SAY " 061 3D "
SET COLOR TO 77
@ 16,42 SAY " 077 4D "
SET COLOR TO 93
@ 16,51 SAY " 093 5D "
SET COLOR TO 109
@ 16,60 SAY " 109 6D "
SET COLOR TO 125
@ 16,69 SAY " 125 7D "

SET COLOR TO 14
@ 17,06 SAY " 014 0E "
SET COLOR TO 30
@ 17,15 SAY " 030 1E "
SET COLOR TO 46
@ 17,24 SAY " 046 2E "
SET COLOR TO 62
@ 17,33 SAY " 062 3E "
SET COLOR TO 78
@ 17,42 SAY " 078 4E "
SET COLOR TO 94
@ 17,51 SAY " 094 5E "
SET COLOR TO 110
@ 17,60 SAY " 110 6E "
SET COLOR TO 126
@ 17,69 SAY " 126 7E "

SET COLOR TO 15
@ 18,06 SAY " 015 0F "
SET COLOR TO 31
@ 18,15 SAY " 031 1F "
SET COLOR TO 47
@ 18,24 SAY " 047 2F "
SET COLOR TO 63
@ 18,33 SAY " 063 3F "
SET COLOR TO 79
@ 18,42 SAY " 079 4F "
SET COLOR TO 95
@ 18,51 SAY " 095 5F "
SET COLOR TO 111
@ 18,60 SAY " 111 6F "
SET COLOR TO 127
@ 18,69 SAY " 127 7F "

@ 22,00
SET COLOR TO
SET CURSOR ON
QUIT

:ENDdBAT