Home » Personal collection » Acorn DFS disks » dfs_box01_disk04b_dumpmaster.scp » DEMO

DEMO

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 » Personal collection » Acorn DFS disks » dfs_box01_disk04b_dumpmaster.scp
Filename: DEMO
Read OK:
File size: 0363 bytes
Load address: FF1900
Exec address: FF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10 REM *** DUMPMASTER ***
   20 REM INTRODUCTION SCREEN
   40 MODE 7
   50 program_name$="D U M P M A S T E R"
   55PRINT
   60 PRINT"��   �����������������������������"
   70 PRINT"��   �5                        j��"
   80 PRINT"��   �5  ����4j���� ����5j���} j��"
   90 PRINT"��   �5    b�5              {� j��"
  100 PRINT"��   ��������1j���� ����5j���w j��"
  110 PRINT"��         b�5j�    �5      {� j��"
  120 PRINT"��       ����%j���� ����5j���? j��"
  130 PRINT"��                             j��"
  140 PRINT"��           j�  j�  x����     j��"
  150 PRINT"��           j�  j� j�'        j��"
  160 PRINT"��           j�  j� j�  |||||||~��"
  170 PRINT"��           j�0 j� j�t {�```````�"
  180PRINT"��           *�����  +���'�"
  190PROCcentre(program_name$,15,134)
  210VDU28,10,23,28,20:A=INKEY(300)
  220PAGE=&1900:CHAIN"DEMO1"
  230:
  240DEF PROCcentre(program_name$,line,col)
  250L=LEN(program_name$)
  260X=(35-L) DIV 2
  270FORI%=0TO1
  280PRINTTAB(X,line+I%);CHR$(col)CHR$141;program_name$
  290NEXT
  300ENDPROC

 � *** DUMPMASTER ***
 � INTRODUCTION SCREEN
