' 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
WHILE INKEY$ = ""
SCREEN 13, 1
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