Home » Personal collection » Acorn hard disk » misc » misc3 » dcfprog3/Graphics/Pixel
dcfprog3/Graphics/Pixel
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 hard disk » misc » misc3 |
| Filename: | dcfprog3/Graphics/Pixel |
| Read OK: | ✔ |
| File size: | 00AF bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There are 6 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Programs_B.ADF » Graphics/Pixel
- Personal collection » Acorn ADFS disks » Electron » Programs.ADF » Graphics/Pixel
- Personal collection » Acorn ADFS disks » Electron » Programs_V2.ADF » Graphics/Pixel
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Programs.adf » Graphics/Pixel
- Personal collection » Acorn hard disk » misc » misc2 » dcfprogs/Graphics/Pixel
- Personal collection » Acorn hard disk » misc » misc3 » dcfprog3/Graphics/Pixel
- Personal collection » Acorn tapes » Own_Work » drawer_tl_tape08a_c15_acorn_pixel.wav » PIXEL
File contents
5 Z=0 10 MODE 2 12 VDU 28,0,0,0,0 20 A=RND(1250) 30 B=RND(1000) 40 GCOL 0,RND(6)+1 50 MOVE A,B 60 DRAW A,B 65 Z=Z+1 66 *FX 15,1 67 IF INKEY(-82)THEN 80 70 GOTO 20 80 *SAVE"PIC"3000 7FFF
Z=0 � 2 � 28,0,0,0,0 A=�(1250) B=�(1000) ( � 0,�(6)+1 2 � A,B < � A,B A Z=Z+1 B *FX 15,1 C � �(-82)� �DP@ F � �TT@ P *SAVE"PIC"3000 7FFF �
00000000 0d 00 05 08 20 5a 3d 30 0d 00 0a 08 20 eb 20 32 |.... Z=0.... . 2| 00000010 0d 00 0c 11 20 ef 20 32 38 2c 30 2c 30 2c 30 2c |.... . 28,0,0,0,| 00000020 30 0d 00 14 0e 20 41 3d b3 28 31 32 35 30 29 0d |0.... A=.(1250).| 00000030 00 1e 0e 20 42 3d b3 28 31 30 30 30 29 0d 00 28 |... B=.(1000)..(| 00000040 0f 20 e6 20 30 2c b3 28 36 29 2b 31 0d 00 32 0a |. . 0,.(6)+1..2.| 00000050 20 ec 20 41 2c 42 0d 00 3c 0a 20 df 20 41 2c 42 | . A,B..<. . A,B| 00000060 0d 00 41 0a 20 5a 3d 5a 2b 31 0d 00 42 0d 20 2a |..A. Z=Z+1..B. *| 00000070 46 58 20 31 35 2c 31 0d 00 43 13 20 e7 20 a6 28 |FX 15,1..C. . .(| 00000080 2d 38 32 29 8c 20 8d 44 50 40 0d 00 46 0b 20 e5 |-82). .DP@..F. .| 00000090 20 8d 54 54 40 0d 00 50 18 20 2a 53 41 56 45 22 | .TT@..P. *SAVE"| 000000a0 50 49 43 22 33 30 30 30 20 37 46 46 46 0d ff |PIC"3000 7FFF..| 000000af
.