摘要：
var i , x : Integer ; y :array[0..17] of byte ;begin y[0] := $fe ; y[1] := $fe ; y[2] := $fe ; y[3] := $fe ; y[4] := $68 ; y[5] := $99 ; y[6] := $99 ; y[7] := $99 ; y[8] := $99 ; y[9] := $99 ; y[10] := $99 ; y[11] := $68 ; y[12] := $1 ; y[13] := $2 ; y[14] := $2e + $33 ; y[15] := $90 + $33 ; x := 0 阅读全文