!AWAug91/Goodies/DeltaMusix/!DinoDemo/Demo2

Home » Archimedes archive » Archimedes World » AW-1991-08.adf » August91 » !AWAug91/Goodies/DeltaMusix/!DinoDemo/Demo2

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 » Archimedes World » AW-1991-08.adf » August91
Filename:	!AWAug91/Goodies/DeltaMusix/!DinoDemo/Demo2
Read OK:	✔
File size:	0846 bytes
Load address:	0000
Exec address:	0000

File contents

   10REM ><DeltaDemos$Dir>.Demo2
   20REM .-------------------------------------------------------------------.
   30REM |                                                                   |
   40REM |            DeltaMod Demonstration 2 by John Whigham               |
   50REM |                                                                   |
   60REM |     LEN 1991 Argus Specialist Publications - Archimedes World       |
   70REM |                                                                   |
   80REM `-------------------------------------------------------------------'
   90
  100
  110
  120MODE15
  130PRINT''"DeltaMod Demonstration 2"
  140PRINT  "------------------------"
  150PRINT'''"This demonstration shows how to get an animation moving on screen. It also showshow to use an animation with a SoundTracker linked to it (see lines 230,240) andshowing multiple copies of an image."
  160PRINT''"NOTE : You will need about 60K free in the RMA to load the music."
  170PRINT'''"Press SPACE"
  180REPEAT UNTIL INKEY(-99)
  190
  200*RMEnsure DeltaMod 1.00 RMLoad <DeltaDemos$Dir>.DeltaMod
  210*RMEnsure DeltaMod 1.00 Error 0 DeltaMod cannot be found.
  220
  230*RMEnsure TrackerModule 2.01 RMLoad <DeltaDemos$Dir>.PM
  240*RMEnsure TrackerModule 2.01 Error 0 STracker module cannot be found.
  250
  260filename$="<DeltaDemos$Dir>.!Dinosaur"
  270
  280SYS "Delta_Size",filename$ TO deltasize%
  290DIM deltadata% deltasize%
  300SYS "Delta_Load",filename$,deltadata% TO spritesize%
  310DIM sprite% spritesize%
  320SYS "Delta_Init",sprite%
  330*PLAYMOD <DeltaDemos$Dir>.!Dinosaur.BugSquash
  340SYS "Delta_Frame"
  350
  360REPEAT:MOUSE H%,H%,B%:UNTIL B%=0
  370
  380MODE 12
  390OFF
  400
  410PRINTTAB(27,6);"The march of the Dinosaurs"
  420
  430S%=0
  440A%=-900
  450B%=-1600
  460C%=-2300
  470FORL%=0 TO 15:COLOUR 15-L%,L%*12,L%*16,L%*6:NEXT
  480COLOUR 6,0,0,0:COLOUR 0,0,0,0
  490REPEAT
  500TIME=0
  510S%=S% EOR 1
  520SYS6,112,S%+1
  530CLS
  540PRINTTAB(27,6);"The march of the Dinosaurs"
  550SYS "Delta_Frame"
  560SYS&2E,290,sprite%,"delta",A%,100
  570SYS&2E,290,sprite%,"delta",B%,100
  580SYS&2E,290,sprite%,"delta",C%,100
  590WAIT
  600SYS6,113,S%+1
  610A%+=16
  620IF A%>1279 THEN A%=-900
  630B%+=16
  640IF B%>1279 THEN B%=-900
  650C%+=16
  660IF C%>1279 THEN C%=-900
  670REPEAT UNTIL TIME>4
  680MOUSE H%,H%,D%
  690UNTIL D%<>0
  700SYS6,112
  710SYS6,113
  720*PLAYSTOP


� ><DeltaDemos$Dir>.Demo2
K� .-------------------------------------------------------------------.
K� |                                                                   |
(K� |            DeltaMod Demonstration 2 by John Whigham               |
2K� |                                                                   |
<K� |     � 1991 Argus Specialist Publications - Archimedes World       |
FK� |                                                                   |
PK� `-------------------------------------------------------------------'
Z
d
n
x�15
�!�''"DeltaMod Demonstration 2"
�!�  "------------------------"
���'''"This demonstration shows how to get an animation moving on screen. It also showshow to use an animation with a SoundTracker linked to it (see lines 230,240) andshowing multiple copies of an image."
�J�''"NOTE : You will need about 60K free in the RMA to load the music."
��'''"Press SPACE"
�� � �(-99)
�
�<*RMEnsure DeltaMod 1.00 RMLoad <DeltaDemos$Dir>.DeltaMod
�=*RMEnsure DeltaMod 1.00 Error 0 DeltaMod cannot be found.
�
�;*RMEnsure TrackerModule 2.01 RMLoad <DeltaDemos$Dir>.PM
�I*RMEnsure TrackerModule 2.01 Error 0 STracker module cannot be found.
�
*filename$="<DeltaDemos$Dir>.!Dinosaur"

