1 'DRAW.100 by George Saladino Ver 2.0
2 'Based on "Sketch" by Tony Anderson
3 'This program creates DRAW.CO
4 'Compiled on TCOMP
5 'Checksum = 139649
6 'DRAW.CO allows for super fast or
7 'normal drawing speeds, it also has
8 'an erase mode.
9 'See "DRAW.DOC" for more information.
10 CLEAR 256,59999:S=0:CLS
11 PRINT @ 120,"C O M P U T I N G, please wait!"
12 FOR X=1 TO 1289
13 READ P:S=S+P:POKE 59999+X,P
14 NEXT
15 IF S<>139649 THEN 99
16 SAVEM"draw",60000,61288,60000
17 END
18 DATA205,49,66,33,1,0,34,100,239,33,0,0,34,98,239,33
19 DATA5,0,205,51,239,205,41,239,60,68,114,97,119,62,32,32
20 DATA98,121,32,32,71,101,111,114,103,101,32,83,97,108,97,100
21 DATA105,110,111,0,205,34,66,33,47,0,205,51,239,205,41,239
22 DATA68,32,61,32,68,82,65,87,32,32,32,32,69,32,61,32
23 DATA69,82,65,83,69,0,205,34,66,33,87,0,205,51,239,205
24 DATA41,239,60,32,61,32,76,69,70,84,32,32,32,32,62,32
25 DATA61,32,82,73,71,72,84,0,205,34,66,33,127,0,205,51
26 DATA239,205,41,239,67,84,82,76,32,61,32,85,80,32,32,32
27 DATA83,72,73,70,84,32,61,32,68,79,87,78,0,205,34,66
28 DATA33,167,0,205,51,239,205,41,239,69,83,67,32,61,32,83
29 DATA84,79,80,32,32,67,32,61,32,67,76,69,65,82,32,83
30 DATA67,82,69,69,78,0,205,34,66,33,202,0,205,51,239,205
31 DATA41,239,67,111,109,98,105,110,97,116,105,111,110,32,111,102
32 DATA32,107,101,121,115,32,61,32,68,105,97,103,111,110,97,108
33 DATA32,108,105,110,101,115,0,205,34,66,33,240,0,205,51,239
34 DATA205,41,239,83,32,61,32,83,84,65,82,84,32,79,86,69
35 DATA82,32,32,84,111,32,115,116,97,114,116,32,100,114,97,119
36 DATA105,110,103,44,32,112,117,115,104,0,205,34,66,33,27,1
37 DATA205,51,239,205,41,239,70,32,61,32,70,65,83,84,32,83
38 DATA80,69,69,68,32,32,32,32,78,61,32,78,79,82,77,65
39 DATA76,32,83,80,69,69,68,0,33,145,255,126,38,0,111,34
40 DATA96,239,33,146,255,126,38,0,111,34,94,239,42,96,239,235
41 DATA33,32,0,223,202,229,235,42,94,239,235,33,8,0,223,202
42 DATA14,239,195,184,235,205,49,66,33,32,0,34,92,239,33,120
43 DATA0,34,90,239,33,148,255,126,38,0,111,34,88,239,33,153
44 DATA255,126,38,0,111,34,86,239,33,151,255,126,38,0,111,34
45 DATA84,239,33,145,255,126,38,0,111,34,96,239,33,147,255,126
46 DATA38,0,111,34,82,239,33,146,255,126,38,0,111,34,94,239
47 DATA42,94,239,235,33,4,0,223,202,84,238,42,82,239,235,33
48 DATA4,0,223,202,93,238,42,84,239,235,33,8,0,223,202,73
49 DATA238,42,94,239,235,33,2,0,223,202,96,234,42,96,239,235
50 DATA33,4,0,223,202,229,235,42,88,239,235,33,64,0,223,202
51 DATA47,237,42,88,239,235,33,32,0,223,202,83,237,42,86,239
52 DATA235,33,2,0,223,202,231,237,42,86,239,235,33,1,0,223
53 DATA202,248,237,42,86,239,235,33,32,0,223,202,174,238,42,86
54 DATA239,235,33,16,0,223,202,174,238,42,86,239,235,33,48,0
55 DATA223,202,174,238,195,244,235,33,0,0,34,80,239,42,80,239
56 DATA235,33,1,0,25,34,80,239,42,98,239,235,33,1,0,223
57 DATA202,227,236,42,80,239,235,33,232,3,205,65,239,218,227,236
58 DATA195,189,236,42,90,239,235,33,0,0,235,205,65,239,218,37
59 DATA238,42,90,239,235,33,239,0,205,65,239,218,46,238,42,92
60 DATA239,235,33,0,0,235,205,65,239,218,55,238,42,92,239,235
61 DATA33,63,0,205,65,239,218,64,238,42,100,239,235,33,1,0
62 DATA223,202,102,238,42,100,239,235,33,2,0,223,202,116,238,42
63 DATA86,239,235,33,2,0,223,202,119,237,42,86,239,235,33,1
64 DATA0,223,202,147,237,42,88,239,235,33,64,0,223,202,6,238
65 DATA195,183,236,42,86,239,235,33,2,0,223,202,172,237,42,86
66 DATA239,235,33,1,0,223,202,203,237,42,88,239,235,33,32,0
67 DATA223,202,20,238,195,183,236,42,90,239,235,33,1,0,25,34
68 DATA90,239,42,92,239,235,33,1,0,235,66,75,8,34,92,239
69 DATA195,183,236,42,90,239,235,33,1,0,25,34,90,239,42,92
70 DATA239,235,33,1,0,25,34,92,239,195,183,236,42,90,239,235
71 DATA33,1,0,235,66,75,8,34,90,239,42,92,239,235,33,1
72 DATA0,235,66,75,8,34,92,239,195,183,236,42,90,239,235,33
73 DATA1,0,235,66,75,8,34,90,239,42,92,239,235,33,1,0
74 DATA25,34,92,239,195,183,236,42,92,239,235,33,1,0,235,66
75 DATA75,8,34,92,239,195,183,236,42,92,239,235,33,1,0,25
76 DATA34,92,239,195,183,236,42,90,239,235,33,1,0,25,34,90
77 DATA239,195,183,236,42,90,239,235,33,1,0,235,66,75,8,34
78 DATA90,239,195,183,236,33,239,0,34,90,239,195,183,236,33,0
79 DATA0,34,90,239,195,183,236,33,63,0,34,92,239,195,183,236
80 DATA33,0,0,34,92,239,195,183,236,33,0,0,125,33,170,255
81 DATA119,205,151,87,33,1,0,34,100,239,195,102,238,33,2,0
82 DATA34,100,239,195,244,235,42,90,239,85,42,92,239,93,205,76
83 DATA116,195,244,235,33,0,0,34,78,239,42,90,239,85,42,92
84 DATA239,93,205,76,116,42,78,239,235,33,1,0,25,34,78,239
85 DATA42,78,239,235,33,232,3,205,65,239,218,160,238,195,133,238
86 DATA42,90,239,85,42,92,239,93,205,77,116,195,244,235,205,41
87 DATA239,32,0,205,34,66,205,41,239,32,0,205,34,66,33,1
88 DATA0,34,76,239,205,41,239,68,111,32,110,111,116,32,67,65
89 DATA80,83,32,76,79,67,75,32,111,114,32,78,85,77,32,76
90 DATA79,67,75,32,111,110,33,0,33,160,15,235,33,20,0,69
91 DATA205,197,114,42,76,239,235,33,1,0,25,34,76,239,42,76
92 DATA239,235,33,100,0,205,65,239,218,229,235,195,243,238,33,1
93 DATA0,34,98,239,195,229,235,124,181,200,235,66,75,17,0,0
94 DATA19,8,210,32,239,27,9,235,201,225,126,35,229,183,200,231
95 DATA195,41,239,235,33,40,0,205,23,239,99,36,44,205,124,66
96 DATA201,124,238,128,103,122,238,128,87,223,201,0,0,0,0,0
97 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
98 DATA0,0,0,0,0,0,0,0,183
99 CLS:PRINT @40,"Data is bad!"
100 BEEP:BEEP:BEEP