Home » Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf » SHIP64/TMP
SHIP64/TMP
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 » Greaseweazled » dfs_box04_disk02b_eug_scripts.adf |
| Filename: | SHIP64/TMP |
| Read OK: | ✔ |
| File size: | 007E bytes |
| Load address: | FFFF0E00 |
| Exec address: | FFFF802B |
File contents
10 FORY=0TO15:R=3 20 FORX=INT((Y/5.06)^2) TO 8+((Y/8)^2) 22 IF Y=0 THEN R=3 25 GCOL0,R:R=1 30 MOVEX*8,1023-Y*4:DRAWX*8,1023-Y*4 40 NEXT 50 NEXT
�Y=0�15:R=3
# �X=�((Y/5.06)^2) � 8+((Y/8)^2)
� Y=0 � R=3
�0,R:R=1
�X*8,1023-Y*4:�X*8,1023-Y*4
( �
2 �
� 00000000 0d 00 0a 10 20 e3 59 3d 30 b8 31 35 3a 52 3d 33 |.... .Y=0.15:R=3| 00000010 0d 00 14 23 20 e3 58 3d a8 28 28 59 2f 35 2e 30 |...# .X=.((Y/5.0| 00000020 36 29 5e 32 29 20 b8 20 38 2b 28 28 59 2f 38 29 |6)^2) . 8+((Y/8)| 00000030 5e 32 29 0d 00 16 10 20 e7 20 59 3d 30 20 8c 20 |^2).... . Y=0 . | 00000040 52 3d 33 0d 00 19 0d 20 e6 30 2c 52 3a 52 3d 31 |R=3.... .0,R:R=1| 00000050 0d 00 1e 20 20 ec 58 2a 38 2c 31 30 32 33 2d 59 |... .X*8,1023-Y| 00000060 2a 34 3a df 58 2a 38 2c 31 30 32 33 2d 59 2a 34 |*4:.X*8,1023-Y*4| 00000070 0d 00 28 06 20 ed 0d 00 32 06 20 ed 0d ff |..(. ...2. ...| 0000007e
.