K � Walking Sprite Demonstration            Written by Dominic Ford 1998
 :
 �2:�=&2C00:�asschar
(" � Put your program code here!
2 � Draw background
< �sector=1�7:�0,sector
F? �1280-1280*�((sector-1)/16*�),1024-1024*�((sector-1)/16*�)
P7 �1280-1280*�(sector/16*�),1024-1024*�(sector/16*�)
Z �85,1280,1024:�
d :
n � Set EOR paint style
x �setpaint(3)
� � Start main loop
� �
�4 � Do loop moving man across screen from 0 to 72
� �xman=0�72
� � Draw top man
�j ?xoff=(xman �3):?xc=(xman �4):?yc=10:?yoff=0:?char=(xman �3)*4:�display:?yc=11:?char=?char+2:�display
�C � Draw bottom man (which is moving right, hence xman2=72-xman)
�} xman2=72-xman:?xoff=(xman2 �3):?xc=(xman2 �4):?yc=10:?yoff=0:?char=(xman2 �3)*4+1:�display:?yc=11:?char=?char+2:�display
� � Wait a bit...
� T=�:� � �>(T+5)
� � Get rid of men!
�j ?xoff=(xman �3):?xc=(xman �4):?yc=10:?yoff=0:?char=(xman �3)*4:�display:?yc=11:?char=?char+2:�display
�o ?xoff=(xman2 �3):?xc=(xman2 �4):?yc=10:?yoff=0:?char=(xman2 �3)*4+1:�display:?yc=11:?char=?char+2:�display

