1 REM CREATE (PUNCH.MAT CREATOR) CLARK BAKER 4/72 C.O.G.
2 OPEN "PUNCH.MAT" AS FILE 1%:DIM #1%,S%(95%,4%)
3 READ S%(X%,0%),S%(X%,1%),S%(X%,2%),S%(X%,3%),S%(X%,4%)
	FOR X%=0% TO 95%
4 CLOSE 1%
5 NAME "PUNCH.MAT" AS "PUNCH.MAT<40>"
32 DATA    ,   ,   ,   ,   
33 DATA    ,   ,158,   ,   
34 DATA    , 14,   , 14,   
35 DATA  40,254, 40,254, 40
36 DATA  76,146,254,146,100
37 DATA 198, 38, 16,200,198
38 DATA 112,142,186, 78,160
39 DATA    ,  8,  4,  2,   
40 DATA  56, 68,130,   ,   
41 DATA    ,   ,130, 68, 56
42 DATA  40, 16,124, 16, 40
43 DATA  16, 16,124, 16, 16
44 DATA 128, 96,   ,   ,   
45 DATA  16, 16, 16, 16, 16
46 DATA 192,192,   ,   ,   
47 DATA 192, 32, 16,  8,  6
48 DATA 124,162,146,138,124
49 DATA 128,132,254,128,128
50 DATA 196,162,162,146,140
51 DATA  66,130,146,170, 68
52 DATA  48, 40, 36,254, 32
53 DATA  78,138,138,138,114
54 DATA 120,148,146,146, 98
55 DATA   2,226, 18, 10,  6
56 DATA 108,146,146,146,108
57 DATA 140,146,146, 82, 60
58 DATA    ,198,198,   ,   
59 DATA    ,128,104,   ,   
60 DATA  16, 40, 68,130,130
61 DATA  40, 40, 40, 40, 40
62 DATA 130,130, 68, 40, 16
63 DATA   4,  2,162, 18, 12
64 DATA 124,130,186,170, 60
65 DATA 252, 18, 18, 18,252
66 DATA 254,146,146,146,108
67 DATA 124,130,130,130, 68
68 DATA 254,130,130, 68, 56
69 DATA 254,146,146,130,130
70 DATA 254, 18, 18,  2,  2
71 DATA 124,130,130,146,244
72 DATA 254, 16, 16, 16,254
73 DATA    ,130,254,130,   
74 DATA  96,128,130,126,  2
75 DATA 254, 16, 40, 68,130
76 DATA 254,128,128,128,128
77 DATA 254,  4, 24,  4,254
78 DATA 254,  8, 16, 32,254
79 DATA 124,130,130,130,124
80 DATA 254, 18, 18, 18, 12
81 DATA 124,130,162, 66,188
82 DATA 254, 18, 50, 82,140
83 DATA  76,146,146,146,100
84 DATA   2,  2,254,  2,  2
85 DATA 126,128,128,128,126
86 DATA  62, 64,128, 64, 62
87 DATA 126,128, 96,128,126
88 DATA 198, 40, 16, 40,198
89 DATA   6,  8,240,  8,  6
90 DATA 194,162,146,138,134
91 DATA 254,130,130,   ,   
92 DATA   6,  8, 16, 32,192
93 DATA    ,   ,130,130,254
94 DATA   8,  4,254,  4,  8
95 DATA  16, 56, 84,146, 16
96 DATA   4,   ,  8,   , 16
97 DATA 112, 80,240,   ,   
98 DATA 126, 80,112,   ,   
99 DATA 112, 80, 80,   ,   
100 DATA 112, 80,126,   ,   
101 DATA 248,168,184,   ,   
102 DATA 126, 10, 10,   ,   
103 DATA 184,168,248,   ,   
104 DATA 126, 16,112,   ,   
105 DATA    ,116,   ,   ,   
106 DATA  96, 64,124,   ,   
107 DATA 126, 32, 80,   ,   
108 DATA 126,   ,   ,   ,   
109 DATA 120, 16, 48, 16,112
110 DATA 120, 16,112,   ,   
111 DATA 112, 80,112,   ,   
112 DATA 248, 40, 56,   ,   
113 DATA  56, 40,248,128,   
114 DATA 120, 16, 16,   ,   
115 DATA  88, 72,104,   ,   
116 DATA   8,124, 72,   ,   
117 DATA 112, 64,112,   ,   
118 DATA  48, 64, 48,   ,   
119 DATA 112, 64, 96, 64,112
120 DATA  80, 32, 80,   ,   
121 DATA 184,160,248,   ,   
122 DATA 208,144,176,   ,   
123 DATA  16,238,130,   ,   
124 DATA    ,   ,   ,   ,   
125 DATA    ,   ,130,238, 16
126 DATA  16,  8,  4,  8, 16
127 DATA  64, 64, 96, 64, 64
999 END
KEY