'===========================================================================
' Subject: OLD FILM STRIP LIKE INTRO         Date: 07-12-99 (19:58)       
' Author:  The ABC Programmer                Code: QB, QBasic, PDS        
' Origin:  voxel@edmc.net                  Packet: DEMOS.ABC
'===========================================================================
' Old film strip like intro

CLS
SCREEN 13
SLEEP 1
CIRCLE (160, 100), 127, 27, , , 1 / 1.3
PAINT (1, 1), 25, 27
PAINT (160, 100), 27

CIRCLE (160, 65), 45, 17, 5.1, 2.3
CIRCLE (160, 135), 45, 17, 4, 1.2
CIRCLE (160, 68), 30, 17, 4.7, 2.3
CIRCLE (160, 132), 30, 17, 4, 1.55
LINE (160, 94)-(160, 107), 17
LINE (130, 37)-(139, 51), 17
LINE (130, 162)-(139, 151), 17
PAINT (135, 40), 22, 17

SOUND 600, 1
SLEEP 1
PAINT (135, 40), 27

CIRCLE (160, 70), 45, 17, 5.3, 3
CIRCLE (160, 70), 30, 17, 5.2, 3
LINE (173, 93)-(122, 144), 17
LINE (184, 102)-(140, 144), 17
LINE (140, 144)-(205, 144), 17
LINE (205, 144)-(205, 155), 17
LINE (205, 155)-(122, 155), 17
LINE (122, 144)-(122, 155), 17
LINE (115, 66)-(130, 68), 17
PAINT (180, 150), 22, 17

SOUND 600, 1
SLEEP 1
PAINT (180, 150), 27

LINE (150, 30)-(175, 30), 17
LINE (175, 30)-(175, 140), 17
LINE (150, 30)-(130, 50), 17
LINE (130, 50)-(130, 60), 17
LINE (130, 60)-(150, 60), 17
LINE (150, 60)-(150, 140), 17
LINE (150, 140)-(120, 140), 17
LINE (175, 140)-(205, 140), 17
LINE (120, 140)-(120, 153), 17
LINE (205, 140)-(205, 153), 17
LINE (120, 153)-(205, 153), 17
PAINT (160, 100), 22, 17

SOUND 600, 1

FOR X = 1 TO 200
  CIRCLE (160, 100), X, 0
  CIRCLE (161, 100), X, 0
NEXT X