Home » Personal collection » Commodore disks » disk42a_unlabelled.d64 » basic2
basic2
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 » Commodore disks » disk42a_unlabelled.d64 |
| Filename: | basic2 |
| Read OK: | ✔ |
| File size: | 00B3 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
2000 REM UPDATE CO-ORDINATES 2005 INPUT TH,AL 2010 X=COS(π*TH/180)*COS(π*AL/180) 2020 Y=SIN(π*AL/180) 2030 Z=SIN(π*TH/180)*COS(π*AL/180) 2040 PRINT"X:";X 2050 PRINT"Y:";Y 2060 PRINT"Z:";Z 2070 PRINT"D:";SQR(X^2+Y^2+Z^2)
�� UPDATE CO-ORDINATES '�� TH,AL E�X��(��TH�180)��(��AL�180) W�Y��(��AL�180) u�Z��(��TH�180)��(��AL�180) ���"X:";X ��"Y:";Y � �"Z:";Z ��"D:";�(X�2�Y�2�Z�2)
[H.G. update co-ordinates@'H.G. th,al@eH.Gx..(..th.180)..(..al.180)@wH.Gy..(..al.180)@UH.Gz..(..th.180)..(..al.180)@.H.G."x:";x@.HBH."y:";y@.HLH."z:";z@.HVH."d:";.(x.2.y.2.z.2)@@@
00000000 1b 08 d0 07 8f 20 55 50 44 41 54 45 20 43 4f 2d |..... UPDATE CO-| 00000010 4f 52 44 49 4e 41 54 45 53 00 27 08 d5 07 85 20 |ORDINATES.'.... | 00000020 54 48 2c 41 4c 00 45 08 da 07 58 b2 be 28 ff ac |TH,AL.E...X..(..| 00000030 54 48 ad 31 38 30 29 ac be 28 ff ac 41 4c ad 31 |TH.180)..(..AL.1| 00000040 38 30 29 00 57 08 e4 07 59 b2 bf 28 ff ac 41 4c |80).W...Y..(..AL| 00000050 ad 31 38 30 29 00 75 08 ee 07 5a b2 bf 28 ff ac |.180).u...Z..(..| 00000060 54 48 ad 31 38 30 29 ac be 28 ff ac 41 4c ad 31 |TH.180)..(..AL.1| 00000070 38 30 29 00 81 08 f8 07 99 22 58 3a 22 3b 58 00 |80)......"X:";X.| 00000080 8d 08 02 08 99 22 59 3a 22 3b 59 00 99 08 0c 08 |....."Y:";Y.....| 00000090 99 22 5a 3a 22 3b 5a 00 b2 08 16 08 99 22 44 3a |."Z:";Z......"D:| 000000a0 22 3b ba 28 58 ae 32 aa 59 ae 32 aa 5a ae 32 29 |";.(X.2.Y.2.Z.2)| 000000b0 00 00 00 |...| 000000b3
.