Music/!Player/Invest3

Home » Archimedes archive » Micro User » MU 1991-03.adf » PD-Stuff » Music/!Player/Invest3

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 » Micro User » MU 1991-03.adf » PD-Stuff
Filename:	Music/!Player/Invest3
Read OK:	✔
File size:	0729 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM > Invest3
   20REM (C) Acropolis Software
   30REM Written by Oddvar Kloster
   40REM Version 89.09.20
   50:
   60PROCASS
   70MODE13
   80OFF
   90
  100REMFOR A%=0 TO 255:A%?&10000=A%:NEXT
  110?&10000=&80
  120ADDRESS%=&10000
  130STP%=&100
  140
  150GCOL %110000 TINT 0
  160LINE 0,992,1279,992
  170LINE 0,476,1279,476
  180PROCPICT(ADDRESS%-1,STP%,&FF)
  190PROCSHOW(ADDRESS%,STP%,%00001100)
  200PRINTTAB(5,25);"SCROLL";TAB(25,25);"STEP"
  210PRINTTAB(0,18)"&";~ADDRESS%;" "
  220REPEAT
  230PROCSTEP
  240PROCSCROLL
  250UNTIL ND%
  260END
  270
  280
  290DEFPROCPICT(A%,B%,C%)
  300CALL START
  310ENDPROC
  320
  330DEFPROCSHOW(A%,B%,C%)
  340PRINTTAB(34,18);"&";~INT(A%+B%*1.25);" "
  350A%=0
  360REPEAT
  370   GCOL C%AND63 TINT C%
  380   MOVE A%,1024:DRAW BY 0,-28
  390   A%+=1024/B%*&100
  400UNTILA%>=1280
  410ENDPROC
  420
  430DEFPROCASS
  440DIM CODE% 200
  450FOR PASS=0TO2STEP2
  460P%=CODE%
  470[OPT PASS
  480.ADR EQUD&1FD8000+320*7+320*128
  490
  500.START
  510MOV R5,#320
  520LDR R4,ADR
  530;MOV R2,#255
  540MOV R7,R1
  550.LOOP
  560 LDRB R3,[R0,R7,LSR#8]
  570 ADD R7,R7,R1
  580 MOVR3,R3,LSR#1
  590 ADD R6,R3,R3,LSL#2
  600 STRB R2,[R4,-R6,LSL#6]
  610 ADD R4,R4,#1:SUBS R5,R5,#1
  620BNE LOOP
  630MOV PC,R14
  640]
  650NEXT
  660ENDPROC
  670
  680DEFPROCSCROLL
  690LOCAL X,Y,Z
  700COLOUR0TINT0
  710COLOUR128+63 TINT255
  720PRINTTAB(5,25);"SCROLL"
  730COLOUR63TINT255
  740COLOUR128TINT0
  750MOUSE TO 500,500
  760REPEAT
  770   WAIT
  780   MOUSE X,Y,Z
  790   MOUSE TO 500,500
  800   PROCPICT(ADDRESS%-1,STP%,0)
  810   X-=500
  820   IF Z AND 1 X=X*&10
  830   ADDRESS%+=X*STP%/&100
  840   PROCPICT(ADDRESS%-1,STP%,&FF)
  850   PRINTTAB(0,18)"&";~ADDRESS%;" "
  860   PRINTTAB(34,18);"&";~INT(ADDRESS%+STP%*1.25);" "
  870UNTIL Z AND 6
  880PRINTTAB(5,25);"SCROLL"
  890ND%=Z AND 2
  900ENDPROC
  910
  920DEFPROCSTEP
  930LOCAL X,Y,Z
  940COLOUR0TINT0
  950COLOUR128+63 TINT255
  960PRINTTAB(25,25);"STEP"
  970COLOUR63TINT255
  980COLOUR128TINT0
  990MOUSE TO 500,500
 1000REPEAT
 1010   MOUSE X,Y,Z
 1020   MOUSE TO 500,500
 1030   Y-=500
 1040   NSTP%=STP%+Y
 1050   IF NSTP%<&100 NSTP%=&100
 1060   WAIT
 1070   PROCPICT(ADDRESS%-1,STP%,0)
 1080   PROCPICT(ADDRESS%-1,NSTP%,&FF)
 1090   PROCSHOW(ADDRESS%,STP%,0)
 1100   PROCSHOW(ADDRESS%,NSTP%,%00001100)
 1110   STP%=NSTP%
 1120UNTIL (Z AND 4)=0
 1130PRINTTAB(25,25);"STEP"
 1140ENDPROC


� > Invest3
� (C) Acropolis Software
� Written by Oddvar Kloster
(� Version 89.09.20
2:
<�ASS
F�13
P�
Z
d&�FOR A%=0 TO 255:A%?&10000=A%:NEXT
n?&10000=&80
xADDRESS%=&10000
�
STP%=&100
�
�� %110000 Ȝ 0
�� 0,992,1279,992
�� 0,476,1279,476
��PICT(ADDRESS%-1,STP%,&FF)
�"�SHOW(ADDRESS%,STP%,%00001100)
�#�5,25);"SCROLL";�25,25);"STEP"
��0,18)"&";~ADDRESS%;" "
��
�	�STEP
��SCROLL
�	� ND%
�


"��PICT(A%,B%,C%)
,� START
6�
@
J��SHOW(A%,B%,C%)
T#�34,18);"&";~�(A%+B%*1.25);" "
^A%=0
h�
r   � C%�63 Ȝ C%
|   � A%,1024:� BY 0,-28
�   A%+=1024/B%*&100
�
�A%>=1280
��
�
�	��ASS
�� CODE% 200
�� PASS=0�2�2
�P%=CODE%
�
[OPT PASS
�#.ADR EQUD&1FD8000+320*7+320*128
�
�
.START
�MOV R5,#320
LDR R4,ADR
;MOV R2,#255

MOV R7,R1
&	.LOOP
0 LDRB R3,[R0,R7,LSR#8]
: ADD R7,R7,R1
D MOVR3,R3,LSR#1
N ADD R6,R3,R3,LSL#2
X STRB R2,[R4,-R6,LSL#6]
b ADD R4,R4,#1:SUBS R5,R5,#1
lBNE LOOP
vMOV PC,R14
�]
��
��
�
���SCROLL
�� X,Y,Z
�	�0Ȝ0
��128+63 Ȝ255
��5,25);"SCROLL"
��63Ȝ255
��128Ȝ0
�ȗ � 500,500
��
	   Ȗ
   ȗ X,Y,Z
   ȗ � 500,500
    �PICT(ADDRESS%-1,STP%,0)
*
   X-=500
4   � Z � 1 X=X*&10
>   ADDRESS%+=X*STP%/&100
H!   �PICT(ADDRESS%-1,STP%,&FF)
R   �0,18)"&";~ADDRESS%;" "
\.   �34,18);"&";~�(ADDRESS%+STP%*1.25);" "
f� Z � 6
p�5,25);"SCROLL"
z
ND%=Z � 2
��
�
�
��STEP
�� X,Y,Z
�	�0Ȝ0
��128+63 Ȝ255
��25,25);"STEP"
��63Ȝ255
��128Ȝ0
�ȗ � 500,500
��
�   ȗ X,Y,Z
�   ȗ � 500,500

   Y-=500
   NSTP%=STP%+Y
   � NSTP%<&100 NSTP%=&100