( � 7
2( program_name$="D U M P M A S T E R"
7�
<* �"��   �����������������������������"
F* �"��   �5                        j��"
P* �"��   �5  ����4j���� ����5j���} j��"
Z* �"��   �5    b�5              {� j��"
d* �"��   ��������1j���� ����5j���w j��"
n* �"��         b�5j�    �5      {� j��"
x* �"��       ����%j���� ����5j���? j��"
�* �"��                             j��"
�* �"��           j�  j�  x����     j��"
�* �"��           j�  j� j�'        j��"
�* �"��           j�  j� j�  |||||||~��"
�* �"��           j�0 j� j�t {�```````�"
�"�"��           *�����  +���'�"
�!�centre(program_name$,15,134)
��28,10,23,28,20:A=�(300)
��=&1900:�"DEMO1"
�:
�%� �centre(program_name$,line,col)
�L=�(program_name$)
X=(35-L) � 2
�I%=0�1
)�X,line+I%);�(col)�141;program_name$
"�
,�
�
00000000  0d 00 0a 19 20 f4 20 2a  2a 2a 20 44 55 4d 50 4d  |.... . *** DUMPM|
00000010  41 53 54 45 52 20 2a 2a  2a 0d 00 14 1a 20 f4 20  |ASTER ***.... . |
00000020  49 4e 54 52 4f 44 55 43  54 49 4f 4e 20 53 43 52  |INTRODUCTION SCR|
00000030  45 45 4e 0d 00 28 08 20  eb 20 37 0d 00 32 28 20  |EEN..(. . 7..2( |
00000040  70 72 6f 67 72 61 6d 5f  6e 61 6d 65 24 3d 22 44  |program_name$="D|
00000050  20 55 20 4d 20 50 20 4d  20 41 20 53 20 54 20 45  | U M P M A S T E|
00000060  20 52 22 0d 00 37 05 f1  0d 00 3c 2a 20 f1 22 92  | R"..7....<* .".|
00000070  9a 20 20 20 ff ff ff ff  ff ff ff ff ff ff ff ff  |.   ............|
00000080  ff ff ff ff ff ff ff ff  ff ff ff ff ff ff ff ff  |................|
00000090  87 22 0d 00 46 2a 20 f1  22 92 9a 20 20 20 ff 35  |."..F* ."..   .5|
000000a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000b0  20 20 20 20 20 20 20 20  6a ff 87 22 0d 00 50 2a  |        j.."..P*|
000000c0  20 f1 22 92 9a 20 20 20  ff 35 20 20 ff ff ff ff  | ."..   .5  ....|
000000d0  34 6a ff ff ff ff 20 ff  ff ff ff 35 6a ff ff ff  |4j.... ....5j...|
000000e0  7d 20 6a ff 87 22 0d 00  5a 2a 20 f1 22 92 9a 20  |} j.."..Z* .".. |
000000f0  20 20 ff 35 20 20 20 20  62 ff 35 20 20 20 20 20  |  .5    b.5     |
00000100  20 20 20 20 20 20 20 20  20 7b ff 20 6a ff 87 22  |         {. j.."|
00000110  0d 00 64 2a 20 f1 22 92  9a 20 20 20 ff ff ff ff  |..d* ."..   ....|
00000120  ff ff ff ff 31 6a ff ff  ff ff 20 ff ff ff ff 35  |....1j.... ....5|
00000130  6a ff ff ff 77 20 6a ff  87 22 0d 00 6e 2a 20 f1  |j...w j.."..n* .|
00000140  22 92 9a 20 20 20 20 20  20 20 20 20 62 ff 35 6a  |"..         b.5j|
00000150  ff 20 20 20 20 ff 35 20  20 20 20 20 20 7b ff 20  |.    .5      {. |
00000160  6a ff 87 22 0d 00 78 2a  20 f1 22 92 9a 20 20 20  |j.."..x* ."..   |
00000170  20 20 20 20 ff ff ff ff  25 6a ff ff ff ff 20 ff  |    ....%j.... .|
00000180  ff ff ff 35 6a ff ff ff  3f 20 6a ff 87 22 0d 00  |...5j...? j.."..|
00000190  82 2a 20 f1 22 92 9a 20  20 20 20 20 20 20 20 20  |.* ."..         |
000001a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001b0  20 20 20 20 6a ff 87 22  0d 00 8c 2a 20 f1 22 92  |    j.."...* .".|
000001c0  9a 20 20 20 20 20 20 20  20 20 20 20 6a ff 20 20  |.           j.  |
000001d0  6a ff 20 20 78 ff ff ff  ff 20 20 20 20 20 6a ff  |j.  x....     j.|
000001e0  87 22 0d 00 96 2a 20 f1  22 92 9a 20 20 20 20 20  |."...* ."..     |
000001f0  20 20 20 20 20 20 6a ff  20 20 6a ff 20 6a ff 27  |      j.  j. j.'|
00000200  20 20 20 20 20 20 20 20  6a ff 87 22 0d 00 a0 2a  |        j.."...*|
00000210  20 f1 22 92 9a 20 20 20  20 20 20 20 20 20 20 20  | ."..           |
00000220  6a ff 20 20 6a ff 20 6a  ff 20 20 7c 7c 7c 7c 7c  |j.  j. j.  ||||||
00000230  7c 7c 7e ff 87 22 0d 00  aa 2a 20 f1 22 92 9a 20  |||~.."...* .".. |
00000240  20 20 20 20 20 20 20 20  20 20 6a ff 30 20 6a ff  |          j.0 j.|
00000250  20 6a ff 74 20 7b ff 60  60 60 60 60 60 60 87 22  | j.t {.```````."|
00000260  0d 00 b4 22 f1 22 92 9a  20 20 20 20 20 20 20 20  |..."."..        |
00000270  20 20 20 2a ff ff ff ff  ff 20 20 2b ff ff ff 27  |   *.....  +...'|
00000280  87 22 0d 00 be 21 f2 63  65 6e 74 72 65 28 70 72  |."...!.centre(pr|
00000290  6f 67 72 61 6d 5f 6e 61  6d 65 24 2c 31 35 2c 31  |ogram_name$,15,1|
000002a0  33 34 29 0d 00 d2 1c ef  32 38 2c 31 30 2c 32 33  |34).....28,10,23|
000002b0  2c 32 38 2c 32 30 3a 41  3d a6 28 33 30 30 29 0d  |,28,20:A=.(300).|
000002c0  00 dc 14 d0 3d 26 31 39  30 30 3a d7 22 44 45 4d  |....=&1900:."DEM|
000002d0  4f 31 22 0d 00 e6 05 3a  0d 00 f0 25 dd 20 f2 63  |O1"....:...%. .c|
000002e0  65 6e 74 72 65 28 70 72  6f 67 72 61 6d 5f 6e 61  |entre(program_na|
000002f0  6d 65 24 2c 6c 69 6e 65  2c 63 6f 6c 29 0d 00 fa  |me$,line,col)...|
00000300  16 4c 3d a9 28 70 72 6f  67 72 61 6d 5f 6e 61 6d  |.L=.(program_nam|
00000310  65 24 29 0d 01 04 10 58  3d 28 33 35 2d 4c 29 20  |e$)....X=(35-L) |
00000320  81 20 32 0d 01 0e 0b e3  49 25 3d 30 b8 31 0d 01  |. 2.....I%=0.1..|
00000330  18 29 f1 8a 58 2c 6c 69  6e 65 2b 49 25 29 3b bd  |.)..X,line+I%);.|
00000340  28 63 6f 6c 29 bd 31 34  31 3b 70 72 6f 67 72 61  |(col).141;progra|
00000350  6d 5f 6e 61 6d 65 24 0d  01 22 05 ed 0d 01 2c 05  |m_name$.."....,.|
00000360  e1 0d ff                                          |...|
00000363
DEMO.m0
DEMO.m1
DEMO.m2
DEMO.m4
DEMO.m5