SAMPLER h DSK   A_PEOPLE `"0P_FUNSAMP  K6P_EDSAMP  .BvA_COLORS M`A_DESIGN \dA_ELEPHANTw0A_FISH A_FROG @A_HORSE  A_SPRING 2 <<<<<<<<<<<<<<?x<??9g3 ̘0`??x< :VX - 5 XCOR < :VX + 5 IFT TEST BOTH YCOR > :HY - 5 YCOR < :HY + 5 IFT FL IFT CALL 0 "MAGIC END TO HEAR :S IF F :S = "Q CALL 0 "MAGIC VANISH STOP CALL F BF :S "X TEST NUMBER? :X IFF STOP IF F :S = "F FR :X IF F :S = "L LO :X IF F :S = "R RA :X IF F :S = "B BO :X END TO MM :S TEST NUMBER? F BF :S IFF STOP CALL [Q ] "M TEST :S = F :M IFF AG :S END TO CC HT CALL XCOR "VX CALL YCOR "HY SX XCOR - 2 REPEAT 36 [FD 1 RT 10 ] SXY RANDOM * 25 RANDOM * 22 SH RANDOM * 36 ST PD END TO HIT IF :MAGIC = 0 WAIT 150 VANISH STOP CALL RL "S MM :S HEAR :S CURR HIT END TO CIR TELL TURTLE SXY ( - RANDOM * - RANDOM * 10 ) ( RANDOM * 8 ) CC END TO VANISH TELL BACKGROUND SC 7 NOTURTLE CS TELL :ALL SC 0 SH 0 SS 0 CARRY 0 SXY 124 98 END TO LINE1 CALL RC "X IF :X = "Q STOP IF :X = "F TELL TURTLE FD 12 IF :X = "L TELL TURTLE LT 45 IF :X = "R TELL TURTLE RT 45 LINE1 END TO TARGET VANISH CALL 1 "MAGIC CIR HIT END TO PAINT VANISH CS HOME TELL BACKGROUND SC 7 TELL TURTLE PD CALL 1 "A CALL 1 "B SC SE :A :B PAINT1 END TO LINE VANISH CS TELL TURTLE HOME LINE1 END TO HELP NOTURTLE CS CB :CYAN TELL :ALL SC :CLEAR REPEAT 4 [PRINT [ ] ] PRINT [TYPE LINE AND PRESS "ENTER" ] PRINT [ ] PRINT [OR ] PRINT [ ] PRINT [TYPE PAINT AND PRESS "ENTER" ] PRINT [ ] PRINT [OR ] PRINT [ ] PRINT [TYPE TARGET AND PRESS "ENTER". ] REPEAT 2 [PRINT [ ] ] PRINT [PRESS "Q" TO STOP AN ACTIVITY. ] END MAKE "CAR 6 MAKE "GARAGE 7 MAKE "STOPFLAG 1 MAKE "A 28 MAKE "B 28 MAKE "M [ ] MAKE "HY 24 MAKE "VX 14 MAKE "S [F 40 ] MAKE "MAGIC 0 MAKE "BOX 5 MAKE "BALL 4 MAKE "ROCKET 3 MAKE "TRUCK 2 MAKE "PLANE 1 MAKE "WEST 270 MAKE "SOUTH 180 MAKE "EAST 90 MAKE "NORTH 0 MAKE "WHITE 15 MAKE "GRAY 14 MAKE "PURPLE 13 MAKE "OLIVE 12 MAKE "LEMON 11 MAKE "YELLOW 10 MAKE "ORANGE 9 MAKE "RUST 8 MAKE "CYAN 7 MAKE "RED 6 MAKE "SKY 5 MAKE "BLUE 4 MAKE "LIME 3 MAKE "GREEN 2 MAKE "BLACK 1 MAKE "CLEAR 0 MAKE "ALL [0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 1<<<<<<<<<<<<<<?x<???Ϗ???ϏϏ?ϟ? @@ @`8!!=ĺ"1 L @@ 25 IFT STOP CS TELL :X CARRY :X SXY 40 40 SC 1 MS :X END TO VANISH TELL BACKGROUND SC 7 NOTURTLE CS TELL :ALL SC 0 SH 0 SS 0 CARRY 0 SXY 124 98 END TO LISTEN TELL WHO CALL RC "X IF :X = "D SH 90 FD 8 IF :X = "E SH 0 FD 8 IF :X = "S SH 270 FD 8 IF :X = "X SH 180 FD 8 IF :X = "Q STOP LISTEN END TO HELP CLEARSCREEN COLORBACKGROUND :CYAN NOTURTLE PRINT [ ] PRINT [TYPE GRID, A SPACE, AND ] PRINT [ ] PRINT [A NUMBER FROM 15 TO 25, ] PRINT [ ] PRINT [THEN PRESS "ENTER". ] PRINT [ ] PRINT [PRESS "BACK" WHEN YOU FINISH ] PRINT [ ] PRINT [DRAWING THE GRID. ] REPEAT 2 [PRINT [ ] ] PRINT [TYPE LISTEN AND PRESS "ENTER". ] PRINT [USE THE ARROW KEYS TO MOVE ] PRINT [ ] PRINT [THE DESIGN. ] PRINT [ ] PRINT [PRESS "Q" TO STOP THE ] PRINT [ ] PRINT [ACTIVITY. ] END MAKE "ANSW [0 ] MAKE "AIRPLANE 1 MAKE "STOPFLAG 0 MAKE "GARAGE 7 MAKE "CAR 6 MAKE "BOX 5 MAKE "BALL 4 MAKE "ROCKET 3 MAKE "TRUCK 2 MAKE "PLANE 1 MAKE "WEST 270 MAKE "SOUTH 180 MAKE "EAST 90 MAKE "NORTH 0 MAKE "WHITE 15 MAKE "GRAY 14 MAKE "PURPLE 13 MAKE "OLIVE 12 MAKE "LEMON 11 MAKE "YELLOW 10 MAKE "ORANGE 9 MAKE "RUST 8 MAKE "CYAN 7 MAKE "RED 6 MAKE "SKY 5 MAKE "BLUE 4 MAKE "LIME 3 MAKE "GREEN 2 MAKE "BLACK 1 MAKE "CLEAR 0 MAKE "ALL [0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 ] 9 30 31 ] 7 18 19 20 21 22 23 24 25 26 27 28 29 30 31 ] 29 30 31 ] <<<<<<<<<<<<<<?x<??008>??????????????           @@ @`8!!=ĺ"1 L @@ >6 @@5 00` `@?> @?p@À<>>6 @1 @`?>?@`@@`?lD        @@ @`8!!=ĺ"1 L @@