'Tis the season, AGAIN! - Xmas contest

[Petr]

Hi all. Nice work, Bplus, Pete and Fellippe.

Qwerkey: How do sphere using _MAPTRIANGLE? Imagine a set of circles offset in the Z axis. The depth is the same as the spacing of these circles apart (the difference in diameters). Divide the texture into squares and map these pieces of texture between these points. Cone is a simpler version, where the texture is only divided on the X-axis stripes, it is the last sample program in the MAPTRIANGLE 3D section. I will try to do something like this, but I do not say it will be right now. Lately I have very little time.

[Ashish]

@Fellippe
Awesome work! It really makes think that circles are having 3D motion.

@Pete
Nice ASCII animation! Can you make the tree bigger?

@Bplus
Nice one! The maping from rectangular to spherical looks very accurate.

[bplus]

<blah, blah, blah... >

Pete

PS I'm going to provide this link to a beautiful snowfall screensaver from TheBOB, vintage 1998: https://www.tapatalk.com/groups/qbasic/snowfall-screensaver-t34777.html#p186813

Fabulous drawing, very nice! Thanks for sharing. (It works in QB64.)

[Qwerkey]

I have broken all Fellippe's rules.  You will need to export the Christmas 18 folder from the .zip into your QB64 folder (make sure that the export operation doesn't produce an extra folder layer).  Open the Lest We Forget.bas file from the IDE and make sure that you have the Save Exe In The Source Folder option checked.

The vertical resolution of your monitor needs to be greater than 900.

You will need audio.  Wait until program will closes itself.

The graphics are deliberately spartan and the theme is rather Anglo-centric, but the sentiment is universal I hope.

[bplus]

Dang 900 vertical monitor!?!?

[FellippeHeitor]

Dang you rule breakers! (not you, Pete! Nice train.)

@bplus: nice spinning Earth, thanks for sharing.

@Qwerkey: Very respectful and wishful animation. However, I believe the attached image never got used in the program, did I fetch the wrong file?

[bplus]

Oh yeah, where's Pete's screen shot? ;)

[Pete]

|^^|-|^^|-|^^-|>
 oo   oo   oo o

[bplus]

LOL!

 

[Petr]

Well, boys, I'm really looking forward to the Christmas atmosphere too, unfortunately, at the moment I do something, what can not wait... See photo...

[Qwerkey]

Dang you rule breakers!
@Qwerkey: Very respectful and wishful animation. However, I believe the attached image never got used in the program, did I fetch the wrong file?

Fellippe, sorry about the rule breaking.  I first thought that I'd use SOUND statements for the audio (necessary for my subject matter).  But then I needed large text (and therefore a Font File).  We creatives hardly ever pay attention to rules!  By the way, the poppy field image was just an unused supplement to the theme.

[Pete]

I wanted to post a link to this one by TheBOB, but there are still a few QBASIC paint statements that don't quite jive with QB64, which results is massive color bleeding. Well, I mentioned on the QB Forum that I posted the snowfall program, and Bob decided to make his other Christmas program QB64 compatible. He posted it last night. The history of its creation goes something like this...

A long time ago, in a QBasic forum far far away
A lighted Christmas tree appeared, that's good enough you'd have to say
Well maybe so but not for me, it needs a choo-choo I exclaimed
And behold one appeared, but without out a tunnel for the train
Then a miracle occurred, and every thing was right
Merry Christmas to all, in 25 kilobytes

So here is the link and the screen shot. You will have to remark out _FULSCREEN if you want it to run n a window.

https://www.tapatalk.com/groups/qbasic/viewtopic.php?p=212403&utm_medium=email#p212403

 

[bplus]

Wow Pete, glad you got The Bob dragged into this!

Here is a submission according to specs, I hope ;)  (Yep! runs stright from code box.)

Code: QB64: [Select]

