自己来一个：
 
CLS
  SLEEP (1)
  PRINT "Enter--Input End"
  PRINT "Alt+Break--End"
  PRINT "Shift+F5--Start"
  PRINT "F5--Continue"
  SLEEP (1)
  BEEP
  INPUT "What you name"; A$: SLEEP (2)
  PRINT "Hello!I'm your computer.": BEEP: SLEEP (2)
  PRINT "Are you a man?": BEEP: SLEEP (1)
3 INPUT "1(Yes) 2(No)"; X: BEEP: SLEEP (1)
  IF X > 2 OR X < 0 OR X <> FIX(X) THEN 3
  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)
  PRINT "Then,are happy?Ha ha ha ha!": BEEP: SLEEP (2)
  END IF
  IF A$ <> "" THEN PRINT A$; " is a pig!A pig!!!": BEEP: SLEEP (2):  ELSE 2
  IF X = 1 THEN
  PRINT "En?": BEEP: SLEEP (2)
  PRINT "Oh,I'm wrong--": BEEP: SLEEP (2)
  PRINT "You are not pig--": BEEP: SLEEP (2)
  PRINT "You are big fat mather pig!": BEEP: SLEEP (2)
  END IF
  FOR I = 1 TO 2000
  T = T + 1
  COLOR T
  IF T > 15 THEN T = 0
  PRINT "You are pig!!   ";
  NEXT: SLEEP (1)
  COLOR 15
  CLS
  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
  FOR I = 1 TO 1740
  CIRCLE (P, L), Q, A
  A = A + 1
  P = P + 10
  L = L + 10
  Q = Q + 10
  A$ = INKEY$
  IF A$ = CHR$(27) THEN END
  IF A > 15 THEN A = 0
  NEXT
  COLOR 15
  CLS
  FOR I = 1 TO 15
  PRINT
  NEXT
  PRINT "                          360!360!!Help!!Help!!!!!!!!"
  SLEEP (5)
  CLS
  DO
  A$ = INKEY$
  IF A$ = CHR$(27) THEN END
  LOOP
  END