( � Loop for men moving across screen

 �

! � Do it over and over again!

" � �

, �

6 :

@ ��asschar

J, start=&A00:bitmap=&2C00:file$="WalkSpr"

T �pass=0 � 2 � 2

^ P%=start:[OPTpass

h� .display LDAyc:�#1:TAY:LDAlorow,Y:STA&70:LDAyc:LSR A:CLC:ADCyc:ADCyc:ADC#&30:STA&71:LDAxc:ASL A:STA&72:LDA#0:ROL A:STA&73:ASL&72:ROL&73:ASL&72:ROL&73:ASL&72:ROL&73:ASL&72:ROL&73:LDA&70:CLC:ADC&72:STA&70:LDA&71:ADC&73:STA&71

rr LDA&70:CLC:ADCyoff:STA&70:LDA&71:ADC#0:STA&71:LDAxoff:ASL A:ASL A:ASL A:CLC:ADC&70:STA&70:LDA&71:ADC#0:STA&71

|� LDAchar:ASL A:ASL A:ASL A:STA&72:LDA#0:ROL A:STA&73:ASL&72:ROL&73:ASL&72:ROL&73:LDA&72:CLC:ADC#(bitmap � 256):STA&72:LDA&73:ADC#(bitmap � 256):STA&73

�� LDA#8:PHA:.col LDX#3:.row TXA:ASL A:ASL A:ASL A:TAY:LDA(&70),Y:.settype LDA(&72),Y:STA(&70),Y:DEX:BPLrow:PLA:TAX:DEX:CPX#0:BEQfindisp:TXA:PHA:INC&72:LDA&70:CLC:ADC#1:PHA:STA&70:LDA&71:ADC#0:STA&71:PLA:�#7:BNEcol

�9 LDA&70:CLC:ADC#&78:STA&70:LDA&71:ADC#2:STA&71:JMPcol

� .findisp RTS

�Q .lorow EQUB0:EQUB&80:.xc EQUB0:.yc EQUB0:.xoff EQUB0:.yoff EQUB0:.char EQUB0

� ]:�:�"LOAD "+file$+" 2C00"

� �

� :

� ��setpaint(type)

� � type=0 � ?settype=&B1

� � type=1 � ?settype=&11

� � type=2 � ?settype=&31

� � type=3 � ?settype=&51

� �
�

00000000  0d 00 0a 4b 20 f4 20 57  61 6c 6b 69 6e 67 20 53  |...K . Walking S|
00000010  70 72 69 74 65 20 44 65  6d 6f 6e 73 74 72 61 74  |prite Demonstrat|
00000020  69 6f 6e 20 20 20 20 20  20 20 20 20 20 20 20 57  |ion            W|
00000030  72 69 74 74 65 6e 20 62  79 20 44 6f 6d 69 6e 69  |ritten by Domini|
00000040  63 20 46 6f 72 64 20 31  39 39 38 0d 00 14 06 20  |c Ford 1998.... |
00000050  3a 0d 00 1e 18 20 eb 32  3a d3 3d 26 32 43 30 30  |:.... .2:.=&2C00|
00000060  3a f2 61 73 73 63 68 61  72 0d 00 28 22 20 f4 20  |:.asschar..(" . |
00000070  50 75 74 20 79 6f 75 72  20 70 72 6f 67 72 61 6d  |Put your program|
00000080  20 63 6f 64 65 20 68 65  72 65 21 0d 00 32 16 20  | code here!..2. |
00000090  f4 20 44 72 61 77 20 62  61 63 6b 67 72 6f 75 6e  |. Draw backgroun|
000000a0  64 0d 00 3c 1a 20 e3 73  65 63 74 6f 72 3d 31 b8  |d..<. .sector=1.|
000000b0  37 3a e6 30 2c 73 65 63  74 6f 72 0d 00 46 3f 20  |7:.0,sector..F? |
000000c0  ec 31 32 38 30 2d 31 32  38 30 2a 9b 28 28 73 65  |.1280-1280*.((se|
000000d0  63 74 6f 72 2d 31 29 2f  31 36 2a af 29 2c 31 30  |ctor-1)/16*.),10|
000000e0  32 34 2d 31 30 32 34 2a  b5 28 28 73 65 63 74 6f  |24-1024*.((secto|
000000f0  72 2d 31 29 2f 31 36 2a  af 29 0d 00 50 37 20 ec  |r-1)/16*.)..P7 .|
00000100  31 32 38 30 2d 31 32 38  30 2a 9b 28 73 65 63 74  |1280-1280*.(sect|
00000110  6f 72 2f 31 36 2a af 29  2c 31 30 32 34 2d 31 30  |or/16*.),1024-10|
00000120  32 34 2a b5 28 73 65 63  74 6f 72 2f 31 36 2a af  |24*.(sector/16*.|
00000130  29 0d 00 5a 14 20 f0 38  35 2c 31 32 38 30 2c 31  |)..Z. .85,1280,1|
00000140  30 32 34 3a ed 0d 00 64  06 20 3a 0d 00 6e 1a 20  |024:...d. :..n. |
00000150  f4 20 53 65 74 20 45 4f  52 20 70 61 69 6e 74 20  |. Set EOR paint |
00000160  73 74 79 6c 65 0d 00 78  11 20 f2 73 65 74 70 61  |style..x. .setpa|
00000170  69 6e 74 28 33 29 0d 00  82 16 20 f4 20 53 74 61  |int(3).... . Sta|
00000180  72 74 20 6d 61 69 6e 20  6c 6f 6f 70 0d 00 8c 06  |rt main loop....|
00000190  20 f5 0d 00 96 34 20 f4  20 44 6f 20 6c 6f 6f 70  | ....4 . Do loop|
000001a0  20 6d 6f 76 69 6e 67 20  6d 61 6e 20 61 63 72 6f  | moving man acro|
000001b0  73 73 20 73 63 72 65 65  6e 20 66 72 6f 6d 20 30  |ss screen from 0|
000001c0  20 74 6f 20 37 32 0d 00  a0 0f 20 e3 78 6d 61 6e  | to 72.... .xman|
000001d0  3d 30 b8 37 32 0d 00 aa  13 20 f4 20 44 72 61 77  |=0.72.... . Draw|
000001e0  20 74 6f 70 20 6d 61 6e  0d 00 b4 6a 20 3f 78 6f  | top man...j ?xo|
000001f0  66 66 3d 28 78 6d 61 6e  20 80 33 29 3a 3f 78 63  |ff=(xman .3):?xc|
00000200  3d 28 78 6d 61 6e 20 81  34 29 3a 3f 79 63 3d 31  |=(xman .4):?yc=1|
00000210  30 3a 3f 79 6f 66 66 3d  30 3a 3f 63 68 61 72 3d  |0:?yoff=0:?char=|
00000220  28 78 6d 61 6e 20 83 33  29 2a 34 3a d6 64 69 73  |(xman .3)*4:.dis|
00000230  70 6c 61 79 3a 3f 79 63  3d 31 31 3a 3f 63 68 61  |play:?yc=11:?cha|
00000240  72 3d 3f 63 68 61 72 2b  32 3a d6 64 69 73 70 6c  |r=?char+2:.displ|
00000250  61 79 0d 00 be 43 20 f4  20 44 72 61 77 20 62 6f  |ay...C . Draw bo|
00000260  74 74 6f 6d 20 6d 61 6e  20 28 77 68 69 63 68 20  |ttom man (which |
00000270  69 73 20 6d 6f 76 69 6e  67 20 72 69 67 68 74 2c  |is moving right,|
00000280  20 68 65 6e 63 65 20 78  6d 61 6e 32 3d 37 32 2d  | hence xman2=72-|
00000290  78 6d 61 6e 29 0d 00 c8  7d 20 78 6d 61 6e 32 3d  |xman)...} xman2=|
000002a0  37 32 2d 78 6d 61 6e 3a  3f 78 6f 66 66 3d 28 78  |72-xman:?xoff=(x|
000002b0  6d 61 6e 32 20 80 33 29  3a 3f 78 63 3d 28 78 6d  |man2 .3):?xc=(xm|
000002c0  61 6e 32 20 81 34 29 3a  3f 79 63 3d 31 30 3a 3f  |an2 .4):?yc=10:?|
000002d0  79 6f 66 66 3d 30 3a 3f  63 68 61 72 3d 28 78 6d  |yoff=0:?char=(xm|
000002e0  61 6e 32 20 83 33 29 2a  34 2b 31 3a d6 64 69 73  |an2 .3)*4+1:.dis|
000002f0  70 6c 61 79 3a 3f 79 63  3d 31 31 3a 3f 63 68 61  |play:?yc=11:?cha|
00000300  72 3d 3f 63 68 61 72 2b  32 3a d6 64 69 73 70 6c  |r=?char+2:.displ|
00000310  61 79 0d 00 d2 14 20 f4  20 57 61 69 74 20 61 20  |ay.... . Wait a |
00000320  62 69 74 2e 2e 2e 0d 00  dc 14 20 54 3d 91 3a f5  |bit....... T=.:.|
00000330  20 fd 20 91 3e 28 54 2b  35 29 0d 00 e6 16 20 f4  | . .>(T+5).... .|
00000340  20 47 65 74 20 72 69 64  20 6f 66 20 6d 65 6e 21  | Get rid of men!|
00000350  0d 00 f0 6a 20 3f 78 6f  66 66 3d 28 78 6d 61 6e  |...j ?xoff=(xman|
00000360  20 80 33 29 3a 3f 78 63  3d 28 78 6d 61 6e 20 81  | .3):?xc=(xman .|
00000370  34 29 3a 3f 79 63 3d 31  30 3a 3f 79 6f 66 66 3d  |4):?yc=10:?yoff=|
00000380  30 3a 3f 63 68 61 72 3d  28 78 6d 61 6e 20 83 33  |0:?char=(xman .3|
00000390  29 2a 34 3a d6 64 69 73  70 6c 61 79 3a 3f 79 63  |)*4:.display:?yc|
000003a0  3d 31 31 3a 3f 63 68 61  72 3d 3f 63 68 61 72 2b  |=11:?char=?char+|
000003b0  32 3a d6 64 69 73 70 6c  61 79 0d 00 fa 6f 20 3f  |2:.display...o ?|
000003c0  78 6f 66 66 3d 28 78 6d  61 6e 32 20 80 33 29 3a  |xoff=(xman2 .3):|
000003d0  3f 78 63 3d 28 78 6d 61  6e 32 20 81 34 29 3a 3f  |?xc=(xman2 .4):?|
000003e0  79 63 3d 31 30 3a 3f 79  6f 66 66 3d 30 3a 3f 63  |yc=10:?yoff=0:?c|
000003f0  68 61 72 3d 28 78 6d 61  6e 32 20 83 33 29 2a 34  |har=(xman2 .3)*4|
00000400  2b 31 3a d6 64 69 73 70  6c 61 79 3a 3f 79 63 3d  |+1:.display:?yc=|
00000410  31 31 3a 3f 63 68 61 72  3d 3f 63 68 61 72 2b 32  |11:?char=?char+2|
00000420  3a d6 64 69 73 70 6c 61  79 0d 01 04 28 20 f4 20  |:.display...( . |
00000430  4c 6f 6f 70 20 66 6f 72  20 6d 65 6e 20 6d 6f 76  |Loop for men mov|
00000440  69 6e 67 20 61 63 72 6f  73 73 20 73 63 72 65 65  |ing across scree|
00000450  6e 0d 01 0e 06 20 ed 0d  01 18 21 20 f4 20 44 6f  |n.... ....! . Do|
00000460  20 69 74 20 6f 76 65 72  20 61 6e 64 20 6f 76 65  | it over and ove|
00000470  72 20 61 67 61 69 6e 21  0d 01 22 08 20 fd 20 a3  |r again!..". . .|
00000480  0d 01 2c 06 20 e0 0d 01  36 06 20 3a 0d 01 40 0e  |..,. ...6. :..@.|
00000490  20 dd f2 61 73 73 63 68  61 72 0d 01 4a 2c 20 73  | ..asschar..J, s|
000004a0  74 61 72 74 3d 26 41 30  30 3a 62 69 74 6d 61 70  |tart=&A00:bitmap|
000004b0  3d 26 32 43 30 30 3a 66  69 6c 65 24 3d 22 57 61  |=&2C00:file$="Wa|
000004c0  6c 6b 53 70 72 22 0d 01  54 14 20 e3 70 61 73 73  |lkSpr"..T. .pass|
000004d0  3d 30 20 b8 20 32 20 88  20 32 0d 01 5e 16 20 50  |=0 . 2 . 2..^. P|
000004e0  25 3d 73 74 61 72 74 3a  5b 4f 50 54 70 61 73 73  |%=start:[OPTpass|
000004f0  0d 01 68 e4 20 2e 64 69  73 70 6c 61 79 20 4c 44  |..h. .display LD|
00000500  41 79 63 3a 80 23 31 3a  54 41 59 3a 4c 44 41 6c  |Ayc:.#1:TAY:LDAl|
00000510  6f 72 6f 77 2c 59 3a 53  54 41 26 37 30 3a 4c 44  |orow,Y:STA&70:LD|
00000520  41 79 63 3a 4c 53 52 20  41 3a 43 4c 43 3a 41 44  |Ayc:LSR A:CLC:AD|
00000530  43 79 63 3a 41 44 43 79  63 3a 41 44 43 23 26 33  |Cyc:ADCyc:ADC#&3|
00000540  30 3a 53 54 41 26 37 31  3a 4c 44 41 78 63 3a 41  |0:STA&71:LDAxc:A|
00000550  53 4c 20 41 3a 53 54 41  26 37 32 3a 4c 44 41 23  |SL A:STA&72:LDA#|
00000560  30 3a 52 4f 4c 20 41 3a  53 54 41 26 37 33 3a 41  |0:ROL A:STA&73:A|
00000570  53 4c 26 37 32 3a 52 4f  4c 26 37 33 3a 41 53 4c  |SL&72:ROL&73:ASL|
00000580  26 37 32 3a 52 4f 4c 26  37 33 3a 41 53 4c 26 37  |&72:ROL&73:ASL&7|
00000590  32 3a 52 4f 4c 26 37 33  3a 41 53 4c 26 37 32 3a  |2:ROL&73:ASL&72:|
000005a0  52 4f 4c 26 37 33 3a 4c  44 41 26 37 30 3a 43 4c  |ROL&73:LDA&70:CL|
000005b0  43 3a 41 44 43 26 37 32  3a 53 54 41 26 37 30 3a  |C:ADC&72:STA&70:|
000005c0  4c 44 41 26 37 31 3a 41  44 43 26 37 33 3a 53 54  |LDA&71:ADC&73:ST|
000005d0  41 26 37 31 0d 01 72 72  20 4c 44 41 26 37 30 3a  |A&71..rr LDA&70:|
000005e0  43 4c 43 3a 41 44 43 79  6f 66 66 3a 53 54 41 26  |CLC:ADCyoff:STA&|
000005f0  37 30 3a 4c 44 41 26 37  31 3a 41 44 43 23 30 3a  |70:LDA&71:ADC#0:|
00000600  53 54 41 26 37 31 3a 4c  44 41 78 6f 66 66 3a 41  |STA&71:LDAxoff:A|
00000610  53 4c 20 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |SL A:ASL A:ASL A|
00000620  3a 43 4c 43 3a 41 44 43  26 37 30 3a 53 54 41 26  |:CLC:ADC&70:STA&|
00000630  37 30 3a 4c 44 41 26 37  31 3a 41 44 43 23 30 3a  |70:LDA&71:ADC#0:|
00000640  53 54 41 26 37 31 0d 01  7c 9a 20 4c 44 41 63 68  |STA&71..|. LDAch|
00000650  61 72 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  |ar:ASL A:ASL A:A|
00000660  53 4c 20 41 3a 53 54 41  26 37 32 3a 4c 44 41 23  |SL A:STA&72:LDA#|
00000670  30 3a 52 4f 4c 20 41 3a  53 54 41 26 37 33 3a 41  |0:ROL A:STA&73:A|
00000680  53 4c 26 37 32 3a 52 4f  4c 26 37 33 3a 41 53 4c  |SL&72:ROL&73:ASL|
00000690  26 37 32 3a 52 4f 4c 26  37 33 3a 4c 44 41 26 37  |&72:ROL&73:LDA&7|
000006a0  32 3a 43 4c 43 3a 41 44  43 23 28 62 69 74 6d 61  |2:CLC:ADC#(bitma|
000006b0  70 20 83 20 32 35 36 29  3a 53 54 41 26 37 32 3a  |p . 256):STA&72:|
000006c0  4c 44 41 26 37 33 3a 41  44 43 23 28 62 69 74 6d  |LDA&73:ADC#(bitm|
000006d0  61 70 20 81 20 32 35 36  29 3a 53 54 41 26 37 33  |ap . 256):STA&73|
000006e0  0d 01 86 d8 20 4c 44 41  23 38 3a 50 48 41 3a 2e  |.... LDA#8:PHA:.|
000006f0  63 6f 6c 20 4c 44 58 23  33 3a 2e 72 6f 77 20 54  |col LDX#3:.row T|
00000700  58 41 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  |XA:ASL A:ASL A:A|
00000710  53 4c 20 41 3a 54 41 59  3a 4c 44 41 28 26 37 30  |SL A:TAY:LDA(&70|
00000720  29 2c 59 3a 2e 73 65 74  74 79 70 65 20 4c 44 41  |),Y:.settype LDA|
00000730  28 26 37 32 29 2c 59 3a  53 54 41 28 26 37 30 29  |(&72),Y:STA(&70)|
00000740  2c 59 3a 44 45 58 3a 42  50 4c 72 6f 77 3a 50 4c  |,Y:DEX:BPLrow:PL|
00000750  41 3a 54 41 58 3a 44 45  58 3a 43 50 58 23 30 3a  |A:TAX:DEX:CPX#0:|
00000760  42 45 51 66 69 6e 64 69  73 70 3a 54 58 41 3a 50  |BEQfindisp:TXA:P|
00000770  48 41 3a 49 4e 43 26 37  32 3a 4c 44 41 26 37 30  |HA:INC&72:LDA&70|
00000780  3a 43 4c 43 3a 41 44 43  23 31 3a 50 48 41 3a 53  |:CLC:ADC#1:PHA:S|
00000790  54 41 26 37 30 3a 4c 44  41 26 37 31 3a 41 44 43  |TA&70:LDA&71:ADC|
000007a0  23 30 3a 53 54 41 26 37  31 3a 50 4c 41 3a 80 23  |#0:STA&71:PLA:.#|
000007b0  37 3a 42 4e 45 63 6f 6c  0d 01 90 39 20 4c 44 41  |7:BNEcol...9 LDA|
000007c0  26 37 30 3a 43 4c 43 3a  41 44 43 23 26 37 38 3a  |&70:CLC:ADC#&78:|
000007d0  53 54 41 26 37 30 3a 4c  44 41 26 37 31 3a 41 44  |STA&70:LDA&71:AD|
000007e0  43 23 32 3a 53 54 41 26  37 31 3a 4a 4d 50 63 6f  |C#2:STA&71:JMPco|
000007f0  6c 0d 01 9a 11 20 2e 66  69 6e 64 69 73 70 20 52  |l.... .findisp R|
00000800  54 53 0d 01 a4 51 20 2e  6c 6f 72 6f 77 20 45 51  |TS...Q .lorow EQ|
00000810  55 42 30 3a 45 51 55 42  26 38 30 3a 2e 78 63 20  |UB0:EQUB&80:.xc |
00000820  45 51 55 42 30 3a 2e 79  63 20 45 51 55 42 30 3a  |EQUB0:.yc EQUB0:|
00000830  2e 78 6f 66 66 20 45 51  55 42 30 3a 2e 79 6f 66  |.xoff EQUB0:.yof|
00000840  66 20 45 51 55 42 30 3a  2e 63 68 61 72 20 45 51  |f EQUB0:.char EQ|
00000850  55 42 30 0d 01 ae 1f 20  5d 3a ed 3a ff 22 4c 4f  |UB0.... ]:.:."LO|
00000860  41 44 20 22 2b 66 69 6c  65 24 2b 22 20 32 43 30  |AD "+file$+" 2C0|
00000870  30 22 0d 01 b8 06 20 e1  0d 01 c2 06 20 3a 0d 01  |0".... ..... :..|
00000880  cc 15 20 dd f2 73 65 74  70 61 69 6e 74 28 74 79  |.. ..setpaint(ty|
00000890  70 65 29 0d 01 d6 1c 20  e7 20 74 79 70 65 3d 30  |pe).... . type=0|
000008a0  20 8c 20 3f 73 65 74 74  79 70 65 3d 26 42 31 0d  | . ?settype=&B1.|
000008b0  01 e0 1c 20 e7 20 74 79  70 65 3d 31 20 8c 20 3f  |... . type=1 . ?|
000008c0  73 65 74 74 79 70 65 3d  26 31 31 0d 01 ea 1c 20  |settype=&11.... |
000008d0  e7 20 74 79 70 65 3d 32  20 8c 20 3f 73 65 74 74  |. type=2 . ?sett|
000008e0  79 70 65 3d 26 33 31 0d  01 f4 1c 20 e7 20 74 79  |ype=&31.... . ty|
000008f0  70 65 3d 33 20 8c 20 3f  73 65 74 74 79 70 65 3d  |pe=3 . ?settype=|
00000900  26 35 31 0d 01 fe 06 20  e1 0d ff                 |&51.... ...|
0000090b