' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- P " Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`  -r. 8i$L[i ii i ()?` RUN BRUN LOAD BLOAD EXEC LOCKUNLOCK COPYRENAMEVERIFYDELETERESTORREMOVE hhH hHHL ,,,` ,L L  %ɍZɕi p б0ߥᰧ8#H $(*)+!h"0 H $(*0 ~)J(  08 j( Ɉɕɛɍ 9 % " H H` L C::"TALLY HO.... AND GOOD LUCK!"aMICRO-WARE : HBhi T ii / X v DISK SELECT (BY MAC)  1 x ."# R ()(>( H hɛL} Ɉ,PLATE+2,EXOTIC& ,DAGGER,MACE,SLING,AXE,BOW,SWORD,2-H-SWORD,+2 AXE,+2 BOW,+2 SWORD,GLOVES,+4 AXE,+4 BOW,+4 SWORD,EXOTIC0 --END-- ,,,MAGIC PTS.,HIT PTS. (X 100),HIT PTS.(X 1),MAX. HIT PTS. (X 100),MAX. HIT PTS. (X 1),EXPERIENCE (X 100),EXPERIENCE (X 1),FOOD (X 100),FOOD (X 1)  ,GOLD (X 100),GOLD (X 1),GEMS,KEYS,POWDER ,CLOTH,LEATHER,CHAIN,PLATE,CHAIN+2":CL$(204)"LARK"]CL$(208)"PALADIN":CL$(210)"RANGER":CL$(212)"THEIF":CL$(215)"WIZARD"c --DATA--  MARKS/CARDS,TORCHES,,,STRENGTH,DEXTERITY,INTELLIGENCE,WISDOM :772,217:773,3:47083,0:47092,1PDEC(K)((K10)16)((K10(K10))10)VkL$(64):I1463xL$(I):CL$(255):CL$(193)"ALCHEMIST":CL$(194)"BARBARIAN":CL$(195)"CLERIC":CL$(196)"DRUID":CL$(198)"FIGHTER"CL$(201)"ILLUSIONISTPL$(N1)"-EMPTY-":16608^(I)0PL$(N1)NA$:1660LhNA$NA$((I))SrIa|NA$"":N --SET UP-- HEX(L)((L16)10)((L16(L16))16)"768,32:769,227:770,3:771,7612847088,START(START256)256:47089,(START256)E47085,IN768bSTARTSTART256iI" --ROSTER SET UP-- ,PL$(20)6N019@S24000(N64)JISS14TIS(S)0ĠƠōҠؠנؠԍŠؠŠŠƠԍԠؠΠŠӍɠؠРōؠ ؠؠŠԠ ƠӠӍԠԠŠΠōҠנŠˠΠŠ΍ӍӠؠĠ΍àҠؠàԠؠ ɠҠԠ ҠĠ Ӡ΍Ġ٠ŠԠ ƠӠӍ̠ɠҠԠ àҠҠԠàԠҠĠ àҠҠԠؠҠԠ ÍԠҠҠàԠӠ΍̲ҠĠ ؠ ӍҠƬ؍àҠ؍àҠ؍àҠƬ؍àҠ؍àҠ؍čҠ؍àԍȠҬ؍Ҭ؍àҠ؍àҠ؍àҠ؍ȍҠ؍ҠՠԠҠ؍ѠԍРѠȍРɠԍРѠԍРѠԍҬ؍ĠƍҬ؍àҠ؍àҠ؍à ͍Ӎ ō٠ ſŠ԰٠ Ϭ č٠ٲ î԰̩٠ ōҍȩٍǠ Ǎҫ٠٠Ӡ̩٠ ōҍȩٍǠ Ǎҫ٠٠ ͍Ӎ٠٠٠ ҍàٲ ΍٠ٲ ؽ1`߿߿8<@DHLPTX\`dhlptx| * *xx * ULTIMA /// * * PLAYER *  * ENHANCER * * BY * * ROB0uȊ 4 0S4Ȋ  4 0-4ȊȱҠ!@` p INSUFFICIENT SPACE s ANOTHER TARGET ?$hh LT L"ȱ& 0 ҥ `ȱ`hhL  +  @!ϥL  m REPLACE EXISTING FILE ? $ L> m RENAME TARGET FILE ? $ hhLT@ m RENAME $ ɛLL# =$0pI1`I1 m DISK ERROR L> m CANNOT RESTORE FILE L> m FORMAT ERROR   0LTL LbLȱ"퐏 ӥ  8    e` m INSERT SOURCEL m INSERT TARGET s PRESS s RETURN  ɍ`` > 1 L HH   ^ hhH h`    m F$pؠ HhL5#R8"@Ȅȱ  Z m TARGET   ɛ=ɍ ee   Z *   LU  L H8     4 h    4  LQ8*i8` $$)? @( ɍɛ)Ɉ&ɕ $ (&Hɠ)?(h`  i  HhH h` p SELECT FILE, FOR A NEW DIRECTORY` p SELECT COMMAND, FOR ANOTHER FILL $ v RETURN OR ESC `ܩhi ȥJJJJLUJKi ԅlL| $ v SLOT= DRIVE $JJJJ $( ɍIH h $ ɍI ȑ` (Ȅ$ ɛ L ! ɛ !.Qt >: ($   )  L H8H   G  !% "L "0 1 z L m ANOTHER DIRECTORY ?$ ɍ L m SOURCE   ɍ ɛ s SEPTEMBER 1980`$L[($H(h)JL G ! | G ɠ?2i@ 2 (᩠Lɩ8@A H@Ah@AAd  A LL$* i`  .L %$ $ L m ERROR hhL ` s VOLUME | $$A⩰ v FILEө$ P v FREE SECTOR` % L s Rĩ s Wҩ  s T=$ S=` WD(WD$):(WD0WD6)WD$"**"ĺ(7):1250=WD$(WD$,1)V7:1:"ENTER TIME:"8:"HOUR(0-23)":VT8:1580:HR$IS$:HR(IS$):(HR0HR23)HR$"**"ĺ(7):1280 9:1:"MIN(0-59)":VT9:1580:MI$IS$:MI(IS$):(MI0MI59)MI$"**"ĺ(7)::MO$IS$:MO(MO$):(MO1MO12)MO$"**"MO$"99"ĺ(7):1210ZMO$"99"TRNR1::3:1:"DAY(1-31)":VT3:1580:DA$IS$:DA(DA$):(DA1DA31)DA$"**"ĺ(7):12305:1:"DAY OF WEEK (SUNDAY=0)",6:1:"DAY(0-6)":VT6:1580:WD$IS$:::E$"B":"CLOCK WILL RE-START IN THIRTY SECONDS.":E$"O"wW130000:: DELAY ALLOWS CURRENT MINUTE TO CHANGE:1390 SUBROUTINE TO SET ALARM TIME*******:"ENTER ALARM #"NR" (MONTH '99' EXITS)"@2:1:"MONTH(1-12)":VT2:1580.:38 START SPEAK AND PRINT ALARM MESSAGE@B:E$"O"KL""V:"ALARM WENT OFF AT "T$: PRINT COMPLETE DATE & TIME STRING`N13: MESSAGE REPEATS THREE TIMESjE$"B";:AM$:E$"O": PRINT AND SPEAK MESSAGEtW18500:~>ELETE: #";Z$:Z$""ı9VZ(Z$):VZ1VZTRĺ(7):990IA1VZ:958w12:"LAST ALARM TO DELETE #";Z$:Z$""ıVZ(Z$):VZA1VZTRĺ(7):1020A2VZ:DAA2A11:TRTRDA:958NRA1TR$RE$(NR)RE$(NRDA): RENUMBERS ALARM STRINGSٍԠàŠԍ΍ԠÍààԍàРԍƠԠǠԬŠРӢĠƠĠРԍččҠŴԠōؠ٠ȠŠƠĠҍҠŵŲŠǠϠЍ٠ĠǠȍ٠ŠҠҍٍƠРנōٍٍРȠōҠԍԠРЍĠƠΠЍԠԠǭӠǠӍԠҠðˠҠ΍ҠųԠӠƠҍؠҠķؠѠԍؠĠؠӠǠȍҠĵҠ؍Ҡĸ؍Ҡ؍Ҡ؍؍ŠЍðˠčɠРƠԬΠϠЍÍȍàԠҍȍà̍àȍٍ̠ѠԍҠ؍Ҡ؍Ҡ؍Ҡ؍Ҡ؍Ҡ؍Ҡ؍Ҡ؍Ҡ؍Ҡ؍Ҡ؍؍ŠЍؠōРƬ؍àҠ؍àҠ؍àҠ؍àҠ؍àҠ؍ȍҠ؍Ԡ؍ѠбРЍŠ٠Ϡ٠ҠՠбؠРҠ؍ҠƬ؍àҠ؍àҠ؍àҠ؍àҠ؍àҠ؍čҠ؍àԍȠҬ؍Ҭ؍àҠ؍àҠ؍àҠ؍ȍҠ؍Ҡՠ¸ԠҠ؍ѠԍРѠȍРɠԍРѠԍРѠԍҬ؍ĠƍҬ؍àҠ؍àҠ؍àҠ؍čҠ؍àԍȠҬ؍Ҭ؍àҠ؍àҠ؍àҠ؍àҠ؍àҠ؍àҠƬ؍àҠ؍àҠѠȍРɠԍРѠԍРѠԍҬ؍ĠƍҬ؍àҠ؍àҠ؍àҠ؍àҠ؍àҠ؍àҠƬ؍àҠ؍à¤Ƭ؍àҠ؍àҠ؍àҠƬ؍àҠ؍àҠ؍ȍҠ؍Ԡ؍ѠбРЍҠՠбؠРҠ؍ѠԍРD O.K.?(Y/N) ";:Z$3Z$"Y"Z$"N"ĺ(7):930RZ$:Z$"N"Ģ22:958:910RE$(NR)""AL$AM$:: COMBINES TIME & MESSAGE INTO ONE STRING START DELETE ALARM ROUTINE:4:"THERE ARE "TR" ALARMS IN THE FILE."10:"FIRST ALARM TO D1VZTRĺ(7):820#fNRVZ:958Op"OLD ALARM#"NR" TIME AND MESSAGE WAS:"bz:RE$(NR)::::"TOUCH RETURN TO ENTER AMENDED ALARM":Z$:119015:NR;:") MESSAGE: ";AM$E$"T":AM$:E$"O": SPEAKS NEW MESSAGE22:"DOES THAT SOUNFILE EXISTSD$"READ"FI$$TR1 NR1TR>RE$(NR)D [*D$"CLOSE":NRTR:4 START ALARM AMEND ROUTINE***********>H10:"THERE ARE "TR" ALARMS IN MEMORY"R"WHICH ALARM# DO YOU WANT TO CHANGE? ";Z$:Z$""ı\VZ(Z$):VZD$"OPEN"FI$#D$"WRITE"FI$+TR8NR1TRERE$(NR)KZD$"CLOSE"` START ALARM FILE LOAD ROUTINE*******:D$"CATALOG":"NAME OF FILE? ";FI$::FI$""ı D$"UNLOCK"FI$:D$"OPEN"FI$: UNLOCK TESTS TO SEE IF ;") ";: SPLIT STRING INTO TIME & MESSAGEZ:AL$: PRINT COMPLETE TIME & MESSAGE STRINGDE$"B";:AM$;:E$"O": SPEAK ALARM MESSAGENXb START ALARM FILE SAVE ROUTINE******l:4:"ENTER NAME FOR THE ALARM FILE:"v:FI$:FI$""ıA11:A2TR:550316:"FIRST ALARM NUMBER = ";Z$WVZ(Z$):VZ1VZTRĺ(7):490gA1VZ:95818:"LAST ALARM NUMBER = ";Z$VZ(Z$):VZA1VZTRĺ(7):520A2VZ&:NRA1A2*0AL$(RE$(NR),14):AM$(RE$(NR),(RE$(NR))14):NREMORY "aTR0ĺ"THERE ARE NO ALARMS ON FILE SO AM GOING BACK TO THE MAIN MENU":I15000::7:"1. SPEAK ALL ALARMS":"2. SPEAK A CHOSEN RANGE OF ALARMS"14:"TOUCH '1' OR '2'":Z$:Z$""ıZ$"1"Z$"2"ĺ(7):410Z$"1"OUND O.K.? (Y/N)";6|Z$:Z$"Y"Z$"N"ĺ(7):380fZ$:Z$"N"ĢVT:958:NR;") ";AM$:VT:330RE$(NR)""AL$AM$:300: COMBINES TIME AND MESSAGE INTO ONE STRING START ALARM TEST ROUTINE************:4:"THERE ARE ";TR" ALARMS IN MTO SET ALARM TIME!6"MESSAGE:"0@VT(37)1\J START INPUT ROUTINE FOR ALARM MESSAGETNR;:") ";AM$:AM$""ĢVT:330^(AM$)235ĺ(7)"MESSAGE TOO LONG":I13000::280hE$"T":AM$;:E$"O": SPEAKS NEW MESSAGEr958::"DOES THAT S************q :10:(7)"THIS WILL ERASE ANY ALARMS PRESENTLY IN MEMORY. IS THIS OK? (Y/N)":Z$:Z$"Y"ı TR0:NR0:I1TR:RE$(I)"":: NULLS PREVIOUSLY ALLOCATED STRINGS ":2:"MAX. ALARM MESSAGE = 235 CHARACTERS",NRNR1:1190: GO :"8. ERASE ALARMS IN MEMORY & START ANEW"F :"9. EXIT PROGRAM"y ::"-> WHICH? (TOUCH A NUMBER)":Z$:VZ(Z$) VZ1VZ9ĺ(7):110 VZ720,410,1390,820,240,970,610,260,1830 110 TR0260 290  START NEW FILE OF ALARMS****4 n:::NRTR:"1. LOAD ALARM FILE FROM DISK"\ x:"2. TEST RUN ALL ALARM MESSAGES"z :"3. START ALARM CLOCK" :"4. MODIFY AN ALARM" :"5. ADD NEW ALARM(S)" :"6. DELETE ONE OR MORE ALARMS" :"7. SAVE ALARM FILE TO DISK"- KER, OTHERWISE TOUCH 'RETURN' TO CONTINUE":{ FZ$:Z$"L"ĺD$"BRUN TEXTALKER.RAM": AMEND THIS IF YOU DON'T HAVE RAMCARD PE$"O": TURN SPEECH OFF ZD$"PR#0": ENSURE ECHOII & TEXTALKER CONNECTED  d START MAIN MENU*****************DITING ROUTINES ADAPTED FROM A PROGRAM BY CLAY RUTH":1860 (D$(13)(4):E$(5):RE$(100): MAX.NO. OF ALARMS COULD BE>100 IF YOU HAVE MEMORY 2 E$ IS 'CONTROL E' - THE SETUP FOR ECHO II COMMANDS, <15::"TOUCH 'L'IF YOU NEED TO LOAD TEXTAL/ INITIALIZE************* :"'SPEAKALARMS' PROGRAM BY:"::"TIM KENDRICK BOX 472 OCEAN FALLS B.C. VOT IPO CANADA"? :"ALARM ENTERING AND E           ī11903ZAL$WD$" "MO$"/"DA$"/ "HR$"."MI$9ddn START ALARM RUNNING*****************x:"ALARM NOW RUNNING"16:958:"PRESENT DATE AND TIME IS:":21:"TO EXIT TO MAIN MENU, TOUCH 'ESC'"16:1760:T$: GET DATE/TIME STRI1290.::5:"ALARM WILL BE SET TO GO OFF"O6:"MONTH "MO$:"DAY "DA$b("WEEKDAY "WD$m2"AT:"<10:HR$;" HOURS"FMI$;" MINUTES"P"TOUCH 'RETURN' IF THIS IS CORRECT OR ANY OTHER KEY TO RE-ENTER ALARM TIME "::Z$:Z$(13)nter9^111,SL%:112,SH%:: Reset string space pointer] Enable tape for play/rewind t1120: Printer on"Tape enabled. Press RETURN to resume."16294,0: Tape on"";N$16293,0: Tape off10016800:17280%(25)2552240:+G Load text from disk _N$"MOCK.TELEPHONE"qD$;"OPEN";N$D$;"READ";N$TLTL$(TL)LN1TLTL$(LN)D$;"CLOSE"TSL%(111):SH%(112):: Remember string space poi Time-string for display2nPMT$T$" PM":1410BxT$T$" AM"T$T$" ON "((D100.05))"/"(D100(D100.05)): Append date to string4190:T$""T$: Clobber garbage Recite Speech LN1TL4190MB$TL$(LN)200(M0): Date correctionDFT1200PM0: AM/PM flag correctionlPT100TT1200: Zero Hour = 12 AMZT1299TT1200: 13 - 23 hours become 1 - 11 PMdT$((T100.05))":":T100(T100.05)10T$T$"0"iT$T$(T100(T100.05)):al time )PM1: Initialize AM/PM flagJT((T$,7))100((T$,10))g(D(T$)100((T$,4,2))2TT(AFDS)100: Adjust for local time<T0TT2400:DD1:(D100(D100.05))DD100:M(D100.05):DD31(M4M6M9M11)3(M2)LY1 clock![1300: Convert string;`D$;"IN#0":D$;"PR#1"e(9);"K";: Delete line 1125 if printer doesn't automatically linefeedj1100R;" rings at ";T$ Convert clock output to desired format, including adjustment for loc Interpret keypress F16368,0:IN%176IN%186NIN%176:90XIN%2125000j8IN%155160=D$;"PR#0":D$;"IN#0"BK Read Clock (if present) LCST$"UNDETERMINED TIME":1120QD$;"PR#";CS:D$;"IN#";CSV" ";T$:Read4,0: Start tape2 @ST,142: Send answer carrierA JX1900:` TST,136: Turn off carrierq ^X120000: h16293,0: Stop tape r16291,0: Disconnect patch (26): Hang up (modem on-hook) VT:958: Pack screen display 130for ring to end, RN230: Answer phone5 150? 1100Z :"ANSWERED AT ";T$:i VT(37)1z D$;"PR#";MS  ST,136: Off-hook, no carrier 16292,0: Connect patch "2210: Recite message to caller ,X1400: 61629Main Loop - Wait for Ring : R0: Initialize ring countH W11300h IN%(16384):IN%1271000 (ST)128180: Test for ringing :Rİ1200: Display ring count and time 130 RR1: Increment ring count (ST)128200: Wait lot N=Number of Rings & D$;"IN#0"5 (D$;"PR#0"= -:V 2D$;"BLOADALGORITHM" 31022,161:1023,67:25,0:16293,0:16291,0 74000: Load speech Z1120: Printer on d"Waiting for ring #";N;" : ESC = quit " xST1625116MS (4):D$;"NOMONICO"9 DS0:AF6:LY0:CS5:MS3:MB4:N4  DS=0 for Standard Time DS=1 for Daylight Time AF=-5 (EST), -6 (CST), -7 (MST), -8 (PST) AF=0 if clock on local LY=1 for Leap Year CS=Clock Slot (0=none) MS=Modem Slot MB=MockingBoard s  A.P.P.L.E. Answering System For use with Mockingboard Speech I or Sound/Speech I and Hayes Micromodem and (optional) Apple Clock by Clay Ruth, Call -A.P.P.L.E. Staff Writer Call -A.P.P.L.E. : December, 198324448:(4);"MAXFILES1" D$     5,2)(AL$,2)"**"1540: MINUTE CHECKS?l(AL$,10,2)(T$,12,2)(AL$,10,2)"**"1540: HOUR CHECKS?(AL$,6,2)(T$,6,2)(AL$,6,2)"**"1540: DAY OF MONTH CHECKS?(AL$,3,2)(T$,3,2)(AL$,3,2)"**"1540: MONTH CHECKS?5 (AL$NG AND PRINT IT6WS1850:: DELAY TO CUT FLICKERBI1TR START TO CHECK CURRENT DAY,,HOUR,MIN. ETC. AGAINST EACH ALARM IN MEMORYAL$(RE$(I),14):AM$(RE$(I),(RE$(I))14): SPLIT ALARM STRING INTO TIME & MESSAGE)(AL$,2)(T$,1OP;:5!STARSWEEK(LOOP)35253TEMP1STARS="*";GTEMPMWLOOP:"SHOW GRAPH AGAIN?";ANSWER$:ANSWER$ANSWER$" "(ANSWER$,1)"Y"(ANSWER$,1)"y"65024::::ENE) {GENEANIMAL.WEEKWEEK1:2055:U:ALL ANIMALS ARE THE SAME,q:SO END THE PROGRAM BY:PRINTING A GRAPH OF THE:WEEKLY AVERAGES.:"WEEK";:6:"WEEKLY AVERAGE OF SURVIVAL TRAIT"LOOP1WEEKLO FOR THE NEW ANIMAL.X:J]FTHER((1)100)1:GENES%(FTHER,0)0605bMOTHER((1)100)1:GENES%(MOTHER,0)0MOTHERFTHER605gGENE15l(1).5630qGENES%(ANIMAL,GENE)GENES%(FTHER,GENE):635vGENES%(ANIMAL,GENE)GENES%(MOTHER,GEO PUT A NEW ANIMAL5+:INTO THE DEAD ANIMAL'S PLACE<0:[5:THIS ANIMAL'S GENES WILLy::BE CREATED BY COMBINING?:THE GENES OF 2 OTHER ALIVED:ANIMALS, RANDOMLY USINGI:ONE OF THE TWO GENES INN:EACH LOCATION TO GET THES:GENE(ANIMAL,0)0640)5:12:ANIMAL;3):?RANM((1)30)1ISUM0WTEMP15wSUMSUMGENES%(ANIMAL,TEMP)TEMP 7:30:SUM;3)::8:30:RANM;3):15:1:868SUMRANM640:!:THE CURRENT ANIMAL HAS&:DIED, S:: IN EACH LOOP,6:REMOVE ANY ANIMALN:IN WHICH A RANDOMh:NUMBER FROM 1 TO 30:IS LARGER THAN THE:SUM OF THE VALUES OF:THE ANIMALS "GENES".:3:6:WEEK;:32:NUMBER;3);:ANIMAL1100GENES%NE)|(16384)("S")128WEEK2006500:M:AT LEAST ONE ANIMAL ISl:DIFFERENT FROM THE REST,:SO GO ON TO THE NEXT:WEEK.:: NOW, LOOP THROUGH:POPULATION UNTIL:ALL OF THE ANIMALS: ARE EXACTLY THE SAME(WKVLOLDWKVL)100)100;:8685 @WEEKDTA(WEEK)WKVLF EOLDWKVLWKVLM J:k O : GO ONTO THE NEXT WEEKr T: YGENE15 ^ANIMAL1100 cGENES%(ANIMAL,GENE)GENES%(1,GENE)375 hANIMAL mGENE r650wGENE6:ANIMAL1000:ANIMAL,GEGENES%(ANIMAL,0)0280 SUM0. GENE15N SUMSUMGENES%(ANIMAL,GENE)X GENEj TSUMTSUMSUMz TNUMTNUM1 ANIMAL : ": OUTPUT THE RESULTS ': ,14:15:WEEK 1WKVL(TSUM100TNUM)100 617:30:WKVL ;18:30:(:"DATA FOR WEEK #"< 17:"AVERAGE SURVIVABILITY FACTOR:"a "CHANGE FROM LAST WEEK :"l WEEK1s : :NOW, CALCULATE AND :OUTPUT THE STATISTICS :FOR THIS ANIMAL :POPULATION : TSUM0:TNUM0 ANIMAL1100 *****************":12:"********** PRESS 'S' TO STOP ***********":1:"****************************************" 3:"WEEK ";:20:"POPULATION: " 5:"ANIMAL " 7:"ANIMAL SURVIVABILITY FACTOR: " 8:"RANDOM SURVIVABILITY FACTOR: " 14DTA(200) nNUMBER100 s:8 x: CREATE 100 ANIMALS? }:T ANIMAL1NUMBERk GENES%(ANIMAL,0)1y GENE15 8:" CREATING ANIMAL NUMBER ";ANIMAL GENES%(ANIMAL,GENE)((1)5)1 GENE,ANIMALq :24:"***********************  ::::::::::::::::::::" 9 A DEMONSTRATIONQ OF EVOLUTION DUEkTO NATURAL SELECTIONq#CALL -APPLE, SEPT 84(- BY: KEITH2 STATTENFIELD7<::::::::::::::::::::Ad: iGENES%(100,5),WEEK     ؍čҠ؍àԍȠҬ؍Ҭ؍àҠ؍àҠ؍àҠƬ؍àҠ؍àҠ؍àҠƬ؍àҠ؍àҠȍРɠԍРѠԍРѠԍҬ؍ĠƍҬ؍àҠ؍àҠ؍àҠƬ؍àҠ؍àҠ؍àҠƬ؍àҠ؍à؍àҠ؍àҠƬ؍àҠ؍àҠ؍ȠҠƠŠ̍ҠؠŠŠΠ΍ҠՠԠҠ؍ѠԠŠԠŠōРѠҠ؍čҠؠ̠̠Π΍àԠȠӍȠ̍ȠҬ؍ԠԠϠԠōҬ؍àҠ؍àҠ؍àҠƬ؍àҠРѠԍ̠̍Ҭ؍ĠƠҠԠҬ؍àҠؠԠҠԍàҠ؍àҠƬ؍àҠ؍àҠ؍àҠƬ؍àҠ؍àӠҠӬΠ̠ԍР֍ؠƶРҠؠĠ٠ōѠԠŠϠԠĠԠӠŠٍРѠȠƠӬΠȍРɠԍРѠԍōԠ٠ԠРō٠̍ȍō̍ȍ٠̍ȍҠōҠՠԠƠΠЍӍƠ̠ӠĠĠӠӬΠȍƠ̠ӠŠĠÍƠǠԬԠנǠŠƠŸĠՠҠƠĠ̍ȠՠҠƠŠ̍٠ՠ̠ՠÍȠՠč̠ՠōȠՠƍ̠ՠȠՠԠՠŠՠŲàˠʬҠʍЬʍ΍˱Ԡ½ɫˠʬ ĠŠҍҠʠǍЬʠҍҠˠʬ ĠԠʽʫƠ̍ЬʠōҠˠʬҠʍЬʍ΍ĠƠέŠȠ ˍ ˱ԠԠɍҠɽˠʬɍƠʣϠԍԠ½ɫ ˍԠ½ɫ ˍ ˱ԠԠɍϠԍˠˠʬҠʍЬʍҠˠʬҠʍЬʍҠРϠԠ٠ˠʬɠʠ˨ɩƠʣϠԠƠԠΠԍԠ½ɫ ˍԠ½ɫ ˍ ˱ԠԠɍҠɽˠʬɍƠʣϠԍԠ½ɫ ˍԠ½ɫԠŠ͠ŠՠŠŠԠ΍̍ΠǠΠҠɬʬҠɽԠ٠ϠŠɬԠɍԠ½ԠʽҠɽЬԠ½«ʍԠɍҠɽϠĠ٠͠ӠȠƠԠ Ү Š٠͠Ġ  ϭ ҧ               ġ:D$"CLOSE"::%:B%D ERROR HANDLING ROUTINE*************%ND$"CLOSE":::10:(7)"SOMETHING IS WRONG - TRY AGAIN"::%X(222)6Ė10:"NO SUCH FILE"%b16368,0%l::"TOUCH 'RETURN' TO GO BACK TO MENU"::Z$:110 GETS DATE/TIME STRING 'T$' FROM CLOCKCARD ;$D$"IN#4"I$D$"PR#4"Q$T$_$D$"IN#0"m$D$"PR#0"s$$& START EXIT ROUTINE*****************%0:10:(7)"ARE YOU SURE YOU WANT TO WIPE ALARMS COMPLETELY FROM MEMORY (Y/N)":Z$:Z$"Y"N FRONTT#CNFLāICNFL:IS$"*"IS$:: IF NO ENTRY MADE, STRING IS SET TO '**'\#:{#CNCN1:CN0ĺ(7);:1600#(8);:CN1IS$(IS$,CN1):1610#1600#AS((40)(41)256(36)):AS32CH$(AS64):1670#CH$(AS):1670-$H$(13)1680: RETURN PRESSED="^CH$(24)ĺ(7):::1190U"hCNFLĺ(7);:1610i"rCH$(21)1740"|(CH$)48(CH$)57ĺ(7);:1610"IS$IS$CH$:CH$;:CNCN1:1610#CH$(13)CN2IS$"0"IS$:1700: IF ENTRY LESS THAN 10, ADDS A "0" IBACK TO UPDATE TIME/!"1080: TO SPEAK ALARM!, START TIME INPUT SUBROUTINE WHICH ENSURES EACH SEGMENT OF STRING IS RIGHT LENGTH (2 CHRS) ETC.!6FL2:HT12!@:VT:HT:I1FL:" ";::VT:HT:IS$"":CN1!JCH$:CH$(8)1710: BACKSPACE"TC,1)(T$,1)(AL$,1)"*"1540: DAY OF WEEK CHECKS?` 1080: GOT A MATCH! GO TO SOUND ALARM : BACK TO CHECK AGAINST NEXT ALARM STRING PK(16384):16368,0:PK155ı: SEE IF 'ESC' PRESSED!1430: NO ALARMS CHECK WITH CURRENT TIME - GO eiejfjfkg٢N(h(dkg0Zi L^: ߢ u! 9ե R ȥoȥp`eL` 9hvhhY4`憊Ƈ0LFa`j jijjjjjkkL^6(d\3 0T#P"L(h)ߝ(hށkހkk'h)hާhިhީh(P%(h (hkkk'h)hhhh(g\3 0T#P"Lk)ߝkjkkkށk'h(h)hP%k kjkkkk'h(h)hL_vhdid\3 0T#P"Lh)ߝhghhhށhhiiP%h hghhhhhiie\3 0T#P"Li)ߝihiiiށiijjP%i ihiiiiijjf\3 0T#P"Lj)ߝjijjjށjjkkP%ZZZZZ]Z]Z`ZiZZi_ZZ]Z]ZZZZZ^Z^ZZZZ^Z^ZZZi ZZiZZE^ZF^ZZZZ\^Z]^ZZZZZ~^Z^Z`d<=΅>g?BhC ,ZZHIh0h0 ZΐL]Z\Z\ZZZɪZL]ZiZZi_Z ]ZiZZi\Z ] ]ZZL\L^Z,]Z-]ZZZZZN]ZO]ZZZZe]Zf]ZZZZZ]Z]ZZZZ]Z]0 ZvL \Z[Z[ZZZɪZL\ZiZZi_Z ]ZiZZi`Z ] ]ZZL[)ZZZHIh0h0 ZvL\ZC\ZD\ZZZɪZL\ZiWZZicZ ]ZiZZi`Z ] ]ZZL\ZZYHHvHv٩3LZLLLĩZ @a)ZdZZHIgh0hg0 ZΐL[Z [Z [ZZLZOZdZZZZZZHIh0h0 ZL[Zd[Ze[ZmZZZmZZZZL5[ZZZHIh0h  :3:"**"V4:3:"**".V2:11:"**"AV3:11:"**"TV4:11:"**"gV2:25:"**"yV4:28:"*"V5:28:"*"V6:28:"*"V7:27:"*" V3:27:"*"V4:37:"**"V5:37:"**".*************IDER GENERATORzV7'V:14:"**"9V3:10:"*"LV1:14:"**"_V5:14:"**"rV6:14:"**"V2:19:"*****"V3:21:"**"V5:20:"*"V1:20:"*"V8:25:"**"V3:18:"*"V4:18:"**" V3:BI23719:2500:2600*>: LINES 51-59>H24193: $5E81KR::500V PEOK B,(B)1:BB1:B,(B)1:BB1:B,(B)1:: LINES 61-72( PEOK12 BI24575:B,(B)1:BB1:B,(B)32:BB1:B,(B)1:: LINES 73-85::500p GL9:J128:I18:B,192:BBJ:: LINES 27-32l I11531910:(I)170BI24447:2500:BI24703:2500:2600: LINES 33-41 I10651142:(I)170BI25431:2500:BI24703:2500:2600*: LINES 42-504I19211998:(I)170BI24447:2500l:vI223:I(LI$(I)""1980PJ239:(LI$(I),J,1)"*"ĖJ:"*";V\k DISPLAY23201:::500: DELETE LINE IF NOT USING MACROSOFT24873,96: INSERT RTSI2564126574:I,0:: *MACROSOFT LINES 24-26*+B2567DISC:1800OD$;"OPEN";A$:D$;"WRITE";A$:I223:LI$(I)::D$;"CLOSE"X500"ENTER FILE NAME ? ":"TO CATALOG DISC, ENTER RETURN ":"TO RETURN TO MAIN MENU,ENTER ";QU$;"R";QU$:" ";A$:A$""ĺD$;"CATALOG":1800A$"R"ġ:500(LI$(V),H1)(G)(LI$(V),40H)3A$(27)500DX(0):1400Y@ LOAD FROM DISClJ:1800:1690tTI2^D$;"OPEN";A$:D$;"READ";A$h23,22:NUMBER OF LINESr24804:LI$(I):LINPUT:D$;"CLOSE":500II1:1650 SAVE TO "B (I323:LI$(I)LI$(2)::FL1P 2V10:H20o xI223:I:LI$(I)::H:Vw A$ H(A$"J")(1)(H1)(A$"K")(H39)H:V(A$"I")(1)(H1)(A$"M")(H23)V!A$"D"A$"F"G32(A$"F")42(A$"D"):LI$(V)00 H936::6000:2000+ R::"END": :2:"USE D AND F FOR ENTERING AND DELETING"::"USE I,J,K, AND M FOR CURSOR MOVEMENT"::"USE ESC TO RETURN TO MENU "::"TO EDIT CURRENT PATTERN HIT ESC ":A$ :FL1(A$)271330! LI$(2)" PATTERN": v"(F) FLASHER ":> "(G) GLIDER GENERATOR":X "(L) LOAD PATTERN":k "(Q) QUIT ": "(S) SAVE PATTERN": "(T) TEST PATTERN": *DE(DE0)127(DE127)255(DE255)0:2,DE:SE0:520 4: >936::10:19:"***":20670,680:a 22:6::"SELECT ? ":6:"USE 'ESC' TO EXECUTE ";:SE$:I18:SE$(ME$,I,1)MEI| &:SE$(27)SE0590 0ME1ME8540 :SEME:520 NSE810,1300,830,840,1600,850,1700,1900 b868:"(D) DELAY = ";DE: l"(E) ENTER A NEW ********** & (4);"BLOAD LIFE.OBJ": (0,0:1,68:2,0h 2LI$(24):ME$"DEFGLQST":D$(4):QU$(34)u  *MENU* :SE0:1:"LIFE-SAM STRICKLAND, APPLESOFT-SAM VASS":2:18:"MENU":H8 I18:I23:H::ISEĞ I610,620,630,640,650,660,  ***********************; ** **X ** LIFE - MARCH 1984 **v ** ** ** SAM STRICKLAND **** ** ** SAM VASS ** ** ** *************        E%0Q&& m )j0     &' `    &' `5 W   H8H hIiH   h  hIi n 8   8 m    &E%0Q&& &  m   m P`#0JI0`'0 I`0 I0ݩ( )&%01&%0 )&  `2  e1`1`) 1` 1`  1``  ōŠР Ӡ š٠Ӡ ҍ ؠ ٠٠ ōҠΠ ؠ ٠٠ ōҠŠ ōà٠ ɍؠ ύҠԠ ӍҠҠ ɭ ٍР٠ ō Ġ ӍҠҠ  C ź κ Ҭ Ӎ Һ ʮ ԍ ź έǠԠՠҠՠҠՠčΠՠijŠՠϳ     ٠٠ ΍àٲ ō٠ٲ Ǎ٠Ơ ŧ ΍ŠԱ Ԭ Ѝ٠ ͍٠ٲ ٍԱɍĠѠԍҩٍҠˍĠԍŠԍàҍԠҠҩٍҩ٠ ԍԠɍàɍĠРҍӠؠ ō٠ɠ٠Ӎ٠ ؾӠӍÍɍĠѠԍƠ ӍĠԠ ΍ĠҩٍŠԍàҍƍĠԍ̠ԍÍ îˍŲӍؠԍ̠ ύҠ Ωɠű ō٠ ٠ ؽà̠Ѝ٠ ؼРð ΍ӠԠ ō٠͠ ҍˍ̠ ōРð̠ŲˍҠƠ ԍԠ Ԭ ̍Ҡ ōӠϠ Ҭ ͍Ҡð ά ƍűԠ ԍӍϠ٠ ׍ōà͍ѠŠŧ ͽŠɍӠЍҠ٠ é ٍÍύàύύɍàɍàŠ ӍŠӍؠ̠ؠ ɍàŠɍҩ٠ ӍҠˠ Ŭ ȍĠԠ Ŭ ȍҠҩ٠Ԭ ΍ҩ٠ ˮ؍Š΍àōǠٍ٠ٍҠɍÍàύ؍ƍàɠ ԍ͍٠͍Ӡ؍Р̍Ҡؠ é ӮÍؠύàٍϻ ààɍǠɍɠ Өة ōύϠ Өة ōύؠɍÍà٠ ٍàǍҠƠ Ө٩ ͍ٲ ԍؠ؍ ˍÍàϠ ύ ˍàɠ ɍɍӠǍ Өة ƍҠƠӠ Ǎ Χ č ӭ ج ٮŠؠ ׍٠ҠՠԠՠ͠ՠčϠՠŰɠՠű٠ՠŲ͠ՠŵǠՠŶҠՠ̠ՠÍȠՠōؠӠ٠ӠٲӠϠӠɠӠ٠ӠɠӠϠӠ é ЮЮ̮ ЮЮ̮Ů ǠˠՠÍ  ɭ ʮ      300 rX2,Y2 | Y1 X1X1XINC:X1X2370- ERRERRDY2= ERR0220L Y1Y1YINC] ERRERRDX2f 220  ** CASE WHERE DX < DY ** "ERRDX2DY ,X1,Y1 6Y1Y1YINC:Y1Y2370 @ERRERRDX2 JERR0300 TX1X1XINC ^ERRERRDY2 h d::10(n"INPUT X1,Y1";:X1,Y1Cx"INPUT X2,Y2";:X2,Y2L:3`DXX2X1:XINC1oDX0170DXDX:XINC1DYY2Y1:YINC1DY0200DYDY:YINC1DXDY290 ** CASE WHERE DX >= DY **ERRDY2DX X1,  z#??   ϭӠǨîȩ ӴΠ ԠǠŠ ӠԠ Š Ůʠ ŮӠΠϠ̠ǠӮԠ ӳҮϠ!ҠҠ$"ӠԠӠԠӠԠӠӠԠӠ ӠԠ ԲԳԴԵԶӠԶϠӳҮӠϠDZӠ DzdzӠǴ ǵԱ,2):D COPYRIGHT (C) 1983 JOHN RUSSU;::" PRESS SPACE BAR TO CONTINUE ";::49168,0LKB$:KB$" "430:130:::(4)"CATALOG"::::" PRESS SPACE BAR TO CONTINUE ";::49168,0OK$:OK$" "450::D%(L,1):D%(L,0)1ďD%(L,3),D%(L,4)D%(L,2):D%(L,3),D%(L,4)D%(L::(27)"T12":Y039:(27)"S0320";:X039:ZX,Y):J12:K03(49601)127400:49296,B%(Z,K):K,J:X::Y:(27)"B"::(4)"PR#0"1300KB$"?"130:"COMMANDS: V=VLIN H=HLIN C=COLOR Q=QUIT D=DELETE R=REDRAW S=SAVE L=LOAD P=PRINT "NK:260Xh216,0:23:1:(222)6ĺ"UNABLE TO ACCESS DISK. FIX PROBLEM.":22:3:320r23:1:"THAT FILE ISN'T ON THE DISK. TRY AGAIN.":22:3:320|KB$"P"420:49168,0:"PRINT - IS PRINTER READY (Y/N) ?";YN$:(YN$,1)"Y"130C(4)"PR#1""LOAD FROM FILE: ";FL$:(FL$)0130:360GJFL$"CATALOG"İ440:260TD$"VERIFY "FL$:216,0:D$"OPEN "FL$:D$"READ "FL$:K:KN500ĺD$"CLOSE":23:1:"NOT ENOUGH ROOM TO LOAD.":J12000:J:130^LNNK1:J04:D%(L,J):J,L:D$"CLOSE "FL$:N"THAT NAME HAS BEEN USED. TRY AGAIN.":22:3:868:270 ,216,0:(222)6Ģ23:1:"UNABLE TO ACCESS DISK. FIX PROBLEM.":22:3:868:270 6D$"OPEN "FL$:D$"WRITE "FL$:N:L0N1:J04:D%(L,J):J,L:D$"CLOSE "FL$:130*@KB$"L"380:49168,0:DELETE LAST LINE":NN1:N0N0) 130_ KB$"R"270:"REDRAW LINES SO FAR.":N1Ĉ:130{ :L0N1:460:L:130 KB$"S"320:49168,0:"SAVE IN FILE:";FL$:(FL$)0130:300 FL$"CATALOG"İ440:2607 "D$"VERIFY "FL$:216,0:23:1:J D%(N,1)CL:D%(N,2)L0:D%(N,3)L1:D%(N,4)L2:LN:460:NN1:N500130q 23:1:"STORAGE SPACE IS FULL";: KB$"C"230:49168,0:"COLOR= ";YN$:(YN$)0130:L0(YN$):L0(L0)L00L015Ģ22:3:958:210 CLRL0:130 KB$"D"250:")(KB$"V")] 22:8:"FROM: ";KB$:(KB$)0130:L1(KB$):L1(L1)L10L139ĺ(4):160 22:18:"TO: ";KB$:(KB$)0160:L2(KB$):L2(L2)L20L239ĺ(4):170 22:30:"AT: ";KB$:(KB$)0170:L0(KB$):L0(L0)L00L039ĺ(4):18010,63,20,27,54,27,54,27,27,27,27,63,21,63,42,63,63,63,63| 21:1:958:" LO-RES GRAPHICS PLOTTER":"->";:49168,0 KB$:KB$"Q"150:49168,0:"QUIT (CONFIRM - Y/N)? ";YN$:(YN$,1)"Y"130::: KB$"V"KB$"H"210:KB$"LIN";:D%(N,0E 1d:21:1:958:D%(500,4):N0:CL15:D$(4)nB%(15,3):Z015:K03:B%(Z,K):K,Z:DOT PATTERNS FOR HARDCOPY PRINTOUT 8 x0,0,0,0,18,0,18,0,34,8,17,4,21,0,21,0,18,36,18,9,18,18,18,18,18,37,18,41,21,42,21,42,21,21,21,21,63,0,63,0,63,16,63,4,63,   6368,0: d::(4);"CATALOG" X" :9(11):" CALL-A.P.P.L.E. ANTHOLOGY 12A"[(" (JUL-SEP 1984)"2:"PLEASE CONSULT CALL-A.P.P.L.E. ARTICLES FOR INFORMATION ABOUT SPECIFIC PROGRAMS"<(24):(8):"HIT ANY KEY FOR CATALOG"FX(16384):X12870 P1 @(4)"PR#1"::(3);:Y039:X039:ZX,Y):J12:K03(49601)127400:49296,B%(Z,K):K,J:X:(3);(11);:Y:(3);(2)::(4)"PR#0"2ҠҍРΠƠԠҍŠ̳ΠЍ٠ؠŠԍРԍŠҍ٠؍ؠŠԠؠӠԠύؠԠҠҠԍٍŠصàؠԠ؍àΫĠɠӍԠĠԠӠŠ̍Š̳؍Рؠ΍Š̳àؠԠӠԍŠ̳à؍̳Рԍ̳؍̳Ϋ٠ԠҠ΍Š̳ȠƠԠ̍٠؍٠ؠ٠РӠҠ̧ԍ؍؍РؠƠɠ؍رΫ٠ԠҠ͠Ԡ͍РΠӠԠҿѠ̳РƠō٠ؠέҠϠԠԍؠԠΠŠˍ٠ؠŠǠɠؠٍàΫàؠŠŠӠҠЍٍ̳ŠرàΫԠɠӍàؠĠȍΠӠ̠ŠϭŠŠ̳ؠɠŧ̲̠̫ҠЍÍà؍٠؍ ŧҽ̽Π͠ӬȠӠɬЮӠԠǍŠ٧ҠӠŠנؠōˠΠؠӠŠȠؠōŠŠӠĠΠΫΫӠϠ     19:D%(J,3);:28:D%(J,4);:37:D%(J,2):J= 8(4)"PR#0":DSS THE FILE.":J13000:J:G 216,0::"HARDCOPY (Y/N)? ";:48169,0 $KB$:KB$"Y"KB$"N"1060:KB$:KB$"Y"ĺD$"PR#1"+ ."THE DRAWING CONTAINS "N" LINES.":"DIR CLR FROM TO AT":J1N:("HV",D%(J,0)1,1)" "D%(J,1);:>/D$(4):::"FILENAME: ";FL$:(FL$)0ĀvFL$"CATALOG"ĺD$"CATALOG":::"PRESS RETURN TO CONTINUE:";KB$:1040D$"OPEN "FL$:D$"READ "FL$:N:D%(N,4):J1N:K04:D%(J,K):K,J:D$"CLOSE":1050 216,0:"UNABLE TO LOCATE OR ACCE ҠҠ¯Ҡ¯ҠӠύРɠȠˠŠ̠ΩԠ¯ƠŠŠӠ̠Ω¯ƠЍРƍŠӲҠŠҩˠΣŭҩŭҠР¯Ҡ¯ҠӠύРɠˠӠ̠ΩР¯ƠНƠЍРŭҠŠŭϠĠƠũРԠԠҭҠҠΠũŠΠŠӠԠŠΠŠԠ٩ԠŭҠծʍͱͷǠʍͫΠҠ̠ҠԩŠ٠ؠ٭ŠҠϠج٩àԠµ ҬϠЬĭōҭϭ̠έҠ   ͍ЍϠˠҠӠčύЍōԍؠҠҍҍ̳ؠҠҍҠϠΠ͠ҍ̳РϠŠƠϠӠҍ΍̳̳РϠŠƠˠŠҍҠԠԠŠҍō̍ΠԠԠƠԠӠŠ̳ύΠō̳ԍ̳ϠˠҠӠčύЍō ԠǠǠϠϠˍϠԍӍРҠҍԍؠԍҍӍō͍נϠĠŠˍΠƠϠӠҍĠԍؠˠԍҍӍҍԍؠҠԍҍӍҍİ̳čЍ̳ϠԍҍӍҍԠˠҍؠӯˍčƠč̳ԠŠҍԍЍՍΠƠŠ̳ō΍̳Рˠ؍ЍԍԍԍҠӯōӍӍԍčЍԍؠðԍҍӍҍРˠŠˍӠˠՍҠϠΠˍϠŠҍԍؠԍҍӍҍϠ΍Ѝˍ؍؍؍٠؍РԍүקҠŠӍ̳ؠɠүק̳נ̍ Ƞ ҍРȰĠ ӠҠŠӍ̳ؠɠ§ «ؠōҠųŠӠ ҠҍؠŠȠҠϠӠҠĹӠҠϠӍ®ĮؠōӠױƠҍϠҍРȰױҍ үשŠŠōؠɠүשנ׫٠ؠԠ Ӡ͠ˍ؍؍؍ؠō     ̵̍ҠҠҽϠΠ͠ҩŠϠөРƠŠŠҩРҾРРҠƍǠĩҾүשϠĠŠ˩ƠӠҩРˠҠӠĩ ǠǠƠŠӠƠǠƠƠŠĠƠҠáӯ˩ĠҠáˠҩҠáҠҩРҠҠҩΠүנԭàҠáΠϠͩРˠԠˠҠРРԠӯũĠةԠĠנΠРƠˠƠˠ٩ƠԠРŠŠҠүנǠĩ؍үנԠүנ٠ǠԠөΠˠźҠҬˠΩ ҠԠ ҠȠϠΠ˩ҠáŠҩРҠӠӠҩҡҠՠĠԩӭĠРĮӠҠǠөՠՠáՠՠүשՠҠΠʍͱͷ̶ͫǠʍΠүנǩŠ Ƞ ӠϠˠŠجųҬŠججؠجؠ٬ԠЬĭōŠ     RINT LOAD MESSAGEO 4A1$"PRINT CHR$(76);CHR$(79);CHR$(65);CHR$(68);CHR$(73);" 5A2$"CHR$(78);CHR$(71);CHR$(32);CHR$(70);CHR$(79);CHR$(82);" 6A3$"CHR$(84);CHR$(72)" 7A1$A2$A3$ <"BRUN FORTH" FD$"CLOSE EXEC.FORTH" Pn D$(4): DOS CNTRL-D4 CREATE EXEC FILEMD$"OPEN EXEC.FORTH"gD$"WRITE EXEC.FORTH""BRUN SOFT SEVENTY $800"( SET UP RESET VECTOR BACK TO FORTH*"POKE 1010,04": 9704 = $6104,"POKE 1011,97"."CALL -1169" 2 P ź֠ũ֠ϨҨų̃ҩԠҠŬΠȠϠԠĨĬȩŻ̠ŻĮҺΨҩƠҠҠҠ΍΍ΨԧӠ̠ӮԨͩĻŻàǠج٠ĠŠҠκϠҠϠºɭčŠ΍ºɫĻ̱̲̱ĻĻ̠ΠΠ͠ΨŠϠԧΨҠҠϠԮԠҠȠҠŨũĻ̱Š̲΍Ũų̃©ΨŨũΨ̨©ŨũĻ̲Π̠ƠɽΠΨŠ΍ƠɾΠ΍̳͠ԻӠӻҠŬκһҺһȺһŠ̨ɺҩҠºһŠ̱΍Ψ̨©Ψ    S%) BB%(S%) S%S%1" . ,"HIL1"9 6"LT"AB 7IBR 8"HILBERT":^ 9"LT"A:d :p "HIL2"{ "FD"S IB "HILBERT" "LT"A "FD"S: "LT"A IB "HILBERT" "FD"S   IO "HILBERT" A$% / "ND"8 100G "HILBERT"S S%S%1` A%(S%)Am B%(S%)B{ I0230 "LT"180 260 I0240 A90 BI1 I0250 A90 BI1 "HIL1" "HIL2" "HIL1" AA%( A%(20),B%(20) D$(4)=D$(4);"BRUN TURTLESOFT"Sd"ORDER 1-6 ? ";ObnO1O6Ānx"DRAW"xy"FS"D2O1135N2O:DDD:DD1S(189D)"PU""MT"95,95:"PD":"TT"90:"HT" S%0  RRA IB 200# 50)  260 I0240 A1% BI12 I0250: A3D BI1M 300V 400_ 300l AA%(S%)y BB%(S%) S%S%1  , HIL1 6RRA 7IB 8200 9RRA :  HIL2 50 IB 200 RRA 50: YS(2)0 XS(3)0" YS(3)S/ XS(0)S; YS(0)0G XS(1)0T YS(1)S^ XT45i YT190t XT,YT| R1 S%1 IO 200 A$ : 100 "Hilbert S%S%1 A%(S%)A B%(S%)B I0230 RR2 + A%(20),B%(20)100'2RR483RR(R4)4H4XTXTXS(R)X5YTYTYS(R)e6XT,YT:k7qde"ORDER 1-7 ? ";OnO1O7Āxy3z49234,0D2O1135N2O:DDD:DD1S(190D)XS(2)S    R 1 IB 200( RRAQM; RR(RQM)QMB RI 1V RRAQM^ IBg 200n Ru 1{  B%(S%)B I0230$ RRQH- 260: I0240B AQL BI1Y I0250b AQl BI1u 300~ 400 300 AA%(S%) BB%(S%) S%S%1  , HIL1 6RRA 7IB 8200 9RRA :  HIL2   d e"ORDER 1-7 ? ";O* nO1O7Ā0 x7 y3D z49234,0L D2Z O1135m N2O:DDD:w DD1 S(190D) 235,190 S R16 S%1 IO 200 A$ 100 "Hilbert S%S%1 A%(S%)A } A%(20),B%(20)5 SET UP SHAPE TABLE POINTER@232,0K233,3b NUMBER OF SHAPESm768,1x769,0 INDEX TO SHAPE #1770,4771,0 SHAPE #1 - DOWN & PLOT772,6773,0 Q16!QH32"QM64#100    , HIL1  6RRA& 7IB/ 82009 9RRA? :O  HIL2 W 50_ IBh 200r RRAz 50 RRA IB 200 50  SZ1 IO 200 A( 1009 "HilbertE SZSZ1R AZ(SZ)A_ BZ(SZ)Bl I#0230v RR2 260 I0240 A1 BI1 I0250 A3 BI1 300 400 300 AAZ(SZ) BBZ(SZ) SZSZ1O7Ā x2048 yCOLR255+ z16302,03 D2@ O1135K N2OU DDD\ Nf DD1t S(190D) XS(2)S YS(2)0 XS(3)0 YS(3)S XS(0)S YS(0)0 XS(1)0 YS(1)S XO45 YO190 R1 INIT  74,075,122XOYOCOLRSHAPEИSCALED LOMEM:3072W AZ(20),BZ(20)h XS(3),YS(3)|"BLOAD HIRES"INIT2809:LINE28361002R(R4)MOD43XOXOXS(R)4YOYOYS(R)5LINE6de"ORDER 1-7 ",O nO1   ӥӠ΍̱àҠҠԠàԠÍɠà ԣ̲Ҡ̱ Ҡ̲ Ҡ̱ ̲ ¥ӥ ؠؠؠؠ  ؍̠̲ϠϠ̲̲ؠؠؠؠ  ؍ΠϠϠ̲àԠ͠ӍàҠҠԠÍà̲ϠϠ̲̲ɠ̲ƠؼΠϠϠ̲ϠϠ΍Ԡؠɠɠ؍ӥ ¥ӥ؍Š̲ƠؼԠԠؠ͠ŠӠҍҠ̠ҠؠҠؠҍҠԠ Ҡ٠ԠÍàΠ̠΍٠͠ Ơ؍ؠ͠ Ơ؍̠͠ƠٍҠΠԠؠ͠ŠΠōؠԠؠؠàĠčà֠ϠϠ֍ӠؠؠؠؠӠŠӍҠҠҍð˨̍͠ؠؠà͠ĠĩϠŠ͍֠Р͠ȠԠ͠ӠӠƠΠϠϠӍؠѠŠƠؽΠϠϠō̠ Ľ čŠҠϠϠҍŠؠؠؠؠؠؠĠĠ؍ƠϠΠϠϠˍàˠŠРԠЍˠҠˠҠύؠؠҍĠҠؠؠؠҠ٠ԠɍҠԠԠɍÍàϠèèѠŠàŠƠϠΠϠϠōРԠҠΠӬؠԠŠԠҍѠ͠ſĠƠō؍ҠԠϠԠԠΠŠ΍ÍàΠϠԠŠԠҍ͠ŠϠϠΠō٠ՠİàԠŠҠ͠ŠčԠՠĠԠŠҠΠŠ΍ԠՠðŠԠЭЍĠՠΠԠԍؠ ҠՠƳŲҠŠӠ΍ΠՠƴŠŠӠҍӠՠŷŠŠŠ΍̠ՠƶàԠӠҠؼנՠƶנŠ٬ةԠԠԠՠİ           `ҠQ   8L ʆɾeʆ R-    p HH i 0 ʎ 0 р hh`m8 pm`  p8 8 p ` ؠԠԠŠűӍΠРĠϠԠԠРŠϠΠӠōŠɠϯ ԠĠӠԠōčΠčĠҠǠ͠ŠҠˍؠűŬؠԠΠҠŠԠɠԠӍƬ؍ŠƠԠɠԠԠɠΠ͠ӍҠ٠ԠԠӠҠҠŠ٠ȠΠŠϠ٠ٍ٠ȍ٠٠ȍ٠ƍ٠̍٠נ٠̍٠̍ҠŠĠŠӠΠҠčҠčРҠĠՠƠԠϠϠΠĠƠՠŠŠҠԠՠµàŠҠҠԠĠՠµРՠ·òŠՠŲàҠŠŠĠՠŸĠՠŹǠҠ̠ŠȠՠč̠ՠŠĠƠŠȠՠƍ̠ՠΠȠՠ٠ՠԠƠĠŠԠՠİӳӠŠбՠİčĠՠĸˠՠӠŠ s͠͠ϠȠϠӠ͠ӍԍٍҮō