#� NOTE - Save Before Running!!!
� ************************
� *       LOGO +         *
(� * BY T.J. Grantham     *
2� *(C) ELECTRON USER 1990*
<� ************************
F�*KEY 1,PU|MHT|MCIRCLE 100|MFILL|MCIRCLE 200|MFD 150|MSETPC 1|MFILL|MBK 300|MFILL|MFD 150|MRT 90|MFD 150|MFILL|MBK 300|MFILL|MFD 150|MHOME|MSETPC 3|MOVAL 200,300|MFD 250|MSETPC 2|MFILL|MBK 500|MFILL|MHOME|MPD|M
P� 1
Z� 129:�
d�28,0,31,39,26,12
n�24,&C;&C4;&4F3;&3F7;
x�
�#� 23,124,28,28,28,28,28,28,28,0
�� 129:�
�X=640:Y=608:OX=X:OY=Y
�"R%=0:col%=7:noturt%=�:nopen%=�
�Q�"Welcome to Logo +"'"BY T.J.Grantham"'"(C) Electron User 1990"'"Press A Key"
�A=�
�1�:�"Logo +|BY T.J.Grantham|(C) Electron User"
��28,0,31,39,27,12 
�� 128:�
��X%,Y%:�turtle
�
��err
�
� type%=0
�'��,COM$:�COM$<>"":COM$=�case(COM$)

S$="FN"+�symb

�abort �.

Q%=�(S$)

"�pen

,�turtle

6�.

@0��skip :�COM$=32�COM$=�COM$,2):��COM$<>32:�

J�

Tݤsymb:� L$

^	�skip

hS%=�COM$," ")

r.�S%=0� type%=1:L$=COM$:COM$="":parm%=0:=L$

|L$=�COM$,S%-1)

�COM$=�COM$,S%+1)

�	�skip

�parm%=�COM$

�B�COM$<=�"9"��COM$>=�"0" �COM$=�COM$,2):��COM$>�"9"��COM$<�"0"

�ݤCLEARSCREEN:=�CS

�type%=2:=L$

�ݤCAT:*.

��turtle:=0

�#ݤFD:�turtle:�forward(parm%):=0

�ݤFORWARD:=�FD

�$ݤBK:�turtle:�forward(-parm%):=0

�ݤBACK:=�BK

� ݤRT:�turtle:�turn(parm%):=0
ݤRIGHT:=�RT
!ݤLT:�turtle:�turn(-parm%):=0
ݤLEFT:=�LT
&ݤOSCLI:�turtle
0
� COM$
:=0
DݤHT:�turtle:noturt%=�:=0
N ݤKEY:K$=�(parm%):CODE$=COM$
X*O$="KEY "+K$+" "+CODE$:� O$:�turtle:=0
bݤHIDETURTLE:=�HT
lݤST:�turtle:noturt%=�:=0
vݤSHOWTURTLE:=�ST
�ݤTURTLE:=0
�ݤTURT=0
�ݤPU:�turtle:nopen%=�:=0
�ݤPENUP:=�PU
�ݤPD:�turtle:nopen%=�:=0
�ݤPENDOWN:=�PD
�ݤCI:=�CIRCLE
�TݤCIRCLE:�turtle:� X,Y+parm%:� A=0 � 6.3 � .1:� X+parm%*�(A),Y+parm%*�(A):� A:=0
ЁݤOVAL:WW%=parm%:CH=�COM$:�turtle:CH=CH-1:parm2%=�(�COM$,CH)):� X,Y+parm2%:� A=0 � 6.3 � .1:� X+WW%*�(A),Y+parm2%*�(A):� A:=0
�ݤOV:=�OVEL
�&ݤSETPC:�turtle:col%=parm%�7:=0   
�ݤSETPENCOLOUR:=�PC   
�ݤNEW:*MOUNT
*DIR
�turtle:=0
2ݤSAVE:�turtle:� "SAVE "+COM$+" 3000 7100":=0 
 $ݤLOAD:�turtle:� "LOAD "+COM$:=0
* 
4 
>1ݤPRINT:�turtle:� N=1 � parm% :� COM$:�N:=0  
HݤP:=�PRINT  
RݤCL:�turtle:�:=0
\ݤCLEAN:=�CL
f&ݤHOME:�turtle:X=640:Y=608:R%=0:=0
p6ݤCS:�turtle:noturt%=�:X=640:Y=608:R%=0:�:� X,Y:=0
zݤCT:�turtle:�:=0
�ݤCLEARTEXT:=�CT
�cݤREPEAT:�I%,times%,REP$:times%=parm%:�times%<1:�"REPEAT must be done at least once":�turtle:=0
�S%=�COM$,"[")
���S%=0�"REPEAT must be followed by a number and"'"then, in brackets, a list of commands."'"e.g. REPEAT 4 [FORWARD 100 RIGHT 90 ]":�turtle:=0
�COM$=�COM$,S%+1):REP$=COM$
��I%=1�times%
�
COM$=REP$
�S$="FN"+�symb
��abort:�turtle:=0
�Q%=�(S$)
��pen
��turtle
�	�skip
*�COM$=�"]" �:COM$=�COM$,2):�turtle:=0
	�dJC
