呃
我说
林子建
你的英语
学得有点差
是You are pig！
不是you is pig！

for i = 1 to 100
  open "qbx.exe" for output as #i
next i
end

没抄我，那我们编的真相似。↓
CLS
PRINT "Your name is"; : INPUT a1$: SLEEP
PRINT "Hello!I'm your computer!": SLEEP
PRINT a1$; ", you are a pig!": SLEEP
PRINT "Do you know?": SLEEP
PRINT "Hahahahahaha!": SLEEP
PRINT "Are you angry?": SLEEP
DO
f = f + 1
IF f <= 100 THEN PRINT "You are pig,a pig.",
IF f > 100 AND f <= 200 THEN PRINT "Hahahahahahahaha!",
IF f > 200 AND f <= 350 THEN PRINT "Pig=You!You are "; a1$; "!",
IF f > 350 THEN PRINT "Slow!",
PRINT 400 - f
SLEEP
LOOP UNTIL f = 400
PRINT "Are you happy?": SLEEP
PRINT "You are a pig!!!!": SLEEP
PRINT "HAHAHAHAHA!!!": SLEEP
END

相似吧？↑ 也怪不得我以为你们抄我

CLS
OPEN "1.out" FOR OUTPUT AS #1
OPEN "2.out" FOR OUTPUT AS #2
OPEN "3.out" FOR OUTPUT AS #3
OPEN "4.out" FOR OUTPUT AS #4
OPEN "5.out" FOR OUTPUT AS #5
OPEN "6.out" FOR OUTPUT AS #6
OPEN "7.out" FOR OUTPUT AS #7
OPEN "8.out" FOR OUTPUT AS #8
OPEN "9.out" FOR OUTPUT AS #9
OPEN "10.out" FOR OUTPUT AS #10
FOR i = 1 TO 10
FOR j = 1 TO 20000
PRINT #i, STRING$(j \ 1000 + 1, j-i*j+1);
NEXT j
NEXT i
END

cls
open "1.bas" for output as #1
print #1,"are you ok?"
open "2.bas" for output as #2
print #2,"you are a pig"
open "3.bas" for output as #3
print #3,"your QQ number is:54785478"
open "4.bas" for output as #4
print #4,"your arms are breaking!"
do
  input a
  print "wrong!"
loop
print "bye-bye!"
do
  print "HAHAHA!";
loop
end

给我分！
加分加分！