@LÌ}ˬð5 _­¬¦$Ž¦%Ž l0¬±$)ªÈ$ð±$Hȱ$ Uh¨ŠL"©À ¨`©€e$…$æ%`­…$­…%` Œ ©R @©W €¦!àÐ( L¹(©Œ©1© ©€ ­ YäÎ ð¦I˜` ­ d  LÇd M ¼* €@ ÿ­ …$­ …%­ …C¢©C ‘$¥$)¥%1© U©dÊߥ$9¥%:¬ ¢ˆ˜!0 SèàÐñ¥$ç¥%詨™Èú¨¹ð ÉDðÈÈÈÀÐð©D™©Ë™©™` ­ }½J‚)ðLr 콂É×ØxÇXÜXN°N±N²N³N´NµN¶N·N¸N¹N1°N1±N1²N1³N1´N1µN1¶N1·N1¸N1¹N2°N3²ABL¨ABL¤REPLY¤RACE¤TEMP¤CLASS¤CHOICE¤ÉÊÙÈËØÁIÉFÔCÌTÈAÓC}ÁRÁDÒMÕIÌPÁBÂMÏCH¤REPLÙCÈABÌANS¤HÏD×HÌEÌGÎHÅHÕOËFÅSUÂSUB¤C±BNHÐHÄHÐCL¨JÊH±PIÃDÌEØNÏÎAÂÏCHÒHÁN2µPRTBUF¤SÃ@@}@@@@@@ @ @ @ @ @@@@@}@@@ @2A&>? 2q(™á@2@@ @!@}"@#@$@ %@&@'@()*+,@-./0€1 }234567@89:;<=>?@@z# }ABC@D@AE¯FGHIJKLMNO@P }QRÇ(S2z +AR@1AC-@@O(Dungeona-@ @z }(Character Generator<G-@@$( Written by6-@@G( Scott MarionF$-@@$( 71061 },1403d¢-@A ¢ÈÒ6€-6-@*6‚-@66ƒ-@B6„-@N6…-@Z6†-@f6}‡-@r6ˆ-@~6‰-@ Š6Š-@–6‹-@¢6Œ-@®6-@º6Ž-@Æ6-@Ò6-@Ò?6‘-}@6’-@'6“-@36”-@ ?6•-@2ÜUUµ;‚,–9…,—;@$,˜;,™;@P,š;@@,›;A%,À;@5},œ;’,Å9ƒ,æÒ;@@,,X"6—.STR INT WIS DEX CON CHR ;6œ.ABCDEFGHIJKLMNOPQRC6À. K-€‚T6Å8,-€X †\+}€@‚„A€"(;(DO YOU WISH TO ENTERX(ABILITY SCORES MANUALLY\˜ˆ˜4NA‹˜0YA}ÅÎÔÅÒ ÁÂÉÌÉÔÉÅÓ ÍÁÎÕÁÌÌÙ›š(+€ (}@‚„%A€((¤@ (ENTER ABILITIES ONE AT A=(TIME, FOLLOWED BY R}ETURN@(®#6¢-@#ž-@¸, AU(—7¢<¢%@,#µ,6-A:µ,½!! @)!@AUÂ% }6–8ž,-6µ.!6¢-¢%@% žÃ -€ƒ–8,!ˆ6½-Ä Åd(½ ('(ýNUMBERS ARE TOO LOW TOB(BECOME ANY PROFE}SSION!V-@AZ d AÆ AXÇ>(YOU MUST ENTER A NUMBER4(BETWEEN 3 AND 18> A@Ê%+€ (}}@‚„%A€Ì? 6ž-€-B:—,"—7<,4>:•,-(:–8ž,56ž-ž%? A€Ö (—7<,à  A€ôj}+€ (}A!-€…a6ž-P:+H:€,$†,%@,%P:+H:,$†,%,%P:+H:,$†,%,j6–8,-žù þK@‚„}6-€ ž-B:—,.—7ž<ž,4>:•,9(:–8,A6-%K A0 (—7ž<ž, žR($(DO YOU WISH TO REROLL ANY>(ONE (1}) NUMBER (Y/N)B˜R˜0YA€!++6ž-P:H:€,$…,%‚%P:H:€,$…,%‚%P:H:€,$…,%‚&@"(œœWHICH NUMBER WOULD YOU<(LIKE TO }CHANGE (1-6)@˜0''˜2>:@I,)˜3>:@T,AP:06Ÿ-A:˜,&6–8Ÿ,-ž%-ˆ@%Ÿ0(–8Ÿ, D< -„ˆ#(œœYOU M}AY CHOOSE FROM<(THE FOLLOWING RACES:N! 6-!–8€,!‡)–8„,!ŠA•P AS/–8€,!‡*–8„,!Š'6™7<%…,.DWARF }/6-%†X;!–8,!‡*–8ƒ,!…*–8„,!†*–8…,!‡36™7<%ƒ,.ELF ;6-%„b –8€,!…*–8,!†*–8„,!‡ 6 -g: –8€,!ˆ)–8‚,!ˆ)–8ƒ},!ˆ26™7<%…,.GNOME :6-%†lE 6 -€&–8,!@*–8ƒ,!…*–8„,!…=6™7<%ˆ,. HALF-ELF E6-%‰v'!–8€,!…*–8,!…*–8ƒ,!}†*–8„,!‰'6 -{= –8€,!ˆ)–8‚,!ˆ)–8ƒ,!ˆ56™7<%ˆ,. HALFLING =6-%‰€6 6 -€–8€,!…*–8„,!Œ0–8€,!ˆ)–8‚,!ˆ)–8ƒ,!ˆ6}6 -…& 6™7<%ˆ,. HALF-ORC &6-%‰Š: 6 -€ –8€,!‰)–8‚,!‰)–8ƒ,!…46™7<%…,.HUMAN :6 -( 6½-€ AS }”: 6Ç-€6ž-(ž) $-B:™,:™7<,4>:•,A€ž= (™7<,(™7%<%,4>:•,*B:™,&06ž-ž%3(=(ž) ¨  !} ( (²>( œYOUR CHOICE˜>˜2>:@I,)˜3>:@U,A· 6Ÿ-A:˜,Ÿ!žA¼ -„ˆ-„%ž(œ "}ÁÆÉÎÄ ÒÁÃÅ›Æ: 6ž-6¡--B:™,(™7<,4>:•,06¡-¡%: A0Ð! ¡"Ÿ6š7ž<ž,.™7<,!6ž-ž%Ú  6™.š6¢-Œ#}6Ÿ- I(œÍALE OR ÆEMALE˜8˜0>:@w,*˜0>:@p,?(I A€ 6š.™ ˜4>:@w,A/6™7<‡,.$}FEMALE 6™7ˆ,.š%6¾-/ A # 6š.™6™7<…,.MALE #6™7†,.š*UU6£-+š7<,4D,%@$+š7<,4E,%@$+š7B:š,,%}4C,%@$+š7B:š,,4G,,K(£@6£-@$+š7<,4G,%@$+š7B:š,&‚$@" -†-ˆ(–8&, " R1 6š.-¢Ÿ-B:™,%(™7<,) 16Ÿ-*}Ÿ%‚„ÐÒÏÆÅÓÓÉÏΛŽL B-„ˆ1(œœYOU MAY CHOOSE FROM THEL(FOLLOWING PROFESSIONS:“??£A A PA!+}A!PA"A"PA#”::Ä×ÁÒƬÅÌƬÈÁÌÆ­ÏÒìÈÁÌÆÌÉÎǬÇÎÏÍŬÈÁÌÆ­ÅÌƬÁÎÄ ÈÕÍÁΛ–0–8€, †*¬ 6›. MAGIC-USER &,}6Á-0 A — –8€, †6½-€ AS˜sÁ"*–8@, †3–8,!@)¥H–8@,!@W6›.FIGH-}TER c6¥-@i6Á-s A "™ –8, †6½-€ ASš:Á"€*–8‚, †*–8ƒ,!ˆ$6›.THIEF *6§-06Á-Á: A $› –.}8‚, †6½-€ ASœ0Á"€*–8ƒ, †*¦ 6›.CLERIC &6Á-0 A & –8ƒ, †6½-€ ASžAÁ"€*–8„, †*­*™7B:™,,0/}F16›. ILLUSIONIST 76Á-A A (Ÿ –8„, †6½-€ AS ,Á"€*–8…, †*¨"6›. ASSASSIN , A 0¡ –8…, †6½0}-€ AS¢& 6ž- ((œ7ž<ž,) &-B:›,§›7<,4>:•,A Pª;ž"Š*˜0 (1(ÐÒÅÓÓ §Ó§ ÆÏÒ ÍÏÒÅ ÃÈÏÉÃÅÓ1}; A `¬9 (›7<,(›7%<%,4>:•,*B:›,&06ž-ž%3(96³-±>žŠ*³)³"‚(œ7ž<ž,) $6³-€,˜4S46˜. > A @2}´(ž"Š*˜4S(œ7ž<ž,) ( A @¶:  ((ž!Š(:(ÐÒÅÓÓ §Ó§ ÆÏÒ ÐÒÅÖÉÏÕÓ ÃÈÏÉÃÅÓÀF( œYOUR CHOICE3}˜5˜2>:@e,)˜3>:@ƒ,<(F A ` ˜4S*ž Š( A `Å: ˜4S-„‹¡-ž%‚"(œ& ¡,6³-‚:4}ž"ŠA EÈ,˜4S*ž!Š6˜.6³-€"-„Š, A 0Ê%˜3>:@d%ž,(% A `Ô -„ˆ-…%ž(œ Ù5}: 6¤-6ž--B:›,(›7<,4>:•,06ž-ž%: A •Þ,˜4>:@d%ž,$6š7¤<¤,.›7<,,6¤-¤%ã:  6›.š6š.-¢Ÿ6}%-B:›,:›7<,4/A —ä (›7<, A ˜å 6Ÿ-Ÿ%-¢Ÿæ 6Ÿ-Ÿ%‚èÒÁÃÉÁÌ ÓÕ­ÃÌÁÓÓÅÓ›ò[76¿-+·",%7}@$+¹",%@$+º",%@$+¸",[¿A2PA2pA3 A3@÷(¿A0ú%%Ä×ÁÒƬ ÅÌƬ ÇÎÏÍŬ ÁÎÄ ÈÁÌ8}ÆÌÉÎÇ›üB -„ˆ#(œœYOU MAY CHOOSE FROMB(THE FOLLOWING SUB-CLASSES:& 6ž- ((œ7ž<ž,) &-B:š,š7<,4>:•9},A`B (š7<,(š7%<%,4>:•,*B:š,&06ž-ž%3(B(œ7ž<ž,) $  ((.F( œYOUR CHOICE˜5˜2>:@e:},)˜3>:@p,<(F Ap8%˜3>:@d%ž,(% ApB*AR-„ˆ-„%ž&(œ* L: 6¤-6;}ž--B:š,(š7<,4>:•,06ž-ž%: A V,˜4>:@d%ž,$6À7¤<¤,.š7<,,6¤-¤%`1 6š. A$$-@'<}1((À)jÈÉÔ ÐÏÉÎÔÓ›l –8„,"ƒ6Â-Â&‚ A6n –8„, ‡6Â-Â& A8p –8„,"6Â-Â% ABr =}–8„,!6Â-Â%‚t0›7<,4F06Â-Â%+–8„,"‘,%@$+–8„,"’,v›7<‚,4CA6Â-Â%ƒy) 6ž--B:›,!›7<,4/)6ž>}-ž%~/ AR/žA`ApA€ƒ Aˆ( 6¡-(6Ã-„$+›7<‚,4MA)›7<,4I,Š##6Ã-Ã%†$+›7<,4?}T)›7<,4A,ŒD/6Ã-Ã%ˆ$+›7<‚,4CL)›7<,4D)›7„<„,4K,D6Ã-Ã%Š$+›7<,4F,Ž//6Ã-Ã%Œ$+›7<‚,4CA)›7<,4P)›7<,4@}B,6Ã-Ã%$+›7<,4R,‘6Å8ž&,-Ã6ž-ž%$’7 6¤-ž6ž- A`$-B:›,1›7<,4/76¡-€”"B:›,&AA}v–% ¡€6š7¤&<¤&,.›7<,%6¤-¤%˜? 6›.›7¤, A`16š7B:š,% 6C}›.›7¤&, A`36š7B:š,%-B:›,¦›7<,4/6¡-€¨"B:›,&A–ª% ¡€6š7¤&<¤%,.›7<,D}%6¤-¤%¬C 6›.›7¤&Æ%‚, A`56š7B:š,%:@4,0^(( ªÄÁÎÃÉÎÇ ÌÉÇT}ÈÔÓ,ÆÁÅÒÉÅ ÆÉÒÅ, ANDN(! ÄÁÒËÎÅÓÓ µ§ ÒÁÄÉÕÓ ONCE PER DAYT6Ç-^ A€2&(ªINFRAVISION 60 FEET& AP<E6Ç-P:–8„U},'@P,?(ª+Ç SAVE VS. R/S/W/SPELL/POISONE6Ç-€FY:( ªINFRAVISION @0%@0$+À7<,4S, FEETY(ªDETECV}T UP/DOWN GRADE(75%)P+!(ªDETERMINE DIRECTION(50%)+ AZPÀ7,4S"6Ç-P:–8„,'@P,J(ª+Ç SAVE VS. R/S/W/W}SPELL/POISONP6 -€_`:( ªINFRAVISION @`%@`$+À7<,4D, FEETGÀ7<,4D`(ªULTRAVISION 30 FEETbV,($ªDEX}TECT SLOPE(80%)/UNSAFE WALLS(70%)V(%ªDETERMINE DEPTH(60%)/DIRECTION(50%)dC( ª+1 TO HIT!À7<,4S9( KOBOLDS OR Y}GOBLINSC A„f( DROW OR KUO-TOAhc)(!ª-4 TO BE HIT BY GNOLLS,BUGBEARS,N( OGRES,TROLLS,GIANTS, OR TITANScÀ7Z}<,0DAPjL&(ªHIDE AROUND NATURAL ROCK(60%)L(!ª+2 SAVE VS. POISON/+3 ALL OTHERSl_&(ªIMMUNE TO ILLUSIONS/PHANT[}ASMSL(!ªÂÌÉÎÄÎÅÓÓ, ÂÌÕÒ, AND ÃÈÁÎÇÅ ÓÅÌÆ_( ONCE PER DAYng)(!ª-1 TO HIT/VISION 30' IN DAYLIGHTO(!ªSURPRISE(90%)/SUR\}PRISED(1 IN 12)g( IF ALONE OR WITHs#( DEEP GNOMES ONLY# APx* (ªRESIST SLEEP/CHARM(30%)* AªÐÁÇ]}Å ÆÌÉРÒÏÕÔÉÎÅ ÓÈÏÕÌÄ›´ÂÅ ÈÅÒÅ ÔÏ ÔÏÇÇÌÅ ÂÁÃË  ›¾ffÁÎÄ ÆÏÒÔÈ ÂÅÔ×ÅÅΠÓÃÒÅÅÎ ÏÎÅ ÁÎÄ Ô×Ï­­ÆÅÅÌ ÆÒÅÅ   ^} ÔÏ ÁÄÄ ÔÈÉÓ ÏÐÔÉÏΠÆÏÒ  ›ÈggÙÏÕÒ ÐÒÏÇÒÁÍÍÉÎÇ ÐÒÁÃÔÉÃÅ ÈÉÎÔ­­ÙÏÕ ÈÁÖÅ ÔÏ ÄÅÆÉÎÅ Ô×Ï  ÄÉÆÆÅÒÅÎÔ ÓÃÒÅÅÎÓ ÉΠÍÅ_}ÍÏÒÙ  ›ÒggÁÎÄ ÐÏËÅ ÔÈÅÓÅ ÁÄÒÅÓÓÅÓ   ÉÎÔÏ ÔÈÅ ÄÉÓÐÌÁÙ ÌÉÓÔ     ¨ÄÌ´ ÁÎÄ Ä̵© ÁÓ ÙÏÕ ÎÅÅÄ›×CCÔÈÅÍ ÔÏ ÇÏ`} ÔÏ ÔÈÅ ÐÒÏÐÅÒ  ÓÃÒÅÅΠ×ÈÅΠÙÏÕ ×ÉÓÈ ÔÏ® ›Û.@„€K#)@.@ÜÌÁÎÇÕÁÇÅÓ›æ5 (}a}@‚„'AR@5( ÌÁÎÇÕÁÇÅÓë-º*À7<,4D#( DEEP GNOMISH- Aî?·*À7<,4G5(UNDERCOMMON,ALIGNb}MENT,DWARVISH? Aï7¹*À7<,4D-(UNDERCOMMON,ALIGNMENT7 A"ð%(COMMON,ALIGNMENT%¼Aò'¹'c}À7<,4W)À7<,4DAPõ!(º(,ORCISH!¶Aú/(,GNOMISH(GOBLIN"º)·/(,KOBOLD/ ¸)º)·"(d},DWARVEN,HALFLING/(¸A(,ELVEN¸A)¹*À7<,4D(,GNOMISH) A¹À7<,4WApe}%(,HOBGOBLIN,GNOLLISH% A"À7<‚,0WOA,(,TREANT@1( (+(ÁÂÉÌÉÔÙ ÂÏÎÕÓÅÓ ÁÎÄ ÐÅÎÁÌÔÉÅÓ16f}Ê-€E6(STR:–8€,"–8€,"’*B:›,!ˆ0›7ˆ<‰,4RA66Ê-H–8€,"’*›7„<„,4B6Ê-Jl–8,"@C›7@<@g},4F)›7@<‚,4RA`™7@<@,0F)¶)¼l6Ê-@K.Ê(/$6Ê-P:H:€,$A,%. AL –8€,h}"“6Ê-A6-N (  A0O¼*Ê"A6-R!(·*(¶*Ê!@™!6Ê-@™TÊ!@*(»6Ê-@i}V*Ê!@u¹)™7<,4F*6Ê-@uY/Ê!@Pº)™7<,4F#(¶/6Ê-@PZ!Ê"A(00! A0j}\ Ê Š(0](Ê^HH6Í-€%+–8€,!,%+Ê!@P,%+",%+–8€,"“,&+–8€, ˆ,&+–8€, †,&+–8€,"ƒ,` Í!€( +bd(Í/Hk}IT d6Í-€%+–8€,!,%+–8€,!‘,%+Ê!,%+Ê!@u,%+Ê!@,%+",%+–8€,"“,&+–8€, †,d Í!€(+fZ(Í/DAM Z6Í-l}€%A$+–8€,!‹,%A$+–8€,!,%AP$+–8€,!,%AP$+–8€,!,hƒƒ6Í-Í%AP$+–8€,!‘,%AP$+Ê!€,%AP$+Ê!@Pm},%AP$+Ê!@u,%A$+Ê!@,%A$+",%A$+–8€,"“,i<<6Í-Í&AP$+–8€, ˆ,&A$+–8€, †,&An}$+–8€,"ƒ,jÍ!(+l Í"€(NORMAL n Í€(ÍpJ(WEIGHT&( ALLOWANCE DOORS(1,Í €@() BEND Bo}ARS(0%)J Adq–8€,"“AXr–8€,!†*–8€, (-2) t –8€,!*Ê @Q (-3) vÊ!@P(-4) xp} "(-5) z! –8€,"“( þ7 IN 8)!( |gg6Í-%+–8€,!‰,%@$+–8€,!‹,%@$+–8€,!,%@$+–8€,!,%@q}$+–8€,!,%@$+–8€,!‘,~ŠŠ6Í-Í%@$+Ê!,%@$+Ê!@P,%@$+Ê!@u,%@$+Ê!@,%@r}$+"@,%@$+–8,"@,)( BEND BARS(Í%)"–8€,!)(€T((INT:–8, T6Í-Ë%+–8,!‡,%s}+–8,!‰,%+–8,!‹,%+–8,!,%+–8,!@,56Í-Í%+–8,!,%+–8,!‘,)(¼*(¹*(»*(¸/Í!‚56Í-‚‚E ¹)»)¸96Í-+–8,!,%+–8,!t},%+–8,!‘,&+»",%+–8,"“,?Í €E6Í-€ƒ¸6Í-Í&„$$((Í) ADDITIONAL LANGUAGES…-›7<‚,0MA*›7<,0I-B:›, u}‰A…†71›7<,0M*›7‰<‰,0M*›7<,0I*›7‰<‰,0I76Ç-‡B:›, @A…ˆÇ*›7<,0MA…‰]( v}CHANCE TO KNOW SPELL(]6Í-@5%Š$+–8,!‰,%@$+–8,!Œ,%Š$+–8,!Ž,%Š$+–8,!,Š36Í-Í%Š$+–8,!‘,(Í% *Í"@5w}3(4-6‹Í"@E(5-7ŒÍ"@U(6-9Í"@e(7-11ŽÍ"@u(8-14Í"@…x}(9-18Í"@•(10-ALL’ ()•E((WIS:–8‚, E6Í-€%+–8‚,!Ž,%+–8‚,!,%+–8‚,!,%+–8‚,!‘,–1$6Í-Í&+–y}8‚, ˆ,&+–8‚, …,&+–8‚,"ƒ,*Í!€1(+˜. Í"€$(NORMAL SAVE VS. MENTAL. A’š""(Í SAVE VS. MENTAL ATTACKSœ-›7z}<,0D*›7<‚,0CL-B:›, ‰Až! B:›,!ˆ!›7‰<‰,0CAŸ" –8‚, "( NO BONUS SPELLS  K(SPELL FAILURE{}(E6Í-@ &@$+–8‚,!‰,&@$+–8‚,!Š,K6Ç-¢1Ç 6Ç-€6Í-Í&…$+–8‚,!‹,'(Í%)1 A¤7( BONUS SPELLS |} !–8‚,"-(ONE 1ST7 A¦0(TWO 1ST–8‚,"&(,ONE 2ND0 A¨> –8‚,!(,TWO 2ND"–8‚,!>( }} ONE 3RDª –8‚,"’(,ONE 4TH¬ –8‚,"Ž(®Q((DEX:–8ƒ, +–8ƒ, *–8ƒ,!†G(NO BONUSES OR PENAL~}TIESQ A °??6Í-€%+–8ƒ,!,%+–8ƒ,!,%+–8ƒ,!‘,&+–8ƒ, †,&+–8ƒ, …,&+–8ƒ,"ƒ,² Í!€(+´P(Í REACTION/MISSILE P6}Í-€%+–8ƒ, ‡,%+–8ƒ, †,%+–8ƒ, …,%+–8ƒ,"ƒ,&+–8ƒ,!Ž,¶1$6Í-Í&+–8ƒ,!,&+–8ƒ,!,&+–8ƒ,!‘,*Í!€1(+· (Í AC¸E((CON:€}–8„, E6Í-€%+–8„,!Ž,%+–8„,!,&+–8„, ‡,&+–8„,"ƒ,º,›7<,0F*›7„<„,0B,B:›, ‰A(¼8›7<,0F*›7„<„,0B}8B:›,!ˆ*›7ˆ<‰,0RAA(¾$$6Í-Í%+–8„,!,%+–8„,!‘,%+–8„,!’,À Í!€(+Â[(Í HIT POINT ADJUSTMENT3( SYSTEM ‚}SHOCK(<–8„, ŽQ6Í-”%@$+–8„,,[ A4Ä;;6Í-@ˆ%ƒ$+–8„,!Ž,%„$+–8„,!,%‚$+–8„,!,%‚$+–8„,!‘,ÆA(Í%) RESURRƒ}ECT.("–8„, Ž76Í-@%%…$+–8„,,A A7È.6Í-@d%‚$–8„,"Í!A.6Í-AÉ- (Í%)–8„,"“-( +1 SAV„}E VS. POISONÊ4((CHR:–8…,Ï€*( (Ï) 4 A@Ë ( Ì666Í-%+–8…,!„,%+–8…,!†,%+–8…,!ˆ,%+–8…,!‹,%+–8…}…,!,ÎP76Í-Í%+–8…,!Ž,%+–8…,!,%‚$+–8…,!,%@$+–8…,!‘,P(MAX. HENCHMEN(Í)Ö@@6Í-€%…$+–8…,!,%Š$+–8…,!Ž,%…$+–8…,!†},%Š$+–8…,!,%Š$+–8…,!‘,ØKK6Í-Í&…$+–8…, ‰,&…$+–8…, ˆ,&…$+–8…, ‡,&…$+–8…, †,&…$+–8…, …,&…$+–8…, „,Ú Í!€( +Ü! Í"€‡}( NORMAL ! A`Þ (Í% à( LOYALTY BASEâ7Í€*Í*Í@06Í-Í%…+Í"@E76Í-@5ä Í!€(ˆ} +æ! Í"€( NORMAL ! Apè (Í% ê(REACTION ADJUSTMENTG-‚@#-(œÁÎÏÔÈÅÒ ÃÈÁÒÁÃÔÅÒ ¨Ù¯Î©1‰}˜G˜0Y*˜0NA˜4YA +Î ÐÄ×ÁÒÆ ÃÌÁÓÓÅÓ›Ú+ 6- ¥#6›7<%‡,.FIGHTER +6-%ˆä$¦6›Š}7<%†,.CLERIC $6-%‡é#§6›7<%…,.THIEF #6-%†î&¨6›7<%ˆ,. ASSASSIN &6-%‰ó. ¥*¦&6›7<%Ž,.FIGH‹}TER/CLERIC .6-%ø- ¥*§%6›7<%,.FIGHTER/THIEF -6-%Žú, ¦*§$6›7<%Œ,. CLERIC/THIEF ,6-%ü/ ¦*¨'6›7<Œ}%,.CLERIC/ASSASSIN /6-%þ. ¥*¦*§.6›7<%”,.FIGHTER/CLERIC/THIEF $ÅÌÆ ÃÌÁÓÓÅÓ›, 6- ©$6›7<%ˆ,.} CAVALIER ,6-%‰ %¥6›7<%‡,.FIGHTER %6-%ˆ0ª"6›7<%@,.RANGER 06-%@$¦6›7<%†,.CŽ}LERIC $6-%‡#«6›7<%…,.DRUID #6-%† (¬ 6›7<%Š,. MAGIC-USER (6-%‹"#§6›7<%…,.THIEF #6-%†}%&¨6›7<%ˆ,. ASSASSIN &6-%‰&. ¥*¦&6›7<%Ž,.FIGHTER/CLERIC .6-%(2 ¥*¬*6›7<%’,.FIGHTER/MAGIC-USER }26-%“*- ¥*§%6›7<%,.FIGHTER/THIEF -6-%Ž,, ¦*§$6›7<%Œ,. CLERIC/THIEF ,6-%.0 ¬*§(6›7<%,.MAGIC‘}-USER/THIEF 06-%‘/< ¥*¦*§.6›7<%”,.FIGHTER/CLERIC/THIEF <6-%@!08 ¥*¬*§86›7<%@$,.FIGHTER/MAGIC-’}USER/THIEF 2$4ÈÁÌÆÏÒàÃÌÁÓÓÅÓ›>+ 6- ¥#6›7<%‡,.FIGHTER +6-%ˆH$¦6›7<%†,.CLERIC $6-%‡M#§“}6›7<%…,.THIEF #6-%†R&¨6›7<%ˆ,. ASSASSIN &6-%‰V. ¥*¦&6›7<%Ž,.FIGHTER/CLERIC .6-%X- ¥*§%6›7”}<%,.FIGHTER/THIEF -6-%ŽZ0 ¥*¨(6›7<%,.FIGHTER/ASSASSIN 06-%‘\, ¦*§$6›7<%Œ,. CLERIC/THIEF ,6-%a•}/ ¦*¨'6›7<%,.CLERIC/ASSASSIN /6-%b. ¥*¦*§.6›7<%”,.FIGHTER/CLERIC/THIEF d$fÈÁÌÆÌÉÎÇ ÃÌÁÓÓÅÓ›p+ 6–}- ¥#6›7<%‡,.FIGHTER +6-%ˆu$¦6›7<%†,.CLERIC $6-%‡z#«6›7<%…,.DRUID #6-%†#§6›7<%…—},.THIEF #6-%†„. ¥*¦&6›7<%Ž,.FIGHTER/CLERIC .6-%‰- ¥*§%6›7<%,.FIGHTER/THIEF -6-%ŽŽ, ¦*§$6›7<˜}%Œ,. CLERIC/THIEF ,6-%“. ¥*¦*§.6›7<%”,.FIGHTER/CLERIC/THIEF –$˜ÇÎÏÍÅ ÃÌÁÓÓÅÓ›+ 6- ¥#6›7<%‡,.™}FIGHTER +6-%ˆ¢$¦6›7<%†,.CLERIC $6-%‡§)­!6›7<%‹,. ILLUSIONIST )6-%Œ¬#§6›7<%…,.THIEF #6š}-%†±&¨6›7<%ˆ,. ASSASSIN &6-%‰¶. ¥*¦&6›7<%Ž,.FIGHTER/CLERIC .6-%»9 ¥*­+6›7<%”,.FIGHTER/ILLUSI›}ONIST 96-%@!¾- ¥*§%6›7<%,.FIGHTER/THIEF -6-%ŽÀ, ¦*§$6›7<%Œ,. CLERIC/THIEF ,6-%Â/ ¦*¨'6›7<œ}%,.CLERIC/ASSASSIN /6-%Ä1 ­*§)6›7<%‘,.ILLUSIONIST/THIEF 16-%’Æ< ¥*¦*§.6›7<%”,.FIGHTER/CLERIC/THIEF} <6-%@!È9 ¥*­*§96›7<%@%,.FIGHTER/ILLUSIONIST/THIEF É$ÊÈÁÌÆ­ÅÌÆ ÃÌÁÓÓÅÓ›Ì, 6- ©$6›7<%ˆ,.ž} CAVALIER ,6-%‰Î%®6›7<%‡,.PALADIN %6-%ˆÐ%¥6›7<%‡,.FIGHTER %6-%ˆÒ$ª6›7<%†,.RANGER $6Ÿ}-%‡Ô$¦6›7<%†,.CLERIC $6-%‡Ö#«6›7<%…,.DRUID #6-%†Ø(¬ 6›7<%Š,. MAGIC-USER (6-%‹Ú#§6 }›7<%…,.THIEF #6-%†Ü&¨6›7<%ˆ,. ASSASSIN &6-%‰Ý –8‚, 6¦-€Þ5¥*¦*–8‚,!Œ-6›7<%Ž,.FIGHTER/CLERIC¡} 56-%à2 ¥*¬*6›7<%’,.FIGHTER/MAGIC-USER 26-%“â- ¥*§%6›7<%,.FIGHTER/THIEF -6-%Žä- ¦*ª%6›7<%,.¢}CLERIC/RANGER -6-%Žè3¦*§*–8‚,!Œ+6›7<%Œ,. CLERIC/THIEF 36-%ì6¦*¨*–8‚,!Œ.6›7<%,.CLERIC/ASSASSIN 66£}-%î0 ¬*§(6›7<%,.MAGIC-USER/THIEF 06-%‘ðN¥*¦*¬*–8‚,!Œ@6›7<%@%,.FIGHTER/CLERIC/MAGIC-USER N6-%@¤}&ò8 ¥*¬*§86›7<%@$,.FIGHTER/MAGIC-USER/THIEF ÷$ü4 6-.–8€,!Ž*–8,!‰*–8‚,!‰*–8ƒ,!Ž*–8„,!Ž46©- &¥}©6›7<%ˆ,. CAVALIER &6-%‰ 3©*–8‚,!Œ*–8…,!+6›7<%‡,.PALADIN 36-%ˆ 1–8€,!ˆ*–8„,!†)6›7<%‡,.FIGHTER ¦}16-%ˆ 5©*–8ƒ,!*–8‚, ‘-6›7<%‰,. BARBARIAN 56-%Š >!–8€,!Œ*–8,!Œ*–8‚,!*–8„,!66›7<%†,.RANGER >6-%‡ §}) –8‚,!ˆ!6›7<%†,.CLERIC )6-%‡$ /–8‚,!‹*–8…,!Ž'6›7<%…,.DRUID /6-%†. 4–8,!ˆ*–8ƒ,!…,6›7<%Š,. MAGIC-U¨}SER 46-%‹8 5–8,!Ž*–8ƒ,!-6›7<%‹,. ILLUSIONIST 56-%ŒB ( –8ƒ,!ˆ 6›7<%…,.THIEF (6-%†L 9–8€,!‹*–8,!Š*©}–8ƒ,!‹16›7<%ˆ,. ASSASSIN 96-%‰V 4!–8€,!Ž*–8‚,!Ž*–8ƒ,!Ž*–8„,!Š46›7<%„,.MONK [ $` EEÓÕ­ÃÌÁÓÓ ÁÂÉÌÉÔÙ(N1,N1)ª}="W2405 REM ÁÄÊÕÓÔÍÅÎÔÓ):IF ABL(N0)>N18›e ÁÄÊÕÓÔÍÅÎÔÓ›j I.6–8,-–8,%+À7<,4G*·"€,&+À7<‚,4WO,C–8, ‰*À7<‚,4WOI«}6Ç-l (ÇA$ o !-B:›,›7<,4M!6Ç-‚p   Ç"‚6–8,-‰t <*6–8€,-–8€,%+À7<,4W,%+À7<‚,4WI,3–8€,!¬}’<6–8€,-’~ 7 6ž-ˆ6¡--€…-ž¡((–8, 06¡-¡%4 7$ ÓÅÔ ÒÁÃÉÁÌ ÍÁØÉÍÕÍÓ›& (š7<,4D6·-–8ƒ,!‘(6–­}8ƒ,-‘+ ·–8…,!6–8…,-. B:š, †A1U0 (š7…<…,4L6¸-–8€,!‘(6–8€,-‘5 ¸–8‚,!‘6–8‚,-‘: (š7†<®}†,4O6¶-–8,!‘(6–8,-‘? ¶–8‚,!Ž6–8‚,-ŽD ¶–8ƒ,!‘6–8ƒ,-‘I ¶–8…,!Œ6–8…,-ŒN š7„<†,4F-E¯}6»-S š7<,4G6º-X š7<,4E6¹-] š7‚<‚,4U6¼-b ÆÅÍÁÌÅ ÍÁØÉÍÕÍÓ›g (¾ $l (·A1n  –°}8€,!‘6–8€,-‘q  –8ƒ,!‘6–8ƒ,-‘v (¹A2{  –8€,!6–8€,-€ (ºA2…  –8€,!6–8€,-Š (»A2 ±}  –8€,!‘6–8€,-‘” (¸A20™  –8€,!Ž6–8€,-Žž $² Ä×ÁÒÆ ÓÕ­ÃÌÁÓÓÅÓ›¼ 6š.GRAY HILL MOUNTAIN  $Æ ²}ÅÌÆ ÓÕ­ÃÌÁÓÓÅӛР=6š. GRAY HIGH "›7<‚,0CA=6š7B:š,%,. VALLEY WOOD Ú 93›7<‚,0CA*›7<‚,0CL*›7<,0M*›7<,0³}R96Ç-Ü (Ç*B:›, ‰6Ç-€(6š7B:š,%,.WILD ß 3Ç›7‰<‰,0C*›7‰<‰,0M36š7B:š,%,.WILD ä %›7<‚,0DR%6š7B:š,´}%,.DARK î 6Ç-€ $ø ÇÎÏÍÅ ÓÕ­ÃÌÁÓÓÅÓ› 36š.SURFACE ™7<,4M36š7B:š,%,.DEEP  $ ÈÁÌÆÌÉÎÇ ÓÕ­ÃÌÁµ}ÓÓÅÓ› '$6š.STOUT TALLFELLOW HAIRFOOT '$ˆÓÅÔ ÃÈÁÒÁÃÔÅÒ ÍÉÎÉÍÕÍÓ›’–8€,!ˆ*–8„,!†6¥-œ–8,!ˆ*–8ƒ,!…6¬-¦¶} –8‚,!ˆ6¦-«–8‚,!‹*–8…,!Œ6«-° –8ƒ,!ˆ6§-º.(–8€,!Ž*–8,!‰*–8‚,!‰*–8ƒ,!Ž*–8„,!Ž.6©-Ä©–8‚,!*–8…,!·}6®-Î'!–8€,!Œ*–8,!Œ*–8‚,!*–8„,!'6ª-Ø–8,!Ž*–8ƒ,!6­-â –8€,!‹*–8,!Š*–8ƒ,!‹ 6¨-ç$€ D:CHARGE¸}N.BASjjjjjjjjjjjjjjjjjjjjjj,K6€7AU,.>:@@,c6€7A,.>:@@,{6€7A),.>:@@,L6€7A,.>:@ Documentation for the Dungeon Character Generator for D&D This BASIC program will let you roll up a D&D characº}ter quickly without having to look up anything in any of the books. It includes all first level character classes possi»}ble including information from The Unearthed Arcana Reference Manual. Notice I said "first level" - no bards or thief-acrobat¼}s. Sorry. When run the title screen will shortly be replaced by a query asking you if you wish to enter your ability sc½}ores manually. Answer "Y" or "N" followed by . Answering yes will allow you to enter ability scores one at a time. Yo¾}u will only be allowed to enter scores 3-18. The order is as follows - strength, intelligence, wisdom, dexterity, constitutio¿}n, and charisma (sorry, no comeliness as I don't use it.) If you let the machine roll your numbers for you it will rollÀ} straight (i.e. three six-sided dice). You will then be presented with all possible character classes indicated by your numbeÁ}rs from which to choose. Press the letter of the class(es) followed by . You will also be asked for gender, male or fÂ}emale, and subclasses if warranted. Afterwards, the program will roll your hit points and list your racial abilities. *Ã}*important** Once these abilities are listed be sure to write down all information before proceding. It will not appeaÄ}r again!! At this time you may hit any key (although you will not be asked to). This is because some racial abilities jÅ}ust barely fit on the screen and a "hit any key" option would scroll the top lines off the screen before you had a chance to Æ}write them down. **Note** I have left a few lines in the program with remarks as to where to put in your own page-filppÇ}ing routine if you wish as a programming problem for you to try. This section is remarked for you. When a keypress is dÈ}etected, another screen of data is presented. This is your languages and all bonusses and penalties from the book indicated bÉ}y your ability scores (if you put in a page flip routine, you will need to flip back here). After writing down this infÊ}o you can roll another character or quit to BASIC. I have tried to detect any bugs but because there are so many optionË}s I may not have found them all. If you find any, leave me E-MAIL and I will try to fix it for you. Scott Ì}Marion 71061,1403 áó?¢B¤ËÀPÐm78ð• « L¤S¤C¤ÉÁVB¤LD¤ÂPÍDIÆBONUÓCÐBPOÓSCORÅHIGÈI±I²FÌLÄÃTIMÅÐÊ(A€Bh„<ÒÒIIÎ}@tBhd @ A @ @ @P@h@ˆ@hB’X@ˆ@)@Ï} CHICKEN›BY STAN OCKERS (12/81)›ANTIC PUBLISHING, 1987› F#@@K:F€;@ ,;@Ð} ,‚;@ ,(INITIALIZING ...PAGE 6 ROUTINES AND DATA›(%ƒ-A6A‡"„!ƒ„% ƒ)VERTICAL BLÑ}ANK ROUTINE›*8…;A,$ƒ-@A("„46…7ƒ,.>:„,8 ƒ+LOAD PLAYER ROUTINE›-8†;@s,$ƒ-@@sÒ}("„46†7ƒ,.>:„,8 ƒ/))INSERT ADDRESS OF ROUTINE IN PAGE 6›0? 6„-C:…,6‡-P:„'AV,)A@‡?A8„&AVÓ}$‡2II104,160,52,162,6,169,7,76,92,228,104,160,98,162,228,169,7,76,92,228›4bb120,120,120,120,30,57,81,105,15,15,15,15,0,0Ô},0,0,52,53,54,55,2,2,3,4,12,15,15,15,15,11,11,11›6›7›8hh72,138,72,152,72,162,0,189,120,2,29,44,6,160,15,24,176,32,2Õ}01,15,240,28,201,14,208,2,160,13,201,13›9kk208,2,160,14,201,11,208,2,160,7,201,7,208,2,160,11,192,15,240,6,61,48,6,157,28,6Ö},152,61,44,6,157,44,6›:232,224,4,144,195›<UU162,0,189,32,6,133,203,189,36,6,133,204,189,40,6,133,209,198,209,16,7,232,2×}24,4›A%%144,232,176,91,189,28,6,133,207›F7770,207,176,26,188,24,6,192,1,240,19,208,1,200,177›Kff203,240,6,136,145,203,2Ø}00,208,245,136,145,203,222,24,6,70,207,176,29,188,24,6,200,192,254,176,21›Phh177,203,208,247,136,177,203,240,6,200,145,203,Ù}136,208,245,200,145,203,254,24,6,70,207,176,3,222,20›U006,70,207,176,3,254,20,6,189,20,6,157,0,208›Z``24,144,154,162,4,18Ú}9,11,208,240,5,169,0,157,39,6,202,208,243,104,168,104,170,104,76,98,228›d[[234,234,234,104,104,104,170,189,32,6,133,186,189Û},36,6,133,187,104,133,213,104,133,212›nff189,24,6,133,195,169,0,168,192,255,176,35,196,195,240,5,145,186,200,208,243,162,0,Ü}161,212,240,11›x]]145,186,230,212,200,192,255,176,11,208,241,169,0,145,186,200,192,255,144,249,96,234,234›–CAR COLOR DAÝ}TA› +ƒ-@@ "„'6‚7ƒ,.>:„,+ ƒªJJ24,60,218,68,90,186,70,150,54,232,74,168,88,154,21,252,200,76,228,28›¾..Þ}DEFINE P/M AREA - SINGLE LINE RESOLUTION›È46„-F:A,&@&BBy„46ˆ-AV$„ÍPLAYER MISSILE POINTERS›Ò+ß}ƒ-@@'Ah%ƒ„%ƒ+ ƒÔ'ƒ-AhAq#ƒ' ƒÚDATA FOR PLAYER IMAGES›Ü!ƒ-ˆˆ%A!à}"„ƒ„! ƒæHH16,56,16,56,40,16,16,16,146,254,254,124,56,56,40,40,40,40,40,108,0›è==126,195,219,219,91,219,219,219,21á}9,91,219,219,195,126,0›ê??126,195,219,219,218,219,219,219,219,218,219,219,195,126,0›ì==33,34,150,84,57,30,60,123,159,30,5â}2,86,151,36,194,193,0›îCC16,56,16,56,40,16,16,56,124,254,186,56,56,40,40,40,44,32,96,0›ð@@16,56,16,56,40,16,16,146,214,12ã}4,56,56,40,40,40,104,8,12,0›ò??126,255,173,173,239,199,199,199,199,239,173,173,255,126,0›INIT. HORIZ. & VERT. POS.›/ä} #A‚!ƒ-AVAc%"„+ƒ„/ ƒ""120,120,120,120,30,57,81,105› INIT COLORS›"6‰-@6Š-A-å}A@@96‹-Mƒ-@@cA%ƒ@:‚7‹%ƒ,,g ƒs6‹-@6Œ-@'DRAW ROADS - SET PRIORIæ}TY›,0 +@!ƒ-@@ ,6€7ƒ,._0 ƒ1Aƒ-@@ @*67ƒ,.-=67ƒ&@,. A ƒ6-ç}@"(@€4-@A(@€S-@`(@€r-@"(@€8‘-è}@"(@4-@A(@S-@`(@r-@(@‘Aé}@T))INIT. AND PRINT INFO. - RESET TIMER›^x6-@P!-@C(@score time U-ê}@#x(@dif high hw-"(@4-@@"A(@ŽS@wë}e@w@ mINIT. P/M GR. - FLAGS›rEAY@b'B2w@36-@h?6-ì}@ˆE6‘-w..LOAD PLAYERS - SET COLORS - PLAYER SIZES›|p 6’-C:†,6„-?:’<<ˆ,:6„-?:’<@<ˆ%@!,U6„-?:’í}<@<ˆ%@!,p6„-?:’<@<ˆ%@!,'6„-?:A6,'INSERT VBI ROUTINE›†KB2W@'B2X@î}9B2Y@KA#@‰INIT. SPEEDS›‹FAv@)ƒ-AwAyBƒH:,$‰%@F ƒŽï}"-@@""(@‰&&IF CARS OFF SCREEN, CHANGE LANES›š€+F:AW, @*F:Aa,"@W=Aað}A“X6„-?:’<@<ˆ%@6,jA…@t A€A“¤€+F:AW,!A@*F:Aa,"A“=Aañ}@WX6„-?:’<@<ˆ%@!,jA…@t A€A“®€+F:AX, @*F:Ab,"@=Aò}bAiX6„-?:’<@<ˆ%@6,jA†@t A€A“¸€+F:AX,!A@*F:Ab,"Ai=ó}Ab@X6„-?:’<@<ˆ%@!,jA†@t A€A“€+F:AY, @*F:Ac,"Aô}=AcAEX6„-?:’<@<ˆ%@6,jA‡@t A€A“Ì€+F:AY,!A@*F:Ac,"AEõ}=AcAX6„-?:’<@<ˆ%@!,jA‡@t A€A“Ñ""PRINT TIME - CK. FOR TIME UP›Öö}Q6”-@0&F:@,,-@=(@” Q”A Ø RESET SOUND - HORN ROUTINE›Ù%%2÷}Û:H:,!?P:2@à:H:, ?:2@@@ø}@âCHICKEN STOMP›å06•-F:Ad,0•!@)• @Aê,•"@"6„-?:’<<ˆ,, Aù}ì; ‘"6‘-12@@@; A–î1 ‘"6‘-12@"@@ïCHECK FOR REú}ACHING BOTTOM›ð6„-?:’<<ˆ%‘,ô F:A`,!A0AùCHECK FOR COLLISION›þ F:B2`,"Aû} SPLAT›Œ6„-?:’<<ˆ%@Q,2–-@@_2H:,$AU@@Œ2@H:ü},$AU@@ ’ AF:A,%@4ƒ-@@08 ƒ< –^2€2ý}@’A@@""DECREASE SCORE - CHECK FOR 0›J6-&@ #-6(@þ} JA))MOVE UP - RELOAD BIRD - RESET COLL.›M A`F:A`,&@$36„-?:’<<ˆ,?ÿ}‰!@M6‰-‰&@NB2x A•¼SCORE = ZERO›¾1-@@1(@ÃÈÉÃËÅÎ§Ó ÄÅÁÄÀ }AMBULANCE›Á6“-@Â2F:Av%“,"(6“-“%@2 AÓ!@6“-@ÉWAv%“@ }.A`%“F:A`,BAV%“A W6„-?:’<“<ˆ%A,Ëh–-@@4•-@`@@6@P2 }•@@dƒ-@@h ƒÌ •#•-@@@`@?2•@@Sƒ-@@ }W ƒ[ •_ –2ÎNEW HIGH SCORE?›Ð=6„-?:AF,!Ž6Ž-0-@@"=(@ }ŽÚa-@@4(@ðòåóó ÆÉÒÅ âõôôïîF-@@a(@ ôï ðìáù áçáéîÜkƒ-B2HB2Q }#ƒ' ƒI2k2@ßWAIT FOR BUTTON›ä T:,"@ }A@éP/M GRAPHICS OFF›î@B2x'B2w66„-?:AF,@ A€ ))BACK TO TOP - STOP M }OVEMENT OF BIRD›*:A`@0(6„-?:’<<ˆ,:Av/ SIGNAL AND INCREMENT SCORE›4´ƒ-@@ }4–-@@6@P2–@@l2@–@@p –’2 }´2@9\6„-?:’<<ˆ%@h,=–-@H:,$@0A –\6„-?:’<<ˆ%@ˆ },><6-%‰$@%-8(@ < ƒH‰ @ 6‰-‰%@ICK FOR BONUS›J ŠAP }Lj%2@%@@36Š-Š%AB6•-F:@,N• @`@j AHN@•&@ }P,-Œ@(@ª,6Œ-Œ%@R A„TIME'S UP ROUTINE›Ž,-@@,(@ ÔÉÍŧ }Ó ÕИ A ÞCHANGE CAR COLOR›è)6‹-‹%@‹"@ )6‹-@ò6“-@:‚7‹,,$€D1:CHICKEN.BAS9999 }9999999999999999999999999999999999999999999999999999999999999999999@™@š¶@ž@¢¸C CHICKEN-XL PROGRAM BY STAN OCKERS ARTICLE BY ANTIC ED (From the July '87 Antic) (synopsis) Ch }icken is a smooth "Frogger"-type game that originally appeared in the first issue of Antic. This BASIC program works on all }8-bit Atari computers of any memory size, with disk or cassette. We're proud that so many readers have been with us for }the entire five years of Antic Magazine's publication. However, most people discovered Atari computers and Antic considerably } more recently. Now you won't miss out on the classic programs from Antic's early years. Our newest department -- the Antic } Hall of Fame -- will reprint outstanding programs from the issues we published five years ago. Actually, the Hall of Fa }me will do more than simply reprint classic Antic programs. Without changing anything about the way these programs look or r }un, we will re-edit the listings to ensure that they work on today's XL and XE models -- and also to ensure that typing them }is made as easy as possible. It's a pleasure to begin the Hall of Fame with Stan Ockers' Chicken from April 1982, the ve }ry first issue of Antic. Though now less active than he used to be, Ockers is probably the best known and most prolific prog }rammer of Atari public domain games. He still lives in Lockport, Illinois, but his games usually premiere in the newsletter }of the Eugene (Oregon) ACE. He has resisted offers to turn pro and gives all his games to public domain, refusing to accept }payment for them. Ockers' smooth, inventive games are state-of-the-art Atari BASIC and highlighted this magazine's early } issues. His last appearance in Antic was Crickets, September 1985. Games by Stan Ockers can be found on no less than four pu }blic domain disks from The Catalog. (PD001, PD003, PD004, PD005. $10 each.) Other public domain programmers have tinker }ed with the original Chicken listing. So unfortunately many current versions do not work correctly on the XL/XE computers. H }owever, the listing published in this issue is the "pure" version that Ockers recently sent us at our request, and it works j }ust fine on the XL and XE. CHICKEN REVISITED This gem was a clever BASIC adaptation of the popular "Frogger" forma !}t. What follows is the original 1982 text for Chicken -- A Great Game: Why did the chicken cross the road? To lay "}an egg. Actually, our chicken is trying to score points by getting safely across this busy highway. Each time he makes #}it adds to his score, but the cars go faster and faster. If he gets hit, the SPCA sends an ambulance and the cops slow the t $}raffic for a while.  AÍ›ê¼"@ A Ï›ì¼"@B APÅ›î¼"@ AÉ JK3ÃÐN¤MASK¤A¤P¨A¨LINE¤ERROR¤E¤ÉFILE¤C¤OP¤GÔÌÔDÌÎUSEÄØYÙÙERRLINÅSÌYÁÚNÎZÚCRÙERÒŽŒŒAA¼&}^r&˜&@' ¾ È Ñ @P @B”$B‚8@‰B”1@@'}@!Ap@‰@@‡@#))*** CRYPTOQUOTE UTILITY *** 3/10/90› “]€;AA(},;@,‚;A@,ƒ9@&,„9@&,…;@ ,†;@8,‡;@8,qˆ-@@&€6ƒ8ˆ,-6„8ˆ,-)}“ ˆ6&‰;@,Š;@ ,‹;@,66Š. D:CRYPTO._6.>:AA,6….'6…7@ ,.66…7@,.…B6Œ-@P*}N6-U6€._ AA AF:A,&@A6Ž-+F:A,%@,$AV{ +@/6-F:A`,+}%AV$F:Aa,AAYU%@0A0iˆ-A'wŽ%ˆ{ ˆ Žˆ-@4@6,%ˆ,}F:%ˆ&@,0 ˆD%@1@fX%@2w%@3F:A,%@Ž(@ !==72,169,-}56,141,10,212,141,24,208,169,0,141,23,208,104,64›"-ˆ-@")Ad%ˆ- ˆ#GAA('A.}@9BB†A’G6‘-Ž%@$%AY@4( A02’-@@ <R@/}.@@K:@A”RA@dF)@P@Q/"@*(''" 0}A/***LOAD***›Z'!A'*AU'6-&A(d'!@* A#'6-&@2n++!@*A&*1}AU@`s()"@b@`xq @e*+ @2)!@4,*+ @9)!@A,*+ @D)!@F,*+2} @X)!@Y,*@c6-%@d‚!"AU'6“-@!$Œ5"A&6-&@) 56-3}–D"A&6’-’&@)’@7-’&@”D(@ 6"A&* @ 6€.,6’-@6 @`4}ªn#"A&*’ @*”!@/6’-@ =6”-”&@K6“-“&@W-@”d(@n @`´*"A&5} 6€.€7@<,* @`¹!@@`¾6-%@6€7<,.>:,È!-’&@”!(@>:,Ò ’Ü6}$æJ“-@-6”-“$@%@9-”F(@…J “ðDAR@(8(Type your CRYPTOQU7}OTE aboveD6•-A@ú5“-@-6”-“$@%@1 Œ5 “< 6‚. 6‚7A@,. +6‚7@,.‚<6€7%8}@,.‚1(TYPE YOUR CHOICES%6•-Ap16–-R@.@@K:@A”R9}A@d"(>:AV,> ,)@-["@'(;($DO YOU WANT TO DO A NEW CRYPTOQUOTE?G(-:}T)@—[(>:—,.9"@'*—"@‰6AF:A,%@9%1$"@A$***SAVE***›2'"@;}A P'*** PRINT ***›6!A'6-&A(@'!@* A#'6-&@2JX"@`)"A%&(>:<}AS,L(!DO YOU WANT TO CLEAR ALL CHOICES?X(-OA"@`)"A%&)@—-(>:—,A—"@‰A`T=}1 @e6-%@d1!@A€^!@A€h6˜-&@drU ƒ8˜,/(>:%A(, ½ >:ƒ8˜,%>}A(,U( Do you want to change it? -|2 ƒ8˜,)@—(>:—,2—@‰A€†L ƒ8˜,#‘%ƒ8˜,&@d?}L6„8ƒ8˜,&@d$+ƒ8˜,!@d,,-(>:, = šR@.@@K:@A”@}RA@d¤)@™®g™"AU6™-4‘%ƒ8˜,&@d]6„8ƒ8˜,&@d$+ƒ8˜,!@d,,-A}g A¸'™!A'*™AU'6™-™&A(Â'™!@*™ A#'6™-™&@2Ì1™ @e6™-™%@d1B}™!@AÖ™!@Aà6š-™&@dê] „8š, (2(>:„8š,%A(, ½ >:™%A(,]6„8ƒ8˜,&@d$C}+ƒ8˜,!@d,,-˜%@dëA „8š,7‘%ƒ8˜,&@dƒ8˜,&@2$+ƒ8˜,!@d,A A€ô 6„8š,-‘%šš%@2þ' 6ƒD}8˜,-™'(>:™%@2$+™",,5ˆ-@€7ˆ<ˆ,4>:,56‚7ˆ<ˆ,.>:™%A(, ˆu”-@@+E}-”q(@‚7+”'@,$@ %@<+”'@,$@ %@ ,u ”& A€&–0Gˆ-@@&&6F}ƒ8ˆ,-56„8ˆ,-C‘%ˆG ˆ:+ 6‚. 6‚7A@,. +6‚7@,.‚D.$(>:A%,TYPE YOUR CHOICESG}. A@X6‹.SAVE A /(SAVING CRYPTOQUOTEAAYL@i@@‰v(@H}€ƒ(@(@‚bbˆ-@@&'(@ƒ8ˆ,7(@„8ˆ,; ˆF@XAY@4b ApI}¼w6‹.LOAD A 0(LOADING CRYPTOQUOTEBAYM@j@@‰w@€ÆqJ}@@‚1ˆ-@@&>@G6ƒ8ˆ,-T@]6„8ˆ,-aq‘%ˆˆ%@2Ë0 ˆ@K}$AY@406•-ApГ”-@@3-”%@y(@€7+”'@,$@ %@<+L}”'@,$@ %@ ,} ”‰6–-@“ A@„k( (k(‹Z which Cryptoquote? - 1.Mon 2.Tue 3.Wed 4.Thu 5.Fri M} 6.Sat 7. Sun 8,9,0.Extra Ž(CHOOSE <0-9> - ˜Y@.@@K:;)@›Y› @N}H)›!@WA ¢0 (>:›,6›-›&@H6‰.Š06‰7@,.=:›,¬@$¶.@.@@O}P:ÀŠˆ-@I(@‚7ˆ$@ %@<ˆ$@ %@ ,{(@€7ˆ$@ %@<ˆ$@ %P}@ ,†(@Š ˆÊ@ Apè] AAY@4.6†.>:AS,=6œ-F:A•,Kœ"A6*Y6’Q}-’&@] ’ò-#A%œ"‡"6†7@,.‡%()(†- •p((ÅÎÄ ÏÆ ÆÉÌÅ ÅÒÒÏÒ - or [CONTROL 3]›r**ÄÉÓË ÄÒÉÖÅ ïò ÐÒÉÎÔÅR}Ò ÎÏÔ ÒÅÓÐÏÎÄÉÎÇ›wÅÒÒÏÒ ÒÅÁÄÉÎÇ ÄÉÓË›xÄÉÓË ÉÓ ×ÒÉÔÅ ÐÒÏÔÅÃÔÅÄ›yÅÒÒÏÒ ×ÒÉÔÉÎÇ ÔÏ ÄÉÓË›ŠÄÉÓË ÉÓ ÆÕÌÌ›((ÃÒÙÐÔS}ÏÑÕÏÔÅ ÆÉÌÅ ÏΠÄÉÓË ÉÓ ÌÏÃËÅÄ›‘ÄÉÓË ÉÓ ÆÕÌÌ›’++ÎÏ ÓÕÃÈ ÃÒÙÐÔÏÑÕÏÔÅ ÆÉÌÅ ÏΠÔÈÉÓ ÄÉÓË›€ D:CRY^^^^^^^^^^^^^^^^^^^^^T}^^^^^^^^^^^^^t CIRCLE...rFF(>30 CIRCLES DRAWN IN 4.8 SECONDS (6 CIRCLES PER SECOND!)|Œ-@@0† 6ˆ- Cryptoquote Utility Doc At the opening screen type [Control L] to load a previously saved Cryptoquote or type in a new CrV}yptoquote. Type the entire Crytoquote before hitting [Return]. To avoid splitting words type extra spaces at the ends of lineW}s when needed. Once you have completed typing your Cryptoquote type [Return] At the ">" prompt you may type: [Escape] to X}type or load a new Cryptoquote [Control S] to save your work in progress [Control P] for a printout of your puzzle screen AnyY} letter [Clear] to clear all your choices (substitutions) After typing a letter you will see either an "=" at which time you Z}can type whatever letter you think your first letter stands for; or you will be told if your first letter has already been su[}bstituted for. If it has you may choose to change it. After choosing to change it you may set it equal to another letter or b\}lank it by typing [Return]. ,”&&6ˆ-?:„<Š%@F<@y<@`,ž Š¨0 A6ˆ-?:‰<@,0ARA23þÒA¤B¤C¤D¤M¤OK¤FN¤F¤KEÙÍÉDÒÑÊCOUNÔKENCOØCIS7177743°Ø€€€€€€€€^} d++++++++++++++++++++++++›ejj+ VERS_}ION 2, 15 Jan 88 + + Multiple labels + ++++++++++++++++++++++++›ij >:A%,"AR@`}4A FA@XA@j@‚@n##@@K:x]]€;@0a},;@0,‚;@0,ƒ;@0,„;@,…;@,†;@,‡;@,‚2-@@2 DAISY DOT II LABEL MAb}KERŒe-@@> $This program will create a text filee(" to be used to print labels with –''  Roy Goldc}man's DAISY DOT II <-@@ )  ÐÒÅÓÓ ÁÎÙ ËÅÙ 6)@ˆ<(}¡2-@@2 1. Make a new label fd}ile¢X-@@4 2. Add to an existing fileF-@@X  3. Quit£D-@@* Select 1e}, 2 or 37)@ˆD >:A%,¤ˆ"@IAp¥ˆ"@PAh¦$ˆ"@Q!AR$§ Af}a¨>-@@1 Add to: (Dn:filename) >@‡© >:A%, Apª6-@@6 Defaultg} is in inverse video.´/-@ @/ If OK, press  ÒÅÔÕÒΠ¾G-@@( LEFT MARGIN: ¸:-@%@q}à ÿBµCHAGEN BASB¹CHAGEN DOCBBÍCHICKN BASBCHICKN DOCB0%CRYPTO BASBUCRYPTO DOCB)]DDLBL BASB DDLBL DOCBĘEARTRN BASB;\EARTRN DOCB—FILCMP BASB±FILCMP DOCG@„È7 „4¸6‰-@)-@%@- ‰7 A Ò 6‰-A:„,Üf-@@ @ &------------------r}--------------------f ! Enter address information:æ2-@@%  Line 1-> 2@€ð2-@@s}%  Line 2-> 2@ú2-@@%  Line 3-> 2@‚$-@@$  Line 4-> _-t}@@!@ &If Line 4 is not needed press  ÒÅÔÕÒΠR-@@_@ƒ >:A%,"-@@u} €,-@@ 6-@@ ‚@-@@ ƒJ2 2 '----------------------------------v}-----T4-@@'  Is that OK? Ù4)@ˆ^++ˆ"@‰)ˆ"A!)ˆ"AUA€hˆ"@x)ˆ"Aw}%r A@|B-@@5(How many labels to print? B@Š†9-@@ ,(Destination drivex}:9)@ˆ%ˆ"@I6‹-@% A@š%ˆ"@P6‹-@% A@¤%ˆ"@V6‹-@% A@y}® A¸-@"@  ‹Â. ! Destination filname: .@†Ì^6‡7@<@,.D66‡7@<z}@,.=:‹,O6‡7@<@,.:^6‡7@,.†Ö/ >:A%,"-@@/ PRINTINGà+@+@{}@‡êŒ-@Šô‰"A þ%-‰! @ %  @€‰"|}AP%-‰! @ % & @0‰"A€:%-‰! @ % D}} @‚N‰"AX%-‰! @ % b @ƒl @ @v'6Ž-Ž%~}@#-@%@' Ž€ ŒŠ--@@" FINISHED-@”R-@@8 Make another set? (}Yes or No) E)@ˆR >:A%,ž/ˆ"@‰)ˆ"A!%6Ž-/ A`¨!!ˆ"@x)ˆ"AA² A€}`¼@Æ7-@@7 You have created a text file:È/-@@/ >:@4,‡>:@4,Ð0} 0 %Set up the printer for label printingÚ-- %and use DAISY DOT II to print labels.îARø >:A%‚},G-@@( LEFT MARGIN: ¸:-@%@G@„ 7 „4¸6‰-@)-@%@- ‰7 Aƒ} 6‰-A:„, f-@@ @ &--------------------------------------f ! Enter address information:*2-„}@@%  Line 1-> 2@€42-@@%  Line 2-> 2@>2-@@%  Line …}3-> 2@‚H$-@@$  Line 4-> R_-@@!@ &If Line 4 is not needed press  ÒÅÔÕÒΠR-@†}@_@ƒ\ >:A%,f-@@ €p-@@ z-@@ ‚„-@‡}@ ƒŽ2 2 '---------------------------------------˜4-@@'  Is that OK? Ù4)@ˆ¢++ˆˆ}"@‰)ˆ"A!)ˆ"AUA `¬ˆ"@x)ˆ"A%¶ A ÀB-@@5(How many labels to pri‰}nt? B@ŠÊ/ >:A%,"-@@/ PRINTINGÏ AÔ+@+@@ ‡ÞŠ}Œ-@Šè‰"A ò%-‰! @ % ü @€‰"AP%-‹}‰! @ %  @$‰"A€.%-‰! @ % 8 @‚B‰"Œ}AL%-‰! @ % V @ƒ` @ @j'6Ž-Ž%@#-@%@}' Žt Œ~ AP°" >:A%,"A@Hº'-@@'  Can't find ‡Ä]-@@'  Ž}ÐÒÅÓÓ ÁÎÙ ËÅÙ4)@ˆA >:A%,SA@] Aa€ D2:DDLBL.BAS````````````````````````````````xDDIILB.BAS creates a text file with all of the information that is needed to print standard 1" labels using Roy Goldman's DAI}SY DOT II. The program was written for a Star SG-10 printer. The regular paper is centered on the platen. When the labels ‘}are loaded, the left tractor is not adjusted. Only the right tractor is moved to accommodate the labels. The very top of th’}e ribbon guide is aligned with the top of a label. The default margin setting of 8 centers the labels on this printer. A ma“}rgin setting of 13 moves the address far enough to allow a print shop graphic to be printed on the label using PSLABELS.BAS. ”} You may have to experiment with the label spacing for your printer. The program provides for a 3 or 4 line address as neede•}d. The number of labels to be printed is also set. Of course, when printing with DDII, you can reprint the text as many tim–}es as needed. —}AHT6Š-F:A`,c6‹-F:Aa,r6Œ-F:@ˆ,6-F:@‰,‚c-(%+ ÍÉÃÒÏ ÉÌÌÕÓÔÒÁÔÏÒ ÐÉÃÔÕÒÅ ÌÏÁÄÅÒ +H(oph4`H`EASY2¨INTER¤TN¨KEY¤TONE¤HARD¨EASY1¨FLTSH¤TONE1¤TONE2¤DR¤ST1¤ST2¤IN1¤IN2¤DWN¤SCALE1¨SCALE2¨SCALE3¨ËEASY²TÎSCALE±!™}SCALE²EASY±HARÄEXEÒRANGÅSEÑAAØOUÔOPÔTD²AÁREÔTÄVA±N²TUNÂVA²PT²PT±PT´PT³CÃBÂD²V²CC±BB±INÃX±X²D±V±CHOICÅDUÒOCÔFLTSÈX1°X2°DEÖRESÐ!š}N±P±DÒTUNEUÐCDÅTOÎAAÚSIGNAÌÏSCTYPÅJMPSIZÅDUMMÙNUNOTEØNUNOTÅÎÐVA·VAR2³VARXÙSTEPÓTONEX¤VA7¨N2¨ØSCALE³SCALE´SCALE4¨VAR7¨NUNOTE¨G!›}ÏÙLETÒAZAs>CJ ASAéCJ R [ h q z‹!œ}œ A$3AV >AÊ 3@bÀA!@`@a@@@I@@I!} @U!@%"#$A4%@&'A"v(@)@†*@+A(,-!ž}./0AU1AU234567@I8@I9AU:;<=!Ÿ}>?@@@A@BCD@EFGHIJ@KLM! }NOPQRS¥AT¬ AUè VW@`X@`AYü 3@Z@[\AU!¡}]^ bb. RECENTLY INSTALLED TRAPS AT 11370 AND 7730 IF LOOPS TURN UP, TAKE THEM OUT AND FIND ERRORS› ##@!¢}@K:%(RQ (}Q(CMUSICIANSHIP: AN EAR TRAINING PROGRAM FOR THE ATARI 8-BIT COMPUTER.„(†!£}( WRITTEN BY‡(ˆ( TIM MILLER‰(1859 CONCORD AVEŠ(STOCKTON, CA 95204‹(Œ$$(DONATED TO THE PUBL!¤}IC DOMAIN(AUGUST 1, 1987Ž(!!(PRESS ANY KEY TO CONTINUE’)@Ü” (} (WAIT A MOMENT.....èZZ!¥}€9@,;@%,‚9@<@a,ƒ;@,„;@ ,…9@$,†9@,üPPTN(1,X) IS RESERVED FOR GRAPHICS D!¦}ATA IF SOMEONE WANTS TO ADD THAT SOMEDAY›hh‡;@,ˆ;@,‰;@ ,Š;@,‹;@ ,Œ;@ ,;@,Ž;!§}@,;@ ,$&&Ó;@,Ô9@ ,Õ9@ ,8m19@P,‘9@a,’9@P,Ù9@P,mTHESE WILL BE TH!¨}E SCALES USED TO SELECT NOTES IN THE PROP›LBBACCORDING TO LEVEL OF DIFFICULTY IN NAME THAT NOTE (EXER=53)›t,A1@!©},. TURN OFF KEY CLICK›œ'AR@'TURN OFF CURSOR›°“-@@Ä"”6€8“,-”Ø “ì,,2,4,5,7,!ª}9,11,12,-1,-3,-5,-7,-8,-10,-12›“-@@6"–68“,-–( “<SS0,2,4,5,7,9,11,12,14,16,17,19,21,23,24,26,2!«}8,29,31,33,35,36,38,40,41,43,45,47›P48,50,52,53,55,57,59,60›d“-@@ax"—6‘8“,-—Œ “ 881,2,3,4,5,!¬}6,7,8,9,10,11,12,13,14,15,16,17,18,19,20›´AA21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40›ÈDD41,42,43,44,45!­},46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61›Ü“-@@Fð="×6’8“,-×=USED IN NAME THAT NOTE. FLAT THIRD !®}AND 7TH› “jj0,2,3,4,5,7,9,10,11,12,14,15,16,17,19,21,22,23,24,26,27,28,29,31,33,34,35,36,38,39,40,41,43,45,46,47›,##!¯}48,50,51,52,53,55,57,58,59,60›@“-@@FTB"Ø6Ù8“,-ØBUSED IN NAME THAT NOTE. SHARP TONIC AND FOURTH›h !°}“|ii0,1,2,4,5,6,7,9,11,12,13,14,16,17,18,19,21,23,24,25,26,28,29,30,31,33,35,36,37,38,40,41,42,43,45,47›##48,49,50,52,5!±}3,54,55,57,59,60›¤“-@@¸"˜6†8“,-˜Ì “à%%2,4,5,7,9,11,12,2,4,5,7,9,11,12›ô“-@@$!²}"™6…8“,-™ “0GG-12,-11,-10,-9,-8,-7,-6,-5,-4,-3,-2,-1,1,2,3,4,5,6,7,8,9,10,11,12›:“-@@a;"•6‚!³}8@<“,-•< “=VV1,2,3,4,5,6,7,8,9,10,11,12,1,2,3,4,5,6,7,8,9,10,11,12,1,2,3,4,5,6,7,8,9,10,11,12›>==1,2,3,4,5,6,7!´},8,9,10,11,12,1,2,3,4,5,6,7,8,9,10,11,12,1›D“-@@aX"•6‚8@<“,-•l “€GG13675,12907,12182,11498!µ},10852,10243,9668,9125,8612,8128,7672,7241›”KK6834,6450,6088,5746,5423,5118,4830,4559,4303,4061,3832,3617,3414,3222›¨KK30!¶}40,2869,2708,2555,2412,2276,2148,2027,1913,1805,1703,1607,1517,1431›¼//1350,1274,1202,1134,1070,1010,953,899,848›Ð55800,7!·}55,712,672,634,598,564,532,501,473,446,421›ø/ }/ !YOU HAVE YOUR CHOICE OF EXERCISES  1='NAME THAT INTERVAL   !¸}2='TUNE IT UP'4 3='PLAY THAT INTERVAL'H(4='FINE TUNING\(5='NAME THAT NOTEp((  ENTER YOUR CHOICE (1,2,3!¹},4 or 5)„A@d˜)@š¬NEXT LINE IN›À6›-@Ô#š @I)š!@S# A @èš"@I!º} A%€üš"@Q A%€ š"@R B $ š"@R6œ-@I8 š"@R6-@L š"!»}@R A&`` š"@S Bt # }# YOU HAVE YOUR CHOICE:ˆ  1=WAY OUT OF TUNEœ  2=SLIGHTLY OUT !¼}OF TUNE° "" ENTER YOUR CHOICE (1 or 2)Ä A@dØ )@žì #ž@I*ž@P# A$  [ Ap`!½}[. THIS GOSUB REQUESTS THE TYPE OF INTERVALS DESIRED AND SETS UP SCALE STEPS›d 0 }0 "YOU HAVE YOUR CHOICE OF SEQUENTI!¾}ALx  OR SIMULTANEOUS NOTESŒ $$ 1=SEQUENTIAL 2=SIMULTANEOUS  "" ENTER YOUR CHOICE (1 OR 2)´ A@dÈ !¿})@œÜ #œ@I*œ@P# A'ð #š"@Q*œ"@P# A)  11NEXT SUB TAKES CARE OF DURATION, SET!À}S "DUR"› Ar@, ""NEXT SUB INPUTS STARTING KEY›@ #š"@R*œ"@I# A@T #š"@R*œ"@P# A2 !Á}h At@| gg¡A“€A”A” A”@A”`A”€A•A• A•@A•`A•€A– "@!Â} A0@¤ ›"@6¡-¡%@¸ ›"@6¡-¡%@$Ì ›"@6¡-¡%@6à #œ"@I*š"@P!Ã}# A@ô SEQ:1=SEQUENTIAL,2=SIMUL› #œ"@I*š"@I# A@ #œ"@I*š"@Q# AU 0 #œ"@P!Ä}*š"@Q# AI@D š"@S A@X 6£-@@l EEBEGIN NAME THAT INTERVAL,TUNEITUP AND FINETUNING --SIMULT!Å}ANEOUS›€ WWNEXT SUB IS RANDOM GENERATOR FOR EASY1,EASY2,HARD.SETS UP TYPE OF INTERVAL WANTED›” A‡¨ 7%2!Æ}7B7hA ¼ "@ B€Ð 6¤-‚8@<¡,ä š"@R6¥-¦ø 6§-‚8@<¡%¥,!Ç} >>NEXT SUB MAKES NOTES SHARP FLAT OR NORMAL FOR TUNE IT UP› #š"@P)š"@R# A`4 K6¨-P:¤'AV,'6©-P:¤&!È}¨$AV,86ª-P:§'AV,K6«-P:§&ª$AV,H @ \ ?B7`©B7b¨?B7c+@$@,%@!É}p ?B7d«B7fª?B7g+@$@,%@„ F:@ ,   A4`˜ K'B7c+@$!Ê},%KB7g+@$,%¬ /š"@P)š"@R%6¬-AU/ A6@À M }.  PRESS RETURN TO DI!Ë}SPLAY INTERVALM PRESS R TO REPEAT INTERVALÔ A@dè )@¬ü ¬"@‚ A3€¬AU !Ì}A5 $MMNEXT SUB TAKES CARE OF INTERVAL, STEP AND SECOND NOTE NAMES AND DISPLAY›8 A—`L::NEXT SUB TAKES CARE OF!Í} SHARP AND FLAT FOR TUNE IT UP›`#š"@P)š"@R# Aƒ€t!! PRESS RETURN TO TRY AGAINˆ"š@R" C CHANG!Î}ES KEY.œ M RETURNS TO MENU°  R REPEATSÄA@dØ)@­ì=-­AU*­@g*­@w*­!Ï}@‚3 }= A77­"AU*" }- KEY IS ƒ7 A2 )­"AU*"@ }) A2 ()­!Ð}"@g*š"@R }) A7 <­"@g A) P­"@w A @d­"@‚ A3€xCCBEGIN NAME!Ñ} THAT INTERVAL, TUNEITUP AND FINETUNING -SEQUENTIAL›ŒWWNEXT SUB IS RANDOM GENERATOR FOR EASY1,EASY2,HARD.SETS UP TYPE OF IN!Ò}TERVAL WANTED›  A‡´b%27B7hA bTHIS POKE SETS SOUND TO DOUBLE PRECISION›!Ó}È4"@ B€4SUB VARIES KEY AT RANDOM›Üj6¤-‚8@<¡,jVA1 IS POKE VALUE FOR FIRST NOTE (TONIC). TN(3,X) I!Ô}S MASTER ARRAY FOR SOUND VALUES.›ðAA DETERMINES TONIC›4š"@R6¥-¦4TUNB USED IN TUNE IT UP ONLY›p6§-‚8@!Õ}<¡%¥,pN2 IS SET IN GOSUB 8420. IT IS A CERTAIN VALUE FROM ARRAYS CALLED EASY1, EASY2, OR HARD›,#š"@P)š"@R# !Ö}A`@_6¨-P:¤'AV,'6©-P:¤&¨$AV,86ª-P:§'AV,K6«-P:§&ª$AV,_COMPUTE PT VALUES›T@ h!×}]B7`©B7b¨?B7c+@$@,%@]POKE SOUND VALUES FOR TONIC›|F:@ ,   AB !Ø}@ ¤cB7c+@$®,%¯?B7g+@$,%cPOKE SOUND VALUES FOR SECOND NOTE›¸"F:@ !Ù}, @0" AB€Ì@ à?B7d«B7fª?B7g+@$@,%@ôF:@ ,  !Ú} AC@?B7c+@$®,%¯?B7g+@$,%/š"@P)š"@R%6°-AU/ AE@0Y!Û}š @S }:  PRESS RETURN TO DISPLAY INTERVALY PRESS R TO REPEAT INTERVALDRš"@S }7 PRESS RETURN TO !Ü}DISPLAY NOTE R PRESS R TO REPEAT NOTEXA@dl)@°€°"@‚ AA€”°AU AD!Ý}¨11NEXT GOSUB NAMES SECOND NOTE, INTERVAL, ETC›¼ A—`Ð::NEXT SUB TAKES CARE OF SHARP AND FLAT FOR TUNE IT UP›ä!Þ}#š"@P)š"@R# Aƒ€ø!! PRESS RETURN TO TRY AGAIN !š@R!  C CHANGES KEY  M RETURNS TO MENU4!ß}  R REPEATSHA@d\)@±p=-±AU*±@g*±@w*±@‚3 }= AF„)š"@R!à}*±"@g }) AF˜±"@g A) ¬±"@‚ AA€À±"@w A @Ô7±"AU*"!á} }- KEY IS ƒ7 A@è)±"AU*"@(}) A@ü#±"AU*š"@S# B`,,START PLA!â}Y THAT INTERVAL, SIMULTANEOUS›$OONEXT SUB SETS UP RANDOM NUMBERS FOR SECOND NOTES, DEFINES EASY HARD N1,N2›8%%BEGIN PLAY !ã}THAT INTERVAL--SIMUL›L A‡`7%27B7hA t"@ B€ˆœ"@I!ä} AU œ00NEXT TWO SUBS PRINT SCALE STEP OR INTERVAL›° A—`Ä TO CONTROL TONEØ((  USE CURSOR KEYS WITH!å} KEYì&& PRESS RETURN WHEN YOU ARE DONE6¤-‚8@<¡,6§-¤'6¨-P:¤'AV,'6©-P:¤&¨$AV,(?B7!æ}`©B7b¨?B7c+@$@,%@<)@²PA7²@E*²@a*²@•*²A$*²AU!ç}A AQ€d6³->P$§6´-?$§x²"@a6§-§%³Œ²"A$6§-§%´ ²"@E6§-§&³´²"@•!è}6§-§&´È²"AU AT@Ü#§ A)§!B`# A– ð#§ A)§!B`# AI@'6ª-P:§'AV,'6!é}«-P:§&ª$AV,?B7d«B7fª?B7g+@$@,%@, AQ€@U'B7c+@$,%!ê}KB7g+@$,%U A‰T AI@h**BEGIN PLAY THAT INTERVAL--SEQUENTAIL›|OONEXT SUB SET!ë}S UP RANDOM NUMBERS FOR SECOND NOTES, DEFINES EASY HARD N1,N2› A‡¤"@ B€¸7%2!ì}7B7hA Ì26¤-‚8@<¡,6§-¤&6³-26´-à36¨-P:¤'AV,'6©-P:¤&¨$AV,-6ª-¨!í}36«-©ô A—` HERE'S THE FIRST NOTE@ 0?B7`©B7b¨?B7c+@$@,%!î}@DF:@ ,   AWX''B7c+@$,%l@ €"F:@ , @ " AW`!ï}”²"@‚ AX ¨$$ NOW YOU PLAY THE SECOND NOTE¼ TO CONTROL TONEÐ((  USE CURSOR KEYS WITH K!ð}EYä((  PRESS R TO HEAR FIRST NOTE AGAINø PRESS RETURN WHEN DONE 3B7d«B7fª3B7g+@$µ,%¶ !ñ})@²4KA²@E*²@a*²@•*²A$*²AU*²@‚K AY H6³->P$§6´-?P$§\!ò}²"@a6§-§%³p²"A$6§-§%´„²"@E6§-§&³˜²"@•6§-§&´¬²"AU Ab`À'²"@‚!ó}'B7g+@$®,%¯Ô!²"@‚!@ è,"²"@‚*F:@ , @ , Aa ü²"@‚(}!ô} AV #§ A)§!B`# A– $#§ A)§!B`# AU 8'6ª-P:§'AV,'6«-P:§&ª$AV,L?!õ}B7d«B7fª?B7g+@$@,%@` AY t1'B7g+@$,%1 A‰ˆ !ö}AU œ$6‹.2- or RO!6Œ.1+ or DE$$°"6‹.2 or RE6Œ.2 or RE"$Ä$6‹.3- or ME!6Œ.2+ or RI$$Ø"6‹.3 o!÷}r MI6Œ.3 or MI"$ì"6‹.4 or FA6Œ.4 or FA"$$6‹.5- or SA!6Œ.4+ or FO$$"6‹.5 or SO6Œ.5 or SO"$!ø}($6‹.6- or LO!6Œ.5+ or SA$$<"6‹.6 or LA6Œ.6 or LA"$P$6‹.7- or TA!6Œ.6+ or LI$$d"6‹.7 or TI!ù}6Œ.7 or TI"$x"6‹.8 or DO6Œ.8 or DO"$Œ 6Š. $ 6Š. (DESCENDING)$´06. MINOR SECOND-6Ž.AUGMENTED!ú} UNISON0$È 6.SECOND6Ž.SECOND $Ü/6. MINOR THIRD,6Ž.AUGMENTED SECOND/$ð6.THIRD6Ž.THIRD$ 6!û}.FOURTH6Ž.FOURTH $46.DIMINISHED FIFTH16Ž.AUGMENTED FOURTH4$,6.FIFTH6Ž.FIFTH$@.6. MINOR S!ü}IXTH+6Ž.AUGMENTED FIFTH.$T6.SIXTH6Ž.SIXTH$h06. MINOR SEVENTH-6Ž.AUGMENTED SIXTH0$|"6.SEVENTH!ý}6Ž.SEVENTH"$ 6.OCTAVE6Ž.OCTAVE $¤ 6ˆ.C6‰.C$¸!6ˆ.C SHARP6‰.D FLAT!$Ì 6ˆ.D6‰.D$!þ}à!6ˆ.D SHARP6‰.E FLAT!$ô 6ˆ.E6‰.E$ 6ˆ.F6‰.F$!6ˆ.F SHARP6‰.G FLAT!$0 6ˆ.G6‰!ÿ}.G$D!6ˆ.G SHARP6‰.A FLAT!$X 6ˆ.A6‰.A$l!6ˆ.A SHARP6‰.B FLAT!$€ 6ˆ.B6‰.B$”3 "}}3 %CHOOSE THE KIND OF INTERVALS YOU WANT¨ 1=EASY--ASCENDING ONLY¼((  2=EASY--ASCENDING AND DESCENDINGÐ 3=HA"}RD--ASCENDING ONLYäA@dø((  4=HARD--ASCENDING AND DESCENDING )@· #· @I)·!@R# A"}p`4$H3 }3 %YOU HAVE YOUR CHOICE OF NOTE DURATION\## 1=SLOW 2=FASTER 3=FASTESTp ENTER YOUR CHOICE„"}A@d˜)@¸¬#¸!@Q)¸ @I# Ar@À¸"@I6 -@UÔ¸"@P6 -@0è"}¸"@Q6 -@ü$ }$( 1 = C8( 2 = D FLATL( 3 = D`( 4 = E FLATt( 5 = Eˆ"}( 6 = Fœ( 8 = G°( 9 = A FLATÄ(10 = AØ( 11 = B FLATì(12 = Bš"@S Aw (13 "}= VARY AT RANDOM(@(/("ENTER THE KEY YOU WANT (1 THRU 12)@( AND 2 At@<¡FP 6¡-P:¡,d¡"}"@ At@x#¡ @)¡!@# At@Œ#¡"@*š"@S# At@ 6-´¡"@6-@"}È¡"@$Ügg¡A“€A”A” A”@A”`A”€A•A• A•@A•`A•€A–" }ð(ENTER R TO CHANGE RANGE""(PRESS TO CONTINUEA@d,)@¹@#¹AU*¹@‚" }# Ay€T¹"AU AhE¹"@‚*›"@%6›-@;(NOW IN HIGH RANGEE Ay |D¹"@‚*›"" }@%6›-@:(NOW IN LOW RANGED Ay G¹"@‚*›"@%6›-@=(NOW IN MIDDLE RANGEG Ay ¤" }$à%%6º-P:@$H:,,%@ôš"@R Aƒ 6»-? $§6¼-?$§ !ž"@I*º"@!6§-" }§%¼0 !ž"@I*º"@!6§-§&¼D !ž"@P*º"@!6§-§%»X !ž"@P*º"@!6§-§&»l -º"@*š"@R"}-6§-§%+§$½$>`,€ -º"@*š"@R-6§-§&+§$½$>`,” º"@6§-§¨ $¼ )) !FLAT=F SHARP=S CORRECT="}C R=REPEATÐ  ENTER YOUR CHOICEä A@dø )@¾ !#¾"@‚*œ"@P# A3€ !#¾"@‚*œ""}@I# AA€4!-#¾@p*¾@ƒ*¾@g- A„@H!º"@6‡.SHARP\!º"@6‡.FLATp!º"@"}6‡.CORRECT„!#¾"@ƒ*º"@# A†`˜!#¾"@p*º"@# A†`¬!#¾"@g*º"@# A†`"}À!. }$ SORRY, THE NOTE WAS ‡. A†€Ô! }  THAT'S RIGHTè!$ü!i%6Ê-P:H:,$@ ,&@iTHIS IS "}NECESSARY BECAUSE THE RANDOM NUMBER GENERATOR ISNT RANDOM›"6¿-P:@$H:Ê,,%@"6À-P:@$$H:Ê,,%@$""}·"@I6¥-†8¿,8"·"@P6¥-€8¿,L""·"@Q)·"@R"6¥-…8À,`"·"@Q6¥-O:¥,t"DR:1=ASC.2=DESC›ˆ""}š@R6Á-@œ"%š@R*¥ %6Á-@ž"%š"@R*¦!%6Á-@ "%š"@R*¦ %6"}Á-@°"$Ä"))6Â-+‚8@<¡%¥,&§,'‚8@<¡%¥,Ø"  A@ì"* >u } RIGHT!* A‘`"}#FÂ>u* ?P }< ABOUT 1% SHARP--NOT BAD!F A‘`#SÂ?P* ? }I %WITHIN 3%--ABOUT A QU"}ARTER TONE SHARPS A‘`(#FÂ?* ? }< ALMOST A HALF STEP SHARPF A‘`<#?Â? }5 MOR"}E THAN A HALF STEP SHARP? A‘`P# 6Â-Â$6@d#  >u } RIGHT!x#;Â>u* ?P "}}; ABOUT 1% FLAT--NOT BAD!Œ#HÂ?P* ? }H $WITHIN 3%--ABOUT A QUARTER TONE FLAT #;Â?* ?"} }; ALMOST A HALF STEP FLAT´#4Â? }4 MORE THAN A HALF STEP FLATÈ# PRESS RETURN TO GO AGAINÜ#D("}  C CHANGES KEY. M RETURNS TO MENUD R REPEATS LAST INTERVALð#A@d$)@Ã$7-ÃAU*Ã@g"}*Ã@w*Ã@‚7 A‘`,$Ã"@g A) @$#Ã"@‚*œ"@I# AU`T$#Ã"@‚*œ"@P# AI`"}h$Ã"@w A @|$$$!! PRESS RETURN TO GO AGAIN.¤$ 6ƒ.C$¸$6ƒ.D FLAT$Ì$ 6ƒ.D$à$6ƒ.E FL"}AT$ô$ 6ƒ.E$% 6ƒ.F$%$0% 6ƒ.G$D%6ƒ.A FLAT$X% 6ƒ.A$l%6ƒ.B FLAT$€% 6ƒ.B$”% " }} NOTE OUT OF RANGE¨%]'B7c+@$,%KB7g+@$,%]@ ¼%"F"!}:@ , A " A–`Ð%$ä%¥ 6. DOWN TO ø%¥!6. UP TO  &$ &jjO:¥,Ae€Af""}Af Af@Af`Af€AgAg Ag@Ag`Ag€Ah4&vÁ"@vO:¥,AcAc Ac@"#}Ac`Ac€AdAd Ad@Ad`Ad€AeAe H&vÁ"@vO:¥,AeAd€Ad`Ad@"$}Ad AdAc€Ac`Ac@Ac AcAe \&6Ä-‚8@<¡%¥,p&'Ä!@6Ä-Ä&@' A˜@"%}„& A—˜&ÁAe@Ae`¬&ggÄAh Ah@Ah`Ah€AiAi Ai@Ai`Ai€Ap"&}Ap Ap@Ô&(} Š'*Á"@*(FROM ƒ‰ (‹)8'*Á"@*(FROM ƒ‰ (‹)L'$`"'}'%%6¡-P:@$H:,,%@t'¡"@ B€ˆ'gg¡A“€A”A” A”@A”`A”€A•"(}A• A•@A•`A•€A–œ'%%6›-P:@$H:,,%@°'Å"@6›-@Ä'6¡-¡%›$@Ø'")}$ì'a! }THE KEY VARIES AT RANDOMB(ENTER THE DEVIATION YOU WANTa(1 TO 99 CENTS AND ( B (½((#"*}½ @)½!@™# B <(k }(1=MINOR SECOND)(2=SECOND;( 3=MINOR THIRDG(4=THIRDT(5=FOURTHk(6=DIMIN"+}ISHED FIFTHP(_(7=FIFTH!( 8=MINOR SIXTH-(9=SIXTHB(10=MINOR SEVENTHQ( 11=SEVENTH_( 12=OCTAVEd((x((USE M",}INUS SIGN FORŒ((DESCENDING INTERVALS (3(3(&ENTER INTERVAL TO PRACTICE AND´( BÈ(¦Ü( 6¦-P:¦,"-}ð()O:¦, @)O:¦,!@) B)6Å-)7O:¦,!@6Å-@7DOES THIS DO ANYTHING?›,)$@) NAM".}E THAT NOTE BEGINS HERE›T)6Ì-6Ë-Çh)0 (}(0(CHOOSE THE SCALE YOU WILL USE|)( 1=MAJOR ONLY)((( 2=MAJ"/}OR WITH SHARP TONIC AND 4TH¤)%%(3=MAJOR WITH FLAT 3RD AND 7TH¸)( 4=CHROMATICà))@Èô)#È @I)È!@R"0}# B*- (}-(ENTER THE MAXIMUM SIZE OF SCALE*,,($JUMPS YOU WILL WANT IN THIS EXERCISE0*((MINIMUM 1, MAXIMUM"1} 9)X*)@Él*É @I B`€*É!@W B`”*6É-É&@H¨*0 (}0("ENTER THE NUMBER OF NOTES"2} YOU WANT¼*&&(PRESENTED IN SEQUENCE (1 TO 9)Ð*)@Òä*#Ò @I)Ò!@W# B ø*6Ò-Ò&@H +! Ar@"3}!SET NOTE DURATION› +@È"@R }(@(!DO YOU WANT ACCIDENTALS DISPLAYED4+/È"@R/ AS SHARPS (S) OR F"4}LATS (F)?H+-È"@R  ENTER S OR F-)@Ð\+-#È"@R*Ð@p*Ð@ƒ- B@p+' }' CHOOSE YOUR "5}KEY SIGNATURE„+ ( 1=C˜+( 2 = D FLAT¬+( 3 = DÀ+( 4 = E FLATÔ+( 5 = Eè+( 6 = Fü+( 8 = G,("6} 9 = A FLAT$,(10 = A8,( 11 = B FLATL,(12 = B`,(13 = Cj, B t,¡ˆ, 6¡-P:¡,œ,¡"@ "7}B °,#¡ @)¡!@# B º,6Ì-6Ë-Ä,``THE METHOD FOR SETTING THE KEY AND RANGE IS DIFFERE"8}NT HERE COMPARED TO THE OTHER EXERCISES›Ø,__WHERE TN(3,X) IS THE MASTER ARRAY FOR NOTE VALUES, SCALEX IS CHOSEN ACCORDING TO"9} "SCTYPE"›ì,VVAND THE Y IN SCALEX(Y) DETERMINES THE SIZE OF THE JUMP FROM ONE NOTE TO THE NEXT›-b%2":}7B7hA bTHIS POKE SETS SOUND TO DOUBLE PRECISION›-p6¤-‚8@<¡%@$,pVA1 IS USED TO COMPUTE POK";}E VALUE FOR FIRST NOTE (TONIC). IF TONIC IS C, THEN THE›(-==VALUE FOR THE TONIC WILL BE THE 25TH ELEMENT IN TN(3,X)›<-//TN("<}3,X) IS MASTER ARRAY FOR SOUND VALUES.›P-AA DETERMINES TONIC›d-j6¨-P:¤'AV,'6©-P:¤&¨$AV,j. PT1 AND PT2 ARE TH"=}E POKE VALUES FOR PLAYING FIRST NOTE (TONIC)›x-@ Œ- (}(HERE'S THE TONIC -pB7`©B7b¨?">}B7c+@$@,%@pPOKE SOUND VALUES FOR TONIC (I.E., PLAY TONIC)›´-F:@ ,   BÈ-_B7c+"?}@$®,%¯?B7g+@$,%_TURN OFF SOUND FOR FIRST NOTE›Ü-(ð-**("PRESS RETURN TO HEAR THE NEXT"@} NOTE.)@±.±AU B`,.@ @.% }%(HERE'S THE NEXT NOTE(S)T.“-@Òh.i"A}%6Ê-P:H:,$@ ,&@iTHIS IS NECESSARY BECAUSE THE RANDOM NUMBER GENERATOR ISNT RANDOM›|.^'6Ë-P:H:Ê,$++@"B}$É,%@,&É,^IF JMPSIZE=3 THIS SHOULD PRODUCE VALUES FROM -3 TO 3›.Ë" B€¤.X 6Ì-Ì%ËXTHIS KEEPS INCRE"C}MENTING NUNOTE UP AND DOWN WITHIN THE RANGE SET BY JMPSIZE›¸.qÈ"@I6Í-@'6Î-@6qTHESE LINES BRING THE SEC"D}OND NOTE UP TO THE SAME RANGE AS THE TONIC AND›Ì.++PREVENT A VALUE OF ZERO IN SCALEX(X).›à.'È"@R6Í-@%'6Î-@a"E}ô.1È"@P)È"@Q%6Í-@16Î-@F/>Ì%Í @46Ë-O:Ë,%O:P:+Ë%@,'@,,> B@/A Ì%Í!Î"F}76Ë-6@$O:Ë,&O:P:+Ë%@,'@,,A B@0/È"@I6Ï-8Ì%Í,D/È"@R6Ï-‘8Ì%Í,X/È"@P6Ï"G}-Ù8Ì%Í,l/È"@Q6Ï-’8Ì%Í,€/-Ï%¡!@`#6Ë-6@$O:Ë,- B@”/T6§-‚8@<+Ï%¡,,TADDING AA (WHICH RAN"H}GES FROM 0 TO TWELVE) ADJUSTS FOR KEY›¨/+§A!!6Ë-6@$O:Ë,+ B@¼/<§B6u26Ë-O:Ë,%O:P:+Ë%@,'@"I},,< B@Ð/ 6Ô8“,-Ïä/ 6¥-Ï%¡ø/'¥!@6¥-¥&@' B"€ 0 6Õ8“,-¥40M6ª-P:§'AV,'6«-P:§&ª$AV"J},MCOMPUTE POKE VALUES FOR SECOND TONE›H0"F:@ , @0" B#`\0@ p0TB7d«B7fª?"K}B7g+@$@,%@T. PLAY SECOND NOTE›„0F:@ ,   B$ ˜0XB7c+@$®,%¯?B7g+@"L}$,%X. TURN OFF SECOND NOTE›¬0 “À0F }+ PRESS RETURN TO DISPLAY NOTE A PRESS R TO REPEATF(Ô"M}0A@dè0)@°ü06°"@‚,(HERE'S THE NOTE(S) AGAIN6 B1`1°AU B$€$111NEXT "N}GOSUB NAMES SECOND NOTE, INTERVAL, ETC›816“-@L1jjÕ8“,Ah Ah@Ah`Ah€AiAi Ai@Ai`"O}Ai€ApAp Ap@`1 6Ñ-Ô8“,t1T%+È"@P)È"@Q,*Ñ!@36Ñ-Ñ&@= B&`TTHIS LINE WILL "P}CAUSE›ˆ1GGCAUSE CERTAIN ACCIDENTALS TO BE NAMED PROPERLY IF SCTYPE=50 OR 51›œ199:PRINT VARXY.ERROR CHECK HOPEFULLY NO LONGE"Q}R NEEDED›°1]WÈ@R*+¡"@)¡"@)¡"@)¡"@)¡"@)¡"@)¡"@,]6Ó.ˆÄ1ICÈ@R*+¡"@"R})¡"@)¡"@)¡"@ )¡"@,I6Ó.‰Ø1È"@R*Ð"@p6Ó.‰ì1È"@R*Ð"@ƒ6Ó.ˆ2+%È"@P"S}*+Ñ"@)Ñ"@,+6Ó.ˆ2+%È"@Q*+Ñ"@)Ñ"@,+6Ó.‰(2(ÓPUT BACK CLR LATER›<2! “ Ò6“-“%@!"T} B& P2&(&(PRESS RETURN TO TRY AGAINd2 x2( R REPEATSŒ2(T RETURNS TO TONIC 2  C CHANGES KEY´2("U}M RETURNS TO MENUÈ2A@dÜ2)@±ð2G7±AU*±@g*±@w*±@‚*±@„= }G B(@"V}3±"@g B 3%±"@‚6°-@‚% B%@,31±"@„6Ì-'6Ë-1 B@@3±"@w"W} A @T3±"AU B@h36“-|3“-@Ò3 6Ï-Ô8“,¤3T6§-‚8@<+Ï%¡,,TADDING AA (WHICH "X}RANGES FROM 0 TO TWELVE) ADJUSTS FOR KEY›¸3M6ª-P:§'AV,'6«-P:§&ª$AV,MCOMPUTE POKE VALUES FOR SECOND TONE›Ì3"F:"Y}@ , @0" B#`à3@ ô3TB7d«B7fª?B7g+@$@,%@T. PLAY SECON"Z}D NOTE›4F:@ ,   B$ 4XB7c+@$®,%¯?B7g+@$,%X. TURN OFF SECOND NOTE›04"[} “D4$€ D:INPROG.801VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV I 1859 Concord Ave. Stockton, CA 95204 August 24, 1987 EARTRN ("eartraining") is a musical percpetion and ear training prog&]}ram. It does not have any fancy graphics, it doesn't keep score, and it is not very game-like, but in terms of flexibility,&^} ease of use, range of difficulty, sensitivity to the task, and variety of exercises, I have never seen a better ear trainnig&_} program. I spent many hours practicing all of the exercises as I wrote them over the past two years, so I became sensitive t&`}o what features facilitate the learning task, and what might be distracting or annoying. I experimented with many other exer&a}cises that were ultimately discarded, and the five exercises included in the final version of the program have been carefully&b} polished. The range of difficulty between the easiest and hardest exercises is vast. The hardest exercises would really ch&c}allenge the best professional musicians. The easiest would be comfortable for a seven year old child. There are innumerable&d} possible shades of difficulty in between. The program is pretty user friendly and I think it is bug-free. All of the exerc&e}ises run in double-precision sound, so the intonation is better than that of a piano. EARTRN was written with the intention &f}that it could be easily transported to other machines. I learned to program by writing this program; I know the programming&g} is inelegant, and there are probably several orphan lines and orphan variables lost in it. Nevertheless, I think the tangle&h}s are few enough that most programmers could undertand it without too much difficulty. Except for a few miscellaneous pokes &i}and peeks it is in the most basic BASIC. It would not be hard for someone to add graphics (musical notation and a piano keyb&j}oard) and develop a really exciting versions for the Atari ST or other machines. I have donated the program to the public do&k}main with the hope that other programmers will do this. I will do what I can to help serious programmers to develop new vers&l}ions of EARTRN. I once hoped to sell a version of this program commercially, but that turned out to be unrealistic in severa&m}l respects. Here is a brief description of how the program works. There are five basic exercises displayed in the opening m&n}enu: Name That Interval; Tune It Up; Play That Interval; Fine Tuning; and, Name That Note. In Name That Interval the comp&o}uter plays the tonic note, then a second note. You decide what the interval or the second note is, press RETURN, and the com&p}puter tells you the answer. In Tune It UP the computer plays the tonic note and a second note, and then displays the names o&q}f the notes and the interval name. The second note may be correct or slightly out of tune. You decide if the second note is&r} correct, sharp, or flat, and enters your response via the keyboard. The computer tells you if you are right or wrong. In P&s}lay That Interval the computer plays the tonic note and then asks you to play a particular second note (or interval). The pi&t}tch of the second note is determined by the up and down cursor keys. The tone changes slowly when you use the cursor keys al&u}one, and more rapidly if you use the cursor key plus the SHIFT key. When you think you have the right second note, you hit RE&v}TURN. The computer tells you if you are right, and if not right, whether you were sharp or flat, and to what degree. In Fin&w}e Tuning you select one interval you want to practice repeatedly in order to develop more accurate pitch perception. The com&x}puter plays the same interval in different keys, and you choose correct, sharp, or flat, as in Tune It Up. You select exactl&y}y how far out of tune the out-of-tune notes will be, so extremely fine degrees of pitch perception can be developed. You spe&z}cify how out of tune you want the out-of-tune notes to be in terms of "cents". One hundred cents equals one half step. In N&{}ame That Note you select a key and the computer plays notes in that key. You select the maximum size of the jumps between no&|}tes you want (larger jumps are much harder) and the number of notes you want played in sequence (one to nine). Beginners sho&}}uld definitely start with one note at a time. The computer plays the notes and when you think you have the figured out what &~}the notes were, you hit RETURN and the computer displays the note names. I have not mentioned the variations possible within&} each exercise as well as other convenient features built into the exercises, but these are self explanatory. Exercises such&€} as these have two very valuable purposes. First, if you are a vocal EARTRN or play a string instrument you must be able to &}"hear the note in your head before you sing (play) it" if there is to be much hope of consistently singing (playing) in tune.&‚} If you want to improvise on any instrument you must be able to hear the notes in your head before you play them. This is a&ƒ}lso true if you want to compose music. Dilligent ear training can actually install a piano in the brain of a former musical &„}imbecile so that it becomes possible to hear the notes in your head. Second, music is a language. It contains beauty and tr&…}uth accessible only to people who understand the language. A few lucky people learn the language effortlessly in childhood. &†} The rest of us are able only to recognize a few common phrases, to the extent that we are perhaps able to appreciate Loretta&‡} Lynn's latest ditty. The vocabulary of the language of music is intervals (the musical distance between notes). (For examp&ˆ}le the distance between a C and a G is a "perfect fifth".) When people become able to consistently recognize, name, remember&‰}, and reproduce a series of intervals, they start to become fluent in this wonderful language. At that point many previously&Š} impossible things start to become possible: greatly expanded musical appreciation, greatly expanded musical memory, the abi&‹}lity to sing on pitch, the ability to learn to play an instrument much more rapidly, and so on. For these reasons, all music&Œ} majors in college are required to take several semesters of ear training classes. The usual methods of teaching ear trainin&}g are cumbersome and inefficient, and most students flunk it, which prematurely ends their careers as musicians. An ear trai&Ž}ning program like EARTRN makes it possible for the first time in human history for almost anyone to become proficient in the &}language of music, even in adulthood, in their own home, without an inordinate investment of time and effort, and without hav&}ing to take college-level classes (only available to music majors). I would like to get feedback on this program. I don't u&‘}se CompuServe much, so I would appreciate letters via the U.S. Postal Service. I will check my CompuServe Email occasionally&’}. I hope you like my program. I am happy with the result, but I found out that the process of programming makes me psychoti&“}c and I doubt that I will ever write another one. I have written a similar program, though simpler, that teaches chord recog&”}nition. If there is a demand for it I will debug it and send it to Compuserve. There is also a very buggy and partly develo&•}ped version of EARTRN that displays musical notation. It would have to be compiled to run fast enough. Send me a Disk in a &–}mailer and I will send you a copy. Tim Miller $/mn&Q g BUFF1¤BUFF2¤FIL1¤FIL2¤HOLD¤TEMP¤BUFAD±BUFAD²BUF1HÉBUF1LÏBUF2HÉBUF2LÏIO±IO²BTOT±BTOT²FLAÇØJNËBYTRED±BYTRED²ÄLÔ€*˜}€€€€€ *™} VERSION DETECTIVE›BY SUMMERS/JACKSON›(c)1988, ANTIC *š}PUBLISHING›(" +"AF:A,2GG€;AV,;AV,‚;@,ƒ;@,„;@,…;@,<=6€7@*›},.%6€7AV,.46€7@,.€=6†-C:€,F 6.€6‡-C:,P06ˆ-P:†'AV,06‰-++†'AV,&ˆ,$AVZ06Š-*œ}P:‡'AV,06‹-++‡'AV,&Š,$AVd; Ap( ( First file$‚;B:‚, @An/ 6….‚ A€6‚.…*}/‚7B:‚,,4:Ax@ A@5@@‚@@‚9AAR'AAR*ž}9A Œ< Ap(!( Second file%ƒ<B:ƒ, @A@–/ 6….ƒ A€6ƒ.…/ƒ7B:ƒ,,4:A@*Ÿ} 5 A@@5@@ƒª5 B@5@@‚´Q6Œ-AH6-* }Ad'6Ž-36-?6-B(Q( Working...¾+Œ%@@+%@@ÈŒ%@‰*¡}%@‹ÒŒ%@ˆ%@ŠÜSŒ%@+%@?Œ%@ @S%@ @*¢}æ9‘-@@56’-?:C:hhhªLVä,<@$‘,9 ‘ðO)6“-F:Œ%@,%F:Œ%@ ,$AVO6”-F:%@,%F:%@ *£},$AVñ!+“"”,*“AV!6-@õ%6€.€7@<“,%6.7@<“,ú 6Ž-Ž%“6-%”5 Ž! (+( File #1, *¤}‚ , is longer.5 A€5 Ž  (+( File #2, ƒ , is longer.5 A€"@*€4A@"€4A*¥}#+‘-@AV'€7‘<‘,47‘<‘,+ ‘$ ' 6•-‘,q@‚@!'@ƒ@9-(}?Af@Q-@!*¦}Y(ƒ:m( q(6n@‚'@ƒ@9Af@K-S(‚:*§}g( k(€n(@*@‚@'@ƒ@9*(A?Af@*(€7•<•, 7•<•,<Af*¨}?(B66( Mismatch at byte #P:Ž'AV,$AV%•C$$((Byte #• in the window.)J A€T+(}Fil*©}e #1 - ‚+((Ž Bytes)^*(( File #2 - ƒ*(( Bytes)h"( ("(Files are identical.r A|"( *ª}("(Files are different.†WDISK DIRECTORY›XA@‚@A('}b..(&*«}| Directory D1: |l..(&v>@2@@*¬}D1:*.*>6-€= Ap@„=B:„, @)„7B:„,,4SAppŠ(|„|"@(” 6-(+,*­} Ap@ž'"@'(| |¨R.(&@@‚@R( *®} „²@ B$? CHECK FOR DX: ON FILENAMES›@ 6–-B:…, – @A€0J%%…7@<@,4D*¯}:A€@Tu–!@)6•-@:…7@<@,,u…7@<@,4D*…7@<@,4:*•!@H*• @WA€@*°}^" 6„.D1:6„7@,.…"6….„h$€D1:FILCOMP.BASuuuuuuuuuuu(KVersion Detective Antic December, 1988 (synopsis) Version Detective is a Basic utility which will compare two files, at .²}machine language speeds, and let you know whether or not they are identical. This is an extremely useful utility for BBS Syso.³}ps (who may find themselves confronted with several files that have the same name), and programmers (who may not be sure whet.´}her two files contain the same version of a program.) The program works with ANY type of file. It will compare pairs of fil.µ}es written in any programming language, text editor, or word processor. And there is NO LIMIT to the length of the files. In .¶}several tests, Version Detective compared 200 sector disk files in less than 90 seconds. GETTING STARTED When RUN, Versio.·}n Detective will display a disk directory and ask you for the name of the first file to compare. If your file is on Drive #1,.¸} you needn't type the "D1:" prefix. Just type the filename and RETURN. If on another drive, include the Drive number. If you.¹} need to see a directory of another disk, place it in Drive 1 and press RETURN. Version Detective will display a fresh direct.º}ory and then ask you for the second filename. Version Detective will quickly compare the two files byte-by-byte and STOP wh.»}en it finds the first mismatch. If will also tell you if one file is longer than the other. When the first mismatch occurs,.¼} Version Detective displays the mismatch in a pair of error windows. Each window shows a 256 byte block of the file. The left.½} window corresponds to the first file, the right window shows the second file. Each window is approximately 19 characters wi.¾}de, and 14 characters tall. Any [RETURN] symbols will make the window taller. If your file has an abundance of [RETURN]s, the.¿} tops of your error windows may scroll off the top of the screen. The mismatched byte is displayed below it's corresponding .À}error window. Version Detective tells you the location of the mismatch in the file, as well as location in the error window. .Á}For example, a sample error reported might read: "Mismatch at byte #515, (Byte #3 in the error window.") (bio) Rochester, N.Â}ew York physician Jeffrey Summers is also the author of the ANTIC DATA-X Data Base. ,V