*ș "Delta_Size",filename$ � deltasize%
"� deltadata% deltasize%
,6ș "Delta_Load",filename$,deltadata% � spritesize%
6� sprite% spritesize%
@ș "Delta_Init",sprite%
J1*PLAYMOD <DeltaDemos$Dir>.!Dinosaur.BugSquash
Tș "Delta_Frame"
^
h�:ȗ H%,H%,B%:� B%=0
r
|� 12
��
�
�(�27,6);"The march of the Dinosaurs"
�
�S%=0
�A%=-900
�B%=-1600
�C%=-2300
�)�L%=0 � 15:� 15-L%,L%*12,L%*16,L%*6:�
�� 6,0,0,0:� 0,0,0,0
��
��=0
�
S%=S% � 1
ș6,112,S%+1
�
(�27,6);"The march of the Dinosaurs"
&ș "Delta_Frame"
0$ș&2E,290,sprite%,"delta",A%,100
:$ș&2E,290,sprite%,"delta",B%,100
D$ș&2E,290,sprite%,"delta",C%,100
NȖ
Xș6,113,S%+1
b
A%+=16
l� A%>1279 � A%=-900
v
B%+=16
�� B%>1279 � B%=-900
�
C%+=16
�� C%>1279 � C%=-900
�� � �>4
�ȗ H%,H%,D%
�� D%<>0
�ș6,112
�ș6,113
�
*PLAYSTOP
�

