***MAKING FACES***!6 BY: STAN TAKISQ 1900 BURKLEY RD.q WILLIAMSTON, MI 48895w853281,1:53280,8: "";=" MAKING FACES">" SELECT ONE: 1. YOU CHOOSE ?" 2. COMPUTER CHOOSES0 BK$:K$""1090G LK$"2"FG1:1120Y VK$"1"1090b `""m j LOOP t 1220: CALL PRINT OUTLINE y 4000: CALL CHOOSE HAIR ~ 1430: CALL CHOOSE EYES  2200: CALL CHOOSE NOSE  2760: CALL CHOOSE MOUTH4 "  "c " " " PRESS  F7 TO MAKE ANOTHER FACE " " PRESS 'Q' TO QUIT " AF$:AF$""1195 AF$""1120 AF$"Q""": 1195  1130: ENDLOOP7  PROC PRINT OUTLINEA ""` " η " " " " " " " " " " "/ " ͥ "T " "y (" " 2" ͥ " <" " F" " P" "( Z" "H d" "g n" ͯ " x" y" " : ENDPROC  :  PROC CHOOSE EYES FGN((1)12):1460"CHOOSEEYES"D "1. SPECS 4. SHADY 7. CLOSED 0. SHADES"t "2. SAD 5. WORRY 8. MAD +. CROSS " "3. CLOWN 6. SHY 9. WILD -. JOLLY "N$:N$""1453(N$)43N10:1460(N$)45N11:1460(N$)48(N$)571453N(N$)""dN11480,1550,1620,1690,1760,1830,1900,1970,2040,2080,2090,2110j8)""12)"  "12)"  "12)"  "12)"η η""6)"ηηͯ"),11)"ͯ ͯ"A612)"ͯ ͯ":`T10)"ߒ "x^11)" "h11)"<ח> <ח>"r11)" ":12)"ηη"12)" "12)" " 12)" """:+12)"η η"A12)" "W12)" "m12)"ͯ ͯ"s&11)"  "014)" ":l12)" "v12)" "12)"̯ ̯"::10)"ͯ ͯ"+11)" "1C14)""S15)""i 13)"<> <>":o 11)" ߒ ""10)" ߒ "$9)"ΣߒΣ"%9)" "'11)"ͯ ͯ" ("":#*11)" "=,9)" η η"Y.9)"< >"v/9)" ͯ ͯ ":>9)" ΗH10)" R10)"  ߒ\10)"  p"": ENDPROC : PROC PRINT NOSE8FGNU((1)12):2230e"CHOOSENOSE" "1. LUMPY 4. ROMAN 7. BUTTON 0. BROAD " "2. SKINNY 5. BROKEN 8. PIG +. LONG " "3. CLOWN 6. SLOPE 9. PUNK -. CHERRY" NU$:NU$""2223&(NU$)43NU10:2230A(NU$)45NU11:2230_(NU$)48(NU$)572223mNU(NU$) ""NU12250,2300,2350,2400,2460,2500,2550,2581,2590,2600,2650,270014)" 13)"(ɯ)" 15)" " 15)""- 14)" "? 14)""E$ S. 16)""a8 16)""qB 15)"()"L 16)"":` ""j 15)" "t 15)" "~ 15)" ": 17)"" 17)"" 15)"()"  16)" "  17)"" 15)" "/ 15)"":5 B 16)""O 17)""a 15)"( )":g m  15)"(..)":  14)"η" 14)" ק"! 14)"ͯ":( - 16)""2 15)" "7 11)"ѯ": Z 15)" d 16)" ͯ6n 17) "ͯ<x K 15)"η` 14)"( )o 15)"ͯu  ENDPROC PROC CHOOSE MOUTH FGNM((1)12):2790 "CHOOSEMOUTH" "1. BUCK 4. SUAVE 7. LIPS 0. SMILE"D "2. FROWN 5. TEETH 8. TONGUE +. AIEEE"s "3. CLOWN 6. WHIS'L 9. OPEN -. BEARD" NM$:NM$""2783 (NM$)43NM10:2790 (NM$)45NM11:2790 (NM$)48(NM$)572783 NM(NM$) ""H NM12810,2860,2920,2970,3030,3090,3160,3220,3280,3340,3380,3390^ 12)" "r 13)"ͯ" 14)"ͯ" , 14)""6 14)" "@ 15)"ͧ"J 16)"":h r 14)"η"| 13)" "   13)"". 13)""B 13)""H ] 14)"  "s 12)"" 20)"" 14)" " 22)"": 11)"" 11)""& 12)""0 13)"":X b 16)""#l 16)"") ; 15)"ߩ"N 14)" "b 14)""m "": 13)"  13)"ݧΥ" 13)"  14)"͖ " 15)"" 16)"": 15)"" 14)"" 14)" "'* 14)"ͯ":;4 12)" зQ6 12)" f7 12)"ݶ~8 12)"":> "";:I12:7)"":? 7)" @ 7)"Η˛ A 7)"(B 7)"EC 7)"aD 7)"|E 7)"F 7)"͗":H ENDPROC PROC CHOOSE HAIRFGH((1)12):4060"CHOOSEHAIR"6"1. BRUSH 4. GREASE 7. LONG 0. AFRO "e"2. CURLS 5. CAP 8. HAT +. YEOW ""3. CLOWN 6. BALD 9. PUNK -. SANTA"H$:H$""4030(H$)43H10:4060(H$)45H11:4060(H$)48(H$)574030 H(H$) ""P H15000,5010,5020,5030,5040,5050,5060,5070,5080,5090,6000,6100V  13)"@@@@@@@@@@@@@@@@@@@@" 10)"@@@@@@@@@@@@@@" 9)"@@@@"8)"@@@@" 7)"@@@@"12)"@@@@" 6)"@@@@"14)"@@@@" 6)"@@@@"14)"@@@@"!6)"@@@"16)"@@@"*!7)"@@"16)"@@"=!8)"@"16)"@"C!Y!12)""_!!12)"@@@@@@@@@@@@@@@@@@@@@@@@"!8)"@@@@@ @@@@@ @@@@@@"!7)"@@@@@ @@ @@@@@"!5)"@@@@@@ @ @@@@@@" "" @@@@@@"16)"@@@@@@"-"" @@@@@@@@"14)"@@@@@@@@"J"" @@@@@@"16)"@@@@@@"f"" @@@@@@"18)"@@@@@@""" @@@@@@"16)"@@@@@@""T12:" @@@@@"16)"@@@@@"::"":"9)"""7)"" #5)""8)""-#3)""10)""N#3)""12)""i#5)""14)""#7)""14)"":#12)" ߩ "#11)" "#10)" "10)" "#9)" "12)" "#8)" "14)" "$7)" "16)" "'$7)" "16)" "<$8)" "16)" "Q$8)" "16)" "W$y$16)" "$11)" D "$11)" "$$::$T13:7)""10)"Η":$%12)" "2%11)""L%10)""g%9)""%8)""%7)""%T19:4)" "14)" ":%6)""12)""&6)""10)""2&T12:6)""6)""::"":J&12)" "c&11)" "&"  "&10)""12)""&9)""14)""&8)""16)""&7)""18)""&&12)""'10)""-'8)""H'6)""12)""f'" "14)""'" "16)""'' ENDPROC'p" 'z" (" %(" H(" m("  "(" ":("  ("  ߒ "("  ߗ)" η "?)" ͯ":