�"�ROBOCOP  Demonstration
�"�______________________
�
(�"�This Demonstration By
2$�"�Duncan Lilly  -  DJL Software
<�
F�"�Released Into The
P"�"�Public Domain 12th November
Z�"�1990.
d:
n� 5
x� 23;8202;0;0;0;0;
�� 19,7,6,0,0,0,0
�*LOAD ROBOPIC
��message
�� G$="" � � �tV@
�:
���sprite_assm
�XORD=&70:YORD=&72
�WIDE=&74:HIGH=&75
�SDAT=&76:SDATOLD=&7A
�SCRN=&78:SCRNOLD=&7C
�
ZSCRN=&7E

WIDEOLD=&80:HIGHOLD=&81

SMODE=1

!� SMODE>3 SMODE1=2 � SMODE1=1

">�SMODE=0 SMODE2=3 �� SMODE=1 � SMODE=4 SMODE2=2 � SMODE2=1

,LINSTEP=&280/SMODE1

6� I%=0 � 2 � 2

@P%=&900:[OPT I%

J.SPRITEMOVE

T
JSR SPLOT

^.SPRITE

hLDA YORD

rLSR YORD+1

|	ROR A

�LSR YORD+1

�	ROR A

�
� #255

�TAX

�	LSR A

�	LSR A

�
� #&FE

�TAY

�LDA TABLE+1,Y

�STA SCRN+1

�TXA

�� #7

�CLC
ADC TABLE,Y
STA SCRN
LDA XORD
&LDX #SMODE1
0
.CONVERT1
:LSR XORD+1
D	ROR A
NDEX
XBNE CONVERT1
b
� #&F8
lCLC
vADC SCRN
�STA SCRN
�LDA SCRN+1
�ADC XORD+1
�STA SCRN+1
�LDA WIDE
�
ADC #1
�LDX #SMODE2
�
.CONVERT2
�	LSR A
�DEX
�BNE CONVERT2
�STA WIDE
�JSR COPYOLD

JSR SPLOT
.COPYOLD
LDA SCRN
 STA SCRNOLD
*LDA SCRN+1
4STA SCRNOLD+1
>LDA SDAT
HSTA SDATOLD
RLDA SDAT+1
\STA SDATOLD+1
fLDA HIGH
pSTA HIGHOLD
zLDA WIDE
�STA WIDEOLD
�RTS
�.SPLOT0
�INC SDATOLD+1
�BNE SPLOT3
�
.SPLOT
�LDY SCRNOLD+1
�LDA SCRNOLD
�.SPLOT1
�STY ZSCRN+1
�LDX HIGHOLD
�
LDY #0
�
STA ZSCRN
.SPLOT2
LDA (ZSCRN),Y
� (SDATOLD),Y
$STA (ZSCRN),Y
.INC SDATOLD
8BEQ SPLOT0
B.SPLOT3
L
INC ZSCRN
V
LDA ZSCRN
`� #7
jBEQ SPLOT7
t.SPLOT4
~DEX
�BNE SPLOT2
�LDY SCRNOLD+1
�LDA SCRNOLD
�CLC
�
ADC #8
�STA SCRNOLD
�BCS SPLOT6
�.SPLOT5 DEC WIDEOLD
�BNE SPLOT1
�RTS
�.SPLOT6 INY
�STY SCRNOLD+1
BNE SPLOT5

.SPLOT7

LDA ZSCRN
BEQ SPLOT9
(.SPLOT8
2CLC
<ADC #(LINSTEP-8)�256
F
STA ZSCRN
PLDA ZSCRN+1
ZADC #(LINSTEP-8)�256
dSTA ZSCRN+1
n	ASL A
xBCC SPLOT4
�DEX
�TXA
�
LDX #1
�CLC
�ADC SDATOLD
�STA SDATOLD
�BCC SPLOT4
�INC SDATOLD+1
�BNE SPLOT4
�.SPLOT9
�INC ZSCRN+1
�BNE SPLOT8
�
.TABLE
]:P%=P%+64:[OPT I%

.ZEND:]:�
�I%=0�31
"-TABLE!(2*I%)=&8000-(&5000-I%*&280)/SMODE1
,�
6�
@:
J
��message
T�init:�assem
^
� �dJH
h� N%,L%,S%,C%
rold$="":� N%
|� L%=1 � N%
�� word$,S%,C%
�� C%
��scroll("",word$,12,6,S%)
�� P%=0 � 3000:�
��scroll(word$,"",12,6,S%)
�G$=�(10):� G$<>"" � �
��
��
�� �scroll(a$,b$,X%,Y%,S%)
��X%,Y%)a$
�!� �b$<�a$ b$=b$+ĩa$-�b$," ")
�!� �a$<�b$ a$=a$+ĩb$-�a$," ")
�� R%=1 � �a$
?old=��a$,R%)
?new=��b$,R%)
 � X%-1+R%>19 X%=1-R%:Y%=Y%+1
&"?xpos=X%-1+R%:?ypos=Y%:?spd=S%
0� scroll:�:�
:� �init
Dwrch=&FFEE:word=&FFF1
Ncode=&A00:buf=&60
Xold=&80:new=&81:xpos=&82
bypos=&83:spd=&84:temp=&85
l�
v� �assem
�� L%=0 � 2 � 2
�P%=code:[OPT L%:.scroll
�!LDX #buf � 256:LDY #buf � 256
�$LDA old:STA buf:LDA #10:JSR word
�LDX buf+8:STX temp
�LDX new:STX buf+8
�LDX #(buf+8)� 256
�LDY #(buf+8)� 256
�JSR word:LDA temp:STA buf+8
�.start LDX #0
�.lp LDA #31:JSR wrch
�LDA xpos:JSR wrch
�LDA ypos:JSR wrch
LDA #23:JSR wrch
LDA #255:JSR wrch
LDA buf+1,X:JSR wrch
 LDA buf+2,X:JSR wrch
*LDA buf+3,X:JSR wrch
4LDA buf+4,X:JSR wrch
>LDA buf+5,X:JSR wrch
HLDA buf+6,X:JSR wrch
RLDA buf+7,X:JSR wrch
\LDA buf+8,X:JSR wrch
fLDA #255:JSR wrch:INX
pJSR delay:CPX #9:BNE lp:RTS
z
.delay
�PHA:TXA:PHA:TYA:PHA:LDX spd
�.lp2 LDY spd
� .lp3 DEY:BNE lp3:DEX:BNE lp2
�PLA:TAY:PLA:TAX:PLA:RTS
�	]:�:�
��
��"�Scrolly Message Data
�� 56
�� ROBOCOP,150,3
�� PART,100,1
�� MAN.,100,1
�� PART,100,1
�� MACHINE.,100,1
	� ALL,120,2
	� COP.....,120,2
	� This,100,3
	$� Demo,100,3
	.� By,100,3
	8� Duncan,120,1
	B� Lilly.,120,1
	L
� "",50,0
	V� Hello,90,2
	`� to....,90,2
	j� "Dammon,",90,2
	t� "Daniel,",90,2
	~� "Thomas,",90,2
	�� all my,90,2
	�� family,90,2
	�� and,90,2
	�� everyone,90,2
	�� else who,90,2
	�� knows,90,2
	�� me!!!!!,90,2
	�� "",100,0
	�� It's,90,3
	�� really,90,3
	�� exciting,90,3
	�� to see,90,3
� the,90,3

� growth,90,3

� of,90,3
� 8-bit,90,1
(� Public,90,1
2� Domain,90,1
<� Software,90,1
F� and I,90,3
P� hope it,90,3
Z� survives,90,3
d� for as,90,3
n� long as,90,3
x� the BBC,90,3
�� micro!!!,90,3
�� "",100,0
�� Thank,100,1
�� You For,100,1
�� Watching,100,1
�� This,100,1
�� Demo.,100,1
�� "",100,0
�� PRESS,90,3
�� ANY KEY,90,3
�� TO GO,90,3
�� ON >>>>>,90,3
�� "",100,0
� BYE!!!!!,160,2
�

00000000  0d 00 0a 1d f4 22 84 52  4f 42 4f 43 4f 50 20 20  |.....".ROBOCOP  |
00000010  44 65 6d 6f 6e 73 74 72  61 74 69 6f 6e 0d 00 14  |Demonstration...|
00000020  1d f4 22 81 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |..".____________|
00000030  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 0d 00 1e 05 f4 0d  |__________......|
00000040  00 28 1c f4 22 82 54 68  69 73 20 44 65 6d 6f 6e  |.(..".This Demon|
00000050  73 74 72 61 74 69 6f 6e  20 42 79 0d 00 32 24 f4  |stration By..2$.|
00000060  22 85 44 75 6e 63 61 6e  20 4c 69 6c 6c 79 20 20  |".Duncan Lilly  |
00000070  2d 20 20 44 4a 4c 20 53  6f 66 74 77 61 72 65 0d  |-  DJL Software.|
00000080  00 3c 05 f4 0d 00 46 18  f4 22 86 52 65 6c 65 61  |.<....F..".Relea|
00000090  73 65 64 20 49 6e 74 6f  20 54 68 65 0d 00 50 22  |sed Into The..P"|
000000a0  f4 22 86 50 75 62 6c 69  63 20 44 6f 6d 61 69 6e  |.".Public Domain|
000000b0  20 31 32 74 68 20 4e 6f  76 65 6d 62 65 72 0d 00  | 12th November..|
000000c0  5a 0c f4 22 86 31 39 39  30 2e 0d 00 64 05 3a 0d  |Z..".1990...d.:.|
000000d0  00 6e 07 eb 20 35 0d 00  78 16 ef 20 32 33 3b 38  |.n.. 5..x.. 23;8|
000000e0  32 30 32 3b 30 3b 30 3b  30 3b 30 3b 0d 00 82 14  |202;0;0;0;0;....|
000000f0  ef 20 31 39 2c 37 2c 36  2c 30 2c 30 2c 30 2c 30  |. 19,7,6,0,0,0,0|
00000100  0d 00 8c 11 2a 4c 4f 41  44 20 52 4f 42 4f 50 49  |....*LOAD ROBOPI|
00000110  43 0d 00 96 0c f2 6d 65  73 73 61 67 65 0d 00 a0  |C.....message...|
00000120  14 e7 20 47 24 3d 22 22  20 8c 20 e5 20 8d 74 56  |.. G$="" . . .tV|
00000130  40 0d 00 be 05 3a 0d 00  c8 11 dd f2 73 70 72 69  |@....:......spri|
00000140  74 65 5f 61 73 73 6d 0d  00 d2 15 58 4f 52 44 3d  |te_assm....XORD=|
00000150  26 37 30 3a 59 4f 52 44  3d 26 37 32 0d 00 dc 15  |&70:YORD=&72....|
00000160  57 49 44 45 3d 26 37 34  3a 48 49 47 48 3d 26 37  |WIDE=&74:HIGH=&7|
00000170  35 0d 00 e6 18 53 44 41  54 3d 26 37 36 3a 53 44  |5....SDAT=&76:SD|
00000180  41 54 4f 4c 44 3d 26 37  41 0d 00 f0 18 53 43 52  |ATOLD=&7A....SCR|
00000190  4e 3d 26 37 38 3a 53 43  52 4e 4f 4c 44 3d 26 37  |N=&78:SCRNOLD=&7|
000001a0  43 0d 00 fa 0d 5a 53 43  52 4e 3d 26 37 45 0d 01  |C....ZSCRN=&7E..|
000001b0  04 1b 57 49 44 45 4f 4c  44 3d 26 38 30 3a 48 49  |..WIDEOLD=&80:HI|
000001c0  47 48 4f 4c 44 3d 26 38  31 0d 01 0e 0b 53 4d 4f  |GHOLD=&81....SMO|
000001d0  44 45 3d 31 0d 01 18 21  e7 20 53 4d 4f 44 45 3e  |DE=1...!. SMODE>|
000001e0  33 20 53 4d 4f 44 45 31  3d 32 20 8b 20 53 4d 4f  |3 SMODE1=2 . SMO|
000001f0  44 45 31 3d 31 0d 01 22  3e e7 53 4d 4f 44 45 3d  |DE1=1..">.SMODE=|
00000200  30 20 53 4d 4f 44 45 32  3d 33 20 8b e7 20 53 4d  |0 SMODE2=3 .. SM|
00000210  4f 44 45 3d 31 20 84 20  53 4d 4f 44 45 3d 34 20  |ODE=1 . SMODE=4 |
00000220  53 4d 4f 44 45 32 3d 32  20 8b 20 53 4d 4f 44 45  |SMODE2=2 . SMODE|
00000230  32 3d 31 0d 01 2c 17 4c  49 4e 53 54 45 50 3d 26  |2=1..,.LINSTEP=&|
00000240  32 38 30 2f 53 4d 4f 44  45 31 0d 01 36 12 e3 20  |280/SMODE1..6.. |
00000250  49 25 3d 30 20 b8 20 32  20 88 20 32 0d 01 40 13  |I%=0 . 2 . 2..@.|
00000260  50 25 3d 26 39 30 30 3a  5b 4f 50 54 20 49 25 0d  |P%=&900:[OPT I%.|
00000270  01 4a 0f 2e 53 50 52 49  54 45 4d 4f 56 45 0d 01  |.J..SPRITEMOVE..|
00000280  54 0d 4a 53 52 20 53 50  4c 4f 54 0d 01 5e 0b 2e  |T.JSR SPLOT..^..|
00000290  53 50 52 49 54 45 0d 01  68 0c 4c 44 41 20 59 4f  |SPRITE..h.LDA YO|
000002a0  52 44 0d 01 72 0e 4c 53  52 20 59 4f 52 44 2b 31  |RD..r.LSR YORD+1|
000002b0  0d 01 7c 09 52 4f 52 20  41 0d 01 86 0e 4c 53 52  |..|.ROR A....LSR|
000002c0  20 59 4f 52 44 2b 31 0d  01 90 09 52 4f 52 20 41  | YORD+1....ROR A|
000002d0  0d 01 9a 0a 82 20 23 32  35 35 0d 01 a4 07 54 41  |..... #255....TA|
000002e0  58 0d 01 ae 09 4c 53 52  20 41 0d 01 b8 09 4c 53  |X....LSR A....LS|
000002f0  52 20 41 0d 01 c2 0a 80  20 23 26 46 45 0d 01 cc  |R A..... #&FE...|
00000300  07 54 41 59 0d 01 d6 11  4c 44 41 20 54 41 42 4c  |.TAY....LDA TABL|
00000310  45 2b 31 2c 59 0d 01 e0  0e 53 54 41 20 53 43 52  |E+1,Y....STA SCR|
00000320  4e 2b 31 0d 01 ea 07 54  58 41 0d 01 f4 08 80 20  |N+1....TXA..... |
00000330  23 37 0d 01 fe 07 43 4c  43 0d 02 08 0f 41 44 43  |#7....CLC....ADC|
00000340  20 54 41 42 4c 45 2c 59  0d 02 12 0c 53 54 41 20  | TABLE,Y....STA |
00000350  53 43 52 4e 0d 02 1c 0c  4c 44 41 20 58 4f 52 44  |SCRN....LDA XORD|
00000360  0d 02 26 0f 4c 44 58 20  23 53 4d 4f 44 45 31 0d  |..&.LDX #SMODE1.|
00000370  02 30 0d 2e 43 4f 4e 56  45 52 54 31 0d 02 3a 0e  |.0..CONVERT1..:.|
00000380  4c 53 52 20 58 4f 52 44  2b 31 0d 02 44 09 52 4f  |LSR XORD+1..D.RO|
00000390  52 20 41 0d 02 4e 07 44  45 58 0d 02 58 10 42 4e  |R A..N.DEX..X.BN|
000003a0  45 20 43 4f 4e 56 45 52  54 31 0d 02 62 0a 80 20  |E CONVERT1..b.. |
000003b0  23 26 46 38 0d 02 6c 07  43 4c 43 0d 02 76 0c 41  |#&F8..l.CLC..v.A|
000003c0  44 43 20 53 43 52 4e 0d  02 80 0c 53 54 41 20 53  |DC SCRN....STA S|
000003d0  43 52 4e 0d 02 8a 0e 4c  44 41 20 53 43 52 4e 2b  |CRN....LDA SCRN+|
000003e0  31 0d 02 94 0e 41 44 43  20 58 4f 52 44 2b 31 0d  |1....ADC XORD+1.|
000003f0  02 9e 0e 53 54 41 20 53  43 52 4e 2b 31 0d 02 a8  |...STA SCRN+1...|
00000400  0c 4c 44 41 20 57 49 44  45 0d 02 b2 0a 41 44 43  |.LDA WIDE....ADC|
00000410  20 23 31 0d 02 bc 0f 4c  44 58 20 23 53 4d 4f 44  | #1....LDX #SMOD|
00000420  45 32 0d 02 c6 0d 2e 43  4f 4e 56 45 52 54 32 0d  |E2.....CONVERT2.|
00000430  02 d0 09 4c 53 52 20 41  0d 02 da 07 44 45 58 0d  |...LSR A....DEX.|
00000440  02 e4 10 42 4e 45 20 43  4f 4e 56 45 52 54 32 0d  |...BNE CONVERT2.|
00000450  02 ee 0c 53 54 41 20 57  49 44 45 0d 02 f8 0f 4a  |...STA WIDE....J|
00000460  53 52 20 43 4f 50 59 4f  4c 44 0d 03 02 0d 4a 53  |SR COPYOLD....JS|
00000470  52 20 53 50 4c 4f 54 0d  03 0c 0c 2e 43 4f 50 59  |R SPLOT.....COPY|
00000480  4f 4c 44 0d 03 16 0c 4c  44 41 20 53 43 52 4e 0d  |OLD....LDA SCRN.|
00000490  03 20 0f 53 54 41 20 53  43 52 4e 4f 4c 44 0d 03  |. .STA SCRNOLD..|
000004a0  2a 0e 4c 44 41 20 53 43  52 4e 2b 31 0d 03 34 11  |*.LDA SCRN+1..4.|
000004b0  53 54 41 20 53 43 52 4e  4f 4c 44 2b 31 0d 03 3e  |STA SCRNOLD+1..>|
000004c0  0c 4c 44 41 20 53 44 41  54 0d 03 48 0f 53 54 41  |.LDA SDAT..H.STA|
000004d0  20 53 44 41 54 4f 4c 44  0d 03 52 0e 4c 44 41 20  | SDATOLD..R.LDA |
000004e0  53 44 41 54 2b 31 0d 03  5c 11 53 54 41 20 53 44  |SDAT+1..\.STA SD|
000004f0  41 54 4f 4c 44 2b 31 0d  03 66 0c 4c 44 41 20 48  |ATOLD+1..f.LDA H|
00000500  49 47 48 0d 03 70 0f 53  54 41 20 48 49 47 48 4f  |IGH..p.STA HIGHO|
00000510  4c 44 0d 03 7a 0c 4c 44  41 20 57 49 44 45 0d 03  |LD..z.LDA WIDE..|
00000520  84 0f 53 54 41 20 57 49  44 45 4f 4c 44 0d 03 8e  |..STA WIDEOLD...|
00000530  07 52 54 53 0d 03 98 0b  2e 53 50 4c 4f 54 30 0d  |.RTS.....SPLOT0.|
00000540  03 a2 11 49 4e 43 20 53  44 41 54 4f 4c 44 2b 31  |...INC SDATOLD+1|
00000550  0d 03 ac 0e 42 4e 45 20  53 50 4c 4f 54 33 0d 03  |....BNE SPLOT3..|
00000560  b6 0a 2e 53 50 4c 4f 54  0d 03 c0 11 4c 44 59 20  |...SPLOT....LDY |
00000570  53 43 52 4e 4f 4c 44 2b  31 0d 03 ca 0f 4c 44 41  |SCRNOLD+1....LDA|
00000580  20 53 43 52 4e 4f 4c 44  0d 03 d4 0b 2e 53 50 4c  | SCRNOLD.....SPL|
00000590  4f 54 31 0d 03 de 0f 53  54 59 20 5a 53 43 52 4e  |OT1....STY ZSCRN|
000005a0  2b 31 0d 03 e8 0f 4c 44  58 20 48 49 47 48 4f 4c  |+1....LDX HIGHOL|
000005b0  44 0d 03 f2 0a 4c 44 59  20 23 30 0d 03 fc 0d 53  |D....LDY #0....S|
000005c0  54 41 20 5a 53 43 52 4e  0d 04 06 0b 2e 53 50 4c  |TA ZSCRN.....SPL|
000005d0  4f 54 32 0d 04 10 11 4c  44 41 20 28 5a 53 43 52  |OT2....LDA (ZSCR|
000005e0  4e 29 2c 59 0d 04 1a 11  82 20 28 53 44 41 54 4f  |N),Y..... (SDATO|
000005f0  4c 44 29 2c 59 0d 04 24  11 53 54 41 20 28 5a 53  |LD),Y..$.STA (ZS|
00000600  43 52 4e 29 2c 59 0d 04  2e 0f 49 4e 43 20 53 44  |CRN),Y....INC SD|
00000610  41 54 4f 4c 44 0d 04 38  0e 42 45 51 20 53 50 4c  |ATOLD..8.BEQ SPL|
00000620  4f 54 30 0d 04 42 0b 2e  53 50 4c 4f 54 33 0d 04  |OT0..B..SPLOT3..|
00000630  4c 0d 49 4e 43 20 5a 53  43 52 4e 0d 04 56 0d 4c  |L.INC ZSCRN..V.L|
00000640  44 41 20 5a 53 43 52 4e  0d 04 60 08 80 20 23 37  |DA ZSCRN..`.. #7|
00000650  0d 04 6a 0e 42 45 51 20  53 50 4c 4f 54 37 0d 04  |..j.BEQ SPLOT7..|
00000660  74 0b 2e 53 50 4c 4f 54  34 0d 04 7e 07 44 45 58  |t..SPLOT4..~.DEX|
00000670  0d 04 88 0e 42 4e 45 20  53 50 4c 4f 54 32 0d 04  |....BNE SPLOT2..|
00000680  92 11 4c 44 59 20 53 43  52 4e 4f 4c 44 2b 31 0d  |..LDY SCRNOLD+1.|
00000690  04 9c 0f 4c 44 41 20 53  43 52 4e 4f 4c 44 0d 04  |...LDA SCRNOLD..|
000006a0  a6 07 43 4c 43 0d 04 b0  0a 41 44 43 20 23 38 0d  |..CLC....ADC #8.|
000006b0  04 ba 0f 53 54 41 20 53  43 52 4e 4f 4c 44 0d 04  |...STA SCRNOLD..|
000006c0  c4 0e 42 43 53 20 53 50  4c 4f 54 36 0d 04 ce 17  |..BCS SPLOT6....|
000006d0  2e 53 50 4c 4f 54 35 20  44 45 43 20 57 49 44 45  |.SPLOT5 DEC WIDE|
000006e0  4f 4c 44 0d 04 d8 0e 42  4e 45 20 53 50 4c 4f 54  |OLD....BNE SPLOT|
000006f0  31 0d 04 e2 07 52 54 53  0d 04 ec 0f 2e 53 50 4c  |1....RTS.....SPL|
00000700  4f 54 36 20 49 4e 59 0d  04 f6 11 53 54 59 20 53  |OT6 INY....STY S|
00000710  43 52 4e 4f 4c 44 2b 31  0d 05 00 0e 42 4e 45 20  |CRNOLD+1....BNE |
00000720  53 50 4c 4f 54 35 0d 05  0a 0b 2e 53 50 4c 4f 54  |SPLOT5.....SPLOT|
00000730  37 0d 05 14 0d 4c 44 41  20 5a 53 43 52 4e 0d 05  |7....LDA ZSCRN..|
00000740  1e 0e 42 45 51 20 53 50  4c 4f 54 39 0d 05 28 0b  |..BEQ SPLOT9..(.|
00000750  2e 53 50 4c 4f 54 38 0d  05 32 07 43 4c 43 0d 05  |.SPLOT8..2.CLC..|
00000760  3c 18 41 44 43 20 23 28  4c 49 4e 53 54 45 50 2d  |<.ADC #(LINSTEP-|
00000770  38 29 83 32 35 36 0d 05  46 0d 53 54 41 20 5a 53  |8).256..F.STA ZS|
00000780  43 52 4e 0d 05 50 0f 4c  44 41 20 5a 53 43 52 4e  |CRN..P.LDA ZSCRN|
00000790  2b 31 0d 05 5a 18 41 44  43 20 23 28 4c 49 4e 53  |+1..Z.ADC #(LINS|
000007a0  54 45 50 2d 38 29 81 32  35 36 0d 05 64 0f 53 54  |TEP-8).256..d.ST|
000007b0  41 20 5a 53 43 52 4e 2b  31 0d 05 6e 09 41 53 4c  |A ZSCRN+1..n.ASL|
000007c0  20 41 0d 05 78 0e 42 43  43 20 53 50 4c 4f 54 34  | A..x.BCC SPLOT4|
000007d0  0d 05 82 07 44 45 58 0d  05 8c 07 54 58 41 0d 05  |....DEX....TXA..|
000007e0  96 0a 4c 44 58 20 23 31  0d 05 a0 07 43 4c 43 0d  |..LDX #1....CLC.|
000007f0  05 aa 0f 41 44 43 20 53  44 41 54 4f 4c 44 0d 05  |...ADC SDATOLD..|
00000800  b4 0f 53 54 41 20 53 44  41 54 4f 4c 44 0d 05 be  |..STA SDATOLD...|
00000810  0e 42 43 43 20 53 50 4c  4f 54 34 0d 05 c8 11 49  |.BCC SPLOT4....I|
00000820  4e 43 20 53 44 41 54 4f  4c 44 2b 31 0d 05 d2 0e  |NC SDATOLD+1....|
00000830  42 4e 45 20 53 50 4c 4f  54 34 0d 05 dc 0b 2e 53  |BNE SPLOT4.....S|
00000840  50 4c 4f 54 39 0d 05 e6  0f 49 4e 43 20 5a 53 43  |PLOT9....INC ZSC|
00000850  52 4e 2b 31 0d 05 f0 0e  42 4e 45 20 53 50 4c 4f  |RN+1....BNE SPLO|
00000860  54 38 0d 05 fa 0a 2e 54  41 42 4c 45 0d 06 04 16  |T8.....TABLE....|
00000870  5d 3a 50 25 3d 50 25 2b  36 34 3a 5b 4f 50 54 20  |]:P%=P%+64:[OPT |
00000880  49 25 0d 06 0e 0d 2e 5a  45 4e 44 3a 5d 3a ed 0d  |I%.....ZEND:]:..|
00000890  06 18 0c e3 49 25 3d 30  b8 33 31 0d 06 22 2d 54  |....I%=0.31.."-T|
000008a0  41 42 4c 45 21 28 32 2a  49 25 29 3d 26 38 30 30  |ABLE!(2*I%)=&800|
000008b0  30 2d 28 26 35 30 30 30  2d 49 25 2a 26 32 38 30  |0-(&5000-I%*&280|
000008c0  29 2f 53 4d 4f 44 45 31  0d 06 2c 05 ed 0d 06 36  |)/SMODE1..,....6|
000008d0  05 e1 0d 06 40 05 3a 0d  06 4a 0d dd f2 6d 65 73  |....@.:..J...mes|
000008e0  73 61 67 65 0d 06 54 10  f2 69 6e 69 74 3a f2 61  |sage..T..init:.a|
000008f0  73 73 65 6d 0d 06 5e 0a  f7 20 8d 64 4a 48 0d 06  |ssem..^.. .dJH..|
00000900  68 11 ea 20 4e 25 2c 4c  25 2c 53 25 2c 43 25 0d  |h.. N%,L%,S%,C%.|
00000910  06 72 10 6f 6c 64 24 3d  22 22 3a f3 20 4e 25 0d  |.r.old$="":. N%.|
00000920  06 7c 0f e3 20 4c 25 3d  31 20 b8 20 4e 25 0d 06  |.|.. L%=1 . N%..|
00000930  86 11 f3 20 77 6f 72 64  24 2c 53 25 2c 43 25 0d  |... word$,S%,C%.|
00000940  06 90 08 fb 20 43 25 0d  06 9a 1d f2 73 63 72 6f  |.... C%.....scro|
00000950  6c 6c 28 22 22 2c 77 6f  72 64 24 2c 31 32 2c 36  |ll("",word$,12,6|
00000960  2c 53 25 29 0d 06 a4 13  e3 20 50 25 3d 30 20 b8  |,S%)..... P%=0 .|
00000970  20 33 30 30 30 3a ed 0d  06 ae 1d f2 73 63 72 6f  | 3000:......scro|
00000980  6c 6c 28 77 6f 72 64 24  2c 22 22 2c 31 32 2c 36  |ll(word$,"",12,6|
00000990  2c 53 25 29 0d 06 b8 19  47 24 3d bf 28 31 30 29  |,S%)....G$=.(10)|
000009a0  3a e7 20 47 24 3c 3e 22  22 20 8c 20 e1 0d 06 c2  |:. G$<>"" . ....|
000009b0  05 ed 0d 06 cc 05 e1 0d  06 d6 1d dd 20 f2 73 63  |............ .sc|
000009c0  72 6f 6c 6c 28 61 24 2c  62 24 2c 58 25 2c 59 25  |roll(a$,b$,X%,Y%|
000009d0  2c 53 25 29 0d 06 e0 0e  f1 8a 58 25 2c 59 25 29  |,S%)......X%,Y%)|
000009e0  61 24 0d 06 ea 21 e7 20  a9 62 24 3c a9 61 24 20  |a$...!. .b$<.a$ |
000009f0  62 24 3d 62 24 2b c4 a9  61 24 2d a9 62 24 2c 22  |b$=b$+..a$-.b$,"|
00000a00  20 22 29 0d 06 f4 21 e7  20 a9 61 24 3c a9 62 24  | ")...!. .a$<.b$|
00000a10  20 61 24 3d 61 24 2b c4  a9 62 24 2d a9 61 24 2c  | a$=a$+..b$-.a$,|
00000a20  22 20 22 29 0d 06 fe 10  e3 20 52 25 3d 31 20 b8  |" ")..... R%=1 .|
00000a30  20 a9 61 24 0d 07 08 11  3f 6f 6c 64 3d 97 c1 61  | .a$....?old=..a|
00000a40  24 2c 52 25 29 0d 07 12  11 3f 6e 65 77 3d 97 c1  |$,R%)....?new=..|
00000a50  62 24 2c 52 25 29 0d 07  1c 20 e7 20 58 25 2d 31  |b$,R%)... . X%-1|
00000a60  2b 52 25 3e 31 39 20 58  25 3d 31 2d 52 25 3a 59  |+R%>19 X%=1-R%:Y|
00000a70  25 3d 59 25 2b 31 0d 07  26 22 3f 78 70 6f 73 3d  |%=Y%+1..&"?xpos=|
00000a80  58 25 2d 31 2b 52 25 3a  3f 79 70 6f 73 3d 59 25  |X%-1+R%:?ypos=Y%|
00000a90  3a 3f 73 70 64 3d 53 25  0d 07 30 10 d6 20 73 63  |:?spd=S%..0.. sc|
00000aa0  72 6f 6c 6c 3a ed 3a e1  0d 07 3a 0b dd 20 f2 69  |roll:.:...:.. .i|
00000ab0  6e 69 74 0d 07 44 19 77  72 63 68 3d 26 46 46 45  |nit..D.wrch=&FFE|
00000ac0  45 3a 77 6f 72 64 3d 26  46 46 46 31 0d 07 4e 15  |E:word=&FFF1..N.|
00000ad0  63 6f 64 65 3d 26 41 30  30 3a 62 75 66 3d 26 36  |code=&A00:buf=&6|
00000ae0  30 0d 07 58 1c 6f 6c 64  3d 26 38 30 3a 6e 65 77  |0..X.old=&80:new|
00000af0  3d 26 38 31 3a 78 70 6f  73 3d 26 38 32 0d 07 62  |=&81:xpos=&82..b|
00000b00  1d 79 70 6f 73 3d 26 38  33 3a 73 70 64 3d 26 38  |.ypos=&83:spd=&8|
00000b10  34 3a 74 65 6d 70 3d 26  38 35 0d 07 6c 05 e1 0d  |4:temp=&85..l...|
00000b20  07 76 0c dd 20 f2 61 73  73 65 6d 0d 07 80 12 e3  |.v.. .assem.....|
00000b30  20 4c 25 3d 30 20 b8 20  32 20 88 20 32 0d 07 8a  | L%=0 . 2 . 2...|
00000b40  1b 50 25 3d 63 6f 64 65  3a 5b 4f 50 54 20 4c 25  |.P%=code:[OPT L%|
00000b50  3a 2e 73 63 72 6f 6c 6c  0d 07 94 21 4c 44 58 20  |:.scroll...!LDX |
00000b60  23 62 75 66 20 83 20 32  35 36 3a 4c 44 59 20 23  |#buf . 256:LDY #|
00000b70  62 75 66 20 81 20 32 35  36 0d 07 9e 24 4c 44 41  |buf . 256...$LDA|
00000b80  20 6f 6c 64 3a 53 54 41  20 62 75 66 3a 4c 44 41  | old:STA buf:LDA|
00000b90  20 23 31 30 3a 4a 53 52  20 77 6f 72 64 0d 07 a8  | #10:JSR word...|
00000ba0  16 4c 44 58 20 62 75 66  2b 38 3a 53 54 58 20 74  |.LDX buf+8:STX t|
00000bb0  65 6d 70 0d 07 b2 15 4c  44 58 20 6e 65 77 3a 53  |emp....LDX new:S|
00000bc0  54 58 20 62 75 66 2b 38  0d 07 bc 15 4c 44 58 20  |TX buf+8....LDX |
00000bd0  23 28 62 75 66 2b 38 29  83 20 32 35 36 0d 07 c6  |#(buf+8). 256...|
00000be0  15 4c 44 59 20 23 28 62  75 66 2b 38 29 81 20 32  |.LDY #(buf+8). 2|
00000bf0  35 36 0d 07 d0 1f 4a 53  52 20 77 6f 72 64 3a 4c  |56....JSR word:L|
00000c00  44 41 20 74 65 6d 70 3a  53 54 41 20 62 75 66 2b  |DA temp:STA buf+|
00000c10  38 0d 07 da 11 2e 73 74  61 72 74 20 4c 44 58 20  |8.....start LDX |
00000c20  23 30 0d 07 e4 18 2e 6c  70 20 4c 44 41 20 23 33  |#0.....lp LDA #3|
00000c30  31 3a 4a 53 52 20 77 72  63 68 0d 07 ee 15 4c 44  |1:JSR wrch....LD|
00000c40  41 20 78 70 6f 73 3a 4a  53 52 20 77 72 63 68 0d  |A xpos:JSR wrch.|
00000c50  07 f8 15 4c 44 41 20 79  70 6f 73 3a 4a 53 52 20  |...LDA ypos:JSR |
00000c60  77 72 63 68 0d 08 02 14  4c 44 41 20 23 32 33 3a  |wrch....LDA #23:|
00000c70  4a 53 52 20 77 72 63 68  0d 08 0c 15 4c 44 41 20  |JSR wrch....LDA |
00000c80  23 32 35 35 3a 4a 53 52  20 77 72 63 68 0d 08 16  |#255:JSR wrch...|
00000c90  18 4c 44 41 20 62 75 66  2b 31 2c 58 3a 4a 53 52  |.LDA buf+1,X:JSR|
00000ca0  20 77 72 63 68 0d 08 20  18 4c 44 41 20 62 75 66  | wrch.. .LDA buf|
00000cb0  2b 32 2c 58 3a 4a 53 52  20 77 72 63 68 0d 08 2a  |+2,X:JSR wrch..*|
00000cc0  18 4c 44 41 20 62 75 66  2b 33 2c 58 3a 4a 53 52  |.LDA buf+3,X:JSR|
00000cd0  20 77 72 63 68 0d 08 34  18 4c 44 41 20 62 75 66  | wrch..4.LDA buf|
00000ce0  2b 34 2c 58 3a 4a 53 52  20 77 72 63 68 0d 08 3e  |+4,X:JSR wrch..>|
00000cf0  18 4c 44 41 20 62 75 66  2b 35 2c 58 3a 4a 53 52  |.LDA buf+5,X:JSR|
00000d00  20 77 72 63 68 0d 08 48  18 4c 44 41 20 62 75 66  | wrch..H.LDA buf|
00000d10  2b 36 2c 58 3a 4a 53 52  20 77 72 63 68 0d 08 52  |+6,X:JSR wrch..R|
00000d20  18 4c 44 41 20 62 75 66  2b 37 2c 58 3a 4a 53 52  |.LDA buf+7,X:JSR|
00000d30  20 77 72 63 68 0d 08 5c  18 4c 44 41 20 62 75 66  | wrch..\.LDA buf|
00000d40  2b 38 2c 58 3a 4a 53 52  20 77 72 63 68 0d 08 66  |+8,X:JSR wrch..f|
00000d50  19 4c 44 41 20 23 32 35  35 3a 4a 53 52 20 77 72  |.LDA #255:JSR wr|
00000d60  63 68 3a 49 4e 58 0d 08  70 1f 4a 53 52 20 64 65  |ch:INX..p.JSR de|
00000d70  6c 61 79 3a 43 50 58 20  23 39 3a 42 4e 45 20 6c  |lay:CPX #9:BNE l|
00000d80  70 3a 52 54 53 0d 08 7a  0a 2e 64 65 6c 61 79 0d  |p:RTS..z..delay.|
00000d90  08 84 1f 50 48 41 3a 54  58 41 3a 50 48 41 3a 54  |...PHA:TXA:PHA:T|
00000da0  59 41 3a 50 48 41 3a 4c  44 58 20 73 70 64 0d 08  |YA:PHA:LDX spd..|
00000db0  8e 10 2e 6c 70 32 20 4c  44 59 20 73 70 64 0d 08  |...lp2 LDY spd..|
00000dc0  98 20 2e 6c 70 33 20 44  45 59 3a 42 4e 45 20 6c  |. .lp3 DEY:BNE l|
00000dd0  70 33 3a 44 45 58 3a 42  4e 45 20 6c 70 32 0d 08  |p3:DEX:BNE lp2..|
00000de0  a2 1b 50 4c 41 3a 54 41  59 3a 50 4c 41 3a 54 41  |..PLA:TAY:PLA:TA|
00000df0  58 3a 50 4c 41 3a 52 54  53 0d 08 ac 09 5d 3a ed  |X:PLA:RTS....]:.|
00000e00  3a e1 0d 08 b6 05 e1 0d  08 c0 1b f4 22 83 53 63  |:...........".Sc|
00000e10  72 6f 6c 6c 79 20 4d 65  73 73 61 67 65 20 44 61  |rolly Message Da|
00000e20  74 61 0d 08 ca 08 dc 20  35 36 0d 08 d4 13 dc 20  |ta..... 56..... |
00000e30  52 4f 42 4f 43 4f 50 2c  31 35 30 2c 33 0d 08 de  |ROBOCOP,150,3...|
00000e40  10 dc 20 50 41 52 54 2c  31 30 30 2c 31 0d 08 e8  |.. PART,100,1...|
00000e50  10 dc 20 4d 41 4e 2e 2c  31 30 30 2c 31 0d 08 f2  |.. MAN.,100,1...|
00000e60  10 dc 20 50 41 52 54 2c  31 30 30 2c 31 0d 08 fc  |.. PART,100,1...|
00000e70  14 dc 20 4d 41 43 48 49  4e 45 2e 2c 31 30 30 2c  |.. MACHINE.,100,|
00000e80  31 0d 09 06 0f dc 20 41  4c 4c 2c 31 32 30 2c 32  |1..... ALL,120,2|
00000e90  0d 09 10 14 dc 20 43 4f  50 2e 2e 2e 2e 2e 2c 31  |..... COP.....,1|
00000ea0  32 30 2c 32 0d 09 1a 10  dc 20 54 68 69 73 2c 31  |20,2..... This,1|
00000eb0  30 30 2c 33 0d 09 24 10  dc 20 44 65 6d 6f 2c 31  |00,3..$.. Demo,1|
00000ec0  30 30 2c 33 0d 09 2e 0e  dc 20 42 79 2c 31 30 30  |00,3..... By,100|
00000ed0  2c 33 0d 09 38 12 dc 20  44 75 6e 63 61 6e 2c 31  |,3..8.. Duncan,1|
00000ee0  32 30 2c 31 0d 09 42 12  dc 20 4c 69 6c 6c 79 2e  |20,1..B.. Lilly.|
00000ef0  2c 31 32 30 2c 31 0d 09  4c 0d dc 20 22 22 2c 35  |,120,1..L.. "",5|
00000f00  30 2c 30 0d 09 56 10 dc  20 48 65 6c 6c 6f 2c 39  |0,0..V.. Hello,9|
00000f10  30 2c 32 0d 09 60 11 dc  20 74 6f 2e 2e 2e 2e 2c  |0,2..`.. to....,|
00000f20  39 30 2c 32 0d 09 6a 14  dc 20 22 44 61 6d 6d 6f  |90,2..j.. "Dammo|
00000f30  6e 2c 22 2c 39 30 2c 32  0d 09 74 14 dc 20 22 44  |n,",90,2..t.. "D|
00000f40  61 6e 69 65 6c 2c 22 2c  39 30 2c 32 0d 09 7e 14  |aniel,",90,2..~.|
00000f50  dc 20 22 54 68 6f 6d 61  73 2c 22 2c 39 30 2c 32  |. "Thomas,",90,2|
00000f60  0d 09 88 11 dc 20 61 6c  6c 20 6d 79 2c 39 30 2c  |..... all my,90,|
00000f70  32 0d 09 92 11 dc 20 66  61 6d 69 6c 79 2c 39 30  |2..... family,90|
00000f80  2c 32 0d 09 9c 0e dc 20  61 6e 64 2c 39 30 2c 32  |,2..... and,90,2|
00000f90  0d 09 a6 13 dc 20 65 76  65 72 79 6f 6e 65 2c 39  |..... everyone,9|
00000fa0  30 2c 32 0d 09 b0 13 dc  20 65 6c 73 65 20 77 68  |0,2..... else wh|
00000fb0  6f 2c 39 30 2c 32 0d 09  ba 10 dc 20 6b 6e 6f 77  |o,90,2..... know|
00000fc0  73 2c 39 30 2c 32 0d 09  c4 12 dc 20 6d 65 21 21  |s,90,2..... me!!|
00000fd0  21 21 21 2c 39 30 2c 32  0d 09 ce 0e dc 20 22 22  |!!!,90,2..... ""|
00000fe0  2c 31 30 30 2c 30 0d 09  d8 0f dc 20 49 74 27 73  |,100,0..... It's|
00000ff0  2c 39 30 2c 33 0d 09 e2  11 dc 20 72 65 61 6c 6c  |,90,3..... reall|
00001000  79 2c 39 30 2c 33 0d 09  ec 13 dc 20 65 78 63 69  |y,90,3..... exci|
00001010  74 69 6e 67 2c 39 30 2c  33 0d 09 f6 11 dc 20 74  |ting,90,3..... t|
00001020  6f 20 73 65 65 2c 39 30  2c 33 0d 0a 00 0e dc 20  |o see,90,3..... |
00001030  74 68 65 2c 39 30 2c 33  0d 0a 0a 11 dc 20 67 72  |the,90,3..... gr|
00001040  6f 77 74 68 2c 39 30 2c  33 0d 0a 14 0d dc 20 6f  |owth,90,3..... o|
00001050  66 2c 39 30 2c 33 0d 0a  1e 10 dc 20 38 2d 62 69  |f,90,3..... 8-bi|
00001060  74 2c 39 30 2c 31 0d 0a  28 11 dc 20 50 75 62 6c  |t,90,1..(.. Publ|
00001070  69 63 2c 39 30 2c 31 0d  0a 32 11 dc 20 44 6f 6d  |ic,90,1..2.. Dom|
00001080  61 69 6e 2c 39 30 2c 31  0d 0a 3c 13 dc 20 53 6f  |ain,90,1..<.. So|
00001090  66 74 77 61 72 65 2c 39  30 2c 31 0d 0a 46 10 dc  |ftware,90,1..F..|
000010a0  20 61 6e 64 20 49 2c 39  30 2c 33 0d 0a 50 12 dc  | and I,90,3..P..|
000010b0  20 68 6f 70 65 20 69 74  2c 39 30 2c 33 0d 0a 5a  | hope it,90,3..Z|
000010c0  13 dc 20 73 75 72 76 69  76 65 73 2c 39 30 2c 33  |.. survives,90,3|
000010d0  0d 0a 64 11 dc 20 66 6f  72 20 61 73 2c 39 30 2c  |..d.. for as,90,|
000010e0  33 0d 0a 6e 12 dc 20 6c  6f 6e 67 20 61 73 2c 39  |3..n.. long as,9|
000010f0  30 2c 33 0d 0a 78 12 dc  20 74 68 65 20 42 42 43  |0,3..x.. the BBC|
00001100  2c 39 30 2c 33 0d 0a 82  13 dc 20 6d 69 63 72 6f  |,90,3..... micro|
00001110  21 21 21 2c 39 30 2c 33  0d 0a 8c 0e dc 20 22 22  |!!!,90,3..... ""|
00001120  2c 31 30 30 2c 30 0d 0a  96 11 dc 20 54 68 61 6e  |,100,0..... Than|
00001130  6b 2c 31 30 30 2c 31 0d  0a a0 13 dc 20 59 6f 75  |k,100,1..... You|
00001140  20 46 6f 72 2c 31 30 30  2c 31 0d 0a aa 14 dc 20  | For,100,1..... |
00001150  57 61 74 63 68 69 6e 67  2c 31 30 30 2c 31 0d 0a  |Watching,100,1..|
00001160  b4 10 dc 20 54 68 69 73  2c 31 30 30 2c 31 0d 0a  |... This,100,1..|
00001170  be 11 dc 20 44 65 6d 6f  2e 2c 31 30 30 2c 31 0d  |... Demo.,100,1.|
00001180  0a c8 0e dc 20 22 22 2c  31 30 30 2c 30 0d 0a d2  |.... "",100,0...|
00001190  10 dc 20 50 52 45 53 53  2c 39 30 2c 33 0d 0a dc  |.. PRESS,90,3...|
000011a0  12 dc 20 41 4e 59 20 4b  45 59 2c 39 30 2c 33 0d  |.. ANY KEY,90,3.|
000011b0  0a e6 10 dc 20 54 4f 20  47 4f 2c 39 30 2c 33 0d  |.... TO GO,90,3.|
000011c0  0a f0 13 dc 20 4f 4e 20  3e 3e 3e 3e 3e 2c 39 30  |.... ON >>>>>,90|
000011d0  2c 33 0d 0a fa 0e dc 20  22 22 2c 31 30 30 2c 30  |,3..... "",100,0|
000011e0  0d 0b 04 14 dc 20 42 59  45 21 21 21 21 21 2c 31  |..... BYE!!!!!,1|
000011f0  36 30 2c 32 0d ff                                 |60,2..|
000011f6