Home » Archimedes archive » Acorn User » AU 1998-09.adf » Regulars » StarInfo/Wareham/!Julia/CrJulia

StarInfo/Wareham/!Julia/CrJulia

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1998-09.adf » Regulars
Filename: StarInfo/Wareham/!Julia/CrJulia
Read OK:
File size: 1347 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM>ADFS::Richard.$.Develop4.Entrain.CrJulia squished by MH's BASIC cruncher v1.30 16/9/89 On 02 Feb 1994
   20u=12:ONERRORREPORT:PRINT" : ";ERL:END
   30PRINT"Julia Trails - By Richard J. Wareham":PRINT:PRINT"Press space-bar to end the display":PRINT:PRINT"Display position? (Y/N)":G$=GET$:s%=FALSE:IFG$="Y"ORG$="y"THENs%=TRUE
   40PRINT:PRINT"I have detected that you can":PRINT"run this program in ";:IF(MODE>=18ANDMODE<=21)OR(MODE>=25ANDMODE<=31)THEN
   50PRINT"high Resolution mode":PRINT:PRINT"OK? (Y/N)":G$=GET$:IFG$="Y"ORG$="y"THEN
   60PROCa(FALSE)
   70ELSE:PROCa(TRUE)
   80ENDIF
   90ELSE:PRINT"low Resolution mode":PRINT:PRINT"OK? (Y/N)":G$=GET$:IFG$="Y"ORG$="y"THEN
  100PROCa(TRUE)
  110ELSE:PROCa(FALSE)
  120ENDIF
  130ENDIF
  140MODE13:OFF:PROCc:END
  150
  160DEFPROCc:a%=0:REPEAT:RESTORE
  170READa$:REPEAT:FORy%=0TO(9<<2)STEP(1<<2):a%+=5:c=RAD(a%):d%=127*(1+SIN(c+(PI/2))):e%=127*(1+SIN(c+(8*PI/5))):f%=127*(1+SIN(c+(5*PI/6))):h%=127*(1+SIN(c+(5*PI/7))):i%=127*(1+SIN(c+(9*PI/5))):j%=127*(1+SIN(c+(PI/6))):WAIT
  180PROCb("Julia Trails - By RJW",900,d%,e%,f%,h%,i%,j%):PROCb("~~~~~~~~~~~~~~~~~~~~~",858,d%,e%,f%,h%,i%,j%):RECTANGLE0,0,1274,850TO0,4:GCOL0TINT0:LINE0,0,1274,0:RECTANGLEFILL0,830,1274,20:PROCb(a$,y%-(8<<2),255,255,0,0,255,255):NEXT:A$=INKEY$(0):READa$:UNTILa$="--END--"ORA$<>"":UNTILA$<>"":ENDPROC
  190
  200DEFPROCb(a$,y%,d%,e%,f%,h%,i%,j%):PROCd(a$,640-(LEN(a$)<<4),y%,d%,e%,f%,h%,i%,j%):ENDPROC
  210
  220DEFPROCd(a$,x%,y%,d%,e%,f%,h%,i%,j%):LOCALr%,g%,b%,l%,k%:LOCALt%,u%,v%,l%:VDU5
  230k%=0:t%=(h%-d%)>>4:u%=(i%-e%)>>4:v%=(j%-f%)>>4:FORl%=y%+(8<<2)TOy%STEP-(1<<2):r%=d%+(t%*k%):g%=e%+(u%*k%):b%=f%+(v%*k%):SYS"ColourTrans_SetGCOL",(r%<<8)+(g%<<16)+(b%<<24),,,(1<<8):VDU24,0;l%-(1<<2);1274;l%;
  240MOVEx%,y%+(8<<2):PRINTa$:k%+=1:NEXT:VDU24,0;0;1274;1020;
  250ENDPROC
  260
  270DEFPROCa(v):DIMQ% 270000:IFvTHEN
  280MODE9:DIMo 320*256:s=1:m=0:p=0.02:w=2
  290ELSE:MODE27:DIMo 320*256*4:s=2:m=1:p=0.04:w=3
  300ENDIF
  310q=256:A=0:B=1:X=2:Y=3:f=4:g=5:W=6:T=7:I=8:O=10:R=11:E=12:J=13:K=14:d=0:h=1:Q=4:C=5:FORP=0TO2STEP2:P%=Q%:[OPT P:.r EQUD148:EQUD-1:.e EQUD0:.i EQUD o:.x:STMFD13!,{14}:LDR O,e:ADR E,t:MOV X,#80*s:MOV Y,#128*s:MOV T,Y,LSL#(5+m):ADD T,T,Y,LSL#(7+m)
  320ADD T,T,X:ADD O,O,T:MOV X,#0:MOV Y,#0:MOV I,#q:MOV W,#1:BL j:LDMFD13!,{PC}:.j:ADD f,X,X,ASR #2:ADD g,Y,Y,ASR #2:MOV g,g,ASR #9-m:ANDR,W,f,ASR #9-m:MOVR,R,LSL #2:MOV f,f,ASR #9-m:MOV T,g,LSL#(5+m):ADD T,T,g,LSL#(7+m):ADD T,T,f,ASR#1:LDRB C,[O,T]
  330MOV W,#15:AND Q,W,C,LSR R:MOV W,#1:CMP I,#0:CMPNE Q,#15:MOVEQ PC,14:MOV W,#15:ORR C,C,W,LSL R:MOV W,#1:CMP I,#(q-u):STRLSB C,[O,T]:SUB X,X,A:SUB Y,Y,B:MOVS T,X,ASR #1:RSBMI T,T,#0:MUL R,T,T:MOVS T,Y,ASR #1:RSBMI T,T,#0:MLA R,T,T,R:MOV T,R,LSR #16
  340ADD T,T,#1:LDRR,[E,T,LSL #2]:ADD T,R,X,ASR #1:SUBR,R,X,ASR #1:MOV T,T,LSR #1:LDR X,[E,T,LSL #2]:RSBLT X,X,#0:MOVR,R,LSR #1:LDR Y,[E,R,LSL #2]:STMFD13!,{X,Y,I,14}:SUB I,I,#1:BL j:LDMFD13!,{X,Y,I}:RSB X,X,#0:RSB Y,Y,#0:SUB I,I,#1:BL j
  350LDMFD13!,{PC}:.y:mov W,#0:add T,W,#1<<30:cmp Q,T:subhs Q,Q,T:adc W,W,W: ]:FORI%=2TO30STEP2:[OPT P:add T,W,#1<<30:cmp Q,T,ROR #I%:subhs Q,Q,T,ROR #I%:adc W,W,W: ]:NEXT:[OPT P:MOV PC,14:.z:STMFD13!,{14}:ADR E,t:MOV C,#0:.D:MOV Q,C,LSL #16:BL y
  360STR W,[E],#4:ADD C,C,#1:CMP C,#1<<16:BLO D:MOV W,#1<<16:STR W,[E]:LDMFD13!,{PC}:.F:ADR0,r:ADR1,e:SWI "OS_ReadVduVariables":LDR d,e:LDR h,i:MOV E,#320*256*4*s*s:.G:LDMIA(d)!,{2-9}:STMIA(h)!,{2-9}:SUBS E,E,#16*8:BNE G:MOV PC,14:.L
  370ADR0,r:ADR1,e:SWI "OS_ReadVduVariables":LDR d,e:LDR h,i:MOV E,#320*256*4*s*s:.k:LDMIA(h)!,{2-9}:STMIA(d)!,{2-9}:SUBS E,E,#16*8:BNE k:MOV PC,14:.H:LDR d,e:LDR h,i:MOV E,#320*256*2*s*s:.k:LDMIA(d),{6-9}:MOV2,#15: ]:FORq%=6TO9:[OPT P:MOV4,#0
  380AND3,2,q%:CMP3,#0:SUBGT1,3,#1:MOVLE1,3:ORR4,4,1: ]:FORw%=4TO28STEP4:[:OPT P:AND3,2,q%,LSR#w%:CMP3,#0:SUBGT1,3,#1:MOVLE1,3:ORR4,4,1,LSL#w%: ]:NEXT:[OPT P:MOVq%,4: ]:NEXT:[OPT P:STMIA(d)!,{6-9}:SUBS E,E,#16*4:BNE k:MOV PC,14:.t: ]:NEXT:CALLz:CLS:OFF:F%=256*64*s:a=0:b=0
  390m%=RND(1280):n%=RND(1024):o%=RND(1280):p%=RND(1024):z%=o%-m%:C%=p%-n%:l=0:GCOL15:FORc%=0TO15:COLOURc%,c%*16,c%*16,c%*16:NEXT:GCOL15:CALLF:c=0:n=0:REPEAT:a%=m%+(l*z%):b%=n%+(l*C%):l+=0.5*p:IFl>=1THEN
  400m%=o%:n%=p%:o%=RND(1280):p%=RND(1024):z%=o%-m%:C%=p%-n%:l=0
  410ENDIF
  420WAIT:IFs%CIRCLEFILLa%,b%,8
  430a%-=768:b%-=512:A%=a%*64:B%=b%*64:c+=0.01*PI:r%=128*(1+SIN(c)):g%=128*(1+SIN((PI)+c)):D%=128*(1+SIN((PI/2)+c*1.5)):FORc%=0TO15:COLOURc%,(c%*r%)>>4,(c%*g%)>>4,(c%*D%)>>4:NEXT:CALLx:n=(n+1)EOR7:IFn=0CALLH
  440UNTILINKEY$(0)=" ":ENDPROC
  450
  460DATA "CREDITS"
  470DATA "~~~~~~~"
  480DATA ""
  490DATA "Original idea"
  500DATA "~~~~~~~~~~~~~"
  510DATA "Unknown. This program was based on a"
  520DATA "Unix screen-saver (as all the best"
  530DATA "graphics demos are :-) )."
  540DATA ""
  550DATA "Programming"
  560DATA "~~~~~~~~~~~"
  570DATA "Richard J. Wareham"
  580DATA ""
  590DATA "ABOUT THE AUTHOR"
  600DATA "~~~~~~~~~~~~~~~~"
  610DATA ""
  620DATA "Richard James Wareham was born in"
  630DATA "Derby in 1980 and currently lives in"
  640DATA "St Ives, Cambridgeshire. He has been"
  650DATA "programming Acorns for far too long and"
  660DATA "does all he can to tell everyone about"
  670DATA "how they are the best computers in the"
  680DATA "civilised world."
  690DATA ""
  700DATA "He develops on a 4Mb A5000 with no CD"
  710DATA "Drive and RISC OS 3.1. He is maddly" 
  720DATA "jealous of people with RISC PCs (you "
  721DATA "know who you are!)."
  750DATA ""
  760DATA "E-Mail : rjwareham@hotmail.com"
  770DATA ""
  780DATA "Press any key to end, otherwise we will"
  790DATA "be stuck in a temporal loop forever."
  830DATA ""
  840DATA "(C) 1998 Richard J. Wareham"
  850DATA ""
  860DATA ""
  870DATA ""
  880DATA ""
  890DATA ""
  900DATA ""
  910DATA "--END--"

k�>ADFS::Richard.$.Develop4.Entrain.CrJulia squished by MH's BASIC cruncher v1.30 16/9/89 On 02 Feb 1994
u=12:�:�" : ";�:�
��"Julia Trails - By Richard J. Wareham":�:�"Press space-bar to end the display":�:�"Display position? (Y/N)":G$=�:s%=�:�G$="Y"�G$="y"�s%=�
(\�:�"I have detected that you can":�"run this program in ";:�(�>=18��<=21)�(�>=25��<=31)�
2?�"high Resolution mode":�:�"OK? (Y/N)":G$=�:�G$="Y"�G$="y"�
<	�a(�)
F�:�a(�)
P�
Z@�:�"low Resolution mode":�:�"OK? (Y/N)":G$=�:�G$="Y"�G$="y"�
d	�a(�)
n�:�a(�)
x�
��
��13:�:�c:�
�
���c:a%=0:�:�
���a$:�:�y%=0�(9<<2)�(1<<2):a%+=5:c=�(a%):d%=127*(1+�(c+(�/2))):e%=127*(1+�(c+(8*�/5))):f%=127*(1+�(c+(5*�/6))):h%=127*(1+�(c+(5*�/7))):i%=127*(1+�(c+(9*�/5))):j%=127*(1+�(c+(�/6))):Ȗ
���b("Julia Trails - By RJW",900,d%,e%,f%,h%,i%,j%):�b("~~~~~~~~~~~~~~~~~~~~~",858,d%,e%,f%,h%,i%,j%):ȓ0,0,1274,850�0,4:�0Ȝ0:�0,0,1274,0:ȓȐ0,830,1274,20:�b(a$,y%-(8<<2),255,255,0,0,255,255):�:A$=�(0):�a$:�a$="--END--"�A$<>"":�A$<>"":�
�
�M��b(a$,y%,d%,e%,f%,h%,i%,j%):�d(a$,640-(�(a$)<<4),y%,d%,e%,f%,h%,i%,j%):�
�
�C��d(a$,x%,y%,d%,e%,f%,h%,i%,j%):�r%,g%,b%,l%,k%:�t%,u%,v%,l%:�5
��k%=0:t%=(h%-d%)>>4:u%=(i%-e%)>>4:v%=(j%-f%)>>4:�l%=y%+(8<<2)�y%�-(1<<2):r%=d%+(t%*k%):g%=e%+(u%*k%):b%=f%+(v%*k%):ș"ColourTrans_SetGCOL",(r%<<8)+(g%<<16)+(b%<<24),,,(1<<8):�24,0;l%-(1<<2);1274;l%;
�0�x%,y%+(8<<2):�a$:k%+=1:�:�24,0;0;1274;1020;
��

��a(v):�Q% 270000:�v�
$�9:�o 320*256:s=1:m=0:p=0.02:w=2
")�:�27:�o 320*256*4:s=2:m=1:p=0.04:w=3
,�
6�q=256:A=0:B=1:X=2:Y=3:f=4:g=5:W=6:T=7:I=8:O=10:R=11:E=12:J=13:K=14:d=0:h=1:Q=4:C=5:�P=0�2�2:P%=Q%:[OPT P:.r EQUD148:EQUD-1:.e EQUD0:.i EQUD o:.x:STMFD13!,{14}:LDR O,e:ADR E,t:MOV X,#80*s:MOV Y,#128*s:MOV T,Y,LSL#(5+m):ADD T,T,Y,LSL#(7+m)
@�ADD T,T,X:ADD O,O,T:MOV X,#0:MOV Y,#0:MOV I,#q:MOV W,#1:BL j:LDMFD13!,{PC}:.j:ADD f,X,X,ASR #2:ADD g,Y,Y,ASR #2:MOV g,g,ASR #9-m:�R,W,f,ASR #9-m:MOVR,R,LSL #2:MOV f,f,ASR #9-m:MOV T,g,LSL#(5+m):ADD T,T,g,LSL#(7+m):ADD T,T,f,ASR#1:LDRB C,[O,T]
J�MOV W,#15:� Q,W,C,LSR R:MOV W,#1:CMP I,#0:CMPNE Q,#15:�Q PC,14:MOV W,#15:�R C,C,W,LSL R:MOV W,#1:CMP I,#(q-u):STRLSB C,[O,T]:SUB X,X,A:SUB Y,Y,B:MOVS T,X,ASR #1:RSBMI T,T,#0:MUL R,T,T:MOVS T,Y,ASR #1:RSBMI T,T,#0:MLA R,T,T,R:MOV T,R,LSR #16
T�ADD T,T,#1:LDRR,[E,T,LSL #2]:ADD T,R,X,ASR #1:SUBR,R,X,ASR #1:MOV T,T,LSR #1:LDR X,[E,T,LSL #2]:RSBLT X,X,#0:MOVR,R,LSR #1:LDR Y,[E,R,LSL #2]:STMFD13!,{X,Y,I,14}:SUB I,I,#1:BL j:LDMFD13!,{X,Y,I}:RSB X,X,#0:RSB Y,Y,#0:SUB I,I,#1:BL j
^�LDMFD13!,{PC}:.y:mov W,#0:add T,W,#1<<30:cmp Q,T:subhs Q,Q,T:adc W,W,W: ]:�I%=2�30�2:[OPT P:add T,W,#1<<30:cmp Q,T,ROR #I%:subhs Q,Q,T,ROR #I%:adc W,W,W: ]:�:[OPT P:MOV PC,14:.z:STMFD13!,{14}:ADR E,t:MOV C,#0:.D:MOV Q,C,LSL #16:BL y
h�STR W,[E],#4:ADD C,C,#1:CMP C,#1<<16:BLO D:MOV W,#1<<16:STR W,[E]:LDMFD13!,{PC}:.F:ADR0,r:ADR1,e:SWI "OS_ReadVduVariables":LDR d,e:LDR h,i:MOV E,#320*256*4*s*s:.G:LDMIA(d)!,{2-9}:STMIA(h)!,{2-9}:SUBS E,E,#16*8:BNE G:MOV PC,14:.L
r�ADR0,r:ADR1,e:SWI "OS_ReadVduVariables":LDR d,e:LDR h,i:MOV E,#320*256*4*s*s:.k:LDMIA(h)!,{2-9}:STMIA(d)!,{2-9}:SUBS E,E,#16*8:BNE k:MOV PC,14:.H:LDR d,e:LDR h,i:MOV E,#320*256*2*s*s:.k:LDMIA(d),{6-9}:MOV2,#15: ]:�q%=6�9:[OPT P:MOV4,#0
|�3,2,q%:CMP3,#0:SUBGT1,3,#1:MOVLE1,3:�R4,4,1: ]:�w%=4�28�4:[:OPT P:�3,2,q%,LSR#w%:CMP3,#0:SUBGT1,3,#1:MOVLE1,3:�R4,4,1,LSL#w%: ]:�:[OPT P:MOVq%,4: ]:�:[OPT P:STMIA(d)!,{6-9}:SUBS E,E,#16*4:BNE k:MOV PC,14:.t: ]:�:�z:�:�:F%=256*64*s:a=0:b=0
��m%=�(1280):n%=�(1024):o%=�(1280):p%=�(1024):z%=o%-m%:C%=p%-n%:l=0:�15:�c%=0�15:�c%,c%*16,c%*16,c%*16:�:�15:�F:c=0:n=0:�:a%=m%+(l*z%):b%=n%+(l*C%):l+=0.5*p:�l>=1�
�;m%=o%:n%=p%:o%=�(1280):p%=�(1024):z%=o%-m%:C%=p%-n%:l=0
��
�Ȗ:�s%ȏȐa%,b%,8
��a%-=768:b%-=512:A%=a%*64:B%=b%*64:c+=0.01*�:r%=128*(1+�(c)):g%=128*(1+�((�)+c)):D%=128*(1+�((�/2)+c*1.5)):�c%=0�15:�c%,(c%*r%)>>4,(c%*g%)>>4,(c%*D%)>>4:�:�x:n=(n+1)�7:�n=0�H
���(0)=" ":�
�
�� "CREDITS"
�� "~~~~~~~"
�� ""
�� "Original idea"
�� "~~~~~~~~~~~~~"
�,� "Unknown. This program was based on a"
*� "Unix screen-saver (as all the best"
!� "graphics demos are :-) )."
� ""
&� "Programming"
0� "~~~~~~~~~~~"
:� "Richard J. Wareham"
D� ""
N� "ABOUT THE AUTHOR"
X� "~~~~~~~~~~~~~~~~"
b� ""
l)� "Richard James Wareham was born in"
v,� "Derby in 1980 and currently lives in"
�,� "St Ives, Cambridgeshire. He has been"
�/� "programming Acorns for far too long and"
�.� "does all he can to tell everyone about"
�.� "how they are the best computers in the"
�� "civilised world."
�� ""
�-� "He develops on a 4Mb A5000 with no CD"
�,� "Drive and RISC OS 3.1. He is maddly" 
�-� "jealous of people with RISC PCs (you "
�� "know who you are!)."
�� ""
�&� "E-Mail : rjwareham@hotmail.com"
� ""
/� "Press any key to end, otherwise we will"
,� "be stuck in a temporal loop forever."
>� ""
H#� "(C) 1998 Richard J. Wareham"
R� ""
\� ""
f� ""
p� ""
z� ""
�� ""
�� "--END--"
�
00000000  0d 00 0a 6b f4 3e 41 44  46 53 3a 3a 52 69 63 68  |...k.>ADFS::Rich|
00000010  61 72 64 2e 24 2e 44 65  76 65 6c 6f 70 34 2e 45  |ard.$.Develop4.E|
00000020  6e 74 72 61 69 6e 2e 43  72 4a 75 6c 69 61 20 73  |ntrain.CrJulia s|
00000030  71 75 69 73 68 65 64 20  62 79 20 4d 48 27 73 20  |quished by MH's |
00000040  42 41 53 49 43 20 63 72  75 6e 63 68 65 72 20 76  |BASIC cruncher v|
00000050  31 2e 33 30 20 31 36 2f  39 2f 38 39 20 4f 6e 20  |1.30 16/9/89 On |
00000060  30 32 20 46 65 62 20 31  39 39 34 0d 00 14 17 75  |02 Feb 1994....u|
00000070  3d 31 32 3a ee 85 f6 3a  f1 22 20 3a 20 22 3b 9e  |=12:...:." : ";.|
00000080  3a e0 0d 00 1e 8e f1 22  4a 75 6c 69 61 20 54 72  |:......"Julia Tr|
00000090  61 69 6c 73 20 2d 20 42  79 20 52 69 63 68 61 72  |ails - By Richar|
000000a0  64 20 4a 2e 20 57 61 72  65 68 61 6d 22 3a f1 3a  |d J. Wareham":.:|
000000b0  f1 22 50 72 65 73 73 20  73 70 61 63 65 2d 62 61  |."Press space-ba|
000000c0  72 20 74 6f 20 65 6e 64  20 74 68 65 20 64 69 73  |r to end the dis|
000000d0  70 6c 61 79 22 3a f1 3a  f1 22 44 69 73 70 6c 61  |play":.:."Displa|
000000e0  79 20 70 6f 73 69 74 69  6f 6e 3f 20 28 59 2f 4e  |y position? (Y/N|
000000f0  29 22 3a 47 24 3d be 3a  73 25 3d a3 3a e7 47 24  |)":G$=.:s%=.:.G$|
00000100  3d 22 59 22 84 47 24 3d  22 79 22 8c 73 25 3d b9  |="Y".G$="y".s%=.|
00000110  0d 00 28 5c f1 3a f1 22  49 20 68 61 76 65 20 64  |..(\.:."I have d|
00000120  65 74 65 63 74 65 64 20  74 68 61 74 20 79 6f 75  |etected that you|
00000130  20 63 61 6e 22 3a f1 22  72 75 6e 20 74 68 69 73  | can":."run this|
00000140  20 70 72 6f 67 72 61 6d  20 69 6e 20 22 3b 3a e7  | program in ";:.|
00000150  28 eb 3e 3d 31 38 80 eb  3c 3d 32 31 29 84 28 eb  |(.>=18..<=21).(.|
00000160  3e 3d 32 35 80 eb 3c 3d  33 31 29 8c 0d 00 32 3f  |>=25..<=31)...2?|
00000170  f1 22 68 69 67 68 20 52  65 73 6f 6c 75 74 69 6f  |."high Resolutio|
00000180  6e 20 6d 6f 64 65 22 3a  f1 3a f1 22 4f 4b 3f 20  |n mode":.:."OK? |
00000190  28 59 2f 4e 29 22 3a 47  24 3d be 3a e7 47 24 3d  |(Y/N)":G$=.:.G$=|
000001a0  22 59 22 84 47 24 3d 22  79 22 8c 0d 00 3c 09 f2  |"Y".G$="y"...<..|
000001b0  61 28 a3 29 0d 00 46 0b  cc 3a f2 61 28 b9 29 0d  |a(.)..F..:.a(.).|
000001c0  00 50 05 cd 0d 00 5a 40  cc 3a f1 22 6c 6f 77 20  |.P....Z@.:."low |
000001d0  52 65 73 6f 6c 75 74 69  6f 6e 20 6d 6f 64 65 22  |Resolution mode"|
000001e0  3a f1 3a f1 22 4f 4b 3f  20 28 59 2f 4e 29 22 3a  |:.:."OK? (Y/N)":|
000001f0  47 24 3d be 3a e7 47 24  3d 22 59 22 84 47 24 3d  |G$=.:.G$="Y".G$=|
00000200  22 79 22 8c 0d 00 64 09  f2 61 28 b9 29 0d 00 6e  |"y"...d..a(.)..n|
00000210  0b cc 3a f2 61 28 a3 29  0d 00 78 05 cd 0d 00 82  |..:.a(.)..x.....|
00000220  05 cd 0d 00 8c 0e eb 31  33 3a 87 3a f2 63 3a e0  |.......13:.:.c:.|
00000230  0d 00 96 04 0d 00 a0 10  dd f2 63 3a 61 25 3d 30  |..........c:a%=0|
00000240  3a f5 3a f7 0d 00 aa ba  f3 61 24 3a f5 3a e3 79  |:.:......a$:.:.y|
00000250  25 3d 30 b8 28 39 3c 3c  32 29 88 28 31 3c 3c 32  |%=0.(9<<2).(1<<2|
00000260  29 3a 61 25 2b 3d 35 3a  63 3d b2 28 61 25 29 3a  |):a%+=5:c=.(a%):|
00000270  64 25 3d 31 32 37 2a 28  31 2b b5 28 63 2b 28 af  |d%=127*(1+.(c+(.|
00000280  2f 32 29 29 29 3a 65 25  3d 31 32 37 2a 28 31 2b  |/2))):e%=127*(1+|
00000290  b5 28 63 2b 28 38 2a af  2f 35 29 29 29 3a 66 25  |.(c+(8*./5))):f%|
000002a0  3d 31 32 37 2a 28 31 2b  b5 28 63 2b 28 35 2a af  |=127*(1+.(c+(5*.|
000002b0  2f 36 29 29 29 3a 68 25  3d 31 32 37 2a 28 31 2b  |/6))):h%=127*(1+|
000002c0  b5 28 63 2b 28 35 2a af  2f 37 29 29 29 3a 69 25  |.(c+(5*./7))):i%|
000002d0  3d 31 32 37 2a 28 31 2b  b5 28 63 2b 28 39 2a af  |=127*(1+.(c+(9*.|
000002e0  2f 35 29 29 29 3a 6a 25  3d 31 32 37 2a 28 31 2b  |/5))):j%=127*(1+|
000002f0  b5 28 63 2b 28 af 2f 36  29 29 29 3a c8 96 0d 00  |.(c+(./6))):....|
00000300  b4 f0 f2 62 28 22 4a 75  6c 69 61 20 54 72 61 69  |...b("Julia Trai|
00000310  6c 73 20 2d 20 42 79 20  52 4a 57 22 2c 39 30 30  |ls - By RJW",900|
00000320  2c 64 25 2c 65 25 2c 66  25 2c 68 25 2c 69 25 2c  |,d%,e%,f%,h%,i%,|
00000330  6a 25 29 3a f2 62 28 22  7e 7e 7e 7e 7e 7e 7e 7e  |j%):.b("~~~~~~~~|
00000340  7e 7e 7e 7e 7e 7e 7e 7e  7e 7e 7e 7e 7e 22 2c 38  |~~~~~~~~~~~~~",8|
00000350  35 38 2c 64 25 2c 65 25  2c 66 25 2c 68 25 2c 69  |58,d%,e%,f%,h%,i|
00000360  25 2c 6a 25 29 3a c8 93  30 2c 30 2c 31 32 37 34  |%,j%):..0,0,1274|
00000370  2c 38 35 30 b8 30 2c 34  3a e6 30 c8 9c 30 3a 86  |,850.0,4:.0..0:.|
00000380  30 2c 30 2c 31 32 37 34  2c 30 3a c8 93 c8 90 30  |0,0,1274,0:....0|
00000390  2c 38 33 30 2c 31 32 37  34 2c 32 30 3a f2 62 28  |,830,1274,20:.b(|
000003a0  61 24 2c 79 25 2d 28 38  3c 3c 32 29 2c 32 35 35  |a$,y%-(8<<2),255|
000003b0  2c 32 35 35 2c 30 2c 30  2c 32 35 35 2c 32 35 35  |,255,0,0,255,255|
000003c0  29 3a ed 3a 41 24 3d bf  28 30 29 3a f3 61 24 3a  |):.:A$=.(0):.a$:|
000003d0  fd 61 24 3d 22 2d 2d 45  4e 44 2d 2d 22 84 41 24  |.a$="--END--".A$|
000003e0  3c 3e 22 22 3a fd 41 24  3c 3e 22 22 3a e1 0d 00  |<>"":.A$<>"":...|
000003f0  be 04 0d 00 c8 4d dd f2  62 28 61 24 2c 79 25 2c  |.....M..b(a$,y%,|
00000400  64 25 2c 65 25 2c 66 25  2c 68 25 2c 69 25 2c 6a  |d%,e%,f%,h%,i%,j|
00000410  25 29 3a f2 64 28 61 24  2c 36 34 30 2d 28 a9 28  |%):.d(a$,640-(.(|
00000420  61 24 29 3c 3c 34 29 2c  79 25 2c 64 25 2c 65 25  |a$)<<4),y%,d%,e%|
00000430  2c 66 25 2c 68 25 2c 69  25 2c 6a 25 29 3a e1 0d  |,f%,h%,i%,j%):..|
00000440  00 d2 04 0d 00 dc 43 dd  f2 64 28 61 24 2c 78 25  |......C..d(a$,x%|
00000450  2c 79 25 2c 64 25 2c 65  25 2c 66 25 2c 68 25 2c  |,y%,d%,e%,f%,h%,|
00000460  69 25 2c 6a 25 29 3a ea  72 25 2c 67 25 2c 62 25  |i%,j%):.r%,g%,b%|
00000470  2c 6c 25 2c 6b 25 3a ea  74 25 2c 75 25 2c 76 25  |,l%,k%:.t%,u%,v%|
00000480  2c 6c 25 3a ef 35 0d 00  e6 c9 6b 25 3d 30 3a 74  |,l%:.5....k%=0:t|
00000490  25 3d 28 68 25 2d 64 25  29 3e 3e 34 3a 75 25 3d  |%=(h%-d%)>>4:u%=|
000004a0  28 69 25 2d 65 25 29 3e  3e 34 3a 76 25 3d 28 6a  |(i%-e%)>>4:v%=(j|
000004b0  25 2d 66 25 29 3e 3e 34  3a e3 6c 25 3d 79 25 2b  |%-f%)>>4:.l%=y%+|
000004c0  28 38 3c 3c 32 29 b8 79  25 88 2d 28 31 3c 3c 32  |(8<<2).y%.-(1<<2|
000004d0  29 3a 72 25 3d 64 25 2b  28 74 25 2a 6b 25 29 3a  |):r%=d%+(t%*k%):|
000004e0  67 25 3d 65 25 2b 28 75  25 2a 6b 25 29 3a 62 25  |g%=e%+(u%*k%):b%|
000004f0  3d 66 25 2b 28 76 25 2a  6b 25 29 3a c8 99 22 43  |=f%+(v%*k%):.."C|
00000500  6f 6c 6f 75 72 54 72 61  6e 73 5f 53 65 74 47 43  |olourTrans_SetGC|
00000510  4f 4c 22 2c 28 72 25 3c  3c 38 29 2b 28 67 25 3c  |OL",(r%<<8)+(g%<|
00000520  3c 31 36 29 2b 28 62 25  3c 3c 32 34 29 2c 2c 2c  |<16)+(b%<<24),,,|
00000530  28 31 3c 3c 38 29 3a ef  32 34 2c 30 3b 6c 25 2d  |(1<<8):.24,0;l%-|
00000540  28 31 3c 3c 32 29 3b 31  32 37 34 3b 6c 25 3b 0d  |(1<<2);1274;l%;.|
00000550  00 f0 30 ec 78 25 2c 79  25 2b 28 38 3c 3c 32 29  |..0.x%,y%+(8<<2)|
00000560  3a f1 61 24 3a 6b 25 2b  3d 31 3a ed 3a ef 32 34  |:.a$:k%+=1:.:.24|
00000570  2c 30 3b 30 3b 31 32 37  34 3b 31 30 32 30 3b 0d  |,0;0;1274;1020;.|
00000580  00 fa 05 e1 0d 01 04 04  0d 01 0e 19 dd f2 61 28  |..............a(|
00000590  76 29 3a de 51 25 20 32  37 30 30 30 30 3a e7 76  |v):.Q% 270000:.v|
000005a0  8c 0d 01 18 24 eb 39 3a  de 6f 20 33 32 30 2a 32  |....$.9:.o 320*2|
000005b0  35 36 3a 73 3d 31 3a 6d  3d 30 3a 70 3d 30 2e 30  |56:s=1:m=0:p=0.0|
000005c0  32 3a 77 3d 32 0d 01 22  29 cc 3a eb 32 37 3a de  |2:w=2..").:.27:.|
000005d0  6f 20 33 32 30 2a 32 35  36 2a 34 3a 73 3d 32 3a  |o 320*256*4:s=2:|
000005e0  6d 3d 31 3a 70 3d 30 2e  30 34 3a 77 3d 33 0d 01  |m=1:p=0.04:w=3..|
000005f0  2c 05 cd 0d 01 36 f1 71  3d 32 35 36 3a 41 3d 30  |,....6.q=256:A=0|
00000600  3a 42 3d 31 3a 58 3d 32  3a 59 3d 33 3a 66 3d 34  |:B=1:X=2:Y=3:f=4|
00000610  3a 67 3d 35 3a 57 3d 36  3a 54 3d 37 3a 49 3d 38  |:g=5:W=6:T=7:I=8|
00000620  3a 4f 3d 31 30 3a 52 3d  31 31 3a 45 3d 31 32 3a  |:O=10:R=11:E=12:|
00000630  4a 3d 31 33 3a 4b 3d 31  34 3a 64 3d 30 3a 68 3d  |J=13:K=14:d=0:h=|
00000640  31 3a 51 3d 34 3a 43 3d  35 3a e3 50 3d 30 b8 32  |1:Q=4:C=5:.P=0.2|
00000650  88 32 3a 50 25 3d 51 25  3a 5b 4f 50 54 20 50 3a  |.2:P%=Q%:[OPT P:|
00000660  2e 72 20 45 51 55 44 31  34 38 3a 45 51 55 44 2d  |.r EQUD148:EQUD-|
00000670  31 3a 2e 65 20 45 51 55  44 30 3a 2e 69 20 45 51  |1:.e EQUD0:.i EQ|
00000680  55 44 20 6f 3a 2e 78 3a  53 54 4d 46 44 31 33 21  |UD o:.x:STMFD13!|
00000690  2c 7b 31 34 7d 3a 4c 44  52 20 4f 2c 65 3a 41 44  |,{14}:LDR O,e:AD|
000006a0  52 20 45 2c 74 3a 4d 4f  56 20 58 2c 23 38 30 2a  |R E,t:MOV X,#80*|
000006b0  73 3a 4d 4f 56 20 59 2c  23 31 32 38 2a 73 3a 4d  |s:MOV Y,#128*s:M|
000006c0  4f 56 20 54 2c 59 2c 4c  53 4c 23 28 35 2b 6d 29  |OV T,Y,LSL#(5+m)|
000006d0  3a 41 44 44 20 54 2c 54  2c 59 2c 4c 53 4c 23 28  |:ADD T,T,Y,LSL#(|
000006e0  37 2b 6d 29 0d 01 40 f6  41 44 44 20 54 2c 54 2c  |7+m)..@.ADD T,T,|
000006f0  58 3a 41 44 44 20 4f 2c  4f 2c 54 3a 4d 4f 56 20  |X:ADD O,O,T:MOV |
00000700  58 2c 23 30 3a 4d 4f 56  20 59 2c 23 30 3a 4d 4f  |X,#0:MOV Y,#0:MO|
00000710  56 20 49 2c 23 71 3a 4d  4f 56 20 57 2c 23 31 3a  |V I,#q:MOV W,#1:|
00000720  42 4c 20 6a 3a 4c 44 4d  46 44 31 33 21 2c 7b 50  |BL j:LDMFD13!,{P|
00000730  43 7d 3a 2e 6a 3a 41 44  44 20 66 2c 58 2c 58 2c  |C}:.j:ADD f,X,X,|
00000740  41 53 52 20 23 32 3a 41  44 44 20 67 2c 59 2c 59  |ASR #2:ADD g,Y,Y|
00000750  2c 41 53 52 20 23 32 3a  4d 4f 56 20 67 2c 67 2c  |,ASR #2:MOV g,g,|
00000760  41 53 52 20 23 39 2d 6d  3a 80 52 2c 57 2c 66 2c  |ASR #9-m:.R,W,f,|
00000770  41 53 52 20 23 39 2d 6d  3a 4d 4f 56 52 2c 52 2c  |ASR #9-m:MOVR,R,|
00000780  4c 53 4c 20 23 32 3a 4d  4f 56 20 66 2c 66 2c 41  |LSL #2:MOV f,f,A|
00000790  53 52 20 23 39 2d 6d 3a  4d 4f 56 20 54 2c 67 2c  |SR #9-m:MOV T,g,|
000007a0  4c 53 4c 23 28 35 2b 6d  29 3a 41 44 44 20 54 2c  |LSL#(5+m):ADD T,|
000007b0  54 2c 67 2c 4c 53 4c 23  28 37 2b 6d 29 3a 41 44  |T,g,LSL#(7+m):AD|
000007c0  44 20 54 2c 54 2c 66 2c  41 53 52 23 31 3a 4c 44  |D T,T,f,ASR#1:LD|
000007d0  52 42 20 43 2c 5b 4f 2c  54 5d 0d 01 4a f4 4d 4f  |RB C,[O,T]..J.MO|
000007e0  56 20 57 2c 23 31 35 3a  80 20 51 2c 57 2c 43 2c  |V W,#15:. Q,W,C,|
000007f0  4c 53 52 20 52 3a 4d 4f  56 20 57 2c 23 31 3a 43  |LSR R:MOV W,#1:C|
00000800  4d 50 20 49 2c 23 30 3a  43 4d 50 4e 45 20 51 2c  |MP I,#0:CMPNE Q,|
00000810  23 31 35 3a ec 51 20 50  43 2c 31 34 3a 4d 4f 56  |#15:.Q PC,14:MOV|
00000820  20 57 2c 23 31 35 3a 84  52 20 43 2c 43 2c 57 2c  | W,#15:.R C,C,W,|
00000830  4c 53 4c 20 52 3a 4d 4f  56 20 57 2c 23 31 3a 43  |LSL R:MOV W,#1:C|
00000840  4d 50 20 49 2c 23 28 71  2d 75 29 3a 53 54 52 4c  |MP I,#(q-u):STRL|
00000850  53 42 20 43 2c 5b 4f 2c  54 5d 3a 53 55 42 20 58  |SB C,[O,T]:SUB X|
00000860  2c 58 2c 41 3a 53 55 42  20 59 2c 59 2c 42 3a 4d  |,X,A:SUB Y,Y,B:M|
00000870  4f 56 53 20 54 2c 58 2c  41 53 52 20 23 31 3a 52  |OVS T,X,ASR #1:R|
00000880  53 42 4d 49 20 54 2c 54  2c 23 30 3a 4d 55 4c 20  |SBMI T,T,#0:MUL |
00000890  52 2c 54 2c 54 3a 4d 4f  56 53 20 54 2c 59 2c 41  |R,T,T:MOVS T,Y,A|
000008a0  53 52 20 23 31 3a 52 53  42 4d 49 20 54 2c 54 2c  |SR #1:RSBMI T,T,|
000008b0  23 30 3a 4d 4c 41 20 52  2c 54 2c 54 2c 52 3a 4d  |#0:MLA R,T,T,R:M|
000008c0  4f 56 20 54 2c 52 2c 4c  53 52 20 23 31 36 0d 01  |OV T,R,LSR #16..|
000008d0  54 ec 41 44 44 20 54 2c  54 2c 23 31 3a 4c 44 52  |T.ADD T,T,#1:LDR|
000008e0  52 2c 5b 45 2c 54 2c 4c  53 4c 20 23 32 5d 3a 41  |R,[E,T,LSL #2]:A|
000008f0  44 44 20 54 2c 52 2c 58  2c 41 53 52 20 23 31 3a  |DD T,R,X,ASR #1:|
00000900  53 55 42 52 2c 52 2c 58  2c 41 53 52 20 23 31 3a  |SUBR,R,X,ASR #1:|
00000910  4d 4f 56 20 54 2c 54 2c  4c 53 52 20 23 31 3a 4c  |MOV T,T,LSR #1:L|
00000920  44 52 20 58 2c 5b 45 2c  54 2c 4c 53 4c 20 23 32  |DR X,[E,T,LSL #2|
00000930  5d 3a 52 53 42 4c 54 20  58 2c 58 2c 23 30 3a 4d  |]:RSBLT X,X,#0:M|
00000940  4f 56 52 2c 52 2c 4c 53  52 20 23 31 3a 4c 44 52  |OVR,R,LSR #1:LDR|
00000950  20 59 2c 5b 45 2c 52 2c  4c 53 4c 20 23 32 5d 3a  | Y,[E,R,LSL #2]:|
00000960  53 54 4d 46 44 31 33 21  2c 7b 58 2c 59 2c 49 2c  |STMFD13!,{X,Y,I,|
00000970  31 34 7d 3a 53 55 42 20  49 2c 49 2c 23 31 3a 42  |14}:SUB I,I,#1:B|
00000980  4c 20 6a 3a 4c 44 4d 46  44 31 33 21 2c 7b 58 2c  |L j:LDMFD13!,{X,|
00000990  59 2c 49 7d 3a 52 53 42  20 58 2c 58 2c 23 30 3a  |Y,I}:RSB X,X,#0:|
000009a0  52 53 42 20 59 2c 59 2c  23 30 3a 53 55 42 20 49  |RSB Y,Y,#0:SUB I|
000009b0  2c 49 2c 23 31 3a 42 4c  20 6a 0d 01 5e ec 4c 44  |,I,#1:BL j..^.LD|
000009c0  4d 46 44 31 33 21 2c 7b  50 43 7d 3a 2e 79 3a 6d  |MFD13!,{PC}:.y:m|
000009d0  6f 76 20 57 2c 23 30 3a  61 64 64 20 54 2c 57 2c  |ov W,#0:add T,W,|
000009e0  23 31 3c 3c 33 30 3a 63  6d 70 20 51 2c 54 3a 73  |#1<<30:cmp Q,T:s|
000009f0  75 62 68 73 20 51 2c 51  2c 54 3a 61 64 63 20 57  |ubhs Q,Q,T:adc W|
00000a00  2c 57 2c 57 3a 20 5d 3a  e3 49 25 3d 32 b8 33 30  |,W,W: ]:.I%=2.30|
00000a10  88 32 3a 5b 4f 50 54 20  50 3a 61 64 64 20 54 2c  |.2:[OPT P:add T,|
00000a20  57 2c 23 31 3c 3c 33 30  3a 63 6d 70 20 51 2c 54  |W,#1<<30:cmp Q,T|
00000a30  2c 52 4f 52 20 23 49 25  3a 73 75 62 68 73 20 51  |,ROR #I%:subhs Q|
00000a40  2c 51 2c 54 2c 52 4f 52  20 23 49 25 3a 61 64 63  |,Q,T,ROR #I%:adc|
00000a50  20 57 2c 57 2c 57 3a 20  5d 3a ed 3a 5b 4f 50 54  | W,W,W: ]:.:[OPT|
00000a60  20 50 3a 4d 4f 56 20 50  43 2c 31 34 3a 2e 7a 3a  | P:MOV PC,14:.z:|
00000a70  53 54 4d 46 44 31 33 21  2c 7b 31 34 7d 3a 41 44  |STMFD13!,{14}:AD|
00000a80  52 20 45 2c 74 3a 4d 4f  56 20 43 2c 23 30 3a 2e  |R E,t:MOV C,#0:.|
00000a90  44 3a 4d 4f 56 20 51 2c  43 2c 4c 53 4c 20 23 31  |D:MOV Q,C,LSL #1|
00000aa0  36 3a 42 4c 20 79 0d 01  68 e8 53 54 52 20 57 2c  |6:BL y..h.STR W,|
00000ab0  5b 45 5d 2c 23 34 3a 41  44 44 20 43 2c 43 2c 23  |[E],#4:ADD C,C,#|
00000ac0  31 3a 43 4d 50 20 43 2c  23 31 3c 3c 31 36 3a 42  |1:CMP C,#1<<16:B|
00000ad0  4c 4f 20 44 3a 4d 4f 56  20 57 2c 23 31 3c 3c 31  |LO D:MOV W,#1<<1|
00000ae0  36 3a 53 54 52 20 57 2c  5b 45 5d 3a 4c 44 4d 46  |6:STR W,[E]:LDMF|
00000af0  44 31 33 21 2c 7b 50 43  7d 3a 2e 46 3a 41 44 52  |D13!,{PC}:.F:ADR|
00000b00  30 2c 72 3a 41 44 52 31  2c 65 3a 53 57 49 20 22  |0,r:ADR1,e:SWI "|
00000b10  4f 53 5f 52 65 61 64 56  64 75 56 61 72 69 61 62  |OS_ReadVduVariab|
00000b20  6c 65 73 22 3a 4c 44 52  20 64 2c 65 3a 4c 44 52  |les":LDR d,e:LDR|
00000b30  20 68 2c 69 3a 4d 4f 56  20 45 2c 23 33 32 30 2a  | h,i:MOV E,#320*|
00000b40  32 35 36 2a 34 2a 73 2a  73 3a 2e 47 3a 4c 44 4d  |256*4*s*s:.G:LDM|
00000b50  49 41 28 64 29 21 2c 7b  32 2d 39 7d 3a 53 54 4d  |IA(d)!,{2-9}:STM|
00000b60  49 41 28 68 29 21 2c 7b  32 2d 39 7d 3a 53 55 42  |IA(h)!,{2-9}:SUB|
00000b70  53 20 45 2c 45 2c 23 31  36 2a 38 3a 42 4e 45 20  |S E,E,#16*8:BNE |
00000b80  47 3a 4d 4f 56 20 50 43  2c 31 34 3a 2e 4c 0d 01  |G:MOV PC,14:.L..|
00000b90  72 ef 41 44 52 30 2c 72  3a 41 44 52 31 2c 65 3a  |r.ADR0,r:ADR1,e:|
00000ba0  53 57 49 20 22 4f 53 5f  52 65 61 64 56 64 75 56  |SWI "OS_ReadVduV|
00000bb0  61 72 69 61 62 6c 65 73  22 3a 4c 44 52 20 64 2c  |ariables":LDR d,|
00000bc0  65 3a 4c 44 52 20 68 2c  69 3a 4d 4f 56 20 45 2c  |e:LDR h,i:MOV E,|
00000bd0  23 33 32 30 2a 32 35 36  2a 34 2a 73 2a 73 3a 2e  |#320*256*4*s*s:.|
00000be0  6b 3a 4c 44 4d 49 41 28  68 29 21 2c 7b 32 2d 39  |k:LDMIA(h)!,{2-9|
00000bf0  7d 3a 53 54 4d 49 41 28  64 29 21 2c 7b 32 2d 39  |}:STMIA(d)!,{2-9|
00000c00  7d 3a 53 55 42 53 20 45  2c 45 2c 23 31 36 2a 38  |}:SUBS E,E,#16*8|
00000c10  3a 42 4e 45 20 6b 3a 4d  4f 56 20 50 43 2c 31 34  |:BNE k:MOV PC,14|
00000c20  3a 2e 48 3a 4c 44 52 20  64 2c 65 3a 4c 44 52 20  |:.H:LDR d,e:LDR |
00000c30  68 2c 69 3a 4d 4f 56 20  45 2c 23 33 32 30 2a 32  |h,i:MOV E,#320*2|
00000c40  35 36 2a 32 2a 73 2a 73  3a 2e 6b 3a 4c 44 4d 49  |56*2*s*s:.k:LDMI|
00000c50  41 28 64 29 2c 7b 36 2d  39 7d 3a 4d 4f 56 32 2c  |A(d),{6-9}:MOV2,|
00000c60  23 31 35 3a 20 5d 3a e3  71 25 3d 36 b8 39 3a 5b  |#15: ]:.q%=6.9:[|
00000c70  4f 50 54 20 50 3a 4d 4f  56 34 2c 23 30 0d 01 7c  |OPT P:MOV4,#0..||
00000c80  f3 80 33 2c 32 2c 71 25  3a 43 4d 50 33 2c 23 30  |..3,2,q%:CMP3,#0|
00000c90  3a 53 55 42 47 54 31 2c  33 2c 23 31 3a 4d 4f 56  |:SUBGT1,3,#1:MOV|
00000ca0  4c 45 31 2c 33 3a 84 52  34 2c 34 2c 31 3a 20 5d  |LE1,3:.R4,4,1: ]|
00000cb0  3a e3 77 25 3d 34 b8 32  38 88 34 3a 5b 3a 4f 50  |:.w%=4.28.4:[:OP|
00000cc0  54 20 50 3a 80 33 2c 32  2c 71 25 2c 4c 53 52 23  |T P:.3,2,q%,LSR#|
00000cd0  77 25 3a 43 4d 50 33 2c  23 30 3a 53 55 42 47 54  |w%:CMP3,#0:SUBGT|
00000ce0  31 2c 33 2c 23 31 3a 4d  4f 56 4c 45 31 2c 33 3a  |1,3,#1:MOVLE1,3:|
00000cf0  84 52 34 2c 34 2c 31 2c  4c 53 4c 23 77 25 3a 20  |.R4,4,1,LSL#w%: |
00000d00  5d 3a ed 3a 5b 4f 50 54  20 50 3a 4d 4f 56 71 25  |]:.:[OPT P:MOVq%|
00000d10  2c 34 3a 20 5d 3a ed 3a  5b 4f 50 54 20 50 3a 53  |,4: ]:.:[OPT P:S|
00000d20  54 4d 49 41 28 64 29 21  2c 7b 36 2d 39 7d 3a 53  |TMIA(d)!,{6-9}:S|
00000d30  55 42 53 20 45 2c 45 2c  23 31 36 2a 34 3a 42 4e  |UBS E,E,#16*4:BN|
00000d40  45 20 6b 3a 4d 4f 56 20  50 43 2c 31 34 3a 2e 74  |E k:MOV PC,14:.t|
00000d50  3a 20 5d 3a ed 3a d6 7a  3a db 3a 87 3a 46 25 3d  |: ]:.:.z:.:.:F%=|
00000d60  32 35 36 2a 36 34 2a 73  3a 61 3d 30 3a 62 3d 30  |256*64*s:a=0:b=0|
00000d70  0d 01 86 a5 6d 25 3d b3  28 31 32 38 30 29 3a 6e  |....m%=.(1280):n|
00000d80  25 3d b3 28 31 30 32 34  29 3a 6f 25 3d b3 28 31  |%=.(1024):o%=.(1|
00000d90  32 38 30 29 3a 70 25 3d  b3 28 31 30 32 34 29 3a  |280):p%=.(1024):|
00000da0  7a 25 3d 6f 25 2d 6d 25  3a 43 25 3d 70 25 2d 6e  |z%=o%-m%:C%=p%-n|
00000db0  25 3a 6c 3d 30 3a e6 31  35 3a e3 63 25 3d 30 b8  |%:l=0:.15:.c%=0.|
00000dc0  31 35 3a fb 63 25 2c 63  25 2a 31 36 2c 63 25 2a  |15:.c%,c%*16,c%*|
00000dd0  31 36 2c 63 25 2a 31 36  3a ed 3a e6 31 35 3a d6  |16,c%*16:.:.15:.|
00000de0  46 3a 63 3d 30 3a 6e 3d  30 3a f5 3a 61 25 3d 6d  |F:c=0:n=0:.:a%=m|
00000df0  25 2b 28 6c 2a 7a 25 29  3a 62 25 3d 6e 25 2b 28  |%+(l*z%):b%=n%+(|
00000e00  6c 2a 43 25 29 3a 6c 2b  3d 30 2e 35 2a 70 3a e7  |l*C%):l+=0.5*p:.|
00000e10  6c 3e 3d 31 8c 0d 01 90  3b 6d 25 3d 6f 25 3a 6e  |l>=1....;m%=o%:n|
00000e20  25 3d 70 25 3a 6f 25 3d  b3 28 31 32 38 30 29 3a  |%=p%:o%=.(1280):|
00000e30  70 25 3d b3 28 31 30 32  34 29 3a 7a 25 3d 6f 25  |p%=.(1024):z%=o%|
00000e40  2d 6d 25 3a 43 25 3d 70  25 2d 6e 25 3a 6c 3d 30  |-m%:C%=p%-n%:l=0|
00000e50  0d 01 9a 05 cd 0d 01 a4  15 c8 96 3a e7 73 25 c8  |...........:.s%.|
00000e60  8f c8 90 61 25 2c 62 25  2c 38 0d 01 ae b1 61 25  |...a%,b%,8....a%|
00000e70  2d 3d 37 36 38 3a 62 25  2d 3d 35 31 32 3a 41 25  |-=768:b%-=512:A%|
00000e80  3d 61 25 2a 36 34 3a 42  25 3d 62 25 2a 36 34 3a  |=a%*64:B%=b%*64:|
00000e90  63 2b 3d 30 2e 30 31 2a  af 3a 72 25 3d 31 32 38  |c+=0.01*.:r%=128|
00000ea0  2a 28 31 2b b5 28 63 29  29 3a 67 25 3d 31 32 38  |*(1+.(c)):g%=128|
00000eb0  2a 28 31 2b b5 28 28 af  29 2b 63 29 29 3a 44 25  |*(1+.((.)+c)):D%|
00000ec0  3d 31 32 38 2a 28 31 2b  b5 28 28 af 2f 32 29 2b  |=128*(1+.((./2)+|
00000ed0  63 2a 31 2e 35 29 29 3a  e3 63 25 3d 30 b8 31 35  |c*1.5)):.c%=0.15|
00000ee0  3a fb 63 25 2c 28 63 25  2a 72 25 29 3e 3e 34 2c  |:.c%,(c%*r%)>>4,|
00000ef0  28 63 25 2a 67 25 29 3e  3e 34 2c 28 63 25 2a 44  |(c%*g%)>>4,(c%*D|
00000f00  25 29 3e 3e 34 3a ed 3a  d6 78 3a 6e 3d 28 6e 2b  |%)>>4:.:.x:n=(n+|
00000f10  31 29 82 37 3a e7 6e 3d  30 d6 48 0d 01 b8 0f fd  |1).7:.n=0.H.....|
00000f20  bf 28 30 29 3d 22 20 22  3a e1 0d 01 c2 04 0d 01  |.(0)=" ":.......|
00000f30  cc 0f dc 20 22 43 52 45  44 49 54 53 22 0d 01 d6  |... "CREDITS"...|
00000f40  0f dc 20 22 7e 7e 7e 7e  7e 7e 7e 22 0d 01 e0 08  |.. "~~~~~~~"....|
00000f50  dc 20 22 22 0d 01 ea 15  dc 20 22 4f 72 69 67 69  |. ""..... "Origi|
00000f60  6e 61 6c 20 69 64 65 61  22 0d 01 f4 15 dc 20 22  |nal idea"..... "|
00000f70  7e 7e 7e 7e 7e 7e 7e 7e  7e 7e 7e 7e 7e 22 0d 01  |~~~~~~~~~~~~~"..|
00000f80  fe 2c dc 20 22 55 6e 6b  6e 6f 77 6e 2e 20 54 68  |.,. "Unknown. Th|
00000f90  69 73 20 70 72 6f 67 72  61 6d 20 77 61 73 20 62  |is program was b|
00000fa0  61 73 65 64 20 6f 6e 20  61 22 0d 02 08 2a dc 20  |ased on a"...*. |
00000fb0  22 55 6e 69 78 20 73 63  72 65 65 6e 2d 73 61 76  |"Unix screen-sav|
00000fc0  65 72 20 28 61 73 20 61  6c 6c 20 74 68 65 20 62  |er (as all the b|
00000fd0  65 73 74 22 0d 02 12 21  dc 20 22 67 72 61 70 68  |est"...!. "graph|
00000fe0  69 63 73 20 64 65 6d 6f  73 20 61 72 65 20 3a 2d  |ics demos are :-|
00000ff0  29 20 29 2e 22 0d 02 1c  08 dc 20 22 22 0d 02 26  |) )."..... ""..&|
00001000  13 dc 20 22 50 72 6f 67  72 61 6d 6d 69 6e 67 22  |.. "Programming"|
00001010  0d 02 30 13 dc 20 22 7e  7e 7e 7e 7e 7e 7e 7e 7e  |..0.. "~~~~~~~~~|
00001020  7e 7e 22 0d 02 3a 1a dc  20 22 52 69 63 68 61 72  |~~"..:.. "Richar|
00001030  64 20 4a 2e 20 57 61 72  65 68 61 6d 22 0d 02 44  |d J. Wareham"..D|
00001040  08 dc 20 22 22 0d 02 4e  18 dc 20 22 41 42 4f 55  |.. ""..N.. "ABOU|
00001050  54 20 54 48 45 20 41 55  54 48 4f 52 22 0d 02 58  |T THE AUTHOR"..X|
00001060  18 dc 20 22 7e 7e 7e 7e  7e 7e 7e 7e 7e 7e 7e 7e  |.. "~~~~~~~~~~~~|
00001070  7e 7e 7e 7e 22 0d 02 62  08 dc 20 22 22 0d 02 6c  |~~~~"..b.. ""..l|
00001080  29 dc 20 22 52 69 63 68  61 72 64 20 4a 61 6d 65  |). "Richard Jame|
00001090  73 20 57 61 72 65 68 61  6d 20 77 61 73 20 62 6f  |s Wareham was bo|
000010a0  72 6e 20 69 6e 22 0d 02  76 2c dc 20 22 44 65 72  |rn in"..v,. "Der|
000010b0  62 79 20 69 6e 20 31 39  38 30 20 61 6e 64 20 63  |by in 1980 and c|
000010c0  75 72 72 65 6e 74 6c 79  20 6c 69 76 65 73 20 69  |urrently lives i|
000010d0  6e 22 0d 02 80 2c dc 20  22 53 74 20 49 76 65 73  |n"...,. "St Ives|
000010e0  2c 20 43 61 6d 62 72 69  64 67 65 73 68 69 72 65  |, Cambridgeshire|
000010f0  2e 20 48 65 20 68 61 73  20 62 65 65 6e 22 0d 02  |. He has been"..|
00001100  8a 2f dc 20 22 70 72 6f  67 72 61 6d 6d 69 6e 67  |./. "programming|
00001110  20 41 63 6f 72 6e 73 20  66 6f 72 20 66 61 72 20  | Acorns for far |
00001120  74 6f 6f 20 6c 6f 6e 67  20 61 6e 64 22 0d 02 94  |too long and"...|
00001130  2e dc 20 22 64 6f 65 73  20 61 6c 6c 20 68 65 20  |.. "does all he |
00001140  63 61 6e 20 74 6f 20 74  65 6c 6c 20 65 76 65 72  |can to tell ever|
00001150  79 6f 6e 65 20 61 62 6f  75 74 22 0d 02 9e 2e dc  |yone about".....|
00001160  20 22 68 6f 77 20 74 68  65 79 20 61 72 65 20 74  | "how they are t|
00001170  68 65 20 62 65 73 74 20  63 6f 6d 70 75 74 65 72  |he best computer|
00001180  73 20 69 6e 20 74 68 65  22 0d 02 a8 18 dc 20 22  |s in the"..... "|
00001190  63 69 76 69 6c 69 73 65  64 20 77 6f 72 6c 64 2e  |civilised world.|
000011a0  22 0d 02 b2 08 dc 20 22  22 0d 02 bc 2d dc 20 22  |"..... ""...-. "|
000011b0  48 65 20 64 65 76 65 6c  6f 70 73 20 6f 6e 20 61  |He develops on a|
000011c0  20 34 4d 62 20 41 35 30  30 30 20 77 69 74 68 20  | 4Mb A5000 with |
000011d0  6e 6f 20 43 44 22 0d 02  c6 2c dc 20 22 44 72 69  |no CD"...,. "Dri|
000011e0  76 65 20 61 6e 64 20 52  49 53 43 20 4f 53 20 33  |ve and RISC OS 3|
000011f0  2e 31 2e 20 48 65 20 69  73 20 6d 61 64 64 6c 79  |.1. He is maddly|
00001200  22 20 0d 02 d0 2d dc 20  22 6a 65 61 6c 6f 75 73  |" ...-. "jealous|
00001210  20 6f 66 20 70 65 6f 70  6c 65 20 77 69 74 68 20  | of people with |
00001220  52 49 53 43 20 50 43 73  20 28 79 6f 75 20 22 0d  |RISC PCs (you ".|
00001230  02 d1 1b dc 20 22 6b 6e  6f 77 20 77 68 6f 20 79  |.... "know who y|
00001240  6f 75 20 61 72 65 21 29  2e 22 0d 02 ee 08 dc 20  |ou are!)."..... |
00001250  22 22 0d 02 f8 26 dc 20  22 45 2d 4d 61 69 6c 20  |""...&. "E-Mail |
00001260  3a 20 72 6a 77 61 72 65  68 61 6d 40 68 6f 74 6d  |: rjwareham@hotm|
00001270  61 69 6c 2e 63 6f 6d 22  0d 03 02 08 dc 20 22 22  |ail.com"..... ""|
00001280  0d 03 0c 2f dc 20 22 50  72 65 73 73 20 61 6e 79  |.../. "Press any|
00001290  20 6b 65 79 20 74 6f 20  65 6e 64 2c 20 6f 74 68  | key to end, oth|
000012a0  65 72 77 69 73 65 20 77  65 20 77 69 6c 6c 22 0d  |erwise we will".|
000012b0  03 16 2c dc 20 22 62 65  20 73 74 75 63 6b 20 69  |..,. "be stuck i|
000012c0  6e 20 61 20 74 65 6d 70  6f 72 61 6c 20 6c 6f 6f  |n a temporal loo|
000012d0  70 20 66 6f 72 65 76 65  72 2e 22 0d 03 3e 08 dc  |p forever."..>..|
000012e0  20 22 22 0d 03 48 23 dc  20 22 28 43 29 20 31 39  | ""..H#. "(C) 19|
000012f0  39 38 20 52 69 63 68 61  72 64 20 4a 2e 20 57 61  |98 Richard J. Wa|
00001300  72 65 68 61 6d 22 0d 03  52 08 dc 20 22 22 0d 03  |reham"..R.. ""..|
00001310  5c 08 dc 20 22 22 0d 03  66 08 dc 20 22 22 0d 03  |\.. ""..f.. ""..|
00001320  70 08 dc 20 22 22 0d 03  7a 08 dc 20 22 22 0d 03  |p.. ""..z.. ""..|
00001330  84 08 dc 20 22 22 0d 03  8e 0f dc 20 22 2d 2d 45  |... ""..... "--E|
00001340  4e 44 2d 2d 22 0d ff                              |ND--"..|
00001347