' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-!(! ŠɠΠˠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠Ġz# u`ORMANCE COULD HAVE BEEN SOME- WHAT BETTER, BUT REALLY WASN'T TOO BAD"" AT ALL. "P1" PEOPLE WOULD DEARLY LIKE":" TO SEE YOU ASSASSINATED, BUT WE ALL HAVE OUR TRIVIAL PROBLEMS.":" SO LONG FOR NOW.":)ISRAELI, AND JEFFERSON COMBINED COULD"J" NOT HAVE DONE BETTER!": 990" YOUR HEAVY-HANDED PERFORMANCE SMACKS OF NERO AND IVAN IV. THE PEOPLE (REMAIN-"" ING) FIND YOU AN UNPLEASANT RULER, AND, FRANKLY, HATE YOUR GUTS!": 990F" YOUR PERFL OF "D1:" PEOPLE DIED!!":L(100AP.5)100f:" YOU STARTED WITH 10 ACRES PER PERSON AND ENDED WITH "L" ACRES PER PERSON.":p P133 L7 565z P110 L9 940 P13 L10 960&" A FANTASTIC PERFORMANCE!! CHARLEMAGNE, D DECLARED 'NATIONAL FINK'!!": 990yR:" HAMURABI: I CANNOT DO WHAT YOU WISH. GET YOURSELF ANOTHER STEWARD!!": 990\:" IN YOUR 10 YEAR TERM OF OFFICE,":" "(100P1.5)100" PERCENT OF THE POPULATION STARVED".a" PER YEAR (AVERAGE) -- A TOTA'DPC: D.45P 560H)P1((Z1)P1D100P)Z :PC:D1D1D: 215x0:" YOU STARVED "D" PEOPLE IN ONE YEAR!":5" DUE TO THIS EXTREME MISMANAGEMENT, YOU HAVE NOT ONLY BEEN IMPEACHED AND THROWN";"6" OUT OF OFFICE, BUT YOU HAVE ALSO BEEN 10P 510W" BUT YOU HAVE ONLY "P" PEOPLE":" TO TEND THE FIELDS. NOW THEN,":440fSS(D2)o 15YC:HDY:E0: 15: (C2)C2 530 E(SC)SSEH: 15I(C(20AS)P1001):C(Q20):Q(10(2(10).3)): PC 210SH TO FEED YOUR PEOPLE";: Q: Q0 850< QS 430J 5: 410ZSSQ:C1:" HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED";: D: D0 511 D0 850 DA 450 10: 440 (D2)S 455 5: 440  DTO BUY";: Q: Q0 850+B YQS 3309C 5: 320IJ Q0 340_KAAQ:SSYQ:C0kN: 410T" HOW MANY ACRES DO YOU WISH TO SELL";: Q: Q0 850V QA 350W 10: 340^AAQ:SSYQ:C0:+" HOW MANY BUSHELS DO YOU WINOW "P:" THE CITY OWNS "A" ACRES":" YOU HARVESTED "Y" BUSHELS PER ACRE":" RATS ATE "E" BUSHELS" " NOW YOU HAVE "S" BUSHELS IN STORE."::Z11860 6C(10(10)):YC17::" LAND IS TRADING AT "Y" BUSHELS/ACRE."@" HOW MANY ACRES DO YOU WISH :Q1 D0 ::" HAMURABI: I BEG TO REPORT TO YOU,":ZZ1:" IN YEAR "Z" OF YOUR REIGN,":" "D" PEOPLE STARVED, "I" CAME TO THE CITY." PPI: Q0 230 P(P2):" A HORRIBLE PLAGUE STRUCK!! HALF THE PEOPLE DIED!!"b " POPULATION IS STARVE IF THEY ARE NOT FED ENOUGH. YOU" B" ALSO HAVE THE UNEXPECTED TO CONTEND WITH SUCH AS A PLAGUE, RATS DESTROYING" D" THE STORED GRAIN, AND VARIABLE HARVESTS ":" READY";: Z$::: dD10:P10:Z0:P95:S2800:H3000:EHS:Y3:AHY:I5EEN 17 AND 26 BUSHELS/ACRE. YOU MUST ALSO USE" <" GRAIN TO FEED YOUR PEOPLE AND AS SEED TO PLANT THE NEXT YEAR'S CROP.": >" YOU WILL QUICKLY FIND THAT A CERTAIN NUMBER OF PEOPLE CAN ONLY TEND A") @" CERTAIN AMOUNT OF LAND AND THAT PEOPLEADMINISTRATOR OF SUMERIA, HAMURABI. YOU INITIALLY" 6" HAVE 1000 ACRES, 100 PEOPLE, AND 3000 BUSHELS OF GRAIN IN STORAGE.": 8" YOU MAY BUY AND SELL LAND WITH YOUR NEIGHBORING CITY-STATES FOR BUSHELS OF"0 :" GRAIN. THE PRICE WILL VARY BETW  50^" HAMURABI: THINK AGAIN. YOU HAVE ONLY":" "S" BUSHELS OF GRAIN. NOW THEN,": " HAMURABI: THINK AGAIN. YOU OWN ONLY":" "A" ACRES OF LAND. NOW THEN,":C((10)51):2::: 14)"HAMURABI":3 4" IN THIS GAME YOU ARE THE          1005OI15(I15)ĺ" HIT RETURN TO CONTINUE";:A$<TI^:" END OF RUN NUMBER "N:" DO YOU WISH TO CHANGE YOUR INPUT VARIABLES AND TRY AGAIN? (YES/NO)";:A$:A$"YES"200rNN,CA,PR:DTINCA:NN1G:" TIME PLANTS RABBITS RABBIT/PLANT"SI1PR_"T1CA,VV(RV(1VK)C1H(1(D1V))DT)6HH(H(AC2(1(D2V)))DT)@TJ" "INI;10);(100V.5)100;20);(100H.5)100;30);(100HV.5)GRAZE, HI PLANT, NEW RAB (FRACTIONS) ";D1,A,C2,D2:" NOW ENTER THE PRINT INTERVAL, NO. OF CALCULATIONS PER INTERVAL, AND TOTAL TIME INTERVALS TO BE CALCULATED."" SUGGESTED VALUES FOR THESE ARE .1,5,15"" INTRVL, CALCS, PRINTS ";I INTERVALS"\:" OK. LET'S BEGIN BY ENTERING THE INITIAL NUMBERS OF PLANTS AND RABBITS."e255" PLANTS, RABBITS ";V,H:" NOW THE POPULATION GROWTH AND DEATH FACTORS."" NEW PLANT, MAX PLANT, MAX EAT ";R,K,C15:" GRAZE, OVERIONS, ADDITIONAL TIME VARIABLES ARE REQUESTED."u:" INTRVL = TIME INTERVAL FOR EACH POINT PLOTTED"" CALCS = NO. OF CALCULATIONS INSIDE EACH TIME INTERVAL PLOTTED" " PRINTS = TOTAL NO. OF PLOTTED TIME |" INITIAL POPULATIONS ARE IN TERMS OF HUNDREDS OF PLANTS AND RABBITS.":" THE USER MUST SUPPLY A TIME INTERVAL FOR THE ALGORITHM USED IN ESTIMATING A SOLUTION TO THE DIFFERENTIAL EQUATIONS."2" THEN TO AID IN PLOTTING FUTURE POPULA- T)*DT)"x:" THE USER SUPPLIES THE INITIAL POPULA- TIONS OF PLANTS & RABBITS, THE FACTORS R,K,C1,D1,A,C2,D2, AND THE TIME "z" INTERVAL, DT. VALUES FOR INITIAL POPU- LATIONS AND FACTORS SHOULD BE LESS THAN 10.0. NOTE THAT VALUES ENTERED FOR "M MULTIPLY WHEN VEGETATION IS SPARSE (FRACTION)" d:" THE ALGORITHM USED IN THIS PROGRAM PUTS THE DIFFERENTIAL EQUATIONS IN THE FOLLOWING FORMS FOR ESTIMATION:"n:"V=V+(R*V*(1-V/K)-C1*H*(1-EXP(-D1*V))*DT)":"H=H+(H*(-A+C2*(1-EXP(-D2*V))ETATION IS BURNED OUT OR GRAZED FLAT (FRACTION)" U" C2 (HI PLANT) = RATE AT WHICH THIS DECLINE IS AMELIORATED AT HIGH PLANT DENSITY (FRACTION)"5 Z" D2 (NEW RAB) = DEMOGRAPHIC EFFICIENCY OF THE HERBIVORE: ITS ABILITY TO (MAX EAT) = MAXIMUM RATE OF FOOD INTAKE PER HERBIVORE" K" D1 (GRAZE) = GRAZING/SEARCHING EFFI- CIENCY OF THE HERBIVORE WHEN VEGETA- TION IS SPARSE (FRACTION)"3 P" A (OVERGRAZE) = RATE AT WHICH HERBI- VORES DECLINE WHEN THE VEGENTHESES ARE USED IN PROGRAM.)"s 7:" V = VEGETATION: NUMBER OF PLANTS":" H = HERBIVORE: NUMBER OF RABBITS" <:" R (NEW PLANT) = THE INTRINSIC RATE OF INCREASE OF PLANTS" A" K (MAX PLANT) = MAXIMUM UNGRAZED PLANT DENSITY"> F" C1 FUTURE POPULATIONS CAN BE FORMULATED IN TERMS OF A PAIR OF DIFFERENTIAL EQUATIONS:" (:" DV/DT = R*V*(I-V/K)-C1*H*(I-EXP(-D1*V)) ":" DH/DT = H*(-A+C2*(I-EXP(-D2*V)))"! 2:" THE VARIABLES IN THESE EQUATIONS ARE AS FOLLOWS. (NAMES IN PAR _ N0::::" PLANT/RABBIT SIMULATION"::" DO YOU REQUIRE INSTRUCTIONS";:A$:A$"NO"200h100:" AN ISLAND CONTAINS NOTHING BUT RABBITS (HERBIVORES) WHICH 'PREY' UPON PLANTS (VEGETATION)."] :" A DYNAMIC MODEL FOR THE CALCULATION OF           TO";::*"'";X;"' DEGREES FAHRENHEIT"09900C1000NFREES FAHRENHEIT IS EQUAL TO";::C~"'";X;"' DEGREES CENTIGRADE"IR900\1000b CENTIGRADE CONVERSION:"ENTER CENTIGRADE # THEN HIT RETURN ";:T:X(T9532)"'";T;"' DEGREES CENTIGRADE IS EQUAL F OR C ";:T$($(T$,1)"F"ī1100?.(T$,1)"C"ī1200G8:iB"ENTER AN 'F' OR 'C' ONLY":sK1050yLM FAHRENHEIT CONVERSIONNQ:V"ENTER FAHRENHEIT # THEN HIT RETURN ";:T`:jX((T32)59)!t"'";T;"' DEG0 ~ THIS ROUTINE DOES FAHRENHEIT TO CENTIGRADE CONVERSIONS AND BACKT0:X0:5"FAHRENHEIT TO CENTIGRADE OR":"CENTIGRADE TO FAHRENHEIT IS THE FUNCTION":"ENTER C33.14159C1C1:-f"THE RADIUS IS ";C1:Jk"THE DIAMATER IS ";C2:op"THE AREA OF THE CIRCLE IS ";C3xz900800 THIS ROUTINE DOES MENU RETURN CHACKING:"DO YOU WISH TO CONTINUE (Y) OR (N) ";:Z$(Z$,1)"N"18! THIS ROUTINE DOES THE AREA FO A CIRCLE>"T*C10:C20:C30]4:5>"CALCULATING THE AREA OF A CIRCLE IS THE FUNCTION"H::R"ENTER THE RADIUS ";:C1:\C2C1C1:C33.14159C2:eC2C1C1:TOTAL = ";E1900600$R THIS ROUTINE DOES SQUARE ROOTXbQ10k:5"SQUART ROOT IS THE FUNCTION"::"ENTER # ";:Q1::"THE SQUARE ROOT OF ";Q1:" EQUALS ";(Q1)900700 D"TOTAL = ";D1N900#W500)XZY THIS ROUTINE DOES ECPONENTIATION`ZrbE10:LSTE20{l:5v"EXPONENTIATION IS THE FUNCTION"::"ENTER # ";:E1:" ^ ":"ENTER # ";:E2:E1E1E2 "400 4 THIS ROUTINE DOES DOVISION:JD10:D20S:5s"DIVISION IS THE FUNCTION"}::&"ENTER # ";:D1:+" / ":0"ENTER # ";:D2:5D20ĺ"YOU CAN'T DEVIDE BY ZERO ":900::555:D1D1D20 300 A  THIS ROUTINE DOES MULTIPLICATIONG W M10:M20` :5 "MULTIPLICATION IS THE FUNCTION" :: "ENTER # ";:M1: " * ": "ENTER # ";:M2: M1M1M2 "TOTAL = ";M1 900 ";A1 "900 +200 ,K - THIS ROUTINE DOES SUBTRACTIONQ .a 6S10:S20j @:5 J"SUBTRACTION IS THE FUNCTION" T:: ^"ENTER # ";:S1: c" - ": h"ENTER # ";:S2: rS1S1S2 |"TOTAL = ";S1 90:"ENTER CORRECT SYMBOL PLEASE"* 1150 [ THIS ROUTINE DOES ADDITIONa q A10:A20z :5 "ADDITION IS THE FUNCTION" :: "ENTER # ";:A1: " + ": "ENTER # ";:A2: A1A1A2 "TOTAL = E TO END THE PROGRAM"# s8 x" ";:F$N (F$,1)"+"ī200d (F$,1)"-"ī300z (F$,1)"*"ī400 (F$,1)"/"ī500 (F$,1)"^"ī600 (F$,1)"S"ī700 (F$,1)"A"ī800 (F$,1)"T"ī1000 (F$,1)"E"Ā! * FOR MULTIPLICATION"6 d" / FOR DIVISION"\ n" ^ FOR EXPONENTIATION" o" S FOR SQUARE ROOT" p" A FOR THE AREA OF A CIRCLE" q" T FOR FAHRENHEIT TO CENTIGRADE CONVERSION": r" E  :+ DONTATED BY KEVIN ARMSTRONGe THIS PROGRAM WILL FUNCTION AS A CALCULATORks5:("ENTER THE FUNCTION YOU WISH TO PERFORM"2<F" + FOR ADDITION"P" - FOR SUBTRACTION" Z"           ";PAGE$:PAGE$"M"55(:V,W,Z,Y,XQ22::"HIT RETURN TO MENU";Q$::55 (C)1979 BY AMERICAN AVICULTURAL ART & SCIENCE INC. IA$(X);"EUMELANIN, ";A$(Y);"PHAEOMELANIN":34,2R3:Z14:W14:V14:U14A$(Z);B$(1):A$(W);B$(2):A$(V);B$(3):A$(U);B$(4);" SPEC NO.";N"----------------------------------------";NN1:U:"HIT 'RETURN'TO CONTINUE, 'M' TO MENU.LACK MELANIN IS SEX-LINKED INHERITANCE.""BUT, THEIR LOSS OF PIGMENT IS NOT A DILUTION. THEIR LUECISIM IS PREVENTING PRODUCTION OF PROTEINS. (REMINDER)":255(22)::"HIT RETURN TO SEE THE LISTING ";START$::N1X14:Y14:1:1/ TYPE AND TOTAL LOSS OF PIGMENTATION(WHITE) IN THIS LISTAND THIS LISTING MAY TAKES MORE THAN TENMINUTES TO DOCUMENT ALL OF THEM."(|:"NOTE: THIS LIST DO NOT ILLUSTRATE GENETICAL CONNECTION OF WHITE ZEBRA FINCH AND NORMAL GREY ZEBRA FINCH. DILUTION OF BNS":365^PPI:I)cJ2V:CCJ:JYh10:P;" PERMUTATIONS":PC;" COMBINATIONS"~m22:"HIT RETURN TO MENU";Q$:55r::" ZEBRA FINCH PHENOTYPE DOCUMENTATION: ":120::w"THERE ARE 4096 DIFFERENT COMBINATIONS OFSPECIMENS BETWEEN NORMAL IN MELANIN FORMATION AS A SEPARATE GROUP? (Y/N) ";Q$:Q$"Y"GG70J"DO YOU CONSIDER THE VARIETY IN MARKINGS AS A SEPARATE GROUP? (Y/N) ";B$:B$"Y"MM70O:NVGMPTP1:C1:INV1N:9.9E37IP350Y"MORE THAN 9.9 * 10^37 PERMUTATIOBERS AS SUGGESTED. OR YOU MAY USE YOUR OWN NUMBER.":@"HOW MANY VARIETY (ANSWER 1)? ";V:"HOW MANY MELANIN GROUPS? (ANSWER 2) ";G:"HOW MANY DIFFERENT MARKINGS (ANSWER 4)? ";M:"HOW MANY DO YOU WANT TO TEST BREED? ";PDE"DO YOU CONSIDER THE VARIETY(20):"FAWN":(20):"DOMINANT CREAM":(20):"PIED":(16):"WHITE OR CHESTNUT FLANKED";622:"N-NORMAL, D-DILUTE, P-PART LOSS, L-LOSS";:23:" HIT RETURN TO MENU";Q$:555;::"PLEASE ANSWER FOLLOWING QUESTIONS: FOR ZEBRA FINCH, ANSWER THE NUM(K) "K,F'5:20:"NORMAL":(20):"RECESSIVE SILVER":(20):"PIED":(20):"DOMINANT SILVER":(20):"CINNAMON":(20):"RECESSIVE CREAM",(20):"DOMINANT CREAM":(20):"PIED":(20):"DOMINANT SILVER":(20):"PIED":(20):"PIED":(20):"PIED"V122::"HIT RETURN TO MENU";Q$::55z ::"A LIST OF VARIOUS AMOUNT OF MELANIN AND THEIR AVICULTURAL CLASSIFICATION."N$(1)" N ":N$(2)" D ":N$(3)" P ":N$(4)" L ":"EUMELANIN PHAEOMELANIN NAME"F14:K14N$(F);N$VER":/22::"HIT RETURN TO MENU";Q$::55QM21ĺ"CINNAMON ZEBRA FINCH"nM22ĺ"RECESSIVE CREAM"M24ĺ"DOMINANT CREAM ZEBRA FINCH":M21M22M33ĺ"CREAM ZEBRA FINCH"M24ĺ"WHITE OR CHESTNUT FLANKED ZEBRA FINCH GROUP":%N. REGUARDLESSIN OTHER PIGMENT DISTRIBUTION"V::"THIS SPECIMEN IS IN THE GROUP:"eM11İ215tM12İ235M13M23ĺ"PIED ZEBRA FINCH"M14İ250260M21ĺ"NORMAL GREY"M22ĺ"RECESSIVE SILVER "M24ĺ"DOMINANT SIL";Q$:Q$"N"Ĺ34,15:115Q$"Y"ĉ::"CLASSIFICATION:":"THERE ARE 28 DIFFERENT COMBINATIONS FOR TWO MELANINS IN SINGLE MALE ZEBRA FINCH.","BUT TODAY'S AMERICAN AVICULTURISTS(IN 1979), THEY ONLY CONSIDER THE AMOUNT OF MELANINS FOR GRADING SPECIME::"YOUR BIRD IS:":::S$(S);" ZEBRA FINCH WITH":G$(1);" MELANIN FORMATION: ";A$(M1):G$(2);" MELANIN FORMATION: ";A$(M2)(5):A$(M(1));B$(1):(5):A$(M(2));B$(2):(5):A$(M(3));B$(3):(5):A$(M(4));B$(4)22:"IS THIS DATA LOOK OK? (Y/N) NO CARROTONID MARKING."34,10:45:"PLEASE TYPE-IN FOLLOWINGS: FOR INPUT DATA PURPOSE FOR YOURSELF":S$(1)"MALE ":S$(2)"FEMALE ":"SEXUAL IDENTITY":" 1< MALE":" 2< FEMALE":" ANSWER BY NUMBER? ";S FOR INPUT DATA PURPOSE, TYPE IN BY YOURSELF.":255P14::B$(P);" MARKING FORMATION:":50:" SELECT BY NUMBER ";M(P):P:Q$"N"155::"THEY HAVE DIMORPHISM. THAT MALE AND FEMALE ARE DIFFERENT APPEARANCES IN SOME CASE. THE FEMALE HAS ENOTYPICAL MARKINGS.":"THEY ARE ORANGE PIGMENT ON CHEEK LOBES, BROWN PIGMENT ON FLANKS, ";" BLACK PIGMENT IN UPPER-TAILCOVERTS (NOT A TAIL) AND UPPER-THROAT, WHITE PIGMENT IN FLANKS AND UPPER-TAILCOVERTS.":45:34,106"PLEASE TYPE-IN FOLLOWINGS:n"PLEASE TYPE-IN FOLLOWINGS: FOR INPUT DATA PURPOSE FOR YOURSELF":255s:G$(1);" MELANIN FORMATION":50:"ANSER BY NUMBER? ";M1x:G$(2);" MELANIN FORMATION":50:"ANSER BY NUMBER? ";M2:Q$"N"140[}::120:"THERE ARE FOUR PHBASE ON WHITE GROUND COLOR. " d"WE WILL NOT CONSIDER ANY POSSIBLITY OF OUT-CROSS WITH OTHERS OR DEFORMATION OF PIGMENT IN THIS PROGRAM." i:"THERE ARE TWO MELANINS IN UPPERPARTS. THEY ARE, BROWN(PHAEOMELANIN) AND BLACK(EUMELANIN).":34,10:45UIST"i F" 4< PHENOTYPE LISTING":" 5< TO END PROGRAM"::" SELECT BY NUMBER ";S:S2315u KS195 PS3265 US4370 ZS0S4Ā _:150:"THIS PROGRAM DEAL WITH PHENOTYPE OF ZEBRA FINCHES. EVERY COMBINATION OF PIGMENTSARE OMPUTER ASSISTED ":" AVICULTURIST MAGAZINE":" (C)1979"v <::" BY K U N I H I R O T A N A K A" A45:" GENETIC STUDY OF ZEBRA FINCH"::" 1< INPUT DATA ROUTINE":" 2< PERMUTATION & COMBINATION":" 3< MELANIN GROUP L":B$(3)"BLACK MARKING":B$(4)"WHITE MARKING"; (V0::55T -:L140:"-";:L: 2" 1< NORMAL OR WILD FORM":" 2< DILUTE":" 3< PARTIAL LOSS":" 4< TOTAL LOSS":H 7::"AMERICAN AVICULTURAL ART & SCIENCE":" APPLE ][ C34(A)134),(.7280(A)90)(134(B)134),(.7280(B)90):M,Nh T12000:T:I17:(7):I: A$(1)"NORMAL ":A$(2)"DILUTED ":A$(3)"PART LOSS ":A$(4)"TOTAL LOSS ":G$(1)"BLACK":G$(2)"BROWN"- #B$(1)"ORANGE MARKING":B$(2)"BROWN MARKING*PROGRAMMED BY HIRO TANAKA 7/12/1979 ::10:" AMERICAN AVICULTURAL ART & SCIENCE":" AVICULTURIST RESEARCH REPORT":I12000:I::323:" GENETIC STUDY OF ZEBRA FINCHES":N13:MN150:A(N1)6.283250:B(M1)6.283250E (1               )B$(K)" ":KK1< B$(K)"A"B$(K1)"A"B$(K)" ":KK1h B$(K)"A"B$(K1)" "B$(K)" ":KK1r JJ1| KK1 8010  M1(A$)  B$B$B$(M) & M 0 T". |B$(K)"G"B$(K)"J"B$(K)"K"B$(K)"C"e B$(K)"Q"B$(K)"S"B$(K)"X"B$(K)"Z"B$(K)"C"~ B$(K)"W"B$(K)"H" B$(K)"N"B$(K)"M" B$(K)"T"B$(K)"D" B$(K)"H"B$(K1)" "B$(K)B$(K1) B$(K)"A"8150 B$(K)B$(K13)"+" "CORRECT":230* R$(I,3)"-"7 "WRONG"@ 100U "END OF TEST":a @K1:J1l EB$" " JJ(A$)ī8200 TB$(K)(A$,J,1) ^B$(K)"E"B$(K)"I"B$(K)"O"B$(K)"U"B$(K)"Y"B$(K)"A" rB$(K)"F"B$(K)"P"B$(K)"V"B$(K)"B PHONETIC PROCESSOR2 BY ROD RIGGENBACH> B$(73)LR$(30,3)ZFB$(0)" "bPI0d"WHO WAS FIRST PRESEDENT?"nR1:II1R$(I,1)(R)xA$"WASHINGTON"8000P$B$A$R$(I,2)A$8000P$B$210 R$(I,     ENNE" S"COLUMBIA","SOUTH DAKOTA","PIERRE","TENNESSEE"j"NASHVILLE","TEXAS","AUSTIN","UTAH","SALT LAKE CITY""VERMONT","MONTPELIER","VIRGINIA","RICHMOND","WASHINGTON""OLYMPIA","WEST VIRGINIA","CHARLESTON","WISCONSIN""MADISON","WYOMING","CHEY,"NEW MEXICO","SANTA FE"L"NEW YORK","ALBANY","NORTH CAROLINA","RALEIGH""NORTH DAKOTA","BISMARK","OHIO","COLUMBUS","OKLAHOMA""OKLAHOMA CITY","OREGON","SALEM","PENNSYLVANIA""HARRISBURG","RHODE ISLAND","PROVIDENCE","SOUTH CAROLINA" 0LIS","MASSACHUSETTS","BOSTON","MICHIGAN"e"LANSING","MINNESOTA","ST.PAUL","MISSISSIPPI","JACKSON""MISSOURI","JEFFERSON CITY","MONTANA","HELENA","NEBRASKA""LINCOLN","NEVADA","CARSON CITY","NEW HAMPSHIRE""CONCORD","NEW JERSEY","TRENTON"","GEORGIA"I"ATLANTA","HAWAII","HONOLULU","IDAHO","BOISE","ILLINOIS"|"SPRINGFIELD","INDIANA","INDIANAPOLIS","IOWA""DES MOINES","KANSAS","TOPEKA","KENTUCKY","FRANKFORT""LOUISIANA","BATON ROUGE","MAINE","AUGUSTA","MARYLAND"("ANNAPOZ$%p Z$"Y" Z$"YES" : 160]z"ALABAMA","MONTGOMERY","ALASKA","JUNEAU","ARIZONA"|"PHOENIX","ARKANSAS","LITTLE ROCK","CALIFORNIA"~"SACRAMENTO","COLORADO","DENVER","CONNECTICUT","HARTFORD" "DELAWARE","DOVER","FLORIDA","TALLAHASSEEGG1 &  N 50 310 ELSE 850,)J*"DO YOU WANT TO STOP";Z$h4 Z$"Y" Z$"YES" 850>"YOUR ANSWER FOR LAST QUESTION";H X 730,490R\"YOU GOT ";N;"RIGHT IN ";G;"GUESSES" ]f "WOULD YO;U LIKE TO TRY AGAIN";"2.";S$(B(2))&"3.";S$(B(3))9"4.";S$(B(4))?aC$(R);" IS THE CAPITAL OF ";s Z:Z((Z)) Z 1 Z 4 810 ZC 770A(R)1: "WRONG": 790A(R)2:NN1  "RIGHT! YOU HAVE ";N;"CORRECT":(2)B(3) B(2)B(4) B(3)B(4) 5606v Y2 690R PRINT CAPITAL CHOICESe"1.";C$(B(1))x"2.";C$(B(2))"3.";C$(B(3))"4.";C$(B(4)) "THE CAPITAL OF ";S$(R);" IS"; 730 PRINT STATE CHOICES"1.";S$(B(1))E QUESTIONS8 THE VALUE4 OF C IS THE CORRECT ANSWERJC((I)4)1q& PICK FOUR STATES FOR THE CHOICES0 I1 4:B(I)((I)50)1D INB(C)RX MAKE SURE NONE ARE THE SAMEb B(1)B(2) B(1)B(3) B(1)B(4) 560&l BL-IN ANSWERS  Y2 470) A$C$(R)T "WHAT IS THE CAPITAL OF ";S$(R); Z d  490q A$S$(R) C$(R);" IS THE CAPITAL OF ";   Z$   (Z$)1 810  Z$A$ 770 760  THIS SECTION ASKS MULTIPLE CHOIC 6 PICK A STATE @ I1 103 JR((I)50)1G T A(R)2 400O ^ Ir h DON'T WASTE TIME PICKING ONE r R1 50 | A(R)2 400  R: 850  A(R)1 "TRY THIS ONE AGAIN"   X1 520  THIS SECTION ASKS FOR FILTED ST.) : X2: "TO STOP, TYPE S FOR YOUR ANSWER"@ "YOU HAVE YOUR CHOICE OF WHETHER THE STATE OR CAPITOL IS ASKED."  "WOULD YOU LIKE TO ANSWER WITH THE CAPITOL ?";Z$  Y2 " Z$"Y" Z$"YES" Y1 ,SWERS ?";Z$ / Z$"Y" Z$"YES" 2305 v "MULTIPLE CHOICE -- ANSWER EACH QUESTION WITH 1, 2, 3 OR 4"| X1: "TO STOP, TYPE 0 (ZERO) FOR YOUR ANSWER" 250  "FILL-IN --*-- YOU MUST SPELL EXAXTLY! (SAINT IS ABBREVIA A(50),B(4),C$(50),S$(50)? READ IN STATE & CAPITAL ARRAYSN I1 50g S$(I), C$(I) : I I1 50 : A(I)0: I: G0: N0 "YOU HAVE YOUR CHOICE OF FILL-IN OR MULTIPLE CHOICE." "WOULD YOU LIKE TO FILL-IN THE AN  936#)/5;A r " :::::::*** STATES & CAPITALS ***::::::: "x ~  d STATES & CAPITALS QUIZ PROGRAMn BY DAVE ALVERSON JULY, 1977 x   VW_>>UVW/?;@rr>q/?;@rr>@Brp@*#rY>[W>]ΠϠŠŠƠΠϠҠŠƠӠ֮>]>]ԠĮ٠>]>]ǠŧQԠ)66a(ҠŠŠӠ)F8dr8rE()6Q:]Ԡ:]:o:P8';@rr:R@v>[#>]ԠĠƠԠȠ%>@p()`$>UVW_>>`$>UVW_>>`$>U̬Ԡ)52a(ϠĠͬԠ)d"ecq@3o J3P8';@rrT3a@^3[6]6]ĠƠŠ6] 6M86r6a(ĠƠŠǠ)56ca(ՠĠ)FE(ԠӠԠƠ)F'6a(ՠĠ)FE()H+TR+`%q7U+S(ҠŠӠՠȠϠŠĠΠ)&@V+[.].]Ԡ.] .M86r.o .P /a(Ԡ٠)/[2]2]ԠԠ2]2M86r`$@3%2ca(ϠŠ֠Ǯ).'o8'P B'a(ǠŠ)o'[*]*]Š*]*+c54+qa(Ԡ̠ϠՠԿԠҩ)D+a(Š)E+a(Ҡ)F+a(Ҡ)G+a(ӠƠ͠Y] bN@"r lN@"r vN@"r\']ԠŠ\*]ԠƮ[?](#]Ġ٠)#] 2#M86r<#o P#P a(Ԡ)d#[']͠Ҡ']'M86r]Ҡ$'a(ͺp() `%@p() `%@p() `%@p()* `%@p()* `%@p(): `%@p() [ ]X]Š ed ed ededededeLdedede`1deddePMdedePMdeddeM ]ϠϠŠ̠ [ ]ĠԠ ] `%@p() `%@?r.?6?r.?6?r.?6?r;q.?6?r.?6?r @Y_]]ԠԠ\> jM86rto ~P8';@rra@[]Š̠]Tdede0dededededed ed e]d2]Ԡ\:]Ԡ٠Πä`@:()$ \*]Ԡ_x ]`@9()$6]Ġ`@:@$, q\(#]Ԡ٠!]"\]̠ #q$UVWY_x,UVWd%6q.?6?6@r$d6?eM6[M#d6?eM6o P a(ŠĠ)Q]ĠĠZ]Ǡ\P;@r^a@`cb['d\X]ŠԠϠ'x\]ԠŠԠϠ¤\ KN@"(rM6\ _d'o@p(ǠŠ)\Z@p(Ҡ)\Z1@p(Ӡ̠ŠҠǠ)\Z oa(ӠçϠ),a(ӠŠŠҠϠŮ)`.?6@r$#`.     W-rq5}Y}\ N }`%[)}P88;α@rrraα@E(Ӡ)[q`$G}S(ԠӠҠӠſ)&α@S(ԠӠҠӠſ)&β@}_ }L}qq}UVW}-rq/?r#}`-r-r $} *}UVW +}`$.},}`-r-r$} .}YY^}qq}UV)*ua(ŠӠĠՠԠԠͮ)uc+ua(ҠϠӬȠӠŠ))ua(ŠӠĠ٠ӠԮ),}O4rD4rD42rCα@"rCβ@"r-}ca(נ٠ӠŠŠҠ)0}\q`$}a(Ӡ)\ IuqNu`$0uXu`%_} buM6'lua(נŧӠŠҠҠ)+vua(ŮԠӠ٠ŠΠ)+ua(ŠӠ٠ϠҠ)ua(ƠӮ)uc*ua(ҠŠҬɠũ̠dededededed ed e]Rqd ed ed ededededeLdedede` 0uKM67:uoPa(נ)o P a(٠Π)7DuoPa()PNM6 %Nq*Nf74Nij'kij'kij'kij'k'7>Nlm&nlm&nlm&nlm&n'HNUVWqqRN`%q\N`%qRq-r\'Rf\(#YR[THqdede0ijkijkijkghgh#qq!L$ijkijkijkghgh[^$q#q!,h$lmnghlmn[$'fUVWijkY'[  q\ q`$\`-r$ `%_>`$\q`$\-rqq q[ q[\_(#_2#d8r2#qq<#lmn[#q#qB#r\Y \ _d  M6& q8r!0 `%P8;α@rr!: `%P8;β@rrD `%aα@E(Ӡ)N `%aβ@E(Ӡ) X cP a(ԠŠ)Ib _  q`$rra(٠)Eα@_\ } `%\ \ UVWY `%_  \`$ `$  `%q@ M6Pa(ȠŠ)IcP a(ԠŠ)IG q8 r `%_ ( UVW q8n\qx`%_n __Q9M6`$P88;α@rrraα@E()&P8;β@rra(٠)Eβ@P a(ԠŠ)IGq_d&P88;β@rrraβ@E()-P88;α@rrde( Mf\[q-rq/?r UVWq-r\UVWYY[2qq.?6@r`%[qd86?re[Hd`$`%P#a(ԠϠ٠ҠϠ)Gi`%q\ _Hq q.?6@r`%_,d86?re`%[`%_[Pghijkijkijkgh[f qq`%q  `%q  q=>r \ de-      ccca(ҠӠ)FUVWdq.?6?rYB[UVW cY"a(Ԡ) q ccca(ҠӠ)FOUVWdq.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?rY*[ )FE(Ԡ)FE()cca(ԠӠ)FE(ؠ)F(c -q2TE`%\F`%\K_ pa(ҠԠӠ)Fuccza(ҠǠӠ)FQUVW cY"a(Ǡ) qa(ԠŠŠ)cc4a(ӠӠΠ͠)cccccc S(ԠӠ͠Ҡ)'q ccc!]٠ĠΠŠӮî q/?r q/?r`%q`%qcccccccccc4a(ŠӠ)FUVWdq.?6?rYB[UVW cY"a(Ԡ) q ccca(ҠӠ)FOUVWdq.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?rY*[)E()cca(ԠӠ)FE()F(c -q2T<`%\F`%\K_ pa(ҠԠӠ)Fuccza(ҠǠӠ)FQUVW cY"a(Ǡ) q ccca(ҠӠa(ԠŠŠ)cc0a(ӠӠΠ)cccccc S(ԠӠ͠Ҡ)'q ccc!]٠ĠΠŠӮî q/?r q/?r `%qcccccccccc4a(ŠӠ)FE(Ԡ)F   UVW cY"a(Ԡ) q ccca(ҠӠ)FOUVWdq.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?rY*[)F(c -q2T<`%\F`%\K_ pa(ҠԠӠ)Fuccza(ҠǠӠ)FQUVW cY"a(Ǡ) q ccca(ҠӠ)FUVWdq.?6?rYB[cc.a(ӠӠΠΠ)cccccc S(ԠӠ͠Ҡ)'q ccc!]٠ĠΠŠӮî q/?r q/?rcccccccccc4a(ŠӠ)FE(Ԡ)FE()cca(ԠӠ)FE(  z#       ȠӠ Ҡ ӠӠ ɠ  ȠΠ ȠΠȠΠנŠǠŠ ӠӠڠҧ àŠҠ ΠŭĠӠҠ Ҡĭ  ҠȠ ˠԠˠ"ŠɠΠˠ" ĠƠŠɠ" ŠǠ͠ Πؠ0ǠŠàŠӠРɬҠ]]ĠٺĠͮ]]ŠΠĠbqlq \v[@]E]J]ŠƠŠӠT]Š̠Ӯ^]h]٠Šˠm]r]Ġٺŧ|]ŠΠή]Š\pY[p_pdijk[!8l mn[lm n[ijk[dlm n[l mn[,ijk [Xq \-rq-rq \[F-rq-rq P\[/x-rq-rq-rq-rq \[ \[-rq-rq \[fUVW`7-r%\pYUVW`7-r$f/?rUVW-rqY_28r-rq $\[:L-rq-rq-rq-rq-rq V\[~-rq-rq \[-rq-rq \[$-rq-rq-rq \[qdqq\Xnqq\Xxqq\Xq`<$ qq`<$qq`$ qUVWY `$x `$n_d']ŠԠǬج٩UA]ҠάԠ KM6qo /a(ӠӠҠΠũ) cP(a(ҠԠŠȬͬө)T'' Lq.?6?r O4rUV(W/(ij'k2Y <jk[dlm n[l mn[,ijk [Xq \bqlq \v[[-rq-rq \[fUVW`7-r%\pYUVW`7-r$f/?r\pY[p_pdijk[!8l mn[lm n[i\[~-rq-rq \[-rq-rq \[$-rq-rq-rq \[-rq-rq \[F-rq-rq P\[/x-rq-rq-rq-rq \[ \qq`$ qUVWY `$x `$n_d&]ŠԠǬج٩UVW-rqY_28r-rq $\[:L-rq-rq-rq-rq-rq V KM6 q)a(ҠԠŠȬͬө)T'' Lq.?6?r O4rUV(W/(ij'k <qdqq\Xnqq\Xxqq\Xq`<$ qq`<$     Ӡ!2}]àӠde`[> }]Π٠ĠˠĠΠˬά*}]ŠΠ͠ӠΠӠ?}]ӠҠŠӠ#}]ԠӠ (}]ǠӠ!-}]àmnghlmn[.|]ŠŠΠӠĠT}dede0dededededed ed e_}d ed ed ededededeLdedejklmnijkgh[#ijklmn[2lmnijklmn[Llmnghlmnghlmn[Llmnghlnijklmn[=ijkijklmnlmn[dijkijklmnlmnghghgh[rghijklmniklmngh[.pijklmnlmn[6zlmnijkijk[Rlmnlmnghlmnlmn[Iijklmmnijk[=Hlmnijkijklmn[9Rijkijkijklmn[0\lmnijkijka[cfghijklmnijҠˠ!lmngh[/ ]ӠԠӠΠaghijklmnijkghgh[Y*ghghghlmnl^BlmnijklmnijkijkG[&]ŠӠΠ_ghijklmnijkghgh[&[]Šklmnijk)gh[J.ijkghghghlmn[_8lmnlmnUVWXijkYlmn=lmn[n lmn[Fijklmnghghgh[eijkghijklmnijkgh[^$ijklmnijmn[4ghlmnijk[lghijklmnghghghijk[SghghUVWXijkYlmW\YϹKM6o S(ϠՠԠϠ٠Π)&@`@9()$M6_>cca(ӠҠǠ٠Ƞ)oPa()Q/]ӠԠӠΠIijklmnijkl <@*#rrqY/zqf/?r`c$` $q\ _:q\ 8 rq\ 8 r_Tq \ 8drq\ 88dr rq\ 8 rHUϹV$R` $>*qq\ 4_f7>qq\ 8 rq\ 8 rH_f=Rq q\ 8drq\ 88dr r\q\ 8 rf@p(Ԡ)qq9pf/?rUVW\$bױE(ԠΠԠٮ)<`ױ$P bױE(ԠΠĠٮ)A`$ `$PbE(ŠǮ)_ Pa(ŠӠǮ)_ 'Pa(ՠԠ̠͠ԡ)' Lf/?r`cˠŠҠĠϠŠƠԠӠ`$2_`$2_`$2_Oa(ԠšǧӠǠȠӠ͇) Y$ ]ӠԠӠ>`ױ$`ױqq\ TM6&]ŠӠΠf\f/?r/` $ڲq ڱq `ڲ $_ ڲq`$q\ ڲ!` $q"\ ڱ_ B]Ӡ&a]ӠĠԠآbUVW ghY$lq UVW ghqYq_)vi j k `$l m n f/?rqq\ )f/?rijk ijk `$, f/?rca(ԠΧԠŠҠΠ)_+$0UVWq/?rq/?r 5q:`$Dq/?rDM6Lf/?rIM]ӠҠǠӠΠӠŠΠӠNqq\ Xf/?r`$vUVWqY_*&a(נ٠ӠϠՠ)GT'`$E(`$+a(ŠҠƠӠԠŠӠα)_&U+cS(ԠӠŠԠҠՠԠϠſԠԠŠҠΠ)'-` $0(.ˠ)cc>a(ϠՠԠάάҠο)qױq9a(νν)S(ν)'`$&Aa(ĠŠӠ) ڱO|qqf/?r@p()UVW\ <@*#rrqYSqq@p()UVW\ <@*#rrqY\\_ %UVWqY[`M6oa(Ƞ͠٠ĠĠ͠ӠϠ͠?+]ӠԠŠԠҠĠԠҢ,f/?r_, 6q_T@q_T Jq#T` $^ڲq ڱq Y_h ^ڲqhq\ ڲ!r` $|q"\YC@p()qqUVW\ <@*#rrqY*ױqױ]ҠҠĠR]ŠӠΠĠӠԠƠ͠ȠҠĠŠ \_DL*]ƠŠ͠ӠĠŬŠǷY\`$\_DQ]ŠӠΠĠӠԠƠ͠ȠҠĠ7fqUVW\ <@*#rrqYf/?rB@p()qqUVW\ <@*#rrqdede2MUVWqYY_ 2]ӠҠǠӠΠΠŠdedeM&]עӠҠҠǠqf/?rC@p()qqUVW\ <@*#rrqde2MUVWqYY7f/?r<q_F/?r F@p()_xP@p()_xZ@p(ġ)_xd@p(ס)_xn@p(ȡ)_x9xqqUVW;@r\ <@*#rrqYIUVW2G]Ƞ̠٠ĠˠΠˬά&N@" rC@"rC@"rC@"r%\}]ŠΠ K_L1]ԠҠԠӠӠΠŠȠŠD2UVWde        #N$D$:D$E$:E$N$#4 I"J$"!', EXCLAIMED "G$"INI."?""'THAT'S EVEN BETTER THAN THE"]"A$(10)" "C$(2)" TRICK!'"g"::p"700|"I110"A$(I)A$(I1):I"A$(11)A$(1)"I14"B$(I)B$(I1):I"B$(5)B$(1)"I19"C$(I)C$(I1)#C$(10)C$(1)L"*!"HAPPENED AT A "A$(3)" MAGIC SHOW"J!"IN "H$". "G$"INI'S "A$(4)s!"ASSISTANT, "F$", REFUSED TO ENTER"!"THE "A$(1)" CABINET. "F$" TIPPED"!"OVER THE TABLE, AND THE "C$(4)" FELL INTO"!"THE CABINET. THE BLADE FELL "B$(5)"."""'WORTH TWO IN THE "C$(5)"."* zI15::I3 7009 D 50,63o " *** THE NATIONAL ENQUIRER *** "{ 50,255 :"DATELINE: JANUARY 15,1979" :" THE GREAT "G$"INI ACCIDENTALLY" "SAWED HIS "C$(4)" IN HALF"!"LAST WEEK. IT AL4)127850T16384,0:%W50,63T\"***************************************"^" THE MORAL OF THE STORY IS: "`"***************************************"b50,255f:"A "C$(9)" IN THE "C$(7)"..."kP11500:P p:"IS !' HE SAID, 'THERE IS ANOTHER"J0A$(3)" DOG WITH ANOTHER "A$(9)" BONE."k2"I'LL GRAB IT "B$(3)", AND"4"THEN I'LL HAVE TWO "A$(5)" BONES.'":6"WITH THAT THE "A$(10)" DOG JUMPED"8"INTO THE WATER AND "B$(5)" DROWNED."9: R(1638*""10)D$"'S FABLES"F$" ******************************":m&"ONCE UPON A TIME, A "A$(2)" DOG"("GOT HOLD OF A "A$(4)" BONE. HE WAS"*"WALKING ACROSS A "A$(6)" BRIDGE AND","SAW HIS "A$(8)" REFLECTION IN THE WATER.".:"'"J$"SEE YOU AGAIN SOMETIME!"::F"ANSWER YES OR NO ('Y' OR 'N')":700q:"WANT TO USE THE SAME WORDS?":Z$:Z$"N"Z$"NO"30:"MIX YOUR WORDS AROUND A BIT?";W$W$"Y"W$"YES"İ2000220 :" *****************************THAT WILL ALLOW MY HUSBAND"B"TO SLEEP "B$(4)" AND WON'T MAKE"`"HIS "C$(10)" SORE."::{10);"YOURS "B$(5)","10);F$" "G$::"WANT ANOTHER STORY? ";Y$50,255Y$"Y"Y$"YES"750Y$"N"Y$"NO"727::"O.K. D THE"-vA$(8)" "C$(5)" WAS BENT AND KEPT"Wx"PRESSING INTO HIS "C$(6)". HE SAYS"z"THIS COULD LEAD TO A "A$(10)" CON-"|"DITION OF THE "C$(8)"."(16384)127640:16368,0:"I WOULD LIKE TO EXCHANGE THIS "A$(9)"BED FOR ONE TORE. I"6j"GOT IT ESPECIALLY FOR MY "A$(4)" HUS-"^l"BAND WHO SLEEPS VERY "B$(1)" AND"n"SAYS THAT "A$(6)" WATER BEDS THAT"p"HAVE "C$(1)"S IN THEM MAKE HIS "C$(3)r"ACHE. WHEN THE BED ARRIVED MY HUSBAND"t"TESTED IT "B$(2)" AND SAIR"***************************************":8T700IX936:50,63PZ3z]"BUST-A-BUTTON AND DUCK DEPT. STORE"^"TRUTH OR CONSEQUENCES, NEW MEXICO"`:"DEAR SIRS:":b"LAST WEEK I PURCHASED A "A$(2) g"CONTOUR WATER BED IN YOUR S.":1H"YOU WILL BECOME FAMILIAR WITH WEAPONS"YJ"LIKE THE .30 CALIBRE "C$(8)" AND"yL"THE AUTOMATIC "C$(9)".":N"FOLLOW THIS ADVICE AND YOU MAY WIN THE--"P:"***************************************"Q"* "A$(7)" CONDUCT "C$(10)/ AT"+<"ALL TIMES, YOU WILL BE A CREDIT"C>"TO THE SLOGAN:":K?:x@" THE ARMY BUILDS BETTER "C$(7)"S!":A(16384)127577:16368,0B"AT ROLL CALL, WHEN THE "A$(8)D"SERGEANT CALLS YOUR NAME, SHOUT"F"'"J$"' LOUD AND CLEARS SHOULDERS AND THE FUNNY-LOOKING"E!C$(3)"S ON HIS CAP. WHEN YOU"k&"ADDRESS AN OFFICER, ALWAYS SAY"+"'"C$(4)"' AND SAY IT "B$(5)"."0"IF YOU GET A "A$(9)" HAIRCUT, KEEP"5"YOUR "C$(5)"S SHINED, AND SEE":"THAT YOUR "C$(6)" IS CLEANU PLAN ON JOINING THE ARMY,"E"HERE ARE SOME "A$(11)" HINTS THAT"j"WILL HELP YOU BECOME A "A$(10)|"SOLDIER.": "THE ARMY IS MADE UP OF OFFICERS,""NON-COMS, AND "C$(1)"S. YOU CAN""RECOGNIZE AN OFFICER BY THE "C$(2)""ON HIKID DROPPED IN A"&"POOL OF "I$"."G(16384)127490:16368,0t:2:"'"J$"!' TEX SAID AS THE SUN SANK"B$(4)" INTO THE WEST, 'I HATED TO""DO IT BUT HE WAS ON THE WRONG SIDE""OF THE "C$(10)".'":16:700"IF YO(4)", BUT"3"BEFORE HE COULD GET IT OUT OF HIS"WC$(5)" THE KID FIRED, HITTING"y"TEX IN THE "C$(6)" AND THE"C$(7)".":"AS TEX FELL HE PULLED OUT HIS OWN"C$(8)" AND SHOT THE KID "(50(1)3)" TIMES IN""THE "C$(9)". THE ("THAT HIS "A$(1)" ENEMY, "E$" THE"T"KID WAS IN TOWN. THE KID WAS IN LOVE"|"WITH TEX'S HORSE, "F$". SUDDENLY""THE KID CAME OUT OF THE "A$(7)"NUGGET SALOON.":"'DRAW, TEX,' HE YELLED "B$(3)".": "TEX REACHED FOR HIS "C$RRYING A"-C$(5)" IN ITS MOUTH. A "A$(11)G"REWARD IS OFFERED."P700_I110:I~" AN ADULT WESTERN":"TEX "G$", THE MARSHALL OF "D$"STOWN""RODE INTO TOWN. HE SAT "B$(2)" IN""THE SADDLE, READY FOR TROUBLE. HE KNEW".".c"WILL CONSIDER TAKING A SLIGHTLY USED"EhC$(4)" IN TRADE."o|::"LOST: IN THE VICINITY OF "H$",""A "A$(8)" FRENCH POODLE WITH"A$(9)" HAIR AND A "A$(10)" TAIL.""IT ANSWERS TO THE NAME OF "F$"." "WHEN LAST SEEN IT WAS CAOWNED BY A"3EA$(3)" SCHOOL TEACHER WHO ALWAYS "]J"DROVE IT "B$(1)". THERE IS A "A$(4)OC$(1)" IN THE BACK SEAT. IT HAS A"T"CHROME "C$(2)" ON THE HOOD, A "A$(5)Y"PAINT JOB, "A$(6)" TIRES AND THE"^"BACK OPENS INTO A "A$(7)" "C$(3)"AIN, COCONUT...":245% I18::I2 N2400? N3500L N4600Y N5800f N6900q +50,63 ," ATLANTA JOURNAL CLASSIFIEDS": 6"FOR SALE: 1957 SEDAN." ;" THIS "A$(1)" CAR IS IN A "A$(2) @"CONDITION. IT WAS FORMERLY :3 "VERY GOOD! WOULD YOU LIKE A STORY ABOUT":O " (1) A NEWSPAPER AD"f " (2) A WESTERN"{ " (3) THE ARMY " (4) A WATERBED " (5) A FABLE" " (6) A MAGIC SHOW" :"TYPE 1,2,3,4,5 OR 6.":N N0N7270 "TRY AGOAT, ETC." I110:C$(I):IT ::"HOW ABOUT TWO FIRST NAMES OF MEN? ";D$,E$w "THE FIRST NAME OF A GIRL";F$ "AND SOMEONE'S LAST NAME";G$ "A GEOGRAPHICAL LOCATION";H$ "A LIQUID";I$ "AND FINALLY, AN EXCLAMATORY WORD OR TWO";J$"PLEASE HIT (RETURN) AFTER EACH WORD.":? PI111:A$(I):IG Y:p Z"NOW I NEED 5 ADVERBS. THEY MODIFY" _"VERBS AND END IN 'LY'..." d"(SLOWLY, GREEDILY, ETC.)" nI15:B$(I):I x:"OK, NOW 10 NOUNS, E.G., TELETYPE," }"INSECT, CA$(11),B$(5),C$(10)B "O.K. WE'RE GOING TO WRITE SOME MAD-LIB"q #"STORIES TOGETHER. YOU SUPPLY THE WORDS," ("I SUPPLY THE PLOT.": 7"FIRST I NEED 11 ADJECTIVES." <"ADJECTIVES MODIFY A NOUN, E.G.,RED," F"DIRTY,LARGE,COO-COO,ETC.") K$*****************************G* MADLIB *j* CREATIVE COMPUTING ** MORRISTOWN, NJ * * AUGMENTED BY DAN GARRETT * **************************** :5" ","MAD-LIB (?!)"15        Yy[Yhghgh fgh \yH ] I ]ŠҠǠĠJ ]R fq6\ lm'nq`(%_\ Ef flm nijkijk lm nghHqQyUVWijkijkijk* ijkijkijk7 lmnlmn lmn lmn  flmn  f g hg h' flmnghgh9 ghghghgh  ghgh gh gh v \y fq6 lm'nq`(%_  ] ]ŠƠĠ ]+ flm nijkgh f ijkgh7 ijk%_  q6 lm#nq`%_ 0 g hg hg hg hg h g hg hg h( fgh fg hghB g hg hghghgh gh g 7J lmnijkijkijkT f q6^ l mnq`%_^ h q 6r lmnq`%_r | q6 lm#nq` hg h# ghfg hg h \y fq6 lm'nq`(%_  f q6 lm(nq`(%_ ? ]$@ ]ŠҠŠĠԠA ]E f ijkd f q 6n lmnq`%_n x q6 lmnq`%_ , fghghghghG ghghfg hg hghg\y( fq62 lm!nq`(%_2 < fq6F lm'nq`(%_F O ]P ]ҠĠĠQ ]FZ f lmnghghghlmngh[hg hghgh"t ghghijk"~ lmnghgh ghgh f UVWghgh(Y] g hg hg hg hg hg hg hg hg hg h' q`%_8 IB i jk ijk i jk ijk g h gh #L fijkijk,V fghghghgh\ f,` ghijkghgh5j fg hghgh\yfq6 lm'nq`(%_  ]  ]ŠҠàĠԠ ]A f lm nijk ijkghgh  $ gh . f q 68 l mnhghi jk 0ghijkghfgh8fijkijkijkgh gh If ijk ijk ijk ijk ij kg!hghghgjk ijk ijk *ijk ijk>lm nlm nHijkijkRijk`]Ǡ#ff ijk ijk *pi jk i jk i jk#zf g hg fqlm'n&q`(%_(fijkghgh4ghghijkghgh & ghlm nijk "flmnlmn3 ghiYD^ijkijkijkijkijk5hfl mnfijk ijk /rghghijkijk&|ghijk ijk \y]]Š Ġ] Lfqlm'nq`(%_]]Ҡ]=flm nghghlm ngh?] @]A]#JfijkijkTUVWYijk       ra(ؠƠǠӠ)xca()a()Oyca(ӺĬˠ)PS()&@`@*#r9()$c_Š)JrKM6a(ΠΠϠŠ)a(͠Š˺)GR@4sq;@r@Brp@a@a@E()$t]ϠŠ͠Ү+ucS(ӠΠϠ)&@_#v]ŠӠǠϠԠ9wM6P8S()&@ka(Π)E@E(ְ)la(Š)E@6mUVW'b-rYUVW'b-rY4nUVW'b-rYUVW'b-rYoa(Š)E@8pa(Š)E@E(ά̤)a()_0q@p(q;@r@Brp@@ea@a@UVW'T-rYUVW'T-rY4fUVW'T-rYUVW'T-rYga@ha()q_)&i]ŠŠΠˠ=jM6oa(ΠƠǠκ))Gd2ea(Ҡ)P a(ȠĠ)+ba(ӺĬԮ)P8ro8r[4ca(ǠΠκ)PS()&@vd@p(Ġ)q;@r@Brp@@p(Π)q;@r@Brp@@p(Š)%qq(qL^P8ro8r`-r %a()Gb-rG`'%[qYY_q.?$r`'$V[Q`o8ra(ԠΠӠ)P a(ΠӠΠӮ)haPa(ҠӠ)Gd2ea(-rq`%-rq]ԠɠϠӠΠZ_]]ԠӠ[q_]]ԠӠO\q`%q]ؠӠŠҠƠӠϠԠԠR]YqUVWUVW-rq-r`UVW(-rqY]ŠԠŠUqqqHVqqqo8r`%o8rP8rR@3WUVW;@rq<@*#rr`$Z`$[%X`%[q`$\UYq`%[UVW'-rq-rYP[OQUVW'-rq-rqY]ŠРĠԠdRqUVW'q-rq-rq`%qY]ŠϠ̠S_(STqqqrGYc Jq.?%rKqֱq`$N)Lo8ra(ԠԠ)GM6dcKMUVW'`%qo8r`-r %a()Gb-rGYKNq.?%ro8ra(ҠԠ)GM6dcq.?%rq\T8O`$)Fq.?%ro8r`%o8ra(ҠРӺ)q.?%rq\T@G`$)`$KUVW'-rq-rYq)Ho8ֱra(ԠР)GM6dcMIUVW'`%qo8ֱr`-r %a()Gb-a(ٮ½ˮý)*Aa(Ľ׮ƽ)Bc2Cqq.?%rqֱq`$F)Do8ra(ԠР)GM6dcMEUVW'`%qo8r`-r %a()Gb-rGYcT9()$9_0:_0#;]ԠӠƠРĠ><M6\`o8rP a(ҠŠ)ca()+=a(ˠŮ).>a(ˠήٮĠ)+?a(ԠŮή)*@.0KM6P8 ra(٠Š)c-1a(ӺǬǬӬ)2P8 ra(Ԭ)c3S()&@4`@*#r9()$5`@*#r9()$$6`@*#r9()%\<7`@*#r9()$)8`@*#rYa(ǠΠ̩)[+UVW'b-rG`-r%-rqYa(ǠΠ̩)G,`%\-qq).oPS(ŠҠٺ)&@1/`@*#r9()$j`@*#r9()$ҠǠ)q.?%rq\T`$&UVW'-rq-rY&`$)`$9'\<(]٠ϠԠ0)LM6`%a(Ġ)E@E()`*UVW'b-rG`-r%-rq\]ԠԠ0 q.?%ro8ra(ҠǠ)F!q.?%rq\T`$"UVW'-rq-rY"`$)#`$:cB$`$%KM6\`\\]ԠԠ_%a(ԺŬĬ)8a(Πɬ)o a(Ӻج)Ho8 rP S()&@`@*#r9()$Q`@*#r9()$c6`@*#r9()$q`@*#r:()$_w_ KM6:\``$ \(rD4(rD4(rD4@r-rqRO4(rC@" rC@"(rC@"(rC@"(rC@"(rC@"rC@"(ra(Πìɬ)a()tKqM6o8rP8ra(ΠԠӠŠ)o8 ra(ΠŰq.?%rUVW'`%q`-r %a()Gb-rGYc[*a(ԠǠκ)GM6dc]qq.?%rUVW'`%qo8r`-r %a()Gb-rGYc[N@"(rD4(rD4(rEO4 ] ]Ԡñ ]Š tu _]bUVW'UVW'f-r`-r-r-r%f-rgh'YY['a(ԠǠ)GM6dcUq]Ҡ]̠ӠĠ ]ϠԠƠӠ ]٠ŠĠȭ]ԠҠΠ]ΠƠ]Š ]ҬϠ ]        CORRECT ANSWER IS ";V;" HOURS."% ZF _"ANOTHER PROBLEM (Y OR N)";N dA$T ic nA$"Y"10i C ";T;" MPH."8 #"HOW LONG DOES THE TRIP TAKE BY CAR ";? (AO -VDT(CT)j 2E(((VA)100A).5)v 7E570 <"GOOD! ANSWER WITHIN ";5;" PERCENT." A80 F::"SORRY. YOU WERE OFF BY ";E;" PERCENT." KV(V1000.5)1000 N: P"j:::::::::+10);"TRAIN"5::["TIME-SPEED DISTANCE EXERCISE":o C(25(1))40D(15(1))5T(19(1))20"A CAR TRAVELING ";C;" MPH CAN MAKE A CERTAIN TRIP IN" D;" HOURS LESS THAN A TRAIN TRAVELING AT \]Ԡ͠ҠӬ f]ŠŠŠŮp]z]̠͠]Ϡӿ](]ԠŠҠî٠ŠŮ#]ŠҠϠΠ ]ҠŠӠҠϬ#*]̠ŠŠŠ!4]ԠҠԮƠŠϠ!>]ӠŠ̠٬"H]Š٠ԠŠנ#R]ĠΠϠ)bb a@Fa(ŠҠƠ) a@F a()_d"]]͠"]]]٬Ӡ]ӠŠŠƠ" ]Ϡ)_La(ԠŠɠ̠נϠҠ)a(Ӯ)ca(ԠŠŠ٬ŠŠϠ٠)\Va(ŠŠĠŠϠԠɠ)a(ҠǠɠŠĠ)a(Ү) `a@F ja() ta@F+~a(ӠӠΠϠӠ٠)a(ՠӠƠӠԠ)V8a(ΠȠՠԠĠ)a(ӠҠϠϮ٬Š٧)"=a(ΧŠӠԮ)VBa(ƠɠϠԠӠϠҠΠӬ)a(ɠ̠ˠՠנӠ)a@Xoa(ˠƠΠŠŠ)ca(ŠՠҠĠſ)GR@`@*#r9()$dF$ca(Ӻ)ca(ՠ̠ˠ)E(ƠΠĠɠ)()a(٠ĠӠԠΠՠ)U.a(ǠƮɠ̠Ġ ]a(ΠɬϬ)^KM6N@"FrC@"FrC@"FrC@"FrC@"rC@"rC@" rC@"rC@"(rf@p(ĠŠŬ)@p(ŠŠŬ)@p()@p(ΠŠŬ̸ӠӠ ]͠ŠҮ ] ]͠Ӻ ]ˠ٬ˠɠ ] ]ҮΠ ] ]*UVW cY4a(ɠԠԠԡ)>>cS(ԠϠ٠ο)&@`;@r%`@*#r9()%Q_d ] ] ]̠ ]͠ӠӠ ]Ԡa@FR@TTa@F*a@`@9()$bb_bba@F$a@`@9()$bb_bb a@Fa@a@&a(ɠננ)FE(š)_> ]ɠԠԠԡ`@*;@rr9()%@p@*#;@rrXNca(ԠĠŠ)E(ԠҠҠ)a@*rE(ſ)GR@@p@*#rS`@:()@:()$NXa@ ba@Fl]ŠҠĮvT'a@F5qqbE()FԧԠנԠΠԠӬˠI&cca(̠)E(ɠŠЮԠΠ)a(ՠǠƿ)G0@p()R@Brh:ca(ŠŠ)E(ΠԠ)a()E(ȠΠ)E@*ra(Ġ)E@*rG-DS()&@@9()%q`@9()%q_n7]ŠĠΠ̠ٮӠԠŠԠſ:a@@p()a(ӠŠΠէŠǠƠ)G&ca@*rGS()&@`7;@r$6@p@*#r`@:()@:()$`@9()$ 5]ɠΠna@ xa@F0R@`@*#r9()$TTh]נŠΠϠˮҠӠԠĠϠϠϠƠŠӠӬҠƠŠӠϮa@?ca@GS()&@q@p@*#r`@:()@:()$.`_]]]ˠƠΠ]Ԡ٠]Ҡî]],dq]ŠӠŠ͠     ?UUC:CL100:6D"ASSETS WORTH $";B:GGB:B0:AIH0ı\NGGH:BHBBH:605SCCHB:B0:"<< NEW CREDIT >> $";CXCIC:"INTEREST IS NOW ";P;"%":]"BANK ACCOUNT AT";22);"$";B:ZS)100:BBC2:CIC2:2BBSM4000L:J535:B0BB:550S!605Y$&"XXXX OVERDRAWN XXXX";22);"$";B+"TO AVOID JAIL YOU LIQUIDATE"0GBī5805CCG:G0:"ALL OF YOUR ASSETS":B0:"BANKRUPCY -LAWYER FEE $";L100)T3ī515-115:" ",A(4)A(8)A(12)3c"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX""RESEARCH THIS PROGRAM AGAIN?(Y/N)";Y$"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"Y$"Y"ī80L(SMBC)(4QM): V(100V.5A(W)B:A(W4)C:A(W8)G5A(W12)M:A(W16)S:315I: END OF GAMEs"AFTER ";Z1978;" YEARS OF CUPIDITY":"GROUP:","TOTAL:":85:" ",A(1)A(5)A(9)T1ī51595:" ",A(2)A(6)A(10)T2ī515105:" ",A(3)A(7)A(11=================="+585:(X)O2ī420>K0M12:455VV(12(X)):M12V{"YOU LOSE ";V;" MONTHS OF WORK"VP(30(X)15)"AND YOU ";:V0ī445"GET A ";V;"% PAY CUT":450"GOT A ";V;"% RAISE !"SS(1V100)EDIT PAYMENT";22);"$";C2:530?"LEAVING $";C;" DUE":540o"========================================""WANT TO STRIKE 1=YES,0=NO ";K"========================================""HOW MUCH WILL YOU BUY ";H"======================455O:N02000:N: TUMER+TW1İ858YW2İ95F^W3İ105TcW4İ115whGGR:10);"HAVE $";G;" CASH"mM;"MO. AT $";S;"=";22);"$";SMr"PREVIOUS BANK ACCOUNT ";22);"$";Bw"LESS LIVING EXPENSES";22);"$";4000L "LESS CR0""I.55L2:P100(I1):R.9L@'VI:525:IV:VL:525:LV^,VP:525:PV:VR:525:RV}1:Y;" COST OF LIVING: ";L6"RESALE: ";R;" INTEREST:";P;"%";WW1:WT230@BA(W):CA(W4):GA(W8)EMA(W12):SA(W16)JYZGGR:530:BA(N):CCA(N4)0MMA(N12):SSA(N16):NJ:520:O0:L.5ī270"DUE TO THE DEPRESSION, THIS YEAR, MANY WORKERS WILL BE LAID OFF.":Q1L2ī290"DUE TO THE RISING INFLATION NEW SOCIAL PROGRAMS ARE INTRODUCED."QQ((X)1):52A(N16)Q N 5 "HOW MANY TEAMS (1-4) ";TC T4ī205I h "HOW MANY YEARS (1-7) ";Yr 936 Y7ī215 Z1979Y:Y1978:U0:X0 W0: START NEW YEAR YY1:YZ1ī465 B0:CU:M0:S0: U IS UNPAID DEBTN14:BEXT YEAR."e "NO INTEREST ON BANK ACCOUNT. THEY MAY OVERDRAWN AND SELL PROPERTY AND GO BANKRUPCY!" "ASSETS ARE THE CURRENT RESALE VALUE OF THEIR MATERIALS. GAME END TOTALS CASH & ASSETS." Q500:N14 A(N)0:A(N4)0:A(N8)2Q:A(N12)12:"HIRO";: _"ROSE";:+ i"EDWARD";:9 s"JIM";:R }" CUPIDITY !" "THEN LEDGER REPRESENTS AVERAGE INDIVIDUAL OF EACH GROUP." "THEY MAY GO ON STRIKE BUT CREDT IS ALWAYS GOOD," "HOWEVER, THEY MUST PAY BACK HALF WITH INTEREST N-Y,X::936 0P! 2:9365 7I17:(7):Ie <"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" A"AMERICAN AVICULTURAL ART & SCIENCE INC." F" DATA PROCESSING DEPARTMENT." K"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" PA(20):125 U*! **************************+ 9368 S16336> I P12\ X118:Y1X SOUND(S)(S)(S)(S)(S) (X3):Y:"KUNIHIRO TANAKA" Y,X #X1811:Y18X1 $I12:SOUND(S):I ((X3):Y:"ROSEMARY TANAKA" !**************************A* *a* CREATED AND PROGRAMMED ** KUNIHIRO TANAKA ** COLOR LOGO APRIL 17 79 **ACCOUNTING PRACTICE GAME**APRIL 28,1979 BY HIRO * *      UCTION RESUMED."L"NEW VARIABLE COST=$";U;"/UNIT, DUE TO INCREASED WAGE"R]E(2)0cio'=,"COMPANY ";1;" HAS BEEN THE VICTIM OF EMBEZZLEMENT BY THE"ZSQQ121450E(1)2D"THE WAGE-PRICE FREEZE HAS ENDED."J\E(2)11475kQ2Q1475vE(5)0"TRANSPORTATION STRIKE SETTLED. NORMAL DELIVERIES RESUMED."E(2)11505Q3Q1505"STRIKE SETTLED. NORMAL PRODIATIONS HAVE"?i"BEGUN, BUT HOPE OF A SETTLEMENT LOOKS DIM."EnKsx"THERE HAS BEEN A STRIKE AND YOUR PRODUCTION HAS BEEN"}"HALTED. NEGOTIATIONS HAVE BEEN STARTED, BUT HOPE OF ""A SETTLEMENT LOOKS DIM."E(1)11450E"EK"ALL UNITS WERE DESTROYED. YOUR INSURANCE WILL REINBURSE YOU"P"IN THE AMOUNT OF $";(UI(J).75);" FOR THESE UNITS."UZ_"A TRANSPORTATION STRIKE HAS OCCURED, AND YOU ARE UNABLE TO" d"MOVE YOUR GOODS TO THE DISTRIBUTORS. NEGOTOUR PRODUCT OVER THE NEXT 2 QUARTERS.",#2(r-"COMPANY ";I;" HAS BEEN THE VICTIM OF EMBEZZLEMENT BY THE"2"VICE-PRESIDENT OF THE COMPANY. YOU CASH ON HAND IS NOW $";C(I)<AF"COMPANY ";J;" HAS SUFFERED FIRE DAMAGE IN ITS WAREHOUSU(1.1.1(1)))Q3Q#1425=U(U(1.05.1(1)))"NEW LABOR CONTRACT -VARIABLE PRODUCTION COST NOW=$";U;"/UNIT"1425"THE PRESIDENT HAS JUST IMPOSED A WAGE-PRICE FREEZE ON THE ECONOMY,"&"AND YOU MAY NOT RAISE THE PRICE OF Y210601350*C(J)C(J)UI(J).75:I(J)0:W3QD1080UE(1)11230gQW421230pW4Qz1375E(5)1:Q2Q((Q1)4)4Q11425Q11425E(1)11425(1).251280Q612801400E(2)1:U(8(1).11200=1230,BE(1)010706G1300FLE(1)1:Q10PV1070b[I((1)1.5)t`QW221075eC(I)01075jC(I)2001145oC(I).75C(I)t1150yC(I)C(I)200~1325W2Q1075J((1)1.5)QW3)P(2)1015M21020%M1AG4(P(3M)P(M))P(3M)RG4G11055bG4G21040l G4G2G5D(3M)((G4G1)(G2G1))G3D(3M)D(3M)G5D(M)D(M)G5$Q61230)(1).11090.(1).111153(1).11165 5000,5000 100,100% 250. 208 .05G .2,.4,.4S 12000] 1.57);"**********************************""COMPANY ";J;" YOU HAVE GONE BANKRUPCY."7);"**********************************"P417 P(1a fk"QUARTER ";Q$pTu" MARKET CASH NUMBER ASSETS"}z"PROFIT SHARE ON HAND SOLD INVENT."UI(J)C(J)B(J);8);W(J);14);C(J);21);T(J);26);I(J);35);UI(J)C(J) 50 2 .001 .05 Y NOT RAISE PRICES DURING THE WAGE-PRICE FREEZE."7@760K P(J)AZ%A200760k*P(J)0760r/J4A2A(1)A(2)9A20845>V(1)0:V(2)0H855MV(1)A(1)A2NV(2)A(2)A2RV(2)A(2)A2WD1(K2K2(KA2))K4\ STRIKE. "7301"PRODUCTION LEVEL ";L(J)AL(J)0715b"ADVERTISING REVENUE ";A(J)rA(J)0730C(J)C(J)FL(J)UA(J)E(2)1760I(J)I(J)L(J)"UNIT PRICE=$";AE(1)1800AP(J)800 1PRITN"YOU MA"***************************"#g*lJ0q@vP417410F{q"DO YOU WANT TO PALY AGAIN?(Y/N) ";H$H$"N"670135J12"COMPANY ";JE(2)1715 "NO PRODUCTION POSSIBLE DUE TO!J12&900&+B(J)C(J)UI(J)60B(J)0580<5E:975K?\DB(J)M1620{IB(J)C(3J)UI(3J)620NP417SX14);"***************************"]"COMPANY ";J;" YOU HAVE REACHED ".001M1;" MILLION AND WON."b14);J)T(J)(T(J))+C(J)C(J)T(J)P(J)>I(J)I(J)T(J)EJPJ12C(J)C(J)RI(J)UK3C(J)((C(J)))(C(J)2)2C(J)(C(J))E(2)0530W(J)0 540T(1)T(2)0520W(J)(10000T(J)(T(1)T(2)))100J(J)0:D(J)0:T(J)0(B(J)UI(J)C(J)19008JBQC1L1060U675^865s COMPUTE DEMAND~J12D(J)(1E(2)).5(K22V(J)D1)(P(J)50)NJ1000J12D(J)I(J)475T(J)D(J)480T(J)I(500;" UNITS (PRINTED AS ";K22;")"T'"WAREHOUSE CHARGE FOR INVENTORY =";R100;"%","INTEREST CHARGE ON BORROED MONEY=";K3100;"%"J"UNITS AND DOLLARS BELLOW ARE IN THOUSANDS "OYJ12^E(J)0cJhP40m875rJ12wWNTER VARIABLE PRODUCTION COST ";U@ "ENTER QUARTER NUMBER ";QF y "FIXED PRODUCTION COST=$";F1000;"/ QUARTER." "VARIABLE PRODUCTION COST=$";U;"/UNIT." "WITH NO ADVERTISING AND SELLING PRICE OF $50/UNIT """"A COMPANY WILL SELL ";K2ANY GOES BANKRUPT OR REACHES ";.001M1;" MILLION IN "; t "ARE YOU BEGINNING THE GAME OR CONTINUING?(B/C)";A$z A$"B"270 J12 "COMPANY ";J;" ENTER PREVIOUS CASH ON HAND, PREVIOUS INVENTORY "; C(J),I(J) J! "E9 "MARKET SIMULATES THE COMPETITION BETWEEN COMPANIES"w "SELLING A PRODUCT DIFFERENTIATED BY BRAND ADVERTISING." "THE QUANTITY EACH COMPANY SELLS IS DEPENDENT UPON PRICE" "AND ADVERTISING BUDGET. THIS PROGRAM WILL ENDS WHEN ONE"5 "COMP15:(135):I* }R(X).01(100X.5)f C(2),I(2),T(2),A(2),L(2),D(2),P(2),V(2),W(2),B(2),E(2) "DO YOU WANT INSTRUCTION?(Y/N)";H$ K2,N,K,K3,C(1),C(2),I(1),I(2),F,U,R,G1,G2,G3,M1,K4 Q0:W20:W40:W30 H$"N"200 I15:"":I*! **************************+ 9368 S16336> Q X118:Y1Xo SOUND(S)(S)(S)(S) (X3):Y:"KUNIHIRO TANAKA" Y,X X1811:Y18X1 SOUND(S)(S) (X3):Y:"ROSEMARY TANAKA" Y,X::936 I!**************************A* *a* CREATED AND PROGRAMMED ** KUNIHIRO TANAKA ** COLOR LOGO APRIL 17 79 ** " TITLE NAME " ** * *           TY.6SANCTIMONY,IMPIETY,IRRELIGIOUS,WORSHIPR6IDOLATRY,OCCULT,SORCERY,CHARMSs6MINISTRY,CLERGY,LAITY,RITES6ATTIRE,CHURCH6:::::::::::::::::::::::::::WSDICTION,5TRIBUNAL,JUDGE,LAWYER,LEGALITYO5ACCUSE,JUSTIFY,ACQUIT,CONDEMNu5PENALTY,PUNISH,PUNISHMENTS,ATONE5DEITY,MYTH,SAINT,EVIL5SPECTER,HEAVEN,HELL,CULTS5SCRIPTURE,PROPHET,THEOLOGY,ORTHODOX6UNORTHODOX,SANCTITY,UNSANCTITY,PIEAT,PROBITY,IMPROBITY,JUSTICED4INJUSTICE,SELFISH,UNSELFISH,VIRTUEb4VICE,SIN,GUILT,INNOCENCE4GOODPERSON,BADPERSON,SENSUAL,CHASTE4UNCHASTE,INDECENT,ASCETIC,TEMPERATE4INTEMPERATE,GLUTTON,FASTING,INTOXICATION5SOBER,LEGAL,ILLEGAL,JURIFORGIVE,CONGRATULATE>3GRATITUDE,INGRATITUDE,ILLHUMOR,ANGERb3JEALOUS,ENVY,RETALIATE,REVENGE~3ETHICS,RIGHT,WRONG,DUE3UNDUE,DUTY,IMPOSITION,RESPECT3DISRESPECT,CONTEMPT,RIDICULE,APPROVAL3DISAPPROVAL,FLATTERY,DISPARAGE,CURSE4THRESOCIABLE,UNSOCIABLE,SECLUSIONI2WELCOME,INHOSPITABLE,FRIENDSHIP,FRIENDj2ENMITY,HATE,LOVE,LOVEMAKING2MARRIAGE,CELIBACY,DIVORCE,COURTESY2DISCOURTESY,KIND,UNKIND,MISANTHROPY2PUBLICSPIRIT,BENEFACTOR,EVILDOER,PITY3PITILESS,CONDOLENCE,,RASH,CAUTION,FASTIDIOUS61TASTE,VULGAR,UGLY,BEAUTYb1ORNAMENT,PLAIN,AFFECTATION,OSTENTATION1PRIDE,HUMILITY,SERVILE,MODEST1VAIN,BOAST,BLUSTER,ARROGANCE1INSOLENCE,REPUTE,DISREPUTE,HONOR1TITLE,NOBILITY,COMMON,WONDER2UNASTONISH,0PLEASURE,UNPLEASURE,DISLIKE,CONTENTK0DISCONTENT,CHEERFUL,SOLEMN,SADo0REGRET,UNREGRET,LAMENT,REJOICE0CELEBRATE,AMUSE,DANCE,HUMOR0WIT,BANTER,DULL,TEDIUM0AGGRAVATION,RELIEF,COMFORT,HOPE0HOPELESS,ANXIETY,FEAR,COWARD1COURAGELTH,POVERTY,CREDIT,DEBT5/PAY,NONPAY,SPEND,RECEIPTZ/ACCOUNTS,FEE,DISCOUNT,EXPENSIVE/CHEAP,COSTLESS,ECONOMY,PARSIMONY/LIBERAL,PRODIGAL,FEEL,UNFEELING/EXCITE,INEXCITABILITY,NERVOUS,UNNERVOUS/PATIENCE,IMPATIENT,PLEASANT,UNPLEASANT'SESSOR,PROPERTY,ACQUIRE,LOSSK.RETAIN,RELINQUISH,PARTICIPATION,APPORTIONk.TRANSFER,GIVE,RECEIVE,LEND.BORROW,TAKE,RESTORE,THEFT.THIEF,ILLICIT,COMMERCE,PURCHASE.SALE,MERCHANT,MERCHANDISE,MARKET.STOCKS,SECURITY,MONEY,INVEST/WEAPROMOTE,DEMOTE,RESIGN>-AID,COOPERATE,ASSOCIATE,ASSOCIATIONm-LABORUNION,OPPOSITION,OPPONENT,RESISTANCE-DEFY,ACCORD,DISACCORD,CONTEND-WAR,ATTACK,DEFENSE,COMBATANT-ARMS,ARENA,PEACE,PACIFY-MEDIATE,NEUTRAL,COMPROMISE,POSSESS.POSVICE,COUNCIL,COMPEL5,rSTRICT,LAX,LENIENT,RESTRAINT`,tCONFINE,FREEDOM,LIBERATION,SUBJECTION,vSUBMIT,OBEY,DISOBEY,OBSERVE,xNONOBSERVE,PROMISE,COMPACT,SECURITY,zOFFER,REQUEST,CONSENT,REFUSAL,|PERMIT,PROHIBIT,REPEAL,COMMISSION-~AGENT,VERSITY,HINDRANCE,DIFFICULT,FACILITYJ+fSKILL,UNSKILLFUL,CUNNING,ARTLESSr+hBEHAVE,MISBEHAVE,AUTHORITY,LAWLESS+jGOVERN,LEGISLATE,UN,POLITICS+lPOL-ECON PRINCIPLES,POLITICIAN,MANAGEMENT,DIRECTOR+nMASTER,EMPLOYEE,PRECEPT,COMMAND,pDEMAND,ADE,RESCUE,WARN,ALARM8*XACTION,INACTION,ACTIVE,INACTIVEV*ZHASTE,LEISURE,REST,SLEEP{*\AWAKE,ENDEAVOUR,UNDERTAKE,EXERT*^FATIGUE,DOER,WORKPLACE,PREPARE*`UNPREPARED,ACCOMPLISH,NONACCOMPLISHMENT,SUCCESS*bFAILURE,VICTORY,DEFEAT,PROSPER$+dADOOD,BAD,BANE6)JPERFECT,IMPERFECT,BLEMISH,MEDIOCRITY_)LCLEAN,UNCLEAN,HEALTHFUL,UNHEALTHFUL)NHEALTH,DISEASE,REMEDY,HEAL)PTHERAPY,PSYCHOLOGY,IMPROVEMENT,IMPAIRMENT)RDESTROY,RESTORE,REFRESH,RELAPSE)TDANGER,SAFE,PROTECT,REFUGE*VPRESERVMOTIVATION1(<PRETEXT,ALLUREMENT,BRIBE,DISSUADET(>INTEND,PLAN,PURSUE,OCCUPATIONt(@WAY,MEANS,EQUIPMENT,SUPPLY(BSUFFICIENT,INSUFFICIENT,EXCESS,SATIETY(DUSE,CONSUME,MISUSE,DISUSE(FUSELESS,EXPEDIENT,INEXPEDIENT,IMPORTANCE )HUNIMPORTANT,GESOLUTION:'0PERSEVERE,OBSTINATE,IRRESOLUTION,CHANGEABLE`'2CAPRICE,IMPULSE,AVOIDANCE,ESCAPE'4ABANDON,DESIRE,EAGER,INDIFFERENT'6CHOICE,REJECT,NECESSITY,PREDETERMINE'8PREARRANGE,CUSTOM,UNACCUSTOMED,FASHION (:CONVENTION,FORMALITY,INFORMAL,SPEAKING,ELOQUENCE?&$GRANDILOQUENCE,WRITING,PRINT,CORRESPONDc&&BOOK,TREATISE,ABRIDGE,DESCRIBE&(POETRY,PROSE,ENTERTAINMENT,ENTERTAINER&*UNCOMMUNICATIVE,SECRECY,CONCEAL,FALSE&,EXAGGERATE,DECEPTION,DECEIVER,DUPE '.WILL,WILLING,UNWILLING,RCULPTURE,CERAMICS;%PHOTOGRAPHY,GRAPHICS,ARTIST,LANGUAGE[%LETTER,WORD,NAME,ANONYMITY%PHRASE,GRAMMAR,UNGRAMMATICAL,DICTION%ELEGANCE,INELEGANT,PLAINTALK,CONCISE% DIFFISE,SPEECH,IMPERFECTSPEECH,TALKATIVE&"CONVERSATION,SOLILOQUY,PUBLICTATIOND$ MISINTERPRETATION,COMMUNICATION,MANIFESTATION,DISCLOSUREu$INFORMATION,NEWS,PUBLICATION,COMMUNICATIONS$MESSENGER,TEACH,MISTEACH,LEARN$TEACHER,STUDENT,SCHOOL,INDICATION$INSIGNIA,RECORD,RECORDER,REPRESENT%MISREPRESENT,ART,SINATTENTION,CONFUSION@#CAREFUL,NEGLECT,IMAGINE,UNIMAGINATIVEk#MEMORY,FORGETFUL,EXPECT,INEXPECTATION#DISAPPOINT,FORESIGHT,PREDICT,PRESENTIMENT#MEANING,LATENCY,MEANINGLESS,INTELLIGIBLE$ UNINTELLIGIBLE,AMBIGUITY,FIGURE OF SPEECH,INTERPREOF,QUALIFY,NONQUALIFYB"POSSIBLE,IMPOSSIBLE,PROBABLE,IMPROBABLEf"CERTAIN,UNCERTAIN,GAMBLE,TRUTH"MAXIM,ERROR,ILLUSION,DISILLUSION"ASSENT,DISSENT,AFFIRM,NEGATE"MENTAL ATTITUDE,BROADMINDED,NARROWMINDED,CURIOUS#INCURIOSITY,ATTENTION,TOPIC,!INQUIRY,ANSWER,SOLUTION,DISCOVERYb!EXPERIMENT,MEASUREMENT,COMPARISON,DISCRIMINATION!INDISCRIMINATE,JUDGE,PREJUDGE,MISJUDGE!OVERESTIMATE,UNDERESTIMATE,THEORY,PHILOSOPHY!BELIEF,CREDULITY,UNBELIEF,INCREDULITY"EVIDENCE,DISPROIMAL SOUNDS0 DISCORD,MUSIC,HARMONIC,MUSICIAN\ MUSICINSTRUMENTS,INTELLECT,WISDOM,WISE UNINTELLIGENCE,FOOLISH,FOOL,SANITY INSANE,ECCENTRICITY,KNOWLEDGE,INTELLECTION IGNORANCE,THOUGHT,IDEA,THOUGHTLESS!INTUITION,REASONING,SOPHISTRY,ACCO,ODOR,FRAGRANCE@STENCH,ODORLESS,VISION,DEFECTIVE VISIONeBLIND,SPECTATOR,OPTICAL,VISIBLEINVISIBLE,APPEAR,DISAPPEAR,HEARDEAF,SOUND,SILENCE,FAINTSOUNDLOUD,RESONANCE,REPEATED SOUNDS,EXPLOSIVE NOISE SIBILATION,STRIDOR,CRY,ANORGANIC,LIFE,DEATH4KILL,INTERMENT,PLANTS,BOTONY\AGRICULTURE,ANIMAL,ZOOLOGY,HUSBANDMANKIND,PEOPLES,SEX,MASCULINEFEMININE,SENSATION,INSENSIBLE,PAINTOUCH,SENSE OF TOUCH,TASTE,SAVORYUNSAVORY,INSIPID,SWEET,SOURPUNGENT,TOBTERIAL.IMMATERIAL,MATERIALS,CHEMICAL,OILSYRESINS,INORGANIC,MINERALS&METALS,ROCK}LAND,BODY OF LAND,PLAIN,LIQUIDSEMILIQUID,PULP,LIQUEFY,MOISTUREDRY,RAIN,STREAM,CHANNELOCEAN,LAKE,GULF,MARSHGAS,AIR,WIND,CLOUDBUBBLE,TV,RADAR,MECHANICS,TOOLSEAUTOMATION,FRICTION,TEXTURE,WEIGHTaLIGHT,DENSE,RARE,RIGIDSOFT,ELASTIC,TOUGH,FRAGILEPOWDERY,COLOR,COLORLESS,WHITEBLACK,GRAY,BROWN,REDORANGE,YELLOW,GREEN,BLUEPURPLE,VARIEGATION,UNIVERSE,MASION,LEAP,PLUNGE;CIRCUITOUS,ROTATION,OSCILLATE,AGITATE_PHYSICS,ATOMICS,RADIATION,HEATHEATING,COOK,FUEL,INCOMBUSTIBLECOLD,REFRIGERATE,LIGHT,LIGHT SOURCEDARK,SHADE,TRANSPARENT,SEMITRANSPARENTOPAQUE,ELECTRIC,ELECTRONIC,RADIODEVIATE,LEADING5FOLLOW,PROGRESS,REGRESS,APPROACH]RECESSION,CONVERGE,DIVERGE,ARRIVAL}DEPART,ENTER,EMERGE,INSERTEXTRACT,RECEPTION,EAT,FOODNUTRITION,EJECT,EXCRETE,SECRETEOVERRUN,SHORTCOMING,ASCENT,DESCENTELEVATION,DEPRESOW,FOLD.|OPENING,CLOSURE,MOTION,QUIESCENCEO~SWIFT,SLOW,TRANSFER,VEHICLEyTRAVEL,TRAVELER,WATER TRAVEL,MARINERBOAT,AVIATION,AVIATOR,AIRCRAFTROCKET,SPACE TRAVEL,IMPULSE,REACTIONTHROW,PULL,PURCHASE,ATTRACTREPULSE,DIRECTION,LOSURE2nINTERPOSE,INTRUDE,CONTRAPOSITION,FRONTVpREAR,SIDE,RIGHT SIDE,LEFT SIDE|rSTRUCTURE,FORM,FORMLESS,SYMMETRYtDISTORT,STRAIGHT,ANGULAR,CURVINGvCIRCULAR,CONVOLUTION,ROTUND,CONVEXxCONCAVE,SHARP,BLUNT,SMOOTHzROUGH,NOTCH,FURRHT,LOW$`DEPTH,SHALLOW,TOP,BOTTOMNbVERTICAL,HORIZONTAL,PENDANCY,SUPPORTqdSHAFT,PARALLEL,OBLIQUE,INVERTfCROSS,WEAVE,SEW,EXTERIORhINTERIOR,CENTRAL,LAYER,COVERjSKIN,HAIR,CLOTHING,DIVESTMENTlENVIRONMENT,CIRCUMSCRIPTION,BOUNDS,ENCE,REGION/RCOUNTRY,COUNTRYSIDE,TOWN,LOCATIONYTDISLOCATION,PRESENCE,ABSENCE,HABITAT{VNATIVE,INHABITANT,ABODE,ROOMXCONTAINER,CONTENTS,SIZE,LITTLEZGROWTH,CONTRACTION,DISTANCE,NEAR\INTERVAL,LENGTH,SHORT,THICK^NARROW,FILAMENT,HEIGUTE,CHANCE-FPOWER,IMPOTENCE,STRENGTH,WEAKSHENERGY,VIOLENCE,MODERATE,OPERATE~JPRODUCTIVE,UNPRODUCTIVE,BIRTH,PRODUCTLPROCREATE,ANCESTRY,POSTERITY,INFLUENCENABSENCE OF INFLUENCE,TENDENCY,LIABLE,INVOLVEPCONCURRENCE,COUNTERACTION,SPACUNTIMELY,EARLY,LATE<:MORNING,NIGHT,FREQUENCY,INFREQUENCYe<REGULAR,IRREGULAR,CHANGE,PERMANENCE>CHANGEABLE,STABLE,CONTINUANCE,CESSATION@CONVERT,REVERT,REVOLUTION,EVOLUTIONBSUBSTITUTE,INTERCHANGE,EVENT,IMMINENCE DCAUSE,EFFECT,ATTRIBTION,INFINITY-,TIME,TIMELESS,PERIOD,SPELLX.INTERIM,DURABLE,TRANSIENCE,PERPETUITY0INSTANTANEOUS,MEASURE OF TIME,ANACHRONISM,PRIORITY2POSTERIOR,SIMULTANEOUS,PAST,PRESENT4FUTURE,NEW,OLD,YOUTH6YOUNGSTER,AGE,ADULT,SEASON8TIMELY,ENERALITY,PARTICULARITYG SPECIALITY,CONFORMITY,NONCONFORMITY,NORMALl"ABNORMAL,NUMBER,NUMERATION,LIST$UNITY,DUALITY,DUPLICATE,BISECTION&THREE,TRIPLE,TRISECT,FOUR(QUADRUPLE,QUADRISECTION,FIVE AND OVER,PLURALITY *NUMEROUS,FEW,REPETITE0INCOMPLETE,COMPOSITION,ORDER,ARRANGEMENTgCLASSIFICATION,DISORDER,DISARRANGEMENT,PRECEDENCESEQUENCE,PRECURSOR,SEQUEL,BEGINMIDDLE,END,CONTINUITY,DISCONTINUITYACCOMPANY,ASSEMBLAGE,DISPERSION,INCLUSIONEXCLUSION,EXTRANEOUS,GSATION,GREATNESS,SMALLNESS,SUPERIORITYR INFERIORITY,INCREASE,DECREASE,ADDITION} ADJUNCT,SUBTRACTION,REMAINDER,MIXTURESIMPLICITY,COMPLEXITY,JOINING,ANALYSISSEPARATION,COHESION,NONCOHESION,COMBINATIONDISINTEGRATION,WHOLE,PART,COMPLEIP BY MARRIAGE?CORRELATION,IDENTITY,CONTRARIETY,DIFFERENCEuUNIFORMITY,NONUNIFORMITY,MULTIFORMITY,SIMILARITYDISSIMULARITY,IMITATION,NONIMITATION,COPYMODEL,AGREEMENT,DISAGREEMENT,QUANTITYDEGREE,EQUALITY,INEQUALITY,MEAN&COMPEN A COMMAND":10("NO SUCH WORD":110B"NO SUCH CLASS":200L1042EXISTENCE,NONEXISTENCE,SUBSTANTIALITY,UNSUBSTANTIALITYINTRINSICALITY,EXTRINSICALITY,STATE,CIRCUMSTANCERELATION,UNRELATEDNESSRELATIONSHIP BY BLOOD,RELATIONSHER" 240) M422:P465:"SENSATION"2 240O M466:P620:"INTELLECT"X 240t M621:P854:"VOLITION"} 240 M855:P1042:"AFFECTIONS" IMP I"."W$(I) "ANS$ 'I ("THAT'S ALL" )ANS$ *5 "NOTT"$ "7.VOLITION":"8.AFFECTIONS"= "CLASS TO PRINT:";IE :K v I220,222,224,226,228,230,232,234,430 M1:P178:"ABSTRACT RELATIONS" 240 M179:P324:"SPACE" 240 M325:P374:"PHYSICS" 240 M375:P421:"MATT420 F$"="I"."W$(I) & 110, K "HOLD ON A MINUTE NOW..."w "GIVE ME TIME TO GET MY ACT TOGETHER."} N I1N W$(I):I "CLASSES=":"1.RELATIONS":"2.SPACE":"3.PHYSICS" "4.MATTER":"5.SENSATION":"6.INTELLEC$(I):I I1N% W$(I)F$ī180, Im "WORD NOT FOUND.BUT GIVE ME SOME TIME."::"TRY THIS WORD:"x I1N (W$(I),5)(F$,5)ī180 I I1N (W$(I),4)(F$,4)ī180 I I1N (W$(I),3)(F$,3)ī180 I .CLASS 'PRINT'"= "TO USE:TYPE WORD IN'..'TYPE'X' TO STOP"C #V ("COMMAND:";I$\ *j -I$"X"ij} 2I$"FIND"100 7I$"PRINT"200 F400 dWORD FIND g i n"WORD TO FIND:";F$ o pF$"X"5 q sN xI1N }W. SYNOPSIS OF CATEGORIES> DATA FROM 1977 EDITION OFV ROGET'S THESAURUSjBY DEREK KELLYpv  W$(1050)13)"++++++++++++++"12)"THESAURIAN INDEX":11)".................." :"COMMANDS ARE:":"1.WORD 'FIND'":"2                (Y/N) ";C$~C$"Y"1170& 8109Q0:Q10:SW.5L:: 660<`K GRADE? ";EX 1(2SW);QASW(FISRN)(EX)(12SW)KQA(QA.5)n$::"QUARTER AVERAGE ";QA::x. 7908:"QUARTER ";Q$B"FINAL ";Q1$L"6 WEEKS WEIGHT ";SWV"DAILY WEIGHT ";DWT`"TEST WEIGHT ";TWTj: t"CHANGE?RN(SI.5)-:"SIX WEEKS AVERAGE ";SRN:5:CQ1 960M 790\Q111010~"FIRST 6 WEEKS AVERAGE? ";FIQA(((FISRN)2).5)::"QUARTER AVERAGE ";QA: 790:"FIRST 6 WEEKS AVERAGE? ";FI :"FINAL EXAMR": 7401 :::"HIT ANY KEY TO CONTINUE":G$7? A$E*q4"DAILY AVERAGE/USE RETURN FOR AVERAGE"w>H70RDAVAVP\"TEST AVERAGE/USE RETURN FOR AVERAGE"f:p70zTAVAVPSIXWA((DWT100)DAV(TWT100)TAV) S$Q$"Y"Q1R:Q1ĺ"FINAL EXAMS? (Y/N) ";:Q1$:Q1$:Q1$"Y"Q11XQ11Ą"SIX WEEKS WEIGHT %? ";SW:SWSW100Q11SW.5SW.5 710"DAILY WEIGHT %? ";DWT:"TEST WEIGHT %? ";TWTDWTTWT100ĺ"ERRO10:8% &"GRADE AVERAGING PROGRAM"1 015:15F :"DESIGNED FOR:"P D:15g N"MELISSA TROSTER"q X:15 b"MANOR HIGH SCHOOL" lI15000: v:10:"DO YOU WANT INSTRUCTIONS? (Y/N) A$:A$"Y"ī310 "QUARTER? (Y/N) ";:Q$:Q EXIT THE PROGRAM":7 "M TO CORRECT GRADE ENTRY":] "I TO SEE THESE INSTRUCTIONS": ::"*NOTE.. A GRADE ENTRY OF '10' MEANS 100 :"YOU MAY NOT ENTER THE GRADE '10'" 22:15:"HIT ANY KEY TO BEGIN" C$   660   6 WEEKS COUNT?"A :"4. WHAT % WILL THE DAILY AVERAGE COUNT?"q :"5. WHAT % WILL THE TEST AVERAGE COUNT?" ::"TO CHANGE THE ABOVE TYPE 'S' AT ANY TIME" 22:15:"HIT ANY KEY TO CONTINUE":B$: "DURING THE PROGRAM TYPE:" :"E TO "C0:T0 , 6:J @"INSTRUCTIONS FOR GRADE AVERAGING PROGRAM":t J"YOU WILL BE GIVEN 5 ITEMS TO INPUT"z T ^:"1. QUARTER?...YES OR NO" h:"2. IF THIS IS THE QUARTER WILL THERE BE" r" A FINAL EXAM?" |:"3. WHAT % WILL EACH"0 ";:220 G1$"M"80. G1$"S"1080@ G1$"I"ī310I G1;\ G2$:G2(G2$) G1$"M"G2$"M"Ĺ36,0:868:70 G2;:" "; G10G1G2 G10G100 TTG CC1 90 CAVTC AVP(TC.5) :AVP: : M  DAILY AVERAGE ROUTINE? ## MOSTLY COMPLETE 12/30/78p## 10=100, 0=00, HIT RETURN TO GET AVERAGE( ### NEEDS DOCUMENTATION!!! ###2<: 530FPC0:T0ZG1$:G1(G1$)d(G1$)13250nG1$"E"Ā xG1$"0"G0:         ժժժծ~paaya~|?@@@@@U*U*W*W*U*qayC`~@pC@s @ @`\*U?CU*Uc ~@  pX@ @ p89`p`+0p@(U*U*UzW.UxD~y<@@mx@xA8< <F9<@@*U@תժժ@@@ p@P*`px@p@@ @x@ @@@U*U*ujU*U*U`xsx?@@@i @0@`L@@Ъվժժ`C@c@!@@0@ժժժpa[~|?@` @ @@o@ժծպժxva1pC@~@x`C@s ` @@@oL*U?@T*UpsGcp@0 H\ X0@8|Gp@@ 0@(U*_*U.u?U>xgFA|?`/>@@G(@@A|0 F8 `@*U@ݪժժ`@@@@0 @@@*|~@s|}@ƪՀЪՀp `` @<@@@}*U*ujU*+U`say@s~?@@O(@@@X@@P*U*}+U*U*U`vp~ pp@0 @`2@ժժժxaOC|?@p @@`80@ժժxAsa`gy@(pxp@s8 @@8(UP P*p^ac~ @;@``  h @`g}6; 0 @ U*+}/U>Uzl @`@`|0@@8@@s@0108f<8@@(U@ߪժժ `x`@ @@@*`NL@ԪՊԪՂ8x3@ @@@@}*U*U*W*U.xsay@s@?@n8@@@p@@P*Uj]/U*U*U`|@Pa@`@@@"@ժժժպae|?@0 0@@pO@0`@ժժժppa@o_s@<^x@s 0 @@vP *` .@@<p < `@`l` @ U*.W*U*U*>X?`p>@@@?`? @810x|x64|@(U@ߪժժ00@c @  @@*?xApA@ԪժժՊ ^ @`@@ @@@@u+U*WjW*Uz~say@s?_a?@80@ @@`@@T*UjU.U*U*U`x @ '@@@"@ժժժժa}x?@ `q@`x0@@p@ժժߪpa@{#@Bx@`O`@@P*``[8@``  @@X@`@`U/W~W*U*U*fCO:m9@0~@@@#`c@1p 8 @@@ U@߫ݪժժ`0@n @ @@*@@ծժժժs@``@0@@U+UjUj]+U*Osay@s|?@8 @s0@`@@T*U*W*U*U*U``pC@L@@ @"@ժժժՃ}?H`?@@3P@@@0`@|@~|@ժժծypa@_O?@@?@@@P*8x0@@ `@@8@p@@@w{U*(U*U @{3`@8`@@#@7?p  80 `@@@߮ݪժժՀ``@0?d| @@*Up@ժժժ 8p1@ 0`x@@U+UjUj]*U*{ayAs|?@~~@s @ @@T*U*w*U*U*U``@0N@@`"@ժժժߺՃ~g?L?@,@@9P@@`@ 0ppxp<sxg@ժժժծ{pa1@[CA?~@@@@P* 0 p@`@@ `|@@@@0V*U.G U*U ||"@  @p@  @` >18pxp\7xx@@@ЪծժժՀ `@A`@pG!@@*U@תժժ `@ x0@ U*UjUj]*U*}{ayAs|?@@?&@s? @ @@T*U*wjU*U*U`|@`K@``0f@" " " " """""""""!!! ! ! ! ! !!!!!!!!!   Pò*********************** ** DONATED TO ** APPLE PI USER'S GROUP ** P.O.BOX 17467 ** DENVER-COLORADO 80217 ** *****************************  :6"BLOAD WORLD OF APPLE PI,A$4000"FPAUSE125R(1)7` 16302,0#0,0279,0279,1910,1910,0:1,1278,1278,1901,1901,1(PAUSE<:F10:8:"APPLE PI - EDUCATION DISK 11"KPAUSE1500:P"CATALOG""""