Home » Archimedes archive » Micro User » MU 1990-07.adf » !Arctist+/Files/Demo
!Arctist+/Files/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 » Archimedes archive » Micro User » MU 1990-07.adf |
| Filename: | !Arctist+/Files/Demo |
| Read OK: | ✔ |
| File size: | 0131 bytes |
| Load address: | FFFFFB42 |
| Exec address: | 5A841B2A |
File contents
10 REM >DEMO
20 MODE 15:OFF
30 VDU 24,640;512;644;520;
40 GCOL 0:CLG
50 REPEAT
60 READ A$
70 IF A$="X" THEN RESTORE:GOTO 60
80 OSCLI("SLOAD "+A$)
90 *SCHOOSE screendump
100 FOR X=1 TO 500 STEP RND(25)+1
110 VDU 24,500-X;500-X;780+X;524+X;
120 PLOT &ED,0,0
130 NEXT
140 VDU 24,0;0;1279;1023;:PLOT &ED,0,0
150 UNTIL FALSE
160 DATA "P=DEMO1","P=DEMO2","P=DEMO3","X"
� >DEMO
� 15:�
� 24,640;512;644;520;
(
� 0:�
2 �
< � A$
F � A$="X" � �:� �T|@
P �("SLOAD "+A$)
Z *SCHOOSE screendump
d � X=1 � 500 � �(25)+1
n" � 24,500-X;500-X;780+X;524+X;
x � &ED,0,0
� �
�" � 24,0;0;1279;1023;:� &ED,0,0
� � �
�( � "P=DEMO1","P=DEMO2","P=DEMO3","X"
� 00000000 0d 00 0a 0c 20 f4 20 3e 44 45 4d 4f 0d 00 14 0b |.... . >DEMO....|
00000010 20 eb 20 31 35 3a 87 0d 00 1e 1a 20 ef 20 32 34 | . 15:..... . 24|
00000020 2c 36 34 30 3b 35 31 32 3b 36 34 34 3b 35 32 30 |,640;512;644;520|
00000030 3b 0d 00 28 0a 20 e6 20 30 3a da 0d 00 32 06 20 |;..(. . 0:...2. |
00000040 f5 0d 00 3c 09 20 f3 20 41 24 0d 00 46 18 20 e7 |...<. . A$..F. .|
00000050 20 41 24 3d 22 58 22 20 8c 20 f7 3a e5 20 8d 54 | A$="X" . .:. .T|
00000060 7c 40 0d 00 50 13 20 ff 28 22 53 4c 4f 41 44 20 ||@..P. .("SLOAD |
00000070 22 2b 41 24 29 0d 00 5a 18 20 2a 53 43 48 4f 4f |"+A$)..Z. *SCHOO|
00000080 53 45 20 73 63 72 65 65 6e 64 75 6d 70 0d 00 64 |SE screendump..d|
00000090 1a 20 e3 20 58 3d 31 20 b8 20 35 30 30 20 88 20 |. . X=1 . 500 . |
000000a0 b3 28 32 35 29 2b 31 0d 00 6e 22 20 ef 20 32 34 |.(25)+1..n" . 24|
000000b0 2c 35 30 30 2d 58 3b 35 30 30 2d 58 3b 37 38 30 |,500-X;500-X;780|
000000c0 2b 58 3b 35 32 34 2b 58 3b 0d 00 78 0e 20 f0 20 |+X;524+X;..x. . |
000000d0 26 45 44 2c 30 2c 30 0d 00 82 06 20 ed 0d 00 8c |&ED,0,0.... ....|
000000e0 22 20 ef 20 32 34 2c 30 3b 30 3b 31 32 37 39 3b |" . 24,0;0;1279;|
000000f0 31 30 32 33 3b 3a f0 20 26 45 44 2c 30 2c 30 0d |1023;:. &ED,0,0.|
00000100 00 96 08 20 fd 20 a3 0d 00 a0 28 20 dc 20 22 50 |... . ....( . "P|
00000110 3d 44 45 4d 4f 31 22 2c 22 50 3d 44 45 4d 4f 32 |=DEMO1","P=DEMO2|
00000120 22 2c 22 50 3d 44 45 4d 4f 33 22 2c 22 58 22 0d |","P=DEMO3","X".|
00000130 ff |.|
00000131 
.