8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LCe! H$q!r! c&L*!M8tl # ) y!s!(&s!t! c&E )?  @ e!l!0 $l!0u!v! c&-) &ύw!x! c&Эb)0I0 ( d!N)Gi/ h!4 ?'RUNTIME &HCJDIR (CODEWORK WT.00WT.001%WEAVEk#)'DIGDUMP~ s%RAMRX)SOUNDDEMO GENES.DRV)GENES.OBJ!P?HCJOURNAL1.ARC' &PRODOS<! !,BASIC.SYSTEM'(! o'STARTUP< !&LINKUPG!R)FORMBUILDJ !U%GENESQ >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8Rn!o!p! k! iL X%>!L;!ΠΠҠ`}!!!"!!!l4"# G$YO!-e(eR9B}PBiB  !"#$%@~@}J@` ߩ%S @ ~`EhhhѺ0 h ѐ# ѐ ѐ ѐ 0 HϭэLпllllhh8` QSTV'P،h@ihAiȱ@JJJJq@)@%vȱ@Hȱ@Ah@E@c%e J) LxL LxJiB LxJ) <ҩxNhHHHHL(  аƠx@BEOD  а(`( C)CJJJlBJ,~آ <B*IBGF08Lé'+8H <(h`@؍L3<>=?<>CAB@?A` / L  <>` ڢF]PL8i m L   4< L  BLRAM' hLDLHB-4F 1"aɿ LL@ Nϰ H  @h( L Lh  @`bLJCAB@=?,<ʆ>*=?BC8 é&'112` ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <Lg& 'L&8ei` ,$`ee` `<( '<( '` ' ' '`hh8`8`=(>(F(`}N(`e`H)hJJ'0JJ)` (<  )1& ` (Xp< @1& )m1&1&.1&4& M1&i  ``rȱȱȱȱ0]cȱeem<(ȱ=(ȱ>(=(ȱF(=(ȱN( '<( z' #'Lg&`L' 'L& ' 8f ZHH)hh8JhJJJJJ '&H(&8H) 12 (j21 h!hH h %)Ђ12H)M0 h10200I20h2 9&`L#`)&!2"L  :8! ȱɈ 5   8 0 8 `0 / x X$$ $&$0`ŠӠέԠŠҬîʎ1DžϠ)&ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ YYZLYLYLY뿩 8@  *$ MNЩUM  LPN!-RB}PBiB ,m# m# J Qڨ)̰n]e мȱ ; ̀𩠙< iO P F V >Z SY ɘL` X _ [ V7 c L '0%O '8O JmO * 0ōҍJJJJ ɺi) ɺiL9Ҏw s)?ef t Ұs Ӱ s  |Ґ `l@Hȱ@I|HXAT^^ȱH ɯ|ȩxz^5H)/@a)_xx .0 :A[8@`,xx^x}z}Б|` Ґ L` א@>)I3|8^_0`1a`K8`@Nȱ@O@ lIiNȽN)/ȩ/N`@[ WHJjjjRhA &'KI0JH) ) )Wв<J8` GR悔0FRZ $ ӭ+j ;ސHR  4Rh8` ߰Q R@`ZWSSZ (RS W )8`)i п`  H  RFG`BH TRFG`H RhHBF  GxDER0r0C а(`(8` L*J R :"L ݢH R : R9` א@ P8`RSB8` RJJJJ=HIH IL9߅FHGI ѭlJkjHIH;7IRJJ Zߐ3HIHIL|ߩJKJK`FHIG ߰( ߬RȢMjJLk)eKM`R)` J FJZk ߰$Z0 ߰ZJFJL8`JGBJ T(`(8`R@`M8`R8@hʈIR)Fk8FF lL|߹ LߠRC8`V)@ iR)Fl8FVzkJ l_ F Lr߹) +V&lJ(b .RFG/8` .lJFd eeQFG`QJJJJi LWݩH8`Qf ݰQfe0 ݰ Q c`e ݰe`fQiygihB0Hf0gFhG ݪh0`שB*xEDr0C [` FG `QJJJJ`\HQ\hn)[N\jN\jN\jbN\.d WݰHi\ ݰ;\Qf ݰ*bNd[ ee`Z8` Wݰ#ddc c 5ݐ`bcG .G .G .G8d*JFG'(`)P P8ʈ` ۰0)i `uv8`QR ܍\FG[ ݰNQFG ݰ< \0 FGLۮQ[0 GF8TU`H8` ܹ ,[F G 8\z Wڭ01 E8`1݊0 iڰ$Q0̩GF ݰ ڰ ڰ`12)1`0Q`ȎQi 0U`z)x8`x`Q ېW }װG =۰A)H Qʈh0)*xzȱHx`Z8eHI ٰSB0 ؠQFXʈ pٌz`z8mz0_`,|{0H {hi LٍxȽxhQ0GF{z8y`FaG ݰ ڰ`Q0{Q8`X*؅IFG ݐ`[[ p8D`F` ilH)HFȍHG ݰ$%X&Y!8* J8` Lע  )I '`8ZiFG`Z*؅IH3H [( [ )WG ݰ%" ݰX)Im'F(G)* ݰ4 ֭ $H ݰ%HFFHGHG ݐ`R8`ͮͯ)` װ H` /ٰR(*؅IHHЍ@`[8W ؐeXW Y* Y=ȱ@/ȱ@9;<2DE)7I0 '*5 ܰ701FG ݰ( ְLݩI mIH` @= t=0FG ݰ ֬HFG ݰFF@ 0 [ [LթK8` I8`FHGH ܪhGhF ݰբFF芝 ݰFG ݮI m IHHyHȘI ݰLԩ` ՠ @/@ 7@Юz)mzʈ@i Q`RC8` @ l3Nz@) Wڎ} ԭziz}`0 iڰ0GF ݰ#Q0 ڰW,u0 Q ۩.H hȑNWȮvNuW8`xzNxz0NN` װG8`h)N$%Rjmkn LL⭚ L l L ;ް  0pnJo )@rNJOK ;ްiKKnnkk llIJo m nJФ̭lJkjHFIH rHIGrxKE а((H hH h8`8m@ȭn@L;ެR8NjNO 8q pjJLm`nRnʱLN.MOklMEKP/nMEKnLCL-qMp Okl,jpmeNNO(`JNKORL ;ް/  0P L8 | ZߠRJ`L@mȱ@nR LL`BLLТТТТТТТТТТТТТТТCOPR. APPLE,1983LM Mh@8nЍLЭ 0J @L:LhhhhIL@Ae P o**ӂӹ]|wKIJK,-NOPQRSuHUSTON!' @   !"#$Ԡ͠ˠĠԠ ]XXKR Ko`V8`no` & on ]I9XX`)HJJJh`OeNeO࿰ ]9XАO`@ȭ@` ON CNJKO`HHHHхЅG ݐ ` ~ qͬ ݰFG ݐ` ~* q% L`FGLݮ 'ܰ8`FHGH] 'ܰ]hGhF`@Bɼ>K@J5 ]9X(KI0F1G ݰ:%&N  ݰ# 'ܰFG ݐ`J HHR hh` 0 @ LFL q[̄T 0̄ȩF𸽒G ݰ 0` ݰF0F1G ݰy &밀L֢ȹLݠ@ȅH@ILҠ,|0` װJ WP8`TU fېH8,=)N 0 [01)@L` b讀 'ܰݩ ݰ L֬Qyy`O Wݰ @LL א=@ 5ȹQP8` &iQ` C0 5B C)yz( ȹ`y8myz8mz@8` װG8`F  װ P=)@N8`)@J 5yy))ꭁJJJJR RȢjI ;ސh(8H Nh(`R@`@Rȱ@ ` אB@8ZTUQ qۮQUT?H>8T2hU3JJJJ)@` װ%I -=) t 0@)N8``N8`  ) NRȢJ@jJjR@ʈLP 簞KIJHRȢjRjjk)lJn 8 ΄R  bH8R Ri ~8`L Ӑ L~ Ӱ )ܹ0 )p )@ )  R0FG ݰ حFG ׬R234 / F) F ְR)f ݰ`H@h~`h`R IhHIhH  i ` ܰ ii` )0CGHFHBFG ЪhFhG`@5~R͔ M @BRi ׭~` .R 4#R0 iڮQ)`L@.~R 簪HIFHR  PLnEnʱNLMOklMEKP%nMEKnL2 Okl,jm PjeNNO P(` R  F .AlJFHIGHIR HIHI`  .` .AR HF HG`@Nȱ@OR`RjM}FIF` tJMF t 3 tJF` R` H  ^h)N@ N; L  ;ް$ )bJTU f۰ ) H BhL ) . )lJkjIGLLՐ`BLڑL COPYRIGHT APPLE, 1983 h@ 0J @L:HUSTONP8H  ): e: y8鰕:Jjjj<)yi8i;i(*=>hP8`;Zx3QTTSRWVUHEVhEhH)IWHPHHHAHHHLaVEWLӿ&()*+,-./0123456789:! !5).莀/ ! !!!!! !!$ ! "<" !!뭳!!!!ILYL 8!9!詍` ! !ՠî򠠠!STARTUP/p$# {  { / XXύX?klmnÍoL) !6L'!(0`670! = ***)<JJH !h穖tp% !Z/݀!!'  &@DEF   %LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ à ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'ĝL  LL L)'L L L'L  (L(L $ʩ $$ $L `ީ % XʩXύX X A %  % ɍNH hɛɘɉɈ $ Lc :Lcې)ɮ۰ɺ'Ɲ Lc  : X i % $ɛ$8V%&8V)HV)hH)hHIhդD?DRIDQD); ?JDQD]`MY pY)p  p`8L:HhHh VY>:Y)`;R?AJ;<ȰY)`Y?)`ȐҰ ;HhHh=`Hh `Hh`DEiȍ01ZsDE8T8Wpq 7I꽌ɪ꽌ɭ蠪:VE:8`]V]H)]V])]T])] >8hUD` Y`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxl*k-kmMl 꽌ɪ`8` *L o % YZoY 3 NZ`rZLkZq8r7IZiZkk 8 s q | kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| FGV*& .V  JJJJH :h Ei :EX`'8`jWC)p> pCYY 轊( ( BV ( p0 \BiJ @i> i'j:ZH i@ioZZH h ȭnWǥBJ 8X` +>ŠϠŠà͠ӠàԠŬ Gh  l( G쳼󩭙Llid l`H) ZhJJJJ ɺi`  ` .8 `O`S  [AI-Ly !B C ⟩VW 5L壥>  5e>>?́?`>ȥj>>m>` T`m8injkiljo풼i>?Ek?>Q>;>:8o>oȑ>ppȑ>> :op` {KpnͶ @p;=po:i>?Ek?!>Q>>>̀ `` > ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m}K`JJJJ8`轚K)` 7#hhL"Jپھ pHJh` {!hgt}~p  `~t}p8n~ni}tpi~~tsLo8pinii>j?k̈́>~|ppn + {pnI:L ؅30,3L]8^933LAAJL ةޘг uv $ 8LЌ Le p>?@`>?@`BQ8`e 矮K ⟩ 䟢 춼LK  z KɍKL"?`  L@3 @LtJ)s@J % `͘?s?,E30ɍФ3 +E3HD F3 Ʉ%h3 M +E  LthɍLL3`3,A0s0% I`O>0O  矢POپھ p AH־Ǿh۰8L"־Jjjjɾ)Ⱦ8 + OL L$L>(F`־ؾپھ׾` Ʉ +KDEF L LK K% ʽ  ٚ,S` w $݅3`(l8L"3L>(Ƀ,`3,G0]ɾ ` w`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O c־Jjjj 왻ɠ, XLޭBDEF޾ p 7 ޾ p($ذ (0 U( L?ԦʚLeةީ s +  L ,FL,DLE,C0!3 > Ɉ 3ɾL(3ɾ;Ƀ UB94 H06172839h` 97L75v^͘ ?/( ?LKLLɍ$?`? ɍɥAH93827160hH46576879h`,C Lޛ $0. ɍ  ,S0 ?@ L L btR莪Ta 0a [HT ph(K,Lǧ/A5ʩJ _V zrTJ6LySLا [AJ w@V k38`J" zʩ @V zЧ z ( zЖabT)!J B8`@U)9VJ T)h*I/W) VV }>S ?@$I0 U)VJ *T)`l8`a HbIJhjǾȾɾ p٭b=aIe f`8` yP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ۵ 5W) )W)@! pZ}ȾȾ޾,N0MHhHh p' ,N HCNh`M`M N `޾Lp yh־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne`_ 2Ͼ pH h8`jGMоM  G):_`蹀:`V)8`MN; ;`;C N8` G)̀#:蹀:`V)R y pH h8`Ͼо־ǾҾ_` EӾ pW) |LC`C N `9V) ß ` V) y޾ p` y (8` 8`8`(W)`_V)Ij!؍Í`_ jЭW)з#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ p pY)ικ`lP y*,N!ǾȾɾʾ pǾ~H Uh8`8`,C U  8` 2ȾɾM$ mHݓǾ phϾ A ԟ ` ])Y 񩢍`Ⱦɾ0Ǿ p)莼 * 6 w= l& l8Hh l` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-ˌھپLp k V)@W0!XY aX6Y7` a YX`X:Y;τ<:: <`:8`'OV)Jj *f a  ԟ  ԟ ⟭ + +:ji  ԟɃ B , ԩ p`SW)0پȾھɾ p p 3LjÍ L I 9 1׾ؾ  p p 3 H h(`׾ؾ`  ߭׾t8퍼mؾŰ펼t폼 L8` `F`4W)ɐ/XYjV) *8` h e`l׾ XYW0V):W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pSɐ"jÍgh I @8gȾhɾʾg׾hؾ  p hgͺ칾`L3V)jC mMjà Lp `VJJ°LyLp *)< LA * LAW)8VJưϥ3 ⟢BT eօ ܬ L s򩣍S3 Ly B# e $L? L Y kimljn`  pg׾mȾXhؾmɾYtѮȾɾ YX`8gM CgIY2m*b6>BSAVERIFYBLOADELETECATALOGOPENWRITEXECREATEFRES6:1330DD$;"PREFIX,D1"<NCV12ĺ(4);"RUN HCJDIR"X"TO USE THE PRODOS DISK FORMATTER PLACE":PF$;" IN DRIVE ONE AND "::"RUN STARTUP":bD$;"CAT"l:v1250:VO""::P$"HOME COMPUTING JOURNAL":3::1230:P$"PRODOS DISK FORM41)(KB136KB139)2(KB138KB149)3510,470,490> 450W CVCV2:CV12CV12` 500y CVCV2:CV16CV16 520:440  I12162 CVIĞ I:8:OP$(I25)::I: &20((P$)2):P$: 0CV25570,570,630 ::HI25L":550:13306 7::P$"ON DISK VOL. "VN$::550Q 10:4:"YOUR CHOICE:"` CV12:520 18:P$"MAKE SELECTION WITH THE ARROW KEYS":550:P$"THEN PRESS RETURN":550 KB0:1370:(KB136)(KB138)(KB139)(KB149)(KB141)4405 (KB1 MISMATCH,PROGRAM TOO LARGE,NOT DIRECT COMMAND,SYNTAX ERROR r DIRECTORY FULL,FILE NOT OPEN,DUPLICATE FILENAME,FILE BUSY,FILE(S) STILL OPEN | "LOAD HCJ DIRECTOR","EXIT TO APPLESOFT BASIC","FORMAT A PRODOS DISK" :::5:P$"HOME COMPUTING JOURNA JE12Ĺ116,96:220K T:12:"YOU NEED TO RE-BOOT TO USE THIS DISK"Q ^= h RANGE ERROR,NO DEVICE CONNECTED,WRITE PROTECTED,END OF DATA,PATH NOT FOUND,PATH NOT FOUND,I/O ERROR,DISK FULL,FILE LOCKED,INVALID OPERATION,NO BUFFERS AVAILABLE,FILE TYPE;=>?@ABCDE(4);"BLOAD LINKUP"4 (4);"BLOAD FORMBUILD"? 20992y D$(4):CR$(13):ES$(27):BP$(7):ER$(21):OP$(3) I221:ER$(I): I13:OP$(I):I "D$;"PREFIX" ,PF$ 6VN$(PF$,(PF$)1,1) ;D$;"PREFIX /": @E(222):216,0d **********************;n * HC JOURNAL STARTUP *Xx **********************m COPYRIGHT 1986 HOME COMPUTING JOURNAL VERSION 1.0  APPLE II FAMILY - APPLESOFT 220390560190HI(116):320 L5LLL"L  KN)_ `@S8` ԠŬLL<[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TŠӠŠҠüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,CTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDx{[{0ǭ0hЫ}wA Xw­孶׭fl@@ -!S    !C- !ABELSDFRV@@ !$(19@EATTER":5::1230L6:P$"COPYRIGHT APPLE COMPUTER,INC., 1983-84":12308:"--FORMAT--":" THE VOLUME IN SLOT: (6)":15);"DRIVE:"13:" NEW VOLUME NAME:"(64435)6(64448)0C1:21:"THE APPLE IIC'S INTERNAL DISK DRIVE IS DESIGNATED AS SLOT(6), DRIVE (1)."N24:"--PRESS TO ACCEPT: TO EXIT";WSL6k10:23:"(1)";24:DR$:DR$CR$DR$"1":750DR$ES$210DR$"1"DR$"2"ĺ"1";BP$;:720DR$:DR(DR$)13:20:"(/ )"'15:PFH1100::DI:210;2E(222):L(218)(219)256:216,0<E6E7E8Ģ12:P$"PLEASE PLACE "PF$" IN DRIVE 1":1230:P$"PRESS [RETURN] TO CONTINUE":1230F1370:KB1411350P580ZKB(16384):KB127Ĺ16368,0:d1370VE ";DR;" IN SLOT 6";BP$;:DE1900::DI:210?E31300 24:DI13:1:39);:DE1200::1:"NO EXTERNAL DRIVE ON THIS APPLE IIC";BP$;:DE1900::DI:210E6E7940E81030(23:DI13:1:ER$(E);BP$;:DE1100::1:30);:DE::"EXIT TO APPLESOFT BASIC"F14:8::"FORMAT A PRODOS DISK":^20((P$)2):P$:SP1523:1:SP:40);:SP:1:24:39);:E(222):L(218)(219)256:216,0CE31280024:DI13:1:39);:DE1200::1:"THERE IS NO DRIE":17:1230:1150It(DP)51P$"DISK DRIVE MALFUNCTION":16:1230w~18:P$"PRESS [RETURN] TO CONTINUE":12301370:KB1411140210VT14121012:8::"EXIT TO APPLESOFT BASIC"14:8::"FORMAT A PRODOS DISK":12:8,((VO$,I,1)):L21505OV(DP)0P$"FORMAT COMPLETE":16:1230:1150`(DP)43P$"DISK WRITE PROTECTED":16:1230:P$"CORRECT AND RETRY":17:1230:1150j(DP)39P$"EITHER DISK IS UNFORMATTABLE":16:1230:P$"OR THERE IS NO DISK IN DRIVN PRESS WHEN READY"61370:KB1411040NDSDS0:1240:930j$DEVNUM%96(128(DR2)).16:1:39);:1:P$"FORMATTING"::1230818:1:39);:1::P$"/"VO$"/":1230BBP22842:DP20992:DP,DEVNUM%:BP,(VO$):I1(VO$):BPIRASH,D";DR1250-D$;"PREFIX,D";DR>D$;"PREFIX"GFD$Q1240w16:1:"DESTROY ";FD$;"? (Y/N)";1370:KB217KB2491060KB206KB238DS1:103010001240:1:16:"INSERT DISK TO BE FORMATTED IN DRIVE ";DR::"THE$)1):800^f((V$".")(V$"0"V$"9")(V$"A"V$"Z")(V$"a"V$"z"))ĺBP$;:800|pVO$VO$V$:(VO$)15800z22:VO$;BP$;V$:V$ES$V$CR$V$(8)ĺBP$;:900V$(8)VO$(VO$,(VO$)1):800V$ES$210 D$;"BLOAD TTHER PUNCTUATION.)";10)F 13:22:VO$;15(VO$)):(VO$)22:V$V*V$ES$210t4V$CR$VO$""ĺBP$;:800>VO$""(((V$"A"V$"Z")(V$"a"V$"z")))ĺBP$:800HV$CR$930RV$(8)(VO$)1VO$"":800 \V$(8)VO$(VO$,(VO$"ENTER NEW VOLUME NAME"::1230:: "(ANY PRODOS VOLUME NAME IS PRECEEDED BY A SLASH AS PROVIDED ABOVE. IT MUST BEGINWITH A LETTER AND MAY BE UP TO 15 CHAR- ACTERS LONG. IT MAY CONTAIN LETTERS, NUMBERS, OR PERIODS--BUT NO SPACES OR ""ANY OR U4R JYR`R`Lԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LPROT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!) >d `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RLnSOS BOO)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS jZ)1:"CURRENT GENERATION PARENT 1 OR 2:"Q1880:KB27ıJ0:(KB49KB50)670:14:35:(KB):P$(A2)X$(F,KB48):I.5:710B$""B$(27)(B$)0J0ı740 15:1:"NUMBER OF SAMPLES:":VT15:HT20:ML4:1920:B$"",A2):740JbB0ė:11::"YOU DON'T HAVE ANY MONEY":TD11500:TD:lE0ė:11::"NO PARENTS IN TOP WINDOW!!":TD11500:TD:v12:1:958:"BACK CROSS":"TOP WINDOW PARENT 1 OR 2:"1880:KB27ı(KB49KB50)640:13:27:(KB):P$020,1400,1430,1280:540X:B0ė:11::"YOU DON'T HAVE ANY MONEY":TD11500:TD:DF20ė:11::"CAN'T BREED PAST 20 GENERATIONS":TD11500:TD:NJ0:12:1:958:"CROSS BREED":710:J0B$(27)B$""ı XIA0:P$(A1)X$(F,A1):P$(A2)X$(F7)2:490Z:530Z "A & B DOMINANT","A DOMINANT","B DOMINANT","A & B RECESSIVE""ENTER 1 TO 10 CHARACTERS";(7):TT11500::(37):868:15901490:1540&1880:(KB49KB56)(KB27)550:KB27İ2290:5400KB48570,610,10:520:(37):440"LEVEL TWO"::"2 GENE PAIRS & 2 TRAITS":"TRAIT ONE:":TA1:430::"TRAIT TWO:":TA3:430:530"LEVEL THREE"::"2 GENE PAIRS & 1 TRAIT":ZA1A4:A$ :A$:"";W$(Z):(((W$(Z))11)((W$(Z))A0))500:520:(3KB49KB51)400:HKB48::H420,460,470j"LEVEL ONE"::"1 GENE PAIR & 1 TRAIT":::TA1:430:530"DOMINANT TRAIT: ";W$(T):(((W$(T))11)((W$(T))A0))440:520:6:430"RECESSIVE TRAIT: ";W$(TA1):(((W$(TA1))11)((W$(TA1))A0))45:::"LOAD PREVIOUS GAME (Y/N)?";:A$:(A$"Y"A$(121)A$"N"A$(110))370 A$"Y"A$(121)SF2:2320:(F$)0370:2430:540 :"ENTER SKILL LEVEL:"::"1) HIGH SCHOOL BIOLOGY"::"2) BIOLOGY MAJOR"::"3) GENETICS ENGINEER":1880+()LA$LA$LB$"B"& ER0:EL0:370I QQ0:ZC16:CH$DO$(ZC)QQ1Q :t "QQ0:ZC19:CH$DD$(ZC)QQ1| ,: 6QQ0:CH$DR$QQ1 @ JQQ0:ZC13:CH$AD$(ZC)QQ1 T: ^QQ0:ZC13:CH$BD$(ZC)QQ1 h: r2520T |11A"LA$"BB":DD$(5)"A"LA$"B"LB$:DD$(6)"A"LA$LB$"B":DD$(7)LA$"ABB":DD$(8)LA$"AB"LB$:DD$(9)LA$"A"LB$"B" DR$LA$LA$LB$LB$:AD$(1)"AA"LB$LB$:AD$(2)"A"LA$LB$LB$:AD$(3)LA$"A"LB$LB$:BD$(1)LA$LA$"BB":BD$(2)LA$LA$"B"LB$:BD$(3B1$" "VR$" "VR$" "VR$" "VR$:B2$" ---"VR$"----"VR$"----"VR$"----"VR$"----" DO$(1)"AA":DO$(2)"A"LA$:DO$(3)LA$"A":DO$(4)"BB":DO$(5)"B"LB$:DO$(6)LB$"B"w DD$(1)"AABB":DD$(2)"AAB"LB$:DD$(3)"AA"LB$"B":DD$(4)"PRSTUVWXYZ[\]^_`abcdefghi4,2),Z$(4,4),S$(4,4),V$(4),V(4),P%(4),DO$(6),DD$(9),AD$(3),BD$(3),CR$(4):DC$(4):LA$(97):LB$(98):ID((64435)6) B,A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,E,F,CR$(1),CR$(2),CR$(3),CR$(4):VR$(124) 100000,0,1,2,3,4,5,6,7,8,9,0,1,"*","-","<",">"j $(Z)V$(Z)(O)(Q):790 CH$(Z$(O,Q),4):290:Z1QQ:330:Z2QQ2:350:Z3QQ3:310:Z4QQ4:ZZ1Z2Z3Z4:V(Z)V(Z)A1:V$(Z)V$(Z)(O)(Q)Q,O:RA0:TV(1)V(2)V(3)V(4) ZA1A4:V(Z)RV(Z)T:RV(Z):Z*ZA1J:S(1):H1R(SV(A1))2:P%(R)P%(R)A1:830M4R1(SV(A1))(SV(A2))(SV(A3)):P%(R)P%(R)A1T>ZH23::ZA1A4(HA1)2:T$(Z64)") ":H2T$T$W$((Z.5.5)1)"/"W$(4((Z.5)(Z.5)))" "(P%(Z)):860RT$T$W$(Z)" "(P%(Z))\15Z:1:T$:Z:21:1GE:N2:1470#$GF:N6:1470:$12:"OPTIONS: FUNDS: $";B:" 1. CROSS":" 2. BACK CROSS":" 3. USE BIO-COMPUTER":" 4. SET GENERATION OF TOP WINDOW":" 5. GO BACK A GENERATION":" 6. TURN IN ASSIGNMENT"$V140:"-";::H1560,1570,15807%-------";:"PARENT 1 ";VR$;"PARENT 2 F: ";E:20);VR$:20);VR$:"----------------------------------------";#"PARENT 1 ";VR$;"PARENT 2 F: ";F:20);VR$:20);VR$:"----------------------------------------";$(F1E0)1530:X$(G,Z):2250:A3N:(A1(ZA1)20):W$(C):HA21480:A4N:(A1(ZA1)20):W$(D)_"Z:":"DESIGNER GENES - BIO LAB":"ASSIGNMENT: BREED FOR":VT2:HT24:T$G$(1):2220:HA11500:VT2:HT27:T$G$(2):2220z#"---------------------------------!x21:958:1:"ENTER GENERATION:"U!VT21:HT19:ML4:1920:(B$)F1420:1410m!E(B$):GE0:G10:!FA1E1Fı!21:958:22::"ARE YOU SURE (Y/N)?"!1880:KB891460:KB781450:!X$(F,1)"":X$(F,2)"":FFA1:V"ZA1A2:T$(16336):V2,V1> <B0ĺ"YOU RAN OUT OF MONEY...":1370D F P:"CONGRATULATIONS,":"YOU DID IT!":::"YOUR SCORE IS: ";HB Z19::868:"PLAY AGAIN (Y/N)?";:A$:(A$"Y"A$(121)A$"N"A$(110))1370 dA$"N"A$(110)ė:!n&(A2)((X$(F,Z),A3,A1))((X$(F,Z),A4,A1))(V(A3)((G$(A1),A1))((G$(A1),A2,A1)):V(A4)((G$(A2),A1))((G$(A2),A2,A1)):(V(A1)V(A3))(V(A2)V(A4))1360 2"SORRY, YOU DON'T HAVE THE RIGHT":"LIFEFORM DEVELOPED":BB50000:V1116:V2120:SO4);::1270T" DOMINANT":" RECESSIVE"::21:3:CR$(1);:22:3:CR$(2);:Z21:958:22::"WHICH PARENT (1 OR 2):" 1880:((KB49)(KB50))(KB13)1290KB131310:.21:ZKB48:V(A1)((X$(F,Z),1))((X$(F,Z),A2,A1)):V6*VT2:HT::V14:CR$(K);:::[:"BIO-":"COMP ";(B1$,(B1$)5):B1$:B2$V14:B1$:B1$:B1$:B2$::HA21260:" D.DOMINANT A DOMINANT":" D.RECESSIVE B DOMINANT" :21:3:CR$(1);:17:CR$(2);:22:3:CR$(3);:17:CR$(S$(O,Q)(Q$(O,A1),A2,A1)(Q$(Q,A2),A2,A1)z~IA11160:VTQA41:HTOA5A2:T$S$(O,Q):2220:2250:HTOA5A2:1170Q,O:H1180,1200,1190VT2:HT::V14:CR$(C);:::KC:1220K((CA1)A8(A5D)):K9KK3:1220KK(Z),OA2,A1)&B(IA1)(ZA2)1110LLVT3:HT(O(QA1)A2)A5A3:1120wVIA11130:VT(O(QA1)A2)A41:HTA4`T$Q$(O(QA1)A2,Z):2220jZ,Q,O:OA1A4(HA1)2:QA1A4(HA1)2:S$(O,Q)(Q$(O,A1),A1)(Q$(Q,A2),A1):HA11150.tS$(O,Q)958:"CODE FOR PARENT #2:":VT24:HT1:ML2((HA1))4:GE1:1920:GE0:G10:(B$)A11050:uIA1:1060:1030$P$(A2)B$" ".OA1A2:QA1A2(HA1):ZA1A2:HA11080:Q$(O,Z)(P$(Z),O,A1)" ":10908Q$(O(QA1)A2,Z)(P$(Z),Q,A1)(P$24:"GET ANOTHER (Y/N)?";F1880:KB781010:KB891000:870uBB((JA9(1))((EF)(I.5)A1))A1:123022::958:"CODE FOR PARENT #1:":VT24:HT1:ML2((HA1))4:GE1:1920:(B$)A11040:GE0:G10:`P$(A1)B$" ":22:: ":880123:1:"POSITION OF PARENT (1-2):"|1880:(KB49KB50)960:23:27:(KB):KBKB48:IA0970:FFA1:I.1Z((1)((V$(Q)).5)A1)A2A1:L((V$(Q),Z,A1)):M((V$(Q),ZA1,A1)):X$(F,KB)Z$(L,M)" "X$(F,1)""X$(F,2)""870:"E) USE BIO-COMPUTER"Cf22:1:958:"SAMPLE TO KEEP (A-D):"bp1880:(KB13)(KB27)980qzKB65880(KB66)(H1)(KB69)880KB6988022:23:(KB):KB69940UI:IA1:1020:IU:1490:840 QKB64:P%(Q)A1Ģ22:23:""DOMINANT: ";W$(A1)::"RECESSIVE: ";W$(A2):%""DOMINANT 1: ";W$(A1):"RECESSIVE 1: ";W$(A2):"DOMINANT 2: ";W$(A3):"RECESSIVE 2: ";W$(A4):&,"AB DOMINANT ";W$(A1):"A DOMINANT ";W$(A2):"B DOMINANT ";W$(A3):"AB RECESSIVE ";W$(A4): &617806&@ZA1A2:RA0ĭH1G$(2)" ":1640E&JRA01640&TG$(Z)((64Z)(32((2(1)))))((64Z)(32((2(1)))))&^Z2H1G$(2)" "&hRP01650:X$(A1,Z)(65(32((2(1)))))(65(32((2(1)))))&rHA1ĴRP1670:1680'|X16,0:ER2127404 ER2540,2550,2560,2570,2580,2590,2590,2600,2610,2620,2630,2640,2650,2660,2670,2680,2690,2700,2710,2720,27304 27404 :12:"RANGE ERROR...":"IN LINE ";EL:27505 :12:"NO DEVICE CONNECTED...":"ERROR CALLED IN LINE ";EL:27EAD ";F$@3 ZS12:P$(ZS),G$(ZS)::W$(1),W$(2),W$(3),W$(4)3 ZS120:X$(ZS,1),X$(ZS,2)::ZS14:Q$(ZS,1),Q$(ZS,2),S$(ZS,1),S$(ZS,2),S$(ZS,3),S$(ZS,4),V$(Z),V(Z),P%(Z):3 B,E,F,H3 DC$;"CLOSE ";F$3 4 ER(222):EL(219)256(218):2W$(3):W$(4)2V ZS120:X$(ZS,1):X$(ZS,2)::ZS14:Q$(ZS,1):Q$(ZS,2):S$(ZS,1):S$(ZS,2):S$(ZS,3):S$(ZS,4):V$(Z):V(Z):P%(Z):2` B:E:F:H2j DC$;"CLOSE ";F$2t 2~ 25202 DC$;"VERIFY";F$;",D1"2 DC$;"OPEN ";F$;",D1" 3 DC$;"R(KB49KB51)2300:KB512310:SF3:2320:(F$)02310:LSKB48:LS2430,2340V1 1 13::"ENTER FILE NAME: ";:"";F$:(F$)1523201 1$ 25201. SF118 DC$;"OPEN ";F$;",D1"1B DC$;"WRITE";F$2L ZS12:P$(ZS):G$(ZS)::W$(1):W$(2):(T$,A3,A2):270:DQQA4<0CH$(T$,A2):270:CQQA2:0CH$(T$,4):290:C1QQ:330:C2QQA2:350:C3QQA3:310:C4QQA4:CC1C2C3C4:07::958:"SELECT ONE:"::" 1) LOAD PREVIOUS DATA"::" 2) SAVE DATA"::" 3) EXIT SCREEN"P11880:CL0G11B$" "#/CL022008/B$(B$,(B$)1)X/HTHT1:HT1HT40:VTVT1p/VT:HT:" ";:1930/V1(T$):TT$(T$,V,1):IDĭTT$LA$TT$LB$Ğ:VT:HT:((TT$)32)::2240/VT:HT:TT$/HTHT1::/H2270,2260,22800CH$(((B$)A2)(A$"B"A$LB$))(((B$)A2)(A$"A"A$LA$))2000h.>CLCL1:CLMLČ198:CLCL1:1930.HB$B$A$:IDĭA$LA$A$LB$Ğ:((A$)32);::2140.RA$;.\HTHT1:HT40HT1:VTVT1.f1930.pCL0Č198:1930/zCLCL1:CL0B$"":LB$)(A$"A"A$(8)A$(13)GE1))2000:2010D-198:1930h-A$(8)2160:A$(13)ĭGE0ı-A$(13)G11B$(B$,2):B$" "1920-A$(13)2100-(B$)0ı-H12080- (B$)21930-- (B$)41930-*A.4GE1ĭKBKB32,v.,B$"":CL0:G11B$" ">,VT:HT:A$X,A$(1)A$"a":1960l,A$(2)A$"b",((A$"0")(A$(1))(A$(2))A$(8)A$(13))2000,A$(1)A$LA$,A$(2)A$LB$4-((A$"A")(A$"9"))((A$"B")(A$LA$A$+:11::"PARENT #1:":VT12:HT12:ML4(H1)2:GE1:1920:(B$)01850:X$(1,1)B$+D13::"PARENT #2:":VT14:HT12:ML4(H1)2:GE1:1920:(B$)01860:X$(1,2)B$+NGE0::G10:+XKB(16384):KB1281900+b1880 ,l16368,0:KBKB128:KB95B$,2)_*11::958:"SELECT ONE:"::" 1) RANDOM PARENTS"::" 2) MAKE YOUR OWN PARENTS"*&1880:(KB49KB50)1830:RP(KB50):RPGE0:G10:+05::958:"ENTER PARENTS GENETIC CODE"::"E.G.":T$("A"LA$"B"LB$,4(H1)2):VT8:HT6:2220U600:1590)d)11::958:"SELECT ONE:"::" 1) RANDOM SOLUTION"::" 2) USER'S SOLUTION")1880:(KB49KB50)1790:RA(KB50):RA1RP1:)17::"SOLUTION:":VT18:HT11:GE1:ML4(H1)2:1920:B$""1800*G$(1)(B$,2):H1G$(2)((A$,Z,A1)):3(Q10Q20Ĵ(RARP)1600:1590Q(ZZ1:Z(A$)1730:1690(X00:Z14(H1)2:X0X0((A$,Z,1)):Z(X10:Z14(H1)2:X1X1((X$(1,1),Z,1)):Z(X20:Z14(H1)2:X2X2((X$(1,2),Z,1)):Z )X0X1X0X2Ĵ(RPRA)1$(A1,Z)X$(A1,Z)" ":1680a'X$(A1,Z)X$(A1,Z)(66(32((2(1)))))(66(32((2(1)))))'Z:A$G$(A1):Z1:H11700:A$A$G$(A2)'Q10:Q20(JJ12(H1)2:Q1Q1((X$(A1,A1),JJ,A1)(A$,Z,A1))::JJ12(H1)2:Q2Q2((X$(A1,A2),JJ,A1)5025 :12:"DISK IS WRITE PROTECTED...":2750]5 :12:"END OF FILE ENCOUNTERED":27505 :12:"FILE CAN'T BE LOCATED":27505( :12:"DRIVE DOOR IS OPEN, OR THE DISK IS NOT FORMATTED...":275052 :12:"THE DISK IS FULL...":2750d6< :12:"THAT FILE HAS BEEN LOCKED. YOU MUST UNLOCK THE FILE FROM DOS BEFORE YOU CAN SAVE TO IT.":27506F :12:"INVALID OPTION...":27506P :12:"THERE IS NOT ENOUGH MEMORY LEFT FOR THE DISK BUFFER. FILE CAN'T BE OPENED.":2750"7Z :12:"THAT FILE IS I:PGWP(0):460YWP(VL)0āIT1LZ:WP(VL)IT((WL(IT))):(WP(VL)0)730::WP(VL)LZr880:PGWP(VL):460:880:960::: PAGE LOADER:10:5:"LOADING PAGE ";PG  WL(PG)0WL(PG)1:JI04:WP(JI)0::JI128:LN$(JI)(BK$,ET(JTURN TO:":IN$"":VL0:LN$(0)" ":ET(0)2:HX26:VX10:LP11880:(IN$ESC$IN$CT$(4))740:(LN$(0))LZ(LN$(0))1ĺBL$;:670(LN$(0))PG480:PSPG:880:PG(LN$(0)):460::CT3:710 EXECUTE BRANCHPS(12(CT3))PG:PS1İ880N$(0)))" ",2);::(LN$(0))0ĢVX:1:" ";v(IN$ESC$CT4)2(CT5)3(CT3)530,580,690:(LN$(0))0(LN$(0))LZĺBL$;:600WP(VX20)(LN$(0)):(WP(VX20)0)550:VLVX20:710:: SELECT PAGE FOR BRANCHING<:10:1:"ENTER A PAGE TO 60,600,710,740,580* D1400:VX2:500::E N EDIT BRANCH POINTERS XWP(VX20)0āIT1LZ:WP(VX20)IT((WL(IT))):(WP(VX20)0)610::WP(VX20)LZ b:VX:1:WP(VX20);/lVL0:LN$(0)((WP(VX20))" ",2):ET(0)2:HX1:LP1:1880:VX:1:(((L(VX25):LPLP(IN$CR$)(LP1):490C CT740,660,710,740,540::W  EDIT BRANCHESn 1350:IN$"":VX21| &HX9:LP1 0VLVX4:1880:IN$CR$IN$DN$IN$UP$VXVX(IN$UP$)(IN$UP$):VXVX4((VX25)(VX20)):LPLP(IN$CR$)(LP1):560 :CT5 PG0İ1150:PS0:PG1:IN$ESC$IN$CT$(4)ıM 770:PS0480:WP(0)PSa 1310:VX2:LP1k PSPG HX1(VX1)8:VLVX:1880:% IN$CR$IN$DN$IN$UP$IN$CT$(1)VXVX(IN$UP$IN$CT$(1))(IN$UP$)(VX1)(IN$CT$(1)):VXVX24(VX0)23181:BR(IN$CT$(5))3(IN$CT$(3))4(IN$CT$(4))341,342,345,347:X(IN$):X1X4330:WP(X)0330:PR(WP(X))PG:PGWP(X):310 U1360:BR2:330 V1400:BR1:330 YXPR(PG):X0330:PGX:310 [:::  WRITE A PAGE 1040:1260:PG1:PS01jlmnopqrstuvwxyz{|:  INITIAL MENU MN$(0)"WORDWEAVE":MN$(1)"1. READ ":MN$(2)"2. WRITE ":MN$(3)"3. PRINT ":MN$(4)"4. PREPARE DISK":MN$(5)"5. QUIT ":MC(0)5:2000:2050 ::: " READ ,1040:1260:PG1 6770:1310:BR1 J2d *************)n * WORDWEAVE *=x *************R COPYRIGHT 1986o HOME COMPUTING JOURNAL VERSION 1.1  APPLE II FAMILY APPLESOFT23702240270:(LV0LV5)250:LV300,450,1420,1620:240 ::::S BEFORE BEING TERMINATED.":2750c9 :12:"OOP'S, FOUND ERROR # ";ER::"AT LINE NUMBER ";EL:9 16:"PRESS ANY KEY TO CONTINUE:";:A$::3288:SF2420,370,2290ORY.":275018 :12:"FILE NOT OPEN...":2750[8 :12:"FILE ALREADY EXISTS...":27508 :12:"THAT FILE IS BUSY. IT WAS NEVER CLOSED BY THE LAST PROCESS":2750#9 :12:"FILES HAVE BEEN LEFT OPEN!!!!"::"THE LAST PROGRAM FAILED TO CLOSE ALL FILENCOMPATIBLE - WRONG TYPE.":2750f7d :12:"NOT ENOUGH MEMORY TO CONTAIN THE ENTIRE PROGRAM.":27507n :12:"COMMAND MUST BE IN A PROGRAM.":27507x :12:"ILLEGAL FILE NAME":2750 8 :12:"DIRECTORY IS FULL. THERE ARE 51 FILES INTHE VOLUME DIRECTI))::::-WL(PG)1:X$("00"(PG),2):K D$;"OPEN";BF$;X$;",D"DR$*D$;"READ";BF$;X$:OP0:JI04:WP(JI):OPOP((JI0)(WP(JI)0)):4IT128:LN$(IT)"">LIN,LN$(IT)HIT:RD$;"CLOSE"\:::f PAGE SAVER p:10:5:"SAVE PAGE ";PG&zX$("00"(PG),2):DD$;"OPEN";BF$;X$;",D"DR$rD$;"WRITE";BF$;X$:OP0:JI04:WP(JI):IT128:LN$(IT):D$;"CLOSE"::: SAVE TITLE PAGE:10:5:"SAVE TITLE PAGE"20:D$;"OPEN";BF$;"00,D";DR$K XGC1:VCVX:LMET(VL):IT1LM:ET$(IT)(LN$(VL),IT,1)::LPLMLPLM bHCHXLP1:IN$ET$(LP):2160:((IN$)31(IN$)127)ET$(LP)IN$:LPLP(LPLM):1890 lIN$LF$IN$RT$LPLP((IN$RT$)(LPLM))((IN$LF$)(LP1)):1890!vIN$UP$IN$DN$$;"WRITE";BF$;"00"DTL$(0):TL$(1):IT1LZ:WL(IT)0:WL(IT):uD$;"CLOSE":IT128:LN$(IT)(BK$,ET(IT)):{&D$;"OPEN";BF$;"01,D";DR$0D$;"WRITE";BF$;"01":JI04:WP(JI)::JI128:LN$(JI)::D$;"CLOSE"D::: N LINE ENTRYE ";DR$;".":15:1:"DO YOU WISH TO CONTINUE? (Y/N)"qVC15:HC39:GC0:2160:IN$"Y"ĺ"NO":DI1750:::20:5:"WORKING...":24:1:EOL:19PS0:PG1IT0LZ:WL(IT)0::IT04:WP(IT)0:20:D$;"OPEN";BF$;"00,D";DR$D10:LN$(0)TL$(0):ET(0)(LN$(0)):VL0]1880:IN$ESC$1860:IN$CR$1680:TL$(0)LN$(0)fLP1VX8:LN$(0)TL$(1):ET(0)(LN$(0)):VL01880:IN$ESC$1860:IN$CR$1710:TL$(1)LN$(0)712:1:"INSERT A FORMATTED DATA DISK INTO";CR$;"DRIVBRANCHES TO PAGE "WP(IT);-,::::222056PI>@:::QJ PREPARE DISKT:2:8::" PREPARE A WORDWEAVE DISK ":^24:9:"PRESS TO LEAVE";h6:2:" TITLE: ":8:1:" AUTHOR: "rIT01:TL$(IT)(BK$,30):|LP1'VX6:HX1590PGPI:770:2200?"<";:IT175:".";::">";CR$y"PG. ";((" "(PG)),2);2);LN$(1);2);"OPTIONS "OPIT224:LN$(IT):IT125:"-";::"BRANCHES";:IT125:"-";::"IT14:IT". - ";LN$(24IT);:WP(IT)0ĺ" -> THIS P2P1:LN$(0)((P2)" ",2):VX11:VX:HX:LN$(0)LP1:1880:IN$ESC$1600:VX:HX:(((LN$(0)))" ",2);:(LN$(0))P1(LN$(0))LZĺBL$;:1470P2(LN$(0)):24:1:EOL:15:10:"PRINTING...":DI1750:1040PIP1P2(WL(PI))S TO LEAVE";H7:5:"FIRST PAGE:";:11:6:"LAST PAGE:":P11VX7:VL0:LN$(0)((P1)" ",2):ET(0)2:HX17:VX:HX:LN$(0)LP1:1880:IN$ESC$1600:VX:HX:(((LN$(0)))" ",2);:(LN$(0))1(LN$(0))LZĺBL$;:14504P1(LN$(0)):(WP(IT))" ",2);:?d4:"<";IT;"> ";:LN$(24IT);:::::\n REPLACE BOTTOM 5 LINESxOP0:IT2024:IT:1:EOL:LN$(IT);:OPOP(WP(IT20)0IT20)::1:39::OP;::::: PRINT:2:X$" PRINT A STORY ":((X$)2)::X$::24:9:"PRES1:LN$(IT);:2::::< BOTTOM 4 LINES WITH PROMPTF20:1:EOL:"---------------";::"BRANCHES";::"----------------";:1370::::P20:1:EOL:"---------------BRANCHES----------------";:1370::::ZIT14:20IT:1:EOL:WP(IT)0Ğ:(E DISK TITLE PAGE ":A17:6:"PRESS ANY KEY TO TURN PAGE";v6:2:" TITLE: "TL$(0):8:1:" AUTHOR: "TL$(1) VC17:HC34:GC0:2160:::: PRESENT PAGE::1:1:BK$:1:"PG. ";PG;:31:"OPTIONS ";OP;::1:9:LN$(1);(IT224:IT:0)):VL0K1880:IN$ESC$IN$CT$(4)1240:IN$CR$1200:TL$(0)LN$(0)TLP1VX8:LN$(0)TL$(1):ET(0)(LN$(0)):VL01880:IN$ESC$IN$CT$(4)1240:IN$CR$1230:TL$(1)LN$(0)960:::: DISPLAY TITLE PAGE:2:8::" WORDWEAVVIT1LZ:WL(IT)::)`D$;"CLOSE"2j:::Ht EDIT TITLE PAGEw~:2:8::" WORDWEAVE DISK TITLE PAGE ":24:9:"PRESS TO EXIT";6:2:" TITLE: "TL$(0):8:1:" AUTHOR: "TL$(1)LP1 VX6:HX10:LN$(0)TL$(0):ET(0)(LN$(D$;"WRITE";BF$;"00"ATL$(0):TL$(1):IT1LZ:WL(IT):QD$;"CLOSE"Z:::p LOAD TITLE PAGE:10:5:"LOAD TITLE PAGE"20:$D$;"OPEN";BF$;"00,D";DR$.D$;"READ";BF$;"00"8IT01:TL$(IT)""BLIN,TL$(IT)LIT1980!IN$CR$LP1:1980d!CI17:IN$CT$(CI)CTCI:CT1980,1980,1980,1980,1980,1950,1960v!:BL$;:1890!ET$(LM1)" ":CILPLM:ET$(CI)ET$(CI1):ET$(CI);::1890!CILMLP1:ET$(CI1)ET$(CI):CILMĢVC:HXCI:ET$(CI1);":ET$(LP)" ":VC:HC:" ";:1890X"LN$(VL)"":CI1ET(VL):LN$(VL)LN$(VL)ET$(CI):::::m" CONFIGURE MENU":X11MC(0):MC(0)02020"IT1MC(0):MN(IT,0)X2(IT1):MN(IT,1)((39(MN$(IT)))2):"MN$(0)" === "MN$(0)" === "":::::#6:K:Z,K:5 @(2070)16āZ20702314:K:Z,K:? J1400V T RE-ENTRY POINTg ^TG0:SC(1)0 h::6:1:0:232,22:233,8 rZ07:Z,144ZZ,7Z173,7Z:183,7Z279Z,7Z279Z,144ZZ,144Z:! |Z14:X02:5(X1):11(PO(Z)X)714,}A0210 :::::3 (104)64270H 104,64:16384,0` (4);"RUN DIGDUMP" SOUND768:OP$(3),PP(4),PN(15),PS(4,8),USED(15),PO(4),B(4),SC(1) Z015:PN(Z): "Z14:PO(Z): ,Z14:X02(Z1):PS(Z,X):X,Z 6Z76878d ********************7n * DIGITAL DUMPSTER *Rx ********************g COPYRIGHT 1986 HOME COMPUTING JOURNAL VERSION 1.0 APPLE II FAMILY APPLESOFT230 14XX,YY:XXXXXI:YYYYYI:14XX,YY:SOUND,SN:SNSN3:AA1:2460:"VOLUME HAS 51 FILES.";:2470W+ :20:1:" DISK ERROR - ";::BL$;BL$;::::+ :23:1:"PRESS RETURN TO CONTINUE...";+ 23:29:IN$:IN$CR$2480+ )::::T*` 2460:"WRITE PROTECT TAB";CR$;" IS ON DISKETTE.";:2470:y*j 2460:"FILE NOT FOUND.";:2470:*t 2460:"DISK DRIVE DOOR OPEN?";:2470:*~ 2460:"TOO MANY FILES ON DISKETTE.";:2470* 2460:"THE FILE IS LOCKED.";:2470:&+ 227,32,123,218,96,32,139,190,170,76,18,2122). F)8 ERROR HANDLER\)B X(222):3288:)L D$;"CLOSE":(X4)2(X5X6)3(X8)4(X9)5(X10)6(X17)2400,2410,2420,2430,2440,2450*V ::10:1:"ERROR NUMBER "X" ";:"AT LINE "((218)(219)256&($ "T","G","[","X","B","D","I"2(% NU,LINN(& I0NU1:X:LINI,X:,)' 60,768,32,6,227,32,190,222,32,227,223,133,133,132,134,169,255,197,17,240,5,162,163,76,18,212,32,0,191,202,213,190,208,21,172,219,190,169,0,153,255,1,169,0,160,2,162,0,32,233,ET$(41),LN$(28),MN$(8),MN(8,1),MC(2),WL(100),WP(5),TL$(1),CT$(7)v'PR(51),SF(101),P$(66),PP$(8),PP(8),PB(8),PT(8)'ET(1)20:IT224:ET(IT)39::IT2528:ET(IT)31:'DR$"1"'BF$"WT."' LZ50:PG1:PS0( IT17:X$:CT$(IT)((X$)64):0:$&:: HANDLE PRINT CHANNEL*&=&D$;"PR#1":::P&D$;"PR#0":::e& INITIALIZATIONq&D$(4)&BK$" ":ESC$(27):LF$(8):RT$(21):UP$(11):DN$(10):CR$(13):BL$(7)&EOL868B'ET(28),MN$(MI),1)LVMI:MC(1)LV:2070)%HMI3%R2080>%\:::::R%f GET CHARACTERk%p:VC:HC:IN$"":IN$%z((IN$)31(IN$)127)GCĢVC:HC:IN$;%GC1::::::% GET CHAR WITHOUT PROMPT%IN(16384):IN1282182&IN$(IN128):16368,MC(1),1)::MN$(MC(1))::LVıt$ VCMN(MC(1),0):HCMN(MC(1),1):GC0:2160:IN$ESC$2140:IN$CR$LVMC(1):2140$*IN$LF$IN$UP$MC(1)MC(1)1MC(0)(MC(1)1):2070$4IN$RT$IN$DN$MC(1)MC(1)1MC(0)(MC(1)MC(0)):2070!%>MI1MC(0):IN$( OPERATE MENUv#LV0::1:((39(MN$(0)))2)::MN$(0)::24:9:"PRESS TO EXIT";:MC(0)0Ģ22:1:EOL:# MC(1)1:MC(2)MC(1):IT1MC(0):MN(IT,0):MN(IT,1):MN$(IT);: $MN(MC(2),0):MN(MC(2),1):MN$(MC(2)):MC(2)MC(1):MN(MC(1),0):MN(144:11(PO(Z)X)714,151:X,Z( 3C X25:Y0:A6:B3:1190k Z193112:XZ:Y4:A3:B2:1190: Z16346:XZ:Y7:A2:B2:1190: Z15363:XZ:1240: Z14:3:2(4Z)120,PS(Z,0)88 1:YPS(Z,0)85:X05:30X,YX76X,YX:30X,YX76X,YX:X,Z; 1040:1720:1760:X0:670P  MAIN GAME LOOPj TR15:X0:780:FLAG0 (WI0PACA)İ1280 (WI0PACA)İ1290 WI11340 WI1 K(16384)128:K0530 16368,0 &K("8")X1:670 0K("4" Z139A$"?"::LV1(LV2ZOPP)A$OP$(Z):N23:PO(Z)4:A$V:\&0Z14:23:PO(Z)1:PP(Z)0ĺ(95)(95);(95);:PP(Z)0ĺ" "PP(Z)" "DNX PROGRAM DATAb15,16,18,19,21,22,24,25,27,28,30,31,33,34,36,372)" "PP(3)" "PP(4) 0 MISC. ROUTINESC1520:CA(AN)YZ14:PP(Z)1:~CA$(CA):WI1:SC(0)LV250330TGTG1:23:38)V1:Z14:B(Z)0::Z115:USED(Z)0::OPP((1)3)122:3:"GOAL:":23:2:5(CA$));CA$1!6Z1ĭPP(Z)PP(Z1)1580>@Z2ĭPP(Z)PP(Z2)1580[JZ3ĭPP(Z)PP(Z3)1580aTn^ANPP(1)yhZ13rOP$(Z)"+"ANANPP(Z1)|OP$(Z)"-"ANANPP(Z1)OP$(Z)"*"ANANPP(Z1) VTAB 15: HTAB 2: PRINT PP(1)" "PP(-4)";:21A$:K(A$)7K("1")K("4")1470KLVK48:LV4ıS:q GENERATE RANDOM PROBLEM|Z13OP$(Z)("+-*",((1)3)1,1)Z1ĭOP$(Z)OP$(Z1)1530Z2ĭOP$(Z)OP$(Z2)1530"Z14,PP(Z)((1)15)PSTER "310:9)"1) ......... APPRENTICE"W:9)"2) FIELD REPRESENTATIVE"{:9)"3) ......... SUPERVISOR":9)"4) ....... EXIT PROGRAM"TG1Ģ22:6)"TOTAL SCORE = "SC(1);26)"IN "TG" GAME";:TG1ĺ"S" 20:13:"CHOICE :? (121:" GOOD JOB. YOUR SCORE IS : "SC(0)^FSC(1)SC(1)SC(0):18)"TOTAL SCORE : "SC(1)P:" KEEP PLAYING THE SAME LEVEL (Y/N) :Y"(8);:A$ZA$"N"İ1400:350d360n DISPLAY MENU x:::Z46:Z:7:27):::5:8:" DIGITAL DUM8,YX8,Y48X9,Y48X9,Y:X,Y23X,Y483J DISPLAY MESSAGESjA$" ANSWER TOO LOW ":1300 A$" ANSWER TOO HIGH ":22:21(A$)2::A$:24:7:"PRESS ANY KEY AND TRY AGAIN: ";:A$(:1840:1780:2 END OF GAME-<::YI8:A5:210:14XX,YY ; GRAPHICS SUBROUTINESWXX7:YY8:AA7:BB8X1,YX1,YB1XA2,YB1XA1,YB2XA1,YB8X7,YX7,YB1XA4,YB1XA7,YB2XA7,YB8XA1,YB8XA7,YB8XX7:Y80-X1202$Z9Ĕ2PN(Z)76,112:Z9PN(Z)76,1208.T8Z14:PP(Z)1::1840ZBuL ANIMATE FALLING BALLVXX175:YY0:SN2:14XX,YY`Z14jXI0:YI8:A3:210tXI7(XX(PN(L)77)):YI0:A(5Z)2(Z1):XI0İ210~XI0USED(L)āY110:SOUND,255::@USED(L)1:SC(0)SC(0)10J1110tTRPN(L)VL:X250050:SOUND,X:0:11PN(L)76,112:11PN(L)76,120 REINIT. NUMBERSSC(0)SC(0)1003:Z015:USED(Z)0Z10ĔZ1PN(Z)76,X0āX16:SOUND,255:SOUND,155:::\SC(0)SC(0)10Yf:23:PO(X)1:" "V" ";:upY1018010:SOUND,Y:zPP(X)V:1840Z14:PP(Z)19301630:PAAN:WI(PACA)V1: PUT IN TRUCKLB(1)8B(2)4B(3)2B(4)# MOVE TRUCK7 OLDTR:TRTRX:XXOLD77JTR9TR9:X0_ TR38TR38:X0*Z13:XI(2(Z2))(X):0:15XX,136:3:15XXXI,136:XXXXXI:SN(16336)(16336):4> DUMP & CHECK FOR WINHX0:Z14:TRPO(Z)XZ'R:X)(B(X)1)FYPS(Z,0)88:1:1114OLD44,Y:1114OLD41,Y:01114B(Z)44,Y:1114B(Z)41,Y:3:B(Z)114B(Z)42,YY12(Z1):0:XXPS(Z,Y)7:YYPS(Z,0)880:12OLDXX7(Z4OLD),YY:3:12B(Z)XX7(Z4B(Z)),YYYZ)X2:670# :K("2")X3:670: DK("1")X4:670R NK(" ")V0İ840f XK("0")İ1030u bK13İ950 lK27İ1400:350 vK08X1:780 K21X1:780 490  MOVE SLIDERS Z14 ZXX0750OLDB(Z):ZXB(l13,21,29,37v4,25'7,19,31;10,16,22,28,34[13,15,18,21,24,27,30,33,3632,76,231,160,16,138,234,202,208,252,44,48,192,170,136,208,245,96,0316,0,34,0,45,0,54,0,65,0,76,0,85,0,96,0,108,0,117,0,132,0,145,0,170,0,186,0,199,0,207,0,0,0,17,54,54,14,45,32,36,36,59,7,0,10,33,49,54,5421,63,7,0,10,12,45,50,30,63,50,46,45,5,0,10,12,45,50,31,42,21,54,59,63,0,49,54,46,53,10,36,36,36,0,9,9,63,55,54,45,21,54,59,63,0,9,9,63,23U54,54,14,45,32,28,55,0,10,44,45,54,51,30,54,6,0,18,9,17,6MO" 90002 :5:11:"SOUND ROUTINE DEMO"T 10:11:"[1] NOISE COMMAND"v 12:11:"[2] SOUND COMMAND" 14:11:"[3] PLAY COMMAND" 20:"SELECT ONE:"; K$:K$"1"K$"2"K$"3"K$(13)ČNOISE,9:260 K$(13)ė:( S d ************************?n ** SOUND ROUTINE DEMO **^x ************************s COPYRIGHT 1986 HOME COMPUTING JOURNAL VERSION 1.0 APPLE II FAMILY APPLESOFT (104)64Ĺ104,64:16384,0:(4);"RUN SOUNDDE9,169,141,32,237,253,174,239,3,240,16,202,240,7,173,131,192,173,76,191,157,76,132,157,76,253,170,76,181,183,173,15,157,172,14,157,96,173,194,170,172,193,170,96,76,81,168,234,234,20,3,32,58,219,173,239,3 32,218,253,169,141,76,237,253,66,65,78,75,32,0,169,128,145,26,209,26,208,7,74,208,247,138,145,26,96,138,145,26,174,239,3,240,12,202,240,6,173,130,192,24,144,3,173,138,192,32,45,255,169,160,32,237,253,166,26,164,27,32,64 24169,208,133,27,169,2,141,239,3,32,112,3,173,131,192 173,131,192,32,77,3,165,27,208,249,173,130,192,96,165,26,133,254,165,27,133,255,160,0,177,26,170,165,26,201,218,144,6,32,141,3,24,144,3,32,218,3,230,26,208,224,230,27,96,169,141,32,237,253,169,135,16" ERROR IN DATA STATEMENTS "::T :"TESTING"::768::"DONE":5 169,0,133,26,133,27,141,239,3,32,77,3,165,27,201,192,208,247,169,208,133,27,169,1,141,239,3,32,112,3,173,139,192,173,139,192,32,77,3,165,27,201,224,208,247,173,138,192,d *********!n * RAMRX *1x *********F COPYRIGHT 1986c HOME COMPUTING JOURNALw VERSION 1.0  APPLE II FAMILY APPLESOFT:"STORING MACHINE LANGUAGE";I7681007:D:CCD:I,D:".";:I:0 C30801ė::(7);,27,27,27,27,27,19,18,50,46,36,36,41,53,54,63,54,37,45,44,54,37,44,46,45,36,36,12,45,45,21,54,54,59,62,60,55,0,03,32,12,45,50,22,54,59,7,32,4,0,18,9,17,63,32,12,45,50,54,30,30,63,0,54,54,54,46,3636,36,44,54,54,54,46,36,36,36,44,54,54,54,46,36,36,36,36,0,9,9,9,54,54,54,62,36,36,23,50,62,60,62,63,0,54,54,54,46,36,36,21,50,46,44,46,45,0,18r9,45,58,63,14,45,0OUND,40,35:K$:(K$)290,340,410:210R "I1800:I::5:13:"NOISE COMMAND" ,8:8:"ENTER A NUMBER 0-255.":8:"PRESS [RETURN] TO EXIT." 614:"ENTER NUMBER:";S$:S$""ı @N(S$):N0N255Ģ20:13:"OUT OF RANGE";(7):290 J20:13:"CA  END PROGRAM 3 :"THANKS FOR PLAYING":T ER$(21):I221:ER$(I):: p:E(222):216,0:EL(218)256(219) z24:E21E$"ERROR #";E;" IN LINE ";EL:6050 E$ER$(E) I15:4:E$;:J1100::4:858:(7);:J1100::: @ SELECTION HAS BEEN MADE 3:22::"ENSURE HCJ DISK":22:"IS IN DRIVE 1":22:"AND PRESS ";::"RETURN"::22:"OR ";::"ESC";::" TO CANCEL" 9010:K13K27ī402 K13410 I36:I:22:868:39:"|":I:250 DR$;"RUN ";DN$(S)(K48K49NP)K10K21K8K11Ė5:S2OFNP::" ";::" ";S;::".....";PN$(S) (K48K49NP)(K10K21)2(K8K11)3(K13)4(K27)5280,290,310,400,500 260 SK48:250 "SS1:SNPS1 ,250 6SS1:S0SNP @250 127,120,113,107,101,95,89,84,79,75,71,67,63,59,56,53,50,47,44,41,39,37,35,33,31,29,0~#"ERROR IN THE DATA";(7):2816,0:,70,30,102,29,202,208,247,160,0,32,5,12,169,0,133# 26,230,6,198,9,240,3,76,114,11,96,166,31,189,0,192,166,7,136,208,8,198,29,208,4,198,30,48,237,202,208,242,166,7,76,5,12,0,49,50,52,56,54,0,2,3,5,7,8,10V# 230,216,204,192,182,171,161,152,143,135,0,240,6,138,56,233,12,133,28,201,62,208,10,224,24,176,6,138,24,105,12,133,28,201,65,144,63,201,72,176,59,56,233,65,170,24,189,37,123# 109,31,12,101,28,101,26,201,36,144,2,169,35,170,189,44,12,162,48,133,7,134,31,165,80,133,29,165,81,133,30,166,8,240,732,6,132,28,132,8,132,26,177,160# 240,192,133,9,200,177,160,133,38,200,177,160,133,39,164,6,162,0,177,38,201,32,240,95,201,43,208,2,230,26,201,35,208,2,230,26,201,45,208,2,198,26,160,5,136,48,7,217,32,12# 208,248,132,8,166,28,201,60,208,10,224,1,12,96,32,76,231,134,31,169,0,168,136,208,253,44,48,192,56,229,31,208,244,96,32,190,222,32,103,221,32,82,231,166,80"x# 165,81,41,7,133,81,96,32,39,11,134,29,133,30,32,76,231,134,7,169,48,133,31,76,5,12,32,39,11,32,190,222,32,123,221,32,108,221,160,0,1UTINE;2#PLAY2816:SOUND2819:NOISE2822:OFFSET2825:X0P<#(2816)769050wF#:K1999:A$:A$"SOUND"Ă:630P#K28163152:P:XXP:K,P:K:X33167630Z#OFFSET,0:d# "SOUND"vn# 76,76,11,76,57,11,76,19,11,32,76,231,138,41,15,141,3S.":8:"PRESS [RETURN] TO EXIT."H 13:"ENTER LENGTH:";S$:S$""ı N(S$):N1N2047Ģ20:13:"OUT OF RANGE";(7):410 15:"ENTER STRING:";S$:S$""ı 20:1:"CALL PLAY,";N;",";(34);S$;(34):PLAY,N,S$:410(# INSTALL THE SOUND RO& |15:"ENTER PITCH:";S$:S$""ıc N1(S$):N11N12047Ģ20:13:"OUT OF RANGE";(7):340 20:13:"CALL SOUND,";N;",";N1:SOUND,N,N1:340 I1800:I::5:13:"PLAY COMMAND"# 8:8:"ENTER A LENGTH 1-2047.":8:"ENTER A STRING OF NOTELL NOISE,";N:NOISE,N:290F TI1800:I::5:13:"SOUND COMMAND" ^8:8:"ENTER A LENGTH 1-2047.":8:"ENTER A PITCH 0-255.":8:"PRESS [RETURN] TO EXIT." h13:"ENTER LENGTH:";S$:S$""ı rN(S$):N1N2047Ģ20:13:"OUT OF RANGE";(7):340 DRAW SCREEN JC T"+-------------------------------------+"O YI122~ ^"| |" hI r"+------------/\---------/\------------+"; |38:7:"[ " 3: 3:" HCJOURNAL ON DISK " 3:" VOL d ****************/n * HCJ DIRECTOR *Fx ****************[ COPYRIGHT 1986x HOME COMPUTING JOURNAL VERSION 1.0 APPLE II FAMILY - APPLESOFT  INITIALIZE PROGRAM8000:::V:8:4::V! NP:PN$(NP),DN$(NP):I1NP V L R O 1 ` R O R pW T   |P  V V L R O 1 ` R O V 5 V L R O` R O R pW :S   |P  V V LM R O 1 ` R O R pW :S   |P  V V L R O 1 ` XLENTER SKILL LEVEL:   (V  (V  o S VLA  5 V  (V  (V  o :S VLA V 5   (V  (V  o R VLBB V 5 V    o S VL<B V 5 V  :  (V  o :S VLdB V 5 V  (V  b  o R qR R QL R O R pW T   |P  uVo S VLALB  5 V    (V  o T VLALB  5 V  (V    o rT VLABB V 5   o T VL:AB V 5 7  (V  o T VL\ALaB V 5 Z  (V  _  o V 5 V  (V  (V  V R VLAA  5 A  5 V  o :S wVLA V 5   o sS wVLBB  o S wVLB  5 (V  o T wVLB (V 5   o R VL8AABB 3 o S VLMAAB I 5 (V  o :S VLjAALoB g 5 (V  m  o sS VLALBB  5 V    45678901*-<>!L L L L  5 V    V    V    V  VL/ ---L7----L?----LG----LO---- ) 5 V  2  V  :  V  B  V  J  V R wVLAA  o S wVL RETURN   sL TO BEGIN   G O gS L sS  cV R  V S  *V #U G T  AR  O  P  P  P  Q  ?Q  `Q  Q  Q  Q  R  pP  P R V  o S V  o :S V  o sS V  o U  VL1000000123 YVsXY X S  T LDESIGNER GENES   T L"%COPYRIGHT 1986 HOME COMPUTING JOURNAL   T LIPORTIONS OF COMPILED VERSION COPYRIGHTEDBY MICROSOFT CORP. 1981,1982,1983 6  U  T LPRESS   wLZ(104)641300d104,64:103,1:16384,0Jn(4);"RUN GENES.DRV"d(4);"BLOAD RUNTIME"(4);"BRUN GENES.OBJ"8 WORDWEAVE,WEAVE3.' DESIGNER GENES,GENES ]3' DESIGNER GENES (COMPILED),GENES.DRV|8' DIGITAL DUMPSTER,DIGDUMPB' SOUND DEMO,SOUNDDEMOL' RAMRX,RAMRXV' CODEWORKS,CODEWORK N RANGE ERROR,NO DEVICE CONNECTED,WRITE PROTECTED,END OF D APPLE ")3:" "G3:" THE DIRECTOR> "}2:23::"COPYRIGHT 1986 HOME COMPUTING JOURNAL"(# GET KEYPRESS2#K(16384):K127Ĺ16368,0:KK128:<#9010' PROGRAM NAMES,FILE NAMES' 1,7 $':PN$(I),DN$(I):I:5000:6000F DR1:DR$(4): DRIVE PARAMETERST S1:OF13h DISPLAY MENU I1NP:6:I2OFNP::" ";I;::".....";PN$(I):I GET SELECTION 18:6::S:5:S2OFNP::">";::" ";S;".....";PN$(S) 9000V L1) HIGH SCHOOL BIOLOGY   L2) BIOLOGY MAJOR   L3) GENETICS ENGINEER   G O !T ( bO O *T W   3T O iQ X lQ [ !Lh LEVEL ONE ^  L1 GENE PAIR & 1 TRAIT y  P R L" 'LDOMINANT TRAIT:  R  V  o  R  V  T ( bO R  V  n P  \O  3" T L 'L1 RECESSIVE TRAIT:  R P  V  o  R P  V  T ( bO R P  V  n P  \O  3" S D L `L LEVEL TWO   L P c P aP P  V dP  P 1  n O P  V dP P  P 1  n O O \ P  VL. O \ O  U .  o L1.L5. R _ P  V 0.  bO S _ P  V 4. W L+ U L.GET ANOTHER (Y/N)? z.  G O T $ . O T  Q ;L* ~T O P  U n P (L, }U  U L, ,  L , U  R L-POSITION OF PARENT (1-2): -  G O !T ( bO O ET W  )- U  U  O   3T O O Q P  - P P P U Q R bO P  V  n R \O P #L+E) USE BIO-COMPUTER +  }U  R  U 8L,SAMPLE TO KEEP (A-D): +  G O gS $ bO O S $W L-. O T (L , O T  bO lQ R $ \O bO O T  \OL , O T L , }U  U  O   O T L, Q YR P Q . \RT  *  V lQ S $LP+L*/L* dP R c R # R  V V  *  U dP R # bO dP R YO  OS  V U  *  U dP  U n  U  VL+LU+ dP  V V  S+  U dP  U n  U  V S ^P  R  V  1 aW tU  R  dP  U *Q 1 aW P aW 8R   R Q lQ R $L * P  U Q  S *Q  U -Q  U n P  o Lz* P  U Q ( R bO P  U Q ( _O bO Q  U Q ( _O *Q  U -Q  U n P  o 1 aW U  P aW lQ P $ S 9Q  L*) dP { U sS  V  O MR  O S hR S O +S }R  O LS R PR eR zR R aP  U dP  U P o dP  V dP  V U OP  U  U P  U  o 1 W 1 \W P *Q R U bO S U _O bO :S U _O bO sS U _O R P aW BQ   dP  U dP  U c R i 'Q o P \W BQ   OP \ dP  U OP \ dP  TV o 1 \W 1 aW P \W lQ P $ S 9Q   P W lQ P $ P 9Q   lQ R L( P \ OP  U S  V  O P aP  U dP  U P o dP  V dP  V U OP  U  U P  U  o LB) P \ OP R L&NUMBER OF SAMPLES: &  S Q S 4P US P HL& 2V 5 &  bO 2V  R $W ` 2V  U $` 2V  S ( & 2V  5R` U  U L[' BREEDING... O'  H0 P aW BQ   dP  U P o dP  U P  o dP  VL' ' o L%!CURRENT GENERATION PARENT 1 OR 2: %  G O S $` R 5R O !T ( bO O ET W  % U  CS  O   P  V 3T O \ P  V o R Q &LY& 2V 5 X&  bO U  2V W  bO 2V  R $W  bO 8R R $W `L@' U  $NO PARENTS IN TOP WINDOW!! $  R .X U   1 .X` T  R  U 8L% BACK CROSS %  L9%TOP WINDOW PARENT 1 OR 2: %  G O S $` O !T ( bO O ET W  D% T  U  O   P  V 3T O \ sP  V o R EED #  &L# 8R R $ bO U  2V W  bO 2V 5 # W ` P Q P  V P \ P  V o P  V P \ P  V o L@' O R &L$ X T  Lr$YOU DON'T HAVE ANY MONEY Y$  R .X U   1 .X` sP R $L$ X T  L  " 3T O "<$.[99s5L" O R &L*# X T  L#YOU DON'T HAVE ANY MONEY "  R .X U   1 .X` P S $L# X T  Lg#CAN'T BREED PAST 20 GENERATIONS G#  R .X U   1 .X` R 5R T  R  U 8L# CROSS BR T ( bO dP  V  n P  \O ! 3" S D u S L{! 1 aWL"L3"A & B DOMINANT A DOMINANT B DOMINANTA & B RECESSIVELO"ENTER 1 TO 10 CHARACTERS 6"  rT   R kW U   1 S D  |S 8` @ ; L= G O !T ( bO O VL0 dP  V L= 3. USE BIO-COMPUTER =  L= 4. SET GENERATION OF TOP WINDOW =  L!> 5. GO BACK A GENERATION >  LF> 6. TURN IN ASSIGNMENT />  R LX T  Lg>- e>  1 lQ >>v?L> DOMINANT: >  P  V  L>  P a kU r V  kU r V  L=(---------------------------------------- <  P R $ bO sP R $W  <= sP P "S (P : P P ^S (P :` T Lm=OPTIONS: FUNDS: $ U=  O a L= 1. CROSS =  L= 2. BACK CROSS = -------------------------------- ; L;PARENT 1 ;  V L<PARENT 2 F: <  sP a kU r V  kU r V  Lj<(---------------------------------------- A< L<PARENT 1 u<  V L<PARENT 2 F: < M Q %P  P [P S P  P  V  lQ P  ; BQ %P  P [P S P  CP  V  1 aW` XL5;DESIGNER GENES - BIO LAB ;  LZ;ASSIGNMENT: BREED FOR C;  "S Q S 4P R IV V L lQ P $ ; "S Q S 4P S IV V LL;(-------- 9L9 2V  pP R Q R O` P P $ bO sP R P $W ` tU  U 8 }U  L :ARE YOU SURE (Y/N)?  :  G O T $ M: O T  +:` R _ P  VL`: _: o S _ P  VL{: z: o P P P` P aW P   dP \ P  V VN (Y/N)? 8   UL8YL8N U 5 8  bO U  U W  bO U 5 8 W  bO U  U W  8L*9N U 5 (9  bO U  U W LX9 GU ;L tU  U 8 R L9ENTER GENERATION: s9  S Q T 4P US P H 2V  P (O O R W 5U   R W kU   >U D n P 1 W 1 W O R &L'8L8YOU RAN OUT OF MONEY... 8  L8` XL?8CONGRATULATIONS, .8  LY8 YOU DID IT! M8  L}8YOUR SCORE IS: m8  lQ O a bU  |S 8L8PLAY AGAIP   PO P  IV P  P 1  MO n o BQ  U P  IV P   PO P  IV P  P 1  MO n o P  U bO Q  U YO $ bO P  U tO BQ  U nO $ \OL(8L7SORRY, YOU DON'T HAVE THE RIGHT `7  L7LIFEFORM DEVELOPED 7  ,U G O !T ( bO O ET  _O bO O gS  \OL5 O gS  5` tU  3T O aP P  U dP \ P  V R   PO dP \ P  V P  P 1  MO n o P  U dP \ P  V Q  P 1  PO dP \ P  V BQ  P 1  MO n o Q  U P  IV T 4  w tU  :S  R V  YU  S V  }U  :S  :S V  YU  sS V  sLr5L5 DOMINANT 5  L75 RECESSIVE *5  w tU  :S  R V  }U  :S  S V  s` tU  U 8 }U  L5WHICH PARENT (1 OR 2): 5    R  V  1 s` XL3BIO- 3  L3COMP 3  V  u S V   V  V  R LX sS   V  V  V  V  1 lQ P (  5L4 D.DOMINANT A DOMINANT k4  L4 D.RECESSIVE B DOMINAN Q P ( 2 P 6Q R Q OP ZQ P 4P P \ OP  TV V L M OP ZQ P 4P 3 1 W 1 \W` lQ 3X3O3 Q S  7P  w R LX sS   P  V  1 s` P RL3 P P Q bO CP ]Q _O R S (L3 R .S RL3 ^S R R Q S  7P  w R LX sSW 1 W 1 \W P \W lQ P $ S 9Q   P W lQ P $ S 9Q   P \ OP  VV P \ OP  V dP  V P  P 1 U dP  V OP P  P 1 U  o Q P ( bO dP P $ _OL^1 1S Q P P P LP ZQ Q 4PL1 Q P ( 1 P P P LP 6Q R Q BQ 4P P P P LP bO dP \ eO   P  V  `L> DOMINANT 1: >  P  V  L? RECESSIVE 1: ?  P  V  L6? DOMINANT 2: (?  Q  V  L^? RECESSIVE 2: P?  BQ  V  `L? AB DOMINANT y?  P  V  L? A DOMINANT ?  P  V  L? B DOMINANT ?  Q  V  L? AB RECESSIVE ?  BQ  V  ` ID P aW P   QQ R $L^@ lQ R $L^@ S KVLS@ P@ o L@ QQ R $L@ dP  KV ~T ^P bO R S # QT _O  U ~T ^P bO R S # QT _Q  P 1 V  O I IW  bO U 5 CI I tO U 5 V  }O U 5 (V  W W  tO U [G S _ R V 2V o R Q R O` R D n O T LGLG PU > R T T O O T LH TT O O`L#H "H 4V R P O R $LMHLEH BH 4V Q  7P   U R  U L}HLuHa sH U S  U LHLHb H ULH0 U 5 H 2 bF 5 V  F  (V  lQ R $ S OS  V S Q ^S 4P L T  LG PARENT #1: F  S Q S 4P lQ R $ S OS P R Q H 2V  R $ F R _ R V 2V o T  LrG PARENT #2: gG  S Q S 4P lQ R $ S OS P R Q H 2V  R $ ONE: E  LE 1) RANDOM PARENTS E  LF 2) MAKE YOUR OWN PARENTS E  G O !T ( bO O ET W  F HT O OLSF R Q R O` S  U 8LFENTER PARENTS GENETIC CODE hF  LFE.G. F  LFALFB LUTION D  G O !T ( bO O ET W  D HT O NQ R $LE R O` YU  LE SOLUTION: E  T Q S 4P R Q lQ R $ S OS P HLOE 2V 5 NE LE R KV 2V S  o lQ R LE S KV 2V S  o T  U 8LE SELECT  R 4  n Q Q 1 aW R Q R aW lQ R $ S OS   S _ R V dP  R 4  n Q Q 1 aW {Q Q $ bO {Q Q $W LHD O KQ @L@` T  U 8LjD SELECT ONE: ^D  LD 1) RANDOM SOLUTION {D  LD 2) USER'S SO P  V P  P 1 U U dP  P 1 U  O O 1 O R $ bO O R $W LC QQ O @L@ dP R aP U  n XP ( ;CL&B R xQ R aW lQ R $ S OS   U dP  R 4  n uQ xQ 1 aW R Q R aW lQ R $ S OS   R _ R V dPU R S # QT T  U  U R S # QT T  U  o 1 aW P  IV U R aP lQ R $ 2B P  IV U  U R O R O R CW lQ R  S S   P \ P  V P  P 1 U U dP  P 1 U  O O 1 R CW lQ R  S S   P \O  U  o dP S $ bO lQ R $W L@ S KVL@ @ o O R $ EA dP \ P  V R S # QT T  U R S # QT T  U  o lQ P L_A O ALA dP \ P  VLtA dP \ P  V qA  o LA dP \ P  V dP \ P  V DL@XHƆ  2>( n{CP?АF?y|}LWL WLdWLdW LdWLdWLdWLdW LdW%LdW*LdW/LdW4LdW9LdW>LdWCLdWHLdWMLdWRLdWWLdW\LdWaLdWfLdWpLdWuLdWzLdWL>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEgcbbȱbee( HH`S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM䡥堰UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`[bcb}bb}PLb] b0(]0b 륡 i<<=kL 8Y@L 8  BNLdNLdOL OL OLdO L OL OL OL OL OL OL OLdO LdO%L O'L O)LdO.L O0L O2L O4L O6L O8L O:L OL O@L dNLdNLdNL NL NLdNLdNLdNLdNLdNLdNL NLdNLdNLdNLdNLdNLdNL NLdNL NLdNLdNLdNLdNLdN5L N7LdN";::"PRINTER"::+# KEY INPUTV$K(16384):K127Ĺ16368,0:KK128:`.4900 LISTING ANNOTATION DATA  3 WORDWEAVE,28 100-210 PROGRAM HEADER 220-250 MAIN BODY OF PROGRAM 260-280 MENU ROUTINEy(9);"40N"~" CODEWORKS: ";PN$(S):"COPYRIGHT 1986 HOME COMPUTING JOURNAL":"LINE NOS. DESCRIPTION":"--------- -----------"I1NL(S):PE$(S,I):I(4);"PR#0":NP210:8::"SCREEN";::"<-->PRINTER":NP210:8:"SCRE3540( K8K10K11K213540>K10K213650PBNL(S)3540_BB1:806$24:1:868:B22NL(S)3540.PE$(S,B22);:3540BB13540LBB1:768:1:2:868:PE$(S,B);:3540s DISPLAY TO PRINTERt(4);"PR#1" 4900:K133090( 2010:3020@ DISPLAY TO SCREEN ::"LINE NOS. DESCRIPTION ";:41(PN$(S)):PN$(S);: I122:NL(S)Iĺ:3520 PE$(S,I) I:B1 NL(S)23ĺPE$(S,23); 4900 K27ı NL(S)23FT ARROW AND RIGHT ARROW KEYS. "; " WHEN LISTING CODEWORKS TO THE SCREEN YOU MAY SCROLL THE SCREEN WITH THE ARROW KEYS. PRESSING [ESC] RETURNS YOU TO THE MENU. "; "PRESS RETURN WHEN YOU FINISH READING ";:TION> 4900:(K49K48NP1)K8K21K27K133020J K13ıV K27ıp K8SP1:4800:3020 K21SP2:4810:3020 SK48:13:22:S SNP13020 INSTRUCTIONS& 16::" TOGGLE SCREEN<-->PRINTER OPTION WITH THE LENIMATE BALL0X 1180-1260 GRAPHICS ROUTINES 1270-1380 DISPLAY MESSAGESr 1390-1500 DISPLAY MENU 1510-1700 GENERATE A NEW PROBLEM 1710-1870 MISC. ROUTINES 1880-2000 PROGRAM DATAATA,PATH NOT FOUND,PATH NOT FOUND,I/O ERROR,DISK FULL,FILE LOCKED,INVALID OPERATION,NO BUFFERS AVAILABLE,FILE TYPE MISMATCH,PROGRAM TOO LARGE,NOT DIRECT COMMAND,SYNTAX ER*N DIRECTORY FULL,FILE NOT OPEN,DUPLICATE FILENAME,FILE BUSY,FILE(S) STILL OPEN ,A2):740JbB0ė:11::"YOU DON'T HAVE ANY MONEY":TD11500:TD:lE0ė:11::"NO PARENTS IN TOP WINDOW!!":TD11500:TD:v12:1:958:"BACK CROSS":"TOP WINDOW PARENT 1 OR 2:"1880:KB27ı(KB49KB50)640:13:27:(KB):P$020,1400,1430,1280:540X:B0ė:11::"YOU DON'T HAVE ANY MONEY":TD11500:TD:DF20ė:11::"CAN'T BREED PAST 20 GENERATIONS":TD11500:TD:NJ0:12:1:958:"CROSS BREED":710:J0B$(27)B$""ı XIA0:P$(A1)X$(F,A1):P$(A2)X$(F7)2:490Z:530Z "A & B DOMINANT","A DOMINANT","B DOMINANT","A & B RECESSIVE""ENTER 1 TO 10 CHARACTERS";(7):TT11500::(37):868:15901490:1540&1880:(KB49KB56)(KB27)550:KB27İ2290:5400KB48570,610,10:520:(37):440"LEVEL TWO"::"2 GENE PAIRS & 2 TRAITS":"TRAIT ONE:":TA1:430::"TRAIT TWO:":TA3:430:530"LEVEL THREE"::"2 GENE PAIRS & 1 TRAIT":ZA1A4:A$ :A$:"";W$(Z):(((W$(Z))11)((W$(Z))A0))500:520:(3KB49KB51)400:HKB48::H420,460,470j"LEVEL ONE"::"1 GENE PAIR & 1 TRAIT":::TA1:430:530"DOMINANT TRAIT: ";W$(T):(((W$(T))11)((W$(T))A0))440:520:6:430"RECESSIVE TRAIT: ";W$(TA1):(((W$(TA1))11)((W$(TA1))A0))45:::"LOAD PREVIOUS GAME (Y/N)?";:A$:(A$"Y"A$(121)A$"N"A$(110))370 A$"Y"A$(121)SF2:2320:(F$)0370:2430:540 :"ENTER SKILL LEVEL:"::"1) HIGH SCHOOL BIOLOGY"::"2) BIOLOGY MAJOR"::"3) GENETICS ENGINEER":1880+()LA$LA$LB$"B"& ER0:EL0:370I QQ0:ZC16:CH$DO$(ZC)QQ1Q :t "QQ0:ZC19:CH$DD$(ZC)QQ1| ,: 6QQ0:CH$DR$QQ1 @ JQQ0:ZC13:CH$AD$(ZC)QQ1 T: ^QQ0:ZC13:CH$BD$(ZC)QQ1 h: r2520T |11A"LA$"BB":DD$(5)"A"LA$"B"LB$:DD$(6)"A"LA$LB$"B":DD$(7)LA$"ABB":DD$(8)LA$"AB"LB$:DD$(9)LA$"A"LB$"B" DR$LA$LA$LB$LB$:AD$(1)"AA"LB$LB$:AD$(2)"A"LA$LB$LB$:AD$(3)LA$"A"LB$LB$:BD$(1)LA$LA$"BB":BD$(2)LA$LA$"B"LB$:BD$(3B1$" "VR$" "VR$" "VR$" "VR$:B2$" ---"VR$"----"VR$"----"VR$"----"VR$"----" DO$(1)"AA":DO$(2)"A"LA$:DO$(3)LA$"A":DO$(4)"BB":DO$(5)"B"LB$:DO$(6)LB$"B"w DD$(1)"AABB":DD$(2)"AAB"LB$:DD$(3)"AA"LB$"B":DD$(4)"(A1)X$(E,KB48)>1:"CURRENT GENERATION PARENT 1 OR 2:"Q1880:KB27ıJ0:(KB49KB50)670:14:35:(KB):P$(A2)X$(F,KB48):I.5:710B$""B$(27)(B$)0J0ı740 15:1:"NUMBER OF SAMPLES:":VT15:HT20:ML4:1920:B$""(B$)0ı(B$)27ı8(B$)10710:J(B$):Y23:15:"BREEDING...":1070ZA1A4:V(Z)A0:P%(Z)A0:V$(Z)"":OA1A4:Z$(Z,O)S$(Z,O):O,ZOA1A4(HA1)2:QA1A4(HA1)A2:H1780CH$(Z$(O,Q),2):270:ZQQA2:V(Z)V(Z)A1:V(16336):V2,V1> <B0ĺ"YOU RAN OUT OF MONEY...":1370D F P:"CONGRATULATIONS,":"YOU DID IT!":::"YOUR SCORE IS: ";HB Z19::868:"PLAY AGAIN (Y/N)?";:A$:(A$"Y"A$(121)A$"N"A$(110))1370 dA$"N"A$(110)ė:!n&(A2)((X$(F,Z),A3,A1))((X$(F,Z),A4,A1))(V(A3)((G$(A1),A1))((G$(A1),A2,A1)):V(A4)((G$(A2),A1))((G$(A2),A2,A1)):(V(A1)V(A3))(V(A2)V(A4))1360 2"SORRY, YOU DON'T HAVE THE RIGHT":"LIFEFORM DEVELOPED":BB50000:V1116:V2120:SO4);::1270T" DOMINANT":" RECESSIVE"::21:3:CR$(1);:22:3:CR$(2);:Z21:958:22::"WHICH PARENT (1 OR 2):" 1880:((KB49)(KB50))(KB13)1290KB131310:.21:ZKB48:V(A1)((X$(F,Z),1))((X$(F,Z),A2,A1)):V6*VT2:HT::V14:CR$(K);:::[:"BIO-":"COMP ";(B1$,(B1$)5):B1$:B2$V14:B1$:B1$:B1$:B2$::HA21260:" D.DOMINANT A DOMINANT":" D.RECESSIVE B DOMINANT" :21:3:CR$(1);:17:CR$(2);:22:3:CR$(3);:17:CR$(S$(O,Q)(Q$(O,A1),A2,A1)(Q$(Q,A2),A2,A1)z~IA11160:VTQA41:HTOA5A2:T$S$(O,Q):2220:2250:HTOA5A2:1170Q,O:H1180,1200,1190VT2:HT::V14:CR$(C);:::KC:1220K((CA1)A8(A5D)):K9KK3:1220KK(Z),OA2,A1)&B(IA1)(ZA2)1110LLVT3:HT(O(QA1)A2)A5A3:1120wVIA11130:VT(O(QA1)A2)A41:HTA4`T$Q$(O(QA1)A2,Z):2220jZ,Q,O:OA1A4(HA1)2:QA1A4(HA1)2:S$(O,Q)(Q$(O,A1),A1)(Q$(Q,A2),A1):HA11150.tS$(O,Q)958:"CODE FOR PARENT #2:":VT24:HT1:ML2((HA1))4:GE1:1920:GE0:G10:(B$)A11050:uIA1:1060:1030$P$(A2)B$" ".OA1A2:QA1A2(HA1):ZA1A2:HA11080:Q$(O,Z)(P$(Z),O,A1)" ":10908Q$(O(QA1)A2,Z)(P$(Z),Q,A1)(P$24:"GET ANOTHER (Y/N)?";F1880:KB781010:KB891000:870uBB((JA9(1))((EF)(I.5)A1))A1:123022::958:"CODE FOR PARENT #1:":VT24:HT1:ML2((HA1))4:GE1:1920:(B$)A11040:GE0:G10:`P$(A1)B$" ":22:: ":880123:1:"POSITION OF PARENT (1-2):"|1880:(KB49KB50)960:23:27:(KB):KBKB48:IA0970:FFA1:I.1Z((1)((V$(Q)).5)A1)A2A1:L((V$(Q),Z,A1)):M((V$(Q),ZA1,A1)):X$(F,KB)Z$(L,M)" "X$(F,1)""X$(F,2)""870:"E) USE BIO-COMPUTER"Cf22:1:958:"SAMPLE TO KEEP (A-D):"bp1880:(KB13)(KB27)980qzKB65880(KB66)(H1)(KB69)880KB6988022:23:(KB):KB69940UI:IA1:1020:IU:1490:840 QKB64:P%(Q)A1Ģ22:23:"2:P%(R)P%(R)A1:830M4R1(SV(A1))(SV(A2))(SV(A3)):P%(R)P%(R)A1T>ZH23::ZA1A4(HA1)2:T$(Z64)") ":H2T$T$W$((Z.5.5)1)"/"W$(4((Z.5)(Z.5)))" "(P%(Z)):860RT$T$W$(Z)" "(P%(Z))\15Z:1:T$:Z:21:1$(Z)V$(Z)(O)(Q):790 CH$(Z$(O,Q),4):290:Z1QQ:330:Z2QQ2:350:Z3QQ3:310:Z4QQ4:ZZ1Z2Z3Z4:V(Z)V(Z)A1:V$(Z)V$(Z)(O)(Q)Q,O:RA0:TV(1)V(2)V(3)V(4) ZA1A4:V(Z)RV(Z)T:RV(Z):Z*ZA1J:S(1):H1R(SV(A1))!x21:958:1:"ENTER GENERATION:"U!VT21:HT19:ML4:1920:(B$)F1420:1410m!E(B$):GE0:G10:!FA1E1Fı!21:958:22::"ARE YOU SURE (Y/N)?"!1880:KB891460:KB781450:!X$(F,1)"":X$(F,2)"":FFA1:V"ZA1A2:T$X$(G,Z):2250:A3N:(A1(ZA1)20):W$(C):HA21480:A4N:(A1(ZA1)20):W$(D)_"Z:":"DESIGNER GENES - BIO LAB":"ASSIGNMENT: BREED FOR":VT2:HT24:T$G$(1):2220:HA11500:VT2:HT27:T$G$(2):2220z#"---------------------------------(T$,A3,A2):270:DQQA4<0CH$(T$,A2):270:CQQA2:0CH$(T$,4):290:C1QQ:330:C2QQA2:350:C3QQA3:310:C4QQA4:CC1C2C3C4:07::958:"SELECT ONE:"::" 1) LOAD PREVIOUS DATA"::" 2) SAVE DATA"::" 3) EXIT SCREEN"P11880:CL0G11B$" "#/CL022008/B$(B$,(B$)1)X/HTHT1:HT1HT40:VTVT1p/VT:HT:" ";:1930/V1(T$):TT$(T$,V,1):IDĭTT$LA$TT$LB$Ğ:VT:HT:((TT$)32)::2240/VT:HT:TT$/HTHT1::/H2270,2260,22800CH$(((B$)A2)(A$"B"A$LB$))(((B$)A2)(A$"A"A$LA$))2000h.>CLCL1:CLMLČ198:CLCL1:1930.HB$B$A$:IDĭA$LA$A$LB$Ğ:((A$)32);::2140.RA$;.\HTHT1:HT40HT1:VTVT1.f1930.pCL0Č198:1930/zCLCL1:CL0B$"":LB$)(A$"A"A$(8)A$(13)GE1))2000:2010D-198:1930h-A$(8)2160:A$(13)ĭGE0ı-A$(13)G11B$(B$,2):B$" "1920-A$(13)2100-(B$)0ı-H12080- (B$)21930-- (B$)41930-*A.4GE1ĭKBKB32,v.,B$"":CL0:G11B$" ">,VT:HT:A$X,A$(1)A$"a":1960l,A$(2)A$"b",((A$"0")(A$(1))(A$(2))A$(8)A$(13))2000,A$(1)A$LA$,A$(2)A$LB$4-((A$"A")(A$"9"))((A$"B")(A$LA$A$+:11::"PARENT #1:":VT12:HT12:ML4(H1)2:GE1:1920:(B$)01850:X$(1,1)B$+D13::"PARENT #2:":VT14:HT12:ML4(H1)2:GE1:1920:(B$)01860:X$(1,2)B$+NGE0::G10:+XKB(16384):KB1281900+b1880 ,l16368,0:KBKB128:KB95B$,2)_*11::958:"SELECT ONE:"::" 1) RANDOM PARENTS"::" 2) MAKE YOUR OWN PARENTS"*&1880:(KB49KB50)1830:RP(KB50):RPGE0:G10:+05::958:"ENTER PARENTS GENETIC CODE"::"E.G.":T$("A"LA$"B"LB$,4(H1)2):VT8:HT6:2220U600:1590)d)11::958:"SELECT ONE:"::" 1) RANDOM SOLUTION"::" 2) USER'S SOLUTION")1880:(KB49KB50)1790:RA(KB50):RA1RP1:)17::"SOLUTION:":VT18:HT11:GE1:ML4(H1)2:1920:B$""1800*G$(1)(B$,2):H1G$(2)((A$,Z,A1)):3(Q10Q20Ĵ(RARP)1600:1590Q(ZZ1:Z(A$)1730:1690(X00:Z14(H1)2:X0X0((A$,Z,1)):Z(X10:Z14(H1)2:X1X1((X$(1,1),Z,1)):Z(X20:Z14(H1)2:X2X2((X$(1,2),Z,1)):Z )X0X1X0X2Ĵ(RPRA)1$(A1,Z)X$(A1,Z)" ":1680a'X$(A1,Z)X$(A1,Z)(66(32((2(1)))))(66(32((2(1)))))'Z:A$G$(A1):Z1:H11700:A$A$G$(A2)'Q10:Q20(JJ12(H1)2:Q1Q1((X$(A1,A1),JJ,A1)(A$,Z,A1))::JJ12(H1)2:Q2Q2((X$(A1,A2),JJ,A1)б &617806&@ZA1A2:RA0ĭH1G$(2)" ":1640E&JRA01640&TG$(Z)((64Z)(32((2(1)))))((64Z)(32((2(1)))))&^Z2H1G$(2)" "&hRP01650:X$(A1,Z)(65(32((2(1)))))(65(32((2(1)))))&rHA1ĴRP1670:1680'|X"DOMINANT: ";W$(A1)::"RECESSIVE: ";W$(A2):%""DOMINANT 1: ";W$(A1):"RECESSIVE 1: ";W$(A2):"DOMINANT 2: ";W$(A3):"RECESSIVE 2: ";W$(A4):&,"AB DOMINANT ";W$(A1):"A DOMINANT ";W$(A2):"B DOMINANT ";W$(A3):"AB RECESSIVE ";W$(A4):GE:N2:1470#$GF:N6:1470:$12:"OPTIONS: FUNDS: $";B:" 1. CROSS":" 2. BACK CROSS":" 3. USE BIO-COMPUTER":" 4. SET GENERATION OF TOP WINDOW":" 5. GO BACK A GENERATION":" 6. TURN IN ASSIGNMENT"$V140:"-";::H1560,1570,15807%-------";:"PARENT 1 ";VR$;"PARENT 2 F: ";E:20);VR$:20);VR$:"----------------------------------------";#"PARENT 1 ";VR$;"PARENT 2 F: ";F:20);VR$:20);VR$:"----------------------------------------";$(F1E0)1530:(KB49KB51)2300:KB512310:SF3:2320:(F$)02310:LSKB48:LS2430,2340V1 1 13::"ENTER FILE NAME: ";:"";F$:(F$)1523201 1$ 25201. SF118 DC$;"OPEN ";F$;",D1"1B DC$;"WRITE";F$2L ZS12:P$(ZS):G$(ZS)::W$(1):W$(2):W$(3):W$(4)2V ZS120:X$(ZS,1):X$(ZS,2)::ZS14:Q$(ZS,1):Q$(ZS,2):S$(ZS,1):S$(ZS,2):S$(ZS,3):S$(ZS,4):V$(Z):V(Z):P%(Z):2` B:E:F:H2j DC$;"CLOSE ";F$2t 2~ 25202 DC$;"VERIFY";F$;",D1"2 DC$;"OPEN ";F$;",D1" 3 DC$;"RS BEFORE BEING TERMINATED.":2750c9 :12:"OOP'S, FOUND ERROR # ";ER::"AT LINE NUMBER ";EL:9 16:"PRESS ANY KEY TO CONTINUE:";:A$::3288:SF2420,370,2290ORY.":275018 :12:"FILE NOT OPEN...":2750[8 :12:"FILE ALREADY EXISTS...":27508 :12:"THAT FILE IS BUSY. IT WAS NEVER CLOSED BY THE LAST PROCESS":2750#9 :12:"FILES HAVE BEEN LEFT OPEN!!!!"::"THE LAST PROGRAM FAILED TO CLOSE ALL FILENCOMPATIBLE - WRONG TYPE.":2750f7d :12:"NOT ENOUGH MEMORY TO CONTAIN THE ENTIRE PROGRAM.":27507n :12:"COMMAND MUST BE IN A PROGRAM.":27507x :12:"ILLEGAL FILE NAME":2750 8 :12:"DIRECTORY IS FULL. THERE ARE 51 FILES INTHE VOLUME DIRECTTHAT FILE HAS BEEN LOCKED. YOU MUST UNLOCK THE FILE FROM DOS BEFORE YOU CAN SAVE TO IT.":27506F :12:"INVALID OPTION...":27506P :12:"THERE IS NOT ENOUGH MEMORY LEFT FOR THE DISK BUFFER. FILE CAN'T BE OPENED.":2750"7Z :12:"THAT FILE IS I5025 :12:"DISK IS WRITE PROTECTED...":2750]5 :12:"END OF FILE ENCOUNTERED":27505 :12:"FILE CAN'T BE LOCATED":27505( :12:"DRIVE DOOR IS OPEN, OR THE DISK IS NOT FORMATTED...":275052 :12:"THE DISK IS FULL...":2750d6< :12:"16,0:ER2127404 ER2540,2550,2560,2570,2580,2590,2590,2600,2610,2620,2630,2640,2650,2660,2670,2680,2690,2700,2710,2720,27304 27404 :12:"RANGE ERROR...":"IN LINE ";EL:27505 :12:"NO DEVICE CONNECTED...":"ERROR CALLED IN LINE ";EL:27EAD ";F$@3 ZS12:P$(ZS),G$(ZS)::W$(1),W$(2),W$(3),W$(4)3 ZS120:X$(ZS,1),X$(ZS,2)::ZS14:Q$(ZS,1),Q$(ZS,2),S$(ZS,1),S$(ZS,2),S$(ZS,3),S$(ZS,4),V$(Z),V(Z),P%(Z):3 B,E,F,H3 DC$;"CLOSE ";F$3 4 ER(222):EL(219)256(218):2