Home » Archimedes archive » Acorn User » AU 1996-01.adf » Regulars » StarInfo/Simpson/Pipeworks
StarInfo/Simpson/Pipeworks
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 » Acorn User » AU 1996-01.adf » Regulars |
| Filename: | StarInfo/Simpson/Pipeworks |
| Read OK: | ✔ |
| File size: | 0148 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10MODE 15:OFF 20X=20:Y=20:N=20 30REPEAT:c=RND(6):FOR lp=1 TO 10:GCOL 0,1:CIRCLE FILL X,Y,N:GCOL 0,2:CIRCLE FILL X+5,Y+5,N:GCOL 0,3:CIRCLE FILL X+9,Y+9,N:IF c=2 X=X+8 ELSE IF c=1 X=X-8 ELSE IF c=3 Y=Y+8 ELSE IF c=4 Y=Y-8 ELSE IF c=5 X=X+8:Y=Y+8 ELSE IF c=5 X=X-8:Y=Y-8 40IF X>1250 c=2:X=200 ELSE IF Y>1060 c=4:Y=200 ELSE IF X<-5 X+=500+RND(100) ELSE IF Y<-5 Y+=500+RND(100) 50NEXT lp 60UNTIL 0 70REM 18,19,23
� 15:� X=20:Y=20:N=20 ��:c=�(6):� lp=1 � 10:� 0,1:ȏ Ȑ X,Y,N:� 0,2:ȏ Ȑ X+5,Y+5,N:� 0,3:ȏ Ȑ X+9,Y+9,N:� c=2 X=X+8 � � c=1 X=X-8 � � c=3 Y=Y+8 � � c=4 Y=Y-8 � � c=5 X=X+8:Y=Y+8 � � c=5 X=X-8:Y=Y-8 (Y� X>1250 c=2:X=200 � � Y>1060 c=4:Y=200 � � X<-5 X+=500+�(100) � � Y<-5 Y+=500+�(100) 2� lp <� 0 F� 18,19,23 �
00000000 0d 00 0a 0a eb 20 31 35 3a 87 0d 00 14 12 58 3d |..... 15:.....X=| 00000010 32 30 3a 59 3d 32 30 3a 4e 3d 32 30 0d 00 1e b4 |20:Y=20:N=20....| 00000020 f5 3a 63 3d b3 28 36 29 3a e3 20 6c 70 3d 31 20 |.:c=.(6):. lp=1 | 00000030 b8 20 31 30 3a e6 20 30 2c 31 3a c8 8f 20 c8 90 |. 10:. 0,1:.. ..| 00000040 20 58 2c 59 2c 4e 3a e6 20 30 2c 32 3a c8 8f 20 | X,Y,N:. 0,2:.. | 00000050 c8 90 20 58 2b 35 2c 59 2b 35 2c 4e 3a e6 20 30 |.. X+5,Y+5,N:. 0| 00000060 2c 33 3a c8 8f 20 c8 90 20 58 2b 39 2c 59 2b 39 |,3:.. .. X+9,Y+9| 00000070 2c 4e 3a e7 20 63 3d 32 20 58 3d 58 2b 38 20 8b |,N:. c=2 X=X+8 .| 00000080 20 e7 20 63 3d 31 20 58 3d 58 2d 38 20 8b 20 e7 | . c=1 X=X-8 . .| 00000090 20 63 3d 33 20 59 3d 59 2b 38 20 8b 20 e7 20 63 | c=3 Y=Y+8 . . c| 000000a0 3d 34 20 59 3d 59 2d 38 20 8b 20 e7 20 63 3d 35 |=4 Y=Y-8 . . c=5| 000000b0 20 58 3d 58 2b 38 3a 59 3d 59 2b 38 20 8b 20 e7 | X=X+8:Y=Y+8 . .| 000000c0 20 63 3d 35 20 58 3d 58 2d 38 3a 59 3d 59 2d 38 | c=5 X=X-8:Y=Y-8| 000000d0 0d 00 28 59 e7 20 58 3e 31 32 35 30 20 63 3d 32 |..(Y. X>1250 c=2| 000000e0 3a 58 3d 32 30 30 20 8b 20 e7 20 59 3e 31 30 36 |:X=200 . . Y>106| 000000f0 30 20 63 3d 34 3a 59 3d 32 30 30 20 8b 20 e7 20 |0 c=4:Y=200 . . | 00000100 58 3c 2d 35 20 58 2b 3d 35 30 30 2b b3 28 31 30 |X<-5 X+=500+.(10| 00000110 30 29 20 8b 20 e7 20 59 3c 2d 35 20 59 2b 3d 35 |0) . . Y<-5 Y+=5| 00000120 30 30 2b b3 28 31 30 30 29 0d 00 32 08 ed 20 6c |00+.(100)..2.. l| 00000130 70 0d 00 3c 07 fd 20 30 0d 00 46 0e f4 20 31 38 |p..<.. 0..F.. 18| 00000140 2c 31 39 2c 32 33 0d ff |,19,23..| 00000148
.