RANDOMIZE TIMER
DIM x(1800), y(1600), a(1000)
t1=215
t2=240
c=1

SCREEN 12
COLOR 11
PRINT
SCREENP$ = " " + COMMAND$
IF screenp$=" " THEN screenp$=" Screenplay by Alphaman"
PRINT screenp$
GET (0,15)-((len(screenp$)*9),35),a
cls
FOR i% = 1 to 70
    x(i%) = int(640*rnd)+1
    y(i%) = int(480*rnd)+1
    PSET (x(i%), y(i%)), 7
NEXT i%

FOR i% = 71 TO 100
    x(i%)=int(640*rnd)+1
    y(i%)=int(480*rnd)+1
    PSET (x(i%), y(i%)), 15
NEXT i%

starm:

FOR i% = 1 TO 70
    PSET (x(i%), y(i%)), 0
    decr x(i%),5
    IF x(i%) < 1 OR y(i%) < -1 THEN x(i%) = 640 : y(i%) = INT(480*RND)+1
    PSET (x(i%), y(i%)),7
NEXT i%

FOR i% = 71 TO 100
    PSET (x(i%), y(i%)), 0
    DECR x(i%),10
    IF x(i%) < 1 OR y(i%) <- 1 THEN x(i%) = 640 : y(i%) = INT(480*RND)+1
    PSET (x(i%), y(i%)), 15
NEXT i%

A$ = INKEY$
IF A$ <> "" THEN END
IF t1 < 3 THEN t11=0
IF t2 < 3 THEN t22=0
IF t1 > 630 - (LEN(screenp$)*9) THEN t11=1
IF t2 > 450 THEN t22=1
IF t11 = 0 THEN INCR t1,2-(int(2*rnd)/10)
IF t11 = 1 THEN DECR t1,2-(int(2*rnd)/10)
IF t22 = 0 THEN INCR t2,3-(int(3*rnd)/10)
IF t22 = 1 THEN DECR t2,3-(int(2*rnd)/10)

PUT (t1,t2),a,PSET
INCR p,1
IF p > 17 THEN p = 1
FOR i% = t1 TO t1+177
    IF point(i%,t2+p)=1 THEN PSET(i%,t2+p),9
NEXT i%
GOTO starm