跪求贪吃蛇的QBASIC程序代码最好是以前文曲星上那种同时有好几种果子每种果连吃五个就有减长度。加分。。。。。等等接个的谢谢了

'我做的可没有那麽精致'见笑了DECLARE SUB SPrint (v$())'TanChiShe Games Version 1.0'Corpright KangQiao Work Room 2006'Thanks to play!'Http://www42.websamber.com/usakqOption Base 1Dim tsc(20, 80) As StringDim cmd(1000, 2) As IntegerDim wzh, wzl As IntegerDim fx, count, count1 As Integerwzh = 1: wzl = 1: count = 8: fx = 4: count1 = 1hhh = 3: kkk = 1On Error GoTo GameoverLOCATE 1, 1: Print Chr$(219): cmd(1, 1) = 1: cmd(1, 2) = 1LOCATE 1, 2: Print Chr$(219): cmd(2, 1) = 1: cmd(2, 2) = 2LOCATE 1, 3: Print Chr$(219): cmd(3, 1) = 1: cmd(3, 2) = 3LOCATE 1, 4: Print Chr$(219): cmd(4, 1) = 1: cmd(4, 2) = 4LOCATE 1, 5: Print Chr$(219): cmd(5, 1) = 1: cmd(5, 2) = 5LOCATE 1, 6: Print Chr$(219): cmd(6, 1) = 1: cmd(6, 2) = 6LOCATE 1, 7: Print Chr$(219): cmd(7, 1) = 1: cmd(7, 2) = 7ClsDo Select Case fx Case 1 'Up wzh = wzh - 1 Case 2 'Down wzh = wzh + 1 Case 3 'Left wzl = wzl - 1 Case 4 'Right wzl = wzl + 1 End Select tsc(wzh, wzl) = Chr$(219) cmd(count, 1) = wzh cmd(count, 2) = wzl For i = 1 To 88025 k$ = INKEY$ If k$ <> "" Then Exit For Next i If k$ = Chr$(0) + Chr$(72) Then If fx <> 2 Then fx = 1 Else GoTo Gameover If k$ = Chr$(0) + Chr$(80) Then If fx <> 1 Then fx = 2 Else GoTo Gameover If k$ = Chr$(0) + Chr$(75) Then If fx <> 4 Then fx = 3 Else GoTo Gameover If k$ = Chr$(0) + Chr$(77) Then If fx <> 3 Then fx = 4 Else GoTo Gameover tsc(cmd(count1, 1), cmd(count1, 2)) = " " SPrint tsc() If tsc(hhh, kkk) = "" Or tsc(hhh, kkk) = " " Then READ hhh, kkk tsc(hhh, kkk) = "*" End If count1 = count1 + 1 count = count + 1Loop'DataData 16, 10Data 10, 5Data 11, 10Data 20, 20Data 16, 10Data 10, 5Data 11, 10Data 20, 20Data 1, 10Data 1, 10Data 16, 10Data 10, 5Data 16, 10Data 10, 5Data 16, 10Data 10, 5Data 11, 10Data 20, 20Data 1, 10Data 11, 10Data 20, 20Data 1, 10Data 11, 10Data 20, 20Data 1, 10Gameover:EndSub SPrint(v$())For i = 1 To 20 For j = 1 To 80 LOCATE i, j Print v$(i, j) Next jNext iEnd Sub