PERSONALIZED GRAPHICS AND TEXT MATERIALS, APPARATUS AND METHOD FOR PRODUCING THE SAME

Abstract: A computer controlled colour graphics printer (16) which responds to input of personal information to provide an output of both personalized text and graphics which may be in the form of a greeting card, a poster or the like. The apparatus includes an input device such as a card reader (11) which responds to personalized data indicated on a card (30) by a customer or user, and means for storing temporarily the personalized data. The apparatus includes means for inputting (11, 12) and storing at least one standard pictorial background display plus appropriate text. The apparatus includes further means (10) for converting the personalized data inputted by the card reader (11) into control signals for pictorial as well as text production appropriate to the background selected and the personalized data inputted. The apparatus includes pictorial and textual output means (16) which respond to the combination of background and personal data input to produce a personalized pictorial and textual document. The method of this invention involves the recording of personalized data, the storage of at least one standard data which includes pictorial information, the method of converting at least some of the personalized data into pictorial representations, combining the standardized pictorial and textual data with the personalized converted pictorial data plus textual data and printing a pictorial and textual product containing the appropriate mixed standard and personalized data.

Description: PERSONALIZED GRAPHICS AND TEXT MATERIALS, APPARATUS AND METHOD FOR PRODUCING THE SAME BACKGROUND OF THE INVENTION Heretofore, one seeking to present a friend or associate with a greeting • card or a posted has the following choices: 1) If he has sufficient creative and artistic talent, he may take a blank card form or a poster and draw and letter an appropriate message, caricature, pictorial display or whatever is desired; or 2) He can seek out a greeting card or a poster retailer and look through the hundreds of choices of cards, attempting to find one which is appropriate for the occasion, and particularly for the recipient. Few fall into the first category and can make their own acceptable cards, and those who do truly find their talent appreciated, but most of all a great amount of time is expended in not only the creative but in the artistic aspects of making a card. Such activity is reserved by those who have that ability for very special occasions and persons. Most of us fall into the second category and have noted the frustration in attempting to find an appropriate card. In the case of children, one type of personalized gift has been developed which is sometimes referred to as the "ME" book. These are picture books for very young children in which the name of the child and perhaps his address or the name of his pet are injected into the text of a book, which is then printed and bound in conventional form. These "ME" books have received a degree of acceptance, however, they are hardly appropriate for adults and because of the high degree of standardization, allow only a few words to be personalized, and have a relatively short term interest for the recipient. The U.S. Patents Nos. 3,892,427 and 3,982,744 disclose a process for manufacturing the "ME" type books and illustrate clearly that the insertion of the personalized textual material must be accomplished in the book printing environment. Consequently, "ME" books are usually purchasable from the manufacturer or publisher by mail with a substantial time delay between ordering and receipt. BRIEF STATEMENT OF THE INVENTION Faced with this state of the art, we set out to produce documents which are personalized in both the pictorial and textual backgrounds. The apparatus includes means for converting personalized data such as height, build, sex, hair line and the like into control signals for producing a pictorial figure having physical characteristics similar to the personalized data introduced into the system. The apparatus also includes means for introducing personalized text into standard text and for combining this resulting personalized text with the appropriate pictorial background. We devised a method employing a standard microprocessor which is programmed to provide the storage and combining functions after personalized data is introduced into the system by, temporary storage by the purchaser or user on a storage medium such as a punched card. BRIEF DESCRIPTION OF THE DRAWING This invention may be more clearly understood from the following detailed description and by reference to the drawing in which: Fig. 1 is a simplified physical layout of a system of this invention; Fig. 2 is a block diagram of the system of Fig. 1; Fig. 3 is a reproduction of one form of input device, namely a codable card for inputting personalized data; Fig. 4 is an example of a sports favorite pictorial representation to be controllably inserted into the standardized background under the control of the computer of this invention; Fig. 5 is an example of personalized text to be inserted into the standardized text of the control in the computer in accordance with this invention; Fig. 5A is an example of standard text to be personalized; Fig. 5B is an example of standardized background; Fig. 6 is a flow diagram of the computer operation of this invention; Fig. 6A is a flow diagram of the entire process of this invention; Fig ' . 7 is an example of an overall. DETAILED DESCRIPTION OF THE INVENTION In contrast to prior systems for producing personalized books, we have determined that it is possible, employing a microprocessor based computer system, to develop a system capable of not only text personalization, but graphic personalization, as well in producing books, posters, greeting cards and the like. This is accomplished employing the microcomputer system shown in Fig. 1, comprised of basically the microprocessor based computer 10, having two inputs per example from card reader 11 and keyboard 12 of a respective cabling or other links 13 and 14. The computer 10, for example, may be Z80 CPU chip based, and communications may be by RS 232C ports. We have found that the S100 bus system. Model 2200 of California Computer Systems, Inc. of Sunneyvale, California is particularly suited for this use. It affords the flexibility to allow the same basic computer system, by the addition of operating cards, to provide a broad variety of signal processing. This makes it possible to combine personalized text and pictorial information with fixed backgrounds and text. The input device 11 may be a Micro Mark 1 card reader produced by the True Data Corporation of I-rvine, California. The manual input device keyboard 12 may be any of a number of standard keyboards, but we have found that the 'Netronics keyboard produced by Netronics R&D, Ltd. is satisfactory for our purpose. The output of computer 10 over cable 15 is reproduced on plotter 16 which may, for example, be a Bausch & Lombe, Huston Instruments Division, DMP 29 eight pen plotter. The plotter 16 is designed to receive paper up to 11 by 17 inches in size, blank or preprinted, and to move any one of the series of eight pens of different colors from holders, unshown in the drawing, by carrier 21 to positions on the plotting surface 22, to imprint any of eight different colors in patterns as controlled by the computer 10. As here described, the computer system is made up of standard components and becomes specialized on the additional plug-in firmware represented on boards 23. The system of this invention is interactive to guide the operator in the proper inputs to the computer and as such uses a monitor 24 which is viewed by the operator while sitting at the keyboard 12. Instructions such as " insert data card" appear on the screen at the beginning of the sequence, and if the data card is correctly read by the card reader 11, a message such as "card data entered" will appear on the screen. Now referring to Figs. 2 and 3, the apparatus of this invention may be more clearly understood and illustrates that the input device, namely card reader 11, is furnished with coded card 30 of the type illustrated in Fig. 4. The user has blackened out appropriate squares as in the case of Fig. 3. He has punched out perforations, in the case of a punched card reader 11. In this case, the reader of the optical type is preferred and used. Data is- likewise enterable on the keyboard 12 and therefore in Fig. 2 the normal direct data source is indicated by the solid arrow with the alternate data source indicated by the dashed arrow. Both the card reader 11 and the keyboard 12 provide personalized data to the computer 10 into which the plurality of firmware cards may be inserted to vary the type of output product produced. The firmware cards are represented in Fig. 1 by the reference numeral 17 but actually are within the computer housing 10, and are associated with the particular preprinted background or backgrounds 31 as of the types shown in Fig. 7 which are inserted into the plotter 16 prior to plotting. Note that a buffer 32 is connected between the computer 10 and plotter 16. This buffer has, for example, 64 bytes of memory and is used because the computational speed of the computer lø is greatly in excess of the speed of plotter 16. The computer 10 is capable of driving more than one plotter on a time share basis and for that reason a second buffer, 32A, indicated in dashed lines, and second or optional plotter, 16A, may be used with the system. The computer 10 may easily drive three plotters. During data input computation and throughout the entire process, the monitor 24 provides information to the operator. When the plotting is finished, the final product 34 is a standard pictorial background interspersed with standard text which is modified by the presence of personalized text and personalized foreground pictorial information. The interrelationship of the standard and personalized information is best illustrated by reference to Fig. 5B. In this figure, a small portion of the preprinted pictorial background of Fig. 7 is shown. The entire document as illustrated in Fig. 7 includes a number of sections, one of which relates to sports and hobbies. Now referring specifically to Fig. 3, a card 30 is shown in a form which is in part readable by eye and in part optically read by card reader 11 of Figs. 1 and 2. The card 30 includes lines for introducing the name of the subject of the card as has been done, in this case, SEAN, and other personalized data such as his birthdate are shown entered manually by pen or pencil. A number of personalized data are entered in the card by blacking out the appropriate choice, the first choice being three age categories; the second category for gender allows, of course, two selections. In this manner, the caricature, which will be printed, bears a certain relationship to the subject, specific enough that the person may be recognizable or at least recognized as represented in caricature. Also, it should be noted that a number of the selections and the general tone of the examples are humorous since this system is most frequently desired to produce a humorous type of poster, card or other form of presentable material but is not so limited. In addition to the data related to the physical charaσterstiσs of the subject, in this particular example, a sport or hobby is selectable. The demonstration and explanation of the operation of the invention is given where the subject or the giver of the presentation has selected each of the characteristics noted by the blackened in boxes on the card 30, and also has selected racquet sports as the sport or hobby of the subject. The optical reader 11 of Figs. 1 and 2 is designed to scan a card which is inserted in its appropriate opening and register the data positioned aligned with any one of the optical index marks 30A appearing on the left hand margin of card 30. The card reader 11 therefore makes no attempt to read the handwritten name or birthdate or the demonstration block appearing toward the top of the card. The handwritten data is introduced into the computer 10 of Figs. 1 and 2 via keyboard 12. Stored in the memory of the computer 10, particularly in the firmware 17, are directions to the plotter to plot a large number of physical characteristic shapes which are associated with the selections made on card 30. As an example, in the case of noses, twelve different noses of various sizes and shapes, have been stored including directions for their location in the pictorial printout. These noses appear as a part of Fig. 4 below the card 30. In this case, card 30 has been marked with a small nose of a male under 18 and the equivalent of Cauσasion. Those criteria along with the particular sport selected, in this case racquet sport, denote that the encircled nose is appropriate. Similar selections are made for eye, mouth, chin and ear from stored pictorial data. The hair, denoted by the reference 76, has been selected on the basis of the sex, age, type, length and color of hair as well as the sport. As is apparent in Fig. 4, as partial figure holding a racquet, wearing a visor, in appropriate attire and about to be struck by a ball, has likewise been stored. The stored partial figure is selected on the basis of the sport selected as well as sex and in certain cases, age. Th e size and shape of the partial figure and the blank areas left are selected and determined in order that each of the components making up a caricature, in this case the hair-, eye, nose, mouth, chin and ear, all fit within the appropriate open space to complete the partial figure of a racquetball player. Likewise, the outline shape of the racquet player, when completed, is of appropriate size and shape to fill a blank area in a part of the background graphics of the final document to be delivered. In this case, a stylized hand is shown in Fig. 5A holding some playing cards with the nearest playing card having a space. Below the space for the caricature are other spaces available to take the subject's name and a personalized statement, related in this case, to the sport selected. In the example given, the subject's name, SEAN, along with the expression, "THE WILD RACQUETEER" , are inserted below his caricature. Fig. 5 in combination with Fig. 5A show the integration of personalized text into standardized text. In this case, the personalized text is the subject's name, SEAN, and the statement, "AT PLAY". Also appropriate but not required in this particular text is the substitution of gender terms such as "his" or "hers" based upon the selection of gender made on card 30. When completed, the document, which may be a poster, card, booklet or the like, includes the standardized text shown in Fig. 5A, the personalized text illustrated in Fig. 5, the background graphics shown in Fig. 5A, and the foreground, personalized graphics or pictorial display of Fig. 4-. The source of the personalized information is the card 30 with most of the information introduced into -li¬ the computer by the card reader 11, but the actual spelling of the name and birthdate are introduced by the keyboard 12. The complete process from beginning to end is illustrated in Fig. 6 including the preparation of the background material, which is actually printed in a conventional printing manner in multiple color presses. An inventory of the backgrounds is maintained by the operator of the system and the appropriate background is inserted into the plotter on its surface 22 where a personalized poster can be made. All of the various foreground personalized variables are drawn and furnished to a programmer to develop the program to control the selection and direction of the plotter to produce the selected personalized pictorial material at the appropriate place on the background'. This is done by developing the program and introducing it into firmware for the computer 10. At the point of manufacture of the end product, which usually corresponds to the point of sale, the personalized data is introduced onto the card 30 and certain personalized data introduced by the keyboard operator at the time the personalized data is read from the card 30. ~ The computer 10 stores the personalized data and personalized pictorial information as well as the standard text which is printed in addition to that text which may be on the preprinted background. The computer 10 combines each of these inputs to develop control signals to the plotter 16 as to position, color, graphics to be plotted, order of operations and conveys its commands to the plotter 16, which then proceeds to make the completed plot. In the example given in Figs. 4, 5 and 5A, a portion of a larger poster as illustrated in Fig. 7 will be plotted with the name, SEAN, appropriately inserted into the text. The sport quotation, "AT PLAY" is inserted into the text and the selection of variable facial characteristics, hair style and sport will be combined and printed in the background space of Fig. 5A. The titling of the caricature is accomplished under the control of the computer by insertion in the title line of Fig. 5A the subject's name and a characterization of the sport, in this case, "WILD RACQUETEER" . As final steps in the manufacture, the operator inspects the final product to make certain that proper registration has occurred between the pre-printed material and the newly added graphics and text, and that the caricature and comments are reasonable. Thereafter, the computer 10 and plotter 16 are free to proceed with the next plot. The cards 30, already made, may be retained to make duplicates or returned to the customer. The computational steps as well as the control and storage steps in the computer 10 are accomplished under the control of a program written, in this case, in Microsoft, basic 80 language available from the Microsoft Corp. of Bellevue, Washington and represented by the listing accompanying this application. The listing covers the steps for producing the sports caricature as described above and of course the full program for making multiple caricatures will be longer but constitute basiσally redundant operations to those illustrated herein. The program which accompanies this disclosure includes statements 10 through 15420 in Microsoft Basic 80 language. The steps carried out by the computer 10 under the control of the program, reads the. data card, stores the data, makes the required selections, correlates the data to select appropriate images and causes the plotter to print the personalized text and to draw the personalized pictorial images. The subject's name is printed on a banner along with his birth date. In the example given, the background is selected on the bases of the subject's astrological sign for the particular humorous- example here disclosed. Other formats may be used. The steps in the program are basically as follows: STEPS FUNCTION 10-430 TITLE BLOCK 440 ALLOCATING MEM 450-460 INIT. DATE VAR. 470 TEXT SIZE SELEC 490-640 INPUTTING DATA 650-940 ASTROL. SIGN SEL. 950-1010 DATA VERIFY 1030-1770 CARD DATA CHECK 1780-1840 ASSGN. CKG. VAR. 1850 INIT. CAP. ONLY 1860-4400 TEXT POSIT. BASED ON ASTROL. SIGN SELECTION 4410-4450 MEM. SVD & LINKED TO NEXT PGM 4480-5010 SELECT NOSE 5030-5200 SELECT EYES 5220-5750 SELECT FACE 5770 OMIT GLASSES 5790-5960 GLASSES SELECT 5980 OMIT BEARD 6000-6350 BEARD SELECT 6360-6380 PROFILE FEATURES SELECT 6390-6430 MEM. SVD & LINKED TO NEXT PGM 6450-9330 SELECT HAIR STYLE 9340-9380 MEM. SVD & LINKED TO NEXT PGM 9410-12289 SEL. ALT. HAIR STYLE 12290-12330 MEM. SVD & LINKED TO NEXT PGM 12360-12570 GEN FILE NAMES 12590-12600 PLOT BIRTH DATE 12610-12630 SET BANNER POSIT. 12660-13390 PLOT NAME ON BANNER 13940 ROTATE CHARACTER 13950-14140 BANNER POSITION DATE 14160-14340 HAIR SEL. IF NO SPORTS HAT 14370-14430 PLOT PERSONALIZED TEXT 14440-14560 PLOT PROFILE 14580 -14590 PLOT BANKNOTE FRONT FACIAL 14710-14910 PLOT PERSONALIZED TEXT 14930-15050 PLOT SPORT 15060-15410 PLOT PERSONALIZED TEXT 15420 RETURN The operation of the computer 10 under the control of the program as listed and acompanying this application is illustrated in the flow chart of Fig. 7. The listing includes the initial steps of selecting the background based upon the subject's birthdate and the length of the subject's name for purposes of spacing the neame on the final product. The steps thereafter relate to the processing to select appropriate facial characteristics, and sport or hobby for the personalized pictorial portions of the end product. The steps of the process include the reading of the data card and storing the data read in the various files as strings. Next the series of select functions from the stored permanent features occurs. The select functions depend upon the data of the particular subject, e. g. male vs female, under 18 vs older subjects, race or ethnic group and hair quantity and style as well as sex. Whether the subject wears glasses or not is selected as is his bearded or non bearded status. The sport or hobby selected on the card 30 is selected and the presence or absence of goggles is determined for that sport. If the subject wears goggles according to the sport selected, the presence of glasses is ignored. In performing the select functions from the stored pictorial data, the following data inputs are used in each respective selection. SELECT STEP DATA Select sport sex sport Select nose age sex race size Select eyes age sex race color Select face age sex race build Select glasses age sex race sport Select beard age sex race hair color style Select mouth age sex race sport Select hair age sex race hair color amount type sport After the selection steps are completed, with less than 9 selections, the sequential files are opened and thereafter the data in the files is read in sequence and plotted. After each file is incrementally read and plotted the files are closed and the sequence stops. The document is completed. Characteristic of this invention is the fact that a variety of physical characteristics of the subject are stored along with personal data such as their favorite sport and their name and birthdate. The various inputs are combined to produce a caricature and combine information as appropriate into the text whereby the end product in both words and picture assume a personalized nature for the recipient. The detailed nature of the caricature is such it can allow the recipient continuing interest and amusement, much more than merely the presence of his name in text, which is also achieved by this invention. The foregoing embodiments are merely illustrative of this invention and are not to be considered as restrictive. It is recognized that one skilled in the art may make modifications of an invention without departing from the spirit and concept of the invention. Therefore my invention is instead defined by the following claims and their equivalents. ■ iø [■CM PROGRAM "HUMOR" IS THE STARTfMG PROGRAM aø Eh IN A SERIES OF CHAINED PROGRAMS. 30 PRJNT CHR$(26> ; 40 IF NE=1 THEN 460 50 PRINT " &0 PRINT " re PRINT " θø PRINT " 1 CCCCC I 1 PPPP 90 PRINT " 1 C 1 1 P P 100 PRINT " \ C 1 1 PPPP iø PRINT " 1 C 1 1 P 120 PRINT " 1 CCCCC I 1 P 130 PRINT " 140 PRINT " ι50 PRINT 160 PRINT Z1*;PRINT:PRINT Z2*tPRINTιPRINT Z3*ιPRINT Z4*ιPRINT Z5*' 1 ©-PRINT:PRINT Z6Φ:PRINT Z7*:PRINT ZQSsPRINT Z9S 180 Z1$="CUPYRIGHT COMPUTER HUMOR SYSTEMS, INC. 1983. " 13ø P INT 2øø Z2*="ALL RISHTS RESERVED INTERNATIONAL COPYRIGHT SECURED. " aiø PRINT 220 OF THIS PROGRAM DOES NOT CONVEY ANY RIGHT TO" 23ø Z4-ϊ="REPRODUCE, USE OR SELL THIS PROGRAM OR THE INFORMATION" 340 Z5Ψ="C0NTAINED THEREIN. " £50 PR1 T 26ø Z65="T!IE RECIPIENT IS HEREBY WARNED THAT UNAUTHORIZED REPRODUCTION" 270 Z7"E="0R THE USE OF THIS PROGRAM IS SUBJECT TO BOTH CIVIL AND CRIMINAL" 1=80 Z8*="PENALTIES UNDER THE UNITED STATES COPYRIGHT LAWS AND THE LAWS" 290 Z3*="0F MANY STATES AND COUNTRIES. " 300 REfl CARD SUBRUTINE FOR MAIN PROGRAM 3!.ø DEFINT A-Z 32ø PRINT "INSERT A BLANK SHEET OF PAPER INTO THE PLOTTER" S30 L1HE INPUT "THEN HIT THE RETURN KEY WHEN READY" {AN» 340 LPRINT ";:H A" 35 SiZE2S="løø 50 S(S5,W3,X-1,Y 93>":LPRINT Zl*jTE*-«"U P2 M 360 LPRINT SIZE2*;Z2*jTE*i"U P3" 370 LPRINT SIZE2*;Z3S;TE*;"U P4" •iβø LPRINT SIZEεt;Z4*;TE*;"U P5" 39ø LPRINT SIZE2*;Z5!6;TES5"U P6" Vøø LPRINT πiZE2*;Z6S;TE , 6;"U P7" 41ø LPRTNr SIZES*; Z7*;TES; "U PI" 42ø LPRINT SIZE2*jZ8*?TE ;"U P2" 4 0 L R INT SIZE2f.;Z9*;TE*5"U Pi" 440 DJM D(80), l * *(£ø) 450 MO$=" :, :DAS=" .- " DATE*= H 460 iMpur "ENTER NOME "jNA* 47ø SIZE1*="S(S3,W£, X-1,Y 99) "sSIZE2$=»"S<S5, W3, X-1,Y 99) "sTE*-CHR»(95) 480 IF LEN(NA$)>10 THEN PRINT "NAME TO LONG ":GOTO 460 430 INPUT "ENTER MO "jMOΦsIF LEN<M0*> <2 THEN MID*(DATES, 1, 2>="ø"+M0SιS0T0 510 Søø IT* (DATE*, 1, 2) =MO* "510 IF VAL(MO$)=β THEN 550 sεø FOR 1=1 TO 1£:READ MN5,M, X,Y:IF VAL(MO*)=M THEN MON*=MN*»X1=X»Y1=»Y 530 NEXT I 5'>θ GOTO 580 55ø FOR 1=1 TO 12!READ MN*, 11, X, Y 560 IF MIDS(MOS, 1,3)=MID$(MNS, 1,3) THEN MON*=MN*»X1= tYi=Y 570 NEXT I 58ø INPUT "ENTER DA ";DAStIF LEN(DA*) <2 THEN MID*U)ATE*, 3,E)-"ø"+M09rG0T0 βZ& 590 MID*(DAIE*,3,2)=DAS 60ø BD=VAL(DATE«) 61ø INPUT "ENTER YEAR " 5 YE:IF YE<100 THEN YE-YE+1900 620 DATA JANUARY, 1,410, 170, FEBUARY,2, 400, 150,MARCH,3, 410, 175,APRIL, ,410, 175 63ø DATA MAY, 5, 450, 230, JUNE, 6, 425, 19ø, ULY,7, 25, 190, AUGEST,8, lø, 170 640 DATA SEPTEMBER, 9, 38ø, 130, OCTOBER, 10, 410, 170, NOVEMBER, 11, 00- 150, DECEMBER. IS 129® IP 0 7 - P6 THEN F s CV 1300 1F 0t7)=P9 THEN F*="UB" 1310 IF D<0)=P3 THEN F$="P"Z" 1320 IF D(3)=P6 THEN F*-"AF" 1330 IF D(8)=P9 THEN FS="ST" 13 REM CHECK FOR BEARD OR MUSTACHE 135ø IF D(9)=P9 THEN GS="NN":GOTD 1400 1330 REM CHECK FOR SIZE OF NOSE 1400 IF D(11)=P4 THEN H$=-"LB" 1410 IF U(tl)=P7 THEN HS="MD" 1420 IF DC11)=P9 THEN H*=-' , SM" 1430 REM CHECK FOR 13LASES ' 1440 IF DC12)=P6 THEN I$--"Y" 145© IF DC12)=P8 THEN I*- * "N" 14βø REM CHECK FOR SIZE OF PERSON 1470 IF IK13>=P5 THEN J*-»"TH" 14θø IF D(13)-=P3 THEN J$="fW" 1 9ø IF D<14)=PS VHEN J1i="FA" ' 1500 IF ϋ(14)=P3 THEN J*--"AV" 1510 REM CHECK FOR TYPE OF SPORT 1520* IF U(15)-=P1 THEN SP1*«="CHANNEL" -SP2*-"CHANGER"»SCl*-"VlDEO VOYEUR"ιSP-llSF9 1530 IF DC15>=P6 THEN SP1*=-" ET"ιSP2S*-"DREflMS" ιSCl*«-"POOL SHARK":SP-2:SFS<8>-"SM 2":SFΦ(0)"-"S02"tG=l 1540 IF D(2)=P6 THEN SC1*=-"WAVE MAKER"JSFS(ø) -*"S03":G=1 :H=i 1550 IF D(15)=P9 THEN SPl*="BIBLIO-" ιSP2$-*"MANIA" :SCl*-"POCKETBQQK PEEKER" tSP-3l SFStβ)="SM6" :SFS<ø>="S023" 1560 IF D(16>=P1 THEN SP1S="PERFECT":εP£*--"PITCH ,• sSCI*-"BEAT PICKER"ιSP-4lSF*C8> ="SM6" :SFS(0>="S022":H=1 1570 IF D(16)=P6 THEN SP1$="MUSCLE" • SP2*="B0UND":SCI*-*" EIGHT WATCHER".SP-SϊSFβ( BFΪ- (B>="SM2" s5F* (0)="S05" :H=1 1590 IF D(17)=P1 THEN SPl*=-"HOLE"ϊSP2*="IN ONE":SCI»»"RECKLESS DRIVER"lSP-7«BF*K a)="SM5" :SFB (ø)-*"Sαit" :ll=l 1600 IF DU7)=PS THEN SP1*=>"HEAVY":SP2$="HANDED"ιSCl*»"KICK STARTER"-SP»aiSF*<S-) -»"SM3":SF*(ø)= ,, S06" 1610 IF D(17)=P9 THEN ΞPi$="GUTTER"!SP2$=-"THOUGHTS"»SC1*«-"HIGH R0LLER--SP-9-SF9< 8)- * "SM5" :SF* (ø)="S01Ξ" 1620 IF D(ia)=Pl THEN SP1*="BLIZZARD" :SP2*="AREA"ιSCl»-"HOT DOGGER"«SP-10ιSFS<S) ="SM5":SF*<ø)=*"S01ø"sG=l :H=1 1630 IF D(ia>=P6 THEN S 1 ="COMPOST":SP2**-"HEAP" ιSCl*="SEEDY CHARACTER"sSP-H:SF *<Θ)="SM3" :SF'S(0)--"S016":H=1 1540 IF DC2)=P6 THEN SC1*=-"PANSY PUSHER"JSF* <Ø)-*"S017":H=1 1650 IF DC1Θ)=P9 THEN SPl*="OFF THE" sSP2*--"TRACK" ISCI*-"SNEAKER STREAKER"ISP-12* SF* ( 8>="SM2".SF*(ø>="S019" 1660 IF D(19>=P1 THEN SP1*="WANDER-":SP2*=-"LUST:' iSCI *=•" AUNTY JET SETTER'*l8P-13s SFS(8)="SM5":SF$(ø)="S021":G=1sH=t — 1670 IF DC19)=P6 THEN SPl*="OUT OF" tSP2*="B0UNDS"iSC1*-"BENCH WARMER":SP-1 JSF*< 1680 IF D(19)=P9 THEN 5P1*="PARTY" :SP2***"GAMES"iSClS="SOCIAL WHIRLER"lSP-13:SF*< 1690 IF Dt£ø>=Pl THEN SP1*="SOMETHI G"ιSP2*="FISHY"ιSCl*-"WORM WRANGLER"iSP=»!6l£ F*<θ)="SMl":SF*<ø)="S04":H=l 1700 IF D(20)=P6 THEN SPlt.="SORE":SP£*-*"FEET U ιSCl«-»"WILD GOOSE CHASER"ιSP«-17tSFt (a)--"SMI"sSF*(0)="S012" :H=*1 1710 IF DEVIL" :SP«18. SF* < 8 ) -="SM6" 1720 IF ADMIRAL"xSP-13:SF *(θ)="SM ιSF*<t F - S " s2.i: laaø 2 "+sιzES*+"Tne" 1090 REM ■ ** SMALL NOME IN PROFILE ** 1900 T'6(2)="244ø 100 S<S3, WS.X-44, Y 90) "+NRS+""S"+TES 1910 REM ** HOBBY'.fONE *** 1920 TXS="2630 M :TY*=STR1i<324-M <INT< <9-LEN<SPl*> > /2> )*12) ) 1930"TN*=TX*+TY .+" "+SIZE1S+SP1* 13 0 T*U9)=TNS+TE* 1950 (310M (INT< (9-LE (SP≤*> >/2> >*12>) I960 TN*=TX*+TY*+ H "+SIZE1*+SP2$ 1 70 T* <20) =TN*+TE* 1980 REM YEOR 1990 T* (14)="310 310 S(S6, W4, X 75, Y 64> 1 "+TE* 2000 T*U5>="335 325 S<S7,W4,X 75, Y 64>9"+TE* εøiø τx=vnL(YEnR*>-i3øø»τx*=sτR*(τx) εøεø TS S)="36ø 348 S<S8, W4, 75, 64) "+TX*+TE* £030 TΦU7)="500 340 S(S8, W4, X 61, Y 98) "+Dfl*+TE* 2040 S<S8,W4,X 63, Y 76)BORN "+MON*+TE« 2050 IF VOL(!)Ot)=l THEN 2 9© 2070 IF VOL(DO*>=31 THEN 2090 2080 GOTO 2100 2030 TS(18)="52ø 41ø S(Sθ,W4, X 7,Y 99)st. '*-*-TE*:GOTα 2220 2100 IF VnL<DfW=S THEN 2130 2110 IF VO <On*>=22 THEN 2130 £130 T*U8)="52ø 410 S<S0,H4, X 7, 99)nd. "+TE*.GOTO 2220 2140 IF VnL(Dn*)=-3 THEN 2170 2150 IF VRL(Dfl*>=33 THEN 2170 2160 GOTO 2180 2170 T-*(lβ)="52ø 410 S<S8,W4, X 7, 93) d. "+TE9iGOTD 2220 2180 REM DAY 4-20 24-30 2190 Tt.118)="520 'ilΘ S(S8,H4, X 7, Y 99)th. "+TES 2200 REM NOME FORTUNES ccSlø REM ***** RIGHT JUSTIFY ***** 2220 TX*=-"2 / ,20"iTY .-=STR' 9aø+INr< U0-LEM(fin*) )*17.3) ) 223 "+SIZE2*+N0*+"'S "+"FtJRTUNES"+TE* 22'ι0 REM 225ø REM NOME (SMALL) 2260 REM ***** CENTER JUSTIFY ***** 2270 TY*=STR9 (926+( (INT( (lø-LEN(Nfl*> )/2) )*12) ) lTX*»"2281" 228ø TN*=TX«.+ ΓY*+" "+SIZE1$+N0$ 223ø T*(4)=TN$+TE* 2300 REM 2310 REM Bye Bye NOME 2320 T*(5)="2971 gsa "+SIZEl*+"Bye Byβ"+TE« 2330 TYΦ=STPt. ( 9?0i-( UNr< ø-LEN <Nfl*> )/2> )*12) ) tTX*>-"3001" 2340 TBli=TX* i IY iH" "+SIZE1*+N03» 2350 Tt <6 ) =TBS+TE* 5.37Θ riEM ** NOME IN LOVE *# 2380 TY*=STR* UBll + INTtU'* - EN (NR*> 1 *17.5) ) ιTX*="U20" 241ø T*(a>="117ø 1866 "+SIZE2*+"IN LOVE"+TE* 2420 IF SOI THEN 2620 2430 T*(l)=-"!385 17 "+SIZE£*+"THE" 2440 REM IN OVE 2450 TYS=STR*<t811+INT( (lø-LENtNO*) )*17.i5>> ιTX*="1120" 2460 TL*--TX*+TY*+" "+SIZE2S4NR* 2470 T-S(7>=TLS+TE5. 248ø T*(8)--"117ø 1866 "+SIZE2S+"IN LϋVE"+TE* 2 3Θ 2500 2510 TP9!-*TX$+TY*+" "+SIZE2Φ+N0* 2520 Tm<9)-*TP*+TE* 2530 TS(lø>=-"£17ø 1855 "+SIZE2*+"fiT PLflY"+TE* 2540 IF B*="M" THEN 2570 2550 TSUI) ="1553 1420 "+SIZEl$+ ,, his"+TE» 2560 BOTO 258ø ' ' 2570 T4111)="1550 1420 "+SIZEl*+"her" -TE« 258ø. TXS=-"151ø":TY*=STRS(153Θ+INT< <iø-LENtNfl*) )-*l£) J 2530 TS(12)-TXS+TY*+" "+SIZE1*+NRΨ+TE* 2600 REM COP. NOME MRLE="HER" FEMRLE~"HIS H 2610 REM CHECK FOR FEMALE 2620 IF SO2 THEN 2770 2630 T*(l>="1235 17 "+SIZE2*+"THE" 2640 REM " IN LUVE 265ø TY'f=ΞTRr.(1821+INTt (lø-LEN(Nfi*> 1*17.5) > rTX» * -"1140" 2660 TLS=TX1i+TY*-ι-" "+SIZE2*+NR* 2580 T*(8)="ll3ø 1876 "+SIZE£*+"IN LOVE"+TE* 2630 REM AT PLOY .T70ø TY*=STR*(1811+INT( <lø-LEN(Nfl*> )*17.5> > :TX*-»"2130" 2710 TP«=TX*+TY$+" "+SIZE24+NRS ≥ " ?20 T*(3)=TP*+TES 2730 T4<lø)="218ø 1866 "+SIZE2*+"RT PLRY"+TE* 2740 lø-LEN(Nfl*) )*12) > 2750 T$C11>=TXS+TY$+" "+SIZE1S+NRΦ+TE* 2760 REM OUU. NOME 2770 IF SO 3 THEN 2310 2780 T* (1)="1260 3 "+SIZE2$+'*THE" 2730 REM IN LOVE 2B0ø TYS=STR'£<1821+INTC (lø-LEN(NR3> >*17.5) ) :TX*-"1150." 2810 TL*=TX*+TY*+"' "+SIZE2*+NRS 282ø 7S(7)=TL*+TEΦ 2830 T* ( 8)-="l£00 1876 "+SIZE2*+"IN LOVE"+TE* 2840 RE l RT PLRY 2850 TY'l:=STR*<1819-MNr( (lø-LEM<NR*> )*17.5) > :TX*-"2120" 2870 TΕ(3)=TPΦ+TE* 2880 TS( 10) ="£17ø " 1874 "+SI ZE21>+"RT PLRY"+TE* 2830 TX*-*"1430" «TYϊ=-STR-.(1750+I T( <lø-LEN(NR«) >*12> ) 2300 REM PISCES NOME 231ø IF SO 4 THEN 3100 23£ø TS<1)="136Θ 3 "+SIZE2*+"THE" 2330 REM IN LOVE 2340 TY*=STR$ ( 18øl+INT Clø-LEN(Nfl$> >*17.5) ) :TX*="1128" 235ø TL*=TX*+TY*+" "+SIZE2Φ+NR* 2960 T¥(7)--TLT.-t-TE1. 2370 1856 "+SIZE2S+" IN LOVE"+TES 238ø T*(H)-rX4+TY*+" "+SIZE1*+NR*+TE* 2330 REM OI PLRY • " +S I ZE2t.+ "RT PLRY"+TES U" " S ** 30-30 7 Xf,= » £/,2ø" : rY!t=S rRt 80+ < ( INT ( ( lø-LEN (NRΛs) > /2> ; ι2> > 3060 T* (3) =TX1!+TY11+ " •• • t • S I ZE2*+N !fl+ " , S " t-" FORTUNES" +TE* 3070 TX *=" 1460" : TY*=STR« ( 1580+ IN f ( ( l ø-LEN <NR* > 1 * 12) > 3080 TT-(11)=TX*+TY*H +SIZE1*+NR*+7E* 3030 REM ARIES NRNE 3100 IF SO3 THEN 32S0 3110 REM IRURUS Nfil'IE 3120 TT.(l)="121ø 3 "+SIZE2!5+"THE" " 3130 REM IN LOVE 3140 TY*=ST !r. ( 1011+INT( (10-LEM(NR*) )*17.5) ) :TX»--"1120" 3130 TL*=TX'l!+rY*ι-" "+SIZE2Φ+NAΦ 3160 T'P(7>=TL*-»TE* 3170 T*(8)--"117ø 1866 "+SIZE2$+"IN LOVE"+TE* 3180 REM RT PLRY 3130 TYU=STR*(1811+1NT( ( 10-LEM(Nfl*) >*17.5) > sTX*-""2i30 3200 TP =TX*+TY'Ϊ+" "+SIZE2*+NR* 3210 T*(3)=ΪP$+TE* 3220 T*(lø)="218ø 1886 "ιSIZE2*+"RT PLRY"+TE* 3230 Tx$.-. » i uizi » :TY*=SrR*<1530+INT( (10-LEN(NR*> >*12) > 3240 1 (11>-"TXS+TY1S+" "+SIZE1*+Nfl*+TE» 3250 IF SO 6 THEN 3430 3260 REM BEWINI NRME 3270 T«(l)=" 1250 3 "+SIZE2*+"THE" 3280 REM IN LOVE 3230 TY1i=STRS ( 1811+I ( (lø-LEN<NA*> )#17. S) > jTX*»"1133" 3300 TL*=TX1>+TY*l-" "+SIZE2Φ+NR* 3310 T*(7>=TLc&i-TE1. 3320 T*(8)="11QΞ 1856 "+SIZE2*+"IN LOVE"+TE» 3330 REI-1 RT PLRY 334ø TY*=STR*(181t+INT< (lø-LEN(NR$> >#17. S>) |TX$»"2130" 3330 TP*=TXa;t-TY*+" "+SIZE2$+NR* 3360 T*(3)=TPc$+TE* 3370 T*(lø)="218ø 1866 "+SIZE2*+"RT PLRY"+TE* 3380 REM *« NRME FORTUNES ** 3330 (INT( (lø-LEN(NR*> >/2> >*12) ) 3400 T$(3)=TX*+TY*+" "+SIZE2*+NR*+"' S "+"FORTUNES"+TE* 3 1ø TX3-.="147ø":TY$=STR3><1530+1NT< (lø-LEN(Nfl») >*12> > 3420.,T*(11)=TXcB+TY*t-" "+SIZE1$+NA*+TE* 3430 IF S07 THEN 3520 3440 REM CANCER NRME MRLE="He" FEMRLE="She" 3450 REM CHECK FOR FEMRLE 3460 T-B(l)="1380 1 "+SIZE2*+"THE" 3470 REM IN LϋVE 3480 TY'JJ=STRS ( 101 +INT( (lø-LEN(Nfl-S) >*1 .5> > :TX*«*"1112" 3430 TLϊ=-TX*+TY*+" "+SIZE2*+NR$ 35øø Tt(7)-"TL*+TE* 3510 T*(a>"-"1162 1874 "+SIZE2$+"1N LOVE"+TE* 3S20 REM RT PLRY 3530 TY'-B=STRS( 1811+INT( ( lø-LEN<Nfi*> )*17.5) ) jTX*s-"2118" 354ø TP*=TXT.+TY$+" "+SIZE2*+NA* 3550 T«(3)=TP»+TE* 3560 T4 (10)="2168 1866 "+S1ZE2*+"RT PLRY"+TE* 3570 IF B$="M" THEN 36øø 3580 PS ( 11 ) ="1550 1420 "+SIZElS+"S e"+TE-6 353© GOI ' U 3610 3600 T*<11)="1550 1 2ø "+5IZEi*+"Ha"+TES 3610 T*(12)="1460 153ø "+SIZE1*+NRM$+TE* 362ø IF SO8 THEN 3820 363ø REM LEU MRLE="Woman", NRME FEMRLE « -"Me?n",NAME 3640 REM CHECK FUR FEMRLE 365ø T4(l)="127ø 3 "+SIZE2*+"THE" 3660 REM IN LOVE 367Φ Ty rST^lJβM- lNTtdca-LE^^ii *^.!?) :17$:-".I20" 3700 T1U8>="ll7ø 1866 "-t~ T ZE2*+"IN LαVE " '+TE* 3710 REM AT PLOY 3720 TY*=STRS U811 + INT, < lø-LEN <NA*> ) *17. S) > sTX* • 2130" 3730 TP!S=TXS+TY*+" "+SIZES3i+Nfi* 3740 T3.<3>=TP s+TES 3750 T*<10>="218Θ 1866 "+SIZE2*+"AT PLAY"+TED 3760 TX*="153ø"!TY'S--STR' 1660+INT< U -LEN(NA4> >* 12) ) 3770 τs(ii) = rx*+rγΦ+" "+sιzει$+Nfl<5+τε* 3780 IF B*="M" THEN 3810 3730 T*<12>="146"3 1550 "+SIZE14+"Mεn ,, +TE* 3803 GOTO 3820 3810 T*U2)="146fl 1550 "+SIZEl*+"Womaπ ,, +TE* 3820 IF SO3 THEN 3370 3830 REM VIRGO NOME 3850 REM IN LOVE 3860 TY*=STRT>(18Ξ1+INT( (lø-LEN(NO*) )*17.51 iTX*- "1130"- 3870 TLS=TXS+TY**•"11"+SIZE2Φ+NR* 3880 l^(7!=TL*+TE* 383ø T*(8)="11Q0 1876 "+SIZE2*+"IN LDVE"+TE* 330*3 REM AT PLAY 3310 TYt=STR*(1811+INT( <10-LEN<NO*> )*17.5) ) ϊTX*' "2130" 3320 TP!t>=-TX!U+TY*+" "+SIZE£*+Nfl!S 3330 7*<3)=TP*+TE* 3340 T*<lø)="2180 1866 "+SIZE2*+"AT PLAY"+TE* 3350 TX«=" 1470"sTY4=STRΦ(1770+INT( (lβ-LEN(Nfl») )* 12)) 3360 TS<11)=TX*+TYΦ+" "+SIZE1*+Nfl*+TE* 3370 IF SO 10 THEN 4120 3380 REM LIBRA NAME 3330 TS<1>="12S5 1 "+SIZE2*+"THE'" 4øβø REM IN LOVE 4ølø TY*=STR-Miai3+INT< <lø-LEN(NR*) )*17.5>) -TX*=- "1140" 4ø2ø TL4=TX*+TYS+" "+SIZE2Φ+Nfi9 4ø30 T*(7>=TL4+TEΦ 4ø4β T* (8) ="1130 1868 "+SIZE2*+"IN LOVE"+TE* 4050 REM AT PLAY 4060 TYH=STRS(1S11 + INT( C lø-LE (NO*) *17.3)) ιTX*=» ■• 2130" 4070 T !t.--T $+TY*.+ ,, "+SIZE2*+NA$ 4ø8ø J*<3)=TP*+TE* 4ø3ø TS(lø)="218ø 1866 "+SIZE2*+"AT PLAY"+TE* 4100 TXS="15ø0" .TY$=STR*(159ø+INT( < 10-LENlNA*) >* 12)) 411ø T* ( 11 ) =TX*+TY*+" l, +SIZEl*+NO*+TE4- 4120 IF SOU THEN 4260 4130 REM SCORPIO NOME 4140 1235 3 "+SIZE£$+"THE" 150 REM IN LOVE 4160 TY3s=STR*(lθll+INT( (10~LEN(NA*> 1*17.3) ) »TXS= ■ 1145" 4170 TL*=TX't ; +TY*+" "+SIZE2*+NA* 418ø TS(7)=TL*+TEΦ 413ø T$(8)="1135 1866 "+SIZE2*+"IN LOVE"+TE* 42øø REM AT PLAY 4210 7Y*=STR*(1811 + INT( t lø-LEN <NA») 1*17.3) ) lTX*< '2130" 4220 TPS=TX*+TYT.+" "+SIZE2*+NA« 423ø 1* (3) =TP*+TE* 4S4ø T*(lø)=-"2iaø 1Θ66 ,, +SIZE2<*+ ,, AT PLAY"+TE* ' 4250 Tc6(il)="l47ø 157ø "+SIZE2*+NAM*+TES 4260 IF SO 12 THEN 4410 427ø REM SAG. NAME 428ø T*U)="125ø 13 "+SIZE2$+"THE" 4230 REM IN LOVE 4300 1+INT( (lø-LEN(NOS) )*17.5) ) :TX* ■ 1170" -4310 TL$=TX*+TY-S+" "+SIZE2Φ+NA* "+sιzεat.+"iN LOVE-I-TE* 437V " . T* (3)=TP*+TE$ 4330 T*<løl=-"Slθø 1066 "+SIZE5χ+"nT PLj-W'+TE* 4330 TX*=>"1470" :TY*=STF?'t! (1S70+INTl <10-LEN(Nfl») >*12) ) 44øø TS(11)=TX*+TY1!+" "+SIZEl*+NOιr.+TE'* 4410 COMMON fl*, B$, C*, D$, E»,F*,Q»,l-l*, I*,J* 44£0 COMMON SPl*,5Pa*,SClt.,N0S,Ni-l*,NfiM* 4430 COMMON FO*, EYf., IIPS, BES, GL* 4440 COMMON SIGNU, S, SP, D<) , T$() ,S, H 4450 CHOI "SEflNS" TE SHEET DUPLICATE PAGE " »- •*»"*" ' ' Nε - 4Ξøø IF M0'8-."CFW Θ" THEN PN=2•BM=8«SN-*2 4510 IF NO'ft="CMBLB" THEN PN=3.BN=3tSN=l 4520 I MO*=-"CMOl.Θ" THEN PN=4.BN=4xSN=-3 4330 I Nϋ,ι="CMWUϋ" THEM PN 4.BN=4:SN=3 4540 I l>rU'ls--"nFBI_B" THEN PN=5:BN=5lSN=4 4 580 IF NOUS--"OMULS" THEN 4Søø IF Nlrt-""TFB S" THEM PN=1 :BN=51SM=4 4610 IF NO!6="TFDL(3" THEN PN=2sBN=6:SN=5 4620 IF N015-." rF LB" THEN PN=2:BN=6:SN=5 • 4630 IF Nϋt-'-TMBLB" 1 f π-IEN PN=3:BN=9sSN=6 464ø IF Nnii«"TI<!OLΘ" HEN PN-4:8M=lø:SN=7 4650 IF 'iGGø I • 4670 I • •■ GβO IF M01.-"CFWMD" THEN PfΦ=l : N=-12.SN=9 4690 I • 6=-"CMDI'1D ,, THEM PN=11.BN=13.SN=8 47øø IF Nϋ1ϊ="CMt)WD" THEN PN=12:BN=14:SN=lø 471 ir- M0t.="CMMMD" THEN PN=-12:BN=14.SN=lβ 474ø lf : NO'P="ΓIFWWD" THEM PN"-14:BN=-16:SN=-12 4760 IF NOt-'OMOMD" THEN PN=16:BN=1Θ:SN=14 →77ø IF Nα*--"nMWWD" THEN 4700 IF- N0'8--"TFBMD" THEN PN=9.BN=15.SN- * 11 4790 I NO*="TFOMD" THEN PN=lø:BN=16:SN=-12 4β ø IF M t-" " IFWMD" THEM PN=lø.BN=16.SN=12 4010 II- ' NO-ϊ="TMBMD" THEN PN=11 :BN=1 :SN--13 •sεø II- rlO'6=" I ' MOMD" THEN PN-12:BN=2 sBN=14 4030 £l- ' M0i-="TI'1 l ll)" THEN PN=-12:BN=-2ø.SN=1 -ι34ø IF Nα-1i-"CFBSM" THEN PN~17sBN-=21:SN=15 '.870 I NC)5B="C BSri" THEN PN=1 .BN=23iSN=15 4000 If- NCl , Fs-="CMOSr'l" THEN PN=20.BN=24:SN--1 4890 I N01i="CMWSM" THEN PN=2ø:BN=24sSN=1 49øø IF MΠS---"ΠΓB!5M" THEN PN=21 !BN=S5:SM--1θ 4 1ø IF MϋT.="nFOSM" THEN PN=22:BN=26sSN=19 49£0 IF MOIΪ-"ΠFWSI'F" THEN PN=22:BN=26:SN=19 4970 I NO'β-"TFαSM" THEN PM=22:BN=26:SN=19 4980 I IJ01;="TF 5M" THEN PN--22:BN=2GsSN=19 4990 I MQ*-"" 1Ϊ1BSM" THEN PN=19.BN=27.SN=29 501 I NϋlE="TMWSM" THEN PN=24:BN=23:SN=21 5020 REM 5030 IF EY«="CFB" THEN PE=1.BE=t :SE=13 5040 IF FΞY'.="CFϋ" THEN PE-2:BE=2:SE=2 5ø5ø IF FY'li="CFW" THEN PE=3.BE=3!SE=-1 5060 II- EYS="CMB" π-IEN PE=4:BE=4:SE=>14 5ø7ø IF EYT.="CMO" THEN PE~5:BE=5:SE=4 5000 Iι- EY-B-"CMl- l WEN PE=6 • riF-G ■ ' SE « -3 8390 IF 516C3 IF EYS= "TFd" THEN PE=8:BE=8:SE=6 5190 IF EY*.= "TMO" THEN PE=5}BE-*15sSE--9 5210 REM 5220 IF Ffl$= "CFBT" THEN PF=1 sBF=l:SF=l 5230 IF FHS-- "CFBF" THEN PF=2:BF=2:SF«-2 5250 IF Ffl*= "CMB1"" THEN PF= :BF= :S =4 5260 IF Fn-s= "CI1BF" THEN PF=5iBF=5:SF=5 5270 IF FR4= 'CI BP" THEN PF=6.BF=6sSF=6 5280 IF rnτ.= ■ flFBT" THEN PF=7:BF=7!SF->7 5290 IF F(ΛTs ="MFBFI*, THEN PF=ΘsBF=8:SF=Q 530ø IF Ffl1:= ■ flFBO" THEN PF=9:BF=9sSF=9 5310 IF FO.= • OI1BT" THEN PF=lø:BF=10lSF-*19 5340 IF rn<r.= • TFBT" THEN PF=7:BF-*7.5F=7 5350 IF FOS= • TFBF" THEN PF=θ:BF=a:SF=8 53Qø ir rnι-« TMBF" THEM PF=11:BF=11:SF«1I 5390 IF Fn-s= TMBR" THEN PF=12!BF=12:SF=16 5410 IF FP-S= "CFOF" THEN PF=1 ϊBF-=14:SF=2 5430 IF FΠ*= "CHOT" THEM PF=16:BF=16:SF<=4 5440 IF FflS-- "CMOF" THEN 5490 IF Ffι«= • PlMOT" THEN PF=22!BF=22ϊSF--lø 5510 IF FF1Ε= "OMOfi" THEN PF=-24!BF=24:SF--12 5520 IF rn*- "TFOT" THEN PF=13:BF=-i9.SF=13 55βø IF m .~ "TMOF" THEM PF=-23:BF=23!SF=-11 5570 IF FP1*= TMOO" THEN PF=-26:BF=-24:SF-*16 5620 IΓ Fnτ-= ■ CMWF" THEN PF=17:BF=17:SF=5 5650 IF FΠ$=- RFWF" THEN PF=2 : BF=2ø:SF=l4 5660 IF Fntι=- "flFWfl" THEN PF=21:BF=21zSF=15 571ø IF FFits-- "TFWF" THEN PF=2øsBF=20:SF«-1 572ø IF FP"6= "TFt-IO" THEN PF=25sBF=21:SF-*17 5730 IF FO*= "TMWT" THEN PF=22:BF=22:SF-*10 5770 IF I*="N" THEN 5980: EM SKIP OVER GL. CHECK 5780 REM 5790 IF GL*="CFB" THEN PG=1 :BG=1:SG»1 5Q20 IF G *="CMB" THEN PG=3.BG=4.SG=-l 5910 IF GL*="TFB" THEN PG= BG=9:SG=-2 5940 IF GLS="TM8" THEN PG='lø.BG-»3!SG=»3 5970 REM 5900 IF G*="NN" THEN 63Søι REM SKIP OVER CHECK 5990 REM 6000 IF BE*="RMBL.FB" THEN PB--lsB8-l:SB--l 613113 IF BE*="PI1BLGG" THEN PB--2:BB-2:S8--9 6020 IF BES-'-flMBLMS" THEN PB=3:BB=4:SB=3 6ø3ø IF BE* ΑMBDFB" THEN PB=_:BB=7.SB--2 6040- IF BE-l="HMBDΘG THEN PB-7:B3=2:SB=9 • 6050 IF BEΦ-"P.MBDMS πIEN PB=3:BB=-4:SB-=3 6060 IF BE-.="TMBLFB" THEN PB~1 :BB"2:SB=l 6070 IF BE*="TMB GG" THEN PB--2JBB=>2 • SB-'T 6080 IF Bπs-"TMBL_MS" THEN PB~3:BB=4 :SB-»4 6090 IF BES="TMBDFB" THEN PB=6:B8=2:SB™2 61øø IF BES-'TMBDGG" THEN PB=7:BB=2:SB^-9 6110 IF BEΦ="TM8DMS" THEN PB=3:BB=4._B->4 6130 IF BES-'OMOLGG" THEN PB=lø:BB=- :3B=-7 6140 IF BE*="PMOLMS" THEN P8=8:B3-6:ΞB-»G 6150 IF BE'J5= M flM0DFB" THEN PB= :B3=3.SB=7 6160. IF BES=-"RM_DGG" THEN PB=9:9B=>3JSB--7 6170 IF BES-'-RMϋDNS" THEN PB=8•.BΘ'-G:SB-=8 6180 IF BES="TMO FB" THEN P0--9:BB=-3:SB»7 6190 IF BE*="TMOLGG" THEN P8=9: BB=3:5B=7 6200 IF BE*="TMO MS" THEN PB=a:BB=6:SB«--0 6210 IF BES>="TMODFB" THEN PB=9sBB-3:SB-7 62≤ø IF BE«="TMODl36" THEN P8«-9:E<B=3.SB=7 6230 IF BE«="TMQDMS" THEN PB=8sBB=6:SB---8 624ø IF BES-"RMWLFB" THEN PB=1 :BB--1 :SB-1 6250 IF BE*-"RMWI_GG" THEN PB=2.BB=-2,SB"9 6260 IF BE*-"flMWLMS" THEN PB=4:BB=3JSB=3 6270 IF BE*="AMWDFB" THEN PB=6:BB= :SB=2 6280 IF DET.- ,, nMWDC3B" THEN PB=7:BB=2:S8--»9 6290 IF BE*="AMWDMS" THEN P8=5JBB=8:SB»S ' 63øø IF BE*="TMWLFB" THEN PB=1 :BB=2:SB-9 6310 IF BES="TMW_GG" THEN PB=2:BB=2:SB-»9 6320 IF BE*=-"TMWLMS" THEN PB=-3:8B=4.i>B-4 6330 IF BES="TMWDFB" THEN PB=6.BB=2.SB=9 63413 IF B£ϋ-="TMWDΘG" THEN PB=7JBB=-_:SB**9 6350 IF B Φ-"TKWDI1S" THEN PB=3:BB=4:SB=4- 6360 IF CS-"B" THEN PF* (6) ="PBM1 :REM DRAW RFRO 6370 IF C$="B" AND BS="F" THEN PF* (7)«"PERRιREM ERRING 6380 IF CC_=-"M" THEN PF* (8) ="PMT1 ι REM MARTIAN 6390 COMMON D ( 1, fl«, B*, Ci, Dt, ES, F*, GU, H-S, I*, J* 6400 COMMON SP1*, SP2S, SCI$, NO*, FA*, PG, BS, SG, PB, BB, SB 6*f10 COMMON EY$, HA$, e%, <SL$, A$, M^, PN, SN, SN, Pg, B6, S6 S4?'<. -COMMON S IGNS, S, TS <) , PFS < ) , BFΦ ( ) , SF* (),S,H, PF, n , SF 643I3 CHRIN"SERN3" C44ø t^EM PRUGF>AI'I "SEAMS' CHAINED FROM 6 50 HEM PROGRAM "SERN2 6460 IF HA$ -""CFOLSTBD" THEN 6470 IF HA* 'CFODSTBD" THEN BH=13:SH=13 6480 IF HA ■ CFO STBΘ" THEN BH=1 :SH=13 6490 IF HA*="CF0DSTBG" THEN BH=13:SH=13 65 0 IF HA* CFOLSTCR" THEN BH=13 SH=13 6510 IF HA*="CFODSTCR" THEN BH=13:SH=13 65413 IF HA* =-"r -aLS7ME" THEN BH=15 ιSH=15 655121 IF HO* -""CFUUSTIIE" TlIEN BH=16 ■ .SH=16 6560 IF HA* -"CFOUSTUL" THEN BH= 17 :SH-»17 65713 IF HRS=="CFOl)SIU_" THEN BH=18 i SH= a 6500 IF HR*- = "CF0Lwrjr3υ" THEN BH=19 :SH=19 6590 IF 110*- ="CFODWBBD" THEN BH=20 ιSH=13 660V? IF IIA .- -."CFOLWBBΘ" THEN BIN 19 ιSH=19 6660 IF HA = -"CFOLWBME" THEN BH=21 :SH=21 6670 IF HA$= -"CFUDWBME" THEN BH=22 :SH=22 66Θ0 IF IIA*= -"CFOLWBLL" THEN BH=23 ! SH=23 6690 IF HA*= -"CFODt-JBL " THEN BH=24 i SH=24 S 0 IF HA*= -"CFDLFZBD" THEN BH=25 : SH--25 6710 IF Hfl*= • "CFaDFZBD" THEN BH=26 : SH=2t3 .,720 IF IIAiU= -"CFOLFZBG" THEN BH=25 :SH=25 6730 IF HR*= -"CFODFZBG" THEN BH=26 :SH=25 67Aø IF 110*1= = "CFOl_FZCR" THEN BH=25 : SH=25 6750 IF HA*= -"CFODFZcrr* THEN BH=26 : SH=23 6760 IF HA*= -"CFϋLFZSS" THEN BH=25 : SH=2S 6770 IF HA*= '"CFODFZSS" THEN BH=26 :SH=26 6780 IF IIA*='"CFQLFZ E" THEN BH=27 :SH=27 6790 IF HA*=■"CFODFZME" THEN BH=2β : SH=28 6β0ø IF HA*= | "CFOLFZLL" THEN BH=29 : SH=-29 60lø IF HR*="CFODFZLL" THEN BH=30 : SH=3ø 6020 IF HAT.="CFOL VBD" THEN BH=19 :SH=19 604ø IF HA*="CFOLKVBG" THEN BH=1 !SH=19 6050 IF HAt="CFODWVBΘ" TlIEN BH=20 :SH=19 6060 IF IIAT--"CFOL VCIV THEN BH=19 :SH=19 6870 IF HA*= CFOOWVCΠ" THEN Bl-I=20 sSH=19 6800 IF HA*="CFO WVSS" THEN BH 19 !5H~-19 6090 IF HRT.= 'CF0DWVS5" THEN BH=20 : SH=20 6900 IF l-IAH-s" FOLWVME" THEN BH=21 ! SH=21 6910 IF IIf1-5="CFϋDWVME" TlIEN DH=22 !SH=22 692ø IF IIA1:="CFOLWVLL" THEN BH=23 : SH=23 693ø U~ IIAS="CFODWVLL" THEN BH=2't i SH=24 694 IΓ nnt- "CFOLCYBD" THEN BH-25 £3H=25 6950 IF HA*= CFOUCYBiV TlIEN BH=26.SH=-23 6960 IF HA*= "CFO CYBG" TlIEN BH=25 : SH=25 6970 IF HA$= • CFOOCYBG" THEN BH=26: SH=25 6900 IF IIA*="CFOLCYCR" THEN BH=25: SH=*25 699ø IF HAΦ="CFODCYCΓ?" THEN BH=26: SH=2S 7010 IF 1-10*= CF0DCYS3" THEN BH=26! SH=>26 7ø2ø IF HA*="CFOLCYME" THEN Bll=27: SI ,--27 7030 IF HA1i="CFODCYME" THEN BH=2Bι SH=28 704ø IF fmm—."f:FULCYLL" HEN BH=-29ι SH=29 7050 IF IIA*="CFODCYLL" 1HEN BH=3 : SI 1=30 71£ø IF HH*= "CFOLMFSΩ" THEN BH=11 SH=11 7130 IF HO 35= "CFODRFBB" THEN BH=12 SH=12 7140 IF HR3!= " FOLflFME" THEN BH=li SH=11. 7130 IF I l«!S= "CFODRFME" THEN BH=12 SH=-12 7160 IF HB'!; = "CFOLfiFLL" THEN BH=11 SH=11 7170 IF HH*=- "Cl-αDOFLL" THEN BH=12 SH=12 71410 TF I IH-li" "Ct'lOLBTBr" THEN Bl 1=82 SH= 9; 7190 IT |-lf-l 5=- "CMODSVBD" THEN BH=B2 SH=79 7200 IF Hr-1!B = "lll.irjLSTRΘ" THEN BH=82 SH--79 7210 IF HM*= "CMϋϋΞTEG" THEN BH=Θ2 SH--79 7220 IP Hlϊ*= "CMO STCπ" THEN BH=Θ2 SH=79 7S50 IF H'rV£ = "CM0D3TSS" THEN BH=84 SH=74 7260 IF l!fVP= "CMQ Sft'IE" THEN BH=85 SH=75 7270 IF i m*-* "CMCDSTME" THEN BH=β6 SH=7S 7280 IF nn*= "CiTDI-.SrL " THEN BI 87 SH=77 7290 IF Hθ-ε= "CMODSΓL " THEN BH=B8 SH-»78 7300 If " i ιn-r.= ■ Mαu BBU" TlIEN BH=97 SH=79 7310 IF Hf-TS= "CMOUUBPD" THEN BH=97 SH= * 79 7320 V- i incB- "CMUL.t-JHBG" 1HEN BH=97 SH=»79 7330 IF HOS-= "C.MUIJWBBG" THEN BH=9 SH=79 734ø IF nni: " I'IOLWBCR" THEM BH=82 SH--79 735ø ir HH*= "ctiαDwncR" THEN BH=B2 SH=79 73S0 IF nms- "CMOLHBΠS" THEM BH=97 SM=67 7370 IF "CWODWBSS" THEN BH=98 SH=68 73?)0 IT i ιnτ.' "CMOUWBME" THEM BH 99 SH=69 7390 IF Htt.fr "CMODWBME" THEN BH= sSH=70 74øø 1F I irvr.i "CMOLWBI. " THEN BH=lβl:SH- 1 7410 IF HRt.-= ■■ ΠMUDHBLL" THEN BH=lø2-SH=*72 7420 Il~ I IRT-= "CM0LF7.PD" THEN BH=82:SH=*79 7430 IF HP'_=- "CI1O0FZBD" THEN BH=82:SH=»79 744ø IF i-irvii-- "CMCLFZBG" THEN BH=82:SH=79 7470 IF HfT£= "CMODFZCR" THEN BH=821SH=73 7500 IF iinτ.= "UMQ FZME" THEN BH=93ϊSH * -82 7510 IF I IM15= " I'IODFZME" THEN BH=94:SH=83 7520 IF πrι , ?= ■ MΓJLFZLL" THEN BH=95:SH=84 7530 IF HH'β= "CMOuFZLL." THEN BH=96sSH=85 7540 IF I IMrr.:- "t:iai_wvnu" THEN BH=97:SH-79 755Λ IF HO«= "CMαDWVBD" THEN BH=97sSH=79 757ø IF HOS="CMQDWVBG" THEN BH= 7:SH=79 75G0 IF Hn*=-"CMOLWVC " THEN BH=82:SH=79 7590 IF Htt*="CMDDWVCR" THEN BH=82-SH=79 7G00 IF no*-- "Cr'ltJLWVBS" 1HEM Bl1=9 :SH=67 7610 IF HO* ="CMUϋWVSS" THEN BH=98:BH=6Θ 7630 IF H(-ι$=" MUDWVME" THEN BH=10ø:SH=70 764ø IF Hfl!S="CMQLWV U" TtIEN BH=løl:SH-»71 7690 IF HA-Js="CMODCYBG" THEN BH=82:SH=79 77øø IF MOS="CMOLCYCR" THEN BH=82:SH=79 7713 IF HR*="CMODCYCR" THEN BH=82!ΞH=79 772ø IF Hn .="CltαLCYSS" THEN BH=91ιSH=80 7730 IF Hft*= | "CMO0CYSS" THFN 8H=9---SHe$l &Ga s<τj rι , s c B t3 Cs oo tDC3tD s crιffl ffl cac3 CD 3C-. c-. c c **»t- s i t t-j t>. s. t-j r.j ... >si r.. 'II n ■■ r i ... ΓJ ^ rj ι ■ — — — ►- >- -* — ■- — ^ 3 >3 & 3'S | 3 j S 5 '3 j , a ul l al. n) J i-l U a2 : * i5 C3 ta C30 '!J Q CD *s| -s| | -sl ~| « «j _ " > " - ■• 's j ■ i * g ,j C5 « ι 01 if i ώ fι - O si O '. A j "-J *_1 -j -. O -. _> *S "ύ _ l S ι5 -s| - ϋ O j '5 ^. c£i cj ■ _> Cj 5 5 O CCC <S <S j • _. ό *ηt - — i -J -J "I "J "J j — — i " J "J — . — . ~i " 1 ~J " J "J "I "1 " - - -, - ; — ' — i — -n — i ~ι ~ι ■ 4 *. 1. 8400 IF 84*.ø IF a-iεø IF 843ø IF HPJ*= ■ RFODCYCR" THEis BH=89:SH=79 8450 IF HO*= 'RF0DCYS5" THEN BH=6a!SH-62 84613 IF nn*=- • RFOLCYHE" THEN BH=59!SH=63 8470 IF HOS-* • RFOϋCYME" THEN BH=7ι3:SH=64 8480 IF HR1-= 'OFOLCYLL' 1 THEN BH=*71sSH=65 849® IF HRS=- • RFOOCY L" THEN BH=72sSH=66 8500 IF HR*= • nFO RFBD" THEN BH=11 :SH=11 851ø IF HR'-=- 'RFOORFBD" THEN BH=12:SH=12 85£ø IF nn*= 'RFCLnFBB" TlIEN BH=11 sSH-*ll 8530 IF HR*= • RFODRFBG" TlIEN BII=12sSH*-12 854'3 IF ι-ιn$= 'RFα fTFC " TlIEN BH*-llsSH-»li 855Θ IF HR*= ■ RFODRFCR" THEN BH=12:SH-*12 85βø IF Hnt= ■ RFαLRFSS" THEN BH--ll!SH'-ll 857'3 IF HA*= ■ RFOUOFSS" THEN BH=12:SH--12 S580 IF HfT?-- • RFOLpFME" TlIEN BH=ll!SH=ll 859ø IF Httti-- • RFODfiFME" THEM BH-"12:SH=12 θeøø IF Iints-- 'RFDURFl-L" THEN BH--11 sSH=ll 8610 IF HR*= ■ RFODOFU " THEN BH=12:SH-*12 85Ξø IF nπt.= • RMOLSTBD" THEN BH=lø3:SH=86 8630 IF Hnt.= • f-ΪMr DΞTBD" THEN BH=l 3:SH=86 86 0 IF ftnf= • RMQLSTBβ" THEM BH=lø4!SH-*87 8660 IF Hot.-* • R O STCΠ" THEN BH=lø6:SH=79 867ø IF HOt= • MQDSTCR" THEN BH=89:SH=79 8680 IF HR*>= • RMO STSS" THEM BH=127:SH=89 869ø IF HR*= ■ RMODSTSS" THEN BH=lSθ:SH=9ø 8700 IF iinf-- ■ RMϋ STME" THEN BH=129.SH=91 871ø IF HRS= 'RWODSTME" THEN BH=13ø:SH=-92 8720 IF i-in .-* ■ RMO STLU" THEN BH=1 l:SH=93 8730 IF HR*= OHαDSTLL" THEN BH=l32sSH=94 874ø IF Hnι.-- • RMOL BBD" THEN 875Θ IF HO.= 'nHQOWBBD" THEN BH=lø3:SH=θ6 8760 IF nn-.= ■ nMOLWBBG" TlIEN BH=11 :SH=95 8770 IF HfJ= 'RMϋDHBBG" THEN BH=11 :SH=96 8780 IF Hn*= ■ RNO WBCR" THEN BH=lø6:SH=79 8790 IF MRU= ■ nMϋϋWBCR" THEN BH=89.SH=79 881ø IF Hfl1i= • RMODWBSS" TllEN BH=134.SH=9Θ 88Sø IF Hnι.= 'fiMO WBME" THEN BH=135:SH=gg 8830 IF 884ø IF ιιnτ=- • RMQ WBL " THEN BH--137JSH--1 1 8850 IF l-lR'-.= "RMαDHBLL" THEN BH=138:SH=-l 2 8860 IF Hflt.= ■ RMOLFZBO" THEN BH=lø3:SH=-86 8870 IF HΓ»Ϊ= ■ RMOIJFZBO" THEN BH=103:SH-*86 aaaø IF HRT-= • RMOLFZBG" THEN BH=121:SH--l 3 8890 IF nnt:= ■ RMDDFZBB" THEN BH=122:SH=10 8900 IF nnt= • nt'lOLFZCR" THEN BH-*l " ø6:SH=79 Θ91ø IF W1S= • RMODFZCR" THEN BH=89•-SH=7g 8 -a IF H0*= • RMOLFZSS" THEN BH=-139!BH=l 5 8930 IF Hn*= ■ RMDDFZSS" THEN BH=140sSH=lø6 894ø IF ι-ιnt>= 'RMOUFZME" THEN BH=1 1sSH-»107 Θ950 IF HR*= 'RMODFZME" THE BH-*1 2sSH*-lø8 Θ96ø IF HH*= ■ nNαLFZLa." THEN BH=1 3:SH-*1 9 897ø IF HO*= • RMODFZLU" THEN BH=144!SH= 10 8990 IF HH$= • nHOOWVED" THEN BH=lø3:SH=86 9øøø IF ιιrιs= ■ RMOLWVBG" THEN BH=113.5H=g5 9ølø IF Hnp= 'RNOIJWVBG" THEN BH-=114:SH=96 90Eø IF iιπt.= ■ RMOLWVCR" THEN BH=106.S.H=79 9030 IF HPι*= ■ OMUDUVCR" TI IEN l.'H=83:SH=73 Sβfo IF HA*= ■ flHO WVgS" THEN BH=145sSH--) t 1 :SH=-107 :SH=108 9250 IF HOt--"OI10ϋriFBΘ" THEN 92S0 IF Hnτ.-"nMOLnFCR" TllEN 929ø IF HOc-= M nMOι)(-ll-SS THEN BH=12:SH=12 9300 IF Hni. « "0WOLnFME" THEN BH=11 :SH=-11 9330 IF H04="MMQϋHFLL" THEN BH=1 :3H=12 934ø COf-IMϋN DO , fl*, B$, C*, D*,E!,F*, BΦ.HS, IS, J* 9350 COMMON SP1*, ΞP2*, SC1$_,NO*,Ffl*, PΘ, BG,SB, PE, BE,SE,PB,BB,SB 9360 COMMON EY*, HO*, BE*, St.*,NO$, NflMS, PN, BN,SN, PF, BF,SF 937ø COMMON SIGN*,S, T*() , PF*O ,BF*<) , SF*O , SH,BH,G,H 9380 CHP,IN"ΞEHN4" S39β ΠEM PROGRAM "sεnN.y CHAINED FROM 9400 ΠEM PROGRAM "SERW3 9410 IF HFl*= • CFBLSTBD" THEN BH=-1:ΞH=1 9420 IF M- • CFBDSTBD" THEN BH=1:SH=1 9430 IF Hf-U.-* • CFELSTBG" THEN BH=l:SH=l 344ø IF HA1>= 'CFBDSTBG" THEN BH=1:SI1=1 945Θ IF Hns= 'CFELSTCR" THEN BH=lfSH=l 9460 IF ιιn$= • CFBDSTCH" THEN BII=1:SH=1 9470 IF Hn*= ■ CFBLSTSS" 1HEN BH=iϊSH=l 94ΘΘ IF HnH= • CFBDSTSS" THEN BH=1:ΞH=1 3490 IF nn*= • CFBLSTME" THEN BH=2:SH=E 9500 IF HDI ; =- ■ CFBOSTME" THEN BH=2:3H=2 9510 IF HRT>= ■ CFBLSTUL" 1HEN BH=3:SH=3 9523 IF HΠ ;= • CFBUSIL " THEN BH=3:SH=3 9530 IF Hnr= • CFBLWBBD" THEN BI 1=4: SH=4 9540 IF Hn*= ■ CFBDWBBϋ" THEN BH=-4:SH=4 9550 IF HH*= ■ CFB UBBG" THEN BH=4:ΞH=4 956ø IF nn$= ■ CFBDHBBG" THEN Bl-I= :SI1=4 9570 IF Hfι*= • CFBLWBCR" THEN BH=4:ΞH=4 958ø IF ιιnι.= • CFBDl-JBCr?" THEN BH= ιSH=4 9590 IF nn*= • CFB WBSS" TfIEN Bf1=4 : Ξ!1=4 9600 IF HΠ$= • CFBDHBSS" THEN BH=4:SH=4 9610 IF HH*= ■ CFBLWBME" THEN BH=5:SH=5 962ø IF HA*= 'CFBDWBME" THEM BH=5:SH--5 9630 IF Hfl*= ■ CFB..WBLL" THEN BH=S:SH=S 3650 IF Hn*= ■ CFBLFZBD" THEN BI1= :SI1=7 966ø IF HO*= ■ CFBD ZBϋ" THEN BII=7:3! 7 967ø IF 9680 IF 9690 IF 9700 IF nnt-= • CFBUFZCR" IT-IEN BH=7:GH~7 9710 IF Hnτ.= ■ CFBLFZSS" THEN BH=8ϊSH=7 972ø IF Hns= 'CFB FZSS" 1 l-IEN L!H--7:3H-7 973ø IF Hni!= ■ CFBLFZME" THEN BH=9:S!l=lø 974ø IF HO*= • CFBDFZME" 11IEN BH=10:SH--=lø 9750 IF Hnr>= ■ CFBLFZLL" IIIEN BH=11:SH=12 9760 IF Hflϊ= • CFBDFZL " I HEN BI l=l≤:liH=12 9770 IF Hn*= ■ CFBLWVBD" THEN BH=4:SH=4 9780 IF Hnt= ■ CFBDWVBD" IT-IEN BI 1=4:Sit=4 979ø IF HR*= ■ CFBLWVBG" THEN BH= : SH--4 98øø IF HflU-= "CFBDT-.VBG" 1 HEN BH= :ϋH=*4 9810 IF HΠ*= ■ CFBLWVCR" 1 HEN BH= :5H=4 9820 IF Hflt-= • CFBDWVCR" THEN BH=4:311=4 9830 IF Hn*= • CFBLWVSS" THEN BH=4:SH=4 9840 IF HΛ*= • CFBDHVSS" TlIEN BH=4:GH=4 9850 IF Hn*= ■ CFB WVME" THEN BH=5:SH=5 9860 IF .H01i= ■ CFBDWVME" " I HEN BI 1=5:SI-I--5 9Θ70 IF HO*= "CFBLWVLL" THEN BH=6:SH=6 9880 IF Hfl*= ■ CFBDIJVLL" T HEN 8H=6:SI!=6 9890 IF H03!= ■ CFB CYBD" THEN BH=fl:ΞH=7 99βø IF HFVS= ■ CFBDCYBIJ" THEN BH=7-:ΞII=7 9910 IF Hf.*=- ■ CFB CYB8" THEN BH=Q :SI 1=7 9920 IF Hn«= "CFBDCYBG" THEN BIT=7:SH=7 9930 IF Hn*= 'CFB CYCR" THEN BH=8:SH=7 9940 IF HFl!5= "CFBUCYCR" TlIEN BH=7 :SI1=7 9950 IF nnct;-- ■ CFB CYSS" THEN 9970 IF Hfl*-- "CFBLCYME" THEN BIT=9:SH=lβ 9990 IF HΠ*= "CFB CY L" TfIEN BH=11:3H=12 10010 IF HO* -"CFBLflFBD " THEN DH=11:SH=12 IQβSø IF 10030 IF HA1i<-"CFΘL.f-ll : '&G , • IHl-N BH=ll:SH=-li2 ■ 10070 IF HR1»-*"CFBLHFΞS" THEN Dl-I=l 1 :SH=1£ løøβø IF HO*="CFBDOFSS' ■ THEN BH=12:SH=12 10120 IF Hn*--"CFBDfiFL " ' THEN BII=12:GH=12 10130 IF HfM ■ >--"CMBLSTBυ ,, 1 THEN BH=79:SH=7 10140 IF HOC-= M CMBDSTBD" THEN BH=79:ΞII=7 1»150 IF Hn$="CMBLSTBG" THEN BH=79:SH=7 10170 IF THEN BH=79:SH=7 lølflø IF 10190 IF HiH<ι=>"CMBLSTSS" THEN BH=73:5H=73 10200 IF HOS--"CMBDSTSS" THEN BH=73:SH=7-4 10210 IF Hn*-»"CMBLSTME" THEN BH=74:SH=73 10220 IF Hn*--"CMBDSrME" THEN BI 1=74: 511=76 10230 IF Hn*«-"CMBLSTLL" THEN BH=75: 5H=77 • lι?24ø IF Hfl$» ,, CMBDSTl_L" THEN BH=75:ΞH=78 10250 IF HflS="CMBLWBBD" THEN BH=76:SH=7 10270 IF H03l-• CMBLlsJBBS ,, TllEN BH=76 : GH=7 10280 IF Hfl*="CMBDWBBQ" THEN BI 1=76: SI 1=7 10290 IF HH*--"CMBLWBCR" THEN BH=79:ΞH=7 10300 IF Hr.$ = "CMBUWBCrf" THEN BH=79:ΞH=7 10310 IF HO*=."CMBLWBSS" THEN BH=76: 311=67 10320 IF Hfl*="CMBDWBSS" THEN BH=76 : GH=6S 10330 IF Hfl$="Cf1BLUBI1E" THEN BH=77:ΞH=69 10340 IF HOH---"Cf'IBDWBME" THEN BH=77: 311=70 10350 IF Hn*=-"CMBLWB L" THEN BH=7B:ΞH=71 10360 IF NO*- » "CMBDWBLL" THEN BH=78:ΞH=72 10380 IF HOS="CMBfJFZBL)" THEN BH=79:SH=7 10420 IF Hn*="CNBDFZCR" THEN BI-I=79:3H=7 10430 IF HR1i=."CMBLFZSS" THEN BH=79:SH=7 10450 IF Hni5-- ,, CNB FZME" THEN BH=aø:ΞH=10 10460 IF Hn*="CMBDFZME" THEN BH=8ø:SH=10 10470 IF Hn*="CMBLFZLL" THEN BH=81:ΞH=12 10500 IF H^,fi = "CN8L>l • IVB!J , * THEN BH=76:GII=7 10520 IF Hf1*-»"CI'IBDWVBG" THEN BI 1=76:311=7 10540 IF Hni*-- ,, CMBl) VCn" THEN BI 1=79: SI 1=7 10530 IF Hft1>=-"CPIBLWVSS" THEN BII=76:SH=67 10560 IF Hn$="CNBDWVSS" THEN BH^76:3H=68 10570 IF Hn$--"CMB WVME" THEN BH=77:5H=69 10580 IF Hm.= "Cr BDt v|ι1E" THEN BH=77:ΞII=70 10590 I Hfit.=-"CMBl.WV L" THEN BH=78!SH=71 lø6Θø IF Hn$=-"CMBDIJVLL" THEN BH=78:3II=72 10610 IF Hnt.=>"CMBLCYBD" THEN BH=79:SH=7 10620 IF H01!="CMBDCYBD" THEN BH=79:SH=7 i β 3Θ IF HF^'6-- ,• MBt-.CYBS • ' THEN BH=79:SH=7 10640 IF HRf="CMBDCYBG" THEM BH=79:SH=7 10650 IF HOS'-.'-CMBLCYCR" THEN BH=79:SH=7 -10660 IF Hn*="CMBllCYCH" THEN BH=73:SH=7 tβθ7β IF HO**-"CMBLCYSS" THEM SH=79:SH=7 TU*_N BH=73-S H= 7 ,, *' w r Wftat* rM at r- •/«-- II i TU-. ouii-iSH 5 / 10790 IF HA# CM8DCYME" THEN BH -.80.SH.-ie 1071O IF HG*' CMBLCYLL" THEN Bf+ θl:SH--iε 10730 IF HO* CMBLAFBD" ' il-IEN BH = 1 sn-ιε .0740 IF HA*="CMBDAFBD" THEN BH 12:SH=12 10750 IF HA < S= ■ CMB RFBG" THEN BH 12:SH=12 10760 IF ιιns= • CNBDRFBG" THEN BH = 1 SI 1=12 10770 IF Hn*-*"CMBLRFC " THEN BH* 12!ΞH=12 10700 IF Mn*="CMBDRFCR" THEN BH= 12:511=12 lβ79ø IF Hn*-"CMBURFSS" THEN BH= 12sSH=12 lOβ'-iø IF nn« "CMBDRFSS" THEN BH= 12:S!I=12 løθlΘ IF HflS-»"CriBLRFME" THEN BH= 12:SH=1£ •10860 IF nn-!= RFBDSTBϋ" THEN BH= 90:ΞH=Θ6 1087O IF HO* "RFBLΞTBG" THEN BH= 104:SH= ' S7 10880 IF HΠΦ "AFBDSTBG" THEN BH= lø5:ΞH=aa 10890 IF nn* "RFBiVSTCπ" THEN Bll- 106:SH=73 10900 IF 1091Θ IF HR "RFBLSTSS" THE BH= 31sSH=31 10930 IF nns-*"RFB STME" THEN BH= 33:SH=33 1C950 IF HR* "AFBLSTLL" THEN BH %i5 ϊ SH— -ώ«J 10970 IF HR9=- RFB WBBD" THEN BH' 9ø!SH=86 10980 IF Hncε-a-"AFBDWBDU" THEN BH 90:SH=86 10990 IF HΛ*ι "nFB WBBG" THEN BH 113:SH=95 11000 IF HR* "RFBDWBBG" THEN BH 114:ΞH=36 11010 IF HO* "RFBLWBCfl" THEN BH 106:SH=79 11Θ30 IF HΑ* "RFBLWBSS" THEN BH 37:SH=37 .11040 IF HO* "RFBDWBSS" THEN BH 38 ϊ SI 1=38 11050 IF HRS- » "RFB WBME" THEN BH 39fSH=33 11060 IF HO* "RFBDWBME" THEN BH 40:SH=40 11070 IF HO* "RFBLWBUL" THEN BH ; 41:SH= 1 11080 IF HRS="RFBDWBLL" THEN BH 42:ΞH=42 11090 IF HOT.="RFBLFZBD" THEN BH 90:SH=86 lllCiø IF 11110 IF HA* "RFBLFZBG" THEN BH 113:SH=1Θ3 11120 IF HR*=»"RFBDFZBS" THEN BH 114:ΞH=lø4 11130 IF ι-ιnι* "RFBt-FZCR" THEN BH^ 106:SH=79 11140 IF HΠ*= flFBDFZCrt" THEN BH 83 : 5H=79 11150 IF HfTfl="RFBLFZSS" THEN BH 8:SH=8 11160 IF HR* •• RFBDFZSS" THEN BH 7:SI-I=7 11170 IF HO* "RFBLFZME" THEN BH 9 : SH=9 11180 IF HRS "RFDUFZHE" THEN BH =10:SH=lβ 11190 IF ι-ιn* "AFBLFZLL" THEN BH= = 11:SH=11 11200 IF HA*="RFBUFZLL" THEN BH= = 12.:SH=12 ttSlø IF HR*="RFBLWVBD" THEN BH= :90:SH=86 1123© IF HR*="flFBLWVBG" THEN BH= =113:SH=95 11240 IF HA1=.="RFBDWVBG" THEN BH =114:SH=96 11250 IF HR*="RFBLWVCR" THEN BH= • 106:ΞH=79 tt27Θ IF HAS "RFBLWVSS" THEN BH= =37: SI 1=37 -11280 IF HAS "flFBDWVSS" THEN BH: -38: SI 1=38 1±29Θ IF HR*«"RFBLWVME" THEN BH: =33:SH=33 • 11300 IF HA*-* fiFBDWVME" THEN BH: =40 : SI 1=413 11-310 IF HRS= RFBLNVLL" THEN Bill - 1:SH=41 11320 IF H0*="AFBDWVL.L" TllEN BH =42:311=42 11330 IF HR* "RFBLEYBD" THEN BH: =90:ΞH=)86 11,748 TF HA * 'τ P&DCYBG "THEN 8Hs98:5H= 86 " 11350 I HR*-- ,, RFBLUYBG" THEN BH=121 :SH=103 11360 IF HRt.="RFBDCYBG" Tl- - • BH=122:ΞH=1'34 11370 IF HR*»"RFBUCYCR" Tho, BH=lø6:SH=73 115&0 IF HRt->"RFBDRFL " THEN BH=12:SII=12 11570 IF HR*«-"RMBLSTBD" THEN BH=lø3tSH=86 11.590 IF HRG-'OMBLSTBG" THEN BH=104:SH=87 11600 IF HR*="RMBDST8G" THEN BH=105:SH=88 11610 IF HR*=-"RMBLSTCR" THEN BH=106:SH=73 11620 IF HR<-.»"nMBUSTCfr' THEN BH=83:SH=79 1163ø IF Hn«ι»"nMBLSTSS" THEN BH=107:SH=89 11640 IF HR4="RMBDSTSS" THEN BH=108:SH=9ø 11650 IF HR*-"RMBLΞTME" THEN BM=lø9:SH=91 11660 IF HR*="RMBDSTt<IE" THEN BH=110:311=92 11670 IF HflϋWRMBLSTLL." THEN BH=111:SH=93 11680 IF HR*»"RMBDSTL " THEN BH=112:SH=94 11&9Θ IF HR*-"RMBLWBBD" THEN BH=103:SH=86 11700 IF Hn*=»"R BDW8BD" THEN BH=lø3:SH=86 11710 IF HR*-"flt < 1BLWBBG" THEN BH=113:SH=35 11720 IF HR*=-"RI1BI)WBBΘ" THEN BH=114sSH=96 11740.IF HR*="RMBDWBCR" THEN BH=89:SII=79 11750 IF HRH-»"RMBLWBSS" TllEN BH=115:SH=97 11770 IF HnU- » "RMBLWBME" THEN BH=117:SH=39 11780 IF HR'5--"πMBDWBME" THEN BH=118:SII=1Θ0 11790 IF HR »"nt'IBL BL " THEN BH=119:SH=101 11810 IF HR*- » "RMBLFZBD" THEN BH=103:SH=86 11820 IF lin*->"n BUFZBlJ" THEN BH=lø3:ΞH=a6 11830 IF IIR*ι™"RI1B FZBG" THEN BH=121 :SH=103 11860 IF HR*--"nMBDFZCrr' THEN BH=a9:SII=73 11870 IF HR*= ,, RMB FZS5" THEN BH=123:SH=8 1*910 IF HRT-*"ni>1BLFZUL" THEN BH=11:SH=11 11930 IF Hnii»"RHBUWVBD" THEN BH=lø3:SH=86 11950 IF HR"- ,, RMBLHVBG" THEN BH=1138ΞH=35 11960 IF HRta'-nHBDU BG" THEN BH=U4:SH=36 11970 IF HR$="RMBL.UVCR" TllEN BH=lø6:SH=79 1198<?< IF 1133 0 IP 97 i2ββ© IF HR T *- A 8DHVSS" THE BH ; U6.5H*98 f201δ IF Hfl*-«"RMBLWVME" THEN BH= 117:SH=99 12*23 IF HR*«"flMBDWVME" THEN BH= 118:ΞII=1Θ0 12030 IF HR*--"RMBLWVLU" THEN BH= 119:ΞH=101 120Λ0 IF HR*--"RMBDWVLl-" THEN BH: 12 sSH=102 12Θ50 IF HR*«"flMBLCYBD" THEN BH= 1Ø3JSH=Θ6 12060 IF HR!?-*"RMBDCYBD" THEN BH= lø3sSH=β6 12070- IF HRT.-"RMBLCYBΘ" THEN BH= 121:51-1=103 ■12ΘS0 IF Hn*-*"flMBϋCYBB" THEN BH= 122:SH=104 teas® IF HRi'-'OMBLCYCR" THEN BH= 106:SH=79 121C0 IF HR*-* ,, RMBDCYCr * " THEN BH= 89:SH=79 12-130 IF HR*="RMBLCYME" THEN BH= 125:SH=9 1S1S0 IF HR*-*"RMBLCYt. " THEN BH= 11 tSH=ll 12l60 IF HRS="RMBDCYLL" THEN BH= 12:ΞH=12 12170 IF HR1i--"flNB flFBD" THEN BH= 11:SH=11 12180 IF HR*="flMBDRFBD" THEN BH= 12:SH=12 teigø IF HR*-* ,, RMBI-.RFBG" THEN BH= 11:SH=11 12200 IF THEN BH 12:SI 12 iεslø IF HR*--"RMBLRFCR" THEN BH= 11 : SH=11 12220 IF HR*-*"RMBDRFCU" THEN BH= 12:SH=12 12830 IF HRs«-"flMBLflFSS" THEN BH= 11:SH=11 122-V0 IF HR*="RMBDRFSS" THEN BH= 12:ΞH=12 12230 IF HR*= , *RMBURFME" THEN BH= 11:ΞH=11 12260 IF HR*-*"RMBDRF E" THEN BH= 12:SH=1£ 1227Θ IF HR*«-"fiMBLRFUL" THEN BH= 111 SJ 1=11 12290 COMtlON D O , RS, B*, C$, D*, E*, F*,G*, H*, I*, J* 12300 COMMON SP1Φ, SP2*, SCI*, NO*, FR*, PG, BG, SB, E, BE, SE, PB, BB, SB 12310 COMMON EY*, HR*, BE*, GL.*, MRS , RMS, PN, BN, SN, PF, BF, SF 12320 COMMON SIGN*, S, T* () , PF* O , BF* ( ) , SF* C 1 , SH, BH, G, H 12330 CHRIN"SERN5" 123AΘ REM THIS IS PROGRAM "SERN5 CHRINED FROM 12353 REM PROGRAM "SEAM-V : 12360 Z*="PEE"iZZ*=STR*(PE) :PF* (1 )= • ' ■ *ZZ*:MID*<PF*(1>, 12370 Z*="PNN" : ZZ*=STR* (PN) :PF* (2) = "+ZZ*:MID (PF*<2), , 3) =Z* 12360 Z*="PFF" - ZZ*=STR* (PF) :PF* (3) = "+ZZ*:MID*(PF*(3), , 3) =Z* 12390 Z*-»"PBB"!ZZ*=STR <PB) :PF*(4> = "+ZZ*:MIl)$(PF*<4), , 3) =z* 12400 Z!P=-"PGB" J ZZΦ=STRS (PB) : PF* (5) = "+ZZ*:MI1-*(PF$(5), , 3) =z* 12410 ΠEM 12420 Z*=»"BHH"sZZ*=STR*(BH) :BF* (1>= "+ZZ* !MID*(BF*(1) , 3 ) =z* 12430 Z*«-"BGE":ZZS=STR*(BE) :BF*(2)= "+ZZ* !MIBΦ(BF*(2) , 3 ) =z* 12440 12450 12460 12470 12480 REM 12490 IF SP=13 THEM SF* (1)="'":GOTO 12520 12500 Z*="SHH" tZZ*=STR* <SH) :SF*(1)=" '+ZZ*:l1ID*(SF*(l)- t 1,3)=ZΦ 12510 IF G=l THEN 1253Θ 12520 Z*="5EE" : ZZ*=STR*(SE) :SF*(2)= "+ZZ*:MID (SF*(2>, 1, 3)=Z* 12530 Z*="SNN":ZZ*=STR*(SN) :SF*(3)= "+ZZ*:MID*(SF*<3>, 1,3)=Z* 125 Λ s0 Z! t ιr. | 'SFF" iZZ*=STR* (SF) :SF*(4)= "+ZZ*ιMID*(SF*(4>, 1,3>=ZS 12550 Z*="SBB"i ZZ*=STR*(SB) :SF*(6)= "+ZZ*:MID*(SF*(6), 1,3)=Z* 12560 Z*»"SGB":ZZ*=STR*<SG) :SF*(7)= "+ZZ*:MID*(ΞF*(7), 1,3)=Z* 12570 IF I*="Y" THEN PF*<1)="" 12SΘ0 DE INT I 12590 LPRINT T*(19> >LPRINT T*( 17) :LPRINT T* (18) 12600 LPRINT T*<14) :LPRINT T*(15) :LPRINT T*<16) 12610 DIM PX(15>,PY(15) , (15),FIN* < 15) 12620 FOR 1=1 TO 10:HERD Z (I) , ZZ (I) :MEXT TO 9:READ (I) ,WW(I) :NEXT I jeenø"' Nnn -rin* 12660 LPRINT " j : H R" 12670 FIN*(1)="STRR" 12680 UN LEN(NflMS) GϋSUB 12730,12830,12960,13100,13250,13410,13610,13410, 13610, 3610 12690 SOTO 14160 • .. . 12700 REM I LETTER NAMES 12710 FOR 11=1 TO 4 12720 GOSUB 13820 12730 PX(1)=Z(2) :PY(1)=ZZ(2) :R(2)=ø 12740 PX(2)=Z(5> :PY(2)=ZZ(5> :R(5)=19:FIN*(2)= ID*(NRM*, 1,1) 12750 PX(3)=Z(6) :PY(3)=ZZ(6) :R(6) =18:FIN* (3)=-"PLURAL". 12760 PX(4)"Z(9) »PY(4)=ZZ(3) :R(9)=341:FIN*(4)="STRR" 12770 FOR 1=1 TO 4 12760 GDSUB 13840 12790 NEXT I 12600 NEXT II 12810 RETURN 12820 REM 2 LETTER NAME 12830 FOR 11=1 TO 4 12640 GOSUB 13820 12850 PX U)=W<2> ιPY(l)=WW(2) :R(2)=0 12860 PX(2)=W(4) :PY(2)=WU(4> : (4)=19cFIN* (2)=MID* (NRM*, 1, 1) 12870 PX(3)=H(5) :PY(3)=WW(5) :R(5)=13:FINU (3) =MID* (MRM*, S, 1) 12910 ΘOSUB 13840 12920 NEXT I 12930 NEXT II 12940 RETURN 12950 REM 3 LETTER NAMES 2 S6® FOR 11=1 TO -V 130 0 FOR 1=1 TO 6 -13050 GOSUB 13840 13060 NEXT I 13070 NEX T I I 13080 RETURN 13090 REM 4 LETTER NAMES 13100 FOR 11=1 TO 4 13110 GOSUB 13880 13120 PX(1)= (1) JPY(1>=WW(1) tR(1)=355 13139 PX(2)=W(3> |PY(S)=WW(3) :R(2>=16:FIN*(2)--MID*(MOMS, 1, 1) 13190 FOR 1=1 TO 7 13200 GOSUB 13840 i3εεø NEXT II 13230 RETURN 13249 REM 5 LETTER NAMES. 13250 FOR 11=1 TO 4 13260 GOSUB 13820 13270 PX(1)=Z<1> :PY(1)=ZZ(1) ι (l)=35G 13280 PX(2)=Z(3) :PY(2)=ZZ(3) iR(3)=15sFIN$(2)=MIDf (NflMS, 1, 1 13290 PX(3)=Z(4) sPY(3)=ZZ<4) :R(3)=19sFIN$ (3)=MID«(NOI'IS, 2, 1 .13300 PX(4)-Z(5> ιPY(4)=ZZ(5) :R(4)=19-.FINS(4)=MID-6 (NAMS, 3, 1 13310 PX(5)=Z(S) «PY(5)=ZZ(β) sR(5)=18:FIN$(5)=MID , S(NflMS, 4, 1 -13320 PX(6)=Z(7) :PY(6)=ZZ(7) :R(S>=10:FINcS(6)--MID*(NPH1*.5, 1 13330 PX(7)=Z(8) tPY<7)=ZZ(8) :R(7)=356:FIN* (7)="PLURP,L" .13340 PX(8)=Z(10) .PY(8)=ZZ(lø) :R(S)=329:FIN$(8)="STflR" 13330 FOR 1=1 TO 8 13360 GOSUB 13840 13370 NEXT I :13380 NEXT II 13390 RETURN 1340Θ REM 6 & 8 LETTER NfiMES .13410 FOR 11=1 TO 4 13420 GOSUB 13820 ' 13430 P (1)=W(1) :PY(1>=W (1) :R(1)=355 13440 PX(2)=W(2) :PY(2)= W(2) ι (2)=8 13450 PX(3)=W(3) :PY(3)=WW(3) :R(3)=16 13460 PX(4)=W(4> :PY(4)=WW(4) R(4)=18 13470 PX(5)=W(5) :PY(5)=WW(5) R(5)=17 ' ■ 13489 PX(6)=W(6) :PY(6)=WW(6) R(6)=16 13490 PX (7)=N(7) :PYC7)= (7) R(7)=6 .13-500 PX(8)=W(8) :PY(8)=WW(8) R(8>=351 13510 PX(9)=W(3) sPY(9)=IJW(9) R(9)=339s INS(9)="PLURfiL" 13529 IF LEN(NfiM$)=0 THEN 13540 13530 FOR 1=2 TO 7:FIN*(I)=MID!f.(NPM*, 1-1, 1) (NEXT I .FIN*(8)="PLURflL":FINS (9J="STf R".QOTO 13550 13340 FOR 1=1 TO BiFIN*(I)=MID$(NfiMΦ, I, 1) NEXT I .13550 pan 1=1 TO 9 ' 13580 GOSUB 13840 13570 NEXT I 13583 NEXT II 13590 RETURN 13G0V REM 7 & 9 LETTER NfiMES -•3610 FOR 11=- TO* 13710 PX(9)=Z(9> sPY(9)=ZZ(9) :R(9)=341 13723 PX<lø)=Z(10> :PY ( lø) =ZZ ( 10) :R ( 10) =329»FIN* ( lβ> ="PLURRL" 137315 IF LE.KNflMS) (>7 THEN 13750 13750 FUR 1=1 TO 9.FIN*(I)--MID*(NfiM*, I, 1> :NEXT I 13760 IF LEN(NfiM*>=10 THEN FIN$(10)=MID*(NRM*, 10, 1) 13770 FDR 1=1 TO 10 13780 '.-αsUB 13840 13790 NEXT I a 13000 ;:EXT II 13810 RETURN 13820 IQ--II+1.IF IQ=5 THEN IU=1 -1+1)=A$:LP INT AAϋseRETURN 13880 1387C • R (I )=R ( I)+90:R(I)=R< I>*3.14159/180 c3Q8'_ι C1=C0S(R(I) ) :C2=SIN(R(I)) :C3=-SIN( (I) ) :C4=C0S< (I) ) 13891? I PUT.tl, X$.NP=VPL(X$) 13900 FOR IC--1 TO NP 13910 i.NPUT.H, X-fi.X=-VfiL(X*) : IF X (90 THEN 13930 13920 A-X: INPUTttl, X*sY=VRL(X*> JB=Y:GOSUB 1394 :W*=STRS (IX) :Y*=STRΦ(IY) :X«=W*+Y* IC--IC+1 1393© LPRINT X*:NEXT ICsCLOSEttl : ETURN :IY=fl*C2+B*C4:I =I +PY(I) : IY=IY+PX ( I)+10 : ETURN 14000 DfiTfi 8øΘ, 500 lΛølø DfiTA 880, 435 14060 DATfi 100,525 14070 DfiTfi 305, 500 14080 DfiTfi 486, 57G 14090 DfiTfi 61't, 545 14100 DfiTfi 730,510 14110 pnrfi 840,471 14120 DfiTfi 310, 't 14130 DP,rn 980,321 14140 DfiTfi lΘGø,£80 14150 REM HfilR 141S0 IF H=l THEN GOTO 14350: REM SPORT HAS A CfiP OR HfiT DO NOT DRfiW TOP OF IR 14170 FOR TN * -i TO 116 REM NUMBER OF HAIR TYPES 14180 REfiD HI 14190 IF SF=TM THEN 14220 14200 NEXT TM 14210 GOTO 14350 1 £5 5 SF^U *- SF$ D +" H W 14 SS© GOTO 143 ® 14270 REM THE FILES VALUES OF SHORT HAIR " 14280 DATA 1, 1,1,4,4,4,7. 9, 10,11,12,13,14,13,14, 13 \, 19, 20, 19,20, 19,20 14290 DATfi 25,26, 25, 26, 25;26,31, 32, 31, 32, 31, 32,.37, 38, :S7, 38, 37, 38 1430Θ DfiTfi 43,44, 43,44,43, 14, 49, 5ø, 49, 50, 49,50,55,56,55,56,55,56 "" 14310 DfiTfi 61, 62, 51, 62, 61, 62, 67,68, 67, 68, 67, 68, 73, 74, 73, 74, 73,74 ■14320 DATA 79,80,81,80,81,80,81,86,87,88,89,90,89,90,89,90 14330 DfiTfi 95,95, 97, 98, 97, 98, 97, 98, 103, 1Θ4, 105, 105, 105, 106, 105, 106 .14340 DfiTfi 111, 112,111,112,111,112 14350 REM PϋRPLOT.BRS 1436Θ REM PROFILE PLOT 14370 LPRINT "U P5" 14380 LPRINT Tt.(1> iLPRINT "INNER".LPRINT NAΦ.LPRINT CHR$(95) 14390 LPRINT "U PS" 14400 LPRINT TU(2) 14410 LPRINT CHR*(95) 14420 REM PLOT SPORTS NAME 2 LIMES IN PROFILE 14430 LPRINT T*< 19) :LPRINT T*<20) 14440 LPRINT "U P5* 14450 FOR 1=1 TO 8 14460 PRINT PFtlKI) 144J0 IF PFcSvI)--"" THEN 14560 14480 PFS="C:"+PF!5lI> 14490 OPEN "I",ftl,PF* 14500 INPUT ttl, NP 14510 FOR J=l TO NP 14520 INPUT in , C$ 14530 LPRINT C* 145 0 NEXT J 14550 CLOSEIt1 14560 NEXT I 14570 REM BANKNOTE PLOT 14580 LPRINT "U PI" 14390 FOR 1=1 TO 7 14600 IF BFΦCI>="" THEN 14690 14610 BFS="C:"+BFS(I) 14620 OPEN "I",fH,BFS 14630 INPUT i , NP 14640 FOR J=l TO NP 14630 INPUT ttl, C* 14660 LPRINT CS 14670 NEXT J 14680 CLOSE ttl 14690 NEXT I 14700 LPRINT "U P6" 14710 LPRINT T* (3) 1472ø REM CllfiNGE TO SHALL PEN 14730 LPRINT "U PB" 14740 LPRINT T3.( ) 14750 LPRINT TΦC5) 14760 LPRINT T*C6) 14770 REM CHANGE TO BIO PEN 14780 LPRINT "U P2" 14790 LPRINT T*(7) 14800 LPRI ir TΦ(8) 14810 REM CHfiNGE TO SMALL PEN 14820 LPRINT "U PB" 14B30 REM PLOT VARIABLE NfiMES 14840 IF TV- (11)="" THEN 14860 14850 LPRINT TS(ll) 14860 IF T*(12)="" THEN 14890 14870 LPRINT T*(12) 14880 REM CHANGE 10 BIS PEN 14890 LPRINT "U P3" 1 900 LPRINT Tit(9) ■ 14940 REM SPORT PLOT 1495® FOR 1=0 TO 9 14960 IF SF*(I)="" THEN 15050 14970 SF*="C:"+SF*(I) 149S0 OPEN "I", ttl.SFΦ 14990 INPUT «1,NP .15000 FOR J=l TO NP 15010 INPUT 01, C* 15020 LPRINT C$ 15030 MEXT J 15040 CLOSE ttl 15050 NEXT I 15060 TX1!=NA$+" THE" 15070 Y0=14 ø+( (INT( (17-LEN(TX$) ) /2) )*18> 15080 NX=30Λø:I X=18 15090 FOR 1=1 TO * LEN(TX*> 13100 YO^YO+INX 15140 OPEN "I", )rl,FXcδ 15150 INPUTtfl, X:-:NP-=VAL(XΦ) 15160 FOR 11=1 TO NP 15170 INPUΠU, X* 1510O X=VAL(XΦ):IF X>90 THEN INPUTttl,Y$:11=11+1:Y=VAL(YΦ) iY=Y+YO.XXS-*X*+STRS(Y 15190 LPRINT XX5 15290 NEXT II 15219 LPRINT "U" 15230 CLOSEIH 15230 NEXT I 15240 YO-1440K (INT( (17-LEIJ (SC1Φ) )/2))*18) 15250 NX"2990lINX=lθ 15260 FOR 1 = 1 TO LEN(SCIS) 15270 YO-ΥQ -INX 15280 FI$=MIDS(SC1«, I, 1) 15290 IF FI$=" " THEN 15400 13300 FX*="C:"+FI* i53i0 OPEN "I",ttl,FX* 15330 INPUTttl,X$:NP=VAL(XΦ) 15330 FOR 11=1 TO NP 15340 INPUTttl, XT. 15350 X « VnL(X*) :IF X) 0 THEN INPUTttl,YSi I1=11+1:Y=VALCYΦ) :Y=Y+YOaXXS=XΦ+STRS<Y> 15360 LPRINT XXΦ 15370 NEXT II- 15380 LPRINT "U" 15390 CLDSEttl 15400 NEXT I tNE=t 15 10 COMMON NE 15420 CHAIN"HUMOR"

Claims: HAT IS CLAIMED IS: 1. The method for producing a personalized pictorial and text presentation comprising the steps of; storing selected personal information and physical data of a person; storing pictorial background information to be used in the preparation of the presentation; storing standardized textual information σompatable with the pictorial background information; converting' the stored personal and physical data to a pictorial representation of a person; combining the standardized textual information with the personal information to provide personalized text information; and reproducing a personalized pictorial rendition against the stored pictorial background accompanied by personalized text. 2. The method in accordance with Claim 1 in which the storing of personal information and physical data is done by physically entering the data on a common media. 3. The method in accordance with Claim 2 whereby the storing of personal information and physical data is accomplished by making machine readable marks on and by machine reading a card. 4. The method in accordance with Claim 1 wherein the step of converting the physical data is accomplished by storing a plurality of pictorial representations of different physical characteristics; comparing the physical data inputted with the stored pictorial representations; and selecting the matching pictorial representations for reproduction. 5. The method in accordance with Claim 1 in which the step of combining personal data and standardized text information comprises the step of inputting the personal data ino a computer which stores the standardized text information in the appropriate position in the text; and selecting appropriate gender for the standardized text. 6. The method in accordance with Claim 1 in which the step of reproducing the combined pictorial and textual greeting card or poster comprises the step of printing the personalized textual and pictorial information on a standardized background including standardized text and background with the personalized textual information inserted in the blanks in the standardized text and personal pictorial rendition inserted in the blanks in the stored pictorial background. -48- 7. Apparatus in accordance with cl-aim 6 including means for selecting appropriate language based upon at least one of the following factors: age, sex, and pastime. 8. A method of producing a personalized drawing of a user within preprinted background material comprising the steps of: recording a plurality of factors affecting the user's appearance; selecting at least two predesigned visual features most fitting to the user from a plurality of predesigned visual features in accordance with the plurality factors affecting the user's appearance; automatically controlling a plotter to draw the at least two predesigned visual features most fitting to the user within the preprinted background material to produce a continuous and personalized drawing of the user. 9. The method in accordance with claim 8 in which the at least two visual features most fitting to the user comprise the user's nose, hair style, eye, chin and ear. 10. The method in accordance with claim 9 in which the plurality of factors affecting the user's appearance comprise the following factors: the user's age; the user's sex; the user's race; the length of the user's hair; the color of the user's hair; the user's hair type; whether the user has facial hair; the size of the user's nose; whether the user wears glasses; and, the user's build. 11. The method in accordance with claim 10 in which the personalized drawing of the user comprises a profile. 12. The method in accordance with claim 8 further including the steps of: recording a favorite pastime of the user; selecting a predesigned action background material in accordance with the recorded favorite pastime of the user; and, automatically controlling the plotter to draw the selected predesigned action background material and incorporating the at least two visual features most fitting to the user within the selected ' predesigned action background material to produce a continuous and personalized drawing of the user acting out his/her favorite pastime. 13. Apparatus for producing a personalized pictorial and text document from standardized text material and pictorial background and personal data comprising: a standardized document including text and pictorial background, each of which include blank portions therein; computer means for: a) storing the locations of the blank positions in said standardized document; b) storing selected personalized date introduced into to the computer; σ) converting the stored selected personalized data into the personalized text and pictorial representations and the intended location thereof; d) controlling the movement of an impression producing device for producing the personalized text and pictorial representations on the standardized document in the appropriate locations on the standardized document; and an impression producing device for reproducing on said standardized document, the personalized text and pictorial representations. 14. The combination in accordance with Claim 12 including input means for said computer for introducing physical information with respect to the subject of the personalization and wherein said computer includes means for converting said personalized data into control signals for said impression producing device to produce a pictorial representation bearing a correspondence to the physical data inputted. 15. The combination in accordance with Claim 14 where said computer stores a plurality of control signals for producing a variety of different pictorial representations and including means for selecting the control signal corresponding to the physical information introduced into the input means. 16. The combination in accordance with Claim 12 wherein said input means includes a card reader for introducing physical information and a keyboard for introducing personalized text material. 17. The combination in accordance with Claim 12 whereinsaid impression producing device comprises a plotter adapted to receive said standardized document for plotting thereon and control signals from said computer for producing the personalized text and pictorial information. 18. The combination in accordance with Claim 13 wherein said computer means includes means for storing a plurality of control signals for said impression producing device, one control signal for each of a number of stored components of a pictorial representation and one control signal for each variation of each of said stored components depending upon the personalized data introduced into the computer means. 19. The method for producing a personalized pictorial and text presentation comprising the steps of; storing selected personal information and physical data of a person; storing pictorial background information to be used in the preparation of the presentation; storing standardized textual information compatable with the pictorial background information; converting the stored personal and physical data to a pictorial representation of a person; combining the standardized textual information with the personal information to provide personalized text information; and reproducing a personalized pictorial rendition against the stored pictorial background accompanied by personalized text. 20. The method in accordance with Claim 1 in which the storing of personal information and physical data is done by physically entering the data on a common media. 21. The method in accordance with Claim 2 whereby the storing of personal information and physical data is accomplished by making machine readable marks on and by machine reading a card. 22. The method in accordance with Claim 1 wherein the step of converting the physical data is accomplished by storing a plurality of pictorial representations of different physical characteristics; comparing the physical data inputted with, the stored pictorial representations; and selecting the matching pictorial representations for reproduction. 23. The method in accordance with Claim 1 in which the step of combining personal data and standardized text information comprises the step of inputting the personal data ino a computer which stores the standardized text information in the appropriate position in the text; and selecting appropriate gender for the standardized text. 24. The method in accordance with Claim 1 in which the step of reproducing the combined pictorial and textual greeting card or poster comprises the step of printing the personalized textual and pictorial information on a standardized background including standardized text and background with the personalized textual information inserted in the blanks in the standardized text and personal pictorial rendition inserted in the blanks in the stored pictorial background. 25. A personalized text and pictorial printed presentation produced by the process of: storing a plurality of segments of the facial features of various types; storing a plurality of hair styles; storing a plurality of clothing styles; introducing personal data of a person to be characterized into a storage means, said personal data including age category, sex and race; introducing personal data of a person including name into a storage means; selecting facial features, hair style and clothing as a function of the personal data introduced into said storage means; plotting a combination of facial features, hair style and clothing as selected to produce a pictorial characterization of the person; and printing personal data such as the person's name along with the pictorial characterization. 25. The combination in accordance with Claim 25 wherein said presentation is printed on a preprinted background including standardized text whereby said standardized txst and personal data such as the person's name constitute meaningful personalized text. 27. The combination in accordance with Claim 25 wherein the facial features stored include both front face and profile whereby both_ a front face and a profile of the person may be presented. 28. The combination in accordance with Claim 25 in which the storage means and selecting means comprises computer means.

Inventors: O'DONNELL SEAN F, ROSEWARNE FENTON, O'DONNELL, SEAN, F., ROSEWARNE, FENTON
Applicants: COMPUTER HUMOR SYSTEMS INC, COMPUTER HUMOR SYSTEMS, INC.
Application year: 1985
Main classification: G06F15
IPC codes: G06F3, G06K17, G06T11, G07F17