5TEXT
10 pm$="FACER"
15FOR n=1 TO 4
20? CHR$(162)
25NEXT n
30 tb=16-INT(LEN(pm$)/2)
35? TAB(tb); pm$
40FOR n=1 TO 4:? CHR$(162):NEXT n
45? " HIT CONTROLER BUTTON TO PLAY"; CHR$(160)
50 iv=0: r=0
55NORMAL:IF iv=1 THEN INVERSE
60? " HIT"; CHR$(160)
65 c=0
70 c=c+1: r=r+1:IF (PDL(7)=0) AND (PDL(9)=0) AND (c<40) THEN 70
80IF c=40 THEN  iv=1-iv:GOTO 55
90 r=RND(-r)
92NORMAL
95CLEAR
100CLEAR
110GOSUB 1000
130GOSUB 1200
131GOSUB 1800
140? "WOULD YOU LIKE TO DRAW ANOTHER FACE?":? "(Y OR N)"
150GET a$
160IF a$="Y" OR a$="y" THEN 95
170TEXT
180END
1000HGR
1010HCOLOR =3
1020 ma=13
1030ROT =0:SCALE =1
1050RETURN
1200HOME
1202? "SELECT TYPE OF NOSE: (1-6)"
1205RESTORE
1210FOR r=1 TO 6
1220GOSUB 8000
1230 x=10+r*34: y=80
1240GOSUB 4000
1250NEXT r
1260 pd=PDL(13):IF pd=15 THEN 1260
1270IF pd>6 OR pd=0 THEN 1260
1280 no=pd
1300HOME
1301HGR:HCOLOR =1
1302? "SELECT TYPE OF EYES: (1-4)"
1310FOR r=1 TO 4
1320GOSUB 8000
1330 x=10+r*34: y=80
1340GOSUB 4000
1350NEXT r
1360 pd=PDL(13):IF pd=15 THEN 1360
1370IF pd>4 OR pd=0 THEN 1360
1380 ey=pd+6
1400HOME
1401HGR:HCOLOR =1
1402? "SELECT TYPE OF MOUTH:(1-5)"
1410FOR r=1 TO 5
1420GOSUB 8000
1430 x=10+r*34: y=80
1440GOSUB 4000
1450NEXT r
1460 pd=PDL(13):IF pd=15 THEN 1460
1470IF pd>5 OR pd=0 THEN 1460
1480 mo=pd+10
1500HOME
1501HGR:HCOLOR =1
1502? "SELECT TYPE OF MUSTACHE"
1503? "(1-2) OR (3-NONE)"
1510FOR r=1 TO 2
1520GOSUB 8000
1530 x=10+r*34: y=80
1540GOSUB 4000
1550NEXT r
1560 pd=PDL(13):IF pd=15 THEN 1560
1570IF pd>3 OR pd=0 THEN 1560
1580 mu=pd+15
1600HOME
1605HGR:HCOLOR =1
1607GOSUB 8000: x=100: y=80
1608GOSUB 4000
1610? "DO YOU WANT GLASSES?"
1620? "(1=YES,2=NO)"
1630 pd=PDL(13):IF pd=15 THEN 1630
1640 gf=0:IF pd=1 THEN  gf=1
1700HOME
1705HGR
1706FOR dl=1 TO 500:NEXT dl
1710? "CHOOSE SHAPE OF HEAD:"
1720? "(1-FAT,2-MEDIUM,3-THIN)"
1730 pd=PDL(13):IF pd=15 THEN 1730
1740IF pd=0 OR pd>3 THEN 1700
1750 fs=25+5*(4-pd)
1760RETURN
1800HGR:HOME:HCOLOR =1
1810 r=ey:GOSUB 2600
1812HCOLOR =14
1815 x=110: y=70:GOSUB 4000
1817 x=135: y=70:GOSUB 4000
1820 r=no:GOSUB 2600
1822HCOLOR =5
1825 x=129: y=83:IF no>4 THEN  x=134
1826GOSUB 4000
1830 r=mo:GOSUB 2600
1832HCOLOR =15
1835 x=122: y=134:IF mo=15 THEN  x=118
1836GOSUB 4000
1838IF mu=18 THEN 1846
1840 r=mu:GOSUB 2600
1842 i=0:IF r=16 THEN  i=10
1844HCOLOR =3
1845 x=122+i: y=124:GOSUB 4000
1846IF gf=0 THEN 1860
1850 r=18:GOSUB 2600
1852HCOLOR =9
1855 x=109: y=63:GOSUB 4000
1860GOSUB 1900
1880RETURN
1900HCOLOR =15
1905FOR ci=0 TO 3.14159 STEP .02
1910HPLOT 132+COS(ci)*fs, 90+SIN(ci)*65
1920NEXT ci
1930RETURN
2600RESTORE
2610FOR m=1 TO r
2620GOSUB 8000
2630NEXT m
2670RETURN
4000SCALE =1
4010DRAW 1 AT x, y
4020RETURN
8000 qs=1: pt=16766: tl=41000
8005 of=qs*2+3
8010 by=tl:GOSUB 8100
8015POKE pt, lo:POKE pt+1, hi
8020POKE tl, qs
8030FOR n=1 TO qs
8040 by=of:GOSUB 8100
8050POKE tl+n*2, lo:POKE tl+n*2+1, hi
8060READ a:POKE tl+of, a: of=of+1
8065IF a<>0 THEN 8060
8070NEXT n
8080RETURN
8100 hi=INT(by/256): lo=by-hi*256
8130RETURN
9553DATA    54,54,54,54,54,54,54,54,54,54,55
9556DATA    63,54,62,54,55,54,45,45,46,53,45
9559DATA    45,37,37,45,45,60,36,60,36,63,36
9562DATA    60,36,36,36,36,36,36,36,36,0
9588DATA    54,54,54,54,54,54,54,54,54,54,54
9591DATA    54,62,62,62,62,54,53,45,45,44,54
9594DATA    54,53,45,37,37,36,36,53,46,45,45
9597DATA    44,36,39,39,39,39,39,39,63,36,36
9600DATA    36,36,36,36,0
9626DATA    54,62,54,54,55,54,63,63,54,46,54
9629DATA    46,45,46,46,37,44,54,46,46,46,45
9632DATA    44,44,36,36,53,54,45,37,37,45,45
9635DATA    37,36,60,60,63,63,36,39,39,60,36
9638DATA    36,36,0
9664DATA    54,46,54,46,54,46,54,46,54,46,54
9667DATA    46,54,46,54,46,54,54,53,54,55,62
9670DATA    63,39,63,63,60,39,60,36,45,44,53
9673DATA    77,73,73,73,61,63,79,137,52,62,62
9676DATA    55,7,0
9702DATA    54,62,54,54,55,54,62,54,54,62,54
9705DATA    54,55,54,62,54,54,53,54,45,45,37
9708DATA    36,44,36,36,60,63,246,27,63,63,54
9711DATA    54,53,45,0
9737DATA    54,54,53,54,54,53,46,54,54,53
9740DATA    54,54,53,54,54,54,55,62,54,63,63
9743DATA    63,60,63,63,60,63,36,36,37,37,45
9746DATA    53,45,0
9772DATA    37,45,36,45,37,45,37,45,53,45,46
9775DATA    53,53,55,55,63,55,63,55,63,39,63
9778DATA    39,63,79,73,9,36,37,45,53,53,63
9781DATA    54,63,36,45,60,55,46,45,5,0
9807DATA    45,36,45,37,45,53,45,45,46,45,46
9810DATA    149,63,63,60,63,55,63,63,62,55,55
9813DATA    55,45,46,46,45,46,45,37,45,45,44
9816DATA    37,44,44,44,39,255,219,219,51,54,45
9819DATA    46,45,44,36,220,43,54,0
9845DATA    36,37,44,44,44,44,36,37,45,53,45
9848DATA    54,45,46,46,54,246,27,39,39,39,63
9851DATA    55,55,63,62,54,46,53,46,54,45,37
9854DATA    44,44,44,44,220,59,63,55,45,45,53
9857DATA   63,63,63,0
9883DATA   37,37,44,45,44,45,37,45,53,45,46
9886DATA   53,45,54,62,60,39,63,60,63,62,55
9889DATA   63,63,63,55,45,46,53,45,53,46,45
9892DATA   45,44,45,37,228,219,59,127,182,146,146
9895DATA   63,60,60,60,60,76,73,18,53,45,45
9898DATA   45,37,45,0
9924DATA   45,44,37,45,44,37,37,44,46,54,45
9927DATA   36,37,44,53,46,46,53,45,53,45,53
9930DATA   62,63,62,63,62,55,55,63,63,63,39
9933DATA   63,63,60,63,60,37,45,45,45,53,45
9936DATA   45,45,44,45,45,44,45,5,0
9962DATA   44,44,45,45,45,45,53,45,37,45,45
9965DATA   45,45,53,53,53,63,63,63,63,63,63
9968DATA   63,63,63,63,63,63,127,73,9,54,45
9971DATA   45,46,45,45,45,37,45,37,4,0
9997DATA   41,44,36,45,37,45,37,45,53,53,45
10000DATA   45,46,45,53,109,49,62,62,222,219,219
10003DATA   27,61,63,60,63,4,0
10029DATA   53,45,53,45,53,45,53,45,45,37,45
10032DATA   37,45,37,45,37,45,37,60,36,63,62
10035DATA   62,55,55,63,55,63,63,60,60,63,60
10038DATA   63,60,63,62,63,247,155,34,44,36,36
10041DATA   37,44,5,0
10067DATA   46,46,46,46,45,46,53,45,46,45,53
10070DATA   45,45,45,44,45,44,45,44,37,45,44
10073DATA   44,44,44,60,62,62,62,55,63,62,63
10076DATA   55,63,63,63,55,63,36,63,63,39,63
10079DATA   63,60,39,255,27,60,36,44,44,4,0
10105DATA   45,53,45,53,45,53,45,53,45,46,53
10108DATA   45,36,39,60,63,60,63,36,60,63,63
10111DATA   60,63,63,63,54,54,63,63,62,63,55
10114DATA   63,55,63,62,62,36,44,36,45,36,45
10117DATA   45,44,45,37,45,45,45,54,6,0
10143DATA   45,44,45,37,45,45,77,9,45,45,53
10146DATA   45,45,46,5,0
10216DATA   45,45,45,45,45,45,45,45,45,45,45
10219DATA   45,45,45,45,45,45,45,45,45,45,45
10222DATA   45,53,63,54,54,62,54,54,62,54,54
10225DATA   62,62,54,63,63,63,63,63,63,60,60
10228DATA   36,60,36,60,36,60,36,36,60,55,54
10231DATA   54,55,62,54,55,54,55,55,55,62,62
10234DATA   63,63,63,63,63,39,39,60,36,60,36
10237DATA   60,36,36,36,36,36,63,45,44,0
18050RETURN