00000000  0d 00 0a 1d f4 20 3e 3c  44 65 6c 74 61 44 65 6d  |..... ><DeltaDem|
00000010  6f 73 24 44 69 72 3e 2e  44 65 6d 6f 32 0d 00 14  |os$Dir>.Demo2...|
00000020  4b f4 20 2e 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |K. .------------|
00000030  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000060  2d 2d 2d 2d 2d 2d 2d 2e  0d 00 1e 4b f4 20 7c 20  |-------....K. | |
00000070  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000000b0  20 20 7c 0d 00 28 4b f4  20 7c 20 20 20 20 20 20  |  |..(K. |      |
000000c0  20 20 20 20 20 20 44 65  6c 74 61 4d 6f 64 20 44  |      DeltaMod D|
000000d0  65 6d 6f 6e 73 74 72 61  74 69 6f 6e 20 32 20 62  |emonstration 2 b|
000000e0  79 20 4a 6f 68 6e 20 57  68 69 67 68 61 6d 20 20  |y John Whigham  |
000000f0  20 20 20 20 20 20 20 20  20 20 20 20 20 7c 0d 00  |             |..|
00000100  32 4b f4 20 7c 20 20 20  20 20 20 20 20 20 20 20  |2K. |           |
00000110  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000140  20 20 20 20 20 20 20 20  7c 0d 00 3c 4b f4 20 7c  |        |..<K. ||
00000150  20 20 20 20 20 a9 20 31  39 39 31 20 41 72 67 75  |     . 1991 Argu|
00000160  73 20 53 70 65 63 69 61  6c 69 73 74 20 50 75 62  |s Specialist Pub|
00000170  6c 69 63 61 74 69 6f 6e  73 20 2d 20 41 72 63 68  |lications - Arch|
00000180  69 6d 65 64 65 73 20 57  6f 72 6c 64 20 20 20 20  |imedes World    |
00000190  20 20 20 7c 0d 00 46 4b  f4 20 7c 20 20 20 20 20  |   |..FK. |     |
000001a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000001d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 7c 0d  |              |.|
000001e0  00 50 4b f4 20 60 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.PK. `----------|
000001f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000220  2d 2d 2d 2d 2d 2d 2d 2d  2d 27 0d 00 5a 04 0d 00  |---------'..Z...|
00000230  64 04 0d 00 6e 04 0d 00  78 07 eb 31 35 0d 00 82  |d...n...x..15...|
00000240  21 f1 27 27 22 44 65 6c  74 61 4d 6f 64 20 44 65  |!.''"DeltaMod De|
00000250  6d 6f 6e 73 74 72 61 74  69 6f 6e 20 32 22 0d 00  |monstration 2"..|
00000260  8c 21 f1 20 20 22 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |.!.  "----------|
00000270  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 22 0d  |--------------".|
00000280  00 96 ce f1 27 27 27 22  54 68 69 73 20 64 65 6d  |....'''"This dem|
00000290  6f 6e 73 74 72 61 74 69  6f 6e 20 73 68 6f 77 73  |onstration shows|
000002a0  20 68 6f 77 20 74 6f 20  67 65 74 20 61 6e 20 61  | how to get an a|
000002b0  6e 69 6d 61 74 69 6f 6e  20 6d 6f 76 69 6e 67 20  |nimation moving |
000002c0  6f 6e 20 73 63 72 65 65  6e 2e 20 49 74 20 61 6c  |on screen. It al|
000002d0  73 6f 20 73 68 6f 77 73  68 6f 77 20 74 6f 20 75  |so showshow to u|
000002e0  73 65 20 61 6e 20 61 6e  69 6d 61 74 69 6f 6e 20  |se an animation |
000002f0  77 69 74 68 20 61 20 53  6f 75 6e 64 54 72 61 63  |with a SoundTrac|
00000300  6b 65 72 20 6c 69 6e 6b  65 64 20 74 6f 20 69 74  |ker linked to it|
00000310  20 28 73 65 65 20 6c 69  6e 65 73 20 32 33 30 2c  | (see lines 230,|
00000320  32 34 30 29 20 61 6e 64  73 68 6f 77 69 6e 67 20  |240) andshowing |
00000330  6d 75 6c 74 69 70 6c 65  20 63 6f 70 69 65 73 20  |multiple copies |
00000340  6f 66 20 61 6e 20 69 6d  61 67 65 2e 22 0d 00 a0  |of an image."...|
00000350  4a f1 27 27 22 4e 4f 54  45 20 3a 20 59 6f 75 20  |J.''"NOTE : You |
00000360  77 69 6c 6c 20 6e 65 65  64 20 61 62 6f 75 74 20  |will need about |
00000370  36 30 4b 20 66 72 65 65  20 69 6e 20 74 68 65 20  |60K free in the |
00000380  52 4d 41 20 74 6f 20 6c  6f 61 64 20 74 68 65 20  |RMA to load the |
00000390  6d 75 73 69 63 2e 22 0d  00 aa 15 f1 27 27 27 22  |music.".....'''"|
000003a0  50 72 65 73 73 20 53 50  41 43 45 22 0d 00 b4 0e  |Press SPACE"....|
000003b0  f5 20 fd 20 a6 28 2d 39  39 29 0d 00 be 04 0d 00  |. . .(-99)......|
000003c0  c8 3c 2a 52 4d 45 6e 73  75 72 65 20 44 65 6c 74  |.<*RMEnsure Delt|
000003d0  61 4d 6f 64 20 31 2e 30  30 20 52 4d 4c 6f 61 64  |aMod 1.00 RMLoad|
000003e0  20 3c 44 65 6c 74 61 44  65 6d 6f 73 24 44 69 72  | <DeltaDemos$Dir|
000003f0  3e 2e 44 65 6c 74 61 4d  6f 64 0d 00 d2 3d 2a 52  |>.DeltaMod...=*R|
00000400  4d 45 6e 73 75 72 65 20  44 65 6c 74 61 4d 6f 64  |MEnsure DeltaMod|
00000410  20 31 2e 30 30 20 45 72  72 6f 72 20 30 20 44 65  | 1.00 Error 0 De|
00000420  6c 74 61 4d 6f 64 20 63  61 6e 6e 6f 74 20 62 65  |ltaMod cannot be|
00000430  20 66 6f 75 6e 64 2e 0d  00 dc 04 0d 00 e6 3b 2a  | found........;*|
00000440  52 4d 45 6e 73 75 72 65  20 54 72 61 63 6b 65 72  |RMEnsure Tracker|
00000450  4d 6f 64 75 6c 65 20 32  2e 30 31 20 52 4d 4c 6f  |Module 2.01 RMLo|
00000460  61 64 20 3c 44 65 6c 74  61 44 65 6d 6f 73 24 44  |ad <DeltaDemos$D|
00000470  69 72 3e 2e 50 4d 0d 00  f0 49 2a 52 4d 45 6e 73  |ir>.PM...I*RMEns|
00000480  75 72 65 20 54 72 61 63  6b 65 72 4d 6f 64 75 6c  |ure TrackerModul|
00000490  65 20 32 2e 30 31 20 45  72 72 6f 72 20 30 20 53  |e 2.01 Error 0 S|
000004a0  54 72 61 63 6b 65 72 20  6d 6f 64 75 6c 65 20 63  |Tracker module c|
000004b0  61 6e 6e 6f 74 20 62 65  20 66 6f 75 6e 64 2e 0d  |annot be found..|
000004c0  00 fa 04 0d 01 04 2a 66  69 6c 65 6e 61 6d 65 24  |......*filename$|
000004d0  3d 22 3c 44 65 6c 74 61  44 65 6d 6f 73 24 44 69  |="<DeltaDemos$Di|
000004e0  72 3e 2e 21 44 69 6e 6f  73 61 75 72 22 0d 01 0e  |r>.!Dinosaur"...|
000004f0  04 0d 01 18 2a c8 99 20  22 44 65 6c 74 61 5f 53  |....*.. "Delta_S|
00000500  69 7a 65 22 2c 66 69 6c  65 6e 61 6d 65 24 20 b8  |ize",filename$ .|
00000510  20 64 65 6c 74 61 73 69  7a 65 25 0d 01 22 1b de  | deltasize%.."..|
00000520  20 64 65 6c 74 61 64 61  74 61 25 20 64 65 6c 74  | deltadata% delt|
00000530  61 73 69 7a 65 25 0d 01  2c 36 c8 99 20 22 44 65  |asize%..,6.. "De|
00000540  6c 74 61 5f 4c 6f 61 64  22 2c 66 69 6c 65 6e 61  |lta_Load",filena|
00000550  6d 65 24 2c 64 65 6c 74  61 64 61 74 61 25 20 b8  |me$,deltadata% .|
00000560  20 73 70 72 69 74 65 73  69 7a 65 25 0d 01 36 19  | spritesize%..6.|
00000570  de 20 73 70 72 69 74 65  25 20 73 70 72 69 74 65  |. sprite% sprite|
00000580  73 69 7a 65 25 0d 01 40  1b c8 99 20 22 44 65 6c  |size%..@... "Del|
00000590  74 61 5f 49 6e 69 74 22  2c 73 70 72 69 74 65 25  |ta_Init",sprite%|
000005a0  0d 01 4a 31 2a 50 4c 41  59 4d 4f 44 20 3c 44 65  |..J1*PLAYMOD <De|
000005b0  6c 74 61 44 65 6d 6f 73  24 44 69 72 3e 2e 21 44  |ltaDemos$Dir>.!D|
000005c0  69 6e 6f 73 61 75 72 2e  42 75 67 53 71 75 61 73  |inosaur.BugSquas|
000005d0  68 0d 01 54 14 c8 99 20  22 44 65 6c 74 61 5f 46  |h..T... "Delta_F|
000005e0  72 61 6d 65 22 0d 01 5e  04 0d 01 68 18 f5 3a c8  |rame"..^...h..:.|
000005f0  97 20 48 25 2c 48 25 2c  42 25 3a fd 20 42 25 3d  |. H%,H%,B%:. B%=|
00000600  30 0d 01 72 04 0d 01 7c  08 eb 20 31 32 0d 01 86  |0..r...|.. 12...|
00000610  05 87 0d 01 90 04 0d 01  9a 28 f1 8a 32 37 2c 36  |.........(..27,6|
00000620  29 3b 22 54 68 65 20 6d  61 72 63 68 20 6f 66 20  |);"The march of |
00000630  74 68 65 20 44 69 6e 6f  73 61 75 72 73 22 0d 01  |the Dinosaurs"..|
00000640  a4 04 0d 01 ae 08 53 25  3d 30 0d 01 b8 0b 41 25  |......S%=0....A%|
00000650  3d 2d 39 30 30 0d 01 c2  0c 42 25 3d 2d 31 36 30  |=-900....B%=-160|
00000660  30 0d 01 cc 0c 43 25 3d  2d 32 33 30 30 0d 01 d6  |0....C%=-2300...|
00000670  29 e3 4c 25 3d 30 20 b8  20 31 35 3a fb 20 31 35  |).L%=0 . 15:. 15|
00000680  2d 4c 25 2c 4c 25 2a 31  32 2c 4c 25 2a 31 36 2c  |-L%,L%*12,L%*16,|
00000690  4c 25 2a 36 3a ed 0d 01  e0 17 fb 20 36 2c 30 2c  |L%*6:...... 6,0,|
000006a0  30 2c 30 3a fb 20 30 2c  30 2c 30 2c 30 0d 01 ea  |0,0:. 0,0,0,0...|
000006b0  05 f5 0d 01 f4 07 d1 3d  30 0d 01 fe 0d 53 25 3d  |.......=0....S%=|
000006c0  53 25 20 82 20 31 0d 02  08 10 c8 99 36 2c 31 31  |S% . 1......6,11|
000006d0  32 2c 53 25 2b 31 0d 02  12 05 db 0d 02 1c 28 f1  |2,S%+1........(.|
000006e0  8a 32 37 2c 36 29 3b 22  54 68 65 20 6d 61 72 63  |.27,6);"The marc|
000006f0  68 20 6f 66 20 74 68 65  20 44 69 6e 6f 73 61 75  |h of the Dinosau|
00000700  72 73 22 0d 02 26 14 c8  99 20 22 44 65 6c 74 61  |rs"..&... "Delta|
00000710  5f 46 72 61 6d 65 22 0d  02 30 24 c8 99 26 32 45  |_Frame"..0$..&2E|
00000720  2c 32 39 30 2c 73 70 72  69 74 65 25 2c 22 64 65  |,290,sprite%,"de|
00000730  6c 74 61 22 2c 41 25 2c  31 30 30 0d 02 3a 24 c8  |lta",A%,100..:$.|
00000740  99 26 32 45 2c 32 39 30  2c 73 70 72 69 74 65 25  |.&2E,290,sprite%|
00000750  2c 22 64 65 6c 74 61 22  2c 42 25 2c 31 30 30 0d  |,"delta",B%,100.|
00000760  02 44 24 c8 99 26 32 45  2c 32 39 30 2c 73 70 72  |.D$..&2E,290,spr|
00000770  69 74 65 25 2c 22 64 65  6c 74 61 22 2c 43 25 2c  |ite%,"delta",C%,|
00000780  31 30 30 0d 02 4e 06 c8  96 0d 02 58 10 c8 99 36  |100..N.....X...6|
00000790  2c 31 31 33 2c 53 25 2b  31 0d 02 62 0a 41 25 2b  |,113,S%+1..b.A%+|
000007a0  3d 31 36 0d 02 6c 17 e7  20 41 25 3e 31 32 37 39  |=16..l.. A%>1279|
000007b0  20 8c 20 41 25 3d 2d 39  30 30 0d 02 76 0a 42 25  | . A%=-900..v.B%|
000007c0  2b 3d 31 36 0d 02 80 17  e7 20 42 25 3e 31 32 37  |+=16..... B%>127|
000007d0  39 20 8c 20 42 25 3d 2d  39 30 30 0d 02 8a 0a 43  |9 . B%=-900....C|
000007e0  25 2b 3d 31 36 0d 02 94  17 e7 20 43 25 3e 31 32  |%+=16..... C%>12|
000007f0  37 39 20 8c 20 43 25 3d  2d 39 30 30 0d 02 9e 0b  |79 . C%=-900....|
00000800  f5 20 fd 20 91 3e 34 0d  02 a8 0f c8 97 20 48 25  |. . .>4...... H%|
00000810  2c 48 25 2c 44 25 0d 02  b2 0b fd 20 44 25 3c 3e  |,H%,D%..... D%<>|
00000820  30 0d 02 bc 0b c8 99 36  2c 31 31 32 0d 02 c6 0b  |0......6,112....|
00000830  c8 99 36 2c 31 31 33 0d  02 d0 0d 2a 50 4c 41 59  |..6,113....*PLAY|
00000840  53 54 4f 50 0d ff                                 |STOP..|
00000846

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