海泥根*
《不覺得 .. ...海泥根的MARKER一整個就暴帥嗎?!》
雖然不愛喝酒,但就是超愛那個標誌的!
還曾想過要到居酒屋偷拿他們那超大型海泥根看板~~~
當然最後是沒去啦!. . .
...哈~~有點後悔的說 --
前天學校辦了原逰會,最後一次了,感覺有點落寞. . .
..雖然是不太喜歡長榮啦------- 但..............
............總有點說不出的無力~~
感覺上高中生捱就這樣默默的結束了**
都是無能的教育部害的啦!還有可堊的原油漲價!!!!!!
原逰會完後還去威秀看了電影,本來要支持國片(海 角 七 億)的!
無奈沒趕上,只好看泰國鬼片{鬼4虐} 還不錯~~
四個不同的故事,最喜歡的就是第二個故事,雖然算是拍的最爛的一個,
但整體的節奏很不錯~ ~ ~ 最恐怖的大概是最後一個了,
. . .老公被搶走~~又被情敵害死的女人,镸的還很像人妖~ ~吪....
......光想就很可怕//
哈~~還遇到三個長榮的正妹??!可惜燈光太暗沒能好好觀察觀察?! 哈!!!
感覺上是很愜意的一天,
反正就是有點高興的一天啦!
最近心情都還不錯說 ~ ~ ~ 哈 難得 難得......................................
Today's Visitors: 0 Total Visitors: 17

/新/ 分類目錄(2)

Sealed (Feb 11)









1樓
1樓搶頭香
Sealed
2樓
2樓頸推
Dim a As Integer
Dim b(99) As Integer
Dim c As Integer
Private Sub Command1_Click(Index As
Integer)
a = Index
c = 0
End Sub
Private Sub Form_Load()
a = 99
b(0) = &H1
b(1) = &H2
b(2) = &H4
b(3) = &H8
b(4) = &H10
b(5) = &H20
b(6) = &H40
End Sub
Private Sub Timer1_Timer()
If c > 14 Then c = 14
Text1.Text = "current time:" & Time$
Out &H378, 0
Out &H37A, 4
Out &H37A, 0
If a = 0 Then
Out &H37A, 8
Out &H378, b(c)
End If
If a = 1 Then
Out &H378, 2 ^ c
Out &H37A, 4
Out &H38A, 0
End If
If a = 2 Then End
c = c + 1
End Sub