8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!) >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLOGO.DRIVERSO' @+SCHOOLHOUSE # $/ #BUGY# $/ )APPLECITYH# $0 &BRIDGEG# $0 FLOWER$ $0 *ROADRUNNER$ $0 (SEAHORSE O$ $0 *GRANDPRIZE#H$ $1 $POEM(P% $1 )SQUIGGLES+% $1 )PLOTSTUFF. % $1 'STARTUP5% $1 'UNICORN9L& $2 *FIRSTGRADE=& $2 ,TURTLEFAMILYB & $2 TO SCHOOLHOUSE PLOT CS HT FULLSCREEN PU SETX -85 SETY -90 PD SETPC 2 FD 120 RT 90 FD 40 RT 90 FD 50 LT 90 FD 140 RT 90 FD 70 RT 90 FD 180 PU SETX -92 SETY 30 PD BK 57 RT 55 FD 49 SETPC 5 RT 35 FD 25 RT 90 FD 25 RT 90 FD 18 RT 90 FD 25 PU RT 90 FD 10 RT 90 PD FD 10 LT 90 FD 7 PU BK 2 LT 90 FD 3 PD FD .2 PU FD 3 PD FD .2 PU BK 6.4 LT 90 FD 2 RT 90 FD 3 PD FD .2 PU FD 3 PD FD .2 PU BK 6.4 LT 90 BK 1 RT 90 PD BK 15 LT 90 FD 3 RT 90 FD 15 PU FD 10 LT 90 FD 2 LT 90 PD FD 25 RT 90 FD 3 RT 90 FD 25 LT 90 FD 2 LT 90 FD 25 RT 90 FD 4 RT 90 FD 25 PU LT 90 FD 8 SETPC 2 RT 38 PD FD 48 PU BK 10 LT 130 FD 18 LT 90 PD SETPC 4 CIRCLER 5 PU FD 5 RT 90 FD 4 LT 90 PD FD 2 LT 45 FD 2 LT 35 FD 2 LT 30 FD 2 RT 50 BK 5 PU SETPC 2 HOME SETX -45 SETY 15 RT 90 PD FD 140 RT 60 FD 40 RT 120 FD 20 PU HOME SETX -75 SETY -90 PD FD 60 RT 90 FD 20 RT 90 FD 60 RT 90 PU FD 3 RT 90 FD 25 PD FD 2 PU FD 5 PD FD 25 LT 90 FD 14 LT 90 FD 25 LT 90 FD 14 PU BK 17 LT 90 FD 40 PD FD 30 ARCR 10 180 REPEAT 3 [ARCR 3.3 180 LT 180] PU RT 180 ARCR 10 180 PD FD 30 RT 90 FD 20 PU BK 30 RT 90 BK 55 PD REPEAT 4 [WNDO] PU BK 20 RT 90 BK 170 LT 90 FD 82 RT 90 FD 3 PD LT 90 FACE PU BK 82 LT 90 FD 8 LT 45 PD FD 20 PU BK 20 RT 45 BK 22 RT 225 PD FD 20 PU LT 110 FD 200 PD SETPC 4 CIRCLER 25 RT 90 PU FD 15 PD FD .2 PU FD 10 PD FD .2 PU RT 90 FD 10 PD ARCR 5 170 PU LT 90 FD 15 LT 20 PU FD 5 PD FD 10 PU BK 15 RT 100 REPEAT 17 [LINE] SCHOOLEGEND NOPLOT ERALL END TO WNDO FD 30 ARCR 15 180 REPEAT 2 [ARCR 5 180 LT 180] ARCR 5 180 PU ARCR 15 180 PD FD 30 RT 90 FD 30 RT 90 PU FD 8 RT 90 FD 1 LT 90 PD FACE PU RT 90 FD 10 LT 90 PD FACE PU BK 8 RT 90 FD 15 LT 90 FD 2 PD END TO FACE SETPC 1 CIRCLER 7 PU FD 1 RT 90 FD 5 PD FD .2 PU FD 3 PD FD .2 PU FD 2 RT 90 FD 2.5 PD ARCR 3 180 PU FD .5 SETPC 2 END TO LINE FD 10 LT 90 FD 5 PD FD 10 PU BK 15 RT 110 END TO SCHOOLEGEND SETJUSTIFY "C SETSIZE 8 PEN.POS 0 110 LEGEND [The Boys and Girls of] SETSIZE 4 PEN.POS 25 0 LEGEND [Corpus Christi Elementery School] PEN.POS 25 -10 LEGEND [Oakland Diocese, California] SETSIZE 3 PEN.POS 22 -85 LEGEND [Gini Shimabukuro, Teacher] SETSIZE 8 PEN.POS 0 -120 LEGEND [Cheerfully Present to You...] END MAKE "STARTUP [SCHOOLHOUSE] TO TRAIL :X :Y :INC SETPC 1 IF :Y < -80 [STOP] DOT SE :X :Y TRAIL :X + :INC :Y - 10 :INC + 1 END TO LBODY SETPC 2 LT 60 REPEAT 3 [ARCR 25 30 SETPC 5 LLEG BACKLLEG SETPC 2] ARCR 25 30 END TO LLEG LT 45 FD 20 LT 100 FD 30 END TO BACKLLEG BK 30 RT 100 BK 20 RT 45 END TO THEHEAD SETPC 2 HEAD HEAD2 SETPC 2 ARCL 8 120 END TO HEAD ARCL 8 120 RT 30 SETPC 4 ARCR 10 90 RT 90 SETPC 3 CIRCLEL 2 SETPC 4 RT 90 SETPC 4 ARCL 10 90 RT 150 END TO HEAD2 SETPC 2 ARCL 8 120 RT 150 SETPC 4 ARCL 10 90 LT 90 SETPC 3 CIRCLER  2 LT 90 SETPC 4 ARCR 10 90 RT 30 END TO RBODY SETPC 2 RT 30 REPEAT 3 [ARCR 25 30 LT 150 SETPC 5 RLEG BACKRLEG RT 150 SETPC 2] ARCR 25 30 END TO RLEG RT 45 FD 20 RT 100 FD 30 END TO BACKRLEG BK 30 LT 100 BK 20 LT 45 END TO BUG PLOT FULLSCREEN CS HT LBODY RT 30 THEHEAD RBODY TRAIL 0 -10 3 SETPC 3 BORDER PU SETCURSOR [10 20] BUGLEGEND NOPLOT ERALL END TO BORDER PU SETPOS [-140 119] PD SETX 139 SETY -119 SETX -140 SETY 119 END MAKE "STARTUP [BUG] TO BUGLEGEND SETSIZE 8 SETJUSTIFY "C PEN.POS 0 100 SETPC 4 LEGEND [The Logo Bug] PEN.POS 0 -110 SETPC 2 LEGEND [and the Apple Color Plotter] END TO APPLETRUCK FD 20 RT 90 FD 84 RT 90 FD 20 RT 90 FD 84 PU RT 90 RT 90 FD 84 LT 90 FD 15 PD RT 90 FD 12 RT 90 FD 15 RT 90 FD 12 PU RT 90 FD 15 RT 90 FD 5 RT 90 PD FD 5 LT 90 FD 5 PU RT 90 FD 3 LT 90 FD 2 PD FD 2 RT 90 FD 3 RT 90 FD 2 PU LT 90 FD 4 RT 90 FD 14 LT 90 PD FD 7 RT 90 FD 7 RT 90 FD 7 LT 90 PU FD 18 PD LT 90 FD 7 RT 90 FD 7 RT 90 FD 7 LT 90 PU FD 18 PD LT 90 FD 7 RT 90 FD 7 RT 90 FD 7 LT 90 PU FD 18 PD LT 90 FD 7 RT 90 FD 7 RT 90 FD 7 HT END TO APPLECITY PLOT CS FULLSCREEN PU BK 50 RT 90 BK 100 SETPC 1 PD FD 50 PU FD 96 PD FD 54 RT 90 PU FD 40 PD RT 90 FD 200 SETPC 4 PU RT 90 FD 20 RT 90 PD FD 15 PU FD 15 PD FD 15 PU FD 15 PD FD 15 PU FD 15 PD FD 15 PU FD 15 PD FD 15 PU FD 15 PD FD 15 PU FD 15 PD FD 15 PU BK 195 LT 90 FD 20 RT 90 FD 50 LT 90 PD SETPC 2 APPLETRUCK PU LT 90 FD 50 RT 90 PD SETPC 3 FD 75 RT 90 FD 50 LT 90 FD 25 RT 90 FD 100 RT 90 FD 25 LT 90 FD 50 RT 90 FD 75 PU BK 75 RT 90 FD 50 RT 90 FD 25 PD LT 45 FD 70 LT 90 FD 70 PU LT 45 FD 25 RT 90 FD 50 LT 90 FD 25 LT 90 FD 5 PD SETPC 4 FD 20 RT 90 FD 20 RT 90 FD 20 RT 90 FD 20 PU BK 20 RT 90 FD 60 PD FD 70 LT 90 FD 50 LT 90 FD 70 LT 90 FD 50 LT 90 PU FD 110 PD FD 20 LT 90 FD 20 LT 90 FD 20 LT 90 FD 20 SETJUSTIFY "C SETSIZE 10 PEN.POS 0 100 LEGEND ["Apple City"] SETSIZE 8 SETPC 2 PEN.POS 0 -105 LEGEND [Third Grade Entry] NOPLOT ERALL END MAKE "STARTUP [APPLECITY] TO SETUP BK 30 RT 90 FD 30 LT 90 END TO SMOKESTACK2 LT 90 FD 30 RT 90 SMOKESTACK1 20 10 SETPC 1 PD RT 90 FD 40 BK 50 END TO SMOKESTACK1 :L :W IF :L = 0 [STOP] REPEAT 2 [FD :L LT 90 FD :W LT 90] SMOKESTACK1 :L - 1 :W END TO MOVE1 BK 10 LT 90 BK 10 LT 90 END TO DECK2 RT 180 FD 10 RT 90 FD 10 LT 90 FD 10 RT 90 FD 60 RT 90 FD 10 END TO DECK1 RT 90 FD 10 LT 90 FD 80 LT 90 FD 10 END TO HULL RT 270 FD 30 RT 135 FD 30 LT 135 PD FD 100 LT 135 FD 28 LT 45 FD 60 LT 45 FD 28 LT 45 LT 90 FD 10 END TO BOAT SETPC 3 HULL DECK1 DECK2 MOVE1 SETPC 2 SMOKESTACK1 20 10 SMOKESTACK2 END TO MOVE SETPOS [0 0] LT 90 BK 55 RT 90 FD 20 LT 90 FD 20 END TO TOP SETPC 2 PU RT 90 SETX -140 PD REPEAT 110 [FD 1 LT .8] RT 180 REPEAT 205 [FD 1 LT .9] RT 180 REPEAT 91 [FD 1 LT .8] SETH 90 FD 4 PU FD 22 END TO POLE2 FD 50 PU LT 90 FD 25 LT 90 PD FD 50 RT 90 FD 50 LT 90 PU FD 20 END TO POLE1 FD 40 PU RT 90 FD 20 PD FD 50 PU LT 90 FD 25 LT 90 PD FD 50 RT 90 FD 125 RT 90 END TO ROAD SETPC 1 LT 90 PU BK 139 PD SETX -140 RT 90 PU FD 20 RT 90 PD SETX 139 SETX -130 END TO BRIDGE PLOT CS ROAD POLE1 POLE2 TOP MOVE SETUP BOAT SETPC 4 BORDER BRIDGELEGEND NOPLOT ERALL END TO BORDER PU SETPOS [-140 119] PD SETX 139 SETY -119 SETX -140 SETY 119 END TO BRIDGELEGEND SETSIZE 8 SETJUSTIFY "C SETSLANT 20 PEN.POS 0 100 LEGEND [Bridge by Maria] END MAKE "STARTUP [BRIDGE] TO PETAL :SIZE ARCR :SIZE 90 RT 90 ARCR :SIZE 90 RT 90 END TO BORDER PU SETPOS [-140 119] PD SETX 139 SETY -119 SETX -140 SETY 119 END TO FLOWER PLOT CS SETPC 3 PU BK 100 PD FD 50 PETAL 30 FD 34 PU FD 58 SETPC 2 PD REPEAT 8 [PETAL 40 PETAL 30 RT 45] SETPC 4 BORDER FLOWERLEGEND NOPLOT ERALL END TO FLOWERLEGEND SETJUSTIFY "C SETSLANT 20 SETPC 3 SETSIZE 10 PEN.POS 0 100 LEGEND [Nancy's Flower] END MAKE "STARTUP [FLOWER] TO CHECK TEST FIRST PEN = "PENUP IFT [IF AND XCOR > 85 XCOR < 88 [SL]] END TO BEEP PR CHAR 7 PR CHAR 7 END TO T :L SETPC 2 IF :L < 2 [STOP] LT 45 FD :L T :L / 2 BK :L RT 90 FD :L T :L / 2 BK :L LT 45 END TO TP :N T :N RT 180 T :N SETH 0 END TO T4 :L :A :LV IF :LV = 0 [STOP] LT :A FD :L T4 (:L / 2) :A (:LV - 1) BK :L RT :A * 2 FD :L T4 (:L / 2) :A (:LV - 1) BK :L LT :A END TO ROOF :S RECYCLE FD (:S * .7) RT 15 BK (:S * .2) FD (:S * .9) RT 137 FD (:S * .7) BK (:S * .7) LT 217 FD (:S * .9) LT 94 FD (:S * .85) END TO PARA :S :SL FD :S RT 90 + :SL FD :S - (:S / 3) RT 90 - :SL FD :S RT 90 + :SL FD :S - (:S / 3) RT 90 - :SL END TO TT :N TP :N RT 45 TP :N BK :N * 3 END TO PT :S T4 :S 30 5 BK :S / 2 T4 :S 30 5 BK :S END TO H :S SETH 0 LT 60 PARA :S -30 RT 60 PARA (:S * .7) -30 PARA (:S * .3) -30 ROOF :S END TO SU :REF PU SETPOS :REF PD END TO DRIVE ST PU SETH 0 LT 27.5 SU [130 -108] PU R DRIVE END TO TS SETPC 2 SETH 0 SU [-8 -70] PT 30 SU [100 6] PT 20 SU [-22 15] PT 13 SU [-2 30] PT 10 SU [-103 84] TT 7 SU [-116 3] TT 10 SU [39 95] PT 12.5 SETPC 1 END TO HS SU [67 -13] SETPC 2 H 25 SU [10 80] SETPC 4 H 18 SU [-120 80] SETPC 1 H 15 SU [-70 -80] SETPC 3 H 40 END TO SS SETPC 4 SETH 0 SU [83 -33] REPEAT 6 [FD 5 RT 60] LT 60 BK 5 RT 60 SETPC 3 BK 7.5 END TO DR SETH 0 LT 25 SU [116 -110] R SETH 0 LT 28.2 SU [139 -105] R END TO FR SU [-139 119] SETPOS [139 119] SETPOS [139 -119] SETPOS [-139 -119] SETPOS [-139 119] END TO ROADRUNNER RECYCLE PLOT FULLSCREEN SETPC 3 CS FR SETPC 1 SETBG 0 DR SS HS TS NOPLOT DRIVE END TO R ARCLEFT 200 50 ARCRIGHT 250 30 ARCLEFT 50 20 END TO SL WAIT 60 LT 90 WAIT 60 RT 180 WAIT 60 LT 90 BEEP END MAKE "D 30 MAKE "SP 43.633 MAKE "T 3. MAKE "REF [76.6044 -64.2788] MAKE "R 250 MAKE "STOP [87.6639 -52.8266] MAKE "STARTUP [ROADRUNNER] TO INSPI :SIDE :ANGLE :INCREMENT IF :ANGLE > 2911 [WAIT 60 STOP] FORWARD :SIDE RIGHT :ANGLE INSPI :SIDE :ANGLE + :INCREMENT :INCREMENT END TO MOVE :POS PU SETPOS :POS PD END TO SEAHORSE SETPC 3 MOVE [50 -20] INSPI 7 7 8 END TO START PLOT FULLSCREEN CLEARSCREEN SEAHORSE SEALEGEND NOPLOT ERALL END TO SEALEGEND SETPC 1 SETSIZE 6 SETSLANT 0 SETJUSTIFY "C PEN.POS 8 50 LEGEND [Apple Logo] SETSIZE 4 PEN.POS 8 30 LEGEND [with the] SETSIZE 6 SETPC 2 PEN.POS 8 18 SETSLANT 20 LEGEND [Apple] PEN.POS 8 2 SETPC 3 LE!GEND [Color] PEN.POS 8 -14 SETPC 4 LEGEND [Plotter] END MAKE "STARTUP [START] TO TURTLE ARCR 30 180 REPEAT 5 [ARCR 6 180 LT 180] RT 120 FD 3 RT 20 FD 3 RT 30 FD 3 RT 20 BK 3 LT 20 BK 2 LT 20 BK 3 LT 20 BK 3 SETH 0 PU BK 3 RT 90 FD 6 LT 90 PD BK 5 LT 45 BK 2 LT 45 BK 10 RT 90 FD 2 LT 30 FD 5 SETH 0 RT 90 PU FD 30 LT 90 PD BK 5 LT 45 BK 2 LT 45 BK 10 RT 90 FD 2 LT 30 FD 5 SETH 0 PU FD 10 LT 45 FD 10 SETH 0 PD CIRCLER 4 PU LT 45 FD 15 RT 45 PD CIRCLER 4 PU LT 90 FD 10 PD CIRCLER 4 PU LT 35 FD 15 PD CIRCLER 4 PU SETH 0 BK 5 RT 90 FD 10 LT 90 PD CIRCLER 4 PU RT 90 FD 36 LT 30 PD FD 2 LT "$%&20 FD 5 LT 10 FD 5 LT 20 FD 30 RT 10 FD 5 RT 20 FD 5 RT 20 FD 5 RT 20 FD 5 RT 20 FD 3 RT 10 FD 1 ARCR 10 120 RT 10 FD 5 RT 5 FD 5 LT 30 FD 10 LT 30 FD 15 RT 20 FD 10 RT 30 FD 15 SETH 0 PU FD 55 RT 90 FD 25 PD LT 90 CIRCLER .3 PU RT 180 FD 5 LT 90 FD 3 RT 90 PD ARCL 3 120 END TO QUESTION1 ARCR 8 180 RT 30 FD 5 RT 30 FD 5 LT 30 FD 3 LT 30 FD 5 PU FD 5 PD FD 2 END TO QUESTION2 ARCR 5 180 RT 30 FD 3 RT 30 FD 3 LT 30 FD 2 LT 30 FD 2 PU FD 3 PD FD 2 END TO GRANDPRIZE PLOT CS FULLSCREEN PU HT RT 90 BK 25 LT 90 BK 30 PD SETPC 2 TURTLE PU LT 130 FD 75 SETH 0 PD SETPC 3 QUESTION1 PU RT 125 FD 70 SETH 0 PD QUESTION2 PU RT 45 FD 50 SETH 0 PD QUESTION1 PU FD 40 LT 90 FD 15 SETH 0 PD QUESTION2 LT 90 PU FD 100 LT 45 FD 20 LT 45 PD QUESTION1 PU BK 60 RT 90 BK 20 RT 90 PD QUESTION2 PU BK 80 RT 90 FD 20 RT 90 PD QUESTION2 PRIZELEGEND NOPLOT ERALL END TO PRIZELEGEND SETJUSTIFY "C SETSIZE 10 SETPC 4 PEN.POS 0 100 LEGEND [Which entry is your favorite?] SETSIZE 5 PEN.POS 0 -90 LEGEND [Watch for future announcement of] SETSIZE 8 PEN.POS 0 -105 LEGEND [Grand Prize!] END MAKE "STARTUP [GRANDPRIZE] TO POEM PLOT CS SETSLANT 10 SETSIZE 8 SETJUSTIFY "C SETPC 3 PEN.POS 0 100 LEGEND [THE SICK ROSE] SETSIZE 6 SETPC 2 PEN.POS 0 40 LEGEND [OH ROSE] PEN.POS 0 30 LEGEND [THOU ART SICK] PEN.POS 0 20 LEGEND [THE WORM THAT FLIES] PEN.POS 0 10 LEGEND [IN THE NIGHT IN THE HOWLING] PEN.POS 0 0 LEGEND [STORM] PEN.POS 0 -10 LEGEND [HAS FOUND OUT] PEN.POS 0 -20 LEGEND [THY BED OF CRIMSON JOY] PEN.POS 0 -30 LEGEND [AND WITH HIS DARK SECRET LOVE] PEN.POS 0 -40 LEGEND [DOES THY LIFE DESTROY] PEN.POS 139 -110 SETJUSTIFY "R ')SETSIZE 4 SETPC 4 LEGEND [WILLIAM BLAKE] NOPLOT ERALL END MAKE "STARTUP [POEM] TO SQUIGGLE FD 20 RT 90 FD 20 RT 135 FD 10 RT 135 FD 20 RT 90 FD 5 RT 135 FD 5 RT 45 FD 10 END TO SQUIGGLEFURTHER SQUIGGLE PU HOME PD RT 90 SQUIGGLE PU HOME PD RT 180 SQUIGGLE PU HOME PD RT 270 SQUIGGLE HT END TO LO PU LT 90 FD 130 RT 90 PD FD 50 BK 50 RT 90 FD 50 PU FD 20 PD LT 90 FD 50 RT 90 FD 50 RT 90 FD 50 RT 90 FD 50 LT 180 PU FD 70 LT 90 PD FD 50 RT 90 FD 50 BK 50 LT 90 BK 50 RT 90 FD 50 LT 90 FD 25 LT 90 FD 30 BK 30 RT 90 BK 25 RT 90 PU FD 20 LT 90 PD FD 50 RT 90 FD 50 RT 90 FD 50 RT 90 FD 50 HT E*,ND TO SQUIGGLES PLOT FULLSCREEN CS PU FD 50 SETPC 3 PD LO PU HOME PD SETPC 2 SQUIGGLEFURTHER PU FD 50 RT 90 FD 35 PD SETPC 4 SQUIGGLE SQUIGGLE SQUIGGLE SQUIGGLE PU BK 150 PD SETPC 5 SQUIGGLE SQUIGGLE SQUIGGLE SQUIGGLE SQUIGGLEGEND NOPLOT ERALL END TO SQUIGGLEGEND SETJUSTIFY "C SETSIZE 10 SETPC 3 PEN.POS 0 -90 LEGEND ["Squiggles"] SETPC 2 SETSIZE 8 PEN.POS 0 -110 LEGEND [Fourth Grade Entry] END MAKE "STARTUP [SQUIGGLES] TO BS :COUNT SETWRITE :SLOT REPEAT :COUNT [TYPE CHAR 8] SETWRITE [] END TO LEN :LIST IF EMPTYP :LIST [OUTPUT -1] OUTPUT ( 1 + WORDLEN FIRST :LIST ) + LEN BF :LIST END TO LEGEND :TEXT SETWRITE :SLOT TYPE "PL SETWRITE [] IF :JUSTIFY = "C [BS ( ( LEN :TEXT ) / 2 )] IF :JUSTIFY = "R [BS LEN :TEXT] SEND :TEXT SEND CHAR 3 END TO FOR :VAR :START :STOP :STEP :INSTRUCTIONS MAKE :VAR :START LABEL "LOOP RUN :INSTRUCTIONS IF ( THING :VAR ) = :STOP [STOP] MAKE :VAR ( THING :VAR ) + :STEP GO "LOOP END TO SETJUSTIFY :-/0123NUM MAKE "JUSTIFY :NUM END TO SETSIZE :NUM SETWRITE :SLOT PR WORD "LS :NUM PR "PL TYPE CHAR 32 TYPE CHAR 8 PR CHAR 3 SETWRITE [] END TO SETSLANT :NUM SEND WORD "SL :NUM END TO WORDLEN :WORD IF EMPTYP :WORD [OUTPUT 0] OUTPUT 1 + WORDLEN BF :WORD END TO BACKUP1 :PRIM.PNAME COPYDEF :PRIM.PNAME WORD "ORIG :PRIM.PNAME COPYDEF WORD "NEW. :PRIM.PNAME :PRIM.PNAME END TO BACKUP :LST IF EMPTYP :LST [STOP] BACKUP1 FIRST :LST BACKUP BF :LST END TO REDEF MAKE "REDEFP "TRUE BACKUP [HOME SETPOS SETX SETY FD] BACKUP [BK SETPC CS] BACKUP [TEXTSCREEN DOT] MAKE "PLOTPROC [HOME SETPOS SETX SETY FD BK SETPC CS FORWARD BACK CLEARSCREEN TEXTSCREEN DOT BS LEGEND LEN FOR SETJUSTIFY SETSIZE SETSLANT WORDLEN PLOTPOINT SEND PEN.POS PLOT NOPLOT SCALEPOINT DRAW? POS.PLOT SETSLOT] MAKE "PLOTVAR [PLOTSTUFF SLOT PLOT JUSTIFY] PR [Type 'PLOT' to output Logo] PR [Turtlegraphics to the] PR [Apple Color Plotter.] PR [] COPYDEF "FD "FORWARD COPYDEF "BK "BACK COPYDEF "CS "CLEARSCREEN BURY :PLOTPROC BURYNAME :PLOTVAR ERALL END TO NEW.HOME ORIGHOME IF :PLOT [SETPOS [0 0]] END TO NEW.SETPOS :POSLST ORIGSETPOS :POSLST IF :PLOT [PLOTPOINT] END TO NEW.SETX :X ORIGSETX :X IF :PLOT [PLOTPOINT] END TO NEW.BK :STEPS ORIGBK :STEPS IF :PLOT [PLOTPOINT] END TO NEW.SETY :Y ORIGSETY :Y IF :PLOT [PLOTPOINT] END TO NEW.FD :STEPS ORIGFD :STEPS IF :PLOT [PLOTPOINT] END TO NEW.SETPC :C ORIGSETPC :C IF NOT :PLOT [STOP] IF :C = 0 [STOP] SEND WORD "PS ITEM :C [1 2 3 4 1] END TO NEW.CS ORIGCS IF NOT :PLOT [STOP] PEN.POS 0 0 END TO NEW.TEXTSCREEN ORIGTEXTSCREEN IF NOT :PLOT [STOP] NOPLOT END TO NEW.DOT :LIST ORIGDOT :LIST IF NOT :PLOT [STOP] MAKE "X FIRST :LIST MAKE "Y LAST :LIST PEN.POS :X :Y SEND "PM1 PEN.POS XCOR YCOR END TO PLOTPOINT SEND WORD DRAW? SCALEPOINT END TO SEND :ITEM IF KEYP [IF RC = CHAR 3 [PAUSE]] SETWRITE :SLOT PR :ITEM SETWRITE [] END TO PEN.POS :X :Y SEND ( POS.PLOT :X :Y ) END TO PLOT MAKE "PLOT "TRUE pr[] PR [Logo will output to the] PR SE [Apple Color Plotter in Slot] :SLOT pr [] OPEN :SLOT SEND "SP0; SEND "WD\-165,\-140,165,140; WINDOW END TO NOPLOT MAKE "PLOT "FALSE pr [] PR [Logo has stopped outputting to the] PR [Apple Color Plotter] pr [] CLOSEALL END TO SETSLOT :NUM MAKE "SLOT :NUM END TO POS.PLOT :X :Y OP ( WORD "MA ( INT ( :X * 100 ) ) / 100 ", ( INT ( :Y * 100 ) ) / 100 ) END TO SCALEPOINT OP ( WORD INT ( XCOR * 1 ) ", INT ( YCOR * 1 ) ) END TO DRAW? IF ( LAST PEN ) = "N [OP "DA] [OP "MA] END MAKE "JUSTIFY "L MAKE "PLOT "FALSE MAKE "SLOT 1 MAKE "STARTUP [REDEF] TO HELLO MAKE "SLOT 1 PR [Apple Color Plotter / Logo Interface] PR [] PR [This Program takes about 75] PR [seconds to load from diskette.] PR [] PR [The Plotter Slot is Initially set to] TYPE ( SE [Slot] :SLOT ) PR [.] PR [] PR [If your plotter is in a different] PR [slot, use the SETSLOT command.] PR [] PR [Example: SETSLOT 1] PR [] MAKE "AIDS [ARCRIGHT ARCR ARCLEFT ARCL ARCL1 ARCR1 CIRCLER CIRCLEL] BURY :AIDS LOAD "PLOTSTUFF END TO ARCRIGHT :RADIUS :DEGREES ARCR1 .174532 * :RADIUS :DEGREES / 10 IF 0 = RE467MAINDER :DEGREES 10 [STOP] FD .174532 * :RADIUS / 20 / REMAINDER :DEGREES 10 RT REMAINDER :DEGREES 10 END TO ARCR :RADIUS :DEGREES ARCRIGHT :RADIUS :DEGREES END TO ARCLEFT :RADIUS :DEGREES ARCL1 .174532 * :RADIUS :DEGREES / 10 IF 0 = REMAINDER :DEGREES 10 [STOP] FD .174532 * :RADIUS / 20 / REMAINDER :DEGREES 10 LT REMAINDER :DEGREES 10 END TO ARCL :RADIUS :DEGREES ARCLEFT :RADIUS :DEGREES END TO ARCL1 :STEP :TIMES REPEAT :TIMES [LT 5 FD :STEP LT 5] END TO CIRCLEL :RADIUS ARCL1 .174532 * :RADIUS 36 END TO ARCR1 :STEP :TIMES REPEAT :TIMES [RT 5 FD :STEP RT 5] END TO CIRCLER :RADIUS ARCR1 .174532 * :RADIUS 36 END MAKE "STARTUP [IF NOT KEYP [HELLO]] TO UNICORN PLOT CS PU HT RT 90 BK 25 LT 90 FD 10 RT 90 PD SETPC 3 FD 26 LT 90 SETPC 5 FD 3 LT 90 FD 3 RT 90 FD 3 LT 90 FD 3 RT 90 FD 3 LT 90 FD 3 RT 90 FD 3 LT 90 FD 3 RT 90 FD 3 LT 90 FD 3 RT 90 FD 3 LT 90 FD 3 RT 90 FD 3 LT 90 FD 3 RT 90 FD 3 RT 90 FD 40 RT 90 FD 3 RT 90 FD 37 BK 37 LT 90 FD 3 RT 90 FD 34 BK 34 LT 90 FD 3 RT 90 FD 31 BK 31 LT 90 FD 3 RT 90 FD 28 BK 28 LT 90 FD 3 RT 90 FD 25 BK 25 LT 90 FD 3 RT 90 FD 22 BK 22 LT 90 FD 3 RT 90 FD 19 BK 19 LT 90 FD 3 RT 90 SETPC 3 FD 19 BK 25 RT 90 FD 30 RT8:; 90 FD 3 SETPC 4 LT 90 FD 20 RT 90 FD 2 RT 90 FD 20 SETPC 3 LT 90 FD 4 RT 90 PU FD 1 PD SETPC 2 FD 2 LT 90 FD 2 LT 90 FD 2 LT 90 FD 2 RT 90 PU FD 1 PD RT 90 SETPC 3 FD 11 RT 90 FD 7 RT 90 FD 9 LT 90 FD 51 LT 90 FD 12 RT 90 FD 21 RT 90 FD 3 RT 90 FD 18 LT 90 FD 14 RT 90 FD 3 BK 36 LT 90 FD 3 RT 90 FD 36 LT 90 BK 8 FD 59 LT 90 FD 36 RT 90 FD 3 RT 90 FD 36 LT 90 FD 3 RT 90 FD 28 LT 90 SETPC 1 FD 23 LT 90 FD 1 LT 90 FD 23 RT 90 FD 1 RT 90 FD 23 LT 90 FD 1 LT 90 FD 23 RT 90 FD 1 RT 90 FD 23 LT 90 FD 1 LT 90 FD 23 RT 90 FD 1 RT 90 FD 23 LT 90 FD 1 LT 90 FD 23 RT 90 FD 1 RT 90 FD 23 LT 90 FD 1 LT 90 FD 23 RT 90 FD 1 RT 90 FD 23 LT 90 FD 1 LT 90 FD 23 UNILEGEND NOPLOT ERALL END TO UNILEGEND SETSIZE 10 SETPC 2 SETJUSTIFY "C PEN.POS 0 90 LEGEND ["Logo Unicorn"] SETSIZE 8 PEN.POS 0 -90 LEGEND [Second Grade Entry] END MAKE "STARTUP [UNICORN] TO FIRSTGRADE PLOT CS LETTERS PU BK 50 RT 90 FD 40 SETPC 3 RT 90 PD FD 40 RT 90 FD 40 RT 90 BK 30 LT 90 FD 40 RT 90 BK 30 LT 90 FD 150 FIDO HT FIRSTLEGEND NOPLOT ERALL END TO FIDO SETPC 1 RT 90 FD 50 RT 90 FD 80 RT 90 FD 50 RT 90 FD 20 RT 90 FD 25 LT 90 FD 40 LT 90 FD 25 RT 90 FD 20 PU RT 90 FD 25 PD RT 90 BK 20 LT 90 FD 25 RT 90 FD 20 PU FD 60 RT 90 PD BK 40 RT 90 BK 60 LT 90 FD 40 LT 90 BK 40 PU RT 90 BK 10 PD BK 30 LT 90 PU BK 10 PD LT 90 BK 30 RT 90 FD 10 PU FD 20 RT 90 BK 20 PD FD 10 RT 90 BK 10 RT 90<>?@ FD 10 RT 90 BK 10 PU FD 20 RT 90 FD 20 RT 90 PD FD 10 RT 90 FD 5 HT END TO LETTERS FULLSCREEN PU SETPC 4 FD 115 RT 90 BK 50 PD BK 40 LT 90 BK 50 PU FD 25 PD LT 90 BK 40 PU BK 10 RT 90 FD 25 PD SETPC 5 BK 50 PU RT 90 FD 10 PD SETPC 3 LT 90 FD 50 RT 90 FD 40 RT 90 FD 25 RT 90 FD 40 PU BK 30 PD RT 90 BK 25 PU RT 90 FD 20 SETPC 4 PD FD 40 RT 90 BK 25 LT 90 BK 40 LT 90 FD 25 RT 90 FD 40 PU FD 10 PD SETPC 2 FD 40 PU BK 20 PD RT 90 FD 50 PU HOME SETPC 3 FD 45 RT 90 BK 70 PD BK 40 RT 90 FD 50 RT 90 BK 40 RT 90 FD 25 RT 90 BK 20 PU SETPC 2 FD 30 RT 90 FD 25 RT 90 RT 90 PD FD 50 RT 90 FD 40 RT 90 FD 25 RT 90 FD 40 PU BK 30 RT 90 PD BK 25 PU SETPC 3 RT 90 FD 20 PD LT 90 FD 50 RT 90 FD 40 RT 90 FD 50 PU BK 25 PD RT 90 FD 40 PU BK 50 RT 90 FD 25 SETPC 4 PD RT 90 FD 40 RT 90 FD 50 RT 90 FD 40 RT 90 FD 50 SETPC 5 PU RT 90 FD 50 PD FD 40 PU RT 90 FD 50 RT 90 PD FD 40 RT 90 FD 25 RT 90 FD 40 PU BK 40 LT 90 PD FD 25 END TO FIRSTLEGEND SETPC 4 SETSIZE 10 SETJUSTIFY "L PEN.POS -10 -98 LEGEND ["Fido"] PEN.POS 50 -70 LEGEND [goes] PEN.POS 110 -40 LEGEND [to] SETSIZE 6 SETJUSTIFY "C SETPC 3 PEN.POS 0 -120 LEGEND [First Grade Entry] END MAKE "STARTUP [FIRSTGRADE] TO TURTLE ARCR 30 180 REPEAT 5 [ARCR 6 180 LT 180] RT 120 FD 3 RT 20 FD 3 RT 30 FD 3 RT 20 BK 3 LT 20 BK 2 LT 20 BK 3 LT 20 BK 3 SETH 0 PU BK 3 RT 90 FD 6 LT 90 PD BK 5 LT 45 BK 2 LT 45 BK 10 RT 90 FD 2 LT 30 FD 5 SETH 0 RT 90 PU FD 30 LT 90 PD BK 5 LT 45 BK 2 LT 45 BK 10 RT 90 FD 2 LT 30 FD 5 SETH 0 PU FD 10 LT 45 FD 10 SETH 0 PD CIRCLER 4 PU LT 45 FD 15 RT 45 PD CIRCLER 4 PU LT 90 FD 10 PD CIRCLER 4 PU LT 35 FD 15 PD CIRCLER 4 PU SETH 0 BK 5 RT 90 FD 10 LT 90 PD CIRCLER 4 PU RT 90 FD 36 LT 30 PD FD 2 LT 2ACDEF0 FD 5 LT 10 FD 5 LT 20 FD 30 RT 10 FD 5 RT 20 FD 5 RT 20 FD 5 RT 20 FD 5 RT 20 FD 3 RT 10 FD 1 ARCR 10 120 RT 10 FD 5 RT 5 FD 5 LT 30 FD 10 LT 30 FD 15 RT 20 FD 10 RT 30 FD 15 SETH 0 PU FD 55 RT 90 FD 25 PD LT 90 CIRCLER .3 PU RT 180 FD 5 LT 90 FD 3 RT 90 PD ARCL 3 120 END TO TURTLEFAMILY PLOT CS FULLSCREEN HT PU BK 60 RT 90 FD 25 LT 90 PD SETPC 2 TURTLE PU BK 93 SETH 0 LT 90 FD 75 RT 90 PD BABYTURTLE PU SETH 0 BK 14 RT 90 BK 110 LT 90 PD BABYTURTLE HT PU SETH 0 SETX -55 SETY 110 PD SETPC 1 REPEAT 6 [ARCR 10 180 LT 180] REPEAT 3 [BUBBLE] TURTLELEGEND NOPLOT ERALL END TO BABYTURTLE ARCR 20 180 REPEAT 4 [ARCR 5 180 LT 180] RT 120 FD 2 RT 20 FD 3 RT 30 FD 2 RT 20 BK 3 LT 20 BK 2 LT 20 BK 2 SETH 0 PU BK 2 RT 90 FD 6 LT 90 PD BK 4 LT 45 BK 2 LT 45 BK 5 RT 90 FD 2 LT 30 FD 2 SETH 0 PU FD 3 RT 90 FD 20 LT 90 BK 1 PD BK 4 LT 45 BK 2 LT 45 BK 5 RT 90 FD 2 LT 30 FD 2 SETH 0 PU LT 45 FD 10 SETH 0 PD CIRCLER 3 LT 45 PU FD 12 SETH 0 PD CIRCLER 3 PU LT 120 FD 10 SETH 0 PD CIRCLER 3 PU RT 90 FD 30 PD LT 50 FD 5 LT 30 FD 10 RT 30 ARCR 5 180 FD 5 LT 20 FD 5 RT 20 FD 5 RT 30 FD 5 SETH 0 PU FD 18 RT 90 FD 10 PD FD 1 PX BK 1 PU BK 2 RT 45 FD 3 PD FD 2 END TO BUBBLE RT 90 REPEAT 6 [ARCR 10 180 LT 180] END TO TURTLELEGEND SETJUSTIFY "C SETPC 4 SETSIZE 15 PEN.POS 0 80 LEGEND [Turtle] PEN.POS 0 40 LEGEND [Contest] SETSIZE 5 PEN.POS 0 -80 LEGEND [The First, Second, Third and Fourth Graders] PEN.POS 0 -90 LEGEND [Created their "Logo" Masterpieces.] PEN.POS 0 -100 LEGEND [Take a peek at the school finalists...] END MAKE "STARTUP [TURTLEFAMILY]