SCREEN 12

CLS
LOCATE 23, 33
PRINT "JoSoft Presents!"

PAINT (-100, -100), 1, 15
i = 359
s = 1
sc = 1
1 FOR x = 1 TO 359 STEP s
sc = sc + 1

IF sc >= 4 THEN sc = 4



'LOCATE 22, 33
'PRINT "JoSoft Presents!"

i = i - 3
IF i < 1 THEN i = 359
FOR t = 1 TO 100: NEXT t
'SLEEP 1
PAINT (-100, -100), 1, 15



PAINT (-49, -39), 1, 15


'<=================>
i% = 1
'<=================>

WINDOW (-160 / i%, -100 / i%)-(160 / i%, 100 / i%)
'PAINT (5, 5), 1, 15
'COLOR 14, 14
draw$ = "ta"
draw$ = draw$ + i$
draw$ = draw$ + "bu60 br60     l70 d10 r30 d60 l20 u10 l10 d20 r40 u70 r30 u10 bl110 l10 d70 r10 u30 r60 d20 l10 d10 r20 u40 l70 u 30 bd110 bl10 d10 r70 u10 l30 u60 r20 d10 bl30 bu20 d70 l30 bd10 br110 r10 u70 l10 d30 l20 bl50 bd10 r70 c2 d30 bl10 bu120"


'<--------------------------->`

LINE (-50, -40)-(50, 40), 15, B
LINE (-49, -39)-(49, 39), 0, BF


'<--------------------------->`
'PAINT (0, 0), , 15
'PAINT (100, 100), 15, 4
PAINT (0, 0), 0, 0


draw$ = "ta"
draw$ = draw$ + i$
draw$ = draw$ + "bu160 br160     l70 d10 r30 d60 l20 u10 l10 d20 r40 u70 r30 u10 bl110 l10 d70 r10 u30 r60 d20 l10 d10 r20 u40 l70 u 30 bd110 bl10 d10 r70 u10 l30 u60 r20 d10 bl30 bu20 d70 l30 bd10 br110 r10 u70 l10 d30 l20 bl50 bd10 r70 c2 d30 bl10 bu120"
OPEN "rotate.dat" FOR OUTPUT AS #1
WRITE #1, i, sc
CLOSE #1
OPEN "rotate.dat" FOR INPUT AS #1
INPUT #1, i$, sc$
CLOSE #1
draw$ = "ta"
draw$ = draw$ + i$
draw$ = draw$ + "s"
draw$ = draw$ + sc$
draw$ = draw$ + " bu60 br60  c15   l70 d10 r30 d60 l20 u10 l10 d20 r40 u70 r30 u10 bl110  l10 d70 r10 u30 r60 d20 l10 d10 r20 u40 l70 u 30  bd110 bl10 d10 r70 u10 l30 u60 r20 d10   bl30 bu20 d70 l30 bd10 br110  r10 u70 l10 d30 l20  bl50 bd10 r70  d30 br10 bu120"

'draw$ = draw$ + "bu30 bl30"

DRAW "C2 X" + VARPTR$(draw$)


'DRAW "BD30 P1,2 C3"
'm$ = i$
'draw$ = ""
'h$ = m$




NEXT x
GOTO 1