Home » Personal collection » Acorn ADFS disks » Electron » Programs.ADF » Graphics/Badge
Graphics/Badge
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 ADFS disks » Electron » Programs.ADF |
| Filename: | Graphics/Badge |
| Read OK: | ✔ |
| File size: | 01FB bytes |
| Load address: | FFFF1D00 |
| Exec address: | FFFF8023 |
Duplicates
There are 6 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Programs_B.ADF » Graphics/Badge
- Personal collection » Acorn ADFS disks » Electron » Programs.ADF » Graphics/Badge
- Personal collection » Acorn ADFS disks » Electron » Programs_V2.ADF » Graphics/Badge
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Programs.adf » Graphics/Badge
- Personal collection » Acorn hard disk » misc » misc2 » dcfprogs/Graphics/Badge
- Personal collection » Acorn hard disk » misc » misc3 » dcfprog3/Graphics/Badge
- Personal collection » Acorn tapes » Own_Work » drawer_tl_tape04b_c15_acorn_lemmings.wav » Badge
File contents
10 MODE 5:a=333:b=666:DIMb%(1285):xxx=0 20 VDU 19,0,7,0;0;0; 30 VDU 19,1,2,0;0;0; 40 VDU 19,2,3,0;0;0; 50 VDU 19,3,6,0;0;0; 60 FOR x=0 TO 1280 STEP 4 70 MOVE x,0:GCOL0,1 80 r=RND(6):rb=RND(6) 90 IF r<3 THEN a=a-1 ELSE IF r>3 THEN a=a+2 100 IF b=a THEN xxx=1 110 IF xxx=1 THEN b=a:GOTO130 120 IF rb<3 THEN b=b+1 ELSE IF rb>3 THEN b=b-2 130 DRAW x,a:GCOL 0,2:DRAW x,b 140 GCOL 0,3:DRAW x,1200:b%(x)=b:b%(x+3)=b:b%(x+1)=b:b%(x+2)=b:b%(x+4)=b:NEXT 150 GCOL 0,0 160 FOR x=1 TO RND(750) 170 r=RND(1280) 180 rb=RND(400) 190 IF b%(r)+rb>1000 THEN 180 200 MOVE r,rb+b%(r):DRAW r,rb+b%(r) 210 NEXT 220 GOTO 220
$ � 5:a=333:b=666:�b%(1285):xxx=0 � 19,0,7,0;0;0; � 19,1,2,0;0;0; ( � 19,2,3,0;0;0; 2 � 19,3,6,0;0;0; < � x=0 � 1280 � 4 F � x,0:�0,1 P r=�(6):rb=�(6) Z" � r<3 � a=a-1 � � r>3 � a=a+2 d � b=a � xxx=1 n � xxx=1 � b=a:�tB@ x$ � rb<3 � b=b+1 � � rb>3 � b=b-2 � � x,a:� 0,2:� x,b �E � 0,3:� x,1200:b%(x)=b:b%(x+3)=b:b%(x+1)=b:b%(x+2)=b:b%(x+4)=b:� � � 0,0 � � x=1 � �(750) � r=�(1280) � rb=�(400) � � b%(r)+rb>1000 � �tt@ � � r,rb+b%(r):� r,rb+b%(r) � � � � �d\@ �
00000000 0d 00 0a 24 20 eb 20 35 3a 61 3d 33 33 33 3a 62 |...$ . 5:a=333:b| 00000010 3d 36 36 36 3a de 62 25 28 31 32 38 35 29 3a 78 |=666:.b%(1285):x| 00000020 78 78 3d 30 0d 00 14 14 20 ef 20 31 39 2c 30 2c |xx=0.... . 19,0,| 00000030 37 2c 30 3b 30 3b 30 3b 0d 00 1e 14 20 ef 20 31 |7,0;0;0;.... . 1| 00000040 39 2c 31 2c 32 2c 30 3b 30 3b 30 3b 0d 00 28 14 |9,1,2,0;0;0;..(.| 00000050 20 ef 20 31 39 2c 32 2c 33 2c 30 3b 30 3b 30 3b | . 19,2,3,0;0;0;| 00000060 0d 00 32 14 20 ef 20 31 39 2c 33 2c 36 2c 30 3b |..2. . 19,3,6,0;| 00000070 30 3b 30 3b 0d 00 3c 15 20 e3 20 78 3d 30 20 b8 |0;0;..<. . x=0 .| 00000080 20 31 32 38 30 20 88 20 34 0d 00 46 0f 20 ec 20 | 1280 . 4..F. . | 00000090 78 2c 30 3a e6 30 2c 31 0d 00 50 13 20 72 3d b3 |x,0:.0,1..P. r=.| 000000a0 28 36 29 3a 72 62 3d b3 28 36 29 0d 00 5a 22 20 |(6):rb=.(6)..Z" | 000000b0 e7 20 72 3c 33 20 8c 20 61 3d 61 2d 31 20 8b 20 |. r<3 . a=a-1 . | 000000c0 e7 20 72 3e 33 20 8c 20 61 3d 61 2b 32 0d 00 64 |. r>3 . a=a+2..d| 000000d0 12 20 e7 20 62 3d 61 20 8c 20 78 78 78 3d 31 0d |. . b=a . xxx=1.| 000000e0 00 6e 18 20 e7 20 78 78 78 3d 31 20 8c 20 62 3d |.n. . xxx=1 . b=| 000000f0 61 3a e5 8d 74 42 40 0d 00 78 24 20 e7 20 72 62 |a:..tB@..x$ . rb| 00000100 3c 33 20 8c 20 62 3d 62 2b 31 20 8b 20 e7 20 72 |<3 . b=b+1 . . r| 00000110 62 3e 33 20 8c 20 62 3d 62 2d 32 0d 00 82 16 20 |b>3 . b=b-2.... | 00000120 df 20 78 2c 61 3a e6 20 30 2c 32 3a df 20 78 2c |. x,a:. 0,2:. x,| 00000130 62 0d 00 8c 45 20 e6 20 30 2c 33 3a df 20 78 2c |b...E . 0,3:. x,| 00000140 31 32 30 30 3a 62 25 28 78 29 3d 62 3a 62 25 28 |1200:b%(x)=b:b%(| 00000150 78 2b 33 29 3d 62 3a 62 25 28 78 2b 31 29 3d 62 |x+3)=b:b%(x+1)=b| 00000160 3a 62 25 28 78 2b 32 29 3d 62 3a 62 25 28 78 2b |:b%(x+2)=b:b%(x+| 00000170 34 29 3d 62 3a ed 0d 00 96 0a 20 e6 20 30 2c 30 |4)=b:..... . 0,0| 00000180 0d 00 a0 13 20 e3 20 78 3d 31 20 b8 20 b3 28 37 |.... . x=1 . .(7| 00000190 35 30 29 0d 00 aa 0e 20 72 3d b3 28 31 32 38 30 |50).... r=.(1280| 000001a0 29 0d 00 b4 0e 20 72 62 3d b3 28 34 30 30 29 0d |).... rb=.(400).| 000001b0 00 be 1b 20 e7 20 62 25 28 72 29 2b 72 62 3e 31 |... . b%(r)+rb>1| 000001c0 30 30 30 20 8c 20 8d 74 74 40 0d 00 c8 1e 20 ec |000 . .tt@.... .| 000001d0 20 72 2c 72 62 2b 62 25 28 72 29 3a df 20 72 2c | r,rb+b%(r):. r,| 000001e0 72 62 2b 62 25 28 72 29 0d 00 d2 06 20 ed 0d 00 |rb+b%(r).... ...| 000001f0 dc 0b 20 e5 20 8d 64 5c 40 0d ff |.. . .d\@..| 000001fb
Graphics/Badge.m0
Graphics/Badge.m1
Graphics/Badge.m2
Graphics/Badge.m4
Graphics/Badge.m5
.