$	   Ȗ
.   �PICT(ADDRESS%-1,STP%,0)
8"   �PICT(ADDRESS%-1,NSTP%,&FF)
B   �SHOW(ADDRESS%,STP%,0)
L&   �SHOW(ADDRESS%,NSTP%,%00001100)
V   STP%=NSTP%
`� (Z � 4)=0
j�25,25);"STEP"
t�
�

00000000  0d 00 0a 0f f4 20 3e 20  49 6e 76 65 73 74 33 0d  |..... > Invest3.|
00000010  00 14 1c f4 20 28 43 29  20 41 63 72 6f 70 6f 6c  |.... (C) Acropol|
00000020  69 73 20 53 6f 66 74 77  61 72 65 0d 00 1e 1f f4  |is Software.....|
00000030  20 57 72 69 74 74 65 6e  20 62 79 20 4f 64 64 76  | Written by Oddv|
00000040  61 72 20 4b 6c 6f 73 74  65 72 0d 00 28 16 f4 20  |ar Kloster..(.. |
00000050  56 65 72 73 69 6f 6e 20  38 39 2e 30 39 2e 32 30  |Version 89.09.20|
00000060  0d 00 32 05 3a 0d 00 3c  08 f2 41 53 53 0d 00 46  |..2.:..<..ASS..F|
00000070  07 eb 31 33 0d 00 50 05  87 0d 00 5a 04 0d 00 64  |..13..P....Z...d|
00000080  26 f4 46 4f 52 20 41 25  3d 30 20 54 4f 20 32 35  |&.FOR A%=0 TO 25|
00000090  35 3a 41 25 3f 26 31 30  30 30 30 3d 41 25 3a 4e  |5:A%?&10000=A%:N|
000000a0  45 58 54 0d 00 6e 0f 3f  26 31 30 30 30 30 3d 26  |EXT..n.?&10000=&|
000000b0  38 30 0d 00 78 13 41 44  44 52 45 53 53 25 3d 26  |80..x.ADDRESS%=&|
000000c0  31 30 30 30 30 0d 00 82  0d 53 54 50 25 3d 26 31  |10000....STP%=&1|
000000d0  30 30 0d 00 8c 04 0d 00  96 12 e6 20 25 31 31 30  |00......... %110|
000000e0  30 30 30 20 c8 9c 20 30  0d 00 a0 14 86 20 30 2c  |000 .. 0..... 0,|
000000f0  39 39 32 2c 31 32 37 39  2c 39 39 32 0d 00 aa 14  |992,1279,992....|
00000100  86 20 30 2c 34 37 36 2c  31 32 37 39 2c 34 37 36  |. 0,476,1279,476|
00000110  0d 00 b4 1e f2 50 49 43  54 28 41 44 44 52 45 53  |.....PICT(ADDRES|
00000120  53 25 2d 31 2c 53 54 50  25 2c 26 46 46 29 0d 00  |S%-1,STP%,&FF)..|
00000130  be 22 f2 53 48 4f 57 28  41 44 44 52 45 53 53 25  |.".SHOW(ADDRESS%|
00000140  2c 53 54 50 25 2c 25 30  30 30 30 31 31 30 30 29  |,STP%,%00001100)|
00000150  0d 00 c8 23 f1 8a 35 2c  32 35 29 3b 22 53 43 52  |...#..5,25);"SCR|
00000160  4f 4c 4c 22 3b 8a 32 35  2c 32 35 29 3b 22 53 54  |OLL";.25,25);"ST|
00000170  45 50 22 0d 00 d2 1c f1  8a 30 2c 31 38 29 22 26  |EP"......0,18)"&|
00000180  22 3b 7e 41 44 44 52 45  53 53 25 3b 22 20 22 0d  |";~ADDRESS%;" ".|
00000190  00 dc 05 f5 0d 00 e6 09  f2 53 54 45 50 0d 00 f0  |.........STEP...|
000001a0  0b f2 53 43 52 4f 4c 4c  0d 00 fa 09 fd 20 4e 44  |..SCROLL..... ND|
000001b0  25 0d 01 04 05 e0 0d 01  0e 04 0d 01 18 04 0d 01  |%...............|
000001c0  22 14 dd f2 50 49 43 54  28 41 25 2c 42 25 2c 43  |"...PICT(A%,B%,C|
000001d0  25 29 0d 01 2c 0b d6 20  53 54 41 52 54 0d 01 36  |%)..,.. START..6|
000001e0  05 e1 0d 01 40 04 0d 01  4a 14 dd f2 53 48 4f 57  |....@...J...SHOW|
000001f0  28 41 25 2c 42 25 2c 43  25 29 0d 01 54 23 f1 8a  |(A%,B%,C%)..T#..|
00000200  33 34 2c 31 38 29 3b 22  26 22 3b 7e a8 28 41 25  |34,18);"&";~.(A%|
00000210  2b 42 25 2a 31 2e 32 35  29 3b 22 20 22 0d 01 5e  |+B%*1.25);" "..^|
00000220  08 41 25 3d 30 0d 01 68  05 f5 0d 01 72 14 20 20  |.A%=0..h....r.  |
00000230  20 e6 20 43 25 80 36 33  20 c8 9c 20 43 25 0d 01  | . C%.63 .. C%..|
00000240  7c 1b 20 20 20 ec 20 41  25 2c 31 30 32 34 3a df  ||.   . A%,1024:.|
00000250  20 42 59 20 30 2c 2d 32  38 0d 01 86 17 20 20 20  | BY 0,-28....   |
00000260  41 25 2b 3d 31 30 32 34  2f 42 25 2a 26 31 30 30  |A%+=1024/B%*&100|
00000270  0d 01 90 0d fd 41 25 3e  3d 31 32 38 30 0d 01 9a  |.....A%>=1280...|
00000280  05 e1 0d 01 a4 04 0d 01  ae 09 dd f2 41 53 53 0d  |............ASS.|
00000290  01 b8 0f de 20 43 4f 44  45 25 20 32 30 30 0d 01  |.... CODE% 200..|
000002a0  c2 10 e3 20 50 41 53 53  3d 30 b8 32 88 32 0d 01  |... PASS=0.2.2..|
000002b0  cc 0c 50 25 3d 43 4f 44  45 25 0d 01 d6 0d 5b 4f  |..P%=CODE%....[O|
000002c0  50 54 20 50 41 53 53 0d  01 e0 23 2e 41 44 52 20  |PT PASS...#.ADR |
000002d0  45 51 55 44 26 31 46 44  38 30 30 30 2b 33 32 30  |EQUD&1FD8000+320|
000002e0  2a 37 2b 33 32 30 2a 31  32 38 0d 01 ea 04 0d 01  |*7+320*128......|
000002f0  f4 0a 2e 53 54 41 52 54  0d 01 fe 0f 4d 4f 56 20  |...START....MOV |
00000300  52 35 2c 23 33 32 30 0d  02 08 0e 4c 44 52 20 52  |R5,#320....LDR R|
00000310  34 2c 41 44 52 0d 02 12  10 3b 4d 4f 56 20 52 32  |4,ADR....;MOV R2|
00000320  2c 23 32 35 35 0d 02 1c  0d 4d 4f 56 20 52 37 2c  |,#255....MOV R7,|
00000330  52 31 0d 02 26 09 2e 4c  4f 4f 50 0d 02 30 1a 20  |R1..&..LOOP..0. |
00000340  4c 44 52 42 20 52 33 2c  5b 52 30 2c 52 37 2c 4c  |LDRB R3,[R0,R7,L|
00000350  53 52 23 38 5d 0d 02 3a  11 20 41 44 44 20 52 37  |SR#8]..:. ADD R7|
00000360  2c 52 37 2c 52 31 0d 02  44 13 20 4d 4f 56 52 33  |,R7,R1..D. MOVR3|
00000370  2c 52 33 2c 4c 53 52 23  31 0d 02 4e 17 20 41 44  |,R3,LSR#1..N. AD|
00000380  44 20 52 36 2c 52 33 2c  52 33 2c 4c 53 4c 23 32  |D R6,R3,R3,LSL#2|
00000390  0d 02 58 1b 20 53 54 52  42 20 52 32 2c 5b 52 34  |..X. STRB R2,[R4|
000003a0  2c 2d 52 36 2c 4c 53 4c  23 36 5d 0d 02 62 1f 20  |,-R6,LSL#6]..b. |
000003b0  41 44 44 20 52 34 2c 52  34 2c 23 31 3a 53 55 42  |ADD R4,R4,#1:SUB|
000003c0  53 20 52 35 2c 52 35 2c  23 31 0d 02 6c 0c 42 4e  |S R5,R5,#1..l.BN|
000003d0  45 20 4c 4f 4f 50 0d 02  76 0e 4d 4f 56 20 50 43  |E LOOP..v.MOV PC|
000003e0  2c 52 31 34 0d 02 80 05  5d 0d 02 8a 05 ed 0d 02  |,R14....].......|
000003f0  94 05 e1 0d 02 9e 04 0d  02 a8 0c dd f2 53 43 52  |.............SCR|
00000400  4f 4c 4c 0d 02 b2 0b ea  20 58 2c 59 2c 5a 0d 02  |OLL..... X,Y,Z..|
00000410  bc 09 fb 30 c8 9c 30 0d  02 c6 11 fb 31 32 38 2b  |...0..0.....128+|
00000420  36 33 20 c8 9c 32 35 35  0d 02 d0 14 f1 8a 35 2c  |63 ..255......5,|
00000430  32 35 29 3b 22 53 43 52  4f 4c 4c 22 0d 02 da 0c  |25);"SCROLL"....|
00000440  fb 36 33 c8 9c 32 35 35  0d 02 e4 0b fb 31 32 38  |.63..255.....128|
00000450  c8 9c 30 0d 02 ee 10 c8  97 20 b8 20 35 30 30 2c  |..0...... . 500,|
00000460  35 30 30 0d 02 f8 05 f5  0d 03 02 09 20 20 20 c8  |500.........   .|
00000470  96 0d 03 0c 0f 20 20 20  c8 97 20 58 2c 59 2c 5a  |.....   .. X,Y,Z|
00000480  0d 03 16 13 20 20 20 c8  97 20 b8 20 35 30 30 2c  |....   .. . 500,|
00000490  35 30 30 0d 03 20 1f 20  20 20 f2 50 49 43 54 28  |500.. .   .PICT(|
000004a0  41 44 44 52 45 53 53 25  2d 31 2c 53 54 50 25 2c  |ADDRESS%-1,STP%,|
000004b0  30 29 0d 03 2a 0d 20 20  20 58 2d 3d 35 30 30 0d  |0)..*.   X-=500.|
000004c0  03 34 16 20 20 20 e7 20  5a 20 80 20 31 20 58 3d  |.4.   . Z . 1 X=|
000004d0  58 2a 26 31 30 0d 03 3e  1c 20 20 20 41 44 44 52  |X*&10..>.   ADDR|
000004e0  45 53 53 25 2b 3d 58 2a  53 54 50 25 2f 26 31 30  |ESS%+=X*STP%/&10|
000004f0  30 0d 03 48 21 20 20 20  f2 50 49 43 54 28 41 44  |0..H!   .PICT(AD|
00000500  44 52 45 53 53 25 2d 31  2c 53 54 50 25 2c 26 46  |DRESS%-1,STP%,&F|
00000510  46 29 0d 03 52 1f 20 20  20 f1 8a 30 2c 31 38 29  |F)..R.   ..0,18)|
00000520  22 26 22 3b 7e 41 44 44  52 45 53 53 25 3b 22 20  |"&";~ADDRESS%;" |
00000530  22 0d 03 5c 2e 20 20 20  f1 8a 33 34 2c 31 38 29  |"..\.   ..34,18)|
00000540  3b 22 26 22 3b 7e a8 28  41 44 44 52 45 53 53 25  |;"&";~.(ADDRESS%|
00000550  2b 53 54 50 25 2a 31 2e  32 35 29 3b 22 20 22 0d  |+STP%*1.25);" ".|
00000560  03 66 0b fd 20 5a 20 80  20 36 0d 03 70 14 f1 8a  |.f.. Z . 6..p...|
00000570  35 2c 32 35 29 3b 22 53  43 52 4f 4c 4c 22 0d 03  |5,25);"SCROLL"..|
00000580  7a 0d 4e 44 25 3d 5a 20  80 20 32 0d 03 84 05 e1  |z.ND%=Z . 2.....|
00000590  0d 03 8e 04 0d 03 98 0a  dd f2 53 54 45 50 0d 03  |..........STEP..|
000005a0  a2 0b ea 20 58 2c 59 2c  5a 0d 03 ac 09 fb 30 c8  |... X,Y,Z.....0.|
000005b0  9c 30 0d 03 b6 11 fb 31  32 38 2b 36 33 20 c8 9c  |.0.....128+63 ..|
000005c0  32 35 35 0d 03 c0 13 f1  8a 32 35 2c 32 35 29 3b  |255......25,25);|
000005d0  22 53 54 45 50 22 0d 03  ca 0c fb 36 33 c8 9c 32  |"STEP".....63..2|
000005e0  35 35 0d 03 d4 0b fb 31  32 38 c8 9c 30 0d 03 de  |55.....128..0...|
000005f0  10 c8 97 20 b8 20 35 30  30 2c 35 30 30 0d 03 e8  |... . 500,500...|
00000600  05 f5 0d 03 f2 0f 20 20  20 c8 97 20 58 2c 59 2c  |......   .. X,Y,|
00000610  5a 0d 03 fc 13 20 20 20  c8 97 20 b8 20 35 30 30  |Z....   .. . 500|
00000620  2c 35 30 30 0d 04 06 0d  20 20 20 59 2d 3d 35 30  |,500....   Y-=50|
00000630  30 0d 04 10 13 20 20 20  4e 53 54 50 25 3d 53 54  |0....   NSTP%=ST|
00000640  50 25 2b 59 0d 04 1a 1e  20 20 20 e7 20 4e 53 54  |P%+Y....   . NST|
00000650  50 25 3c 26 31 30 30 20  4e 53 54 50 25 3d 26 31  |P%<&100 NSTP%=&1|
00000660  30 30 0d 04 24 09 20 20  20 c8 96 0d 04 2e 1f 20  |00..$.   ...... |
00000670  20 20 f2 50 49 43 54 28  41 44 44 52 45 53 53 25  |  .PICT(ADDRESS%|
00000680  2d 31 2c 53 54 50 25 2c  30 29 0d 04 38 22 20 20  |-1,STP%,0)..8"  |
00000690  20 f2 50 49 43 54 28 41  44 44 52 45 53 53 25 2d  | .PICT(ADDRESS%-|
000006a0  31 2c 4e 53 54 50 25 2c  26 46 46 29 0d 04 42 1d  |1,NSTP%,&FF)..B.|
000006b0  20 20 20 f2 53 48 4f 57  28 41 44 44 52 45 53 53  |   .SHOW(ADDRESS|
000006c0  25 2c 53 54 50 25 2c 30  29 0d 04 4c 26 20 20 20  |%,STP%,0)..L&   |
000006d0  f2 53 48 4f 57 28 41 44  44 52 45 53 53 25 2c 4e  |.SHOW(ADDRESS%,N|
000006e0  53 54 50 25 2c 25 30 30  30 30 31 31 30 30 29 0d  |STP%,%00001100).|
000006f0  04 56 11 20 20 20 53 54  50 25 3d 4e 53 54 50 25  |.V.   STP%=NSTP%|
00000700  0d 04 60 0f fd 20 28 5a  20 80 20 34 29 3d 30 0d  |..`.. (Z . 4)=0.|
00000710  04 6a 13 f1 8a 32 35 2c  32 35 29 3b 22 53 54 45  |.j...25,25);"STE|
00000720  50 22 0d 04 74 05 e1 0d  ff                       |P"..t....|
00000729

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .