' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩 緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (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).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /JJJJ"LL뷩 ᷩ췩 ɛ LDLSAVBPILOCUNLOCIBPIBPIBPPRBPIBLISCALBPIBUZZOFӜsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIZRb_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLOɍ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׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜv  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  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˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵ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 x(`# dנz# u`6:6:T620! CLOSE AND CHAIN R!:D$"CLOSE":X(0):26571,0:D$;"RUN CHROMY SAVE"`! DELAYS r!Z01000::! Z0100::! CHECK FOR SPACEBAR !16368,0!(SB(16384):SB1281320!2SB1601310!<"x:(222),(218)(219)250:210:U0:VW:Z$"^SHAPE OR COLOR (^S/^C)?":130:150:I$"S"I$"C"1220\ I$"C"K2  FOOL LOOPS TO ASK QUESTION, ASK FOR OTHER CHANGES H1:650:1190 I:560  FOOL LOOPS INTO DRAW PARENTS AFTER CHANGES!CFSCSC1:H2:ISC3:":130 ASK FOR CHANGES,I12:220qW150:210:U0:VW:Z$"^CHANGE "Z$:130:Z$"HIS":I1Z$"HERS"T$"^WHICH TRAIT OF "Z$"?"190:U0:V170:Z$T$:130:150:J(I$):I$"N"1250J1J91190CF1:K1:J5J61240L W18ENTS AGAIN$VH2:ISC:SCSC1:620A[ DISPLAY CHANGE OPTIONSo`Z19:X118:(BP$(Z,1),X1,1)" "WX1jX1:Z$(BP$(Z,1),W):Z9Z$"^CALL"tZ$(Z)" "Z$:U99:V25Z10:130:~U99:V125:Z$"^N ^NO MORE":130:U99:V135:Z$" CHANGES1030$:D$.233,112:SZ1:U0:V160:Z$"^D=^DOMINANT ^S=^SEMI-DOMINANT":130:U60:V170:Z$"^R = ^RECESSIVE":130:233,112:5608SC0ĺ:D$:1100BI:190:H:560:SC1:1020LSC1110,1110,1120,1260,1260,1270 Q FOOL LOOPS INTO DRAW PAR1290:3:UX1:Z$I$:130:C1280:1280:W148:210:H2I21080i GIVE DIRECTIONS FROM TEXT FILE 560:D$"OPEN CHROMY TEXT":D$"READ CHROMY TEXT":233,96:SZ2:V20Z$:Z$"STOP!"1060Z$""U0:130:VV20:1030560:V0:%(N,2K1):BC%(N,6K1)1(WX13)(WX19)<K:J:I31080E190[ PRINT SEX TRAITd220233,112:3:U21:V150:Z$Z$" SEX TRAIT IS ":I$"^X^X":I2I$"^X^Y"Z$Z$I$".":130:X140190I2:V12:1280:X315:0:UX1:Z$I$:1290:130:(B73) DRAW A PARTR233,104:N320,340,360,380,410,270,450,500,520:940cJ5J6960u FILL A PART28448,N:28449,LC(J(J6),M):28161,X20:28166,X23:28206,38:28211,65:28160 DETERMINE BABY BUG)I2WBC%(N,4K1):X1BCM DRAW BUG PART 0RJ7COLC(J(J6),M)D\J3ĴK940,880QfK2920pPSN33:PMPSM:M2(M2):ICI21:B0BC%(N,IC):PBPSB0:B1(B01):B2(B02):B3(B03):N2B6BC%(N2,IC):NMN3MzN3B4(BC%(N3,IC)3)N5B7BC%(N5,IC):B5"^NO, THE ANSWER IS ^"(6815(M2)14(M3))".":130:830:BC%(0,0)BC%(0,0)1:8404Z$"^NO! ^REMEMBER: "RU$(BC%(N,2K1)1,BC%(N,4K1)1):130:830:TT1:670>U0:V180:Z$"^PRESS SPACE BAR TO GO ON.":130:1300:HBC%(N,I2K1)M:SCSC650:I$""670! CHECK ANSWER E M13:("DSR",M,1)I$Ă:670 IF NOT OFFSPRING OR ANSWER CORRECT THEN DRAW BUG PART I3MBC%(N,I2K1)840 RESPOND TO WRONG ANSWER  190:6,90:7,3:32768V*U0:V170:T1MBC%(N,I2K1):Z$MPLETE, YOU MAY CHANGE","THE GENE TRAITS","OF ITS PARENTS."_::(222),(218)(219)256:hjnt"tD"," ^X + ^X = ^X"," ^X + ^Y = ^Y"j "^IF YOUR ANSWER IS","CORRECT, THE OFFSPRING'S","BODY PART WILL BE DRAWN."t "^IF YOUR ANSWER IS WRONG,","THE RULE TO USE WILL","APPEAR AND YOU MUST","ANSWER AGAIN.";~ "^ONCE YOUR BUG IS","CO WILL USE THE","FOLLOWING RULES TO","DETERMINE WHICH TRAITS","WILL DOMINATE:"1` "^PARENT+^PARENT= ^OFFSPRING"," ^D + ^D = ^D"," ^D + ^S = ^D"," ^D + ^R = ^D"," ^S + ^S = ^S"," ^S + ^R = ^S"," ^R + ^R = ^R,"^EACH TIME YOU SELECT","A GENE TRAIT, THE BODY","PART WILL BE DRAWN."L "^AFTER THE PARENT ^CHROMY","^BUGS HAVE BEEN DRAWN,","YOU MUST STATE WHICH OF","THE PARENTS' GENE TRAITS","WILL DOMINATE AND BE","TRANSMITTED TO THE","OFFSPRING."MV "^YOU030:UX10:VY:Z$P$(ST):160:810:X40:1120:820D% ADD TO LISTj*U230:V9510ST:Z$P$(ST):160:/ ERASE UNDERLINE40:1030:XX10:X,Y10X15,Y10:3:9 PICK RANDOM TYPE FROM LIST>BTG(1(1)2,1(1)2):E0C FINALE SCREECL:1030:XX10:X,Y10X15,Y10@X40:Z$"^":1110:Z750_G$P$(CL)İ1130:810:820r WRONG ANSWER1100:EE1:E2800 380:430:590:710:ST03:1030:UX10:VY:Z$B$(ST):160:STCLİ810:740 GIVE THEM ANSWER2 1OD TYPE (^O,^A,^B,^A^B)":160:U0:V10:Z$"FOR THE GENE COMBINATION":160:U0:V20:Z$"UNDERLINED.":160U210:V55:Z$BN$"'S":160:U200:V65:Z$"POSSIBLE":160:U210:V75:Z$"TYPES":160: INPUT THE 4 TYPES FOR THIS BABYCL03:E0"ST CHECK REVERSE INPUT-B$(ST)G$İ1050G ERASE ? AND MOVE ONtUX10:VY:Z$(8):160::X0:Y80:1020 MAKE LIST OF POSSIBLE BABY TYPESST0:Y12:X12:P$(ST)BT$(G(X,Y),0):STST1::710:W0:730hU0:V0:Z$"^ENTER BLOX:VY:160:: q GET ANSWER7vBL1:920:Z2630aB$(ST)G$B$(ST)(G$,2)(G$,2)670t ANSWER WRONG1040:UX:VY:Z$"^NO":160:370:EE1:E1630X70:Z$B$(ST):1120:YX10:1020:1030:XX10:1040:UX:VY:Z$B$(ST):160:680U110:V95:Z$C$(G(1,0))" "C$(G(2,0)):160bU30:V125:Z$"^MOM'S":160:U30:V135:Z$"^GENES":160:U80:V115:Z$C$(G(0,1)):160:U80:V145:Z$C$(G(0,2)):160:g FILL SQUARElST03:E0:1030:Z$"?":UX:VY:160:XX10:P22Z$BT$(ST,0):U0:ST0:1080:620%I PUNNET SQUAREpN90,105170,105170,16590,16590,105:130,105130,165:90,135170,135S LABEL SQUARE.XQW(0):140:U0:V182:Z$"^MOM: ^TYPE "BT$(MT,0)" ^DAD: ^TYPE "BT$(DT,0):160:U80:V85:Z$"^DAD'S ^GENES":160:,C$(2),B$(3),P$(3),I$(20),G(2,2)*8ǫ1800Y`16301,0:1:(222),(218)(219)256:::1:(222),(218)(219)256::ú(4);"BLOAD GEN IO,A$76D0"6ù30422,95:30426,1aù232,0:233,96:0:1:3:16302,0:SZ2qÐ:16302,0ÆBT$(3,1),N$(9),C$(2),B$(3),P$(3),I$(20),G(2,2)8ǫ1800`::(222),(218)(219)256:C:SZ2Ñ:16302,0 ÆBT$(3,1),N$(9) På60000#Uú(4);"NOMONICO"8Zú(4)"MAXFILES1"I_ä9648:16383mdú(4);"BLOAD TIES CHARS,A$6000"nú(4);"BLOAD BLOOD SHAPES,A$6800"xú(4);"BLOAD FILL.O,A$6E00"ú(4);"BLOAD CHROMY SMALL CHARS,A$7000"ú(4);"BLOAD WIPE.O,A$7600" ^YOU ARE NOW IN CHARGE,OF ^A-^B-^O ^LAB. ^IT IS YOUR,JOB TO CORRECTLY IDENTIFY,ALL THE ^CHROMY ^BUG BLOOD,TYPES IN YOUR LAB. ^YOURPATIENTS ARE DEPENDING,ON YOU!X(0)26571,0::(4);"RUN BLOOD" :0uOò INITIALIZATION:Z$"^WHICH":120:U218:V120:Z$"ONE IS":120:U218:V130:Z$"OURS?":120213,105279,105279,145213,145213,105:135,110140,105213,105:185,110190,105233,96:SZ2:290 PAGE 4U0:V0:Z$"^DR. "L$",":120F20:L140:340:2900:L100:340:500z ^ONE REASON BLOOD TYPE,IDENTIFICATION IS,IMPORTANT IS TO HELP,PREVENT ANY BABY BUGS,FROM BEING ACCIDENTALLY,SWITCHED.233,104:5110,110:8110,108:5160,110:740,130:760,1300:110,108:233,112:SZ1:3JU218:V110,192TSL!8OMNI414,128TSL16:BOMNI419,128TSL16@L(BUF1):DS0Ĺ222,DS:218,0:219,0:880\SS254ĺ"SEMAPHORE TABLE FULL.":222,SS:880bx NETWORK CHECK NET(39424):NET0ıBSL(39425)TSL(39426)OMNI35328$(4);"BLOAD OMNIBCI.OBJ":(4);"BLOAD SEM".OMNI14"DISK FULL, PLEASE TELL YOUR TEACHER,":::18:"AND,":900qp:::"ERROR: ";ER,"LINE: ";(218)256(219)z:"PLEASE SHOW YOUR TEACHER: ";{CF1514CF:CFBC%(0,0);"/";CF SEMAPHORE ACCESS 31744,S$,CMD,BUF*DS(BUF):SS260.8233,112:3:I$"^X^X":I2I$"^X^Y"WBXP40190I2100I3:YP12:Z$I$:140gLY1148:250}VI:240:510:810`Z01000::jZ0100::t SEMAPHORE ACCESS ~31744,S$,CMD,BUFDS(BUF):SS(BUF1):DS0Ĺ222,DS:11900MN3B4(BC%(N3,IC)3)?N5B7BC%(N5,IC):B5(B73)y233,104:N330,340,350,360,380,290,420,460,480:1050J5J6106028448,N:28449,LC(J(J6),M):28161,X20:28166,X23:28206,38:28211,65:28160K:J:I31110$240.76",J,1)):K1(K1):K2(J5J6)1050L0:1:3:233,112:MBC%(N,I2K1)fJ7COLC(J(J6),M){J3ĴK1050,990K21030PSN33:PMPSM:M2(M2):ICI21:B0BC%(N,IC):PBPSB0:B1(B01):B2(B02):B3(B03):N2B6BC%(N2,IC):NMN3K1):BC%(N,6K1)1(WX13)(WX19)6K:J:I31080?190U PRINT SEX TRAIT^220233,112:3:U21:V150:Z$Z$" SEX TRAIT IS ":I$) DRAW A PARTL233,104:N320,340,360,380,410,270,450,500,520:940]J5J6960o FILL A PART28448,N:28449,LC(J(J6),M):28161,X20:28166,X23:28206,38:28211,65:28160 DETERMINE BABY BUG#I2WBC%(N,4K1):X1BC%(N,2ɲ DRAW BUG PART *RJ7COLC(J(J6),M)>\J3ĴK940,880KfK2920pPSN33:PMPSM:M2(M2):ICI21:B0BC%(N,IC):PBPSB0:B1(B01):B2(B02):B3(B03):N2B6BC%(N2,IC):NMN3MzN3B4(BC%(N3,IC)3)N5B7BC%(N5,IC):B5(B73 THE ANSWER IS ^"(6815(M2)14(M3))".":130:830:BC%(0,0)BC%(0,0)1:8404Z$"^NO! ^REMEMBER: "RU$(BC%(N,2K1)1,BC%(N,4K1)1):130:830:TT1:670>U0:V180:Z$"^PRESS SPACE BAR TO GO ON.":130:1300:HBC%(N,I2K1)M:SCSC6ıM8OMNI414,128TSL162BOMNI419,128TSL168L170| IF NOT OFFSPRING OR ANSWER CORRECT THEN DRAW BUG PART I3MBC%(N,I2K1)840 RESPOND TO WRONG ANSWER  190:6,90:7,3:32768P*U0:V170:T1MBC%(N,I2K1):Z$"^NO,VE ANSWERJ%`YX10:1020:U0:VX:Z$"^THE ANSWER IS "Z$".":160:370:p%jUX:VY:Z$" ^YES!":160:370:%o ERROR STUFF %t:(222),(218)(219)256:ST3U0:V40:Z$"^ENTER THE GENE COMBINATION":160:U0:V50:Z$"AT THE ? IN THE BOX":160:U0:V60:Z$"AND PRESS ^R^E^T^U^R^N.":160$B$LZ$" ^NO!":UX:VY:160:370:$VYX10:1020:Z$Z$"BLOOD TYPE? ":U0:VX:160:XU:YV:BL1:920: %[ GI40:Z$G$" IS CORRECT, BUT THE":160:U0:V50:Z$"DOMINANT GENE IS USUALLY":160:U0:V60:Z$"LISTED FIRST, SO "B$(ST)" IS A":160:U0:V70:Z$"BETTER ANSWER. ^PRESS ^R^E^T^U^R^N.":160#$1040:UX:VY:Z$B$(ST):160:16368,0:I$:#.Y80:190$808,X:30209,Y:30210,0:30211,0:30212,1:30213,23:30214:3:QW(0):g" PUNNETS SQUARE COORD CALC."X9340((ST2)(ST2)):Y11530(ST1):"  ERASE INPUT FIELD"Z$(8)(8):UX:VY:160:" HANDLE REVERSE ANSWER#Y70:190:U0:V:/!D(I$):Bĭ(D65(D90D97)D122)940BELL$(7):UL$"_____________________________"Iī10000 "OMNINET TRANSPORTER CARD.":KúD$;"BLOAD OMNIBCI.OBJ,A$8A00":BCI35328|ò "Poke in the slot of the transporter card"ùBCI14,192TSLùBCI414,128TSL16ùBCI419,128TSL16øLSB(A)A(A256)256øMSB(A)(A256) ÆS(300),SnÉ0ò "A routine to locate transporter card"TTSL0: "Transporter card slot"_ÁI27LOC(409612)(256I): "$C200,$C300,etcí(LOC)36TSLI: "Found a transporter card"ÂIí(TSL)ė:"THIS UTILITY WILL NOT WORK WITHOUT AN":: 1100 1200:1000:110104h" End routine :rw|TEACHERČ3086:12:14:"PLEASE WAIT.":(4);"RUN MENU""BYE":Pò" Initialization area "ZHM20479:HMdD$(4)iTEACHER0:(222)1TEACHER1:222,0:"Got here from Hello414,128TSL16( OMNI419,128TSL16.*I,4,5,5,3,6,7,1,6,1,4,2*PJ19:TR(J):GZ 1,3,8,2,4,5,7,0,9 Pd590f NETWORK CHECK NET(39424):NET0ıBSL(39425)TSL(39426)OMNI35328(4);"BLOAD OMNIBCI.OBJ":(4);"BLOAD SEM" OMNI14,192TSLOMNI00"/(4);"BLOAD CHROMY SMALL CHARS,A$7000"O (4);"BLOAD WIPE.O,A$7600"o(4);"BLOAD GEN IO,A$76D0"30422,95:30426,1(BC%(9,6),LC(5,3):D$(4)2232,0:233,96:0:1:3:16302,0:SZ2<J15:K13:LC(J,K):K:JF 6,2,7,3SS254ĺ"SEMAPHORE TABLE FULL.":222,SS:11906X:(222),(218)(219)256:n:(4)"NOMONICO"x860(768)88540(4);"CLOSE"(4);"MAXFILES 1"16383(4);"BLOAD BUG PARTS,A$6800"(4);"BLOAD FILL.O,A$6E`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*Uf&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hizݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥ~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, c # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:ƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~u q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ) 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $ȶŸàȶƲؠȶƲؠԍѠȶŶō٠ؠȶƲȶƲҠ΍ĠٍѠȶȶٍѠȶŸ٠ѠȶŸȶƲÍàȶƲÍРѠȶōРѠȶōȶƸȶŵ٠ŠȶŶؠȶŵÍàЍЍÍà͍͍ȶŶؠЍ؍ؠȶƲȶŶŠàȶƲؠȶƲؠ͍ŠȶŷӍȶŷȶƲÍȶƲčؠԍ؍ؠȶƲ}.}8}/ 9}ʈ}}}0 |` } ȊȢ} }LB} `ȩAȩȩȑ } `)}`)}} |`  `Hh`hh`|HH ߠ}ȱȱ} )}L| g  g RPQ }` , |L|  |L| |L| |L|L} 2}ɀ  }L|` 2}` U}1}0}}}L|}i}: 0}ʈ |` Ub@Ll  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4`J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--& W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$РˠҠԍŠԍǽǍӍԠȠ̠РˍѠčĠōŠ؍ЍРàčؠӍĠҠ̠ҠˍРŠˍѠЍҠǠҠРàȍŠ΍РԠōΠ٠ҠԠɠƠԠҠϠҍàҍЩٍҍҠԍРЍ ҍԠҍԠĠڤ٠ŠԠϠĠǠҮԩٍȠŠҮΠȠЍٍԩٍЍٍԩٍЫàȠΠΠҠЍǠDzȍЍٱؠō؍ŠЍРàРנ٠ҍٲҍҠōҍӍ ɭӬ ԍԠŠ٠Πˠ ŮҠ͍ҠҍàȲŠЍӍččЍҍàȲ٠ȲвРٍŠвЍҍѠРӍѱӍ ڍŠӍȱȲРؠ٠ȱР؍ŠЍٍŠЍ ǍŠȍȱР٠ȱРٍŠЍҍàȱŠЍӍ ǍŠӍȱȲРàȱѠѱ٠ȱбРٍŠбРԠРȠӍȱȲ٠٠Ѝ̠؍Šٍ̍Š̍РҍѰٍŠѱàȲѠѲѱ؍ŠѰؠȱŠЍѲàҍŠЍӍ ˍ Ѝ © Ǎ é ڍ ȱՠȲՠȱҠՠȱҠՠðҠō ǍˠԠҠҠӍҍˍȶƲ ˍȶƲàˍȶƲĠˍΠƴԠƴΠƵƶàƶÍÍؠȶƲÍ؍٠ȶƲҠԍؠȶƲč؍ؠ٠ȶƲҠ΍ȶƲčȶƲÍȶƲРȶŸϠˍҠˍȶƲˍȶƲˍԠˍԠˍРˍ͠ˍˍȶƲˍȶƲÍŠȶùȶƲРѠȶōȶùؠȶƲȶƲ؍ȶƲì؍؍؍ؠȶƲؠѠȶŷŠȶŸȶŠȶƲȶƲÍРȶŸȶŷȶƲÍѠȶŶōȶƲҠȶƲȶƲ؍ҠƶTT TT`^U_Uij^U_Ukl8`iiLUȱȱȱ`^U_Uklmn)^U_UeeLnU8`ee` T`&&eeee`T TffTTT`8 T ST8` T A731ee T80ee T`&&eeee`TSLjSAS TTTTL ERROR IN SORT CALL.6S TVARIABLEHS TSORT ARRAY\S TELEMENT COUNTTTT̢ U̢ U آ USS `U jj&&8  ˠҠŠ̠Ġ썪ҠƠҠ̍ӠΠΠ荪Š 䍪 ź Ǡð ˠҍ 󺍪 ҽ 򍪍 婍 䍪 썪 򍪍 묍 򮍪 ӤԢ ԰ Ӱ ԰˨Ԡƍ Ӥ 묍 򮍪 卪 卪 卪 卪  ] ŮӍ 卪 卪 퍪 庍 ӤĬ ҽ˨Ʃ ҽ˨ƫ ĽŬٍÍàҍ؍ٍҩٍàҫٍΠҍҠ׍ӍԠ̠٠ƠˠŠǍٍӍčŠҍÍ ύٍ̍ҩٍÍàҍ؍ٍҩٍàҫٍΠҍҠ׍ӍԠ̠٠ƠˠŠǍٍӍčύٍ̍ҩ Ь ӽРǍÍàōÍàЍЍà؍àȍؠӍ ק ύ ٬خԠРԠύ؍ŠұٍұҠ΍ҠԍРԍÍàؠРڠύ٠ȠڠɍҠ΍ҠԍРԍÍà٠ȠڠɍؠРڠύ؍ŠҲٍҲҠ΍ҠԍӍ Ѝ ǮǠР̍ؠР̠ύ٠Ƞ̠ɍҠ΍ҠԍŠ彲РѠҍӍҠРԍ٠ȠڠɍؠРڠРϠҠŠƠЍŠҍÍàōЍҠōРЍ Ү ҩ ЮҠÍҍàǍЍҠǍРyvivv  yvivv  y` mvmvvv`*eȱe騩 `h`v ߥN  ȥȥhh`vvmvvvvivvvv mvv H vh `H ߠȱȱ杩 ƝL$y O axLLxO^@`v )v`O smvv wLx8O xLxvvv  yv`vvv  vWLvL,xHHNvvLvmvv v xH v x h) NLw LwUv v Lv`8 [NNOAv -@ axLvN LvN mvv8vvvvv wL  ҩٍٍ 䍠ҩٍٍؠҍ͠ؠȍѠɍŬ؍ҩٍ؍ٍР͍ɠҠɍؠӍ 嬍 РѠؠ嬠ҠˠؠӍ ˮ ί àҠԍ٠䍠έ箠箍٠РŬ؍ÍàŬ؍РŠōŬ؍؍ٍŠЍŠ٠έ㮠ŬٍٍŬٍٍŬٍŬ؍ÍàŬ؍РŠōŬ؍؍ٍŠЍŠҠˠؠӍ ͠Ҡ͍Ġ䍠РѠ؍ؠŠϠ䬠٠έ䬠堰ŬٍٍŬٍٍŬٍ荠ȍРōϠؠέ箠箍٠Рά٠àԍѠؠҠٍРРؠӍ ŮˠؠōҠÍӍ ͠Ҡ͍Ġ䍠РӍԍРؠōҠÍ٠򿍠ҩٍŠؠ٠ҩٍР̠쿍Ѡ٠Рˠ俍ŠؠҍРōŠˍҠ͍Р؍ˠРōŠҍҠ͍Р؍ҠҠ٠򮍠ҩٍؠРԍ Ůˠ  䍠ؠȍčؠРōŠˍؠ΍ŠҍҠˍР؍ˠРōŠˍؠ΍ŠҍҠˍР؍ˠؠ΍Š䍠Ҡ͍ҠԍؠčҠ͠Ҡ͍Ҡҍ͍ҍͫҫ 謍 䬍 ȠЍٍԩٍЍٍԩٍЫ٠Ƞ͠٠ѠčٍЩٍĠƠŬٍР͍ĠҠ͍̱͠čɠ Ҡ 󮍠Ҡ͠Ӥ婍Ҡԍ٠Ԡ򮍠ԩٍȠРōԠҠ¸ ͠Ķ͠ŠҍԠų͠Ҭ٬ԠŶ à͍Ҡŷà̍ŠŠŠ Ġ䠦čԠҠ򍪍дŠŠдƠƍ͠vvvv v v  Hv v v8J h vv e&&' 1&&&Lv1&&vƬv`8  i ` "Y"(I$,1,2)"N"İ960:1210;(I$,1,2)"N"İ1590:700X::NETĺ(4);"PR#";BSLg"BYE":: PROGRAM DESCRIPTIONS 1590Z$"^CHROMY ^BUG ALLOWS YOU":XP10:YP10:1460:Z$"TO DETERMINE THE GENE":XP10:YP30:1460H Z$"CHARACTERIEAD":8~I$"2"YP100:950::(4)"RUN BLOOD READ":G960:1130[ QUIT ROUTINE e1590Z$"^ARE YOU SURE":XP12:YP50:1460Z$"YOU WANT TO STOP?"XP12:YP70:1460Z$"^TYPE ^Y OR ^N":XP12:YP145:1460:750(I$,1,2)STUDENT FILE":XP12:YP10:1460:Z$"DO YOU WISH TO READ?":XP12:YP30:1460wVZ$"1) ^CHROMY ^BUG":XP30:YP70:1460`Z$"2) ^BLOOD ^TYPING":XP30:YP100:1460jZ$"^TYPE 1 OR 2":XP12:YP145:1460:750tI$"1"YP70:950::(4)"RUN CHROMY R:STUDENT ON, SO NO TEACHERMS$"GENLOGON":CMD17:1360:DONE, CLEAR LOGONz$X01090:IF NO STUDENTS, THEN CONTINUE.1590:1540:Z$"^STUDENT ON.":XP12:YP50:1460:Z$"^TRY AGAIN LATER.":XP12:YP70:146081560:700B1590KLZ$"^WHICH NET01090:DON'T LOGON IF NOT ON NETWORK<1410:LOGONzS$"GENTEACH":CMD1:1360:SS0XSS:860:IF TEACHER ONS$"GENST":CMD2:1360:X(6):CHECKFOR STUDENTSS$"GENST":CMD3:1360:RESTORE STUDENTX0S$"GENTEACH":CMD17:1360CH2YP75:950::(4)"RUN BLOOD INSTRUCTIONS":DCH31260SCH41170a960:7401590:1540:XP80:YP80:Z$"^PLEASE WAIT.":1460: ERASE BAD RESPONSES Y1140:Y2180:X14:X2275:1610: TEACHER READ-PROGRAM ACCESS+DONE WITH LOGON PROCESS, SO UNLOCK SEMAPHOREVfX0900:TEACHER NOT ON, SO CONTINUEp1590:1540:Z$"^TEACHER ON.":XP12:YP50:1460:Z$"^TRY AGAIN LATER.":XP12:YP70:1460z1560:700CH1YP55:950::(4)"RUN CHROMY BUG INSTRUCTIONS":5ӍԠ箍ٍ؍ӍȠؠŠӠč ԠҠҫӍ 䩍٠٠бؠв؍ŠвٍŠбؠȠ덠àҠҮҠˍ٠ҩٍРōŠˍ٠ 򬍠ҩ٠ˠ䍠Ӎ 宍ؠ 宍ٍؠ΍ŠӍѠЍĠ䬠àҠҍӍĠҩ٠䠳ōĠƍŬ؍؍ٍؠ΍Šč 宍٠ˬҠーРؠРҩ٠ ĠƍРŬ؍ŠӍٍ؍ؠ΍ŠЍѠčӠ٠Ƹ 嬍ӠĠҩٍٍҠԍ䮍Ҡɠ宍٠ҩ٠ҿѠĠﬠ讍䬍Ӡ ĠàҠ ҩ 򮍪 ͠٠ŠӠčҩٍٍҩٍٍҩٍٍҩٍٍv Z 0`P0`00`K0`h losed":9000:#LN690Ĭ%#560\#0M0:(47445)213(47455)170(47466)150M1$D7:" THERE HAS BEEN AN UNEXPECTED ERROR."::" PLEASE WRITE DOWN THE FOLLOWING"::" NUMBERS AND CONTACT"::" "("TIES INSTRUCTIONALMECC USER SERVICES",118he disk drive.":9000::60400/"EN862000"NET1Ģ7:" Information cannot be stored"::" on this volume."::" Please contact your teacher.":9000::#7:" Make sure the diskette"::" is in the disk drive and that"::" the drive door is cĦ !~:!EN4NET60310!EN4Ģ7:" Remove the write protect tab"::" from the Elementary Genetics"::" diskette.":9000::520"(EN6Ģ7:" This is not the "::" Elementary Genetics diskette."::" Insert the correct diskette"::" into ta 39424,NET 39425,BSL. 39426,TSL4 Q (#" Text page space bar "~ 2#23:5:"Press the SPACE BAR to go on."; <#16368,0 F#SB(16384):SB1289030 P#SB1609020 Z# `" Errors jEN(222):LN(218)(219)256!tEN255e was no transporter card found in the Apple":;fBSLTSLXp(4);"BLOAD SEM,A$7C00"}z(4);"BLOAD OMNIBCI.OBJ,A";OMNI" Modify omni for various slots OMNI14,192TSLOMNI414,128TSL16OMNI419,128TSL16 " Store boot dat* CV254NET0:2220:"We are on floppyK" we are on corvus network [ NET1:TSL0}*" find the transporter card 4I17>LOC(124096)(I256):"$C100,$C200,ect.H(LOC)36TSLI:"we found a transporter cardRI/\(TSL)ĺ"Thility"(NET)İ960:740%950N&222,1:(4);"RUN SEMAPHORE UTILITY"l" Initialization Module BUF32768:"Sem Buffer OMNI35328 INITIALIZE SEMAPHORES CV(47094):"Volume number"BSL(47081)16:"Logical slot numberAREA rT30208,Y1:30209,Y2:30210,X1256:30211,X1256(X1256):30212,X2256:30213,X2256(X2256):30214:^ DELAY hD12000:: TURN ON HIRES-2 SCREEN 16304,0:16297,0:16299,0:16302,0230,64" Goto Sem Ut BORDER MAKER S3:0,0279,0279,1910,1910,0:3,2276,2276,1893,1893,2:l WAIT TO CONTINUE "Z$"^PRESS SPACE BAR TO GO ON.":XP6:YP165:1460'90206 QUICK-CLEAR @X(0)::Y10:Y2191:X10:X2279:1610:1540:J CLEAR HIRES CHARACTER PLOT. '30427,SZC1520:30419,Z$:1530:l INPUT STRING USING PLOT ROUTINE. }X(0):I$""1520:30416,I$:1530:30423,XP256(XP256):30424,XP256:30425,YP:XP(30423)256(30424):YP(30425):S:1650 x LOGON O960:Z$"^WAITING TO LOG ON.":XP12:YP155:1460zCT0:S$"GENLOGON":CMD1:1360:SS0ıSSCTCT1:(CT4)1360:(CT4)1435:CMD17:1360:1430960:Z$"^CAN'T LOG ON.":XP12:YP145:1460:1560::11901460:Z$"IN A SIMULATED":XP10:YP70:1460Z<Z$"HOSPITAL LABORATORY.":XP10:YP90:1460iF1560:700P SEMAPHORE ACCESS Z31744,S$,CMD,BUFdDS(BUF):SS(BUF1):DS0Ĺ222,DS:218,0:219,0:1650nSS254ĺ"SEMAPHORE TABLE FULL.":222,SSTICS THAT":XP10:YP50:1460:Z$"WILL BE TRANSMITTED":XP10:YP70:1460{Z$"TO A BABY ^CHROMY ^BUG.":XP10:YP90:14601560(Z$"^BLOOD ^TYPING":XP10:YP10:1460:Z$"ALLOWS YOU TO":XP10:YP30:1460*2Z$"IDENTIFY BLOOD TYPES":XP10:YP50:#o W-oʊ#o :-o,o+oLnLn.x$o%o+o!oi!o!o8)o*o&&oA'o oLXn0LXnIDm&o&om'o'o&oʎ#o#o#o'o`,o-o$oʎ"o"o"o%oڠ"o#o 01&ۭ"o8,o%!,o+o+o"oʝ,o+o Ы"o,oLn,o)oM*o)o ,o  S$"GENST":CMD2:1360:INC STUDENTU>S$"GENTEACH":CMD1:1360:XSS:CHECK TEACHERHX0S$"GENTEACH":CMD17:1360:UNLOCK TEACHER IF WAS UNLOCKED BEFORERX0S$"GENST":CMD3:1360:DEC STUDENT IF TEACHER IS ON,\S$"GENLOGON":CMD17:1360:1460:XP210:YP165:NC2:1490:2I$"FILE"980FI$"SEMS"1800VCH((I$))o CH1CH4İ960:740 STUDENT ACCESS  CH2NET0900:DON'T LOGON IF NOT ON NETWORK OR CH=DESCRIPTIONS*1410:GET LOGON BEFORE DOING LOGON PROCESS#4HROMY ^BUG":XP30:YP55:1460:Z$"2) ^BLOOD ^TYPING":XP30:YP75:1460 Z$"3) ^DESCRIPTIONS":XP30:YP95:1460:Z$"4) ^QUIT":XP30:YP115:1460 Z$"^TYPE 1, 2, 3, OR 4":XP12:YP145:1460:750:760Z$"AND PRESS ^R^E^T^U^R^N.":XP12:YP165:00"# (4)"BLOAD VARSAVE,A$67C3"D 232,0:233,96:0:1:3:SZ2N 2000o (4);"UNLOCK GENETICS LOGO" 0230,64:1600:1700 1791,161:233,96:SZ2 Z$"^WHICH WOULD YOU":XP12:YP10:1460:Z$"LIKE TO DO?":XP12:YP30:1460G Z$"1) ^CNICO" 9648:16383< (4);"BLOAD BLOOD SHAPES,A$6800"\ (4);"BLOAD FILL.O,A$6E00" (4);"BLOAD CHROMY SMALL CHARS,A$7000" (4);"BLOAD WIPE.O,A$7600" (4);"BLOAD GEN IO,A$76D0" 30422,95:30426,1 (4);"BLOAD TIES CHARS,A$60 * _* PACKAGE UPDATED: *8 `* 48K & *S a* CORVUS NETWORK *n b* APRIL 16, 1984 * h********************* r |60000  INITIALIZATION :12:14:"PLEASE WAIT" :X(0)::(4)"MAXFILES1" (4);"NOMOR THE ** * ELEMENTARY *E * GENETICS *` * PACKAGE. *{ * DESIGNED BY: * "* EARL KEYSER * ,* ANALYST, TIES * @* PROGRAMMED BY: * J* JEROME A. FARM * T* TIES, 8/81 .d*********************7x* COPYRIGHT 1981 *R* BY TIES *m* PROGRAM NAME: ** MENU ** LANGUAGE: ** APPLESOFT BASIC ** DESCRIPTION: ** MENU PROGRAM * * FO               ///II7?>65.-?7>65--,,$<'/%%<<<&&&&----->67665=?????%%%,$'<'/-&&.55555.6566>67>6777?>.6666>6>6777>>>7?>'$,$%,,$%,$%%,$%%%5666&$$,...$$666v),$$<<>66..?765-,$?76--$:?>6--$>>>>>>>>>??>77?67>6/%-,,,$%,,4$ <$-&%?$,,$$665567-67??--? u6& -6?$666$,e$? u66$$66$, u -=?-?/ 666$$=/6ve $666 $66 $$& 6ve $66?--------566?????$$?676...-,%,$<<'?----->>6777<<$''',,,,,....$$$%%-,5-..666I ?>7>6665.5-%%%$,<$$'?/.//>,////I9.-?$--6)u?v- ?d)u6?d-6/? I--??q - )u6'4$46v-= u$66$>4666$ u6 -?6- I166&$ -6" ->?7--'du66& -6&$6M?666$ u6&6&I66?666$-  6666&$ & 6&66$,vd 4v6&$ 4--.-=16M16$L6&$166&,?--7&$$4>?-- 666FNWer '0=FP[gv;U{ 66$eU_d eHd ed ed ed ede#dededeUddededededededededeUidededededeJd ed!ed"ed#e| ]Ӡ]Kc (M6*2a(ӠΠ)1<ca(ŠɠĠ͠)F] P]ŠŠĠUZdededededeHdedededeh66???*---/---II9??76666.--=r)--56666>??/"!!!1111!-----------%$$???v--*-=766&$$$d - -%4666??--e$$?$666f -66#$$I266II2666?$$$ 666-- $$$I 66666?/--= ------b--u??--??66.---='$$66666----????66.--u???d -?6e--??$----6& --??v-- ??d -d --66?@--($I  I  5 II666$[t7Sns'=Qbx (CXl 5EUl#-:FQrIq6????----66$$$ 66666--- ???---      M,18)"."'$N:" ERROR: "ER" LINE: "EL A N AA)::|60000(230,64I(4);"UNLOCK GENETICS LOGO"h:(4);"BRUN GENETICS LOGO"rX1700b(4)"BLOAD BLOOD SHAPES,A$6800"l232,0:233,104:0:1:3:SZ21630:D7ANIMATE THE BUG S3:16:X202603:0:DXS,16 0M0:(47445)213(47455)170(47466)150M1 D7:" THERE HAS BEEN AN UNEXPECTED ERROR."::" PLEASE WRITE DOWN THE FOLLOWING"::" NUMBERS AND CONTACT"::" "("TIES INSTRUCTIONALMECC USER SERVICES",118M,18)"." N:" ERROR: "EN" LINE: "L::60400 EN862000 NET1Ģ7:" Information cannot be stored"::" on this volume."::" Please contact your teacher.":9000:: 7:" Make sure the diskette"::" is in the disk drive and that"::" the drive door is closed":1630: NET60310w EN4Ģ7:" Remove the write protect tab"::" from the Elementary Genetics"::" diskette.":9000::520 (EN6Ģ7:" This is not the "::" Elementary Genetics diskette."::" Insert the correct diskette"::" into the disk drive.":900022:3:DX,122::0:DXS,1222 (4)"RUN MENU"? ^ DELAY Q hD12000::o  TURN ON HIRES-2 SCREEN 16304,0:16297,0:16299,0:16302,0 230,64  `" Errors jEN(222):LN(218)(219)256 tEN255Ħ ~: EN4 (21)::|60000(230,64I(4);"UNLOCK GENETICS LOGO"h:(4);"BRUN GENETICS LOGO"rX1700b(4)"BLOAD BLOOD SHAPES,A$6800"l232,0:233,104:0:1:3:SZ21630:D7ANIMATE THE BUG S3:16:X202603:0:DXS,1    z"#?  ϠԠՠŠ ̮ӠĮӠ ŮӠ  ΠϮӠͮӠ! ٠Ԡ"Ԡ ̮Ϡ ĮϠ ŮϠ ΠϠ Գ͠ ɮʠ ӠϠ à2!ĠӠ"ǠӠ"ĠԠŠӠӠ ٠̠Ӡ ĠŠ٠Ġ٠Ԡ ĠĠ٠ǠŠԠĠԠŠԠŠ٠Ӡ٠ǠŠ٠ǠӠ٠Ǡ٠ŠĠӠĠg9 g RÅgP ȵi`i`@,-;1@[\,j` : R  ŋ˩ȍ` Z Z΋ Z  Z Zڋ Z,hh  %` ˑ  ,` ȱHh`89`89`<@5@<H,,ƭ ii7778  ,7 *Lm 2 J,7!0 *Lu,5L 2 B0 2LL:;Ȯh BE LETTERS","IN PARENTHESES NEXT","TO EACH GENE TRAIT."," ","^FOR EXAMPLE:","^HEAD ^SHAPE? (^D) (^S) (^R)"8 "^EACH LETTER WILL TELL YOU","WHETHER THE GENE TRAIT","IS:"GB "^YOU WILL TYPE ^D, ^S, OR ^R","AND PRESS ^R^E^T^U^R^N","TO SELECT A TRAIT."3,8,2,4,5,7,0,9 290 "^IN ^CHROMY ^BUG, YOU","WILL DETERMINE","14 GENE TRAITS FOR THE","CHROMOSOMES OF","A FEMALE AND A MALE","^CHROMY ^BUG."$ "^EACH GENE ON THE","CHROMOSOMES","DETERMINES A","^CHROMY ^BUG BODY PART."j."^THERE WILL $(J,K)RU$(J,K)"":: ^D + ^D = ^D, ^D + ^S = ^D, ^D + ^R = ^D, ^S + ^D = ^D, ^S + ^S = ^S, ^S + ^R = ^S, ^R + ^D = ^D, ^R + ^S = ^S, ^R + ^R = ^RJ15:K13:LC(J,K):K:J 6,2,7,3,4,5,5,3,6,7,1,6,1,4,2J19:TR(J): 1,EAD ^COLOR,^NOSE ^SHAPE,^NOSE ^COLOR, ^EYE ^TYPE, ^EYE ^COLOR,^BODY ^SHAPE,^BODY ^COLOR,^WING ^TYPE,XXX ^TAIL ^SHAPE,^TAIL ^COLOR,^LEG ^SHAPE,XXX,^FOOT ^SHAPE,XXX,^MATING ^CALL (^D)^CHIRP," (^S)^SING (^R)^BUZZ" J02:K02:RU$(J,K):RUPE.O,A$7600",(4);"BLOAD GEN IO,A$76D0"C30422,95:30426,1sBC%(9,6),BP$(9,2),LC(5,3),RU$(2,2):D$(4)232,0:233,96:0:1:3:16302,0:SZ2J19:BP$(J,1),BP$(J,2):BP$(J,1)BP$(J,1)"":BP$(J,2)BP$(J,2)"":h ^HEAD ^SHAPE,^H*(4);"NOMONICO"+4(4);"MAXFILES 1"<>9648:16383GH1160YR::16302,0}\(4);"BLOAD TIES CHARS,A$6000"f(4);"BLOAD BUG PARTS,A$6800"p(4);"BLOAD FILL.O,A$6E00"z(4);"BLOAD CHROMY SMALL CHARS,A$7000" (4);"BLOAD WI"^MALE":XP215:YP165:160+233,96:SZ24240VYP206020:XPLM:Z$:160:_240YP208020:XPLM:Z$:160:240YP208020:XPLM:Z$:160:240(0)::26571,0:(4)"RUN CHROMY BUG"  INITIALIZATION YP208020:XPLM:Z$:160:'240IYP016020:XPLM:Z$:160:233,112:SZ1:Z$"OMINANT":XP200:YP25:160:Z$"EMI-":XP200:YP85:160:Z$"^DOMINANT":XP202:YP95:160:Z$"ECESSIVE":XP200:YP125:160Z$"^FEMALE":XP215:YP145:160:Z$P0:Z$:160:90XP56:YP80:Z$"(^D) - ^DOMINANT":160j:XP56:YP100:Z$"(^S) - ^SEMI-DOMINANT":160DXP56:YP120:Z$"(^R) - ^RECESSIVE ":160N240XYP2012020:XPLM:Z$:160:b240lYP2014020:XPLM:Z$:160:v240M:YP100:Z$"INSTRUCTIONS? ":160:180:(I$)0410E (I$)78770X (I$)89410a 250j LM0 YP2012020:XPLM:Z$:160: 240 YP208020:XPLM:Z$:160: 240 YP2012020:XPLM:Z$:160: 240&YP206020:X$,X,1)" "L$(I$,X,1)L$:T rF$"":X1(I$):(I$,X,1)" "F$F$(I$,X,1):p |X(0):F$""L$""310 F$L$F$I$310 F$"^"F$:L$"^"L$ 250 XPLM:YP40:Z$"^HELLO, "F$".":160 XPLM:YP80:Z$"^DO YOU NEED":1603 XPLLCOME TO ^CHROMY ^BUG!":160 JNC2:XPLM:YP60:Z$"^WHAT ARE YOUR FIRST":160:XPLM:YP80:Z$"AND LAST NAMES?":160:XPLM:YP100:180:(I$)4310 T(I$,1)" "I$(I$,(I$)1):340 ^(I$,1)" "I$(I$,(I$)1):350 hL$"":X(I$)11:(ISB160242/ :X10:Y10:X2279:Y2191:2705 G  CLEAR AREA 30208,Y1:30209,Y2:30210,X1256:30211,X1256(X1256):30212,X2256:30213,X2256(X2256):30214: " BEGINNING OF PROGRAM ,LM2:SZ2 6250 @XPLM:YP20:Z$"^WE210:< 30423,XP256(XP256):30424,XP256:30425,YP:g XP(30423)256(30424):YP(30425):~ CLEAR SCREEN. PAGE PAUSE AND ERASE XPLM:YP177:Z$"^PRESS SPACE BAR TO GO ON.":160 16368,0 SB(16384):SB128244 ` d810$nCOPYRIGHT 1981, TIESAxCHROMY BUG INSTRUCTIONSW AUGUST 31, 1981uSEE CHROMY BUG WITH REMS HIRES CHARACTER PLOT. 30427,SZ:200:30419,Z$:210: INPUT STRING USING PLOT ROUTINE. I$"" 200:30416,I$:       B0U:B1V:U200:V180:Z$"^W^I^N^G^S":130:UB0:VB1>770X11:X3LB9LB13050:3:N33X1X310(J3)15(J6)(X11)5(J8)(X13),V210(J3)5(J3)(X11)5(J8)(X11):X1X11: GET ANSWER TO QUESTION 3:233,112:X3(0):1LC(J(J6),M):28449,X1(N8X14):MM1:28206,V2:28211,V10:28160::770pK2(J2J4J5J7)760233,112:X11:X3LB9LB13050:87J3X1X35(J1)5(J5)(X12)3(J5)10(J5)(X12)10(J7),V8(J2)5(J5):X1X11:5J5ESTION Z190:U0:V170:M1:Z$BP$(J,K):LB10((Z$)):J9Z$Z$"(^D) (^S) (^R) ?"130:3:J9K1Z$BP$(9,2)"? ":U0:V180:130:770233,104:K1J5J6720X3LB9LB13050:3:28X3,V2N28161,X32:28166,X315:28448,1:X1UGH BUG PARTSy KLOOP,z K=1 DO SHAPE@{ K=2 DO COLOR RJ19:K12m SET N ACCORDING TO JN(("138294576",J,1)):K1(K1):X3(BP$(J,K)):X388X332950T0:0:1:3:233,112:H2I3MBC%(N,I2K1):850 BUILD & ASK QU ILOOP] I=1 MOTHER(^ I=2 FATHER=_ I=3 OFFSPRING ObH12:I13qlI2(I2):I3(I3):HI31080q SETUPS ACCORDING TO WHICH BUG vX46186I294I3:Y20:SZ1:233,112:0:1:U20200I285I3:V1:220:130w JLOOP xSTEP THRO0::D$;"BLOADSOUND.O,A$8000":(4)"BLOADCHROMY SMALL CHARS,A$7000":(4)"BLOADTIES CHARS,A$6000"X(4)"BLOAD WIPE.O,A$7600":(4)"BLOAD GEN IO,A$76D0":30422,27:30426,1Y HLOOPZ H=1 INPUT PARENTS[ H=2 DRAW PARENTS, INPUT OFFSPRING\,Y53N32B1:24MM2X114B1,Y5325B1:24MM2X214B1,Y5325B1:q& WAIT TO GO ON, CLEAR SCREEN 0U0:V1737(SZ1):Z$"^PRESS SPACE BAR TO GO ON.":130:1300::W0:210:: * BEGIN MAIN PROGRAM * D1400aNCF0::16302,32B9B8:PBX354B23B33(B62)4BA8B5,Y1055B23B1:Z EYES, N=8, J=3 B8(BC%(N7,IC)1):CO:PBX8,Y162B13B8:16(B1):PBX152(B1),Y162B13B8: WINGS, N=6, J=5 B3ı24MX15B1,Y53:24MX115B1B21(B62)5(B63)3BA2B5,Y264B24(B61)PBX314B23(B63)5BA6B5,Y424B24(B61):0B8B9:PBX352B23(B62)6B5,Y924B22B14(B63)48B9B8:PBX352B24B34B5,Y314B2:PBX402B24B33BA6B5,Y474B2D66:16B8B9:PMX156B4,Y84x 16B8B9:PMX156B4,Y84:162B8B9:NMX324B4,Y36:NMX363BA6B4,Y52 642B832B1:NMX1215B24BA8B4,Y8415B2:  FEET, N=7, J=8 1B832B2:B916B3:BA(B72):48B8B9:PBX26B34SE, N=3, J=2 = hPMX52B28B3,Y320(B03)3(B63):S r TAIL, N=4, J=6 |PMX15B13B25B3,Y92:M3Ē0:X2,Y96   LEGS, N=5, J=7 B816B2:B932B3:BA(BC%(N3,IC)2):0B8B9:PMX193BA2B4,Y50:PMX225BA6B4,Y0:X31300::32810::Z$"^CHIRP":R "X113:32827:X30100:::Z$"^SING":u ,6,5:7,75:32860:Z$"^BUZZ": 6 HEAD, N=1, J=1 @PMX46B27B3,Y175B23B3:3B1:X17,Y34: J BODY, N=2, J=4 TPMX710B3,Y423B2: ^ NO12,1:30213,23:30214:8 Z$"^MALE":I1Z$"^FEMALE"^ SET Z$ TO INDICATE SEX OF BUG w I3Z$"^OFFSPRING"}  MATING CALL SOUND ROUTINES B0280,290,300:U25185(I2)90(I3)5(B01):V130:233,112:130:1280:$ X113:6,830416,I$:180:Z(0):Z(I$):E COORD. SETUP/READBACK ROUTINES w 30423,U256(U256):30424,U256:30425,V: U(30423)256(30424):V(30425): W160 SCREEN WIPE FROM Y=W TO BOTTOM  30208,W:30209,191:30210,0:30211,0:30229648:26571,1:X(0)$d580Dn CHROMY BUG, (C) 1981 TIESlo DESIGN: MARCIA HORN, EARL KEYSERp PROGRAMMING: JEROME A. FARMx HIRES OUTPUT ROUTINE 30427,SZ:170:30419,Z$:180: HIRES INPUT ROUTINE  30427,1:170:        TE PROTECT TAB."4830:520q>(7):"PRESS RETURN WHEN YOU HAVE DONE SO";A$:16304,0:16297,0:16299,0:HER8860R::"I/O ERROR"::"IS THE DISK INSERTED PROPERLY ":"AND IS THE DOOR SHUT? PLEASE CHECK.":830:\ER9880<f::-S$"GENLOGON":CMD17:900:RELEASE LOGONE:(4)"RUN MENU":X ERROR STUFFh ER(222):ER10ĺ(4)"UNLOCK CHROMY BUG FILE":880 ER4840*::"DISK IS WRITE PROTECTED."::"PLEASE PUT IN THE PROPER DISK OR":"REMOVE THE WRI(4)"CLOSE";NET0710: SKIP LOGOFF IF NOT ON NETWORK{S$"GENCHROM":CMD17:900:RELEASE CLAIM TO CHROMY BUG FILES$"GENLOGON":CMD1:900:RESTRICT LOGONS DURING STUDENT LOGOFFS$"GENST":CMD3:900: ASSUME LOGON LOCKED, LOG OFF STUDENTX(4)"CLOSE"3b(4)"OPEN CHROMY BUG FILE,L180"HlRLNRR1:650qvRR1:(4)"READ CHROMY BUG FILE,R"RA$:A$"EMPTY"620LNR700(4)"WRITE CHROMY BUG FILE,R"R"EMPTY":LNR(4)"WRITE CHROMY BUG FILE,R1"LN ":LN:R2,(4)"READ CHROMY BUG FILE,R"RL&F$:F$"EMPTY"RR1:540p0(4)"WRITE CHROMY BUG FILE,R"R:(NAME$,35):(CN$,25):BC%(0,0): BC%(0,0) IS # MISTAKESDCF: #QUESTIONS ASKED CF=0, 15; CF=1, 29NJ19:K16:BC%(J,K)::X,1)"^"Q$Q$(NA$,X,1)":81000:(NET)529J BUF32768:J0 S$"GENCHROM":CMD1:900:CLAIM ACCESS TO CHROMY BUG FILE SS0Ĺ222,SS:880: ERROR IF CAN'T GET IT:(4)"OPEN CHROMY BUG FILE,L180 (4)"READ CHROMY BUG FILE,R1GO ON.":12016368,07SB(16384):SB128464HSB160462Q280XP2:YP60:Z$"^WHAT IS "Q$" NAME?":120XP2:YP80:150:NA$I$:500:CN$Q$NA$F$:500:F$Q$:NA$L$:500:L$Q$:NA$L$" "F$:520Q$"":X1(NA$):(NA$,Z$"^NO, IT IS A "S$:120:XP0:YP40:Z$"^REMEMBER: ^X + ^"Q$" = ^X^"Q$:120:XP0:YP80:Z$"^AND ^X^"Q$" IS A "(S$,(S$)1)".":120BC%(0,0)BC%(0,0)1: ANOTHER MISTAKEQ$"HER":X31Q$"HIS" XP0:YP160:Z$"^PRESS SPACE BAR TO A GIRL?":XP0:YP80:120:Z$"^TYPE ^B OR ^G: ":XP0:YP120:120XP154:YP120:150:I$(I$,1):I$"B"I$"G"Z$(8):XP154:YP120:120:XP154:YP130:120:390280XP0:YP0:I$(S$,1)Z$"^CORRECT!":120:(7):450Q$(Q$,(Q$)1,1)1Q$" '^Y'"N ^233,96:SZ2:3:Z$"^WITH AN '^X' CHROMOSOME":XP0:YP0:120 hZ$"FROM THE MOTHER,":XP0:YP20:120:Z$"AND A"Q$" CHROMOSOME":XP0:YP40:120:Z$"FROM THE FATHER,":XP0:YP60:120 rS$"GIRL!":X31S$"BOY!"@|Z$"IS IT A BOY OR,191:30210,0:30211,0:30212,1:30213,23:30214:E  CLEAR HI-RESW ":Y10:270:a ,780u 6 START PROGRAM @280:(4)"NOMONICO":(4)"BLOAD WIPE.O,A$7600":(4)"BLOAD GEN IO,A$76D0" E30422,95:30426,1 JX3(2(1)) TQ$"N '^X'":X3 PLOT. + x30427,SZ:250:30419,Z$:256:U INPUT STRING USING PLOT ROUTINE.  I$"":250:30416,I$:256:I$"^"I$: 30423,XP256(XP256):30424,XP256:30425,YP: XP(30423)256(30424):YP(30425): Y11602 30208,Y1:30209 * 0* EARL KEYSER *8 2* *S 4* PROGRAMMED BY: *n 6* JEROME A. FARM * 8* TIES, 8/81 * :* * <********************* > Z9648:26571,1:X(0) d300 n HIRES CHARACTERPLESOFT BASIC ** * *E * DESCRIPTION: *` "* TELL STUDENTS *{ $* HOW WELL THEY * &* DID AND SAVE * (* THEIR SCORE. * ** * ,* DESIGNED BY: * .* MARCIA HORN A *********************7 * *R* COPYRIGHT 1981 *m* BY TIES ** ** PROGRAM NAME: ** CHROMY SAVE ** ** LANGUAGE: * * AP      :U153:V110:Z$"^A^B^O":120:U153:V120:Z$"^LAB":120:SZ2:233,96:290Z4 PAGE 2.5x>F0:L100:ST20:340:290H ^THIS IS WHERE ALL THE,BLOOD TYPES ARE,IDENTIFIED FOR THE,PARENTS AND FOR THE,BABY BUGS BORN AT OUR,HOSPITAL.f PAGE 3pF120,80120,70125,70115,60105,70110,70110,8070,80\ 70,100210,100:150,140180,140)28161,60:28166,220:28206,80:28211,100:28448,1:28449,5:28160*28161,60:28166,220:28206,100:28211,140:28448,1:28449,1:28160J/233,112:SZ1:3L$F$I$2050#W120:280:20300 PAGE 2HF$"^"F$:L$"^"L$ 310:U0:V0:Z$F$",":120:U0:V20:Z$"^WELCOME TO":120:U0:V40:Z$"^A-^B-^O ^LABORATORY.":120 DRAW LAB770,8070,140150,140150,100180,100180,140210,140210,80:NC2:150:(I$)62049@(I$,1)" "I$(I$,(I$)1):2032h(I$,1)" "I$(I$,(I$)1):2034L$"":X(I$)11:(I$,X,1)" "L$(I$,X,1)L$:F$"":X1(I$):(I$,X,1)" "F$F$(I$,X,1):X(0):F$""L$""2049F$AROL ^CHROMY.":120L233,104:5230,0:6230,0:0:230,0:3:233,96:500U0:V60:Z$"^I'M HEAD PHYSICIAN AT":120:U0:V80:Z$"^BABY ^BUG ^HOSPITAL.":120:U0:V120:Z$"^WHAT ARE YOUR FIRST AND":120:U0:V140:Z$"LAST NAMES ?":120:U2:V160Y)Z$"":X/ ^JEFF,^DAVE,^REED,^ADAM,^GREGS ^LISA,^KATY,^LORI,^MARY,^JILLr CONVERT NUMBER TO LETTERC$(0)"^O""":C$(1)"^A""":C$(2)"^B"""U(0) BEGINNING OF PROGRAMU0:V0:Z$"^HELLO,":120:U0:V20:Z$"^I'M ^DR. ^CT$(X,Y)BT$(X,Y)""::+ ^O,^A,^B,^A^B " ^NO CLUMPING WITH SERUMS",^CLUMPING WITH ^ANTI-^A SERUM,^CLUMPING WITH ^ANTI-^B SERUM,^CLUMPING WITH BOTH SERUMS NAMESX09:Z$Y(10(1)):N$(Y)""YY1:N$(Y(Y9))""1962 N$(COMBINATIONS) FOR"," EACH BLOOD TYPE ARE:",""XS ""," ^BLOOD TYPE ^GENOTYPE",""X " ^O ^O^O"," ^A ^A^A OR ^A^O"," ^B ^B^B OR ^B^O"," ^A^B ^A^B"v BLOOD TYPE INFOY01:X03:BT$(X,Y):BNE ^O.","","2. ^GENE ^O IS RECESSIVE"," TO ^GENE ^A AND ^GENE ^B.",""D "3. ^WHEN BOTH ^GENE ^A AND"," ^GENE ^B ARE PRESENT,"," THE BLOOD TYPE IS ^A^B."IX1020:I$(X):I$(X)I$(X)"":/N "4. ^THE POSSIBLE ^G^E^N^O^T^Y^P^E^S"," (GENE W0:280 J! T OUTPUT TEXT@ ^VFLST:U0:Z$:120::O  DELAY a D12000::v  LOAD ARRAYS  INSTRUCTIONS X09:I$(X):I$(X)I$(X)"":G: "1. ^THERE ARE 3 GENES FOR"," BLOOD TYPE: ^GENE ^A,"," ^GENE ^B, AND ^GE:V(30425): W160` 30208,W:30209,191:30210,0:30211,0:30212,1:30213,23:30214:3:v " WAIT TO GO ON ,U0:V177:Z$"^PRESS SPACE BAR TO GO ON.":120 .16368,0 0SB(16384):SB128304 2SB160302 6 CLEAN HI-RES @:**************** F! d50000@ n HIRES CHARACTER PLOT. d x30427,SZ:250:30419,Z$:260: INPUT STRING USING PLOT ROUTINE. I$"" 250:30416,I$:260: 30423,U256(U256):30424,U256:30425,V: U(30423)256(30424) * .* DESIGNED BY: *8 0* MARCIA HORN *S 2* EARL KEYSER *n 4* JOYCE LINDGREN * 6* * 8* PROGRAMMED BY: * :* JEROME A. FARM * <* TIES, 8/81 * >* * @*****UAGE: ** * APPLESOFT BASIC *E * *` * DESCRIPTION: *{ "* GIVE * $* INSTRUCTIONS * &* AND SET UP * (* VARIABLES FOR * ** "BLOOD" * ,*  *********************7 * *R* COPYRIGHT 1981 *m* BY TIES ** ** PROGRAM NAME: ** BLOOD ** INSTRUCTIONS ** * * LANG         U),1)(C$(V),1)BTV:VU:UBT>:B$(W)C$(U)C$(V):WW1::P? MA&PA TYPESDUG(1,0):VG(2,0):360:DTBT:UG(0,1):VG(0,2):360:MTBT:230:150:BN$N$(PN1):U0:V0:Z$"#"(PN)" ^DETERMINE ^BABY "BN$"'S":160:U0:V18:Z$"BLOOD TYPE.":160:59(C$(G(0,2)),1)(C$(G(0,1)),1)YG(0,1):G(0,2)G(0,1):G(0,1)Y`! SORT GENES, DOMINANT FIRST&(C$(G(2,0)),1)(C$(G(1,0)),1)YG(1,0):G(2,0)G(1,0):G(1,0)Y+ SORT&DO BABY GENOTYPES0W0:Y12:X12:UG(X,0):VG(0,Y):360:G(X,Y)BT:(C$(ARE NOW READY TO,BEGIN TYPING BLOOD. ^HOW,MANY PROBLEMS DO YOU WANT230::"OPEN BT":"READ BT":V2014020:Z$:U0:160::"CLOSE":210  PROBLEM LOOP AC0:PN1NP RANDOM PARENTS?Y12:G(0,Y)((1)3):G(Y,0)((1)3):Y:230:U25:V0:Z$"^T^Y^P^I^N^G ^B^L^O^O^D ^S^A^M^P^L^E^S":160BT03:EX1:330:370:U20:220:W180:200:BT3X60:Y165:1020:230: ASK FOR # OF PROBLEMSDP$"(1-10)? ":NF1:320:NP((I$)):NP1NP10W160:200:510: ^YOU 50230:I$"Y"İ480B ASK IF TEST PROCEDURE REVIEW NEEDED150:Z$"^DR. "L$",":U0:V80:160:F100:L140:240:510: ^DO YOU NEED TO REVIEW THE,PROCEDURES FOR TYPING,BLOOD SAMPLES WITH ^ANTI-^A,AND ^ANTI-^B SERUMS? REVIEW TEST PROC.@^INHERITING ":160:U0:V20:Z$"^BLOOD ^TYPES ^O, ^A, ^B, ^A^B":160:140:X09:V5010X:U20:Z$I$(X):160:QW(0)::210X1020:VX1080:U20:Z$I$(X):160::25,82255,82:152,65152,130:210:310:I$(I$,1):I$"N"I$"Y"W160:200:480:L140:240B310:I$(I$,1):I$"Y"I$"N"W160:200:400X230:I$"Y"İ430150:F80:L140:240:450: "^BEFORE YOU BEGIN, DO YOU",NEED TO REVIEW THE RULES,FOR INHERITING BLOOD,TYPES? GIVE RULES|230:150:U0:V0:Z$"^RULES FOR 145:160:140^5c FIGURE TYPE FROM GENES U,VJhBTUVU(UV):Vm DELAYhrF11500::|230:U0:V80:150:Z$"^REMEMBER THESE RULES:":160:370:230: ASK IF RULES ARE NEEDED O1:150:230:U0:V60:Z$"^DR. "L$",":160:FB0:I$G$:NF0:6E DO BLOOD TEST ON TYPE BT BLOOD J300:X110:Y90:CL((BT$(BT,0),2,1)"A"):260:X170:CL(BT1):260:370:370:U10:V130:Z$BT$(BT,1):160:370:370O IF EXAMPLE THEN GIVE TYPETEXİ150:Z$"^BLOOD ^TYPE "BT$(BT,0):U70:V ^ANTI-^B":160:U78:V50:Z$"^SERUM ^SERUM":160:80,6080,120200,120200,6080,60:X110:Y90:CO2:250:X170:CO1:250:3:140: 1 PROMPT Y OR N 6P$"(^Y OR ^N)? ":NF0:B1 ; INPUT WITH PROMPT P$@Z$P$:U0:V160:160:XU:YV:BL0:920: 5:U(233):233,104:C13:T060162C:C:T:10X,Y:::1:0:CL290n  AGGULTINATE BLOOD IF CF=1 0:C015:10R(X),R(Y): 5:C03:3R(X),R(Y):10R(X),R(Y): "233,U:3: ' LABEL SLIDE ,140:U73:V40:Z$"^ANTI-^A TO GO ON.":160 16368,0; SB(16384):SB128224L SB160222R h X0:Y191:1020: PRINT FROM DATA VFL20:U0:Z$:160:: DRAW PUDDLES OF SERUM 233,104:0:CO:1X,Y:1X1,Y1: DRAW PUDDLES OF BLOODNORD. SETUP & READBACK H 30423,U256(U256):30424,U256:30425,V:q U(30423)256(30424):V(30425):~ WIPES X40:1020:1030:XX10: XW:Y191:1020: WAIT TO GO ON U0:220:230 V1773(S1):Z$"^PRESS SPACE BARE.O,A$7600":(4)"BLOAD GEN IO,A$76D0":30422,95:30426,1::390_ SET FOR SMALL CHARACTERS| 233,112:S1:30422,27: SET FOR LARGE CHARACTERS 233,96:S2:30422,95: HI-RES OUTPUT ROUTINE 30427,S:170:30419,Z$:180: COd BLOOD, (C) TIES 1981Te DESIGN: MARCIA HORN, JOYCE LINDGREN, EARL KEYSERf PROGRAMMING: JEROME A. FARM, BRIAN MAHANi9648:26571,1:X(0)n1140x:(4)"BLOAD CHROMY SMALL CHARS,A$7000"@ R(W)W20(1)10::(4)"BLOAD WIP          F):SS(BUF1):DS0Ĺ222,DS:820TSS254ĺ"SEMAPHORE TABLE FULL.":222,SS:820Zp NETWORK CHECK NET(39424):NET0ıBSL(39425)TSL(39426)OMNI35328$(4);"BLOAD OMNIBCI.OBJ":(4);"BLOAD SEM".OMNI14,192TSLS THE DOOR SHUT? PLEASE CHECK.":760:6ER9820f ::"DISK FULL, PLEASE TELL YOUR TEACHER."o*8304::(222),(218)(219)256>:"SHOW YOUR TEACHER THESE NUMBERS-"::TP,TC: SEMAPHORE ACCESS 31744,S$,CMD,BUF"DS(BUROTECTED."::"PLEASE PUT IN THE PROPER DISK OR":"REMOVE THE WRITE PROTECT TAB."_760:420(7):"HIT RETURN WHEN YOU HAVE DONE SO";A$:16304,0:16297,0:16299,0:ER8790' ::"I/O ERROR"::"IS THE DISK INSERTED PROPERLY ":"AND I)"RUN MENU":bO:(4)"BLOAD WIPE.O,A$7600":(4)"BLOAD GEN IO,A$76D0"f30422,95:30426,1p710:16302,0:3:233,96:SZ2280ER(222):ER10ĺ(4)"UNLOCK BLOOD TEST FILE":280ER4770Q::"DISK IS WRITE P(NET)590: SKIP IF NOT ON NETWORKXFS$"GENBLOOD":CMD17:900:RELEASE BLOOD FILEGS$"GENLOGON":CMD1:900:CLAIM LOGONHS$"GENST":CMD3:900: LOGOFF STUDENT,ASSUME HAVE LOGONIS$"GENLOGON":CMD17:900:RELEASE LOGONN260 X:(4(4)"OPEN BLOOD TEST FILE,L40"7RLNRR1:530`RR1:(4)"READ BLOOD TEST FILE,R"RyA$:A$"EMPTY"500LNR580(4)"WRITE BLOOD TEST FILE,R"R&"EMPTY":LNR0(4)"WRITE BLOOD TEST FILE,R1":LND(4)"CLOSE"&ESS:820:ERROR IF CAN'T GET ITB(4)"OPEN BLOOD TEST FILE,L40"m(4)"READ BLOOD TEST FILE,R1":LN:R2(4)"READ BLOOD TEST FILE,R"RF$:F$"EMPTY"RR1:440(4)"WRITE BLOOD TEST FILE,R"R(NAME$,30):TP:TC(4)"CLOSE""400:F$Z$:NA$L$:400:L$Z$:NA$L$" "F$:420gZ$"":X1(NA$):(NA$,X,1)"^"Z$Z$(NA$,X,1)o:1000:(NET)429:SKIP SEMAPHORE IF NOT ON NETWORK BUF32768S$"GENBLOOD":CMD1:900:CLAIM ACCESS TO BLOOD FILESS0Ĺ222,T'S PRETTY GOOD.":3509TZ$"^YOU NEED SOME MORE WORK."Q^U0:V120:110:250hZ$"^DO YOU WANT TO DO":U0:V120:110:Z$"ANY MORE PROBLEMS?":U0:V140:110r270:I$"Y"U(0):26571,0::(4)"RUN BLOOD"|I$"N"W160:240:370/NA$F$::NP1Z$Z$"S"" "U0:V20:110[ ,TPTPNP:TCTCAC: TOTAL PROBLEMS AND TOTAL CORRECT 6Z$"ON TYPING BLOOD,":U0:V40:110:Z$"YOU ANSWERED "(AC)" CORRECTLY.":U0:V60:110 @ACNPZ$"^THAT'S ^E^X^C^E^L^L^E^N^T!":350JACNP2Z$"^THA73(SZ1):Z$"^PRESS SPACE BAR TO GO ON.":110= 16368,0Z SB(16384):SB128254k SB160252 :W0:240:U(0): Z$"(^Y OR ^N)? ":U0:V160:110:120:I$(I$,1): O1:Z$"^DR. "L$",":U0:V0:110:Z$"^OUT OF "(NP)" PROBLEM"(0):670. n30427,SZ:150:30419,Z$:160:H x150:30416,I$:160:z 30423,U256(U256):30424,U256:30425,V: U(30423)256(30424):V(30425): W180 30208,W:30209,191:30210,0:30211,0:30212,1:30213,23:30214:/ U0:V17 * 0* EARL KEYSER *8 1* JOYCE LINDGREN *S 2* *n 4* PROGRAMMED BY: * 6* JEROME A. FARM * 8* TIES, 8/81 * :* * <********************* > Z9648:26571,1:X(0) dUPLESOFT BASIC ** * *E * DESCRIPTION: *` "* TELL STUDENTS *{ $* HOW WELL THEY * &* DID AND SAVE * (* THEIR SCORE. * ** * ,* DESIGNED BY: * .* MARCIA HORN 9 *********************7 * *R* COPYRIGHT 1981 *m* BY TIES ** ** PROGRAM NAME: ** BLOOD SAVE ** ** LANGUAGE: * * AP      & DISK DRIVE.":" HIT RETURN WHEN YOU ARE READY.":I$:::VpER12ĺ:D$"CLOSE":`z1190oH2:I13NC1:I2(I2):I3(I3)X46186I294I3:Y20:SZ1:233,112:0:1:XP20200I285I3:YP1:260:140J19:K12&N(("1382945(J,K):::900*:k4"DO YOU WISH TO ERASE INFORMATION"::"ON "NA$"?"::"(Y/N)?";:150:I$"N"680|>I$"Y"810H:(4)"WRITE CHROMY BUG FILE,R"RR"EMPTY":(4):680\ER(222)<fER8ĺ(7)::"I/O ERROR":" PLEASE CHECK THE DISKONS ASKED: "NU::"NUMBER OF CORRECT ANSWERS: "NUMS::"PERCENT CORRECT : "((NUMS)NU100)"%"15:1:"DO YOU WISH TO SEE THE BUGS THAT"::NA$" DREW (Y/N)?";:150I$"N"810 I$"Y"760:16302,0: J19:K16:BC%"READ CHROMY BUG FILE,R"R7NAME$:NAME$"EMPTY"680jFF$" MORE":BUGNAME$:MS:CF:NUMPROB1514CFX1(NA$):(NA$,X,1)" "Z$(NA$,(NA$)X):NA$(NA$,X1)", "Z$:X100X"NAME: "NA$::"BUG NAME: "BU$:l"NUMBER OF QUESTI. COME AGAIN AFTER STUDENTS "::"HAVE RUN * CHROMY BUG *."Pv:(4)"CLOSE"2000:(NET)670: SKIP SEMAPHORE IF NOT ON NETWORKBUF32768S$"GENTEACH":CMD17:1140: LOGOFF TEACHER:(4)"RUN MENU"RR1:::RLN620(4)I$"N"1230:I$"Y"5608D(4)"RUN CHROMY SORT"VND$;"BLOADSOUND.O,A$8000"X768,0:FF$""::(4)"OPEN CHROMY BUG FILE,L180"bR1:(4)"READ CHROMY BUG FILE,R"R:LN:LN2680=l:"THERE ARE CURRENTLY NO"FF$" ENTRIES TO":(7):"BE READ::" THIS PROGRAM ALLOWS YOU TO READ"::"STUDENTS' * CHROMY BUG * FILES TO SEE"::"WHAT THEIR BUGS LOOKED LIKE AND HOW WELL":"THE STUDENTS DID."&520: 0:"DO YOU WANT THE LIST OF STUDENT NAMES"::"TO BE ALPHABETIZED (Y/N)? ";:150:24MM2X214B1,Y5325B1:XP0:YP1737(SZ1):Z$"^PRESS SPACE BAR TO GO ON.":140:520:::62450:16302,0:16297,0:16304,0:16299,0:24:"PRESS SPACE BAR TO GO ON.";16368,0SB(16384):SB128532SB160530B9B8:PBX354B23B33(B62)4BA8B5,Y1055B23B1:B8(BC%(N7,IC)1):CO:PBX8,Y162B13B8:16(B1):PBX152(B1),Y162B13B8B3ı24MX15B1,Y53:24MX115B1,Y5332B1:24MM2X114B1,Y5325B1:62)5(B63)3BA2B5,Y264B24(B61) PBX314B23(B63)5BA6B5,Y424B24(B61):0B8B9:PBX352B23(B62)6B5,Y924B22B14(B63) 48B9B8:PBX352B24B34B5,Y314B2:PBX402B24B33BA6B5,Y474B2=325BA6B4,Y66:16B8B9:PMX156B4,Y84L 16B8B9:PMX156B4,Y84 162B8B9:NMX324B4,Y36:NMX363BA6B4,Y52 642B832B1:NMX1215B24BA8B4,Y8415B2:* B832B2:B916B3:BA(B72):48B8B9:PBX26B34B21(B7B3,Y175B23B3:3B1:X17,Y34:D TPMX710B3,Y423B2:t ^PMX52B28B3,Y320(B03)3(B63): hPMX15B13B25B3,Y92:M3Ē0:X2,Y96 r+ |B816B2:B932B3:BA(BC%(N3,IC)2):0B8B9:PMX193BA2B4,Y50:PMX22 I3Z$"^OFFSPRING" h "B0300,310,320:XP25185(I2)90(I3)5(B01):YP130:233,112:140: ,X113:6,80:X31300::32810::Z$"^CHIRP": 6X113:32827:X30100:::Z$"^SING": @6,5:7,75:32860:Z$"^BUZZ":& JPMX46B2;(8);(8);" ";(8);:1506 (Z$)95Z$((Z$)32)S (Z$"N"Z$"Y")Z170k Z1:I$Z$:Z$;:160 30423,XP256(XP256):30424,XP256:30425,YP: XP(30423)256(30424):YP(30425): Y1160 Z$"^MALE":I1Z$"^FEMALE"/ d1200n(C) 1981 TIES/xCHROMY READQJEROME A. FARM / EARL KEYSERu30427,SZ:220:30419,Z$:230:Z0:I$"""_";(8);Z$((0)):16368,0:16384,128:16368,0:Z$((16384)):Z$(13)ĺ" ":Z$(8)Z200 " "       ҍؠҍРàȶŲؠÍàȶŲȶƲؠȶƲЍ͍٠ύ٠ŠȶŴƳؠŷРȶŵȶŴ٠ŠȶŵؠРȶŵ V ̮Ӎ 卪 卪 ǠŰԍԍȶƲҍРà ENU"AI14,192TSL%zNOMNI414,128TSL16>NOMNI419,128TSL16LNBUF32768NS$"GENTEACH":CMD17: CLEAR TEACHER SEMAPHOREN31744,S$,CMD,BUFNDS(BUF):SS(BUF1):DS0ė:"DISK ERROR":NSS254ė:"SEMAPHORE TABLE FULL":R(4)"RUN ME CURRENTLY NO ENTRIES TO BE"::"READ. COME AGAIN AFTER STUDENTS HAVE"::"RUN * CHROMY BUG *"x4N NETWORK CHECK >NNET(39424):NET021000HNBSL(39425)RNTSL(39426)\NOMNI35328fN(4);"BLOAD OMNIBCI.OBJ":(4);"BLOAD SEM" pNOMN,1)" "XP:P1)X0ĺ" ":6806(N$,X)AG$:RfD$"WRITE CHROMY BUG FILE,R"LN1s"EMPTY" D$"CLOSE"'115,HL:116,HH'768,88$'(4)"RUN CHROMY READ" N" No kids so chain back %N:(4);"CLOSE"a*N:"THERE AR21248: CALL SORT327X:D$"DELETE CHROMY BUG FILE"ZbD$"OPEN CHROMY BUG FILE,L180"|lD$"WRITE CHROMY BUG FILE,R1"vLN1R2LND$"WRITE CHROMY BUG FILE,R"RN$(A$(R1),36):G$(A$(R1),(A$(R1))36)X0:P3511:(N$,PTIONS ASKED FLAGb,J19:K16:I$:SF$(X%)SF$(X%)I$R$:K:J: READ IN BUG CHARACTERISTICS iRLNX%1: X% NOW HOLDS THE NUMBER OF ELEMENTS IN ARRAY SF$ TO BE SORTEDX%020000A$(X%)R1X%:A$(R)SF$(R):X%1600Y BUG FILE,R"R/ I$:I$"EMPTY"X%X%1:400A (I$)34250 SPACE(I$)34:I$I$" ":SPACE: MAKE CHILD'S NAME 35 CHARACTERS LONG SF$(X%)(I$,35)R$DC13:I$:SF$(X%)SF$(X%)I$R$:DC: READ BUG NAME AND NUMBER OF MISTAKES AND #QUES220000> ::10:"SORTING."::"PLEASE WAIT FOR ABOUT ";j X(20.53.33333(LN2)):X;" SECONDS." SF$(LN): LN POINTS TO RECORD HOLDING LAST "EMPTY" X%0 R2LN1:X%X%1: KEEP TRACK OF HOW MANY ELEMENTS TO SORT D$"READ CHROMONICO" d21248& nD$(4):R$(13)k L1%1:L2%35: TELL SORT TO SORT ACCORDING TO CHARACTERS 1 TO 35 :D$"BLOAD SORT32" READ CHROMY BUG FILE INTO ARRAY SF$ :D$"OPEN CHROMY BUG FILE,L180" D$"READ CHROMY BUG FILE,R1":LN LN * 0* JEROME A. FARM *8 2* TIES, 8/81 *S 4* *n 5* SEMAPHORE STUFF * 6* ADDED 2/12/85 * 7* BY D.S.W * 8* * <********************* PHL(115):HH(116) Z(4)"NOMPLESOFT BASIC ** * *E * DESCRIPTION: *` "* ALPHABETICALLY *{ $* SORTS STUDENT * &* NAMES IN CHROMY * (* BUG FILE. * ** * ,* DESIGNED AND * .* PROGRAMMED BY:   *********************7 * *R* COPYRIGHT 1981 *m* BY TIES ** ** PROGRAM NAME: ** CHROMY SORT ** ** LANGUAGE: * * AP      # ĮӍ 卪 卪 퍪 Ӎ Ӎ ō      (39424):NET0ı#BSL(39425)4TSL(39426)COMNI35328s$(4);"BLOAD OMNIBCI.OBJ":(4);"BLOAD SEM".OMNI14,192TSL8OMNI414,128TSL16BOMNI419,128TSL16L:(222),(218)256(219):AOOD TEST FILE,R1"\LN(fD$"CLOSE"6p16368,0?z180V SEMAPHORE ACCESSl31744,S$,CMD,BUFDS(BUF):SS(BUF1):DS0Ĺ222,DS:2000SS254ĺ"SEMAPHORE TABLE FULL.":222,SS:2000 NETWORK CHECK BUF32768NET FILE,L40")LN2:R1X%:A$(R)""790LD$"WRITE BLOOD TEST FILE,R"LNjX((A$(R),(A$(R))30))P3011:(A$(R),P,1)" "ĂP(A$(R),P):TP(X):TC(X) LNLN1R D$"WRITE BLOOD TEST FILE,R"LN*"EMPTY"RD$"WRITE BL571 @(A$)95A$((A$)32)?AZ1(A$"Y"A$"N")572WBZ$A$:Z1:Z$;:572gHZ$"N"600IZ$"Y"ĺ(8);" ":570NA$(R)""XRb:"THERE ARE NO MORE ENTRIES TO BE READ.":D$"DELETE BLOOD TEST FILE" D$"OPEN BLOOD TEST:"PERCENT CORRECT : ";(.5100TC(X)TP(X));"%"n:20:"DO YOU WISH TO ERASE THIS ENTRY (Y/N)?";|;Z0:Z$""<"_";(8);:16368,0:16384,128,1=A$((16384)128):A$(13)584>Z0A$(8)572?A$(8)ĺ" ";A$;A$;" ";A$;:R1X%::"NAME: ";+NA$(A$(R),30)vX1(NA$):(NA$,X,1)" "NA$(NA$,X1)","(NA$,(NA$)X1):X100| NA$X((A$(R),(A$(R))30))&:"NUMBER OF QUESTIONS ASKED: ";TP(X)0:"NUMBER OF CORRECT ANSWERS: ";TC(X);5AD BLOOD TEST FILE,R"R7@I$:I$"EMPTY"X%X%1:400IJ(I$)29350hTSP(I$)29:I$I$" ":SP}^SF$(X%)I$(X%)hTP(X%):TC(X%)RLNX%1:X%0170A$(X%):R1X%:A$(R)SF$(R):X%150021248: CALL STRING SORT(4)"CLOSE"@ 1000:(NET)195: SKIP LOGOFF IF NOT ON NETWORKn S$"GENTEACH":CMD17:900:LOGOFF TEACHER :(4)"RUN MENU" LOAD ARRAY SF$(LN),TP(LN),TC(LN):X%0 ,R2LN1:X%X%1: KEEP TRACK OF HOW MANY ELEMENTS TO SORT6D$"RE16368,0& SB(16384):SB1281447 SB160142z D$"OPEN BLOOD TEST FILE,L40":D$"READ BLOOD TEST FILE,R1":LN LN2200 :"THERE ARE CURRENTLY NO ENTRIES TO READ. ":"COME AGAIN AFTER STUDENTS HAVE RUN"::"* BLOOD TYPING *." :%30: TELL SORT TO SORT ACCORDING TO FIRST 30 CHARACTERSA : "THIS PROGRAM ALLOWS YOU TO SEE HOW"::"WELL STUDENTS DID ON * BLOOD TYPING *.":::"THE LIST OF NAMES WILL BE AUTOMATICALLY"::"ALPHABETIZED.":21:"PRESS SPACE BAR TO GO ON." * 0* PROGRAMMED BY: *8 2* JEROME A. FARM *S 4* TIES, 8/81 *n 6* * 8********************* F PHL(115):HH(116) U: Z21248 dD$(4):R$(13):D$"NOMONICO" nD$"BLOAD SORT32"9 xL1%1:L2PLESOFT BASIC ** * *E * DESCRIPTION: *` "* READ STUDENTS' *{ $* SCORES OUT OF * &* BLOOD TEST FILE * (* AND DELETE * ** ENTRIES. * ,* * .* DESIGNED AND  *********************7 * *R* COPYRIGHT 1981 *m* BY TIES ** ** PROGRAM NAME: ** BLOOD READ ** ** LANGUAGE: * * AP     ٍٍٍٍٍč΍ÍΠƴΠƵčȍàҠԠƠ֭֍ȍŠРРƠּٍŠԠӍ ֽ ҩҠ֠נ٠ҩàĠϠֽҍ֍ŠԍàȍԠӍ̠ƶЍϠˍĠҩٍҩٍˠàԠˠƠōٲРԍӠЍ٠٠ԍӍ٠ˍٷ٠Ơźٽ֯РٍÍ֍à֍ȍàΠԠԠō٠رȍؠر̍Ҡ΍ÍàҠĠԠϠōҍàԍàҫԠ٠ԍˍĠҩٍҩٍ٠ѠˍРٍѠύҩٍРà֍ҠٷÍàԍԍؠ֍РؠѠˍ؍ŠРӍˠˍˍؠԍŠЍˍˍРԠر̍֍Ҡٷ٠ԍؠ֠ԠҍϠԠˍРؠѠˍ؍ŠРӍˠزȠנϠԠزȍز̍Ԡԍ֠Ƞˠ֍ˠȍҠǠ źٱˍٲˍرȠˍر̠ˍزȠˍز̠ˍΠ٠ٍٱԍرȠĠůˠҠرȍ  ŮӍ 卪 卪 Ӎ 荪 رٱ زٲԠԠ    'dD$(4):D$"OPEN CHROMY BUG FILE"GiD$"DELETE CHROMY BUG FILE"jnD$"OPEN CHROMY BUG FILE,L180"xD$"WRITE CHROMY BUG FILE,R1""2"D$"WRITE CHROMY BUG FILE,R2""EMPTY"D$"CLOSE" " DȍԩٍٍЍԩٍٍЫԩٍؠ؍ٍӍ н ŠЍر̍ÍàЍز̍ȍرȍàؠàЍҠōРԍ֠Ҡ͠ˠҠҠԠĠɤϠŠԍ΍ҠŠŠҠԍؠƫ٠ƫҠҠŠԠϠŠ͍٠ԠɤҮԠŠ͍ҍؠҠؠѠȱؠȱؠǍҠԍРԍ ōˠ٠΍ŠˍҠ̱Рԍˠà΍ÍàōЍÍЍàЍЍӠÍàȍžàԍРڧӠԍàΠŠҍ٠΍ƬٍҍؠŠǍРàҍؠЍѠҍ٠ѠҍٍƬٍРžѠҍРѠ֍ˠРžѠˍ ōؠȠ оѠˍؠЍؠàˍҠ̱ ׍РԍˠРŠà׍ÍàԠϠҠōנРǍˠč̠ԍؠҠҍҍЍҠǍؠҠҍĠƍРþŠˍ٠Ƭٍ٠΍Р֍ˠРҾŠˍРɠ٠٠΍ԍԠؠōРѠҍРӍҠӠÍàԍԍ̠ƍؠƠҠҍҍЍҠԍ ӍҠؠҠҍРؠȠؠРؠРؠӠŠҠԍŠؠҠŠҠРؠԠؠҠҍ ίƩҠϠ؍ΠՠƴԠՠƴΠՠƵנՠƶŠՠΠŠōٱՠŠӍٲՠرȠՠر̠ՠزȠՠز̠ՠ Ӎ֠Рԍ֠î Ь Ũ îҠՠŵŲŠǠƠΠ ٬ة ɬϩ ԲՠųĠĠҠҠǠ٬ ĭƩ̱ՠčҠՠƶàԠҠՠ¸ҠՠŸŠҠƠՠƍĠՠð ՠð͠ՠŠˠҠԠҍԠՠųԠ͠͠ҬԠ٬ՠųĠԠӠҠǍ 䮍ԠƍǠİРՠǠՠҠՠҠҠǠǮΠՠŠӠΠƍҠՠƍȠՠčРՠŠĠƍԠՠ  ϮӍ 卪 󮍪 퍪 퍪 䍪 卪           'dD$(4):D$"OPEN BLOOD TEST FILE"GiD$"DELETE BLOOD TEST FILE"inD$"OPEN BLOOD TEST FILE,L40"xD$"WRITE BLOOD TEST FILE,R1""2"D$"WRITE BLOOD TEST FILE,R2""EMPTY"D$"CLOSE" "UNABLE TO LOG ON,"A֜:"CLEAR THE FLAG CALLED 'GENST---'."p::"IF DATA FOR CHROMY BUG IS NOT BEING"Ꜻ:"UPDATED, CLEAR THE FLAG 'GENCHROM'."::"IF DATA FOR BLOOD TYPING IS NOT BEING":"UPDATED, CLEAR THE FLAG 'GENBLOOD'."GS COULD BE LEFT ON"?:"AND CAUSE PROBLEMS. THIS UTILITY"p:"ALLOWS YOU TO CLEAR THE OFFENDING FLAG."z110012005:"IF THE STUDENTS ARE UNABLE TO LOG ON,"œ:"CLEAR THE FLAG CALLED 'GENTEACH'."̜::"IF THE TEACHER IS -T5:"ELEMENTARY GENETICS USES 5 FLAGS TO"]^:"PROTECT THE STUDENT DATA. THEY ARE:":h:" GENTEACH GENLOGON GENST--- "r:" GENBLOOD AND GENCHROM.":|:"IF THE PROGRAMS ARE NOT EXITED IN A":"PROPER SEQUENCE, FLAG NAME TO SET:"2DuVT23:HT30:L8:NUMERIC0:100AIuESC11010cNuI$I$" ":I$(I$,1,8)~XuZ(0)10:Z(1)11:Z(2)1buI18:Z(I2)((I$,I)):Ilu800vu23:1:958:"SETTING THE FLAG NAMED ";I$u11000@" Help screen J1200NSMA41SMA432ĺBELL$;:20020GRNS$(SMA4)" "ĺBELL$;:20020W\NI$S$(SMA4)sfNZ(0)10:Z(1)11:Z(2)17pNI18:Z(I2)((I$,I)):IzN800NS$(SMA4)" "N1000N110100u" Set semaphore :u23:1:958:"ENTER THE FLA"Q"I$"q"49000* +I$"C"I$"c"20000C*+I$"S"I$"s"30000\4+I$"H"I$"h"40000o>+BELL$;:11020 N" Clear semaphore *N23:1:958:"ENTER THE FLAG NUMBER (1 - 32):"4NVT23:HT33:L2:NUMERIC1:1009NESC11010>NSMA4(I$)H/'" "^'" SEMAPHORE UTILITY "'" "'*500:1000+23:1:958:"H)ELP S)ET C)LEAR Q)UIT:" +VT23:HT32:L1:NUMERIC0:100+I$"FLAG ";SMA410);SMA4;"-[";S$(SMA4);"]";4$SMA4:.ML" Space bar "V24:3:"PRESS THE [SPACE BAR] TO CONTINUE.";`16368,0:SB$:SB$" "ĺBELL$;:1120j " Clear screen "4:1:958' " Begin program t'~':Z(ZI)(HMZI)7PRINT ZI; TAB( 5);Z(ZI); TAB( 10);STZ(ZI)128(Z(ZI)128)IF T > 31 THEN PRINT "'"; CHR$ (Z(ZI));"'";PRINT ZI" Paint screen VT4:HT1SMA4132VTVT1:VT21VT5:HT22VT:HT*, H ** GET BUFFER ADDRESS = 20480 (80*256)? R770,0:771,80` \ ** MOVE Z INTO BUFFER AREA fZI1Z(0):HMZI,Z(ZI):ZI p ** CALL IT zBCI  ** MOVE THE RESULT BACK INTO Z Z(0)(768)(769)256 Z(0)257Z(0)257ZI1Z(0)Z(0)8)8% SMA4SMA41:S$(SMA4)""0 J18: CC1[ S$(SMA4)S$(SMA4)((HMC))b Ji Io  " SET/CLEAR SEMAPHORE * ** ROUTINE TO CALL BCI. COMMAND SHOULD BE IN ARRAY Z 4 ** GET LENGTH >768,LSB(Z(0)):769,MSB(Z(0)) GET BUFFER ADDRESS = 20480 (80*256)7 &770,0:771,80W 0** MOVE Z INTO BUFFER AREAw :ZI1Z(0):HMZI,Z(ZI):ZI D** CALL IT NBCI X** MOVE THE RESULT BACK INTO Z bZ(0)(768)(769)256 lZ(0)257Z(0)257 vSMA40:C1 I1(1) @CH$;"_"; J140( T "error "9 ^BELL$;:140V " Check all semaphores Z(0)5:Z(1)26:Z(2)65:Z(3)3:Z(4)0:Z(5)0 ** ROUTINE TO CALL BCI. COMMAND SHOULD BE IN ARRAY Z ** GET LENGTH 768,LSB(Z(0)):769,MSB(Z(0))$ ** CH(CH$) CH13ı. CH27ESC1:< CH8280K PL1340j NUMERIC(CH48CH57)340 CH32CH122340 " legal character " CH$; PP1 I$I$CH$ 140 " back arrow " "P1340 ,PP1 6I$(I$,1,PLy"----------------- Semaphore Utility for Genetics Dennis Worwa 05/29/85 11:30 -----------------  50000d " Basic input routine "nP1:I$"":ESC0xVT:HT"[";(UL$,1,L);"]";VT:HTP16368,0 CH$                       .<>"""""" "$ V? <"< <"""< """<<&`@`@@s$ <"< "$s """:"""&p88pv""" <"""<"""< """& v"  $x @x<xvB >>,2""""$$p8|8p8800p px| x| <"""< "$<"< &  $???   ,2"""<"""< 4@`x`@@@  << <>"&    33 <""" """ <&<8l  Օ 33 $ """&  @`p?~>>~    "" """8> ??333???3  "&p8|8p ??$ <"""" <  .    333,2"""  """**6" <"".    0>333<"< <"< " """"`88` ~><<  <"""  :>?3"<"< <>""""333>00 : < <"""&     ,*"""$"" <""" x 8` x :333 ":"""",2"""  :>;333"""  p`0   6"""""  |   6" <<"< .@`x`@@    ?<<   $       """p@@``p|||    3""""""$   ~:  """<>"<"< ""$<8l :0>,2""":$ $xp """ << "" %  L@@@xxx|||~~~ $<<$"$oFn;6@@@```|||~~~???  <"< """ <$$;1; @@@```pp|~~~   "6p8|8p """**6"""""" """ """&|x|s": <""&  s""""$ <"""&`@`s<>",2"""::& s < <  $p8|8p`@@ hH8 h`< "" %  L@@@xxx|||~~~ $<<$"$oFn;6@@@```|||~~~???  <"< """ <$$;1; @@@```pp|~~~   "6p8|8` L `b'`` ``8 x `8(i8逅i 8 `"ѥ˥б(М```$ 09 !    ` ` И H `8`% `8``0`i     ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơe$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L ) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱv Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $_^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІșh0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^ DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H ANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTE0oeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCAL                    ҍĠҠĠؠؠōӠӠӠؠ٠ōСōՠ٠נōӠӠؠ٠ōСՠ٠נōŠŠӍƠŠӍԠ̠ōčϠŠǮҠŠӠҍǠŠōӠԠ̍źĠĠĠӠҠӍĠӠĠҠҠՠŠנٍϠōŠŠӍԠ̠ōčϠŠǮҠŠӠҍǠŠōӠԠ̍źĠĠĠӠҠӍĠӠĠҠҠҍĠҠĠؠؠō! ! !-%$<:7766..-,,$$$<-,*--.5>>7??? ?<TQQQQRQ6--$.676676...%%%<$$$$$$$5-755>6<>>$$%45=>>7&?%'',$.,466'4?-755>6<>>$$%45=>>7&?%'',$.,466'4?>67777?>?'?<$<$'<$$'$$$%,$%,$%7>6>55-.5-ۀ6665-4--R"''<<$%%%-%,,,''''''?7>%44>>677?7??>76767?>?>7QQQQQ:>6..6555555-66/?>..%-$?$$57.$,%-,,$%%,$%$,'=?III776-@ qt>kIIIIII!$$$'<<$''$?<'?<'?????7?>7?>7?67>67>7666665.65.6555555-.-----,%-,%%-,,,,,,$$%$$$$,>',-6>'?,--66'?$%,.$5%5.,6>46'7><6'<><<,$%,=,QR?775-%$/,%-,-.-.>7>66/6....---%-%%%%,$$'<<6>!! ! ٍ"ՠ̠ŠΠōĠӠƠȍ٧ӠҠĠҮՠԠΠōŠĠōƠŠ٠Ǯ"%,$%%,$%%%5S446>66.66...65...&-$$<$<$<$'<$'<$----56666>????$$$$$'.$'<$-.56%,47>677777777?>7?  *??77?>>777777>>6>7?>665.5$$%=<$>%<&>>6.,$&&===-------77777?><<<<<$$$LIII 6664'77.-$//3444'''''?,,$<'>>65-<$=n6'''''''''%%555>?$5>6>>'?$%56%,-&&.55555.6566>67>6777?>.6666>6>6777>>>7?>'$,$%,,$777?$/$%%%-54,-,,$$?>777v$$,$-.6>67<<<<<<$''''''&>?,-.............///47>677777777?>7?  *??77?>>777777>>6><,$%%%-6677>7'$$%-,-6>>>>'$-,-5=67?>?<&>?7777777>>>>>>&&&&&&&&&&&&&&6,,,,,,,,,,,,,<--?????????????/?'$%,$%$,$%$$,$$$$'$<$<$<$&&$'$'$%=$,$%%,,$%%5555.65.6>444444$$$$,,,,,-..65.666&>?????6677>>67.65'?>5...---%%$?$%$<<<<$$4.66777?????>>6''$,,,,,,$-4----6.65-.--76%-$%<$'>>?<<$&&&&------744%66=6<'7>6>>>&'<$$'>>'$$,/>676656556555..6.......////////////------<=============%%%%%%,,,$%%,$,$$$,/$$',','<$<$'<<$''''>>>>6>6766>.6..67676>6565.65555-.-5--.-,--,%%%%%%%,$%,$$<$<<<<%%,$$$$$$''<<<<''?'??'>?>4??------------------=.6>67>67>6>6666.66.6665665..665>?????@O<~d.Jj*M>B\.O?????>77666666.6...5--------------,,%%%%$$$$$$$$'<>>>77?>??677>>>677>>>6777?''''<<$''<<$''<<$'%>>>>>>67>>6>6>666"" " " " "