� >Demo3 - SurrealScape
� By RTW/MG
� For 8-bit machines
(� (C) BAU December 1992
2*� Modified by Richard Dimond July 1995
<� � M% � 5
F� �>&1100 �dPG
K� M%:� D% �&9EE
P� 23;8202;0;0;0;
Z� 23;6,20,0;0;0;
d� 23;7,29,0;0;0;
n� 23;12,12,0;0;0;
x� 23;13,&E0,0;0;0;
�� 19,2,4;0;
��=&1F00
�� � M% � "LOAD CompM/C"
�screen   = &70
�mem      = &74
�compress = &900
�expand   = &903
�� D% �dhC
�
�build
�
�playback
�� M% � ��"AMENU"
�:
�� �build
�� 28,0,31,19,12

� 24,128;0;1151;639;

� 29,640;0;

� a%(23)

"!mem=&1F00

,� frame%=0 � 7

6a%(frame%)=!mem

@�

J	� 3,1

T!� N%=-512-8*frame% � 520 � 64

^� N%,200:� N%+16,200

h� 85,N%*2,0

r� N%+24,200:� N%*2+8,0

|� 85,(N%+24)*2,0

��

�
y=200:v=1

��

�� M%=y-v+4 � y � 4

�
� -512,M%

�� 512,M%

��

�y=y-v*2

�	v=v+3

��y<0

�	� 1,2

�� -512,0:� 512,0

�� 85,-512,200
� 85,512,200
	� 0,3
� �(-2)
&� N%=1 � 20
0� 69,�(1023)-512,�(400)+204
:�
D	� 0,1
N%�square(0,400,120,50,frame%*90/8)
X'�square(-170,344,60,25,frame%*90/8)
b&�square(170,344,60,25,frame%*90/8)
l3�square(-360,140*��(frame%*180/8)+200,40,40,45)
v:�square(360,140*��((frame%+2 � 7)*180/8)+200,40,40,45)
�	� 0,0
�$�square(0,80,120,50,frame%*90/8)
�'�square(-170,100,60,25,frame%*90/8)
�&�square(170,100,60,25,frame%*90/8)
�2�square(-360,140-70*��(frame%*180/8),40,20,45)
�9�square(360,140-70*��((frame%+2 � 7)*180/8),40,20,45)
�!screen=&6700
�� compress
��
��
�:
�!� �square(x%,y%,xr%,yr%,rot%)
�%� ��(rot%)*xr%+x%,��(rot%)*yr%+y%
+� ��(rot%+90)*xr%+x%,��(rot%+90)*yr%+y%
0� 85,��(rot%+270)*xr%+x%,��(rot%+270)*yr%+y%
0� 85,��(rot%+180)*xr%+x%,��(rot%+180)*yr%+y%
 �
*:
4� �playback
>�
H!mem=&1F00
R3� N%=0 � 7:!screen=&6700:!mem=a%(N%):� expand:�
\� �
f�
�
�a%(7)
��n%=0�7:�a%(n%):�
�� � M% �"LOAD DAT3 1F00"
�
!mem=&1F00
3� N%=0 � 7:!screen=&6700:!mem=a%(N%):� expand:�
$
� � �0
.� M% � ��"AMENU"
85� &1F00,&2689,&2E17,&35DC,&3D77,&44F2,&4C6C,&53F1
�M%=�
�*FX200,3
�*LOAD CompM/C
�� � D% �T`H
��=&7D80
�28,0,31,19,30
$!&70=&6700:!&74=&1F00:!&78=&2A00
*LOAD DAT3 2A00
 �21
*X*KEY0 *TAPE|MFORI%=0 TO TOP-PAGE STEP4:I%!&E00=I%!PAGE:NEXT|MPAGE=&E00|MOLD|MRUN|F|M
4*FX138,0,128
�

00000000  0d 00 0a 1b f4 20 3e 44  65 6d 6f 33 20 2d 20 53  |..... >Demo3 - S|
00000010  75 72 72 65 61 6c 53 63  61 70 65 0d 00 14 0f f4  |urrealScape.....|
00000020  20 42 79 20 52 54 57 2f  4d 47 0d 00 1e 18 f4 20  | By RTW/MG..... |
00000030  46 6f 72 20 38 2d 62 69  74 20 6d 61 63 68 69 6e  |For 8-bit machin|
00000040  65 73 0d 00 28 1b f4 20  28 43 29 20 42 41 55 20  |es..(.. (C) BAU |
00000050  44 65 63 65 6d 62 65 72  20 31 39 39 32 0d 00 32  |December 1992..2|
00000060  2a f4 20 4d 6f 64 69 66  69 65 64 20 62 79 20 52  |*. Modified by R|
00000070  69 63 68 61 72 64 20 44  69 6d 6f 6e 64 20 4a 75  |ichard Dimond Ju|
00000080  6c 79 20 31 39 39 35 0d  00 3c 0e e7 20 ac 20 4d  |ly 1995..<.. . M|
00000090  25 20 eb 20 35 0d 00 46  13 e7 20 90 3e 26 31 31  |% . 5..F.. .>&11|
000000a0  30 30 20 e5 8d 64 50 47  0d 00 4b 13 e7 20 4d 25  |00 ..dPG..K.. M%|
000000b0  3a e7 20 44 25 20 d6 26  39 45 45 0d 00 50 14 ef  |:. D% .&9EE..P..|
000000c0  20 32 33 3b 38 32 30 32  3b 30 3b 30 3b 30 3b 0d  | 23;8202;0;0;0;.|
000000d0  00 5a 14 ef 20 32 33 3b  36 2c 32 30 2c 30 3b 30  |.Z.. 23;6,20,0;0|
000000e0  3b 30 3b 0d 00 64 14 ef  20 32 33 3b 37 2c 32 39  |;0;..d.. 23;7,29|
000000f0  2c 30 3b 30 3b 30 3b 0d  00 6e 15 ef 20 32 33 3b  |,0;0;0;..n.. 23;|
00000100  31 32 2c 31 32 2c 30 3b  30 3b 30 3b 0d 00 78 16  |12,12,0;0;0;..x.|
00000110  ef 20 32 33 3b 31 33 2c  26 45 30 2c 30 3b 30 3b  |. 23;13,&E0,0;0;|
00000120  30 3b 0d 00 82 0f ef 20  31 39 2c 32 2c 34 3b 30  |0;..... 19,2,4;0|
00000130  3b 0d 00 8c 0b d3 3d 26  31 46 30 30 0d 00 96 1b  |;.....=&1F00....|
00000140  e7 20 ac 20 4d 25 20 ff  20 22 4c 4f 41 44 20 43  |. . M% . "LOAD C|
00000150  6f 6d 70 4d 2f 43 22 0d  00 a0 12 73 63 72 65 65  |ompM/C"....scree|
00000160  6e 20 20 20 3d 20 26 37  30 0d 00 aa 12 6d 65 6d  |n   = &70....mem|
00000170  20 20 20 20 20 20 3d 20  26 37 34 0d 00 b4 13 63  |      = &74....c|
00000180  6f 6d 70 72 65 73 73 20  3d 20 26 39 30 30 0d 00  |ompress = &900..|
00000190  be 13 65 78 70 61 6e 64  20 20 20 3d 20 26 39 30  |..expand   = &90|
000001a0  33 0d 00 c3 0e e7 20 44  25 20 e5 8d 64 68 43 0d  |3..... D% ..dhC.|
000001b0  00 c8 0a f2 62 75 69 6c  64 0d 00 d2 0d f2 70 6c  |....build.....pl|
000001c0  61 79 62 61 63 6b 0d 00  dc 14 e7 20 4d 25 20 e0  |ayback..... M% .|
000001d0  20 8b d7 22 41 4d 45 4e  55 22 0d 00 e6 05 3a 0d  | .."AMENU"....:.|
000001e0  00 f0 0c dd 20 f2 62 75  69 6c 64 0d 00 fa 13 ef  |.... .build.....|
000001f0  20 32 38 2c 30 2c 33 31  2c 31 39 2c 31 32 0d 01  | 28,0,31,19,12..|
00000200  04 18 ef 20 32 34 2c 31  32 38 3b 30 3b 31 31 35  |... 24,128;0;115|
00000210  31 3b 36 33 39 3b 0d 01  0e 0f ef 20 32 39 2c 36  |1;639;..... 29,6|
00000220  34 30 3b 30 3b 0d 01 18  0c de 20 61 25 28 32 33  |40;0;..... a%(23|
00000230  29 0d 01 22 0e 21 6d 65  6d 3d 26 31 46 30 30 0d  |)..".!mem=&1F00.|
00000240  01 2c 12 e3 20 66 72 61  6d 65 25 3d 30 20 b8 20  |.,.. frame%=0 . |
00000250  37 0d 01 36 13 61 25 28  66 72 61 6d 65 25 29 3d  |7..6.a%(frame%)=|
00000260  21 6d 65 6d 0d 01 40 05  db 0d 01 4a 09 e6 20 33  |!mem..@....J.. 3|
00000270  2c 31 0d 01 54 21 e3 20  4e 25 3d 2d 35 31 32 2d  |,1..T!. N%=-512-|
00000280  38 2a 66 72 61 6d 65 25  20 b8 20 35 32 30 20 88  |8*frame% . 520 .|
00000290  20 36 34 0d 01 5e 18 ec  20 4e 25 2c 32 30 30 3a  | 64..^.. N%,200:|
000002a0  ec 20 4e 25 2b 31 36 2c  32 30 30 0d 01 68 0f f0  |. N%+16,200..h..|
000002b0  20 38 35 2c 4e 25 2a 32  2c 30 0d 01 72 1a ec 20  | 85,N%*2,0..r.. |
000002c0  4e 25 2b 32 34 2c 32 30  30 3a ec 20 4e 25 2a 32  |N%+24,200:. N%*2|
000002d0  2b 38 2c 30 0d 01 7c 14  f0 20 38 35 2c 28 4e 25  |+8,0..|.. 85,(N%|
000002e0  2b 32 34 29 2a 32 2c 30  0d 01 86 05 ed 0d 01 90  |+24)*2,0........|
000002f0  0d 79 3d 32 30 30 3a 76  3d 31 0d 01 9a 05 f5 0d  |.y=200:v=1......|
00000300  01 a4 16 e3 20 4d 25 3d  79 2d 76 2b 34 20 b8 20  |.... M%=y-v+4 . |
00000310  79 20 88 20 34 0d 01 ae  0d ec 20 2d 35 31 32 2c  |y . 4..... -512,|
00000320  4d 25 0d 01 b8 0c df 20  35 31 32 2c 4d 25 0d 01  |M%..... 512,M%..|
00000330  c2 05 ed 0d 01 cc 0b 79  3d 79 2d 76 2a 32 0d 01  |.......y=y-v*2..|
00000340  d6 09 76 3d 76 2b 33 0d  01 e0 08 fd 79 3c 30 0d  |..v=v+3.....y<0.|
00000350  01 ea 09 e6 20 31 2c 32  0d 01 f4 14 ec 20 2d 35  |.... 1,2..... -5|
00000360  31 32 2c 30 3a ec 20 35  31 32 2c 30 0d 01 fe 11  |12,0:. 512,0....|
00000370  f0 20 38 35 2c 2d 35 31  32 2c 32 30 30 0d 02 08  |. 85,-512,200...|
00000380  10 f0 20 38 35 2c 35 31  32 2c 32 30 30 0d 02 12  |.. 85,512,200...|
00000390  09 e6 20 30 2c 33 0d 02  1c 0b e7 20 b3 28 2d 32  |.. 0,3..... .(-2|
000003a0  29 0d 02 26 0f e3 20 4e  25 3d 31 20 b8 20 32 30  |)..&.. N%=1 . 20|
000003b0  0d 02 30 1f f0 20 36 39  2c b3 28 31 30 32 33 29  |..0.. 69,.(1023)|
000003c0  2d 35 31 32 2c b3 28 34  30 30 29 2b 32 30 34 0d  |-512,.(400)+204.|
000003d0  02 3a 05 ed 0d 02 44 09  e6 20 30 2c 31 0d 02 4e  |.:....D.. 0,1..N|
000003e0  25 f2 73 71 75 61 72 65  28 30 2c 34 30 30 2c 31  |%.square(0,400,1|
000003f0  32 30 2c 35 30 2c 66 72  61 6d 65 25 2a 39 30 2f  |20,50,frame%*90/|
00000400  38 29 0d 02 58 27 f2 73  71 75 61 72 65 28 2d 31  |8)..X'.square(-1|
00000410  37 30 2c 33 34 34 2c 36  30 2c 32 35 2c 66 72 61  |70,344,60,25,fra|
00000420  6d 65 25 2a 39 30 2f 38  29 0d 02 62 26 f2 73 71  |me%*90/8)..b&.sq|
00000430  75 61 72 65 28 31 37 30  2c 33 34 34 2c 36 30 2c  |uare(170,344,60,|
00000440  32 35 2c 66 72 61 6d 65  25 2a 39 30 2f 38 29 0d  |25,frame%*90/8).|
00000450  02 6c 33 f2 73 71 75 61  72 65 28 2d 33 36 30 2c  |.l3.square(-360,|
00000460  31 34 30 2a b5 b2 28 66  72 61 6d 65 25 2a 31 38  |140*..(frame%*18|
00000470  30 2f 38 29 2b 32 30 30  2c 34 30 2c 34 30 2c 34  |0/8)+200,40,40,4|
00000480  35 29 0d 02 76 3a f2 73  71 75 61 72 65 28 33 36  |5)..v:.square(36|
00000490  30 2c 31 34 30 2a b5 b2  28 28 66 72 61 6d 65 25  |0,140*..((frame%|
000004a0  2b 32 20 80 20 37 29 2a  31 38 30 2f 38 29 2b 32  |+2 . 7)*180/8)+2|
000004b0  30 30 2c 34 30 2c 34 30  2c 34 35 29 0d 02 80 09  |00,40,40,45)....|
000004c0  e6 20 30 2c 30 0d 02 8a  24 f2 73 71 75 61 72 65  |. 0,0...$.square|
000004d0  28 30 2c 38 30 2c 31 32  30 2c 35 30 2c 66 72 61  |(0,80,120,50,fra|
000004e0  6d 65 25 2a 39 30 2f 38  29 0d 02 94 27 f2 73 71  |me%*90/8)...'.sq|
000004f0  75 61 72 65 28 2d 31 37  30 2c 31 30 30 2c 36 30  |uare(-170,100,60|
00000500  2c 32 35 2c 66 72 61 6d  65 25 2a 39 30 2f 38 29  |,25,frame%*90/8)|
00000510  0d 02 9e 26 f2 73 71 75  61 72 65 28 31 37 30 2c  |...&.square(170,|
00000520  31 30 30 2c 36 30 2c 32  35 2c 66 72 61 6d 65 25  |100,60,25,frame%|
00000530  2a 39 30 2f 38 29 0d 02  a8 32 f2 73 71 75 61 72  |*90/8)...2.squar|
00000540  65 28 2d 33 36 30 2c 31  34 30 2d 37 30 2a b5 b2  |e(-360,140-70*..|
00000550  28 66 72 61 6d 65 25 2a  31 38 30 2f 38 29 2c 34  |(frame%*180/8),4|
00000560  30 2c 32 30 2c 34 35 29  0d 02 b2 39 f2 73 71 75  |0,20,45)...9.squ|
00000570  61 72 65 28 33 36 30 2c  31 34 30 2d 37 30 2a b5  |are(360,140-70*.|
00000580  b2 28 28 66 72 61 6d 65  25 2b 32 20 80 20 37 29  |.((frame%+2 . 7)|
00000590  2a 31 38 30 2f 38 29 2c  34 30 2c 32 30 2c 34 35  |*180/8),40,20,45|
000005a0  29 0d 02 bc 11 21 73 63  72 65 65 6e 3d 26 36 37  |)....!screen=&67|
000005b0  30 30 0d 02 c6 0e d6 20  63 6f 6d 70 72 65 73 73  |00..... compress|
000005c0  0d 02 d0 05 ed 0d 02 da  05 e1 0d 02 e4 05 3a 0d  |..............:.|
000005d0  02 ee 21 dd 20 f2 73 71  75 61 72 65 28 78 25 2c  |..!. .square(x%,|
000005e0  79 25 2c 78 72 25 2c 79  72 25 2c 72 6f 74 25 29  |y%,xr%,yr%,rot%)|
000005f0  0d 02 f8 25 ec 20 b5 b2  28 72 6f 74 25 29 2a 78  |...%. ..(rot%)*x|
00000600  72 25 2b 78 25 2c 9b b2  28 72 6f 74 25 29 2a 79  |r%+x%,..(rot%)*y|
00000610  72 25 2b 79 25 0d 03 02  2b ec 20 b5 b2 28 72 6f  |r%+y%...+. ..(ro|
00000620  74 25 2b 39 30 29 2a 78  72 25 2b 78 25 2c 9b b2  |t%+90)*xr%+x%,..|
00000630  28 72 6f 74 25 2b 39 30  29 2a 79 72 25 2b 79 25  |(rot%+90)*yr%+y%|
00000640  0d 03 0c 30 f0 20 38 35  2c b5 b2 28 72 6f 74 25  |...0. 85,..(rot%|
00000650  2b 32 37 30 29 2a 78 72  25 2b 78 25 2c 9b b2 28  |+270)*xr%+x%,..(|
00000660  72 6f 74 25 2b 32 37 30  29 2a 79 72 25 2b 79 25  |rot%+270)*yr%+y%|
00000670  0d 03 16 30 f0 20 38 35  2c b5 b2 28 72 6f 74 25  |...0. 85,..(rot%|
00000680  2b 31 38 30 29 2a 78 72  25 2b 78 25 2c 9b b2 28  |+180)*xr%+x%,..(|
00000690  72 6f 74 25 2b 31 38 30  29 2a 79 72 25 2b 79 25  |rot%+180)*yr%+y%|
000006a0  0d 03 20 05 e1 0d 03 2a  05 3a 0d 03 34 0f dd 20  |.. ....*.:..4.. |
000006b0  f2 70 6c 61 79 62 61 63  6b 0d 03 3e 05 f5 0d 03  |.playback..>....|
000006c0  48 0e 21 6d 65 6d 3d 26  31 46 30 30 0d 03 52 33  |H.!mem=&1F00..R3|
000006d0  e3 20 4e 25 3d 30 20 b8  20 37 3a 21 73 63 72 65  |. N%=0 . 7:!scre|
000006e0  65 6e 3d 26 36 37 30 30  3a 21 6d 65 6d 3d 61 25  |en=&6700:!mem=a%|
000006f0  28 4e 25 29 3a d6 20 65  78 70 61 6e 64 3a ed 0d  |(N%):. expand:..|
00000700  03 5c 07 fd 20 a3 0d 03  66 05 e1 0d 03 e8 0a de  |.\.. ...f.......|
00000710  61 25 28 37 29 0d 03 f2  15 e3 6e 25 3d 30 b8 37  |a%(7).....n%=0.7|
00000720  3a f3 61 25 28 6e 25 29  3a ed 0d 03 fc 1c e7 20  |:.a%(n%):...... |
00000730  ac 20 4d 25 20 ff 22 4c  4f 41 44 20 44 41 54 33  |. M% ."LOAD DAT3|
00000740  20 31 46 30 30 22 0d 04  06 05 f5 0d 04 10 0e 21  | 1F00".........!|
00000750  6d 65 6d 3d 26 31 46 30  30 0d 04 1a 33 e3 20 4e  |mem=&1F00...3. N|
00000760  25 3d 30 20 b8 20 37 3a  21 73 63 72 65 65 6e 3d  |%=0 . 7:!screen=|
00000770  26 36 37 30 30 3a 21 6d  65 6d 3d 61 25 28 4e 25  |&6700:!mem=a%(N%|
00000780  29 3a d6 20 65 78 70 61  6e 64 3a ed 0d 04 24 0a  |):. expand:...$.|
00000790  fd 20 ac 20 a6 30 0d 04  2e 14 e7 20 4d 25 20 e0  |. . .0..... M% .|
000007a0  20 8b d7 22 41 4d 45 4e  55 22 0d 04 38 35 dc 20  | .."AMENU"..85. |
000007b0  26 31 46 30 30 2c 26 32  36 38 39 2c 26 32 45 31  |&1F00,&2689,&2E1|
000007c0  37 2c 26 33 35 44 43 2c  26 33 44 37 37 2c 26 34  |7,&35DC,&3D77,&4|
000007d0  34 46 32 2c 26 34 43 36  43 2c 26 35 33 46 31 0d  |4F2,&4C6C,&53F1.|
000007e0  07 d0 08 4d 25 3d b9 0d  07 da 0c 2a 46 58 32 30  |...M%=.....*FX20|
000007f0  30 2c 33 0d 07 e4 11 2a  4c 4f 41 44 20 43 6f 6d  |0,3....*LOAD Com|
00000800  70 4d 2f 43 0d 07 ee 10  e7 20 ac 20 44 25 20 e5  |pM/C..... . D% .|
00000810  8d 54 60 48 0d 07 f8 0b  d3 3d 26 37 44 38 30 0d  |.T`H.....=&7D80.|
00000820  08 02 12 ef 32 38 2c 30  2c 33 31 2c 31 39 2c 33  |....28,0,31,19,3|
00000830  30 0d 08 0c 24 21 26 37  30 3d 26 36 37 30 30 3a  |0...$!&70=&6700:|
00000840  21 26 37 34 3d 26 31 46  30 30 3a 21 26 37 38 3d  |!&74=&1F00:!&78=|
00000850  26 32 41 30 30 0d 08 16  13 2a 4c 4f 41 44 20 44  |&2A00....*LOAD D|
00000860  41 54 33 20 32 41 30 30  0d 08 20 07 ef 32 31 0d  |AT3 2A00.. ..21.|
00000870  08 2a 58 2a 4b 45 59 30  20 2a 54 41 50 45 7c 4d  |.*X*KEY0 *TAPE|M|
00000880  46 4f 52 49 25 3d 30 20  54 4f 20 54 4f 50 2d 50  |FORI%=0 TO TOP-P|
00000890  41 47 45 20 53 54 45 50  34 3a 49 25 21 26 45 30  |AGE STEP4:I%!&E0|
000008a0  30 3d 49 25 21 50 41 47  45 3a 4e 45 58 54 7c 4d  |0=I%!PAGE:NEXT|M|
000008b0  50 41 47 45 3d 26 45 30  30 7c 4d 4f 4c 44 7c 4d  |PAGE=&E00|MOLD|M|
000008c0  52 55 4e 7c 46 7c 4d 0d  08 34 10 2a 46 58 31 33  |RUN|F|M..4.*FX13|
000008d0  38 2c 30 2c 31 32 38 0d  ff                       |8,0,128..|
000008d9