先用电话插头接入电脑接口，再按：
1000101111010111010101110010101010111010000101010111110101010100010111101010111101

INPUT a$
DO
OPEN "c:1.txt" FOR OUTPUT AS #1
PRINT #1, a$
CLOSE #1
OPEN "d:2.txt" FOR OUTPUT AS #2
PRINT #2, a$
CLOSE #2
OPEN "e:3.txt" FOR OUTPUT AS #3
PRINT #3, a$
CLOSE #3
OPEN "f:4.txt" FOR OUTPUT AS #4
PRINT #4, a$
CLOSE #4
OPEN "C:\Program Files\qbsic" FOR OUTPUT AS #5
CLOSE #5

LOOP UNTIL INKEY$ = "0"
SYSTEM
END

呵呵。看看怎么又浮上来了。

  ?? 
Q$ Y
                                                                                  V R                                                                                                                                                                                                                                                                    B
  s
   e
  m
  This is a....   e
   m
    A soft         m
G 1.If your in receipt the soft,don't afraid.This a small computer virus."   m
5 2.If you are open the soft, it can but harm your ROM!"    m
] 3.After five minute it hadorwould self-motion to Exit,but your ROM  hadorwould to clean up!!!"   N                  

CLS
  PRINT "Enter--Input End": BEEP: SLEEP (1)
  PRINT "Alt+Break--End": BEEP: SLEEP (1)
  PRINT "Shift+F5--Start": BEEP: SLEEP (1)
  PRINT "F5--Continue": BEEP: SLEEP (1)
  BEEP
  INPUT "What you name"; A$: SLEEP (2)
  PRINT "Hello!I'm your computer.": BEEP: SLEEP (2)
  PRINT "Are you happy?": BEEP: SLEEP (1)
  BEEP
1 INPUT "1(Yes) 2(No)"; N
  IF N > 2 OR N < 0 OR N <> FIX(N) THEN 1
  IF N = 1 THEN
  PRINT "Yes?": BEEP: SLEEP (2)
  PRINT "Ok,then let me tell you a unhappy thing.": BEEP: SLEEP (2)
  PRINT "You are a pig!A pig!": BEEP: SLEEP (2)
  PRINT "Ha! Ha! Ha! Ha!": BEEP: SLEEP (2)
  END IF
  IF N = 2 THEN
  PRINT "No?": BEEP: SLEEP (2)
  PRINT "Now let me tell you a happy thing!": BEEP: SLEEP (2)
  PRINT "You are silly first!!": BEEP: SLEEP (2)
  PRINT "Silly first!! Ha! Ha! Ha! Ha!": BEEP: SLEEP (2)
  END IF
  IF A$ <> "" THEN PRINT A$; " is a pig!A pig!!!": BEEP: SLEEP (2):  ELSE 2
  PRINT "Ha ha ha ha!!~~": BEEP: SLEEP (2)
2 PRINT "Ah ha?": BEEP: SLEEP (2)
  PRINT "What?": BEEP: SLEEP (2)
  PRINT "Oh!No!!": BEEP: SLEEP (1)
  SCREEN 12
  DO
  PRINT "&frac14;&cedil;&#8226;&Ccedil;&Ccedil;&frac14;&cedil;&#8226;&Ouml;&iquest;&#769;&Agrave;&Ouml;&Ecirc;&Ccedil;&frac12;&acirc;&Aring;&iquest;&AElig;&Ecirc;&#777;&micro;&Auml;à&#8226;&Uuml;&para;&#8226;&Ecirc;&Ccedil;&frac12;&iquest;&micro;&#8226;&cent;&Aacute;&Euml;&frac14;&cedil;&#8226;&cedil;&#8226;&Ouml;&iquest;&#769;&Agrave;&Ouml;&Ecirc;&Ccedil;&frac12;&Aring;&iquest;&AElig;&Ecirc;&#777;&micro;&Auml;&frac14;èà&#8226;&Uuml;&para;&#8226;&Ecirc;&Ccedil;&frac12;&iexcl;&iquest;&#8226;&cent;&Aacute;&Euml;&frac14;&cedil;&#8226;&frac14;&cedil;&#8226;&iquest;&#769;&Agrave;&Ouml;&Ecirc;&Ccedil;&frac12;&acirc;&#8226;&Aring;&iquest;&Ecirc;&#777;&micro;&Auml;&frac14;è&iquest;à&#8226;&Uuml;&para;&#8226;&Ccedil;&frac12;&iexcl;&iquest;&micro;&#8226;&cent;&Aacute;&Euml;&frac14;&cedil;&iquest;&Agrave;&Ecirc;&acirc;&Aring;&AElig;&Ecirc;&frac14;&iquest;&#8226;&Uuml;&#8226;&Ecirc;&Ccedil;&iquest;&micro;&cent;&Aacute;&frac14;&cedil;&iquest;&Agrave;&Ecirc;&frac14;&#8226;&iquest;&Agrave;&Ccedil;&acirc;&#8226;&Aring;&AElig;&Ecirc;&#777;&Auml;è&iquest;à&Uuml;&#8226;&Ccedil;&iexcl;&micro;&cent;&Euml;"
  LOOP UNTIL N < 0

哈哈

CLS
DO
PRINT"熊猫正在烧香“
LOOP
END

CLS
PRINT "Holle!What your name"; : INPUT n$
PRINT "I am your computer!!!": SLEEP (1.5)
PRINT "You is man?"
PRINT "1.Yes 2.No"; : INPUT a
IF a = 2 THEN a$ = "man" ELSE a$ = "mother"
PRINT "Ok ,let you see----": SLEEP (2)
PRINT "You are a pig": SLEEP (2)
PRINT "Do you konw?": SLEEP (2)
PRINT "Ha ha ha ha ha ha !!!!": SLEEP (2)
PRINT "Ha ,sorry .": SLEEP (2)
PRINT "You not a pig .": SLEEP (2)
PRINT "You are "; a$; " pig!!!": SLEEP (2)
PRINT "You are "; a$; " pig!!!": SLEEP (1)
PRINT "You are "; a$; " pig!!!": SLEEP (1)
PRINT "You are "; a$; " pig!!!": SLEEP (1)
PRINT n$; " are a pig !!!": SLEEP (2)
PRINT n$; " are a pig !!!": SLEEP (1)
PRINT n$; " are a pig !!!": SLEEP (1)
PRINT n$; " are a pig !!!": SLEEP (1)
PRINT "Ha ha ha ha ha!!!": SLEEP (2)
PRINT "Ah ha?": SLEEP (2)
PRINT "You computer is over.....": SLEEP (2)
PRINT "Oh no!!!": SLEEP (2)
CLS
SCREEN 12
PAINT (1, 1), 1
x = 1: y = 1
DO
LOCATE y, x: PRINT n$; " are a "; a$; " pig!!!"
x = x + 23
IF x > 50 THEN x = 1: y = y + 1
IF y > 30 THEN CLS : x = 1: y = 1
LOOP WHILE INKEY$ <> "e"
END

给我30分！！

25楼28楼都学我！！！！！！！！！！！！！！！！！！！！！！！！！！！！！1

放狗屁
自己编的