Home » Personal collection » Acorn hard disk » misc » dcfprogs » RAM/Sphere
RAM/Sphere
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 hard disk » misc » dcfprogs |
| Filename: | RAM/Sphere |
| Read OK: | ✔ |
| File size: | 01AB bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Archimedes » IJJOBS21.ADF » RAM/Sphere
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_IJJOBS21.adf » RAM/Sphere
- Personal collection » Acorn hard disk » misc » dcfprogs » RAM/Sphere
File contents
10REM >Sphere 12X=-1:Y=-1 15ON ERROR REPORT:PRINT" @ ";ERL,X,Y:END 20MODE 0 30*RAM 40*SLOAD !Sprites 50INPUT"Sprite Name";SPR$ 60SYS "OS_SpriteOp",40,,SPR$ TO ,,,xax,yax,H,,MDOE 65MODE 12:*!Palette 70FOR X=-600 TO 600 80FOR Y=0 TO 360 90IF ABS(X) MOD 100=0 OR Y MOD 45=0 OR POINT((X*SIN(PI*Y/360))/1.4+640,(Y*2.5)+50)=11 THEN GCOL 0,11:GOTO 120 100SYS "OS_SpriteOp",41,,SPR$,INT(xax*((X+600)/1200)),INT(yax*(Y/360)) TO,,,,,C,T 110GCOL 0,C 120POINT (X*SIN(PI*Y/360))/1.4+640,(Y*2.5)+50 130NEXT,
� >Sphere X=-1:Y=-1 � � �:�" @ ";�,X,Y:� � 0 *RAM (*SLOAD !Sprites 2�"Sprite Name";SPR$ <2ș "OS_SpriteOp",40,,SPR$ � ,,,xax,yax,H,,MDOE A� 12:*!Palette F� X=-600 � 600 P� Y=0 � 360 ZV� �(X) � 100=0 � Y � 45=0 � �(X*�(�*Y/360))/1.4+640,(Y*2.5)+50)=11 � � 0,11:� �Dx@ dLș "OS_SpriteOp",41,,SPR$,�(xax*((X+600)/1200)),�(yax*(Y/360)) �,,,,,C,T n � 0,C x(Ȓ (X*�(�*Y/360))/1.4+640,(Y*2.5)+50 ��, �
00000000 0d 00 0a 0d f4 20 3e 53 70 68 65 72 65 0d 00 0c |..... >Sphere...| 00000010 0d 58 3d 2d 31 3a 59 3d 2d 31 0d 00 0f 18 ee 20 |.X=-1:Y=-1..... | 00000020 85 20 f6 3a f1 22 20 40 20 22 3b 9e 2c 58 2c 59 |. .:." @ ";.,X,Y| 00000030 3a e0 0d 00 14 07 eb 20 30 0d 00 1e 08 2a 52 41 |:...... 0....*RA| 00000040 4d 0d 00 28 13 2a 53 4c 4f 41 44 20 21 53 70 72 |M..(.*SLOAD !Spr| 00000050 69 74 65 73 0d 00 32 17 e8 22 53 70 72 69 74 65 |ites..2.."Sprite| 00000060 20 4e 61 6d 65 22 3b 53 50 52 24 0d 00 3c 32 c8 | Name";SPR$..<2.| 00000070 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |. "OS_SpriteOp",| 00000080 34 30 2c 2c 53 50 52 24 20 b8 20 2c 2c 2c 78 61 |40,,SPR$ . ,,,xa| 00000090 78 2c 79 61 78 2c 48 2c 2c 4d 44 4f 45 0d 00 41 |x,yax,H,,MDOE..A| 000000a0 12 eb 20 31 32 3a 2a 21 50 61 6c 65 74 74 65 0d |.. 12:*!Palette.| 000000b0 00 46 12 e3 20 58 3d 2d 36 30 30 20 b8 20 36 30 |.F.. X=-600 . 60| 000000c0 30 0d 00 50 0f e3 20 59 3d 30 20 b8 20 33 36 30 |0..P.. Y=0 . 360| 000000d0 0d 00 5a 56 e7 20 94 28 58 29 20 83 20 31 30 30 |..ZV. .(X) . 100| 000000e0 3d 30 20 84 20 59 20 83 20 34 35 3d 30 20 84 20 |=0 . Y . 45=0 . | 000000f0 b0 28 58 2a b5 28 af 2a 59 2f 33 36 30 29 29 2f |.(X*.(.*Y/360))/| 00000100 31 2e 34 2b 36 34 30 2c 28 59 2a 32 2e 35 29 2b |1.4+640,(Y*2.5)+| 00000110 35 30 29 3d 31 31 20 8c 20 e6 20 30 2c 31 31 3a |50)=11 . . 0,11:| 00000120 e5 20 8d 44 78 40 0d 00 64 4c c8 99 20 22 4f 53 |. .Dx@..dL.. "OS| 00000130 5f 53 70 72 69 74 65 4f 70 22 2c 34 31 2c 2c 53 |_SpriteOp",41,,S| 00000140 50 52 24 2c a8 28 78 61 78 2a 28 28 58 2b 36 30 |PR$,.(xax*((X+60| 00000150 30 29 2f 31 32 30 30 29 29 2c a8 28 79 61 78 2a |0)/1200)),.(yax*| 00000160 28 59 2f 33 36 30 29 29 20 b8 2c 2c 2c 2c 2c 43 |(Y/360)) .,,,,,C| 00000170 2c 54 0d 00 6e 09 e6 20 30 2c 43 0d 00 78 28 c8 |,T..n.. 0,C..x(.| 00000180 92 20 28 58 2a b5 28 af 2a 59 2f 33 36 30 29 29 |. (X*.(.*Y/360))| 00000190 2f 31 2e 34 2b 36 34 30 2c 28 59 2a 32 2e 35 29 |/1.4+640,(Y*2.5)| 000001a0 2b 35 30 0d 00 82 06 ed 2c 0d ff |+50.....,..| 000001ab
.