' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`9t( { R z|#egiehj M|,0 l,`,L 8n ꇥ<= eL׭<=<=Ѝ,, ,` g R<= g R@A g R> 1|?= 1|= ]~,`,,<>@=Ѕ?A ]~,,<>@i=Ѕ?A Ԡ  (i#ǍL R`Ȍi̞Fɠȇ4̞.ȩ쬞Ȣ) ͛&` gwmm  {`L { ^ ȇ`n { ^_ g RPz̀{큆 z{z{}̓ }}z{ x x x`  Ly { l $w/>? ->?2ȱ쨊 -L 0ф,%&i '&ȄLK(,,L ` $w - ,x R`L g RąŅ g RDž&', {ʅ˅hɅąŅ &Džʅ˅ w` g RPzQ{ g RP} g RPQ"# 1|$% mvLvH vh8` II8 x(IIȪ`uv ߅$0uv  c`LvMN(,,L KmNL@ ɀ6` 0)?΄ м)? |x ````l8|x0x0x| x0`0````0``0``v000xx x000000xx0x0xx0000 0``0 0x`0x |||| ||x|8l````|| x````8p`````lxx|| ` 8 x8x x<`x 0```xxxx| ```0``0`00`x000||0xxx||````` xxxxlUSJUSCNNOCNGCVSHSCECEPAUSHOOUNHOOSPACCWININkdkkkkkkkkkk#m-gxmmm*lmm5n`lllll~~~0` pvv0`0``0`000`~<~0000`` 0`xx0p0000xx 80,Ɉd`ɿɯ,p 詍0SɍpJ,p ,p0p@p) zp@p9p,p0 ,p0LoLo pLo ` ֩PyQ AL zppp`rpqp Rpqprp` ~L\pH)hJJJp` ` @BODFAFPARSNOJ simple objects, and creating original designs. Children can print, but not save, the pictures they create."nÃ"EZ Logo 2","EZ LOGO 2")sà "This program is totally open- ended, allowing children to create original drawings which they can save as ive and diskette.":30000:-PòPROGRAM DATAJdÃ"EZ Logo 1","EZ LOGO 1"iÃ"This program includes 24 guided activities ordered according to difficulty."mjÃ" The activities include tracing the path out of mazes, drawing letters, words, patterns andZE6ĺ"Error: File not found.";:32100G}ZE8ĺ"I/O Error.";:32100(}ZE0ZE16ĺ"DOS Error #"ZE" in line #"ZN:30000:2}:"Error #"ZE" in line #"ZN" in Menu Program. Please report this error to MECC.":30000:d}" Please check your disk dr,5(L0)1(L1)6(L2)2(L3):CO,(1366L),147J$'BR$(L):L:30000:a0uSPACE BAR ROUTINEr:u:SPACE::yPROCESS ESC-ESC"y2000,y}ERROR PROCESSING }ZE(222):ZN(218)(219)256:ZE255Ĭ'}CO$CL$:WIND:HSP:VSP:CO,0,80:EED RANDOM # GENERATOR#:_#ZL11:XX(1):Z(16384):ZL(Z127)::ZZ128:16368,0:'CA$:CL$:WIND,13,10,265,37:CO:"You may use these colors to"CC$:"adjust your monitor or"CC$:"television."CC$2'L03:BOX,12(66L),41,70(66L),141UTINEE-#CA$;:16368,0:GCP,ZX,ZY:WIND,ZX,ZY,250,ZY12:DL$(127)l2#DL$:CO,ZX,ZY:9100:AZ:A19070<#A49A(48N)9010F#(A);DL$;CA$;P#9100:Z139070Z#Z8Z127įCO,ZX,ZY:CEL:9010d#9040n#AA48:A1A1x#XX(XX):SFALSE:BY191:h)TURTFALSE:/)TURTTRUE:H0*PENFALSE:ERFALSE:e*PENTRUE:CLR:ERFALSE:v*0:ERTRUE:$,QQ(0):RECRDFALSE:700:PTR20įCO,0,89:"There are no commands to save.":SPACE::710:%,ADDRPTRMAXİ710:C&,NUMPROC30BOnPn^ժn^NONNNժN^NNN^NNժNNONNNNNNONNԪN^NNN^NNժNONNN^N^ժ^N^CCNN_ժB<<<B<NnCBFBFBFBBfffABBFBFBFBBeOBBFBCOcOBBFBCOOCBFBBOBBFBCOOCBFBBOcOBBFBBOcccQP~N~Nժ_NNNHRHHHAHHHTHHHAHHfHHAHzHANN)hCBFBFBFBBgggπfCBFBFBFBCffffCBFBFBFBCBBFBFBFBBffRRRBBFBBhB =zHfHAHfHAHHRHHAHHRHHAHHRHHAHHTHHAHfHAz QPNAHzHAHHfHHAHHfHHAHHHRHHHAHHHRHHHAHHDA𰸘HAA𰸜CVAA]A\EABBAK 𰰸BAAAE\ARARART)ffAHRHAHRHAHRHAHTHfQ^S`BV 𰰸HBAMBAV)BA`DA YAA 𰸜UBAaGCiAABFBFBFBCEAB[ 𰰸UBBFBFBFBC%TAA𰸘\i\bGR]Rk\i)ffAfAfAf)RSRSRSRSRS)ggggggg)RRRRARRARRARR %Z 𰸘MAA 𸘜EA𰸘BFdBBBAFG HFACC^BCRDДGADSCAxOSWF\kR]RGb\i\t\MzuzM\tBBLBLCFAДlvXBCBPAtAQCCAGACCACABBBAZAёzBXABBCGABBCFBCRAtRBCWwlДECBKLԄBLYb\\\_z_\\\}l$siԔVДSNxАCQEFAДDQBАД_BBCEI HDABBCeGBHJДQ^\Y[ JДHBAP{ДVzRДJAHBY[Z]T^`LДFDNД` { LލZ<= NcNO)nc,cP ֩PyQ ALNc{a <LPCNIMAGRECSDUMFCRFRNMOVMSMSGSAPPLAPSSBSERVRVWVWVWFNh˅?Byۉ I͊ϊ x`h< <,` { HHI { R<= { R>?hHI ,`L &Lx`L 䎱 掲`,< { R 1|P=ȱP%<=,LR$8 { R<= { R= 1|=P<(ȥQ<,]~,`,,<>@?Ѕ=A ]~,,<>@Ѕ=Ai? ]~,`  ߅ g R 1|QȱP , {` { 卮^_ {<= z| M| {ii`L 3#< = <=L~ <=L~L { R?!6HULL2 1Ɔ`.H HULL kBOAT  HULL2  "HULL 2301    Q#MAZE (8$ (ACTIVITY Y  (MAZE E ˊmE to MECC.":30000:31000D%耲DISK VERIFY (ONE DISK PRODUCTS)(HI-RES)a%N$"EZ Logo":ZU1:ZS654%ZE0:ZEįRFL,"MECC$$DISK"ZS:33200:(ZT0)(QN$ZN$)ZU0:%CL$:CO,0,89:"Please insert your "QN$" diskette.":30000:CL$:33010&LGET DRIVE S'$}STANDARD ERROR PROCESSING (HI-RES)Y$ }ZE(222):ZN(218)(219)256:216,0:32000n$}ZUZE0ZE16Ħ$d}PROGRAMMERS REENTRY$n}ZE255Ĵ(919)031000:%x}CL$:CO,0,80:"Error "ZE" at line #"ZN" in EZ Logo 1."::"Please report this error EL:INP,(3,"YESNOyesno",1),Z$:Z(Z$):Z$(Z32(Z96)):Z$"Y"Z$"N"30120T#ui#y ENDING ROUTINE#"yWIND:CL$CO$:CO,0,89:"Do you want to try again? ";:30100:Z$"Y"Ĭ#,yZ$"N"ĺCL$:CO,0,89:"Getting the main menu...":33000:D$"RUN MENU" 4,0,3,3,3,3,0,4,-3,3,-3,3,-4,0,-3,-3,-3,-3,0,-4,3,-3,3,-3a"a16,16,16,32,32,32,48,48,48,0,0,0"a1,2,3,1,2,3,1,2,3,1,2,3 "a16,22,27,32,38,43,48,54,59,0,6,11"0uSPACE::"uSTANDARD YES-NO INPUT (HI-RES)"u(1);:GCP,ZX,ZYN#uCO,ZX,ZY:C:WIND:CO:CA$:8!6X$(9)"GR2":SZ2X$(9)"GDR2"k!$6D$S$::X$::D$"PR#0":HOOK:WIND:CO:CA$:!a10,0,9,5,5,9,0,10,-5,9,-9,5,-10,0,-9,-5,-5,-9,0,-10,5,-9,9,-5!a3,0,3,1,1,3,0,3,-1,3,-3,1,-3,0,-3,-1,-1,-3,0,-3,1,-3,3,-1 ;"aCLR5:13710 4CLR1:13710. 5CLR2:137108 5CLR6U 5CLR:ERFALSE:PENTRUE:} 5CA$:RECRDFALSE:PE(0)0PE(1)0ı 5SLPE(0):TYPE(1):SZPE(2) 5UNHOOK:S$"PR#"(SL):TY113850 6T5:SZ2T7!6D$;S$::SDUMP,SL,T::D$"PR#0":HOOK.0523598775:600:500:10400:600::600:;1ES2:12910K2ES4:12910Td2ES6`n2PENıs2600:AA13:DIRES:600:500:600:ZZ14:600:10400:600:::600:2XS1:YS2:12210,3XS2:YS4:122103XS3:YS6:122103CLR7:13710 X412210/XS6:YS6/PENıa/600:AA12:DIRYS:600:500:600:ZZ13:600:10400:600:/DIRXS:600:500:600:ZZ13:600:10400:600:::600: 0RD5:12610p0RD10:126100RD20:1261081RD35B1PENı+G1600:AA112:DIRRD1:RVB,X1:MEM(FR)MEM(FR)1:RVB,X1:(-MEM(FR)MEM(FR)1:RVB,MEM(FR),A1:MEM(FR)MEM(FR)1:RVB,MEM(FR),A2:MEM(FR)MEM(FR)1:RVB,MEM(FR),A3:MEM(FR)MEM(FR)1:RVB,MEM(FR),A4:BOX,A1,A2,A3,A4,0:|.XS1:YS1:12210.XS2:YS2:12210D/XS4:YS4:(FCE)X1,Y1B-MEM(FR)MEM(FR)1:RVB,MEM(FR),XX:A0(1000XX):\-TURTĕSHP(FCE)X1,Y1b--MEM(FR)MEM(FR)1:RVB,MEM(FR),IN:MEM(FR)MEM(FR)1:RVB,MEM(FR),IX:MEM(FR)MEM(FR)1:RVB,MEM(FR),IY:IMAGE,IN,IX,IY:IX01000::%-MEM(FR)MEM(FR)00,TURTĕSHP(FCE)X1,Y1.,PLAY,20,10:H,TURTĕSHP(FCE)X1,Y1l,(MEM(FR)22)255(FR1)11440w,11400,TPENPEN:PENTRUE:DIR1:MODE1:500:PENFALSE:MODE2:500:PENTRUE:MODE1:500:PENTPEN:MODE0:,X1,Y1X11,Y1: -TURTĕSHP600,13700,13800a,CMD31Ĵ(CMD31)11300,11480,11600,11700,40000,11500,11510,11520,11540,11560{,TURTĕSHP(FCE)X1,Y1,MEM(FR)MEM(FR)1:(MEM(FR))25511445,FRFR1:FR11460,,TURTĕSHP(FCE)X1,Y1,11400:ERFALSE:PENTRUE:133TURTĕSHP(FCE)X1,Y1:,(16384)135FR0:10500:11482L,CMD1411490,CMD10100,10200,10300,10400,10500,10600,10700,10800,10900,11000,11200,11900,12000,12100,12200,12300,12400,12500,12600,12700,12800,12900,13000,13100,13200,13300,13400,13500,13UR:GSB,NAME$(PROC),CUR2:CURCURLE(PROC):PROCPROC1:11220,FRZAMEM(FR)1:850:NAME$Z$:MEM(FR)MEM(FR)17:FRFR1:11420,FRFR1,PROC(FR)99:A0NUMPROC:NAME$(A)NAME$PROC(FR)A,,MEM(FR)ADDR(PROC(FR))20,CMD(MEM(FR)):S%MAZE @A<(T2 (ACTIVITY  (AMAZE ˊmE ,0,10:+NCAC11220m+CL$:700:ACNC:CO,0,150:"Please wait. Turtle is working...":CURBASE1:PROC0+33000:RFL,"LOGO "(ACT)".ACT"BASE+RVW,CUR,LE(PROC):LE(PROC)0NUMPROCPROC1:10500:NAME$"ACTIVITY":13300:11480=+ADDR(PROC)C0*PENFALSE:,*ERFALSE:PENTRUE:CLR:=*0:ERTRUE:F+700+CO,0,150:"Activity? ";:INP,(2,"-09",0),AC$:(AC$)0İ710:+NC(AC$):NC1NC24įCO,0,172:"Please enter a number from 1 to 24.":11201+NC24İ710:AC24:10500:PLAY,2t'DIR1:500:#'DIR1:500:?<(FCEFCE1:FCE0FCE11NF(RT(FCE):j(FCEFCE1:FCE11FCE0y(RT(FCE):)ERFALSE:TURTTRUE:600:0:MODE0:CLR7:7:RECRDFALSE:PTR20:CL$:X1140:Y190:PENTRUE:FCE9:h)TURTFALSE:)TURTTRUE:0,10400,10500,10600,10700,10800,10900,11000,11200,11900,12000,12100,12200,12300,12400,12500,12600,12700,12800,12900,13000,13100,13200,13300,13400,13500,13600,13700,13800 FR0ĺ"Error! stop.": TURTĕSHP(FCE)X1,Y11010$FROMMEMFALSE:Y13Y14ZAX1:850:" -"Z$"-";:XX17QRVB,X,Y:Y11XX1:RVB,X,Y:" "Y;d" ":A$"Q"ijsXX1:905X3495035952:X,0::400WFK,CMD$,CMD(CMD11CMD26)AC24CMD0TURTĕSHP(FCE)X1,Y1CMD10100,10200,1030RGSB,Z$,ZA:IA$"":CMD$"FBLRCHTUDX#ASG NZ12347890QWEIOP":X34950X;" ";:RVB,X,Y:Y255ĺ" >Return check="XST;:STX:A$:XX1:RVW,X,LE:XX2:GSB,AA$,X:XX17:::">"AA$" Start-"ST", len="LE;:920RVB,X,Y:Y0ĺY,(CMD$,Y,1);(:FCE9::X2X1DIRDX(FCE,MODE):Y2Y1DIRDY(FCE,MODE)C100UX1X5:Y1Y5:oXTURTĕSHP(FCE)X1,Y1ubOKFALSE:A0NFILES:Z$TEMP$(A)OKTRUE:ANFILES1:MSU:BOX,0,148,279,191,0:MSD:WIND:CO:: PSB,ZA,Z$:1):PE(2)(950):B02:A011:DX(A,B),DY(A,B):::MODE0LX0:RX278:TY0:BY190:X1140:Y190:3:WVW,232,35870:1:0:CL$:1X1,Y1X011:RT(X)::X011:SHP(X):A011:RO(A):AC0:TURTTRUE:CLR7:NUMPROC1:PENTRUE:FROMMEMFALSEYS10A:RO(B):4X1,Y1:62923:RVW,224,X5:RVB,226,Y5:X1279Ĕ4X11,Y1p1:RT(FCE):X5RXX5RXY5BYY5BY33000:RFL,"LOGO.SHP"35870:RFL,"PRINTER.SETUP"950:RFL,"LOGO.IMA"57344:DFT,7,57344:PE(0)(952):PE(1)(95Y5:100^hPEN380JrX1X2ēX1,Y1X2,Y2:X11,Y1X21,Y2:380hwX1,Y1X2,Y2:X2,Y2X1,Y1xERĭ(X1276)(X2276)ēX12,Y1X22,Y2|X5X2:Y5Y2:ADIR:BFCE:A0AA:BB6:B11BB121:RT(FCE):X5RXX5RXY5BYY5BY(Y2Y3):X5X2:320% X1RXX1RX6 X1LXX1LXG Y1TYY1TYX Y1BYY1BYa 390o @PEN340 JX1X3ēX1,Y1X3,Y3:X11,Y1X31,Y3:340 OX1,Y1X3,Y3:X3,Y3X1,Y1 PERĭ(X1276)(X3276)ēX12,Y1X32,Y3TX1X4:Y1Y4:X2X5:Y22)(X)(Y)Y3Y1(M(X3X1)):Y4Y3:X5LX(X2X3):Y5Y2:320 (WRAP1)(X)(Y)Y3Y1(M(X3X1)):Y4Y3:X5RX(X2X3):Y5Y2:320 (WRAP1)(X)(Y)X3X1((Y3Y1)M):X4X3:Y5BY(Y2Y3):X5X2:320 (WRAP2)(X)(Y)X3X1((Y3Y1)M):X4X3:Y5TRX(LXX2):Y5Y1:320X Y1Y2WRAP2X3RX:Y3Y1:X4LX:Y4Y1:X5LX(X2RX):Y5Y1:320 X1X2WRAP1X3X1:Y3TY:X4X1:Y4BY:X5X1:Y5BY(TYY2):320 X1X2WRAP2X3X1:Y3BY:X4X1:Y4TY:X5X1:Y5TY(Y2BY):320 M(Y1Y2)(X1X2)< (WRAP dXFALSE:YFALSE:WRAPFALSEI nX2RXWRAP2TRUE:XTRUE:X3RX:X4LXs xY2BYWRAP2TRUE:YTRUE:Y3BY:Y4TY X2LXWRAPTRUE:XTRUE:X3LX:X4RX Y2TYWRAPTRUE:YTRUE:Y3TY:Y4BY WRAP360 Y1Y2WRAP1X3LX:Y3Y1:X4RX:Y4Y1:X5Іd6MAZE ,(( (ACTIVITY ˊmMAZE ,z#????  ԠϠŠ Ů Ů Ů Ů Ů2 Ů 2 ϠԠ ӠҠԠ" ҮРŮϠ ŠӮϠԠԠ  ϠԠ ϠԠ ϠԠϠԠ ϠԠ ϠԠ ϠԠ ϠԠ ϠԠ ϠԠ ϠԠ! ϠԠϠԠ ϠԠ ϠԠ ϠԠ!ϠԠ"ϠԠϠԠϠԠϠԠ ϮРäˠ Ϡ ŮԠ"ڠϠ ڠϠ5ϠԠڠϠŠϠϮʠՠԮʠ̮ʠϮKGsBcB6cCtwutJUNGKGsBsB63CCnJ*N[sBc600`CFJUOZs``wBfgC{9{{ J*^ MBlLC8W0W8JU^BgBlgC k { J*^BC AC|~}~JUtJUNGKGsBsB63CCnJ*N[sC3ACFJUNGKGsvC6ACFJ*NGKGsBcB6f`CBwJUNGKGsBBCFB;FJ*NGKGsB`B0`Ca]a}}JUNGKGsBgB0gC.5B;J*NGKGsBsB63Cwx{JUNGKGsBs600p00CBnJ*NGD@CAAGA <B~BBBYCFJUNGKGQF@`Dp`@HB@@_BY_CFJ*NG\GOAdGOG|L|HBFACFJUNGdA`dGOBAABBGlo`OCFJ*NGKGO~x`FBAQB oBlOCFJUNGKGP?D@B`ABpAB8ABAABBLBlOCFJ*NGKGOaHBAQBBOB`OCFJUNGKGQ|0TAA ~~B@@oBLOCFJ*NG\AAsAAsAdGOE@`pG`@G??C*B*B***B*AB*C*BBB3CFJ*NGKGJ`@UCUBUBUUUBUABUCUBOBfFCFJUNGKGN~C*B*B* FBC BBB CFJ*NGKGOCUBWBB@B`@CFJUNGKGOCC@B`ABpAB8A     ^B0xXCFJ*^037B6ACFJU^BC3ACFJ*XA_BBC3ACFJUN[]??B/++*C*BB3?>CFJ*NGKGO?_WUUUBUABUCUBB>0CFJUNGTvGJ((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP                   tBC#< |t=>0)?><@=0)?><@=@ |t>0BDHt&cu'Ch&BDBBC`(((((((((((((((([-Z , ,` g(b6 (ACTIVITY |?= 1|Z ,`,,<= 37Z):" 975,255:RNH,"MENU": (#:11:"THIS PRODUCT REQUIRES AT LEAST 64K OF RAM TO OPERATE."::"THIS APPLE HAS ONLY "(941)"K OF RAM.":16368,0:16384,128:16368,0 }:SL 8230,64:8192,"LOGO":16304,0:16297,0:16299,0:16302,0:8192,"LOGOUTIL.OBJ":RFL,"PPRINT.OBJ" (941)64āZ14000::9000 LL704:RFL,"MECC$$DISK"LL:DC(LL36):953,SL:954,DR:955,VO:956,SL:957,(DRDC)1:958,0:DC3āZ02:956Z,(LLȾ PRODUCT EZ Logo*PROGRAM: HELLOHCOPYRIGHT (C) MECC, YEARg(LAST UPDATE: YY/MM/DD IIIs32000:(4)"MAXFILES1":::P(X)(X)(X1)256:LP(P(999)):SL(L1)16:DR(L2):VO(L14):(4)"BRUNHELLO.OBJ":(941)489000b   ,X,Y:NAME$(A):YY12:Y170Y30:XX140:X200X20:SPACE:CL$:"Procedure names:";(3)qn-:X20Y3011650~x-SPACE:-710:-OKTRUE:RECRDFALSE:700:CO,0,150:NUMPROC1ĺ"There are no names to zap.":SPACE::710:+ -"Zap what name? 1000(ZS208)):A0A0] -CO,140,159:"Disk":CO,190,159:": "A10"% free":SPACE::710:P-RECRDFALSE:700:(12):NUMPROC1įCO,0,89:"There are no procedures in memory.":SPACE::710:Z-"Procedure names:";(3):X20:Y30Zd-A0NUMPROC:CO700:SHP(FCE)X1,Y1:CO,0,150:"Turtle":CO,50,150:A$": Up":PENA$": Down",A$:CO,0,159:"Color":CO,50,159:": "CL$(CLR(ER)):AMAX(ADDRPTR)1:A(1000(A3980)):A0A0-AA10:CO,140,150:"Memory":CO,190,150:": "A"% free":CO,140:A(00,13700,13800,11500,600R,MEM(FR)MEM(FR)1:RVB,MEM(FR),ZZ:ZZ25511445j,FRFR1:FR011460p,y,600,11400,600,,600,RVB,MEM(FR)18,ZZ:ZZ255(FR1)ZAMEM(FR)1:850:NAME$Z$11440,11400N,RECRDFALSE:00!,(16384)135FR0:970:3,CMD1311490,CMD10100,10200,10300,10400,10500,10600,10700,10800,10900,11000,40000,11300,11480,11600,11700,11900,12000,12100,12200,12300,12400,12500,12600,12700,12800,12900,13000,13100,13200,13300,13400,13500,136(FR)A`,:PROC(FR)99İ700:CO,0,150:"I don't know how to "NAME$"."::SPACE::710:FR0:{,ADDRPTRMAXPFTRUE,MEM(FR)ADDR(PROC(FR))20:FR1PFPFTRUE:Z$NAME$:ZAADDRPTR:WVB,ZA,13:ZAZA1:800:PTRPTR18:960,RVB,MEM(FR),CMD:67:FRFR1:11420Z,FR50İ700:CO,0,150:"Procedure stack full."::SPACE::710:FR0:,QQ(0):PFFALSE:FRFR1:700:CO,0,150:"Get procedure: ";:INP,(15,VN$,0),NAME$:710:(NAME$)0FR0:710:,PROC(FR)99:A0NUMPROC:NAME$(A)NAME$PROCPIAB,:EXPRPI:11740YL,NUMPROCNUMPROC1:ADDR(NUMPROC)ADDR:NAME$(NUMPROC)NAME$V,WVW,ADDR,PTR1:PSB,ADDR2,NAME$:WVB,ADDRPTR,255:PTRPTR1:ADDRADDRPTR:PTR20:10500,RECRDFALSE:FR(FR50)ZAMEM(FR)1:850:NAME$Z$:MEM(FR)MEM(FR)1įCO,0,150:"I can't remember any more procedures.":SPACE::710:',CO,0,150:"Save procedure: ";:INP,(15,VN$,0),NAME$:710:(NAME$)0ı.,EXFALSE:NUMPROC0NAME$(0)""A0:NUMPROC1:ADDR(0)ADDR:113408,A0NUMPROC:NAME$(A)NAME$EXTRUE:Q#M =Ѕ?A Z~,(M2 (ACTIVITY ACTIVITYM = 1|Z ,`, D# D`-#D.#ED`  ### <= <ȭ<ȭ<ȭ#<ȭ#<><ȥ?< <<= H <=#I<#<##`q" ""ȱ h!"8ȱ ">? "6p"5#>6#? "!p ""<"=`""8쭇"`+#*#)#@A %#  # `@ i @ ȱ ;#`,"`, ,`<=ʱD>` <=5#?6# "!)">? "PLj"" 8` "L L L x@8MɭɊ=Le 2 `,0 (!U XT`I`I0, `n! J! { ^_ ( { R !,`L8n! <!=!< =Ѝ ,   SC SCREEN6VSP,4:CL$:::"Use of ESC Key"CC$::"You may want to quit in the middle of a program. If so, press the Escape (ESC) Key twice whenever the computer is waiting for a response."WIND:VSP:30000:10000:WIND:VSP:(#INPUT ROGCP,ZX,ZY:TI$:PA$""įCO,ZX:PA$a>12:" Direct inquiries to:"::" "CC$;:GCP,ZX,ZYH:WIND,ZX,ZY,279:CO:"MECC Distribution":"3490 Lexington Avenue North":"St. Paul, Minnesota 55126":"(612) 481-3527"R30000:CL$:WIND ESC ECEWQMN$(L)::" ";:GCP,ZX,ZY:WIND,ZX,ZY,279,191:L11DP:DS$(L,L1);:L1:iWIND:::L:30000 SUPPORT BOOK INFO*CL$:CO:VSP,10::"A manual to aid in the use of this diskette is available from MECC.":VSP#49:" Title: ";CA$;:CO,X1,Y1:CEW"The programs in EZ Logo serve as a tool which students can use to explore the capabilities of the computer and Turtle graphics.":30000:CO,X1,Y1:CEWSHOW DESCRIPTIONSL1NP:GCP,ZX,ZY:ZY150ZYY1İ30000::CO,X1,Y1:DYLX1L,Y2DYLX1L,Y1DYLX1DXL,Y1DYLX1DXL,Y1L:1:L02:9,6L432L,6L:2352L,6L269,6L:9,183L392L,183L:2392L,183L269,183L:XGENERAL INFORMATIONbCL$TI$CC$:PA$""ĺPA$CC$lVE$CC$:::GCP,X1,Y185:11,15911,185:267,6267,32:269,6269,33:267,159267,185:269,158269,1856:X10:Y10:X2278:Y2191:DX18:DY12:L02=X1DXL,Y1LX2DXL,Y1LX2DXL,Y1DYLX2L,Y1DYLX2L,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXL,Y2LX1DXL,Y2"Getting "F1$"...":RNH,F2$!1END OPTION]CL$:11:"Insert another diskette."CC$m30000:CL$CS(P(P(999))1)16: SLOT #CS1CS7CS6CSpDRAW BORDERz4:21,021,191O1:9,69,33:11,611,32:9,1589,1$"Diskette Support":F2$"DISKETTE SUPPORT" AS(5)Ĺ975,((975)):CL$:11:"The sound is now turned "SB$(((975)))"."CC$:30000:2000 AS(6)5000RUN THE PROGRAM16384A0ANPF1$MN$(A):F2$CN$(A)CL$:HSP:VSP:CO,0,89: AS(1)İ7000:2000t MOA1ĺCL$:VSP,8:CO,0,75:"There are no management options available.":30000:2000 AS(2)A1F1$"the management options":F2$"MANAGEMENT" AS(3)F1$"Printer Support":F2$"HIRES PRINTER SUPPORT"+ AS(4)F1N = N + 1: HTAB 4 - (N > 9):S(5) = N: PRINT N". Turn sound ";:SB$(0) = "on":SB$(1) = "off": PRINT SB$( PEEK (975)) HNN1:4(N9):S(6)N:N". End" RESPOND TO USER'S CHOICE :GCP,ZX,ZY:ZY160įCO,ZX,ZY4 "Which number? ";:9000:WIND":8 NNP1:4(N9):S(1)N:N". General Information" N = N + 1: HTAB 4 - (N > 9):S(2) = N: PRINT N". Program Manager":MO = 1 *NN1:4(N9):S(3)N:N". Printer Support" 4N = N + 1: HTAB 4 - (N > 9):S(4) = N: PRINT N". Diskette Support"t >255Č24768:975,1M 230,64:24576:DFT,1,15128:AFT,1:CO$:HSP:VSP:WIND CL$:6000:CO,0,MT:CN$TI$CC$:PA$""ĺPA$CC$ CO$:GCP,ZX,ZY:WIND,ML,ZYSP,270:CO:"Program";:NP1ĺ"s"; ":"::L1NP:4(L9):L". "MN$(L):: "Options:N MANAGEMENT OPTIONSE `TITLE$"EZ Logo":PART2$"":VE$"Version 2.0" jMN$(NP),CN$(NP),DS$(NP,DP): MENU NAME, CATALOG NAME, DESCRIPTION tL1NP:MN$(L),CN$(L):L11DP:DS$(L,L1):: ~DATA STATEMENTS ARE AT 50000 DISPLAY MENU (975)$(3):D$(13)(4):CL$(12):CN$(14):CO$(15)^ MT13:ML37:SP0:FORMATTING PARAMETERSy P(S)(S)(S1)256 RFL,"TITLE.PFT"15128 LPROGRAMMER OPTIONS VNP2:DP2:MO0: # OF PROGRAMS, # OF PARTS PER DESCRIPTION, BOOLEAN FOR HIDDE DISKETTE EZ Logo*PROGRAM: MENUGPROGRAMMER: P. BOUCHARDe(COPYRIGHT (C) MECC, 19842LAST UPDATE: 85/08/16 CPEZ32000INITIALIZATION15128BR$(0)"Orange":BR$(1)"Green":BR$(2)"Blue":BR$(3)"Violet"2 CA$(1):CC          n Rp nco n Rp-cococo \pLnbodobo^` , g 掍p ,`o spp) p pp)p ߅ l eo ) L{?p,p0- HHHp hhh ɛn?p,?p?pPLAp?p,p  Fi`+ FiR("  Fi5880`L ppp`oppp ( spL3o {$0$ 掎pnp ,L o {$0LoN`o doLnbo nH-?npLmPݩ $mhhhhhhhhh,mp` ֩PyQ ALŠҠ僁zi{imiʈ}i~i &',|iq&i,$20Li N8`-g `.-g`mm ` ң Σ @)`,` j ެLj,H%l  (l  h,,(l,`L, HHHHHHHHH k m jmNO,ɍɠ ɛ8nm,3f̙jj ߅$0jj  c`Lvjj j` Fizi{i|i FimHihʍ}i~ii LiL H g Rh PQ`L   )?` `zi{i lgi`ji}i~i lgiZjiíiB|i vg&'i jQ&-iQ&&ȭíi j& jQ&-iQ&&|i|ii`i-ii|i vg&'i jQ&-iQ&&|i|ii`*U U*ժ j')JMj)i Q&,iP 0=j`j`J&)` `LhPjjjjjjj0jj) i0ȱjij iiiР`8pPH)8 qȥq8)h` g R  QP (`L Fi`L)  @ igjiisjiighggmgig`8pggJJJ) }hkggmigjg`((((PPPPiHhii iJ` &eeiei lgiIihi i vgmiiMi@ f f "g`L?c 7e#g$gLtf -`,"g`zim{imʈ}i~i|iʎi$20Li gighg`ggig gjgkg`gg g gjgkghg`ggg8pg.g(8#gH$gJhj`m#g#g$g` ?c 7e` ?c 7eI``,L 7ee80 " fm8h)` 7eem88eLf` 7eeme` 7e8`,gLf fɝS```%g穀,g +g`%g3&g'%g%g ``) ``%gʽ`) ` `%gH`mS` *eS`)e`e ie 6he}`m%g8#g$g`+g` 7eL?c,0*`%%g (g#g&g$g'g,gh`%g "gS```em#g#g$g)g *g`em)g)g*g`) %g+g)g*g$g#gO,0 `)  7e`+g(`HH%g,P#g88`&g d fhLc%gH+gH(g%g,P d fh+g8h+g%g)g#g*g$g+g``S`c i "g$20 L6h,o 8ɀ   LX8e湥 pHpH ,L`@ @ʩ WRPT` J  *eȱȱȱ` i%gH) #,,g h`` %g tf%%h $20 Lc $ aHaH`6eeeWeeefBfsffffgggg(bb, 7e gc,g i"g$20 6hNO0 b@íH bhH ,aɈ5hH gcb% i)H fh "g$20 6h gc Cf,bbh` g````L` ccԍb q$% `@ ?aDa6 ,-gL?cLfHa bHaa,,aaɠ,ra ` a欅aah,`ɀ)?  @IH gc$ 7e Cf$%0 7e             , <= <ȭ<ȭ<ȭ<ȭ<><ȥ?< <H<= H <= I<<`HH<"wwwhh uE) :" mv#(((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP                   8$`,0 =& Ti?`S wmS&'`ͧĘ̏ `ͧĘ̏ @``(((((((((((`  =& u,PL< =&7 uƓ,P䬧F<<@<,p'P,0tƓ̥, <D< jjj<  gL<0>?(`LLL$>?(`L2ø{{ttlnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !@A<=>?,0p   L<= @ i @ ȱ -`,~`D:~ D`S~DT~ED`>=?@3<>)=eA=?eA?A@ <><>=?` x4 584?=6=0>?(`L~h}ȱ> }q} }}ȱ 1|}8ȱ }>? }6p"[~>\~? }!p }}<}=,`}}8쭭}`Q~P~O~@A K~  ;~ `1|0|)?eeȱii,0|`а ,,i,,`gh`ȱȘeiȑی} 1|}:~ $wb ~DS~ET~BW~CX~@Y~AZ~>[~?\~ }%)}>? }PL}}; 8`} } g}f$ I i $ %i $ iPII)if Э$pI {$ I 0 {A { { { {D { { {`))@򊙈`l)`g?4> Xx<=8> <=Xx<=`xx<{x=|x>xx?yxxx x̥xڰx`8 xxxx.xxmx`8p <=ʱD>`www .ww mww덞wmwww` www`ww xww`w w xwww`xxx8p x.x( xwBwCwDw"wEw#wivjvkv Dwwwwwlv v Bw` 8`wwwwwwwwlv v`ww v` v"w#w"w#ww`w"w#wL w wuL+uvuwu+uLՋɯLud 8ɀ   Lޤȱ 0:,јe湥 iuiu , ,`vuwuL$8ivjvkv(lv $wLhv> w?!w@wA      U*f*UfU*f*fLfLf7rC dB@PBCAUYB (B CO*JC@PBCZUB (B Bi*BBPC@fUMB B(C [*XBBPC@MUfC (C B*qBAQudP#[jPДISISIlBA[BA[BAuAdAdAtF[F[FlFRFRFgCBFBCRCBFBCRCBFBCS)h@*f*UfFBARBBFBARCBFBA𰃃aAAGSAAGaDaBA[BAaAAMdAdAdWZFZFZ\AAQIAAQIAAQcA[SeAeAeSKKKBBFBFBBKKKmCBFBFBBmKKKKCBFBFBBKKKmBBFBFBBmKKKfBBVfVfVfVfVR&O ] ] pFZFZFkPQPQPaSGSGSX[BA[BVfVfVfVfVR`S`V`R`SVRSVfVfVfVfVfVfVfVfVfVfVfVfLЄUYЄFSZRZSKQaPaQG(SVfVfVfVfVfVfVfVfVfVfVfVfR`[SZS[DUYTYUJŔQ_PŁ_QŁK@BA`@BsEДBXw|xo710Es`SLCsy}yJR`YЄUHДKQ`R_QIДsДVWДWBrZQ[]SbQ`BWNdQД`R`RNScR`SGДPs `S_^ŔQ_ŔRsEJДrДJRaP`QJЄUYЄrЄUDZSqZ_QaR_YLYFQДRQzRRRzRRժRzRRRRSRRRժzfRzfRժzRSRvժvvՊvHScRcSMS[R[SFYUXUYŁ_QGfyfNԪfNfNժfNRRREEDSRժRf0Cx13~x|7yBx0fRfE  DfժRfRfRfzժRfzRfzժRR|RRbժRbRzRRժREBABBLVժP]MBBBBCVPBBWYAAVժTBABBOu[ABBAENeBABBBZABBNBBB\MABBBgHABBBQUBABB_PBABBI`ABBBT[BBAAhBABBLcBsBAVP|VժP|VP|VժP|VPRiVժPRiVPRժPRPRժPRUQVPRUQV|QV|QV|QVPjQVժP]BBEQVP]@2d8 /^5P|T}Z3%iqD[BBADABBHBBABTABBBuBBABdBABBbBBABzBABBOBABBZBADAB`BBABCBZBBABNBABB`BԪUBBAB^BABB[PԄtAAVժP|          "ZE" at line #"ZN" in EZ Logo 2."::"Please report this error to MECC.":30000:31000+耲DISK VERIFY (ONE DISK PRODUCTS)(HI-RES)+N$"EZ Logo":ZU1:ZS654+ZE0:ZEįRFL,"MECC$$DISK"ZS:33200:(ZT0)(QN$ZN$)ZU0:/,CL$:CO,0,89:"Please 0:32000*}ZUZE0ZE16Ħ*}ZE4įWIND:CO:CL$:CO,0,79:"Please remove the write-protect sticker from your diskette.":SPACE:CL$:CO,0,89:"One moment please...":*d}PROGRAMMERS REENTRY*n}ZE255Ĵ(919)031000:W+x}CL$:CO,0,80:"Error)u)yENDING ROUTINEd)"yWIND:CL$CO$:CO,0,89:"Do you want to try again? ";:30100:Z$"Y"Ĭ),yZ$"N"ĺCL$:CO,0,89:"Getting the main menu...":33000:D$"RUN MENU")}STANDARD ERROR PROCESSING (HI-RES) * }ZE(222):ZN(218)(219)256:216,,38,43,48, 54,59,0,6,11 X(a"Erasing",Green,Purple,"","",Orange,Blue,Whiteg(0uSPACE::(uSTANDARD YES-NO INPUT (HI-RES)(uCA$;:GCP,ZX,ZY(uCO,ZX,ZY:CEL:INP,(3,"YESNOyesno",1),Z$:Z(Z$):Z$(Z32(Z96)):Z$"Y"Z$"N"30120ND:CO:CA$:4'6X$(9)"GR2":SZ2X$(9)"GDR2"g'$6D$S$::X$::D$"PR#0":HOOK:WIND:CO:CA$:'a10,0,9,5,5,9,0,10,-5,9,-9,5,-10,0,-9,-5,-5,-9,0,-10,5,-9,9,-5'a16,16,16,32,32,32,48,48,48,0,0,0'a1,2,3,1,2,3,1,2,3,1,2,3 $(a 16,22,27,325:13710&4CLR1:13710*& 5CLR2:137104&5CLR6Q&5ERFALSE:PENTRUE:CLR:y&5CA$:RECRDFALSE:PE(0)0PE(1)0ı&5SLPE(0):TYPE(1):SZPE(2)&5UNHOOK:S$"PR#"(SL):TY113850&6T5:SZ2T7 '6D$;S$::SDUMP,SL,T::D$"PR#0":HOOK:WI23598775:600:500:10400:600::600:7%1ES2:12910G%2ES4:12910P%d2ES6\%n2PENı%s2600:AA13:DIRES:600:500:600:ZZ14:600:10400:600:::600:%2XS1:YS2:12210%,3XS2:YS4:12210%3XS3:YS6:12210%3CLR7:13710&X4CLR0$/XS6:YS6$/PENı]$/600:AA12:DIRYS:600:500:600:ZZ13:600:10400:600:$/DIRXS:600:500:600:ZZ13:600:10400:600:::600:$ 0RD5:12610$p0RD10:12610$0RD20:12610$81RD35$B1PENı'%G1600:AA112:DIRRD.05:BOX,0,181,279,191,0#.)#.OKİ710#.MOVE,ADDR,PTRBASE1:ADDRBASE1:NUMPROC1:A030:NAME$(A)"":ADDR(A)0::OKįSPACE::710#.OK(BY181)įBOX,0,181,279,191,0#.OKFALSE:#|.XS1:YS1:12210#.XS2:YS2:12210$D/XS4:YS4:1221VW,ADDR(PR),DIST:DEADDR(PR):MOVE,START,(LE)DEF"-PRNUMPROC11790".APRNUMPROC1:NAME$(A)NAME$(A1):ADDR(A)ADDR(A1)DIST:".ADDRADDRDIST:NAME$(NUMPROC)"":ADDR(NUMPROC)0:NUMPROCNUMPROC1:OKİ710#.(BY181)((ADDRPTR)MAX)OKBY191!-F!-EXFALSE:PRFALSE:A0NUMPROC:NAME$NAME$(A)EXTRUE:PRA!-:EXįBOX,0,150,279,191,0:CO,0,150:"There is no procedure "NAME$".":SPACE::710:!-PRNUMPROCSTARTADDR:LEPTR:11760!-STARTADDR(PR1):LE(ADDRPTR)ADDR(PR)10"-R";:INP,(15,VN$,0),NAME$:(NAME$)011720 -BOX,0,150,279,191:CO,0,150:"Zap all names? ";:INP,(3,"YESyesNOno",0),A$:A$(A$,1):A$"Y"A$"y"įBOX,0,150,279,191,0:CO,0,150:"Zapping all names...":11795!-710:BY181įBOX,0,181,279,191,0:BY191Z,X <=Ѕ?(M2 (ACTIVITY M = 1|X ,`,< @\G!3E[?'%,-<'-<'$''----?7-7><$?'%,-<'- UNHOOK:S$"PR#"(SL):TY1430P T5:SZ2T7} D$;S$::SDUMP,SL,T::D$"PR#0":HOOK: X$(9)"GR2":SZ2X$(9)"GDR2" D$S$::X$::D$"PR#0":HOOK:W CL$"Printer Support";CC$:4000:CO,0,72:"You may:INTERS. PA1NP:PT$(A)::A1NP:PN$(A):o Z919,0:ZS704:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:200:1000 dCL$:CO,0,89:"One moment please...":950,SZ:951,TY:952,SL:33000:SBF,"PRINTER.SETUP"950,3: 33000:RFL,"PRINTER.SETUP"950:SZ(9o% PROGRAM: Hires Printer SupportCCopyright (c) MECC, 1985YPRODUCT: EZ Logox(PROGRAMMER:Steve Splinter2Last update:07/22/85 SDS<CA$(1):CC$(3):CL$(12):D$(4):SZ$(2)"large":SZ$(1)"small" FNP:PT$(NP),PN$(NP): NP=# PR   i;ROAD  (     (ACTIVITY ROAD    @(EZ Logo}STANDARD ERROR PROCESSING (HI-RES)W }ZE(222):ZN(218)(219)256:216,0:32000l}ZUZE0ZE16Ħ}ZE4ĺCL$:CO,0,79:"Please remove the write-protect sticker from your diskette.":SPACE:CL$:CO,0,89:"One moment please...": d}PROGRAMMGCP,ZX,ZYiuCO,ZX,ZY:CEL:INP,(3,"YESNOyesno",1),Z$:Z(Z$):Z$(Z32(Z96)):Z$"Y"Z$"N"30120ouyTRY AGAIN ENDING ROUTINE"yWIND:CL$;CO$:CO,0,89:"Do you want to try again? ";:30100y54915:Z$"Y"Ĭy33000:D$"RUN MENU"% parallel card","An Apple Imagewriter with a serial card","An Apple Scribe printer"a"any printer / Grappler card","Apple DMP / parallel card","Apple Imagewriter / serial card","Apple Scribe / serial card"uSTANDARD YES-NO INPUT (HI-RES) uCA$;:*INTRO Ѕ?A Z~,(F(~<(w2(i()dȖeACTIVITY Y M = INTRO `,%%%%%%%%%%%%%%%%%%%%%%%%% <.":SPACE::40020k5ќCO,0,50:"What file do you":"want to erase? ";:INP,(15,VF$,0),EN$:(EN$)0400205ҜZ$EN$:650:EN$EN$".LGO":Z$"EXAMPLE"Z$"MORE EXAMPLES"įCO,0,20:CEW:CO,0,89:"The file "Z$" cannot be erased.":SPACE::40020\6ӜOKİ9ILES:Z$LN$:650:LN$LN$".LGO"i4OKİ910:CO::"Loading "Z$"...":33000:RFL,LN$57344:40250:400054œ910:"There is no file "(LN$,(LN$)4)" on this disk.":SPACE:400205̜"Erase a File";CC$:NFILES0įCO,0,89:"There are no files on the disk5 340005i3"Load a File";CC$:NFILES0įCO,0,89:"There are no files on the disk.":SPACE::400203CO,0,50:"What file do you":"want to load? ";:INP,(15,VF$,0),LN$:(LN$)0400204900::"One moment please...":33000:FCN,".LGO",TEMP$,NF"There is 1 procedure in this file.":SPACE::40117v2"There are "NUMPROC1" procedures in this file."CA$:SPACE:3WIND:CO:CO,0,20:CEW:CO,0,74:"Do you want to":"clear the workspace? ";:30100:Z$"Y"İ11795:PTR20:ADDRBASE1:CL$:MSU:4000re is already a file "Z$". Please try another name.":400901AA$Z$:SN$SN$".LGO":LEADDRBASE5:RVW,ADDR,X:WVW,ADDR,0:650:OK9501Z$AA$:910::"Saving "Z$"...":33000:SBF,SN$BASE,LE:RVW,ADDR,X:910:CO:"File saved";CC$42:NUMPROC0ĺo save.":SPACE::40020k0NFILES40įCO,0,79:"Logo can't remember any more filenames.":SPACE::400200WIND:CO,0,50:"What is this":"file's name? ";:CEL:INP,(15,VF$,0),SN$:(SN$)040020<1900:Z$SN$:Z$"EXAMPLE"Z$"MORE EXAMPLES"ĺ"The0120,40140,40160 /710:FR0:/"Save a File";CC$:SZ2((ADDRBASE5)256):SZFRSECįCO,0,74:"There is not enough space on the disk to save the procedures in memory.":SPACE::400200NUMPROC0NAME$(0)""įCO,0,89:"There are no procedures t 2. Load a file":" 3. Erase a file"g.h" 4. Catalog files":" 5. Return to EZ Logo 2"::GCP,A,YY.rCO,0,YY:"Which number? ";:INP,(1,"-09",1),A$:CMD(A$):CMD1CMD5įCO,0,YY18:"Please type a number from 1 to 5.":40050/|CL$:CMD40080,4((ZSZ)):ZZ1:33220#-΁ZT(ZS))->-@RECRDFALSE:700h-ECL$:CO,0,89:"One moment please..."-JZS(0):33000:FCN,".LGO",TEMP$,NFILES:CNT,ZS:FRSECTZS-TWIND:CO:CL$:"File Options";CC$%.^CO,0,40:"You may:"::" 1. Save a file":" insert your "QN$" diskette.":30000:CL$:33010F,LGET DRIVE STRINGS{,VD1$",S"((953))",D"((954))",V"((955)),`D2$",S"((956))",D"((957))",V"((958)),,GET DISK NAME AND TYPE,ZN$"":Z1-ā(ZSZ)0Z36ZN$ZN$TRINGS;&VD1$",S"((953))",D"((954))",V"((955))p&`D2$",S"((956))",D"((957))",V"((958))v&&GET DISK NAME AND TYPE&ZN$"":Z1&ā(ZSZ)0Z36ZN$ZN$((ZSZ)):ZZ1:33220&΁ZT(ZS)&0:Y30:CL$"Procedures loaded:";CC$:INSADDR:J0AP_9LE(J)FRLE(J)LE(J):OKFALSE:403609FRFRLE(J):CO,X,Y:TEMP$(J):YY12:Y170Y30:XX140:X200X20:SPACE:"Procedures loaded:";CC$9MOVE,PA(J),LE(J)INSRT:NUMPROCNUMPROC1/:NAMETEMP$(I),CUR2:CURCURLE(I)-80II1:40220I8:WIND:CO:40210:API1Y8DI0AP:J08NNAME$(J)TEMP$(I)PRJ:OKFALSE:11740:402908XJJ18bJNUMPROC402708l:FRMAX(ADDRPTR1):MOVE,ADDR,PTR(MAXPTR1):NL(MAXPTR1)49vOKTRUE:X2PACE::400207X20:Y307A0NFILES1:CO,X,Y:TEMP$(A):YY12:Y170Y30:XX140:X200X20:SPACE:CL$:"Catalog of Files:";CC$7:X20Y30400207SPACE::400207BS57345:I0:CURBS7RVW,CUR,LE(I):LE(I)0ı8&PA(I)CUR:GSB,00::"Erasing "Z$"...":33000:D$"DELETE "EN$:910:CO::"File erased";CC$:SPACE::400056֜CO:900:"There is no file "(EN$,(EN$)4)" on this disk.":SPACE:40020 7"Catalog of Files";CC$:NFILES0įCO,0,89:"There are no files on the disk.":SHOUSE X  eYARD  t` b HOUSE @ TREE L`DC GTREE C`  0C$$DISK"ZS:33200:(ZT0)(QN$ZN$)ZU0:sCL$:CO,0,89:"Please insert your "QN$" diskette.":SPACE::33010LGET DRIVE STRINGSVD1$",S"((953))",D"((954))",V"((955))`D2$",S"((956))",D"((957))",V"((958))ERS REENTRY*n}ZE255Ĵ(919)031000:x}CL$:CO,0,80:"Error "ZE" at line #"ZN" in PROGRAM NAME."::"Please report this error to MECC.":30000:31000耲DISK VERIFY (ONE DISK PRODUCTS)(HI-RES)N$"EZ Logo":ZU1:ZS654+ZE0:ZEįRFL,"MECyACTIVITY   %%%%%%%%%%%%%%  0003f<ff<cc>cc>>cc>0000000t` ```````fffffff~l6iɆpq{0`0``0`00000`Z<`~~6    :SPACE:CL$"workspace full";CC$:"Procedures not loaded:";CC$K;Н:SPACEQ;ڝY$(NU)TEMP$(J):ADDR(NU)INSRT:INSRTINSRTLE(J)c::ADDRINSRT:MOVE,NL,PTRADDR:SPACE:OK40410:CL$"Workspace full";CC$:"Procedures not loaded:";CC$:X20:Y30:A0AP:LE(A)040400>;ƝCO,X,Y:TEMP$(A):YY12:Y170Y30:XX140:X200X20=  ,4FACE _b {    HEAD FACE    MACTIVITY ,` g HEAD <   ACTIVITY ,` g(procedures and retrieve at a later time."tÃ" Students can use the saved procedures as building blocks to create other pictures. The pictures created can also be printed."C <D O < YACTIVITY  3LOGO T { R (?d R~0L  :O  HG   mLOGO <ACTIVITY CTI( M2%%%%%%%%%%%% ')Ⱦnh FACTIVITY HOUSE Y  JHOUSE       ACTIVITY ($ (ACTIVITY TY MAZE  F@ACTIVITY iAC( <2%%%%%%%% ')nȾnhm! P"MAZE (# (ACTIVITY MAZE !2),RT(11),RO(11),SHP(11),ADDR(50),NAME$(50),MEM(50),PROC(50),TEMP$(50),LE(50),PA(50) FBASE36000:ADDRBASE1:PTR20:MAX39550:BASE,255 PTRUE1:FALSE0 ULX0:RX278:TY0:BY190:X140:Y90 Z919,1:ZS704:RFL,"MECC$$DISK"ZS:33200:QN$ZN$:1000 PROGRAM: EZ Logo 17Copyright (c) MECC, 1985MPRODUCT: EZ Logol(PROGRAMMER:Steve Splinter2Last update:07/22/85 SDS732000<16384?CMD$"FBLRCHTUDXA12347890QWEIOP;M.,/"@D$(4):CL$(12):CA$(1)T ADX(11,2),DY(11,""          `JJJJf&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hizݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥ~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0,  # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:" """"""" STEPD  STEPD 2 ŠƓSTEPD 􊈄A' )(ACTIVITY STAIRS  STEPD ,%%%%STEP > 鈬STAIRS (1( STEP =>SSTEP SSTEP 0p OSSTEP MLSSTEP ㊘'STEPD  &STEPD PLK""