ݤcase(A$)�I%,B$,ch%
$
�I%=1��A$
.ch%=��A$,I%)
8#�ch%>=�"a"�ch%<=�"z" ch%=ch%-32
BB$=B$+�ch%:�:=B$
L	��err
V�=17�DFE
`+�=29�"I don't know how to "�S$,3):�   
j>�"I have an error the code is ";�;�(11):�:�" Is the error"
t�
~��turn(D%)
�R%=(R%+D%) � 360
��
���forward(D%)
�X=�(X+D%*��R%+0.5)
�Y=�(Y+D%*��R%+0.5)
��
���turtle
��x,y:x=X:y=Y
�X�noturt% �:�3,col%:�X+48*��R%,Y+48*��R%:�X-12*��R%,Y+12*��R%:�85,X+12*��R%,Y-12*��R%
��0,col%:�x,y:�x,y:�
�	��pen
��X<>OX � Y<>OY �movepen
OX=X:OY=Y:�


��movepen
�nopen% � X,Y � � X,Y
�
(ݤabort
2&�(-2)��"Interrupted in : "COM$:=�
<=�
F� ESCAPE WAS PRESSED
P� '"STOPPED!!!" 
Z�
d� �FILL
n�turtle
x� 0,col%
�	UP%=4
�I3%=X:J3%=Y
��
�� 77,I3%,J3%
�J3%=J3%+UP%
�� �I3%,J3%) � J3%>&400
�GI3%=X:J3%=Y
�� 
�� 77,I3%,J3%
�J3%=J3%-UP%
�� �I3%,J3%) � J3%<&C0
�=0
�
ݤHELP
�turtle
/� "FILL,FD,RT,LT,BK,PU,PD,CIRCLE,OVAL,HOME"
6� "SAVE,LOAD,ST,HT,CAT,NEW,OSCLI,PRINT,TEXTTURTLE"
"=0
,� �TEXT
6�turtle
@� 5
J
� COM$
T� 4
^=0
�

00000000  0d 00 0a 23 f4 20 4e 4f  54 45 20 2d 20 53 61 76  |...#. NOTE - Sav|
00000010  65 20 42 65 66 6f 72 65  20 52 75 6e 6e 69 6e 67  |e Before Running|
00000020  21 21 21 0d 00 14 1e f4  20 2a 2a 2a 2a 2a 2a 2a  |!!!..... *******|
00000030  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000040  2a 0d 00 1e 1e f4 20 2a  20 20 20 20 20 20 20 4c  |*..... *       L|
00000050  4f 47 4f 20 2b 20 20 20  20 20 20 20 20 20 2a 0d  |OGO +         *.|
00000060  00 28 1e f4 20 2a 20 42  59 20 54 2e 4a 2e 20 47  |.(.. * BY T.J. G|
00000070  72 61 6e 74 68 61 6d 20  20 20 20 20 2a 0d 00 32  |rantham     *..2|
00000080  1e f4 20 2a 28 43 29 20  45 4c 45 43 54 52 4f 4e  |.. *(C) ELECTRON|
00000090  20 55 53 45 52 20 31 39  39 30 2a 0d 00 3c 1e f4  | USER 1990*..<..|
000000a0  20 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ***************|
000000b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 00 46 d5 2a 4b 45  |*********..F.*KE|
000000c0  59 20 31 2c 50 55 7c 4d  48 54 7c 4d 43 49 52 43  |Y 1,PU|MHT|MCIRC|
000000d0  4c 45 20 31 30 30 7c 4d  46 49 4c 4c 7c 4d 43 49  |LE 100|MFILL|MCI|
000000e0  52 43 4c 45 20 32 30 30  7c 4d 46 44 20 31 35 30  |RCLE 200|MFD 150|
000000f0  7c 4d 53 45 54 50 43 20  31 7c 4d 46 49 4c 4c 7c  ||MSETPC 1|MFILL||
00000100  4d 42 4b 20 33 30 30 7c  4d 46 49 4c 4c 7c 4d 46  |MBK 300|MFILL|MF|
00000110  44 20 31 35 30 7c 4d 52  54 20 39 30 7c 4d 46 44  |D 150|MRT 90|MFD|
00000120  20 31 35 30 7c 4d 46 49  4c 4c 7c 4d 42 4b 20 33  | 150|MFILL|MBK 3|
00000130  30 30 7c 4d 46 49 4c 4c  7c 4d 46 44 20 31 35 30  |00|MFILL|MFD 150|
00000140  7c 4d 48 4f 4d 45 7c 4d  53 45 54 50 43 20 33 7c  ||MHOME|MSETPC 3||
00000150  4d 4f 56 41 4c 20 32 30  30 2c 33 30 30 7c 4d 46  |MOVAL 200,300|MF|
00000160  44 20 32 35 30 7c 4d 53  45 54 50 43 20 32 7c 4d  |D 250|MSETPC 2|M|
00000170  46 49 4c 4c 7c 4d 42 4b  20 35 30 30 7c 4d 46 49  |FILL|MBK 500|MFI|
00000180  4c 4c 7c 4d 48 4f 4d 45  7c 4d 50 44 7c 4d 0d 00  |LL|MHOME|MPD|M..|
00000190  50 07 eb 20 31 0d 00 5a  0b fb 20 31 32 39 3a db  |P.. 1..Z.. 129:.|
000001a0  0d 00 64 15 ef 32 38 2c  30 2c 33 31 2c 33 39 2c  |..d..28,0,31,39,|
000001b0  32 36 2c 31 32 0d 00 6e  19 ef 32 34 2c 26 43 3b  |26,12..n..24,&C;|
000001c0  26 43 34 3b 26 34 46 33  3b 26 33 46 37 3b 0d 00  |&C4;&4F3;&3F7;..|
000001d0  78 05 da 0d 00 82 23 ef  20 32 33 2c 31 32 34 2c  |x.....#. 23,124,|
000001e0  32 38 2c 32 38 2c 32 38  2c 32 38 2c 32 38 2c 32  |28,28,28,28,28,2|
000001f0  38 2c 32 38 2c 30 0d 00  8c 0b fb 20 31 32 39 3a  |8,28,0..... 129:|
00000200  db 0d 00 96 19 58 3d 36  34 30 3a 59 3d 36 30 38  |.....X=640:Y=608|
00000210  3a 4f 58 3d 58 3a 4f 59  3d 59 0d 00 a0 22 52 25  |:OX=X:OY=Y..."R%|
00000220  3d 30 3a 63 6f 6c 25 3d  37 3a 6e 6f 74 75 72 74  |=0:col%=7:noturt|
00000230  25 3d a3 3a 6e 6f 70 65  6e 25 3d a3 0d 00 aa 51  |%=.:nopen%=....Q|
00000240  f1 22 57 65 6c 63 6f 6d  65 20 74 6f 20 4c 6f 67  |."Welcome to Log|
00000250  6f 20 2b 22 27 22 42 59  20 54 2e 4a 2e 47 72 61  |o +"'"BY T.J.Gra|
00000260  6e 74 68 61 6d 22 27 22  28 43 29 20 45 6c 65 63  |ntham"'"(C) Elec|
00000270  74 72 6f 6e 20 55 73 65  72 20 31 39 39 30 22 27  |tron User 1990"'|
00000280  22 50 72 65 73 73 20 41  20 4b 65 79 22 0d 00 b4  |"Press A Key"...|
00000290  07 41 3d a5 0d 00 be 31  db 3a f1 22 4c 6f 67 6f  |.A=....1.:."Logo|
000002a0  20 2b 7c 42 59 20 54 2e  4a 2e 47 72 61 6e 74 68  | +|BY T.J.Granth|
000002b0  61 6d 7c 28 43 29 20 45  6c 65 63 74 72 6f 6e 20  |am|(C) Electron |
000002c0  55 73 65 72 22 0d 00 c8  16 ef 32 38 2c 30 2c 33  |User".....28,0,3|
000002d0  31 2c 33 39 2c 32 37 2c  31 32 20 0d 00 d2 0b fb  |1,39,27,12 .....|
000002e0  20 31 32 38 3a db 0d 00  dc 12 ec 58 25 2c 59 25  | 128:......X%,Y%|
000002f0  3a f2 74 75 72 74 6c 65  0d 00 e6 0a ee 85 f2 65  |:.turtle.......e|
00000300  72 72 0d 00 f0 0d f5 20  74 79 70 65 25 3d 30 0d  |rr..... type%=0.|
00000310  00 fa 27 f5 e8 86 2c 43  4f 4d 24 3a fd 43 4f 4d  |..'...,COM$:.COM|
00000320  24 3c 3e 22 22 3a 43 4f  4d 24 3d a4 63 61 73 65  |$<>"":COM$=.case|
00000330  28 43 4f 4d 24 29 0d 01  04 11 53 24 3d 22 46 4e  |(COM$)....S$="FN|
00000340  22 2b a4 73 79 6d 62 0d  01 0e 0e e7 a4 61 62 6f  |"+.symb......abo|
00000350  72 74 20 fd 2e 0d 01 18  0c 51 25 3d a0 28 53 24  |rt ......Q%=.(S$|
00000360  29 0d 01 22 08 f2 70 65  6e 0d 01 2c 0b f2 74 75  |).."..pen..,..tu|
00000370  72 74 6c 65 0d 01 36 06  fd 2e 0d 01 40 30 dd f2  |rtle..6.....@0..|
00000380  73 6b 69 70 20 3a e7 97  43 4f 4d 24 3d 33 32 f5  |skip :..COM$=32.|
00000390  43 4f 4d 24 3d c1 43 4f  4d 24 2c 32 29 3a fd 97  |COM$=.COM$,2):..|
000003a0  43 4f 4d 24 3c 3e 33 32  3a e1 0d 01 4a 05 e1 0d  |COM$<>32:...J...|
000003b0  01 54 0f dd a4 73 79 6d  62 3a ea 20 4c 24 0d 01  |.T...symb:. L$..|
000003c0  5e 09 f2 73 6b 69 70 0d  01 68 11 53 25 3d a7 43  |^..skip..h.S%=.C|
000003d0  4f 4d 24 2c 22 20 22 29  0d 01 72 2e e7 53 25 3d  |OM$," ")..r..S%=|
000003e0  30 8c 20 74 79 70 65 25  3d 31 3a 4c 24 3d 43 4f  |0. type%=1:L$=CO|
000003f0  4d 24 3a 43 4f 4d 24 3d  22 22 3a 70 61 72 6d 25  |M$:COM$="":parm%|
00000400  3d 30 3a 3d 4c 24 0d 01  7c 12 4c 24 3d c0 43 4f  |=0:=L$..|.L$=.CO|
00000410  4d 24 2c 53 25 2d 31 29  0d 01 86 14 43 4f 4d 24  |M$,S%-1)....COM$|
00000420  3d c1 43 4f 4d 24 2c 53  25 2b 31 29 0d 01 90 09  |=.COM$,S%+1)....|
00000430  f2 73 6b 69 70 0d 01 9a  0f 70 61 72 6d 25 3d bb  |.skip....parm%=.|
00000440  43 4f 4d 24 0d 01 a4 42  e7 97 43 4f 4d 24 3c 3d  |COM$...B..COM$<=|
00000450  97 22 39 22 84 97 43 4f  4d 24 3e 3d 97 22 30 22  |."9"..COM$>=."0"|
00000460  20 f5 43 4f 4d 24 3d c1  43 4f 4d 24 2c 32 29 3a  | .COM$=.COM$,2):|
00000470  fd 97 43 4f 4d 24 3e 97  22 39 22 84 97 43 4f 4d  |..COM$>."9"..COM|
00000480  24 3c 97 22 30 22 0d 01  ae 16 dd a4 43 4c 45 41  |$<."0"......CLEA|
00000490  52 53 43 52 45 45 4e 3a  3d a4 43 53 0d 01 b8 0f  |RSCREEN:=.CS....|
000004a0  74 79 70 65 25 3d 32 3a  3d 4c 24 0d 01 c2 0c dd  |type%=2:=L$.....|
000004b0  a4 43 41 54 3a 2a 2e 0d  01 cc 0e f2 74 75 72 74  |.CAT:*......turt|
000004c0  6c 65 3a 3d 30 0d 01 d6  23 dd a4 46 44 3a f2 74  |le:=0...#..FD:.t|
000004d0  75 72 74 6c 65 3a f2 66  6f 72 77 61 72 64 28 70  |urtle:.forward(p|
000004e0  61 72 6d 25 29 3a 3d 30  0d 01 e0 12 dd a4 46 4f  |arm%):=0......FO|
000004f0  52 57 41 52 44 3a 3d a4  46 44 0d 01 ea 24 dd a4  |RWARD:=.FD...$..|
00000500  42 4b 3a f2 74 75 72 74  6c 65 3a f2 66 6f 72 77  |BK:.turtle:.forw|
00000510  61 72 64 28 2d 70 61 72  6d 25 29 3a 3d 30 0d 01  |ard(-parm%):=0..|
00000520  f4 0f dd a4 42 41 43 4b  3a 3d a4 42 4b 0d 01 fe  |....BACK:=.BK...|
00000530  20 dd a4 52 54 3a f2 74  75 72 74 6c 65 3a f2 74  | ..RT:.turtle:.t|
00000540  75 72 6e 28 70 61 72 6d  25 29 3a 3d 30 0d 02 08  |urn(parm%):=0...|
00000550  10 dd a4 52 49 47 48 54  3a 3d a4 52 54 0d 02 12  |...RIGHT:=.RT...|
00000560  21 dd a4 4c 54 3a f2 74  75 72 74 6c 65 3a f2 74  |!..LT:.turtle:.t|
00000570  75 72 6e 28 2d 70 61 72  6d 25 29 3a 3d 30 0d 02  |urn(-parm%):=0..|
00000580  1c 0f dd a4 4c 45 46 54  3a 3d a4 4c 54 0d 02 26  |....LEFT:=.LT..&|
00000590  13 dd a4 4f 53 43 4c 49  3a f2 74 75 72 74 6c 65  |...OSCLI:.turtle|
000005a0  0d 02 30 0a ff 20 43 4f  4d 24 0d 02 3a 06 3d 30  |..0.. COM$..:.=0|
000005b0  0d 02 44 1d dd a4 48 54  3a f2 74 75 72 74 6c 65  |..D...HT:.turtle|
000005c0  3a 6e 6f 74 75 72 74 25  3d b9 3a 3d 30 0d 02 4e  |:noturt%=.:=0..N|
000005d0  20 dd a4 4b 45 59 3a 4b  24 3d c3 28 70 61 72 6d  | ..KEY:K$=.(parm|
000005e0  25 29 3a 43 4f 44 45 24  3d 43 4f 4d 24 0d 02 58  |%):CODE$=COM$..X|
000005f0  2a 4f 24 3d 22 4b 45 59  20 22 2b 4b 24 2b 22 20  |*O$="KEY "+K$+" |
00000600  22 2b 43 4f 44 45 24 3a  ff 20 4f 24 3a f2 74 75  |"+CODE$:. O$:.tu|
00000610  72 74 6c 65 3a 3d 30 0d  02 62 15 dd a4 48 49 44  |rtle:=0..b...HID|
00000620  45 54 55 52 54 4c 45 3a  3d a4 48 54 0d 02 6c 1d  |ETURTLE:=.HT..l.|
00000630  dd a4 53 54 3a f2 74 75  72 74 6c 65 3a 6e 6f 74  |..ST:.turtle:not|
00000640  75 72 74 25 3d a3 3a 3d  30 0d 02 76 15 dd a4 53  |urt%=.:=0..v...S|
00000650  48 4f 57 54 55 52 54 4c  45 3a 3d a4 53 54 0d 02  |HOWTURTLE:=.ST..|
00000660  80 0f dd a4 54 55 52 54  4c 45 3a 3d 30 0d 02 8a  |....TURTLE:=0...|
00000670  0c dd a4 54 55 52 54 3d  30 0d 02 94 1c dd a4 50  |...TURT=0......P|
00000680  55 3a f2 74 75 72 74 6c  65 3a 6e 6f 70 65 6e 25  |U:.turtle:nopen%|
00000690  3d b9 3a 3d 30 0d 02 9e  10 dd a4 50 45 4e 55 50  |=.:=0......PENUP|
000006a0  3a 3d a4 50 55 0d 02 a8  1c dd a4 50 44 3a f2 74  |:=.PU......PD:.t|
000006b0  75 72 74 6c 65 3a 6e 6f  70 65 6e 25 3d a3 3a 3d  |urtle:nopen%=.:=|
000006c0  30 0d 02 b2 12 dd a4 50  45 4e 44 4f 57 4e 3a 3d  |0......PENDOWN:=|
000006d0  a4 50 44 0d 02 bc 11 dd  a4 43 49 3a 3d a4 43 49  |.PD......CI:=.CI|
000006e0  52 43 4c 45 0d 02 c6 54  dd a4 43 49 52 43 4c 45  |RCLE...T..CIRCLE|
000006f0  3a f2 74 75 72 74 6c 65  3a ec 20 58 2c 59 2b 70  |:.turtle:. X,Y+p|
00000700  61 72 6d 25 3a e3 20 41  3d 30 20 b8 20 36 2e 33  |arm%:. A=0 . 6.3|
00000710  20 88 20 2e 31 3a df 20  58 2b 70 61 72 6d 25 2a  | . .1:. X+parm%*|
00000720  b5 28 41 29 2c 59 2b 70  61 72 6d 25 2a 9b 28 41  |.(A),Y+parm%*.(A|
00000730  29 3a ed 20 41 3a 3d 30  0d 02 d0 81 dd a4 4f 56  |):. A:=0......OV|
00000740  41 4c 3a 57 57 25 3d 70  61 72 6d 25 3a 43 48 3d  |AL:WW%=parm%:CH=|
00000750  a9 43 4f 4d 24 3a f2 74  75 72 74 6c 65 3a 43 48  |.COM$:.turtle:CH|
00000760  3d 43 48 2d 31 3a 70 61  72 6d 32 25 3d bb 28 c2  |=CH-1:parm2%=.(.|
00000770  43 4f 4d 24 2c 43 48 29  29 3a ec 20 58 2c 59 2b  |COM$,CH)):. X,Y+|
00000780  70 61 72 6d 32 25 3a e3  20 41 3d 30 20 b8 20 36  |parm2%:. A=0 . 6|
00000790  2e 33 20 88 20 2e 31 3a  df 20 58 2b 57 57 25 2a  |.3 . .1:. X+WW%*|
000007a0  b5 28 41 29 2c 59 2b 70  61 72 6d 32 25 2a 9b 28  |.(A),Y+parm2%*.(|
000007b0  41 29 3a ed 20 41 3a 3d  30 0d 02 da 0f dd a4 4f  |A):. A:=0......O|
000007c0  56 3a 3d a4 4f 56 45 4c  0d 02 e4 26 dd a4 53 45  |V:=.OVEL...&..SE|
000007d0  54 50 43 3a f2 74 75 72  74 6c 65 3a 63 6f 6c 25  |TPC:.turtle:col%|
000007e0  3d 70 61 72 6d 25 80 37  3a 3d 30 20 20 20 0d 02  |=parm%.7:=0   ..|
000007f0  ee 1a dd a4 53 45 54 50  45 4e 43 4f 4c 4f 55 52  |....SETPENCOLOUR|
00000800  3a 3d a4 50 43 20 20 20  0d 02 f8 10 dd a4 4e 45  |:=.PC   ......NE|
00000810  57 3a 2a 4d 4f 55 4e 54  0d 03 02 08 2a 44 49 52  |W:*MOUNT....*DIR|
00000820  0d 03 0c 0e f2 74 75 72  74 6c 65 3a 3d 30 0d 03  |.....turtle:=0..|
00000830  16 32 dd a4 53 41 56 45  3a f2 74 75 72 74 6c 65  |.2..SAVE:.turtle|
00000840  3a ff 20 22 53 41 56 45  20 22 2b 43 4f 4d 24 2b  |:. "SAVE "+COM$+|
00000850  22 20 33 30 30 30 20 37  31 30 30 22 3a 3d 30 20  |" 3000 7100":=0 |
00000860  0d 03 20 24 dd a4 4c 4f  41 44 3a f2 74 75 72 74  |.. $..LOAD:.turt|
00000870  6c 65 3a ff 20 22 4c 4f  41 44 20 22 2b 43 4f 4d  |le:. "LOAD "+COM|
00000880  24 3a 3d 30 0d 03 2a 05  20 0d 03 34 05 20 0d 03  |$:=0..*. ..4. ..|
00000890  3e 31 dd a4 50 52 49 4e  54 3a f2 74 75 72 74 6c  |>1..PRINT:.turtl|
000008a0  65 3a e3 20 4e 3d 31 20  b8 20 70 61 72 6d 25 20  |e:. N=1 . parm% |
000008b0  3a f1 20 43 4f 4d 24 3a  ed 4e 3a 3d 30 20 20 0d  |:. COM$:.N:=0  .|
000008c0  03 48 11 dd a4 50 3a 3d  a4 50 52 49 4e 54 20 20  |.H...P:=.PRINT  |
000008d0  0d 03 52 15 dd a4 43 4c  3a f2 74 75 72 74 6c 65  |..R...CL:.turtle|
000008e0  3a da 3a 3d 30 0d 03 5c  10 dd a4 43 4c 45 41 4e  |:.:=0..\...CLEAN|
000008f0  3a 3d a4 43 4c 0d 03 66  26 dd a4 48 4f 4d 45 3a  |:=.CL..f&..HOME:|
00000900  f2 74 75 72 74 6c 65 3a  58 3d 36 34 30 3a 59 3d  |.turtle:X=640:Y=|
00000910  36 30 38 3a 52 25 3d 30  3a 3d 30 0d 03 70 36 dd  |608:R%=0:=0..p6.|
00000920  a4 43 53 3a f2 74 75 72  74 6c 65 3a 6e 6f 74 75  |.CS:.turtle:notu|
00000930  72 74 25 3d a3 3a 58 3d  36 34 30 3a 59 3d 36 30  |rt%=.:X=640:Y=60|
00000940  38 3a 52 25 3d 30 3a da  3a ec 20 58 2c 59 3a 3d  |8:R%=0:.:. X,Y:=|
00000950  30 0d 03 7a 15 dd a4 43  54 3a f2 74 75 72 74 6c  |0..z...CT:.turtl|
00000960  65 3a db 3a 3d 30 0d 03  84 14 dd a4 43 4c 45 41  |e:.:=0......CLEA|
00000970  52 54 45 58 54 3a 3d a4  43 54 0d 03 8e 63 dd a4  |RTEXT:=.CT...c..|
00000980  52 45 50 45 41 54 3a ea  49 25 2c 74 69 6d 65 73  |REPEAT:.I%,times|
00000990  25 2c 52 45 50 24 3a 74  69 6d 65 73 25 3d 70 61  |%,REP$:times%=pa|
000009a0  72 6d 25 3a e7 74 69 6d  65 73 25 3c 31 3a f1 22  |rm%:.times%<1:."|
000009b0  52 45 50 45 41 54 20 6d  75 73 74 20 62 65 20 64  |REPEAT must be d|
000009c0  6f 6e 65 20 61 74 20 6c  65 61 73 74 20 6f 6e 63  |one at least onc|
000009d0  65 22 3a f2 74 75 72 74  6c 65 3a 3d 30 0d 03 98  |e":.turtle:=0...|
000009e0  11 53 25 3d a7 43 4f 4d  24 2c 22 5b 22 29 0d 03  |.S%=.COM$,"[")..|
000009f0  a2 8f e7 53 25 3d 30 f1  22 52 45 50 45 41 54 20  |...S%=0."REPEAT |
00000a00  6d 75 73 74 20 62 65 20  66 6f 6c 6c 6f 77 65 64  |must be followed|
00000a10  20 62 79 20 61 20 6e 75  6d 62 65 72 20 61 6e 64  | by a number and|
00000a20  22 27 22 74 68 65 6e 2c  20 69 6e 20 62 72 61 63  |"'"then, in brac|
00000a30  6b 65 74 73 2c 20 61 20  6c 69 73 74 20 6f 66 20  |kets, a list of |
00000a40  63 6f 6d 6d 61 6e 64 73  2e 22 27 22 65 2e 67 2e  |commands."'"e.g.|
00000a50  20 52 45 50 45 41 54 20  34 20 5b 46 4f 52 57 41  | REPEAT 4 [FORWA|
00000a60  52 44 20 31 30 30 20 52  49 47 48 54 20 39 30 20  |RD 100 RIGHT 90 |
00000a70  5d 22 3a f2 74 75 72 74  6c 65 3a 3d 30 0d 03 ac  |]":.turtle:=0...|
00000a80  1e 43 4f 4d 24 3d c1 43  4f 4d 24 2c 53 25 2b 31  |.COM$=.COM$,S%+1|
00000a90  29 3a 52 45 50 24 3d 43  4f 4d 24 0d 03 b6 10 e3  |):REP$=COM$.....|
00000aa0  49 25 3d 31 b8 74 69 6d  65 73 25 0d 03 c0 0d 43  |I%=1.times%....C|
00000ab0  4f 4d 24 3d 52 45 50 24  0d 03 ca 11 53 24 3d 22  |OM$=REP$....S$="|
00000ac0  46 4e 22 2b a4 73 79 6d  62 0d 03 d4 16 e7 a4 61  |FN"+.symb......a|
00000ad0  62 6f 72 74 3a f2 74 75  72 74 6c 65 3a 3d 30 0d  |bort:.turtle:=0.|
00000ae0  03 de 0c 51 25 3d a0 28  53 24 29 0d 03 e8 08 f2  |...Q%=.(S$).....|
00000af0  70 65 6e 0d 03 f2 0b f2  74 75 72 74 6c 65 0d 03  |pen.....turtle..|
00000b00  fc 09 f2 73 6b 69 70 0d  04 06 2a e7 97 43 4f 4d  |...skip...*..COM|
00000b10  24 3d 97 22 5d 22 20 ed  3a 43 4f 4d 24 3d c1 43  |$=."]" .:COM$=.C|
00000b20  4f 4d 24 2c 32 29 3a f2  74 75 72 74 6c 65 3a 3d  |OM$,2):.turtle:=|
00000b30  30 0d 04 10 09 e5 8d 64  4a 43 0d 04 1a 18 dd a4  |0......dJC......|
00000b40  63 61 73 65 28 41 24 29  ea 49 25 2c 42 24 2c 63  |case(A$).I%,B$,c|
00000b50  68 25 0d 04 24 0d e3 49  25 3d 31 b8 a9 41 24 0d  |h%..$..I%=1..A$.|
00000b60  04 2e 10 63 68 25 3d 97  c1 41 24 2c 49 25 29 0d  |...ch%=..A$,I%).|
00000b70  04 38 23 e7 63 68 25 3e  3d 97 22 61 22 80 63 68  |.8#.ch%>=."a".ch|
00000b80  25 3c 3d 97 22 7a 22 20  63 68 25 3d 63 68 25 2d  |%<=."z" ch%=ch%-|
00000b90  33 32 0d 04 42 14 42 24  3d 42 24 2b bd 63 68 25  |32..B.B$=B$+.ch%|
00000ba0  3a ed 3a 3d 42 24 0d 04  4c 09 dd f2 65 72 72 0d  |:.:=B$..L...err.|
00000bb0  04 56 0e e7 9f 3d 31 37  e5 8d 44 46 45 0d 04 60  |.V...=17..DFE..`|
00000bc0  2b e7 9f 3d 32 39 f1 22  49 20 64 6f 6e 27 74 20  |+..=29."I don't |
00000bd0  6b 6e 6f 77 20 68 6f 77  20 74 6f 20 22 c1 53 24  |know how to ".S$|
00000be0  2c 33 29 3a e1 20 20 20  0d 04 6a 3e f1 22 49 20  |,3):.   ..j>."I |
00000bf0  68 61 76 65 20 61 6e 20  65 72 72 6f 72 20 74 68  |have an error th|
00000c00  65 20 63 6f 64 65 20 69  73 20 22 3b 9f 3b bd 28  |e code is ";.;.(|
00000c10  31 31 29 3a f6 3a f1 22  20 49 73 20 74 68 65 20  |11):.:." Is the |
00000c20  65 72 72 6f 72 22 0d 04  74 05 e1 0d 04 7e 0e dd  |error"..t....~..|
00000c30  f2 74 75 72 6e 28 44 25  29 0d 04 88 14 52 25 3d  |.turn(D%)....R%=|
00000c40  28 52 25 2b 44 25 29 20  83 20 33 36 30 0d 04 92  |(R%+D%) . 360...|
00000c50  05 e1 0d 04 9c 11 dd f2  66 6f 72 77 61 72 64 28  |........forward(|
00000c60  44 25 29 0d 04 a6 16 58  3d a8 28 58 2b 44 25 2a  |D%)....X=.(X+D%*|
00000c70  b5 b2 52 25 2b 30 2e 35  29 0d 04 b0 16 59 3d a8  |..R%+0.5)....Y=.|
00000c80  28 59 2b 44 25 2a 9b b2  52 25 2b 30 2e 35 29 0d  |(Y+D%*..R%+0.5).|
00000c90  04 ba 05 e1 0d 04 c4 0c  dd f2 74 75 72 74 6c 65  |..........turtle|
00000ca0  0d 04 ce 10 ea 78 2c 79  3a 78 3d 58 3a 79 3d 59  |.....x,y:x=X:y=Y|
00000cb0  0d 04 d8 58 e7 6e 6f 74  75 72 74 25 20 8b 3a e6  |...X.noturt% .:.|
00000cc0  33 2c 63 6f 6c 25 3a ec  58 2b 34 38 2a b5 b2 52  |3,col%:.X+48*..R|
00000cd0  25 2c 59 2b 34 38 2a 9b  b2 52 25 3a ec 58 2d 31  |%,Y+48*..R%:.X-1|
00000ce0  32 2a 9b b2 52 25 2c 59  2b 31 32 2a b5 b2 52 25  |2*..R%,Y+12*..R%|
00000cf0  3a f0 38 35 2c 58 2b 31  32 2a 9b b2 52 25 2c 59  |:.85,X+12*..R%,Y|
00000d00  2d 31 32 2a b5 b2 52 25  0d 04 e2 17 e6 30 2c 63  |-12*..R%.....0,c|
00000d10  6f 6c 25 3a ec 78 2c 79  3a ec 78 2c 79 3a e1 0d  |ol%:.x,y:.x,y:..|
00000d20  04 ec 09 dd f2 70 65 6e  0d 04 f6 1b e7 58 3c 3e  |.....pen.....X<>|
00000d30  4f 58 20 84 20 59 3c 3e  4f 59 20 f2 6d 6f 76 65  |OX . Y<>OY .move|
00000d40  70 65 6e 0d 05 00 0f 4f  58 3d 58 3a 4f 59 3d 59  |pen....OX=X:OY=Y|
00000d50  3a e1 0d 05 0a 0d dd f2  6d 6f 76 65 70 65 6e 0d  |:.......movepen.|
00000d60  05 14 19 e7 6e 6f 70 65  6e 25 20 ec 20 58 2c 59  |....nopen% . X,Y|
00000d70  20 8b 20 df 20 58 2c 59  0d 05 1e 05 e1 0d 05 28  | . . X,Y.......(|
00000d80  0b dd a4 61 62 6f 72 74  0d 05 32 26 e7 a6 28 2d  |...abort..2&..(-|
00000d90  32 29 8c f1 22 49 6e 74  65 72 72 75 70 74 65 64  |2).."Interrupted|
00000da0  20 69 6e 20 3a 20 22 43  4f 4d 24 3a 3d b9 0d 05  | in : "COM$:=...|
00000db0  3c 06 3d a3 0d 05 46 18  f4 20 45 53 43 41 50 45  |<.=...F.. ESCAPE|
00000dc0  20 57 41 53 20 50 52 45  53 53 45 44 0d 05 50 14  | WAS PRESSED..P.|
00000dd0  f1 20 27 22 53 54 4f 50  50 45 44 21 21 21 22 20  |. '"STOPPED!!!" |
00000de0  0d 05 5a 05 e1 0d 05 64  0b dd 20 a4 46 49 4c 4c  |..Z....d.. .FILL|
00000df0  0d 05 6e 0b f2 74 75 72  74 6c 65 0d 05 78 0c e6  |..n..turtle..x..|
00000e00  20 30 2c 63 6f 6c 25 0d  05 82 09 55 50 25 3d 34  | 0,col%....UP%=4|
00000e10  0d 05 8c 0f 49 33 25 3d  58 3a 4a 33 25 3d 59 0d  |....I3%=X:J3%=Y.|
00000e20  05 96 05 f5 0d 05 a0 10  f0 20 37 37 2c 49 33 25  |......... 77,I3%|
00000e30  2c 4a 33 25 0d 05 aa 0f  4a 33 25 3d 4a 33 25 2b  |,J3%....J3%=J3%+|
00000e40  55 50 25 0d 05 b4 1a fd  20 b0 49 33 25 2c 4a 33  |UP%..... .I3%,J3|
00000e50  25 29 20 84 20 4a 33 25  3e 26 34 30 30 0d 05 be  |%) . J3%>&400...|
00000e60  10 47 49 33 25 3d 58 3a  4a 33 25 3d 59 0d 05 c8  |.GI3%=X:J3%=Y...|
00000e70  06 f5 20 0d 05 d2 10 f0  20 37 37 2c 49 33 25 2c  |.. ..... 77,I3%,|
00000e80  4a 33 25 0d 05 dc 0f 4a  33 25 3d 4a 33 25 2d 55  |J3%....J3%=J3%-U|
00000e90  50 25 0d 05 e6 19 fd 20  b0 49 33 25 2c 4a 33 25  |P%..... .I3%,J3%|
00000ea0  29 20 84 20 4a 33 25 3c  26 43 30 0d 05 f0 06 3d  |) . J3%<&C0....=|
00000eb0  30 0d 05 fa 0a dd a4 48  45 4c 50 0d 06 04 0b f2  |0......HELP.....|
00000ec0  74 75 72 74 6c 65 0d 06  0e 2f f1 20 22 46 49 4c  |turtle.../. "FIL|
00000ed0  4c 2c 46 44 2c 52 54 2c  4c 54 2c 42 4b 2c 50 55  |L,FD,RT,LT,BK,PU|
00000ee0  2c 50 44 2c 43 49 52 43  4c 45 2c 4f 56 41 4c 2c  |,PD,CIRCLE,OVAL,|
00000ef0  48 4f 4d 45 22 0d 06 18  36 f1 20 22 53 41 56 45  |HOME"...6. "SAVE|
00000f00  2c 4c 4f 41 44 2c 53 54  2c 48 54 2c 43 41 54 2c  |,LOAD,ST,HT,CAT,|
00000f10  4e 45 57 2c 4f 53 43 4c  49 2c 50 52 49 4e 54 2c  |NEW,OSCLI,PRINT,|
00000f20  54 45 58 54 54 55 52 54  4c 45 22 0d 06 22 06 3d  |TEXTTURTLE"..".=|
00000f30  30 0d 06 2c 0b dd 20 a4  54 45 58 54 0d 06 36 0b  |0..,.. .TEXT..6.|
00000f40  f2 74 75 72 74 6c 65 0d  06 40 07 ef 20 35 0d 06  |.turtle..@.. 5..|
00000f50  4a 0a f1 20 43 4f 4d 24  0d 06 54 07 ef 20 34 0d  |J.. COM$..T.. 4.|
00000f60  06 5e 06 3d 30 0d ff                              |.^.=0..|
00000f67