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
.