9 �3:�23,1,0;0;0;0;:�14:�''"PRESS <SHIFT> TO SCROLL"''

!�"""GLOBE"" BY PAUL WOODWARD"
�"*******"
�
(P�"Using this program you can rotate a 3D object in any direction, zoom, and"
2M�"move around the screen. The program works on coordinates fed into DATA"
<N�"statements then rotated using Trigonometry to display a shape. The name"
FM�"GLOBE did not come from any sort of spherical rotation but because the"
PQ�"Headmaster (yes Headmaster, I have not matriculated yet, because I am only"
ZO�"12) set an Easter project to make a sponsored model of the Globe Theatre"
dO�"being built in London by the Thames, to help raise money for it. This is"
nI�"the prototype: the finished version has to be ready by April 25th."
x�
��"  up "
��"  down "
��"  left "
��"  right"
��"> zoom in"
��"< zoom out "
��
�O�"Now a challenge to all mathematically minded programmers, can you update"
�3�"this program to remove all the hidden lines?"
�P�"Note.  If anyone can make an adaption to remove hidden lines at any angle"
��"then please contact me:"
��
�E�"Paul Woodward, 9 Hill Road, Eastbourne, East Sussex, BN20 8SA."

�

�"Tips on the globe:"

�

"M�"P = The distance from the viewer to the picture, the smaller P is, the"

,!�"less perspective is shown."

6�

@.�"The DATA should be held in this format:"

J�

T�"DATA X,Y,Z,plot code"

^�

hI�"For a more details and an example plan send an S.A.E. to the above"

r!�"address with any queries. "

|�3

�L�''"PLEASE PRESS <G> TO RUN GLOBE, <P> TO PRINT TEXT, <M> FOR MAIN MENU"

�'�:A$=�:� A$="G" �  A$="P" �  A$="M"

�� A$="G" � �"GLOBE1"

�� A$="P" � �2:�

�� A$="M" � �"MENU"
�

00000000  0d 00 01 39 20 eb 33 3a  ef 32 33 2c 31 2c 30 3b  |...9 .3:.23,1,0;|
00000010  30 3b 30 3b 30 3b 3a ef  31 34 3a f1 27 27 22 50  |0;0;0;:.14:.''"P|
00000020  52 45 53 53 20 3c 53 48  49 46 54 3e 20 54 4f 20  |RESS <SHIFT> TO |
00000030  53 43 52 4f 4c 4c 22 27  27 0d 00 0a 21 f1 22 22  |SCROLL"''...!.""|
00000040  22 47 4c 4f 42 45 22 22  20 42 59 20 50 41 55 4c  |"GLOBE"" BY PAUL|
00000050  20 57 4f 4f 44 57 41 52  44 22 0d 00 14 0e f1 22  | WOODWARD"....."|
00000060  2a 2a 2a 2a 2a 2a 2a 22  0d 00 1e 05 f1 0d 00 28  |*******".......(|
00000070  50 f1 22 55 73 69 6e 67  20 74 68 69 73 20 70 72  |P."Using this pr|
00000080  6f 67 72 61 6d 20 79 6f  75 20 63 61 6e 20 72 6f  |ogram you can ro|
00000090  74 61 74 65 20 61 20 33  44 20 6f 62 6a 65 63 74  |tate a 3D object|
000000a0  20 69 6e 20 61 6e 79 20  64 69 72 65 63 74 69 6f  | in any directio|
000000b0  6e 2c 20 7a 6f 6f 6d 2c  20 61 6e 64 22 0d 00 32  |n, zoom, and"..2|
000000c0  4d f1 22 6d 6f 76 65 20  61 72 6f 75 6e 64 20 74  |M."move around t|
000000d0  68 65 20 73 63 72 65 65  6e 2e 20 54 68 65 20 70  |he screen. The p|
000000e0  72 6f 67 72 61 6d 20 77  6f 72 6b 73 20 6f 6e 20  |rogram works on |
000000f0  63 6f 6f 72 64 69 6e 61  74 65 73 20 66 65 64 20  |coordinates fed |
00000100  69 6e 74 6f 20 44 41 54  41 22 0d 00 3c 4e f1 22  |into DATA"..<N."|
00000110  73 74 61 74 65 6d 65 6e  74 73 20 74 68 65 6e 20  |statements then |
00000120  72 6f 74 61 74 65 64 20  75 73 69 6e 67 20 54 72  |rotated using Tr|
00000130  69 67 6f 6e 6f 6d 65 74  72 79 20 74 6f 20 64 69  |igonometry to di|
00000140  73 70 6c 61 79 20 61 20  73 68 61 70 65 2e 20 54  |splay a shape. T|
00000150  68 65 20 6e 61 6d 65 22  0d 00 46 4d f1 22 47 4c  |he name"..FM."GL|
00000160  4f 42 45 20 64 69 64 20  6e 6f 74 20 63 6f 6d 65  |OBE did not come|
00000170  20 66 72 6f 6d 20 61 6e  79 20 73 6f 72 74 20 6f  | from any sort o|
00000180  66 20 73 70 68 65 72 69  63 61 6c 20 72 6f 74 61  |f spherical rota|
00000190  74 69 6f 6e 20 62 75 74  20 62 65 63 61 75 73 65  |tion but because|
000001a0  20 74 68 65 22 0d 00 50  51 f1 22 48 65 61 64 6d  | the"..PQ."Headm|
000001b0  61 73 74 65 72 20 28 79  65 73 20 48 65 61 64 6d  |aster (yes Headm|
000001c0  61 73 74 65 72 2c 20 49  20 68 61 76 65 20 6e 6f  |aster, I have no|
000001d0  74 20 6d 61 74 72 69 63  75 6c 61 74 65 64 20 79  |t matriculated y|
000001e0  65 74 2c 20 62 65 63 61  75 73 65 20 49 20 61 6d  |et, because I am|
000001f0  20 6f 6e 6c 79 22 0d 00  5a 4f f1 22 31 32 29 20  | only"..ZO."12) |
00000200  73 65 74 20 61 6e 20 45  61 73 74 65 72 20 70 72  |set an Easter pr|
00000210  6f 6a 65 63 74 20 74 6f  20 6d 61 6b 65 20 61 20  |oject to make a |
00000220  73 70 6f 6e 73 6f 72 65  64 20 6d 6f 64 65 6c 20  |sponsored model |
00000230  6f 66 20 74 68 65 20 47  6c 6f 62 65 20 54 68 65  |of the Globe The|
00000240  61 74 72 65 22 0d 00 64  4f f1 22 62 65 69 6e 67  |atre"..dO."being|
00000250  20 62 75 69 6c 74 20 69  6e 20 4c 6f 6e 64 6f 6e  | built in London|
00000260  20 62 79 20 74 68 65 20  54 68 61 6d 65 73 2c 20  | by the Thames, |
00000270  74 6f 20 68 65 6c 70 20  72 61 69 73 65 20 6d 6f  |to help raise mo|
00000280  6e 65 79 20 66 6f 72 20  69 74 2e 20 54 68 69 73  |ney for it. This|
00000290  20 69 73 22 0d 00 6e 49  f1 22 74 68 65 20 70 72  | is"..nI."the pr|
000002a0  6f 74 6f 74 79 70 65 3a  20 74 68 65 20 66 69 6e  |ototype: the fin|
000002b0  69 73 68 65 64 20 76 65  72 73 69 6f 6e 20 68 61  |ished version ha|
000002c0  73 20 74 6f 20 62 65 20  72 65 61 64 79 20 62 79  |s to be ready by|
000002d0  20 41 70 72 69 6c 20 32  35 74 68 2e 22 0d 00 78  | April 25th."..x|
000002e0  05 f1 0d 00 82 0c f1 22  20 20 75 70 20 22 0d 00  |......."  up "..|
000002f0  8c 0e f1 22 20 20 64 6f  77 6e 20 22 0d 00 96 0e  |..."  down "....|
00000300  f1 22 20 20 6c 65 66 74  20 22 0d 00 a0 0e f1 22  |."  left "....."|
00000310  20 20 72 69 67 68 74 22  0d 00 aa 10 f1 22 3e 20  |  right"....."> |
00000320  7a 6f 6f 6d 20 69 6e 22  0d 00 b4 12 f1 22 3c 20  |zoom in"....."< |
00000330  7a 6f 6f 6d 20 6f 75 74  20 22 0d 00 be 05 f1 0d  |zoom out "......|
00000340  00 c8 4f f1 22 4e 6f 77  20 61 20 63 68 61 6c 6c  |..O."Now a chall|
00000350  65 6e 67 65 20 74 6f 20  61 6c 6c 20 6d 61 74 68  |enge to all math|
00000360  65 6d 61 74 69 63 61 6c  6c 79 20 6d 69 6e 64 65  |ematically minde|
00000370  64 20 70 72 6f 67 72 61  6d 6d 65 72 73 2c 20 63  |d programmers, c|
00000380  61 6e 20 79 6f 75 20 75  70 64 61 74 65 22 0d 00  |an you update"..|
00000390  d2 33 f1 22 74 68 69 73  20 70 72 6f 67 72 61 6d  |.3."this program|
000003a0  20 74 6f 20 72 65 6d 6f  76 65 20 61 6c 6c 20 74  | to remove all t|
000003b0  68 65 20 68 69 64 64 65  6e 20 6c 69 6e 65 73 3f  |he hidden lines?|
000003c0  22 0d 00 dc 50 f1 22 4e  6f 74 65 2e 20 20 49 66  |"...P."Note.  If|
000003d0  20 61 6e 79 6f 6e 65 20  63 61 6e 20 6d 61 6b 65  | anyone can make|
000003e0  20 61 6e 20 61 64 61 70  74 69 6f 6e 20 74 6f 20  | an adaption to |
000003f0  72 65 6d 6f 76 65 20 68  69 64 64 65 6e 20 6c 69  |remove hidden li|
00000400  6e 65 73 20 61 74 20 61  6e 79 20 61 6e 67 6c 65  |nes at any angle|
00000410  22 0d 00 e6 1e f1 22 74  68 65 6e 20 70 6c 65 61  |"....."then plea|
00000420  73 65 20 63 6f 6e 74 61  63 74 20 6d 65 3a 22 0d  |se contact me:".|
00000430  00 f0 05 f1 0d 00 fa 45  f1 22 50 61 75 6c 20 57  |.......E."Paul W|
00000440  6f 6f 64 77 61 72 64 2c  20 39 20 48 69 6c 6c 20  |oodward, 9 Hill |
00000450  52 6f 61 64 2c 20 45 61  73 74 62 6f 75 72 6e 65  |Road, Eastbourne|
00000460  2c 20 45 61 73 74 20 53  75 73 73 65 78 2c 20 42  |, East Sussex, B|
00000470  4e 32 30 20 38 53 41 2e  22 0d 01 04 05 f1 0d 01  |N20 8SA.".......|
00000480  0e 19 f1 22 54 69 70 73  20 6f 6e 20 74 68 65 20  |..."Tips on the |
00000490  67 6c 6f 62 65 3a 22 0d  01 18 05 f1 0d 01 22 4d  |globe:"......."M|
000004a0  f1 22 50 20 3d 20 54 68  65 20 64 69 73 74 61 6e  |."P = The distan|
000004b0  63 65 20 66 72 6f 6d 20  74 68 65 20 76 69 65 77  |ce from the view|
000004c0  65 72 20 74 6f 20 74 68  65 20 70 69 63 74 75 72  |er to the pictur|
000004d0  65 2c 20 74 68 65 20 73  6d 61 6c 6c 65 72 20 50  |e, the smaller P|
000004e0  20 69 73 2c 20 74 68 65  22 0d 01 2c 21 f1 22 6c  | is, the"..,!."l|
000004f0  65 73 73 20 70 65 72 73  70 65 63 74 69 76 65 20  |ess perspective |
00000500  69 73 20 73 68 6f 77 6e  2e 22 0d 01 36 05 f1 0d  |is shown."..6...|
00000510  01 40 2e f1 22 54 68 65  20 44 41 54 41 20 73 68  |.@.."The DATA sh|
00000520  6f 75 6c 64 20 62 65 20  68 65 6c 64 20 69 6e 20  |ould be held in |
00000530  74 68 69 73 20 66 6f 72  6d 61 74 3a 22 0d 01 4a  |this format:"..J|
00000540  05 f1 0d 01 54 1b f1 22  44 41 54 41 20 58 2c 59  |....T.."DATA X,Y|
00000550  2c 5a 2c 70 6c 6f 74 20  63 6f 64 65 22 0d 01 5e  |,Z,plot code"..^|
00000560  05 f1 0d 01 68 49 f1 22  46 6f 72 20 61 20 6d 6f  |....hI."For a mo|
00000570  72 65 20 64 65 74 61 69  6c 73 20 61 6e 64 20 61  |re details and a|
00000580  6e 20 65 78 61 6d 70 6c  65 20 70 6c 61 6e 20 73  |n example plan s|
00000590  65 6e 64 20 61 6e 20 53  2e 41 2e 45 2e 20 74 6f  |end an S.A.E. to|
000005a0  20 74 68 65 20 61 62 6f  76 65 22 0d 01 72 21 f1  | the above"..r!.|
000005b0  22 61 64 64 72 65 73 73  20 77 69 74 68 20 61 6e  |"address with an|
000005c0  79 20 71 75 65 72 69 65  73 2e 20 22 0d 01 7c 06  |y queries. "..|.|
000005d0  ef 33 0d 01 86 4c f1 27  27 22 50 4c 45 41 53 45  |.3...L.''"PLEASE|
000005e0  20 50 52 45 53 53 20 3c  47 3e 20 54 4f 20 52 55  | PRESS <G> TO RU|
000005f0  4e 20 47 4c 4f 42 45 2c  20 3c 50 3e 20 54 4f 20  |N GLOBE, <P> TO |
00000600  50 52 49 4e 54 20 54 45  58 54 2c 20 3c 4d 3e 20  |PRINT TEXT, <M> |
00000610  46 4f 52 20 4d 41 49 4e  20 4d 45 4e 55 22 0d 01  |FOR MAIN MENU"..|
00000620  90 27 f5 3a 41 24 3d be  3a fd 20 41 24 3d 22 47  |.'.:A$=.:. A$="G|
00000630  22 20 84 20 20 41 24 3d  22 50 22 20 84 20 20 41  |" .  A$="P" .  A|
00000640  24 3d 22 4d 22 0d 01 9a  18 e7 20 41 24 3d 22 47  |$="M"..... A$="G|
00000650  22 20 8c 20 d7 22 47 4c  4f 42 45 31 22 0d 01 a4  |" . ."GLOBE1"...|
00000660  13 e7 20 41 24 3d 22 50  22 20 8c 20 ef 32 3a f9  |.. A$="P" . .2:.|
00000670  0d 01 ae 16 e7 20 41 24  3d 22 4d 22 20 8c 20 d7  |..... A$="M" . .|
00000680  22 4d 45 4e 55 22 0d ff                           |"MENU"..|
00000688