1. _TITLE "Christmas Star Tree" 'B+  2018-11-30
2.  
3. RANDOMIZE TIMER
4. CONST xmax = 1280
5. CONST ymax = 720
6. COMMON SHARED cN, pR, pG, Plasma AS _UNSIGNED LONG
7.  
8. 'for Plasma writing
9. DIM SHARED maxIndex AS INTEGER
10. maxIndex = 3200
11. REDIM SHARED xyDat%(maxIndex, 1)
12. DIM SHARED cNw, pRw, pGw, pBw, indexP, DOTi
13. loadPlasmaData
14. resetPlasmaWrite
15.  
16. SCREEN _NEWIMAGE(xmax, ymax, 32)
17. _SCREENMOVE 75, 5
18.  
19. 'begin drawing background stars&
20. stars& = _NEWIMAGE(xmax, ymax, 32)
21. _DEST stars&
22. FOR i = 0 TO ymax - 80 ' sky
23.     LINE (0, i)-(xmax, i), _RGB32(50, 0, i / ymax * 68)
24. NEXT
25. FOR s = 1 TO 100 ' stars
26.     c = rand(155, 255)
27.     COLOR _RGBA32(c, c, c, RND * 100 + 155)
28.     fcirc RND * xmax, rand(0, 520), rand(0, 3)
29. NEXT
30. FOR i = ymax - 80 TO ymax 'ground
31.     LINE (0, i)-(xmax, i), _RGB32(50, 30, 20)
32. NEXT
33.  
34. ' setup for main screen
35. _DEST 0
36. midx = 400
37. starCenterY = 30
38. maxd = ((ymax - starCenterY) ^ 2 + (midx - xmax) ^ 2) ^ .5
39. ofs = 0
40. dir = 1
41. DO WHILE _KEYDOWN(27) = 0 'main loop
42.  
43.     'update message
44.     _DEST stars&
45.     changePlasmaWrite
46.     DOTi = DOTi + 1
47.     IF DOTi <= indexP THEN fcirc xyDat%(DOTi, 0), xyDat%(DOTi, 1), 10
48.  
49.     'show update
50.     _DEST 0
51.     _PUTIMAGE , stars&, 0
52.  
53.     'main star over tree
54.     resetPlasma
55.     FOR a = 0 TO _PI(2) STEP _PI(1 / 36)
56.         IF a = 0 THEN
57.             lastx = midx + maxd * COS(a)
58.             lasty = starCenterY + maxd * SIN(a)
59.         ELSE
60.             x1 = midx + maxd * COS(a)
61.             y1 = starCenterY + maxd * SIN(a)
62.             changePlasma
63.             ftri midx, starCenterY, lastx, lasty, x1, y1, Plasma
64.             lastx = x1: lasty = y1
65.         END IF
66.     NEXT
67.     FOR R = 25 TO 0 STEP -1
68.         COLOR _RGBA(255, 255, 205, (25 - R) ^ 2 / 2.5)
69.         fcirc midx, starCenterY, R
70.     NEXT
71.  
72.     'tree
73.     stepper = stepper + dir
74.     IF stepper > 75 THEN dir = dir * -1: stepper = 75
75.     IF stepper < 14 THEN dir = dir * -1: stepper = 14
76.     FOR y = 80 TO ymax - 20 STEP stepper
77.         star midx, y, 5 + .1 * y, 15 + .5 * y, 6, ofs + _PI(y / 720)
78.     NEXT
79.     _DISPLAY
80.     ofs = ofs + _PI(1 / 36)
81.     IF ofs > _PI(2) THEN ofs = 0
82.     _LIMIT 8
83. LOOP
84.  
85. SUB changePlasma ()
86.     cN = cN + 1
87.     Plasma = _RGBA(200 + 56 * SIN(pR * cN), 200 + 56 * SIN(pG * cN), 128, RND * 64 + 30)
88. END SUB
89.  
90. SUB resetPlasma ()
91.     pR = RND ^ 2: pG = RND ^ 2
92. END SUB
93.  
94. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
95.     a& = _NEWIMAGE(1, 1, 32)
96.     _DEST a&
97.     PSET (0, 0), K
98.     _DEST 0
99.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
100.     _FREEIMAGE a& '<<< this is important!
101. END SUB
102.  
103. SUB fatLine (x1, y1, x2, y2)
104.     stepx = x2 - x1: stepy = y2 - y1
105.     length = INT((stepx ^ 2 + stepy ^ 2) ^ .5)
106.     IF length THEN
107.         dx = stepx / length: dy = stepy / length
108.         FOR i = 0 TO length
109.             CIRCLE (x1 + dx * i, y1 + dy * i), 5
110.         NEXT
111.     END IF
112. END SUB
113.  
114. SUB star (x, y, rInner, rOuter, nPoints, angleOffset)
115.     ' x, y are same as for circle,
116.     ' rInner is center circle radius
117.     ' rOuter is the outer most point of star
118.     ' nPoints is the number of points,
119.     ' angleOffset = angle offset in radians
120.     ' this is to allow us to spin the star
121.  
122.     'modified a bit for stacking up a tree
123.  
124.     DIM ar(INT(nPoints) * 4 + 3) 'add two for origin
125.     pAngle = _PI(2) / nPoints: radAngleOffset = angleOffset - _PI(1 / 2)
126.     x1 = x + rOuter * COS(radAngleOffset)
127.     y1 = y + .2 * rOuter * SIN(radAngleOffset)
128.     idx = 4
129.     FOR i = 0 TO nPoints - 1
130.         x2 = x + rInner * COS(i * pAngle + radAngleOffset + .5 * pAngle)
131.         y2 = y + .2 * rInner * SIN(i * pAngle + radAngleOffset + .5 * pAngle)
132.         COLOR _RGB32(rand(0, 40), rand(40, 120), rand(0, 35))
133.         fatLine x1, y1, x2, y2
134.         x1 = x2
135.         y1 = y2
136.         x2 = x + rOuter * COS((i + 1) * pAngle + radAngleOffset)
137.         y2 = y + .2 * rOuter * SIN((i + 1) * pAngle + radAngleOffset)
138.         COLOR _RGB32(rand(0, 40), rand(40, 120), rand(0, 35))
139.         fatLine x1, y1, x2, y2
140.         x1 = x2
141.         y1 = y2
142.     NEXT
143. END SUB
144.  
145. FUNCTION rand% (lo%, hi%)
146.     rand% = INT(RND * (hi% - lo% + 1)) + lo%
147. END FUNCTION
148.  
149. SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG)
150.     DIM subRadius AS LONG, RadiusError AS LONG
151.     DIM X AS LONG, Y AS LONG
152.  
153.     subRadius = ABS(R)
154.     RadiusError = -subRadius
155.     X = subRadius
156.     Y = 0
157.  
158.     IF subRadius = 0 THEN PSET (CX, CY): EXIT SUB
159.  
160.     ' Draw the middle span here so we don't draw it twice in the main loop,
161.     ' which would be a problem with blending turned on.
162.     LINE (CX - X, CY)-(CX + X, CY), , BF
163.  
164.     WHILE X > Y
165.         RadiusError = RadiusError + Y * 2 + 1
166.         IF RadiusError >= 0 THEN
167.             IF X <> Y + 1 THEN
168.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), , BF
169.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), , BF
170.             END IF
171.             X = X - 1
172.             RadiusError = RadiusError - X * 2
173.         END IF
174.         Y = Y + 1
175.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), , BF
176.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), , BF
177.     WEND
178. END SUB
179.  
180. 'separatePlasma for writing than main star
181. SUB changePlasmaWrite ()
182.     cNw = cNw + .5
183.     COLOR _RGB(127 + 127 * SIN(pRw * cNw), 127 + 127 * SIN(pGw * cNw), 127 + 127 * SIN(pBw * cNw))
184. END SUB
185.  
186. SUB resetPlasmaWrite ()
187.     pRw = RND ^ 2: pGw = RND ^ 2: pBw = RND ^ 2
188. END SUB
189.  
190. SUB loadPlasmaData
191.     indexP = 0
192.     WHILE dx <> 9999
193.         READ dx, dy
194.         IF dx <> 9999 THEN xyDat%(indexP, 0) = dx: xyDat%(indexP, 1) = dy: indexP = indexP + 1
195.     WEND
196. END SUB
197.  
198. DATA 877,65,877,65,877,65,877,65,877,65,877,67,877,70,877,74,877,79,878,85
199. DATA 878,89,878,95,879,100,881,105,881,111,881,116,882,120,882,122,883,126,883,131
200. DATA 883,135,883,140,883,144,883,148,883,153,883,159,883,164,883,166,883,177,883,179
201. DATA 883,183,883,188,884,191,884,194,884,197,884,201,884,203,884,205,884,207,884,208
202. DATA 884,210,884,211,883,211,883,211,878,211,874,211,859,210,853,210,843,210,840,210
203. DATA 828,211,824,211,817,211,806,210,799,209,797,208,795,207,795,207,795,207,795,207
204. DATA 795,207,795,207,795,207,795,207,795,207,795,207,795,207,795,207,795,207,795,207
205. DATA 795,207,795,207,795,207,795,207,943,154,942,154,940,156,938,159,937,162,936,164
206. DATA 935,167,935,170,934,173,934,174,934,177,934,179,934,183,935,186,937,189,937,192
207. DATA 938,195,939,197,939,199,940,200,940,201,941,202,941,203,942,203,943,203,943,204
208. DATA 944,204,945,204,945,204,948,205,949,205,952,206,956,206,962,206,966,206,968,205
209. DATA 969,205,970,203,972,201,974,200,976,199,978,198,978,197,979,196,980,194,980,192
210. DATA 980,190,980,186,980,183,980,182,980,181,980,180,980,179,980,178,980,177,978,175
211. DATA 977,173,975,171,974,169,971,167,970,166,968,165,968,165,968,165,968,164,968,164
212. DATA 967,164,965,163,963,163,962,162,962,161,961,161,961,161,961,161,960,161,960,161
213. DATA 960,161,960,161,960,161,960,161,960,161,960,161,960,161,960,161,960,161,960,161
214. DATA 960,161,960,161,960,161,960,161,960,161,960,161,960,161,960,161,960,161,1020,159
215. DATA 1020,159,1020,159,1020,159,1020,159,1020,159,1020,162,1020,166,1021,172,1022,173,1024,178
216. DATA 1026,180,1027,185,1028,188,1029,190,1030,192,1031,193,1031,195,1032,196,1033,197,1034,199
217. DATA 1034,201,1036,203,1036,204,1037,205,1037,205,1037,205,1037,205,1037,205,1037,205,1037,205
218. DATA 1037,205,1037,205,1037,205,1037,205,1037,205,1037,205,1037,205,1037,205,1037,205,1037,205
219. DATA 1037,205,1037,205,1037,205,1037,205,1038,205,1038,204,1039,203,1040,200,1040,198,1041,195
220. DATA 1042,192,1043,188,1044,187,1046,181,1046,180,1047,176,1047,175,1049,171,1051,169,1051,168
221. DATA 1052,167,1052,166,1052,165,1053,164,1053,164,1053,163,1054,162,1055,161,1055,160,1055,159
222. DATA 1055,158,1055,157,1056,157,1056,156,1056,155,1056,154,1056,154,1057,153,1057,153,1057,153
223. DATA 1057,153,1057,153,1057,153,1057,153,1057,153,1057,153,1057,153,1057,153,1057,153,1036,204
224. DATA 1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204
225. DATA 1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204
226. DATA 1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204,1036,204
227. DATA 1036,204,1036,204,1036,204,1035,207,1035,209,1035,211,1035,214,1034,218,1034,221,1033,225
228. DATA 1032,229,1031,234,1030,237,1029,241,1028,243,1028,245,1028,246,1027,247,1026,249,1026,250
229. DATA 1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251
230. DATA 1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251
231. DATA 1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251,1026,251
232. DATA 1026,251,1026,251,1025,252,1024,254,1024,256,1024,257,1024,257,1024,257,1024,257,1024,257
233. DATA 1024,257,1024,257,1024,257,1024,257,1024,257,1024,257,1024,257,1024,257,1024,257,1024,257
234. DATA 1024,257,1024,257,843,318,843,318,843,318,843,318,843,318,843,318,843,318,843,318
235. DATA 843,319,843,319,844,323,845,325,845,334,846,341,846,350,847,363,848,375,848,387
236. DATA 849,400,850,405,850,408,851,411,851,413,851,414,851,414,851,414,851,414,851,414
237. DATA 851,414,851,414,851,416,851,416,851,416,851,416,851,416,851,416,831,375,831,375
238. DATA 831,375,831,375,831,375,831,375,831,375,831,375,832,375,835,375,850,375,866,375
239. DATA 883,375,891,375,894,375,898,375,899,375,899,375,899,375,899,375,900,375,900,375
240. DATA 900,375,900,375,900,375,900,375,900,375,900,375,900,375,900,375,931,374,931,374
241. DATA 931,374,928,377,927,380,924,384,922,387,921,389,921,391,921,394,921,394,923,397
242. DATA 924,398,924,399,925,400,927,402,928,404,929,405,930,406,930,407,930,407,930,407
243. DATA 931,407,931,407,933,407,941,405,944,404,946,402,947,401,948,399,948,398,948,397
244. DATA 948,397,949,395,949,394,949,393,949,392,949,391,949,390,949,389,949,388,949,387
245. DATA 949,385,949,383,949,383,949,381,948,380,947,380,947,380,947,380,947,380,947,380
246. DATA 947,380,947,380,947,380,947,380,947,380,947,380,947,380,947,380,947,380,1023,303
247. DATA 1023,303,1023,303,1022,306,1022,309,1022,314,1022,318,1023,323,1024,332,1025,341,1026,350
248. DATA 1026,356,1026,361,1027,369,1028,371,1028,373,1028,375,1028,377,1028,380,1028,383,1028,386
249. DATA 1028,388,1028,391,1028,392,1028,393,1029,393,1029,393,1029,393,1029,393,1029,393,1029,393
250. DATA 1029,393,1029,393,1029,393,1029,393,1029,393,1029,393,1029,393,1029,395,1029,397,1030,398
251. DATA 1030,398,1030,398,1030,398,1030,398,1030,398,1030,400,1030,401,1030,403,1030,404,1030,404
252. DATA 1030,404,1030,404,1030,404,1030,405,1030,405,1030,405,1030,405,1030,405,1030,405,1030,405
253. DATA 997,352,997,352,997,352,997,352,997,352,997,352,997,352,997,352,997,352,998,352
254. DATA 1003,352,1011,353,1023,353,1028,352,1030,351,1031,351,1031,351,1031,351,1031,351,1031,351
255. DATA 1031,351,1031,351,1031,351,1031,351,1031,351,1031,351,1031,351,1032,351,1032,351,1032,351
256. DATA 1032,351,1032,351,1032,351,1032,351,1032,351,1032,351,1032,351,1032,351,1032,351,1032,351
257. DATA 1032,351,1032,351,1032,351,1032,351,1032,351,1032,351,1032,351,1032,351,1033,351,1035,351
258. DATA 1036,350,1037,350,1037,350,1037,350,1038,350,1039,350,1040,350,1041,349,1042,349,1042,349
259. DATA 1042,349,1042,349,1042,349,1042,349,1042,349,1042,349,1042,349,1042,349,1059,296,1059,296
260. DATA 1059,296,1059,296,1059,296,1059,296,1059,298,1059,302,1059,305,1059,314,1059,321,1059,327
261. DATA 1059,333,1059,338,1059,343,1059,347,1059,351,1060,358,1060,364,1060,371,1060,378,1060,384
262. DATA 1061,389,1061,392,1061,396,1061,398,1062,402,1062,404,1062,404,1062,405,1062,405,1062,405
263. DATA 1062,405,1062,405,1062,405,1062,405,1062,405,1062,405,1062,405,1062,405,1062,405,1062,405
264. DATA 1062,405,1062,405,1062,405,1062,405,1062,399,1063,395,1063,391,1064,386,1064,383,1065,376
265. DATA 1066,370,1067,365,1069,361,1070,358,1072,354,1073,352,1074,351,1074,350,1075,349,1076,349
266. DATA 1077,348,1078,348,1079,348,1080,348,1081,348,1081,347,1081,347,1081,347,1081,347,1081,349
267. DATA 1083,352,1085,356,1087,361,1089,367,1090,369,1092,376,1094,378,1094,380,1094,381,1095,384
268. DATA 1095,386,1095,387,1095,388,1095,389,1095,389,1095,389,1095,389,1095,389,1095,389,1095,389
269. DATA 1095,389,1095,389,1095,389,1095,389,1095,389,1095,389,1096,391,1096,392,1096,392,1096,393
270. DATA 1097,393,1098,396,1099,397,1099,397,1099,398,1099,398,1099,398,1099,398,1099,398,1099,398
271. DATA 1099,398,1099,398,1099,398,1099,398,1099,398,1106,366,1106,366,1106,366,1106,366,1106,366
272. DATA 1106,366,1106,366,1106,366,1106,366,1106,366,1106,366,1106,366,1106,366,1106,366,1106,366
273. DATA 1106,366,1110,365,1111,364,1115,364,1118,363,1123,362,1124,362,1125,362,1126,362,1129,361
274. DATA 1133,360,1137,359,1141,357,1142,356,1142,356,1143,356,1143,354,1144,353,1145,352,1146,350
275. DATA 1146,349,1146,348,1146,347,1146,347,1146,347,1146,347,1146,347,1146,347,1146,347,1145,346
276. DATA 1141,345,1138,344,1137,344,1135,344,1134,344,1132,344,1129,346,1126,347,1122,348,1119,350
277. DATA 1117,351,1117,352,1116,353,1113,357,1111,360,1110,363,1109,366,1108,368,1107,372,1106,377
278. DATA 1106,378,1106,382,1106,384,1106,386,1106,388,1106,389,1106,390,1108,390,1108,391,1109,391
279. DATA 1114,392,1120,393,1129,393,1139,393,1147,393,1152,392,1158,391,1163,389,1164,389,1169,386
280. DATA 1172,385,1175,383,1176,383,1177,381,1177,381,1177,381,1177,381,1177,381,1177,381,1177,381
281. DATA 1177,381,1177,381,1177,381,1177,381,1177,381,1177,381,1177,381,1177,381,797,495,797,495
282. DATA 797,495,797,495,797,495,797,495,797,495,797,495,797,495,797,499,800,507,802,517
283. DATA 804,526,811,542,816,554,820,563,822,569,825,575,826,581,827,583,828,590,829,595
284. DATA 830,598,831,602,832,608,832,609,834,614,834,618,835,620,837,623,838,624,838,624
285. DATA 840,624,841,619,843,613,845,607,847,601,849,595,852,585,854,580,856,575,858,570
286. DATA 859,564,861,560,864,552,865,548,866,544,867,540,869,534,870,529,873,522,873,516
287. DATA 876,509,877,503,878,500,879,498,879,496,879,496,879,496,879,496,879,496,879,496
288. DATA 879,496,879,496,879,496,879,496,879,496,879,496,879,496,880,500,881,507,883,516
289. DATA 884,527,885,538,889,550,891,557,892,562,894,568,894,569,896,575,896,576,896,580
290. DATA 897,581,898,585,898,587,900,590,902,594,904,596,906,599,907,600,908,601,909,602
291. DATA 911,604,911,606,912,606,912,606,912,606,913,606,913,606,913,606,913,606,913,606
292. DATA 914,606,914,606,915,606,915,606,916,606,916,606,916,606,917,606,917,606,918,607
293. DATA 920,609,920,610,920,610,920,610,920,610,920,610,920,610,921,610,921,610,921,609
294. DATA 924,600,925,595,926,588,927,581,928,573,930,565,931,550,932,538,932,530,933,522
295. DATA 934,515,936,509,936,506,936,504,936,503,937,502,937,501,937,500,937,499,937,498
296. DATA 937,498,937,498,937,498,937,498,937,498,937,498,937,498,937,498,937,498,937,498
297. DATA 937,498,937,498,937,498,937,498,937,498,989,563,989,563,988,562,988,562,987,562
298. DATA 985,562,983,563,981,564,977,569,975,572,973,573,970,577,968,582,967,585,966,588
299. DATA 966,590,966,593,966,596,966,599,967,601,968,603,969,605,971,607,972,609,974,612
300. DATA 975,614,976,615,977,615,977,615,977,615,977,615,980,613,985,609,989,606,992,603
301. DATA 994,600,994,599,997,596,997,594,999,591,1000,590,1001,587,1003,584,1004,582,1004,580
302. DATA 1005,579,1005,577,1005,574,1005,573,1005,571,1005,570,1005,569,1005,568,1005,568,1005,567
303. DATA 1005,566,1005,566,1004,566,1004,566,1004,566,1004,566,1003,563,999,561,998,560,998,560
304. DATA 998,560,998,560,998,560,998,560,998,560,998,560,1028,562,1028,562,1028,562,1028,562
305. DATA 1027,562,1027,563,1027,564,1026,566,1026,567,1026,571,1026,574,1028,581,1030,585,1033,590
306. DATA 1035,594,1036,597,1037,599,1038,600,1038,600,1038,600,1038,600,1038,600,1038,600,1038,600
307. DATA 1038,600,1038,600,1038,599,1038,599,1038,599,1038,599,1038,597,1037,591,1036,589,1035,583
308. DATA 1035,581,1034,577,1034,575,1034,572,1034,568,1034,566,1034,564,1034,563,1034,561,1034,560
309. DATA 1035,560,1036,559,1037,558,1037,558,1037,558,1037,558,1037,558,1038,558,1038,557,1038,557
310. DATA 1041,557,1043,556,1044,555,1044,555,1044,555,1044,555,1044,555,1044,555,1044,555,1044,555
311. DATA 1044,555,1044,555,1044,555,1071,499,1071,499,1071,499,1071,499,1071,499,1071,507,1071,512
312. DATA 1071,518,1071,525,1071,532,1071,539,1072,546,1074,554,1074,561,1075,566,1077,574,1078,580
313. DATA 1079,585,1080,588,1080,590,1081,593,1081,593,1081,594,1081,594,1081,594,1081,594,1081,594
314. DATA 1081,596,1082,597,1082,599,1082,600,1082,601,1083,602,1083,603,1083,603,1083,603,1083,603
315. DATA 1083,603,1083,604,1083,605,1084,605,1084,605,1084,605,1084,605,1084,605,1159,563,1159,563
316. DATA 1158,563,1158,563,1155,561,1153,560,1148,559,1147,559,1139,559,1135,559,1132,560,1131,561
317. DATA 1130,562,1129,565,1128,567,1127,569,1127,573,1126,576,1126,580,1126,583,1125,587,1125,591
318. DATA 1125,595,1126,601,1128,604,1130,605,1132,607,1133,609,1136,611,1138,612,1139,612,1140,612
319. DATA 1145,609,1151,603,1155,601,1158,598,1161,595,1164,594,1166,592,1167,589,1169,585,1171,581
320. DATA 1172,576,1172,573,1172,570,1172,568,1172,564,1172,561,1172,558,1171,554,1170,548,1170,542
321. DATA 1170,537,1170,531,1169,526,1169,521,1168,517,1167,509,1167,505,1167,502,1167,497,1167,493
322. DATA 1167,491,1167,489,1167,487,1167,487,1167,487,1167,486,1167,485,1167,484,1167,482,1167,480
323. DATA 1167,479,1167,477,1167,476,1167,475,1167,475,1167,475,1167,475,1167,475,1167,475,1167,475
324. DATA 1167,475,1167,475,1167,475,1167,476,1167,480,1167,487,1167,492,1168,497,1169,505,1170,511
325. DATA 1171,518,1174,524,1176,536,1177,542,1178,548,1180,553,1181,558,1182,562,1183,567,1184,572
326. DATA 1185,577,1187,584,1188,589,1189,592,1190,595,1190,598,1191,601,1191,603,1192,604,1192,605
327. DATA 1193,606,1193,607,1194,608,1194,609,1194,609,1195,611,1195,611,1195,612,1195,613,1196,613
328. DATA 1196,613,1196,613,1196,613,1196,613,1196,613,1196,613,1196,613,1196,613,1196,613,1196,613
329. DATA 1196,613,1196,613,1196,613,1196,613,1196,613,1196,613,1131,51,1131,51,1131,51,1131,51
330. DATA 1131,51,1131,51,1131,52,1131,56,1131,61,1131,71,1131,79,1131,89,1131,97,1130,106
331. DATA 1130,112,1130,117,1130,122,1130,122,1130,129,1130,131,1130,134,1129,136,1129,141,1128,147
332. DATA 1127,160,1126,164,1126,174,1126,180,1126,183,1126,183,1126,183,1125,183,1125,183,1125,183
333. DATA 1125,183,1125,183,1125,183,1125,183,1125,183,1125,183,1125,183,1125,183,1125,183,1125,183
334. DATA 1118,232,1118,232,1118,232,1118,232,1118,232,1118,232,1118,232,1118,232,1118,232,1118,232
335. DATA 1118,232
336. DATA 9999,9999
337.  

I would like to make the message a bit of a surprise so you will have to download and run:
 

[Pete]

Now all it needs are lights, train, tunnel, and a station. Get busy!!! Wow, deja vu.

I think I forgot to mention, TheBOB's choo choo is animated. It goes completely around the track. ALL ABOARD!!!

Pete :D

[TempodiBasic]

Hey you Boys and girls of QB64
until when  is the challenge opened?