LOGO/CURR h DSK ??A_EARLYCONR"A_PREOP/1 = A_PREOP/2 PPA_PREOP/3 fp<<<<<<<<<<<<<<?x<????? ?9g3 ̘0`??px< :VX - 5 XCOR < :VX + 5 IFT TEST BOTH YCOR > :HY - 5 YCOR < :HY + 5 IFT FL IFT CALL 0 "MAGIC END TO AG :S IF :M = [ ] STOP TEST :S = F BF :M IFF CALL BF :M "M AG :S END TO FR :X TEST :X < 101 IFT FD :X END TO LO :X TEST :X < 361 IFT LT :X END TO RA :X TEST :X < 361 IFT RT :X END TO BO :X TEST :X < 101 IFT BACK :X END TO FL REPEAT 4 [COLORBACKGROUND RANDOM * 2 WAIT 40 ] END TO LOR :X TEST :X < 361 IFT LT :X END TO BB :S TEST BOTH NUMBER? F BF :S F BF :S < 101 IFT BACK F BF :S END TO RE C IF :M = [ ] STOP TEST :C = F BF :M IFF CALL BF :M "M RE :C END TO WI TELL 1 SX :V - 7 SY :H + 9 CARRY :BALL SC RANDOM * 3 WAIT 100 END TO CI REPEAT 36 [RT 10 ] END TO REDO :C IF :M = [ ] STOP TEST :C = F BF :M IFF CALL BF :M "M REDO :C END TO CH TEST BOTH XCOR > :V - 10 XCOR < :V + 10 IFT TEST BOTH YCOR > :H - 10 YCOR < :H + 10 IFT WI IFT CALL 0 "TAG END TO LI :C IF F :C = "Q CALL 0 "TAG STOP IF F :C = "R RT 10 STOP IF F :C = "L LT 10 STOP CALL F BF :C "X TEST NUMBER? :X IFF STOP TEST :X < 30 IFF CI STOP TEST F :C = "F IFT FD F BF :C STOP TEST F :C = "B IFT BK :X STOP END TO TT :C TEST NUMBER? F BF :C IFF STOP CALL [Q R L F B ] "M TEST :C = F :M IFF REDO :C END TO SP HT SX :V - 11 REPEAT 36 [FD 2 RT 10 ] SX :V - 5 REPEAT 18 [FD 2 RT 20 ] ST END TO SUPER IF :TAG = 0 STOP CALL RL "C TT :C LI :C CH SUPER END TO PL CS TELL TURTLE SXY ( RANDOM * 10 ) ( RANDOM * 8 ) CALL XCOR "V CALL YCOR "H PD SP SXY RANDOM * - 10 RANDOM * - 5 END TO AIM VANISH CALL 1 "TAG PL SUPER END TO VANISH TELL BACKGROUND SC 7 CS NOTURTLE TELL :ALL CARRY 0 SC 0 SH 0 SS 0 SXY 124 98 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 PAINT1 CALL RC "X CALL :A + 1 "A CALL :B + 1 "B IF :X = "S P :A :B IF :X = "F TELL TURTLE FD 10 IF :X = "Q STOP IF :X = "B TELL TURTLE BK 10 IF :X = "R TELL TURTLE RT 45 IF :X = "L TELL TURTLE LT 45 IF :X = "P TELL TURTLE PD IF :X = "N TELL TURTLE PU IF :X = "C TELL BACKGROUND SC COLOR + 1 PAINT1 END TO P :A :B TELL TURTLE SC SE :A :B 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 HALT TELL :ALL SH 0 SS 0 END TO MOVE :X TEST :X > 49 IFT TELL :ALL SS 0 STOP TELL :ALL SH 90 SS :X END TO GRID :X TEST :X < 15 IFT STOP IFF TEST :X > 25 IFT STOP CS TELL :X CARRY :X SXY 40 40 SC 1 MS :X END MAKE "CAR 6 MAKE "GARAGE 7 MAKE "STOPFLAG 0 MAKE "AIRPLANE 1 MAKE "ANSW [0 ] MAKE "MAGIC 0 MAKE "HY 24 MAKE "VX 10 MAKE "M [ ] MAKE "B 66 MAKE "A 66 MAKE "S [F 5 ] MAKE "X 5 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 ] 0 31 ] <<<<<<<<<<<<<<?x<????? ?9g3 ̘0`??px<