5 DIM SX%(100),SY%(100)
10 CLS:KEY OFF :SCREEN 1:COLOR 0,0
11 GOSUB 800
20 EYE=0:X=150:Y=100:A=0:B=2*3.14:D=1:S1=5:CL=3:GOSUB 300
25 TW=2:GOSUB 900
30 EYE=0:X=230:Y=25:A=0:B=2*3.14:D=-1:S1=10:CL=2:GOSUB 300
35 TW=3:GOSUB 900
40 EYE=0:X=125:Y=30:A=0:B=2*3.14:D=1:S1=2:CL=1:GOSUB 300
45 TW=1:GOSUB 900
50 EYE=0:X=150:Y=160:A=0:B=2*3.14:D=1:S1=15:CL=3:GOSUB 300
55 TW=2:GOSUB 900
70 EYE=1:X=125:Y=100:A=-3.14-.7:B=-3.14+.7:D=1:S1=5:CL=2:GOSUB 300
75 TW=0:GOSUB 900
80 EYE=0:X=200:Y=150:A=0:B=2*3.14:D=-1:S1=5:CL=1:GOSUB 300
85 TW=5:GOSUB 900
130 EYE=1:X=200:Y=100:A=-.7:B=-2*3.14+.7:D=-1:S1=10:CL=2:GOSUB 300
135 TW=3:GOSUB 900
299 GOTO 600
300 I1=1:J1=(1+1/5)^2
310 FOR I=1 TO 75 STEP S1
320 J=D*(1+I/5)^2
330 GOSUB 400
331 PSET(SX%(KK),SY%(KK)),0
332 SX%(KK)=INT(319*RND):SY%(KK)=INT(199*RND):PSET(SX%(KK),SY%(KK)),3
333 KK=KK+1:KK=KK MOD 100
340 NEXT I
350 GOSUB 500
360 RETURN
400 CIRCLE(X1-J1,Y1),I1,0,A,B,1
410 IF EYE=1 THEN CIRCLE(X1-J1,Y1-I1\2),I1/10,0,,,1
415 I1=I:J1=J:X1=X:Y1=Y
420 CIRCLE(X-J,Y),I,CL,A,B,1
430 IF EYE=1 THEN CIRCLE(X-J,Y-I\2),I/10,CL,,,1
440 RETURN
500 CIRCLE(X1-J1,Y1),I1,0,A,B,1
510 IF EYE=1 THEN CIRCLE(X1-J1,Y1-I1\2),I1/10,0,,,1
520 RETURN
600 TW=3:GOSUB 900
651 LOCATE 11,16:PRINT"         "
652 LOCATE 12,16:PRINT"  I B M  "
653 LOCATE 13,16:PRINT"         "
655 LOCATE 14,16:PRINT" PC LAND "
656 LOCATE 15,16:PRINT"         "
670 TW=5:GOSUB 900
690 GOSUB 1000
700 RUN"LANDSEQ
750 CIRCLE (155,100),G,2,,,12/13
751 RETURN
800 FOR L=1 TO 100
810 SX%(L)=INT(319*RND):SY%(L)=INT(199*RND):PSET(SX%(L),SY%(L)),3
820 NEXT L
825 KK=1
830 RETURN
900 TT$=TIME$
910 T1=(3600*VAL(MID$(TT$,1,2)))+(60*VAL(MID$(TT$,4,2)))+VAL(MID$(TT$,7,2))
920 TT$=TIME$
930 T2=(3600*VAL(MID$(TT$,1,2)))+(60*VAL(MID$(TT$,4,2)))+VAL(MID$(TT$,7,2))
931 PSET(SX%(KK),SY%(KK)),0
932 SX%(KK)=INT(319*RND):SY%(KK)=INT(199*RND):PSET(SX%(KK),SY%(KK)),3
933 KK=KK+1:KK=KK MOD 100
934 FOR L=1 TO 50:LL=LL*1:NEXT L
935 G=G+1:GOSUB 750
940 IF T2-T1