Duplicates

There are 3 duplicate copies of this file in the archive:

• AEW website » database » database_5_25_discs_Electron-User-7-05_D-E705.ssd » 1.10LINER
• AEW website » database » database_tapes_Electron-User-7-05_EU7-5_E.uef » 1.10LINER
• Personal collection » Acorn tapes » Electron_User » Electron_User_tape08a_acorn_eu_1990_february.wav » 1.10LINER
• Personal collection » Acorn tapes » Electron_User » Electron_User_tape08b_acorn_palace_of_magic.wav » 1.10LINER

File contents

• BASIC
• Preview
• Hex Dump
• MODE 0 render
• MODE 1 render
• MODE 2 render
• MODE 4 render
• MODE 5 render

   10MODE4:DIM C% 100:ptr%=&70:FOR I%=0 TO 2 STEP2:P%=C%:[OPTI% 
   20LDA #&58:STA ptr%+1:LDY #0:STY ptr%:.loop LDA (ptr%),Y:LSR A:BCS pass:.go STA (ptr%),Y:INC ptr%:BNE loop:INC ptr%+1:LDA #&80:CMP ptr%+1:BNE loop:RTS
   30.pass EOR #&80:CLC:JMP go:]:NEXT 
   40VDU23,1,0;0;0;0;
   50PRINT''SPC(10)"*A WATERY PROGRAM*"
   60PRINT''SPC(10)" By Mark Davidson"
   70PRINT'''SPC(10)"Using bit shifting"
   80PRINT'''SPC(10)"##################"
   90FOR I%=0 TO 40:VDU31,RND(39),RND(8)+21,42:NEXT   
  100REPEAT:CALL C%:UNTIL0 

4�4:� C% 100:ptr%=&70:� I%=0 � 2 �2:P%=C%:[OPTI% 
�LDA #&58:STA ptr%+1:LDY #0:STY ptr%:.loop LDA (ptr%),Y:LSR A:BCS pass:.go STA (ptr%),Y:INC ptr%:BNE loop:INC ptr%+1:LDA #&80:CMP ptr%+1:BNE loop:RTS
 .pass � #&80:CLC:JMP go:]:� 
(�23,1,0;0;0;0;
2 �''�(10)"*A WATERY PROGRAM*"
<�''�(10)" By Mark Davidson"
F!�'''�(10)"Using bit shifting"
P!�'''�(10)"##################"
Z)� I%=0 � 40:�31,�(39),�(8)+21,42:�   
d�:� C%:�0 
�

00000000  0d 00 0a 34 eb 34 3a de  20 43 25 20 31 30 30 3a  |...4.4:. C% 100:|
00000010  70 74 72 25 3d 26 37 30  3a e3 20 49 25 3d 30 20  |ptr%=&70:. I%=0 |
00000020  b8 20 32 20 88 32 3a 50  25 3d 43 25 3a 5b 4f 50  |. 2 .2:P%=C%:[OP|
00000030  54 49 25 20 0d 00 14 98  4c 44 41 20 23 26 35 38  |TI% ....LDA #&58|
00000040  3a 53 54 41 20 70 74 72  25 2b 31 3a 4c 44 59 20  |:STA ptr%+1:LDY |
00000050  23 30 3a 53 54 59 20 70  74 72 25 3a 2e 6c 6f 6f  |#0:STY ptr%:.loo|
00000060  70 20 4c 44 41 20 28 70  74 72 25 29 2c 59 3a 4c  |p LDA (ptr%),Y:L|
00000070  53 52 20 41 3a 42 43 53  20 70 61 73 73 3a 2e 67  |SR A:BCS pass:.g|
00000080  6f 20 53 54 41 20 28 70  74 72 25 29 2c 59 3a 49  |o STA (ptr%),Y:I|
00000090  4e 43 20 70 74 72 25 3a  42 4e 45 20 6c 6f 6f 70  |NC ptr%:BNE loop|
000000a0  3a 49 4e 43 20 70 74 72  25 2b 31 3a 4c 44 41 20  |:INC ptr%+1:LDA |
000000b0  23 26 38 30 3a 43 4d 50  20 70 74 72 25 2b 31 3a  |#&80:CMP ptr%+1:|
000000c0  42 4e 45 20 6c 6f 6f 70  3a 52 54 53 0d 00 1e 20  |BNE loop:RTS... |
000000d0  2e 70 61 73 73 20 82 20  23 26 38 30 3a 43 4c 43  |.pass . #&80:CLC|
000000e0  3a 4a 4d 50 20 67 6f 3a  5d 3a ed 20 0d 00 28 12  |:JMP go:]:. ..(.|
000000f0  ef 32 33 2c 31 2c 30 3b  30 3b 30 3b 30 3b 0d 00  |.23,1,0;0;0;0;..|
00000100  32 20 f1 27 27 89 28 31  30 29 22 2a 41 20 57 41  |2 .''.(10)"*A WA|
00000110  54 45 52 59 20 50 52 4f  47 52 41 4d 2a 22 0d 00  |TERY PROGRAM*"..|
00000120  3c 1f f1 27 27 89 28 31  30 29 22 20 42 79 20 4d  |<..''.(10)" By M|
00000130  61 72 6b 20 44 61 76 69  64 73 6f 6e 22 0d 00 46  |ark Davidson"..F|
00000140  21 f1 27 27 27 89 28 31  30 29 22 55 73 69 6e 67  |!.'''.(10)"Using|
00000150  20 62 69 74 20 73 68 69  66 74 69 6e 67 22 0d 00  | bit shifting"..|
00000160  50 21 f1 27 27 27 89 28  31 30 29 22 23 23 23 23  |P!.'''.(10)"####|
00000170  23 23 23 23 23 23 23 23  23 23 23 23 23 23 22 0d  |##############".|
00000180  00 5a 29 e3 20 49 25 3d  30 20 b8 20 34 30 3a ef  |.Z). I%=0 . 40:.|
00000190  33 31 2c b3 28 33 39 29  2c b3 28 38 29 2b 32 31  |31,.(39),.(8)+21|
000001a0  2c 34 32 3a ed 20 20 20  0d 00 64 0e f5 3a d6 20  |,42:.   ..d..:. |
000001b0  43 25 3a fd 30 20 0d ff                           |C%:.0 ..|
000001b8

1.10LINER.m0

1.10LINER.m1

1.10LINER.m2

1.10LINER.m4

1.10LINER.m5