'{$STAMP BS2} ''''''''''''''''''''''''''''''''''''''''''''''''' ' AUTHOR: Vincent Leclerc, 2003 ' ' USE: for the prototype of BLAZER 01.2 ' ' turns HIGH and LOW pins 7 to 12 ' ' *** SHARERIGHTS EXTENDED TO ALL UNDER GNU *** ' ''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''' ' VARIABLES INITIALIZATION ' ''''''''''''''''''''''''''''''''''''''''''''''''' speed var WORD 'speed at which the leds flash speed = 2 tracking var BYTE 'space between each letter tracking = 5 index var BYTE 'used in FOR loops index = 0 'set the 1ST 14 pins to output 'AND 2 LAST AS INPUT DIRS = %0011111111111111 ''''''''''''''''''''''''''''''''''''''''''''''''' ' PROCEDURES ' ''''''''''''''''''''''''''''''''''''''''''''''''' main: GOSUB computerGames GOTO main '''''''''''''''COMPUTER GAMES'''''''''''''''''''' computerGames: GOSUB C GOSUB O GOSUB M GOSUB P GOSUB U GOSUB T GOSUB E GOSUB R GOSUB SPACE GOSUB G GOSUB A GOSUB M GOSUB E GOSUB S GOSUB SPACE GOSUB D GOSUB O GOSUB N GOSUB T GOSUB SPACE GOSUB A GOSUB F GOSUB F GOSUB E GOSUB C GOSUB T GOSUB SPACE GOSUB K GOSUB I GOSUB D GOSUB S GOSUB SPACE GOSUB I GOSUB F GOSUB SPACE GOSUB P GOSUB A GOSUB C GOSUB M GOSUB A GOSUB N GOSUB SPACE GOSUB A GOSUB F GOSUB F GOSUB E GOSUB C GOSUB T GOSUB E GOSUB D GOSUB SPACE GOSUB U GOSUB S GOSUB SPACE GOSUB A GOSUB S GOSUB SPACE GOSUB K GOSUB I GOSUB D GOSUB S GOSUB SPACE GOSUB W GOSUB E GOSUB SPACE GOSUB W GOSUB O GOSUB U GOSUB L GOSUB D GOSUB SPACE GOSUB A GOSUB L GOSUB L GOSUB SPACE GOSUB B GOSUB E GOSUB SPACE GOSUB R GOSUB U GOSUB N GOSUB N GOSUB I GOSUB N GOSUB G GOSUB SPACE GOSUB A GOSUB R GOSUB O GOSUB U GOSUB N GOSUB D GOSUB SPACE GOSUB I GOSUB N GOSUB SPACE GOSUB D GOSUB A GOSUB R GOSUB K GOSUB E GOSUB N GOSUB E GOSUB D GOSUB SPACE GOSUB R GOSUB O GOSUB O GOSUB M GOSUB S GOSUB SPACE GOSUB M GOSUB U GOSUB N GOSUB C GOSUB H GOSUB I GOSUB N GOSUB G GOSUB SPACE GOSUB P GOSUB I GOSUB L GOSUB L GOSUB S GOSUB SPACE GOSUB A GOSUB N GOSUB D GOSUB SPACE GOSUB L GOSUB I GOSUB S GOSUB T GOSUB E GOSUB N GOSUB I GOSUB N GOSUB G GOSUB SPACE GOSUB T GOSUB O GOSUB SPACE GOSUB R GOSUB E GOSUB P GOSUB E GOSUB T GOSUB I GOSUB T GOSUB I GOSUB V GOSUB E GOSUB SPACE GOSUB M GOSUB U GOSUB S GOSUB I GOSUB C GOSUB SPACE RETURN '''''''''''''''''CHARACTERS'''''''''''''''''''''' A: OUTS = %0000011111000000 PAUSE speed OUTS = %0000000101000000 PAUSE speed*3 OUTS = %0000011111000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN B: OUTS = %0000011111000000 PAUSE speed OUTS = %0000010101000000 PAUSE speed*3 OUTS = %0000011011000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN C: OUTS = %0000011111000000 PAUSE speed OUTS = %0000010001000000 PAUSE speed*4 OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN D: OUTS = %0000011111000000 PAUSE speed OUTS = %0000010001000000 PAUSE speed*3 OUTS = %0000001110000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN E: OUTS = %0000011111000000 PAUSE speed OUTS = %0000010101000000 PAUSE speed*3 OUTS = %0000010001000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN F: OUTS = %0000011111000000 PAUSE speed OUTS = %0000000101000000 PAUSE speed*3 OUTS = %0000000001000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN G: OUTS = %0000011111000000 PAUSE speed OUTS = %0000010001000000 PAUSE speed OUTS = %0000010101000000 PAUSE speed*2 OUTS = %0000011101000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN H: OUTS = %0000011111000000 PAUSE speed OUTS = %0000000100000000 PAUSE speed*3 OUTS = %0000011111000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN I: OUTS = %0000011111000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN J: OUTS = %0000011000000000 PAUSE speed OUTS = %0000010000000000 PAUSE speed*3 OUTS = %0000011111000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN K: OUTS = %0000011111000000 PAUSE speed OUTS = %0000000100000000 PAUSE speed*2 OUTS = %0000001010000000 PAUSE speed OUTS = %0000010001000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN L: OUTS = %0000011111000000 PAUSE speed OUTS = %0000010000000000 PAUSE speed*4 OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN M: OUTS = %0000011111000000 PAUSE speed OUTS = %0000000010000000 PAUSE speed OUTS = %0000000100000000 PAUSE speed OUTS = %0000000010000000 PAUSE speed OUTS = %0000011111000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN N: OUTS = %0000011111000000 PAUSE speed OUTS = %0000000010000000 PAUSE speed OUTS = %0000000100000000 PAUSE speed OUTS = %0000001000000000 PAUSE speed OUTS = %0000011111000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN O: OUTS = %0000011111000000 PAUSE speed OUTS = %0000010001000000 PAUSE speed*3 OUTS = %0000011111000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN P: OUTS = %0000011111000000 PAUSE speed OUTS = %0000000101000000 PAUSE speed*3 OUTS = %0000000111000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN Q: OUTS = %0000011111000000 PAUSE speed OUTS = %0000010001000000 PAUSE speed OUTS = %0000011001000000 PAUSE speed OUTS = %0000011001000000 PAUSE speed OUTS = %0000011111000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN R: OUTS = %0000011111000000 PAUSE speed OUTS = %0000000101000000 PAUSE speed*3 OUTS = %0000001101000000 PAUSE speed OUTS = %0000010111000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN S: OUTS = %0000010111000000 PAUSE speed OUTS = %0000010101000000 PAUSE speed*3 OUTS = %0000011101000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN T: OUTS = %0000000001000000 PAUSE speed*2 OUTS = %0000011111000000 PAUSE speed OUTS = %0000000001000000 PAUSE speed*2 OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN U: OUTS = %0000011111000000 PAUSE speed OUTS = %0000010000000000 PAUSE speed*3 OUTS = %0000011111000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN V: OUTS = %0000000111000000 PAUSE speed OUTS = %0000001000000000 PAUSE speed OUTS = %0000010000000000 PAUSE speed OUTS = %0000001000000000 PAUSE speed OUTS = %0000000111000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN W: OUTS = %0000001111000000 PAUSE speed OUTS = %0000010000000000 PAUSE speed*2 OUTS = %0000001111000000 PAUSE speed OUTS = %0000010000000000 PAUSE speed*2 OUTS = %0000001111000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN X: OUTS = %0000010001000000 PAUSE speed OUTS = %0000001010000000 PAUSE speed OUTS = %0000000100000000 PAUSE speed OUTS = %0000001010000000 PAUSE speed OUTS = %0000010001000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN Y: OUTS = %0000000011000000 PAUSE speed OUTS = %0000000100000000 PAUSE speed OUTS = %0000011000000000 PAUSE speed OUTS = %0000000100000000 PAUSE speed OUTS = %0000000011000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN Z: OUTS = %0000010001000000 PAUSE speed OUTS = %0000011001000000 PAUSE speed OUTS = %0000010101000000 PAUSE speed OUTS = %0000010011000000 PAUSE speed OUTS = %0000010001000000 PAUSE speed OUTS = %0000000000000000 PAUSE speed PAUSE tracking RETURN SPACE: OUTS = %0000000000000000 PAUSE speed*6 PAUSE tracking RETURN 'end of file