� Bigscroll
 � By R.Henderson
 � (c) Electron User
( � 4:*FX16
2 � 23,1,0;0;0;0;
< *FX178
F
 �read(5)
P �=&3000
Z � Main machine code
d � i%=0 � 2 � 2
n P%=&900
x [ OPT i% 
� \ Save registers
� .jp STA &79:STX &7A
� STY &7B:CLD
�
 .text
� LDA &71:CMP &77:BEQ lx
� INC &70:BNE prg
� INC &71
� \ Get letter and
� \ store bit pattern
�	 .prg
� LDY #0:LDA (&70),Y
� CMP #1:BEQ invon
� CMP #2:BEQ invoff

 STA &80:JSR times

 \ Call scrolling

 \ subroutines

" .scsl1

, JSR scrolling:JSR loop

6 JSR scr:JSR xyz

@ JSR drw:JSR xyz:JSR tblh

J \ Restore registers

T \ and quit

^ LDY &7B:LDX &7A

h LDA &79:RTS

r \ Scroll the message

|	 .xyz

� LDY #0

�
 .loop

� LDA (&72),Y:STA (&74),Y

� INY:BNE loop

� INC &75:INC &73

� .loop2

�  LDA (&72),Y:STA (&74),Y:INY

� CPY #&40:BNE loop2

� RTS

� \ Checks for end

� \ of message

� .lx LDA &70:CMP &76

� BEQ xl:RTS
 \ Checks for inverse
 .invon LDA #&FF:STA &78
 INC &70:JMP prg
& .invoff LDA #&0:STA &78
0 INC &70:JMP prg
: RTS
D" .xl LDA #lo%:STA &70:LDA #hi%
N STA &71:INC &70:JMP prg
X
 .rts RTS
b \ Print triple
l \ height letter
v
 .tblh
�H LDA &88:� &78:STA &7FFF:STA &7FFE:STA &7FFD:LDA &87:� &78:STA &7FFC
�: STA &7FFB:STA &7FFA:LDA &86:� &78:STA &7FF9:STA &7FF8
�H STA &7EBF:LDA &85:� &78:STA &7EBE:STA &7EBD:STA &7EBC:LDA &84:� &78
�: STA &7EBB:STA &7EBA:STA &7EB9:LDA &83:� &78:STA &7EB8
�D STA &7D7F:STA &7D7E:LDA &82:� &78:STA &7D7D:STA &7D7C:STA &7D7B
�4 LDA &81:� &78:STA &7D7A:STA &7D79:STA &7D78:RTS
� .scrolling
� LDA #&7D:STA &75:STA &73
� LDA #&78:STA &74
� LDA #&80:STA &72:RTS
�	 .drw
� LDA #&7E:STA &75:STA &73
� LDA #&C0:STA &74
 LDA #&C8:STA &72:RTS
	 .scr
 LDA #&7C:STA &75:STA &73
  LDA #&40:STA &74:LDA #&48
* STA &72:RTS
4 .times LDA #0:STA &8C
> LDA &80:SEC:SBC #32
H \ Multiply by 8
R  STA &8B:CLC:ASL &8B:ROL &8C
\$ ASL &8B:ROL &8C:ASL &8B:ROL &8C
f
 .scan
p \ Get char def
z \ from ROM
�$ LDA #0:STA &8E:LDA #&C0:STA &8F
�  CLC:LDA &8B:ADC &8E:STA &8E
� LDA &8C:ADC &8F:STA &8F
� .do LDY #0:LDX #0
� .dlp LDA (&8E),Y:STA &81,X
� INY:INX:CPX #8:BNE dlp:RTS
�	 :]:�
� ?&220=0:?&221=&9:*FX14,4
� �12,14);"SCROLLING TEXT"
� �17,16);"DEMO"
� *FX15,1
� � 12,1:� 1,1,100,-1:flg%=0
� �:� li%=464 � 596 � 8
 � 0,li%:� 1278,li%
' � 1,1,-1,1,?&240,1,1,4,0,0,0,0,0,0
 � �(0)=32 li%=1024:flg%=1
