Home » Archimedes archive » Micro User » MU 1992-02.adf » Listings » 8/LIST2
8/LIST2
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 1992-02.adf » Listings |
| Filename: | 8/LIST2 |
| Read OK: | ✔ |
| File size: | 00DF bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Micro User » MU 1992-02.adf » Listings » 32/LIST2
- Archimedes archive » Micro User » MU 1992-02.adf » Listings » 8/LIST2
File contents
0REM"�LISTING2 80PRINTTAB(X,Y)A$ 90C=0 100REPEAT 110xadd=0:yadd=0 120IFINKEY-67xadd=1 130IFINKEY-98xadd=-1 140IFINKEY-73yadd=-1 150IFINKEY-105yadd=1 160IFC=0PRINTTAB(X,Y)A$ 170IFC=1PRINTTAB(X,Y)B$ 180FORT=1TO100:NEXT 190PRINTTAB(X,Y)" " 200X=X+xadd 210Y=Y+yadd 220C=(C+1)MOD2 230UNTIL0
�"�LISTING2 P �X,Y)A$ ZC=0 d� nxadd=0:yadd=0 x�-67xadd=1 ��-98xadd=-1 ��-73yadd=-1 ��-105yadd=1 ��C=0�X,Y)A$ ��C=1�X,Y)B$ ��T=1�100:� � �X,Y)" " � X=X+xadd � Y=Y+yadd � C=(C+1)�2 ��0 �
00000000 0d 00 00 0f f4 22 83 4c 49 53 54 49 4e 47 32 0d |.....".LISTING2.| 00000010 00 50 0c f1 8a 58 2c 59 29 41 24 0d 00 5a 07 43 |.P...X,Y)A$..Z.C| 00000020 3d 30 0d 00 64 05 f5 0d 00 6e 11 78 61 64 64 3d |=0..d....n.xadd=| 00000030 30 3a 79 61 64 64 3d 30 0d 00 78 0f e7 a6 2d 36 |0:yadd=0..x...-6| 00000040 37 78 61 64 64 3d 31 0d 00 82 10 e7 a6 2d 39 38 |7xadd=1......-98| 00000050 78 61 64 64 3d 2d 31 0d 00 8c 10 e7 a6 2d 37 33 |xadd=-1......-73| 00000060 79 61 64 64 3d 2d 31 0d 00 96 10 e7 a6 2d 31 30 |yadd=-1......-10| 00000070 35 79 61 64 64 3d 31 0d 00 a0 10 e7 43 3d 30 f1 |5yadd=1.....C=0.| 00000080 8a 58 2c 59 29 41 24 0d 00 aa 10 e7 43 3d 31 f1 |.X,Y)A$.....C=1.| 00000090 8a 58 2c 59 29 42 24 0d 00 b4 0e e3 54 3d 31 b8 |.X,Y)B$.....T=1.| 000000a0 31 30 30 3a ed 0d 00 be 0d f1 8a 58 2c 59 29 22 |100:.......X,Y)"| 000000b0 20 22 0d 00 c8 0c 58 3d 58 2b 78 61 64 64 0d 00 | "....X=X+xadd..| 000000c0 d2 0c 59 3d 59 2b 79 61 64 64 0d 00 dc 0d 43 3d |..Y=Y+yadd....C=| 000000d0 28 43 2b 31 29 83 32 0d 00 e6 06 fd 30 0d ff |(C+1).2.....0..| 000000df
.