Home » Archimedes archive » Acorn User » AU 1995-12 B.adf » Regulars » StarInfo/Adcock/ST
StarInfo/Adcock/ST
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 1995-12 B.adf » Regulars |
| Filename: | StarInfo/Adcock/ST |
| Read OK: | ✔ |
| File size: | 024B bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >ST 20 30MODE 27:OFF 40FOR R=0 TO 15 50 COLOUR 16-R,R*16,R*16,R*16 60NEXT R 70 80N=25:LE=10 90ORIGIN 640,412 100DIM X(N),Y(N),S(N) 110 120FOR L=1 TO N 130 X(L)=-LE*L 140 Y(L)=0 150NEXT L 160: 170T=TIME 180REPEAT 190 FOR L = 1 TO N 200 RR=RAD(-S(L)) 210 X=X(L)*COS(RR)-Y(L)*SIN(RR) 220 Y=X(L)*SIN(RR)+Y(L)*COS(RR) 230 X(L)=X:Y(L)=Y 240 NEXT 250 260 MOVE X(1),Y(1) 270 C=FALSE 280 IF INKEY-2 AND TIME>T:T=TIME+50+RND(160):C=TRUE 290 IF INKEY-1 C=TRUE 300 WAIT 310 IF C CLS 320 FOR L=2 TO N 330 GCOL L*15/N 340 DRAW X(L),Y(L) 350 NEXT L 360 370 A$=INKEY$0 380 IF A$="," OR A$="<" FOR L=1 TO N:S(L)=S(L)+(L/8):NEXT L 390 IF A$="." OR A$=">" FOR L=1 TO N:S(L)=S(L)-(L/8):NEXT L 400 410UNTIL FALSE
� >ST � 27:� (� R=0 � 15 2 � 16-R,R*16,R*16,R*16 <� R F PN=25:LE=10 Zȑ 640,412 d� X(N),Y(N),S(N) n x � L=1 � N � X(L)=-LE*L � Y(L)=0 �� L �: �T=� �� � � L = 1 � N � RR=�(-S(L)) � X=X(L)*�(RR)-Y(L)*�(RR) � Y=X(L)*�(RR)+Y(L)*�(RR) � X(L)=X:Y(L)=Y � � � � X(1),Y(1) C=� " � �-2 � �>T:T=�+50+�(160):C=� " � �-1 C=� , Ȗ 6 � C � @ � L=2 � N J � L*15/N T � X(L),Y(L) ^ � L h r A$=�0 |4 � A$="," � A$="<" � L=1 � N:S(L)=S(L)+(L/8):� L �4 � A$="." � A$=">" � L=1 � N:S(L)=S(L)-(L/8):� L � �� � �
00000000 0d 00 0a 09 f4 20 3e 53 54 0d 00 14 04 0d 00 1e |..... >ST.......| 00000010 0a eb 20 32 37 3a 87 0d 00 28 0e e3 20 52 3d 30 |.. 27:...(.. R=0| 00000020 20 b8 20 31 35 0d 00 32 1a 20 fb 20 31 36 2d 52 | . 15..2. . 16-R| 00000030 2c 52 2a 31 36 2c 52 2a 31 36 2c 52 2a 31 36 0d |,R*16,R*16,R*16.| 00000040 00 3c 07 ed 20 52 0d 00 46 04 0d 00 50 0e 4e 3d |.<.. R..F...P.N=| 00000050 32 35 3a 4c 45 3d 31 30 0d 00 5a 0e c8 91 20 36 |25:LE=10..Z... 6| 00000060 34 30 2c 34 31 32 0d 00 64 14 de 20 58 28 4e 29 |40,412..d.. X(N)| 00000070 2c 59 28 4e 29 2c 53 28 4e 29 0d 00 6e 04 0d 00 |,Y(N),S(N)..n...| 00000080 78 0d e3 20 4c 3d 31 20 b8 20 4e 0d 00 82 0f 20 |x.. L=1 . N.... | 00000090 58 28 4c 29 3d 2d 4c 45 2a 4c 0d 00 8c 0b 20 59 |X(L)=-LE*L.... Y| 000000a0 28 4c 29 3d 30 0d 00 96 07 ed 20 4c 0d 00 a0 05 |(L)=0..... L....| 000000b0 3a 0d 00 aa 07 54 3d 91 0d 00 b4 05 f5 0d 00 be |:....T=.........| 000000c0 10 20 e3 20 4c 20 3d 20 31 20 b8 20 4e 0d 00 c8 |. . L = 1 . N...| 000000d0 11 20 20 52 52 3d b2 28 2d 53 28 4c 29 29 0d 00 |. RR=.(-S(L))..| 000000e0 d2 1d 20 20 58 3d 58 28 4c 29 2a 9b 28 52 52 29 |.. X=X(L)*.(RR)| 000000f0 2d 59 28 4c 29 2a b5 28 52 52 29 0d 00 dc 1d 20 |-Y(L)*.(RR).... | 00000100 20 59 3d 58 28 4c 29 2a b5 28 52 52 29 2b 59 28 | Y=X(L)*.(RR)+Y(| 00000110 4c 29 2a 9b 28 52 52 29 0d 00 e6 13 20 20 58 28 |L)*.(RR).... X(| 00000120 4c 29 3d 58 3a 59 28 4c 29 3d 59 0d 00 f0 06 20 |L)=X:Y(L)=Y.... | 00000130 ed 0d 00 fa 07 20 20 20 0d 01 04 10 20 ec 20 58 |..... .... . X| 00000140 28 31 29 2c 59 28 31 29 0d 01 0e 08 20 43 3d a3 |(1),Y(1).... C=.| 00000150 0d 01 18 22 20 e7 20 a6 2d 32 20 80 20 91 3e 54 |..." . .-2 . .>T| 00000160 3a 54 3d 91 2b 35 30 2b b3 28 31 36 30 29 3a 43 |:T=.+50+.(160):C| 00000170 3d b9 0d 01 22 0e 20 e7 20 a6 2d 31 20 43 3d b9 |=...". . .-1 C=.| 00000180 0d 01 2c 07 20 c8 96 0d 01 36 0a 20 e7 20 43 20 |..,. ....6. . C | 00000190 db 0d 01 40 0e 20 e3 20 4c 3d 32 20 b8 20 4e 0d |...@. . L=2 . N.| 000001a0 01 4a 0e 20 20 e6 20 4c 2a 31 35 2f 4e 0d 01 54 |.J. . L*15/N..T| 000001b0 11 20 20 df 20 58 28 4c 29 2c 59 28 4c 29 0d 01 |. . X(L),Y(L)..| 000001c0 5e 08 20 ed 20 4c 0d 01 68 05 20 0d 01 72 0a 20 |^. . L..h. ..r. | 000001d0 41 24 3d bf 30 0d 01 7c 34 20 e7 20 41 24 3d 22 |A$=.0..|4 . A$="| 000001e0 2c 22 20 84 20 41 24 3d 22 3c 22 20 e3 20 4c 3d |," . A$="<" . L=| 000001f0 31 20 b8 20 4e 3a 53 28 4c 29 3d 53 28 4c 29 2b |1 . N:S(L)=S(L)+| 00000200 28 4c 2f 38 29 3a ed 20 4c 0d 01 86 34 20 e7 20 |(L/8):. L...4 . | 00000210 41 24 3d 22 2e 22 20 84 20 41 24 3d 22 3e 22 20 |A$="." . A$=">" | 00000220 e3 20 4c 3d 31 20 b8 20 4e 3a 53 28 4c 29 3d 53 |. L=1 . N:S(L)=S| 00000230 28 4c 29 2d 28 4c 2f 38 29 3a ed 20 4c 0d 01 90 |(L)-(L/8):. L...| 00000240 05 20 0d 01 9a 07 fd 20 a3 0d ff |. ..... ...| 0000024b
.