$ �:� flg%=1
. � 7:*FX13,4
8 �:� 23,1,1,0;0;0;0;:�
B � �read(pointer%) 
L start%=&3000:end%=&3200
V lo%=start% � 256
` hi%=start% � 256
j fi%=end% � 256
t sh%=end% � 256
~ ?&70=lo%:?&71=hi%
� ?&76=fi%:?&77=sh%
�  � f%=start% � end%:?f%=32:�
� v%=start%
� � r%=0 � pointer%:� f$
� � mem%=1 � �(f$)
� dat%=v%+mem%
� ?dat%=�(�f$,mem%,1))
� �
� v%=v%+(mem%-1)
� �
� � Poke inverse data
� ?&3182=1:?&3194=2
 ?&78=0

 �
d � "  As you can see, this is a demonstration of smooth (and fast!) horizontal scrolling...    "
� � "The code works in mode 4 only and (at least in theory) is able to scroll a message of up to 65536 bytes (64k), which is more space than you are ever likely to need... "
(a � "    You could have scrolling messages in high score tables, demos and 1001 other uses..."
2/ � " It can also display your message in  "
<8 � "  inverse video...   How about that then ? ... "
FD � " Type *FX13,4 to stop the scrolling...   Thats all folks..."
�

00000000  0d 00 0a 10 20 f4 20 42  69 67 73 63 72 6f 6c 6c  |.... . Bigscroll|
00000010  0d 00 14 15 20 f4 20 42  79 20 52 2e 48 65 6e 64  |.... . By R.Hend|
00000020  65 72 73 6f 6e 0d 00 1e  18 20 f4 20 28 63 29 20  |erson.... . (c) |
00000030  45 6c 65 63 74 72 6f 6e  20 55 73 65 72 0d 00 28  |Electron User..(|
00000040  0e 20 eb 20 34 3a 2a 46  58 31 36 0d 00 32 14 20  |. . 4:*FX16..2. |
00000050  ef 20 32 33 2c 31 2c 30  3b 30 3b 30 3b 30 3b 0d  |. 23,1,0;0;0;0;.|
00000060  00 3c 0b 20 2a 46 58 31  37 38 0d 00 46 0d 20 f2  |.<. *FX178..F. .|
00000070  72 65 61 64 28 35 29 0d  00 50 0c 20 d3 3d 26 33  |read(5)..P. .=&3|
00000080  30 30 30 0d 00 5a 18 20  f4 20 4d 61 69 6e 20 6d  |000..Z. . Main m|
00000090  61 63 68 69 6e 65 20 63  6f 64 65 0d 00 64 13 20  |achine code..d. |
000000a0  e3 20 69 25 3d 30 20 b8  20 32 20 88 20 32 0d 00  |. i%=0 . 2 . 2..|
000000b0  6e 0c 20 50 25 3d 26 39  30 30 0d 00 78 0e 20 5b  |n. P%=&900..x. [|
000000c0  20 4f 50 54 20 69 25 20  0d 00 82 15 20 5c 20 53  | OPT i% .... \ S|
000000d0  61 76 65 20 72 65 67 69  73 74 65 72 73 0d 00 8c  |ave registers...|
000000e0  18 20 2e 6a 70 20 53 54  41 20 26 37 39 3a 53 54  |. .jp STA &79:ST|
000000f0  58 20 26 37 41 0d 00 96  10 20 53 54 59 20 26 37  |X &7A.... STY &7|
00000100  42 3a 43 4c 44 0d 00 a0  0a 20 2e 74 65 78 74 0d  |B:CLD.... .text.|
00000110  00 aa 1b 20 4c 44 41 20  26 37 31 3a 43 4d 50 20  |... LDA &71:CMP |
00000120  26 37 37 3a 42 45 51 20  6c 78 0d 00 b4 14 20 49  |&77:BEQ lx.... I|
00000130  4e 43 20 26 37 30 3a 42  4e 45 20 70 72 67 0d 00  |NC &70:BNE prg..|
00000140  be 0c 20 49 4e 43 20 26  37 31 0d 00 c8 15 20 5c  |.. INC &71.... \|
00000150  20 47 65 74 20 6c 65 74  74 65 72 20 61 6e 64 0d  | Get letter and.|
00000160  00 d2 18 20 5c 20 73 74  6f 72 65 20 62 69 74 20  |... \ store bit |
00000170  70 61 74 74 65 72 6e 0d  00 dc 09 20 2e 70 72 67  |pattern.... .prg|
00000180  0d 00 e6 17 20 4c 44 59  20 23 30 3a 4c 44 41 20  |.... LDY #0:LDA |
00000190  28 26 37 30 29 2c 59 0d  00 f0 15 20 43 4d 50 20  |(&70),Y.... CMP |
000001a0  23 31 3a 42 45 51 20 69  6e 76 6f 6e 0d 00 fa 16  |#1:BEQ invon....|
000001b0  20 43 4d 50 20 23 32 3a  42 45 51 20 69 6e 76 6f  | CMP #2:BEQ invo|
000001c0  66 66 0d 01 04 16 20 53  54 41 20 26 38 30 3a 4a  |ff.... STA &80:J|
000001d0  53 52 20 74 69 6d 65 73  0d 01 0e 15 20 5c 20 43  |SR times.... \ C|
000001e0  61 6c 6c 20 73 63 72 6f  6c 6c 69 6e 67 0d 01 18  |all scrolling...|
000001f0  12 20 5c 20 73 75 62 72  6f 75 74 69 6e 65 73 0d  |. \ subroutines.|
00000200  01 22 0b 20 2e 73 63 73  6c 31 0d 01 2c 1b 20 4a  |.". .scsl1..,. J|
00000210  53 52 20 73 63 72 6f 6c  6c 69 6e 67 3a 4a 53 52  |SR scrolling:JSR|
00000220  20 6c 6f 6f 70 0d 01 36  14 20 4a 53 52 20 73 63  | loop..6. JSR sc|
00000230  72 3a 4a 53 52 20 78 79  7a 0d 01 40 1d 20 4a 53  |r:JSR xyz..@. JS|
00000240  52 20 64 72 77 3a 4a 53  52 20 78 79 7a 3a 4a 53  |R drw:JSR xyz:JS|
00000250  52 20 74 62 6c 68 0d 01  4a 18 20 5c 20 52 65 73  |R tblh..J. \ Res|
00000260  74 6f 72 65 20 72 65 67  69 73 74 65 72 73 0d 01  |tore registers..|
00000270  54 0f 20 5c 20 61 6e 64  20 71 75 69 74 0d 01 5e  |T. \ and quit..^|
00000280  14 20 4c 44 59 20 26 37  42 3a 4c 44 58 20 26 37  |. LDY &7B:LDX &7|
00000290  41 0d 01 68 10 20 4c 44  41 20 26 37 39 3a 52 54  |A..h. LDA &79:RT|
000002a0  53 0d 01 72 19 20 5c 20  53 63 72 6f 6c 6c 20 74  |S..r. \ Scroll t|
000002b0  68 65 20 6d 65 73 73 61  67 65 0d 01 7c 09 20 2e  |he message..|. .|
000002c0  78 79 7a 0d 01 86 0b 20  4c 44 59 20 23 30 0d 01  |xyz.... LDY #0..|
000002d0  90 0a 20 2e 6c 6f 6f 70  0d 01 9a 1c 20 4c 44 41  |.. .loop.... LDA|
000002e0  20 28 26 37 32 29 2c 59  3a 53 54 41 20 28 26 37  | (&72),Y:STA (&7|
000002f0  34 29 2c 59 0d 01 a4 11  20 49 4e 59 3a 42 4e 45  |4),Y.... INY:BNE|
00000300  20 6c 6f 6f 70 0d 01 ae  14 20 49 4e 43 20 26 37  | loop.... INC &7|
00000310  35 3a 49 4e 43 20 26 37  33 0d 01 b8 0b 20 2e 6c  |5:INC &73.... .l|
00000320  6f 6f 70 32 0d 01 c2 20  20 4c 44 41 20 28 26 37  |oop2...  LDA (&7|
00000330  32 29 2c 59 3a 53 54 41  20 28 26 37 34 29 2c 59  |2),Y:STA (&74),Y|
00000340  3a 49 4e 59 0d 01 cc 17  20 43 50 59 20 23 26 34  |:INY.... CPY #&4|
00000350  30 3a 42 4e 45 20 6c 6f  6f 70 32 0d 01 d6 08 20  |0:BNE loop2.... |
00000360  52 54 53 0d 01 e0 15 20  5c 20 43 68 65 63 6b 73  |RTS.... \ Checks|
00000370  20 66 6f 72 20 65 6e 64  0d 01 ea 11 20 5c 20 6f  | for end.... \ o|
00000380  66 20 6d 65 73 73 61 67  65 0d 01 f4 18 20 2e 6c  |f message.... .l|
00000390  78 20 4c 44 41 20 26 37  30 3a 43 4d 50 20 26 37  |x LDA &70:CMP &7|
000003a0  36 0d 01 fe 0f 20 42 45  51 20 78 6c 3a 52 54 53  |6.... BEQ xl:RTS|
000003b0  0d 02 08 19 20 5c 20 43  68 65 63 6b 73 20 66 6f  |.... \ Checks fo|
000003c0  72 20 69 6e 76 65 72 73  65 0d 02 12 1c 20 2e 69  |r inverse.... .i|
000003d0  6e 76 6f 6e 20 4c 44 41  20 23 26 46 46 3a 53 54  |nvon LDA #&FF:ST|
000003e0  41 20 26 37 38 0d 02 1c  14 20 49 4e 43 20 26 37  |A &78.... INC &7|
000003f0  30 3a 4a 4d 50 20 70 72  67 0d 02 26 1c 20 2e 69  |0:JMP prg..&. .i|
00000400  6e 76 6f 66 66 20 4c 44  41 20 23 26 30 3a 53 54  |nvoff LDA #&0:ST|
00000410  41 20 26 37 38 0d 02 30  14 20 49 4e 43 20 26 37  |A &78..0. INC &7|
00000420  30 3a 4a 4d 50 20 70 72  67 0d 02 3a 08 20 52 54  |0:JMP prg..:. RT|
00000430  53 0d 02 44 22 20 2e 78  6c 20 4c 44 41 20 23 6c  |S..D" .xl LDA #l|
00000440  6f 25 3a 53 54 41 20 26  37 30 3a 4c 44 41 20 23  |o%:STA &70:LDA #|
00000450  68 69 25 0d 02 4e 1c 20  53 54 41 20 26 37 31 3a  |hi%..N. STA &71:|
00000460  49 4e 43 20 26 37 30 3a  4a 4d 50 20 70 72 67 0d  |INC &70:JMP prg.|
00000470  02 58 0d 20 2e 72 74 73  20 52 54 53 0d 02 62 13  |.X. .rts RTS..b.|
00000480  20 5c 20 50 72 69 6e 74  20 74 72 69 70 6c 65 0d  | \ Print triple.|
00000490  02 6c 14 20 5c 20 68 65  69 67 68 74 20 6c 65 74  |.l. \ height let|
000004a0  74 65 72 0d 02 76 0a 20  2e 74 62 6c 68 0d 02 80  |ter..v. .tblh...|
000004b0  48 20 4c 44 41 20 26 38  38 3a 82 20 26 37 38 3a  |H LDA &88:. &78:|
000004c0  53 54 41 20 26 37 46 46  46 3a 53 54 41 20 26 37  |STA &7FFF:STA &7|
000004d0  46 46 45 3a 53 54 41 20  26 37 46 46 44 3a 4c 44  |FFE:STA &7FFD:LD|
000004e0  41 20 26 38 37 3a 82 20  26 37 38 3a 53 54 41 20  |A &87:. &78:STA |
000004f0  26 37 46 46 43 0d 02 8a  3a 20 53 54 41 20 26 37  |&7FFC...: STA &7|
00000500  46 46 42 3a 53 54 41 20  26 37 46 46 41 3a 4c 44  |FFB:STA &7FFA:LD|
00000510  41 20 26 38 36 3a 82 20  26 37 38 3a 53 54 41 20  |A &86:. &78:STA |
00000520  26 37 46 46 39 3a 53 54  41 20 26 37 46 46 38 0d  |&7FF9:STA &7FF8.|
00000530  02 94 48 20 53 54 41 20  26 37 45 42 46 3a 4c 44  |..H STA &7EBF:LD|
00000540  41 20 26 38 35 3a 82 20  26 37 38 3a 53 54 41 20  |A &85:. &78:STA |
00000550  26 37 45 42 45 3a 53 54  41 20 26 37 45 42 44 3a  |&7EBE:STA &7EBD:|
00000560  53 54 41 20 26 37 45 42  43 3a 4c 44 41 20 26 38  |STA &7EBC:LDA &8|
00000570  34 3a 82 20 26 37 38 0d  02 9e 3a 20 53 54 41 20  |4:. &78...: STA |
00000580  26 37 45 42 42 3a 53 54  41 20 26 37 45 42 41 3a  |&7EBB:STA &7EBA:|
00000590  53 54 41 20 26 37 45 42  39 3a 4c 44 41 20 26 38  |STA &7EB9:LDA &8|
000005a0  33 3a 82 20 26 37 38 3a  53 54 41 20 26 37 45 42  |3:. &78:STA &7EB|
000005b0  38 0d 02 a8 44 20 53 54  41 20 26 37 44 37 46 3a  |8...D STA &7D7F:|
000005c0  53 54 41 20 26 37 44 37  45 3a 4c 44 41 20 26 38  |STA &7D7E:LDA &8|
000005d0  32 3a 82 20 26 37 38 3a  53 54 41 20 26 37 44 37  |2:. &78:STA &7D7|
000005e0  44 3a 53 54 41 20 26 37  44 37 43 3a 53 54 41 20  |D:STA &7D7C:STA |
000005f0  26 37 44 37 42 0d 02 b2  34 20 4c 44 41 20 26 38  |&7D7B...4 LDA &8|
00000600  31 3a 82 20 26 37 38 3a  53 54 41 20 26 37 44 37  |1:. &78:STA &7D7|
00000610  41 3a 53 54 41 20 26 37  44 37 39 3a 53 54 41 20  |A:STA &7D79:STA |
00000620  26 37 44 37 38 3a 52 54  53 0d 02 bc 0f 20 2e 73  |&7D78:RTS.... .s|
00000630  63 72 6f 6c 6c 69 6e 67  0d 02 c6 1d 20 4c 44 41  |crolling.... LDA|
00000640  20 23 26 37 44 3a 53 54  41 20 26 37 35 3a 53 54  | #&7D:STA &75:ST|
00000650  41 20 26 37 33 0d 02 d0  15 20 4c 44 41 20 23 26  |A &73.... LDA #&|
00000660  37 38 3a 53 54 41 20 26  37 34 0d 02 da 19 20 4c  |78:STA &74.... L|
00000670  44 41 20 23 26 38 30 3a  53 54 41 20 26 37 32 3a  |DA #&80:STA &72:|
00000680  52 54 53 0d 02 e4 09 20  2e 64 72 77 0d 02 ee 1d  |RTS.... .drw....|
00000690  20 4c 44 41 20 23 26 37  45 3a 53 54 41 20 26 37  | LDA #&7E:STA &7|
000006a0  35 3a 53 54 41 20 26 37  33 0d 02 f8 15 20 4c 44  |5:STA &73.... LD|
000006b0  41 20 23 26 43 30 3a 53  54 41 20 26 37 34 0d 03  |A #&C0:STA &74..|
000006c0  02 19 20 4c 44 41 20 23  26 43 38 3a 53 54 41 20  |.. LDA #&C8:STA |
000006d0  26 37 32 3a 52 54 53 0d  03 0c 09 20 2e 73 63 72  |&72:RTS.... .scr|
000006e0  0d 03 16 1d 20 4c 44 41  20 23 26 37 43 3a 53 54  |.... LDA #&7C:ST|
000006f0  41 20 26 37 35 3a 53 54  41 20 26 37 33 0d 03 20  |A &75:STA &73.. |
00000700  1e 20 4c 44 41 20 23 26  34 30 3a 53 54 41 20 26  |. LDA #&40:STA &|
00000710  37 34 3a 4c 44 41 20 23  26 34 38 0d 03 2a 10 20  |74:LDA #&48..*. |
00000720  53 54 41 20 26 37 32 3a  52 54 53 0d 03 34 1a 20  |STA &72:RTS..4. |
00000730  2e 74 69 6d 65 73 20 4c  44 41 20 23 30 3a 53 54  |.times LDA #0:ST|
00000740  41 20 26 38 43 0d 03 3e  18 20 4c 44 41 20 26 38  |A &8C..>. LDA &8|
00000750  30 3a 53 45 43 3a 53 42  43 20 23 33 32 0d 03 48  |0:SEC:SBC #32..H|
00000760  14 20 5c 20 4d 75 6c 74  69 70 6c 79 20 62 79 20  |. \ Multiply by |
00000770  38 0d 03 52 20 20 53 54  41 20 26 38 42 3a 43 4c  |8..R  STA &8B:CL|
00000780  43 3a 41 53 4c 20 26 38  42 3a 52 4f 4c 20 26 38  |C:ASL &8B:ROL &8|
00000790  43 0d 03 5c 24 20 41 53  4c 20 26 38 42 3a 52 4f  |C..\$ ASL &8B:RO|
000007a0  4c 20 26 38 43 3a 41 53  4c 20 26 38 42 3a 52 4f  |L &8C:ASL &8B:RO|
000007b0  4c 20 26 38 43 0d 03 66  0a 20 2e 73 63 61 6e 0d  |L &8C..f. .scan.|
000007c0  03 70 13 20 5c 20 47 65  74 20 63 68 61 72 20 64  |.p. \ Get char d|
000007d0  65 66 0d 03 7a 0f 20 5c  20 66 72 6f 6d 20 52 4f  |ef..z. \ from RO|
000007e0  4d 0d 03 84 24 20 4c 44  41 20 23 30 3a 53 54 41  |M...$ LDA #0:STA|
000007f0  20 26 38 45 3a 4c 44 41  20 23 26 43 30 3a 53 54  | &8E:LDA #&C0:ST|
00000800  41 20 26 38 46 0d 03 8e  20 20 43 4c 43 3a 4c 44  |A &8F...  CLC:LD|
00000810  41 20 26 38 42 3a 41 44  43 20 26 38 45 3a 53 54  |A &8B:ADC &8E:ST|
00000820  41 20 26 38 45 0d 03 98  1c 20 4c 44 41 20 26 38  |A &8E.... LDA &8|
00000830  43 3a 41 44 43 20 26 38  46 3a 53 54 41 20 26 38  |C:ADC &8F:STA &8|
00000840  46 0d 03 a2 16 20 2e 64  6f 20 4c 44 59 20 23 30  |F.... .do LDY #0|
00000850  3a 4c 44 58 20 23 30 0d  03 ac 1f 20 2e 64 6c 70  |:LDX #0.... .dlp|
00000860  20 4c 44 41 20 28 26 38  45 29 2c 59 3a 53 54 41  | LDA (&8E),Y:STA|
00000870  20 26 38 31 2c 58 0d 03  b6 1f 20 49 4e 59 3a 49  | &81,X.... INY:I|
00000880  4e 58 3a 43 50 58 20 23  38 3a 42 4e 45 20 64 6c  |NX:CPX #8:BNE dl|
00000890  70 3a 52 54 53 0d 03 c0  09 20 3a 5d 3a ed 0d 03  |p:RTS.... :]:...|
000008a0  ca 1d 20 3f 26 32 32 30  3d 30 3a 3f 26 32 32 31  |.. ?&220=0:?&221|
000008b0  3d 26 39 3a 2a 46 58 31  34 2c 34 0d 03 d4 1e 20  |=&9:*FX14,4.... |
000008c0  f1 8a 31 32 2c 31 34 29  3b 22 53 43 52 4f 4c 4c  |..12,14);"SCROLL|
000008d0  49 4e 47 20 54 45 58 54  22 0d 03 de 14 20 f1 8a  |ING TEXT".... ..|
000008e0  31 37 2c 31 36 29 3b 22  44 45 4d 4f 22 0d 03 e8  |17,16);"DEMO"...|
000008f0  0c 20 2a 46 58 31 35 2c  31 0d 03 f2 1f 20 e6 20  |. *FX15,1.... . |
00000900  31 32 2c 31 3a d4 20 31  2c 31 2c 31 30 30 2c 2d  |12,1:. 1,1,100,-|
00000910  31 3a 66 6c 67 25 3d 30  0d 03 fc 1a 20 f5 3a e3  |1:flg%=0.... .:.|
00000920  20 6c 69 25 3d 34 36 34  20 b8 20 35 39 36 20 88  | li%=464 . 596 .|
00000930  20 38 0d 04 06 17 20 ec  20 30 2c 6c 69 25 3a df  | 8.... . 0,li%:.|
00000940  20 31 32 37 38 2c 6c 69  25 0d 04 10 27 20 e2 20  | 1278,li%...' . |
00000950  31 2c 31 2c 2d 31 2c 31  2c 3f 26 32 34 30 2c 31  |1,1,-1,1,?&240,1|
00000960  2c 31 2c 34 2c 30 2c 30  2c 30 2c 30 2c 30 2c 30  |,1,4,0,0,0,0,0,0|
00000970  0d 04 1a 1e 20 e7 20 a6  28 30 29 3d 33 32 20 6c  |.... . .(0)=32 l|
00000980  69 25 3d 31 30 32 34 3a  66 6c 67 25 3d 31 0d 04  |i%=1024:flg%=1..|
00000990  24 0f 20 ed 3a fd 20 66  6c 67 25 3d 31 0d 04 2e  |$. .:. flg%=1...|
000009a0  10 20 ef 20 37 3a 2a 46  58 31 33 2c 34 0d 04 38  |. . 7:*FX13,4..8|
000009b0  1a 20 db 3a ef 20 32 33  2c 31 2c 31 2c 30 3b 30  |. .:. 23,1,1,0;0|
000009c0  3b 30 3b 30 3b 3a e0 0d  04 42 17 20 dd 20 f2 72  |;0;0;:...B. . .r|
000009d0  65 61 64 28 70 6f 69 6e  74 65 72 25 29 20 0d 04  |ead(pointer%) ..|
000009e0  4c 1c 20 73 74 61 72 74  25 3d 26 33 30 30 30 3a  |L. start%=&3000:|
000009f0  65 6e 64 25 3d 26 33 32  30 30 0d 04 56 15 20 6c  |end%=&3200..V. l|
00000a00  6f 25 3d 73 74 61 72 74  25 20 83 20 32 35 36 0d  |o%=start% . 256.|
00000a10  04 60 15 20 68 69 25 3d  73 74 61 72 74 25 20 81  |.`. hi%=start% .|
00000a20  20 32 35 36 0d 04 6a 13  20 66 69 25 3d 65 6e 64  | 256..j. fi%=end|
00000a30  25 20 83 20 32 35 36 0d  04 74 13 20 73 68 25 3d  |% . 256..t. sh%=|
00000a40  65 6e 64 25 20 81 20 32  35 36 0d 04 7e 16 20 3f  |end% . 256..~. ?|
00000a50  26 37 30 3d 6c 6f 25 3a  3f 26 37 31 3d 68 69 25  |&70=lo%:?&71=hi%|
00000a60  0d 04 88 16 20 3f 26 37  36 3d 66 69 25 3a 3f 26  |.... ?&76=fi%:?&|
00000a70  37 37 3d 73 68 25 0d 04  92 20 20 e3 20 66 25 3d  |77=sh%...  . f%=|
00000a80  73 74 61 72 74 25 20 b8  20 65 6e 64 25 3a 3f 66  |start% . end%:?f|
00000a90  25 3d 33 32 3a ed 0d 04  9c 0e 20 76 25 3d 73 74  |%=32:..... v%=st|
00000aa0  61 72 74 25 0d 04 a6 1b  20 e3 20 72 25 3d 30 20  |art%.... . r%=0 |
00000ab0  b8 20 70 6f 69 6e 74 65  72 25 3a f3 20 66 24 0d  |. pointer%:. f$.|
00000ac0  04 b0 15 20 e3 20 6d 65  6d 25 3d 31 20 b8 20 a9  |... . mem%=1 . .|
00000ad0  28 66 24 29 0d 04 ba 11  20 64 61 74 25 3d 76 25  |(f$).... dat%=v%|
00000ae0  2b 6d 65 6d 25 0d 04 c4  19 20 3f 64 61 74 25 3d  |+mem%.... ?dat%=|
00000af0  97 28 c1 66 24 2c 6d 65  6d 25 2c 31 29 29 0d 04  |.(.f$,mem%,1))..|
00000b00  ce 06 20 ed 0d 04 d8 13  20 76 25 3d 76 25 2b 28  |.. ..... v%=v%+(|
00000b10  6d 65 6d 25 2d 31 29 0d  04 e2 06 20 ed 0d 04 ec  |mem%-1).... ....|
00000b20  18 20 f4 20 50 6f 6b 65  20 69 6e 76 65 72 73 65  |. . Poke inverse|
00000b30  20 64 61 74 61 0d 04 f6  16 20 3f 26 33 31 38 32  | data.... ?&3182|
00000b40  3d 31 3a 3f 26 33 31 39  34 3d 32 0d 05 00 0b 20  |=1:?&3194=2.... |
00000b50  3f 26 37 38 3d 30 0d 05  0a 06 20 e1 0d 05 14 64  |?&78=0.... ....d|
00000b60  20 dc 20 22 20 20 41 73  20 79 6f 75 20 63 61 6e  | . "  As you can|
00000b70  20 73 65 65 2c 20 74 68  69 73 20 69 73 20 61 20  | see, this is a |
00000b80  64 65 6d 6f 6e 73 74 72  61 74 69 6f 6e 20 6f 66  |demonstration of|
00000b90  20 73 6d 6f 6f 74 68 20  28 61 6e 64 20 66 61 73  | smooth (and fas|
00000ba0  74 21 29 20 68 6f 72 69  7a 6f 6e 74 61 6c 20 73  |t!) horizontal s|
00000bb0  63 72 6f 6c 6c 69 6e 67  2e 2e 2e 20 20 20 20 22  |crolling...    "|
00000bc0  0d 05 1e b0 20 dc 20 22  54 68 65 20 63 6f 64 65  |.... . "The code|
00000bd0  20 77 6f 72 6b 73 20 69  6e 20 6d 6f 64 65 20 34  | works in mode 4|
00000be0  20 6f 6e 6c 79 20 61 6e  64 20 28 61 74 20 6c 65  | only and (at le|
00000bf0  61 73 74 20 69 6e 20 74  68 65 6f 72 79 29 20 69  |ast in theory) i|
00000c00  73 20 61 62 6c 65 20 74  6f 20 73 63 72 6f 6c 6c  |s able to scroll|
00000c10  20 61 20 6d 65 73 73 61  67 65 20 6f 66 20 75 70  | a message of up|
00000c20  20 74 6f 20 36 35 35 33  36 20 62 79 74 65 73 20  | to 65536 bytes |
00000c30  28 36 34 6b 29 2c 20 77  68 69 63 68 20 69 73 20  |(64k), which is |
00000c40  6d 6f 72 65 20 73 70 61  63 65 20 74 68 61 6e 20  |more space than |
00000c50  79 6f 75 20 61 72 65 20  65 76 65 72 20 6c 69 6b  |you are ever lik|
00000c60  65 6c 79 20 74 6f 20 6e  65 65 64 2e 2e 2e 20 22  |ely to need... "|
00000c70  0d 05 28 61 20 dc 20 22  20 20 20 20 59 6f 75 20  |..(a . "    You |
00000c80  63 6f 75 6c 64 20 68 61  76 65 20 73 63 72 6f 6c  |could have scrol|
00000c90  6c 69 6e 67 20 6d 65 73  73 61 67 65 73 20 69 6e  |ling messages in|
00000ca0  20 68 69 67 68 20 73 63  6f 72 65 20 74 61 62 6c  | high score tabl|
00000cb0  65 73 2c 20 64 65 6d 6f  73 20 61 6e 64 20 31 30  |es, demos and 10|
00000cc0  30 31 20 6f 74 68 65 72  20 75 73 65 73 2e 2e 2e  |01 other uses...|
00000cd0  22 0d 05 32 2f 20 dc 20  22 20 49 74 20 63 61 6e  |"..2/ . " It can|
00000ce0  20 61 6c 73 6f 20 64 69  73 70 6c 61 79 20 79 6f  | also display yo|
00000cf0  75 72 20 6d 65 73 73 61  67 65 20 69 6e 20 20 22  |ur message in  "|
00000d00  0d 05 3c 38 20 dc 20 22  20 20 69 6e 76 65 72 73  |..<8 . "  invers|
00000d10  65 20 76 69 64 65 6f 2e  2e 2e 20 20 20 48 6f 77  |e video...   How|
00000d20  20 61 62 6f 75 74 20 74  68 61 74 20 74 68 65 6e  | about that then|
00000d30  20 3f 20 2e 2e 2e 20 22  0d 05 46 44 20 dc 20 22  | ? ... "..FD . "|
00000d40  20 54 79 70 65 20 2a 46  58 31 33 2c 34 20 74 6f  | Type *FX13,4 to|
00000d50  20 73 74 6f 70 20 74 68  65 20 73 63 72 6f 6c 6c  | stop the scroll|
00000d60  69 6e 67 2e 2e 2e 20 20  20 54 68 61 74 73 20 61  |ing...   Thats a|
00000d70  6c 6c 20 66 6f 6c 6b 73  2e 2e 2e 22 0d ff        |ll folks..."..|
00000d7e