'波的干涉示例
' This program was madden by Mandark. Year 1998
' If you like this program and want to contact me, please mail me at:
' alef@cvtci.com.ar
' Ask for the Programmers "Mail_Ring". I want to begin one.
f = 1
v = 1
c = 16
SCREEN 13, 1
INPUT "Step time:",st$
WHILE INKEY$ = ""
  FOR II=1 TO val(st$)
  next II
  c = c + 1
  v = v + f
  FOR i = 1 TO 2
    CIRCLE (200 + i, 50), v, c
    CIRCLE (100 + i, 150), v, c
    CIRCLE (100 + i, 50), v, c
    CIRCLE (150 + i, 100), v, c
    CIRCLE (200 + i, 150), v, c
    IF c = 60 THEN c = 16
    IF v > 100 THEN f = -1
    IF v < 1 THEN f = 1
  NEXT i
WEND

干嘛啊，这也COPY？

CLS
DEF SEG = &HB800
FOR i = 0 TO 254 STEP 2
  POKE i, 49
  POKE i + 1, i + 1
NEXT i
DEF SEG
END

111