Home » Archimedes archive » Acorn User » AU 1997-02 B.adf » Regulars » StarInfo/MarkA/SkidMarks
StarInfo/MarkA/SkidMarks
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 1997-02 B.adf » Regulars |
| Filename: | StarInfo/MarkA/SkidMarks |
| Read OK: | ✔ |
| File size: | 0299 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10MODE 27 20FOR C = 1 TO 15 30COLOUR C,RND(255),RND(255),RND(255) 40NEXT C 50X=128 60Y=102 70DIM XR(10) 80DIM YR(10) 90REPEAT 100MX=RND(1280):MY=RND(1024) 110C=RND(64)-1 120XOFFSET=RND(100) 130YOFFSET=RND(100) 140TP=5 150OTR=RND(360) 160TR=OTR 170SXR=RND(30) 180FOR L = 1 TO TP 190XR(L)=L+SXR 200YR(L)=0 210NEXT L 220GCOL C 230REPEAT 240FOR L = 1 TO TP 250PROCRot(XR(L),YR(L),TR) 260TR=TR+1 270RECTANGLEFILL (NX+XOFFSET)*10,(NY+YOFFSET)*10,10,10 280NEXT L 290UNTIL TR-OTR>100 300RECTANGLEFILL MX,MY,1280-MX,1024-MY TO MX+4,MY+4 310RECTANGLEFILL 0,MY,MX,1024-MY TO -4,MY+4 320RECTANGLEFILL MX,0,1280-MX,MY TO MX+4,-4 330RECTANGLEFILL 0,0,MX,MY TO -4,-4 340UNTIL FALSE 350END 360DEFPROCRot(RRX,RRY,RRD) 370RR=RAD(-RRD) 380NX=RRX*COS(RR)-RRY*SIN(RR) 390NY=RRX*SIN(RR)+RRY*COS(RR) 400ENDPROC 410 420 430 440
� 27 � C = 1 � 15 � C,�(255),�(255),�(255) (� C 2 X=128 < Y=102 F � XR(10) P � YR(10) Z� dMX=�(1280):MY=�(1024) n C=�(64)-1 xXOFFSET=�(100) �YOFFSET=�(100) �TP=5 �OTR=�(360) � TR=OTR � SXR=�(30) �� L = 1 � TP �XR(L)=L+SXR � YR(L)=0 �� L �� C �� �� L = 1 � TP ��Rot(XR(L),YR(L),TR) TR=TR+1 .ȓȐ (NX+XOFFSET)*10,(NY+YOFFSET)*10,10,10 � L "� TR-OTR>100 ,*ȓȐ MX,MY,1280-MX,1024-MY � MX+4,MY+4 6"ȓȐ 0,MY,MX,1024-MY � -4,MY+4 @"ȓȐ MX,0,1280-MX,MY � MX+4,-4 JȓȐ 0,0,MX,MY � -4,-4 T� � ^� h��Rot(RRX,RRY,RRD) rRR=�(-RRD) |NX=RRX*�(RR)-RRY*�(RR) �NY=RRX*�(RR)+RRY*�(RR) �� � � � � �
00000000 0d 00 0a 08 eb 20 32 37 0d 00 14 10 e3 20 43 20 |..... 27..... C | 00000010 3d 20 31 20 b8 20 31 35 0d 00 1e 1c fb 20 43 2c |= 1 . 15..... C,| 00000020 b3 28 32 35 35 29 2c b3 28 32 35 35 29 2c b3 28 |.(255),.(255),.(| 00000030 32 35 35 29 0d 00 28 07 ed 20 43 0d 00 32 09 58 |255)..(.. C..2.X| 00000040 3d 31 32 38 0d 00 3c 09 59 3d 31 30 32 0d 00 46 |=128..<.Y=102..F| 00000050 0c de 20 58 52 28 31 30 29 0d 00 50 0c de 20 59 |.. XR(10)..P.. Y| 00000060 52 28 31 30 29 0d 00 5a 05 f5 0d 00 64 19 4d 58 |R(10)..Z....d.MX| 00000070 3d b3 28 31 32 38 30 29 3a 4d 59 3d b3 28 31 30 |=.(1280):MY=.(10| 00000080 32 34 29 0d 00 6e 0d 43 3d b3 28 36 34 29 2d 31 |24)..n.C=.(64)-1| 00000090 0d 00 78 12 58 4f 46 46 53 45 54 3d b3 28 31 30 |..x.XOFFSET=.(10| 000000a0 30 29 0d 00 82 12 59 4f 46 46 53 45 54 3d b3 28 |0)....YOFFSET=.(| 000000b0 31 30 30 29 0d 00 8c 08 54 50 3d 35 0d 00 96 0e |100)....TP=5....| 000000c0 4f 54 52 3d b3 28 33 36 30 29 0d 00 a0 0a 54 52 |OTR=.(360)....TR| 000000d0 3d 4f 54 52 0d 00 aa 0d 53 58 52 3d b3 28 33 30 |=OTR....SXR=.(30| 000000e0 29 0d 00 b4 10 e3 20 4c 20 3d 20 31 20 b8 20 54 |)..... L = 1 . T| 000000f0 50 0d 00 be 0f 58 52 28 4c 29 3d 4c 2b 53 58 52 |P....XR(L)=L+SXR| 00000100 0d 00 c8 0b 59 52 28 4c 29 3d 30 0d 00 d2 07 ed |....YR(L)=0.....| 00000110 20 4c 0d 00 dc 07 e6 20 43 0d 00 e6 05 f5 0d 00 | L..... C.......| 00000120 f0 10 e3 20 4c 20 3d 20 31 20 b8 20 54 50 0d 00 |... L = 1 . TP..| 00000130 fa 18 f2 52 6f 74 28 58 52 28 4c 29 2c 59 52 28 |...Rot(XR(L),YR(| 00000140 4c 29 2c 54 52 29 0d 01 04 0b 54 52 3d 54 52 2b |L),TR)....TR=TR+| 00000150 31 0d 01 0e 2e c8 93 c8 90 20 28 4e 58 2b 58 4f |1........ (NX+XO| 00000160 46 46 53 45 54 29 2a 31 30 2c 28 4e 59 2b 59 4f |FFSET)*10,(NY+YO| 00000170 46 46 53 45 54 29 2a 31 30 2c 31 30 2c 31 30 0d |FFSET)*10,10,10.| 00000180 01 18 07 ed 20 4c 0d 01 22 10 fd 20 54 52 2d 4f |.... L..".. TR-O| 00000190 54 52 3e 31 30 30 0d 01 2c 2a c8 93 c8 90 20 4d |TR>100..,*.... M| 000001a0 58 2c 4d 59 2c 31 32 38 30 2d 4d 58 2c 31 30 32 |X,MY,1280-MX,102| 000001b0 34 2d 4d 59 20 b8 20 4d 58 2b 34 2c 4d 59 2b 34 |4-MY . MX+4,MY+4| 000001c0 0d 01 36 22 c8 93 c8 90 20 30 2c 4d 59 2c 4d 58 |..6".... 0,MY,MX| 000001d0 2c 31 30 32 34 2d 4d 59 20 b8 20 2d 34 2c 4d 59 |,1024-MY . -4,MY| 000001e0 2b 34 0d 01 40 22 c8 93 c8 90 20 4d 58 2c 30 2c |+4..@".... MX,0,| 000001f0 31 32 38 30 2d 4d 58 2c 4d 59 20 b8 20 4d 58 2b |1280-MX,MY . MX+| 00000200 34 2c 2d 34 0d 01 4a 1a c8 93 c8 90 20 30 2c 30 |4,-4..J..... 0,0| 00000210 2c 4d 58 2c 4d 59 20 b8 20 2d 34 2c 2d 34 0d 01 |,MX,MY . -4,-4..| 00000220 54 07 fd 20 a3 0d 01 5e 05 e0 0d 01 68 16 dd f2 |T.. ...^....h...| 00000230 52 6f 74 28 52 52 58 2c 52 52 59 2c 52 52 44 29 |Rot(RRX,RRY,RRD)| 00000240 0d 01 72 0e 52 52 3d b2 28 2d 52 52 44 29 0d 01 |..r.RR=.(-RRD)..| 00000250 7c 1a 4e 58 3d 52 52 58 2a 9b 28 52 52 29 2d 52 ||.NX=RRX*.(RR)-R| 00000260 52 59 2a b5 28 52 52 29 0d 01 86 1a 4e 59 3d 52 |RY*.(RR)....NY=R| 00000270 52 58 2a b5 28 52 52 29 2b 52 52 59 2a 9b 28 52 |RX*.(RR)+RRY*.(R| 00000280 52 29 0d 01 90 05 e1 0d 01 9a 04 0d 01 a4 04 0d |R)..............| 00000290 01 ae 04 0d 01 b8 04 0d ff |.........| 00000299
.