Home » Personal collection » Commodore disks » disk50a2_progs1.d64 » solar system
solar system
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 » disk50a2_progs1.d64 |
| Filename: | solar system |
| Read OK: | ✔ |
| File size: | 0323 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
10 REM SOLAR SYSTEM SIMULATOR
20 :
30 READ N:T=0
40 DIM P$(N),X(N),Y(N),R(N),M(N),YR(N),V(N),D(N)
50 FOR P=1 TO N
60 READ P$(P),D(P),R(P),M(P),YR(P)
70 V(P)=0
80 NEXT
90 :
100 GOSUB 1100
110 GOSUB 1000
120 GOTO 100
990 :
1000 REM DISPLAY PLANETS
1010 PRINT"<clr>"
1020 FOR P=1 TO N
1030 POKE 1524+INT(X(P)/300)+40*INT(Y(P)/500),81
1040 NEXT:RETURN
1050 :
1100 REM MOVEMENT
1110 T=T+10
1120 FOR P=1 TO N
1130 X(P)=D(P)*SIN((π*T/YR(P))/180)
1140 Y(P)=D(P)*COS((π*T/YR(P))/180)
1150 NEXT:RETURN
1990 :
2000 REM GRAVITATIONAL DATA
2005 :
2010 DATA 10
2015 :
2020 REM NAME,DISTANCE,RADIUS,MASS,YEAR
2025 :
2030 DATA "MERCURY",58,0.4,0.06,0.2
2040 DATA "VENUS",108,0.95,0.8,0.6
2050 DATA "EARTH",150,1,1,1
2060 DATA "MARS",228,0.5,0.1,1.9
2070 DATA "JUPITER",778,11,320,12
2080 DATA "SATURN",1427,9,95,30
2090 DATA "URANUS",2870,4,15,84
2100 DATA "NEPTUNE",4497,4,17,165
2110 DATA "PLUTO",5900,0.2,0.002,248
2120 DATA "SUN",0,110,335,1
� SOLAR SYSTEM SIMULATOR $ : 0 � N:T�0 `( � P$(N),X(N),Y(N),R(N),M(N),YR(N),V(N),D(N) n2 � P�1 � N �< � P$(P),D(P),R(P),M(P),YR(P) �F V(P)�0 �P � �Z : �d � 1100 �n � 1000 �x � 100 ��: ��� DISPLAY PLANETS ���"�" ��� P�1 � N " � 1524��(X(P)�300)�40��(Y(P)�500),81 * �:� 0 : ? L� MOVEMENT J VT�T�10 X `� P�1 � N y jX(P)�D(P)��((��T�YR(P))�180) � tY(P)�D(P)��((��T�YR(P))�180) � ~�:� � �: � �� GRAVITATIONAL DATA � �: � �� 10 � �: � �� NAME,DISTANCE,RADIUS,MASS,YEAR �: ! �� "MERCURY",58,0.4,0.06,0.2 @ �� "VENUS",108,0.95,0.8,0.6 X � "EARTH",150,1,1,1 u � "MARS",228,0.5,0.1,1.9 � � "JUPITER",778,11,320,12 � � "SATURN",1427,9,95,30 � *� "URANUS",2870,4,15,84 � 4� "NEPTUNE",4497,4,17,165 >� "PLUTO",5900,0.2,0.002,248 " H� "SUN",0,110,335,1
.HJ@. solar system simulator@$HT@:@0H.@. n:t.0@.H(@. p$(n),x(n),y(n),r(n),m(n),yr(n),v(n),d(n)@NH2@. p.1 . n@.H<@. p$(p),d(p),r(p),m(p),yr(p)@.Hf@v(p).0@.Hp@.@.Hz@:@.HD@. 1100@.HN@. 1000@.HX@. 100@.H.C:@.H.C. display planets@.H.C."."@.H.C. p.1 . n@"IFD. 1524..(x(p).300).40..(y(p).500),81@*IPD.:.@0IZD:@?IlD. movement@jIvDt.t.10@xI.D. p.1 . n@YIJDx(p).d(p)..((..t.yr(p)).180)@.ITDy(p).d(p)..((..t.yr(p)).180)@.I.D.:.@.I.G:@.I.G. gravitational data@.I.G:@.I.G. 10@.I.G:@.I.G. name,distance,radius,mass,year@AJ.G:@!J.G. "mercury",58,0.4,0.06,0.2@@J.G. "venus",108,0.95,0.8,0.6@xJBH. "earth",150,1,1,1@UJLH. "mars",228,0.5,0.1,1.9@.JVH. "jupiter",778,11,320,12@.J H. "saturn",1427,9,95,30@.J*H. "uranus",2870,4,15,84@.J4H. "neptune",4497,4,17,165@JK>H. "pluto",5900,0.2,0.002,248@"KhH. "sun",0,110,335,1@@@
00000000 1e 08 0a 00 8f 20 53 4f 4c 41 52 20 53 59 53 54 |..... SOLAR SYST| 00000010 45 4d 20 53 49 4d 55 4c 41 54 4f 52 00 24 08 14 |EM SIMULATOR.$..| 00000020 00 3a 00 30 08 1e 00 87 20 4e 3a 54 b2 30 00 60 |.:.0.... N:T.0.`| 00000030 08 28 00 86 20 50 24 28 4e 29 2c 58 28 4e 29 2c |.(.. P$(N),X(N),| 00000040 59 28 4e 29 2c 52 28 4e 29 2c 4d 28 4e 29 2c 59 |Y(N),R(N),M(N),Y| 00000050 52 28 4e 29 2c 56 28 4e 29 2c 44 28 4e 29 00 6e |R(N),V(N),D(N).n| 00000060 08 32 00 81 20 50 b2 31 20 a4 20 4e 00 8f 08 3c |.2.. P.1 . N...<| 00000070 00 87 20 50 24 28 50 29 2c 44 28 50 29 2c 52 28 |.. P$(P),D(P),R(| 00000080 50 29 2c 4d 28 50 29 2c 59 52 28 50 29 00 9a 08 |P),M(P),YR(P)...| 00000090 46 00 56 28 50 29 b2 30 00 a0 08 50 00 82 00 a6 |F.V(P).0...P....| 000000a0 08 5a 00 3a 00 b1 08 64 00 8d 20 31 31 30 30 00 |.Z.:...d.. 1100.| 000000b0 bc 08 6e 00 8d 20 31 30 30 30 00 c6 08 78 00 89 |..n.. 1000...x..| 000000c0 20 31 30 30 00 cc 08 de 03 3a 00 e2 08 e8 03 8f | 100.....:......| 000000d0 20 44 49 53 50 4c 41 59 20 50 4c 41 4e 45 54 53 | DISPLAY PLANETS| 000000e0 00 eb 08 f2 03 99 22 93 22 00 f9 08 fc 03 81 20 |......"."...... | 000000f0 50 b2 31 20 a4 20 4e 00 22 09 06 04 97 20 31 35 |P.1 . N.".... 15| 00000100 32 34 aa b5 28 58 28 50 29 ad 33 30 30 29 aa 34 |24..(X(P).300).4| 00000110 30 ac b5 28 59 28 50 29 ad 35 30 30 29 2c 38 31 |0..(Y(P).500),81| 00000120 00 2a 09 10 04 82 3a 8e 00 30 09 1a 04 3a 00 3f |.*....:..0...:.?| 00000130 09 4c 04 8f 20 4d 4f 56 45 4d 45 4e 54 00 4a 09 |.L.. MOVEMENT.J.| 00000140 56 04 54 b2 54 aa 31 30 00 58 09 60 04 81 20 50 |V.T.T.10.X.`.. P| 00000150 b2 31 20 a4 20 4e 00 79 09 6a 04 58 28 50 29 b2 |.1 . N.y.j.X(P).| 00000160 44 28 50 29 ac bf 28 28 ff ac 54 ad 59 52 28 50 |D(P)..((..T.YR(P| 00000170 29 29 ad 31 38 30 29 00 9a 09 74 04 59 28 50 29 |)).180)...t.Y(P)| 00000180 b2 44 28 50 29 ac be 28 28 ff ac 54 ad 59 52 28 |.D(P)..((..T.YR(| 00000190 50 29 29 ad 31 38 30 29 00 a2 09 7e 04 82 3a 8e |P)).180)...~..:.| 000001a0 00 a8 09 c6 07 3a 00 c1 09 d0 07 8f 20 47 52 41 |.....:...... GRA| 000001b0 56 49 54 41 54 49 4f 4e 41 4c 20 44 41 54 41 00 |VITATIONAL DATA.| 000001c0 c7 09 d5 07 3a 00 d0 09 da 07 83 20 31 30 00 d6 |....:...... 10..| 000001d0 09 df 07 3a 00 fb 09 e4 07 8f 20 4e 41 4d 45 2c |...:...... NAME,| 000001e0 44 49 53 54 41 4e 43 45 2c 52 41 44 49 55 53 2c |DISTANCE,RADIUS,| 000001f0 4d 41 53 53 2c 59 45 41 52 00 01 0a e9 07 3a 00 |MASS,YEAR.....:.| 00000200 21 0a ee 07 83 20 22 4d 45 52 43 55 52 59 22 2c |!.... "MERCURY",| 00000210 35 38 2c 30 2e 34 2c 30 2e 30 36 2c 30 2e 32 00 |58,0.4,0.06,0.2.| 00000220 40 0a f8 07 83 20 22 56 45 4e 55 53 22 2c 31 30 |@.... "VENUS",10| 00000230 38 2c 30 2e 39 35 2c 30 2e 38 2c 30 2e 36 00 58 |8,0.95,0.8,0.6.X| 00000240 0a 02 08 83 20 22 45 41 52 54 48 22 2c 31 35 30 |.... "EARTH",150| 00000250 2c 31 2c 31 2c 31 00 75 0a 0c 08 83 20 22 4d 41 |,1,1,1.u.... "MA| 00000260 52 53 22 2c 32 32 38 2c 30 2e 35 2c 30 2e 31 2c |RS",228,0.5,0.1,| 00000270 31 2e 39 00 93 0a 16 08 83 20 22 4a 55 50 49 54 |1.9...... "JUPIT| 00000280 45 52 22 2c 37 37 38 2c 31 31 2c 33 32 30 2c 31 |ER",778,11,320,1| 00000290 32 00 af 0a 20 08 83 20 22 53 41 54 55 52 4e 22 |2... .. "SATURN"| 000002a0 2c 31 34 32 37 2c 39 2c 39 35 2c 33 30 00 cb 0a |,1427,9,95,30...| 000002b0 2a 08 83 20 22 55 52 41 4e 55 53 22 2c 32 38 37 |*.. "URANUS",287| 000002c0 30 2c 34 2c 31 35 2c 38 34 00 e9 0a 34 08 83 20 |0,4,15,84...4.. | 000002d0 22 4e 45 50 54 55 4e 45 22 2c 34 34 39 37 2c 34 |"NEPTUNE",4497,4| 000002e0 2c 31 37 2c 31 36 35 00 0a 0b 3e 08 83 20 22 50 |,17,165...>.. "P| 000002f0 4c 55 54 4f 22 2c 35 39 30 30 2c 30 2e 32 2c 30 |LUTO",5900,0.2,0| 00000300 2e 30 30 32 2c 32 34 38 00 22 0b 48 08 83 20 22 |.002,248.".H.. "| 00000310 53 55 4e 22 2c 30 2c 31 31 30 2c 33 33 35 2c 31 |SUN",0,110,335,1| 00000320 00 00 00 |...| 00000323
.