EA0 R X [ q+,m(RwՍx yLthhh@() 1982  "";:19EN7,8,9,10"UNKNOWN PROBLEM #";EN:12"SYNTAX ERROR IN":"PROGRAM LINE";II:12"PRINTER ERROR":12 "SAVE PROBLEM":11. "GET (LOAD) PROBLEM"J "FILE OR DEVICE ERROR"` :"PRESS RETURN"r A$:A$""13152,0:153,0:154,364:MM829875:NN:MM,NN:104,104,104,104,104,104,104,104,104,104,104,162,0,160,2,76,1348196,100,162,14,189,94,3,157,0,2,202,208,247,76,61,3,69,82,61Z48,58,71,79,84,79,53,0,0,0,0x1,61:2,3:768,80:769,3NL((0)10)99:NC37:EL0:CC36879:VV36878:S336876:ZS(NL10)9 C%(NL),L$(NL),SC$(NC),LC$(NC),LN%(NC),PC%(NC),CR$(8),LB$(ZS),TG(ZS)D.ZS256(648):ZA30720:RY23:CX22:CR$(13):657,128\/(648)16ZA33792{5II18:CR$(II)::SK(30)6BLACK,WHITE,RED,CYAN,PURPLE,GREEN,BLUE,YELLOW7A(Z)ZSCO1CX(RO1):C(Z)A(Z)ZA:D(Z)16SCBC8;II1NC:SC$(II),LC$(II),LN%(II),PC%(II):[="":A$" TURTLE GRAPHICS":408:A$" BY":408>A$" DAVID MALMBERG":408:A$" (C)1982 HES":408?X(43)064(44):IXX999:I,0:@EN5:TZ1:BC3:SC1:CC,D(0):" TURTLE GRAPHICS MENU"D:"ADD LINES"'E"INSERT LINES"=F"DELETE LINES"UG"REPLACE A LINE"kH"LIST PROGRAM"I"PRINT PROGRAM"J"SAVE TO TAPE OR DISK"K"GET OFF TAPE OR DISK"٥L"EXECUTE A PROGRAM"M"TRACE A PROGRAM" N:"MAKE SELECTION"OA$:A$""79MPII0:IN110:A$("AIDRLPSGET",IN,1)IIIN\Q:II079R"":II85,89,97,104,111,113,125,132,183,181S64UCLEL1:151:A$"*"W85ǦYEL0114Z"BEFORE LINE # *";A$:A$"*" [BL(A$):BL0BLEL90:\CT%C%(BL):LT$L$(BL):CLBL:151:A$"*"w]IIELBL11:C%(II1)C%(II):L$(II1)L$(II)::ELEL1^C%(BL1)CT%:L$(BL1)LT$:BLBL1:92aEL0114֧bA$"":138:A$"*"412:A$"Y"cTLELELFL1:+eII1ELFL1:C%(FLII1)C%(TLII):L$(FLII1)L$(TLII):?fELFLELTL1:MhEL0114ni"LINE # *";A$:A$"*"jTL(A$):TL1TLEL105˨k"CURRENT LINE ";TL:LC$(C%(TL));" ";:PC%(C%(TL))L$(TL);l:"NOW ENTER NEW LINE"mFLCL:CLTL:151:CLFL:oUU3:114!qUU4:EN2@rEL0"NOTHING YET":121ts138:1,UU:IIFLTL:1,II;" ";LC$(C%(II));" ";tPC%(C%(II))1,L$(II):118u1," "v(197)32118x:1Щy"PRESS RETURN"zA$"":A$:A$""122{A$"*":}EL0114'~EN3:401:TL$"*"1,1,1:128=1,8,1,NA$",S,W"h1,EL;CR$;:EL:II1EL:1,C%(II);CR$;~""II"";C%(II);1,L$(II);CR$;:L$(II)::1:EL0A$"":412:A$"Y"㪅EN4:401:TL$"*"1,1,0:1351,8,0,NA$",S,R",1,EL:EL:II1EL:1,C%(II):""II"";C%(II);I1,L$(II):L$(II)::1:a"ENTER LINE RANGE""FROM-TO *";A$:FL1:TLEL:A$"*"LL(A$):II0:IN1LL:(A$,IN,1)"-"IIIN߫:II0FL(A$):TLFL:147II1FL1:TL((A$,LL1)):147+IILLFL((A$,LL1)):TLEL:147RFL((A$,II1)):TL((A$,LLII))_A$B$xFL0TL0FLTL139~"ENTER LINE";CL:" *";A$:ZC0:LF2:A$"*"۬(A$,1)" "A$(A$,(A$)1):154IN1NC:(A$,2)SC$(IN)ZCIN+(A$,LN%(IN))LC$(IN)ZCIN:LFLN%(IN);:ZC0179XLL(A$):PC%(ZC)0163hLLLF179xB$"*":175LLLF1179B$(A$,LLLF1)ŭ(B$,1)" "B$(B$,(B$)1):166뭧BB(B$):PC%(ZC)175,175,169,173LL0:II18:B$CR$(II)LLII:LL0179'175[A$B$:FL1:TL1:142:FL1FL23TL1TL22179C%(CL)ZC:L$(CL)B$:CLELELCLCLNL"MAXIMUM PROGRAM SIZE":121̮"ERROR--TRY AGAIN":151ծTZ0讷"":EL0114RS0:NZ0:SZ0:CH0:DD0:PP0:TC2:CO1:RO1:LCSCDIN0:II1EL:C%(II)27ININ1j:IN30"TOO MANY LABELS":121IN0:II1EL:C%(II)27ININ1:LB$(IN)L$(II):TG(IN)II:LLIN:II0:IN0ݯ:MM829875:NN:MM,NN:DX1:DY0:LM32:A(0),42:C(0),TC:PLA(0)(EN6:IIII1:IIEL4TZ221Q" "y"";II;"";SC$(C%(II));" ";L$(II)A$:A$""219224(197)24IIEL:123°(197)32222((C%(II)9)10)225,226,227,228!C%(II)231,233,236,238,240,242,244,246,248,256:213]C%(II)10263,266,269,272,274,276,278,280,283,287:213C%(II)20291,294,298,307,311,313,321,324,327,330:213ıC%(II)30334,356,341,343,347,321,500ͱ213ر"":A$L$(II):351:BB96BB160CHBB:)PL,LM:PLZA,LC:CO1:RO1:3794PP3:?PP0:JPP1:UPP2:f392:DDZ1:SZ0"LOOP START IN LINE";II:IIEL:121392:NZZ1:Z11308IN1:SZII:SZ0"LOOP END IN LINE";II:IIEL:121ININ1:INNZSZ0:IISZ:=PL,LM:PLZA,LC:392:Z11Z123308LROZ1:379v PL,LM:PLZA,LC:392:Z11Z122308 COZ1:379 MM0:NN18:CR$(NN)L$(II)MMNN:TCMM1:ҳDX0:DY1:356:DX0:DY1:356:DX1:DY0:356:DX1:DY0:356:%A$:A$""280+=392:TTZ1TILTITT284RPCCH:KK(L$(II)):NN1KK:A$(L$(II),NN,1):351 CHBB:363!:CHPC:ʹ#MM0:NN18:CR$(NN)L$(II)MMNN$:BCMM1:CC,D(0):&MM0:NN18:CR$(NN)L$(II)MMNN(':SCMM1:CC,D(0):a*KK(L$(II)):MM0:NN1KK:(L$(II),NN,1)"-"MMNN+:TY((L$(II),MM1)):TX((L$(II),KKMM))ĵ,EXTXCO:EYTYRO:Z1(EX):(EY)Z1Z1(EY)ݵ-Z10IX0:IY0:304.IXEXZ1:IYEYZ1.0PXDX:PYDY:SXCO:SYRO:NN1Z1:DX(SXIXNN0.5)CO]1DY(SYIYNN0.5)RO:363::DXPX:DYPY:x3392:Z11Z12563094"ILLEGAL VALUE OF";Z1:"IN PROGRAM LINE";II:IIEL:121ɶ5VV,15:S3,Z1:۶7VV,0:S3,0:9RS30"USE NESTED TOO DEEP":121;RSRS1:SK(RS)II">330(AEDRS0IISK(RS):RSRS1KE[GZG$"":395rJ386:IIELIIK3xKN394:Z10OKK0:Q7LL11:TG(Q7)IIKKTG(Q7)ȷP:KK0IIEL:ԷQIIKK:UDXDX:DYDY:WDX0DYDX:DX0:XDY0DXDY:DY0Y6[DX0DYDX:DX0:L\DY0DXDY:DY0R]u_EE(A$):BBEE64:EE64BBEE`EE95EE128BBEE32aEE191BBEE128bŸd392:KKZ1:KK1308׸eNN1KK:363f(197)24IIEL:123g(197)32359 i:&kPP1365,367,369,372@mPL,LM:PLZA,LC:374ZoPL,CH:PLZA,TC:374zqLMLM128:LM255LMLM256rPL,LM:PLZA,LC:374tPL,32:PLZA,SC˹vCOCODX:RORODY:COCXCO1۹wCO1COCXxRORYRO1yRO1RORY.{PLA(0):LM(PL):LC(PLZA):PL,42:PLZA,TC;}TTTIDDJ~TITT382P|K30:K21LL:LB$(K2)L$(II)K3TG(K2):K30"ERROR IN LINE";II:"NO SUCH LABEL":IIEL:121Z1(L$(II)):Z2$(Z1):XX$" "L$(II):Z2$XX$ZG$"Z1=";ZG$ZG$L$(II)":GOTO399":Z4512:ZP(ZG$):Z11:EN1aZZ1ZP:Z4ZZ,((ZG$,ZZ,Z1)):ZZZ4ZP:Z114:ZZZ1,0:Z1(ZZ)Z1(Z1):޻"TAPE OR DISK T";DD$:TL$"*":DD$"T"DD$"D"401ﻒDD$"T"405&NA$(34)"0:":"FILE NAME *";TL$:TL$"*"4038NA$NA$TL$:c"IS TAPE READY Y";A$:A$"Y"405iVV,15:II(A$)11:(A$,II):""S3,2555II:IN120:IN:S3,0:II:VV,0˼::"THIS WILL DESTROY THE":"CURRENT PROGRAM""ARE YOU SURE Y";A$:VCS,CLEAR SCREEN,12,0,CT,CHARACTER TO,12,2,HE,HOME,4,0PE,PEN ERASE,9,0,PU,PEN UP,6,0,PD,PEN DOWN,8,0,PR,PEN REVERSE,11,0罡SD,SET DELAY TO,12,1,LP,LOOP,4,1,LE,LOOP END,8,0,RW,SET ROW TO,10,1-CN,SET COLUMN TO,13,1,TC,TURTLE COLOR,12,3,UP,UP,2,1,DN,DOWN,4,1oRT,RIGHT,5,1,LT,LEFT,4,1,SP,STOP,4,0,WT,WAIT,4,1,TT,TEXT,4,2BC,BORDER COLOR,12,3,SC,SCREEN COLOR,12,3,MT,MOVE TO,7,4BP,BEEP,4,1,NB,NO BEEP,7,0,UE,USE,3,2,LL,LABEL,5,2,RE,ROUTINE END411,0,CE,CALCULATE,9,2,JP,JUMP,4,2,IF,IF,2,2,FD,FORWARD,7,1TA,TURN AROUND,11,0,TR,TURN RIGHT,10,0,TL,TURN LEFT,9,0,RK,REMARK,6,2CF,CHECK FOR,9,2ȿTPCH:233:CHTP:TP(A(0)CXDYDX):BBTPܿTP32BB160335"