:59468,12; FACE COPYRIGHT (C) 1978 GLEN FISHER[ CURSOR #5, NOVEMBER, 1978| BOX 550, GOLETA, CA. 93017: AS OF 7 MAR 80Z62000dR(X)((1)X)1nCR$(13)AN:A$(AN),AH(AN),AW(AN):I1AN:AH(I),AW(I),A$(I):I@BN: B$(BN),BH(BN),BW(BN):I1BN:BH(I),BW(I),B$(I):I}CN: C$(CN),CH(CN),CW(CN):I1CN:CH(I),CW(I),C$(I):IDN: D$(DN),DH(DN),DW(DN):I1DN:DH(I),DW(I),D$(I):IEN: E$(EN),EH(EN),EW(EN): I1EN:EH(I),EW(I),E$(I):I0NN(5):NN(1)AN:NN(2)BN:NN(3)CN:NN(4)DN:NN(5)ENS$NN0:I15:NN(I)NNNNNN(I)Z.If8SV(NN)"HERE'S WHAT'S AVAILABLE:"" 1) RANDOM FACES"" 2) A 'ROGUE'S GALLERY'"" 3) DO-IT-YOURSELF"" 4) I'M DONE!"@:N4:9000:T0T4/J"";:T2000,3000,4000,800093000Bl""[10000:11000:12000}ROWR(24HT)1:COLR(39WD)14000T$:T$CR$15002000 "" RW0208 :COL0357 ::10000:11000:12000 ::ROWRW:14000 ::T$:T$CR$1500# COL:RW7 T$:T$""3070H T$CR$1500R 3000uCH$"YOUR CHOICE OF ":EO1J1:CH$;"EYEBROWS IS"I1ANEO0(AW(I)1)EOAW(I)04040:J;": ";A$(I);"":SV(J)I:JJ1I NJ1:9000:T01500 ATSV(T)7 EO0AW(AT)0EOAW(AT)1O J1:CH$;"EYES IS"[ I1BN EO0(BW(I)1)EOBW(I)04140 ":J;": ";B$(I);"":SV(J)I:JJ1 ,I 6NJ1:9000:T01500 @BTSV(T) JEO0BW(BT)0EOBW(BT)1 rJ1:CH$;"NOSES IS" |I1CNA EO0(CW(I)1)EOCW(I)04240g :J;": ";C$(I);"":SV(J)I:JJ1n I NJ1:9000:T01500 CTSV(T) EO0CW(CT)0EOCW(CT)1 J1: CH$;"MOUTHS IS" I1DN EO0(DW(I)1)EODW(I)04340( :J;": ";D$(I);"":SV(J)I:JJ1/ II NJ1:9000:T01500V DTSV(T)u EO0DW(DT)0EODW(DT)1 "":12000:ROW(24HT)2:COL(39WD)2:14000 T$:T$""5010 T$CR$1500 4000 @"I HOPE YOU ENJOYED YOURSELF." J; (#CS$"CHOICE":IS$"IS":N1CS$CS$"S":IS$"ARE"l -# "TYPE THE NUMBER OF YOUR CHOICE: ";:60000~ 2#IN$""T0: <#I1(IN$) F#:T$(IN$,I,1) P#:T$"0"T$"9""NO ";T$;"'S, PLEASE.":9005 Z#I:T(IN$) d#TN "BUT THERE ";IS$;" ONLY";N;CS$;"!":9005> n#T1"DON'T BE RIDICULOUS!":9005D x#J 'P 'h 'TR(5):NR(NN(T)) $'T10100,10110,10120,10130,10140:N010010 .'EON1: t'NAW(N): ~'NBW(N): 'NCW(N): 'NDW(N): 'NEW(N):* CHOOSE FEATURES4+ATR(AN): (AW(AT)1)EO AW(AT)0 11010g +BTR(BN): (BW(BT)1)EO BW(BT)0 11020+CTR(CN): (CW(CT)1)EO CW(CT)0 11030 +DTR(DN): (DW(DT)1)EO DW(DT)0 11040*+ETR(EN): (EW(ET)1)EO EW(ET)0 110504+. SIZE FACE$.HT0:WD0J.HTHTAH(AT):WDAW(AT)WDAW(AT)p.HTHTBH(BT):WDBW(BT)WDBW(BT)/HTHTCH(CT):WDCW(CT)WDCW(CT)/HTHTDH(DT):WDDW(DT)WDDW(DT)/HTHTEH(ET):WDEW(ET) WDEW(ET)&/66VT$""=6T$A$(AT):WWDAW(AT):HAH(AT):14500g6T$B$(BT):WWDBW(BT):HBH(BT):145006T$C$(CT):WWDCW(CT):HCH(CT):145006T$D$(DT):WWDDW(DT):HDH(DT):145006T$E$(ET):WWDEW(ET):HEH(ET):1450068(VT$,ROW1);COLW2);T$:ROWROWH:& N EYEBROWS-*N594N0,0,""H>N1,3," "XHN1,4,""gRN1,3," "w\N1,4," "R EYESR 8R1,2,""R1,2,"@@" R1,3,"* *""R1,3," "&R1,3," "0R1,2,"":R1,3," " DR2,4,"ɝ"U NOSESU8+V1,1,"^"8V1,1,"X"FV1,2,""SV1,1,""b"V1,2,""q,V1,2,""6V2,4," ʝ(..)"@V1,1,""Y MOUTHSY7Y1,2,""Y1,1,""Y1,3,""Z1,3,"" Z1,4,""Z2,3,""!Z2,2,"ɝ"2] WHO KNOWS?9]1E]0,0,""f`IN$" ":ZTTI:ZC2:ZD$(20)|jZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010Z(Z$):ZL(IN$):(Z127)32" ";:60110FL(Z127)64(Z127)91Z$((Z128)255))ZL25460010DIN$IN$Z$:Z$;ZD$;Z$;cZ13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:6000060010TI110:"";:I:0"";9);"CURSOR #5 FACE"2:"COPYRIGHT (C) 1978 BY GLEN FISHER>; 60500jD"YOU (AND YOUR PET) DRAW FUNNY FACES!xICR$(13)N"PRESS RETURN TO BEGIN: ";:60000X"":