1 rem 3d stars with sprites by eyvind ebsen 2025 v0.1 2 print"{clear}";:poke53280,0:poke53281,0:v=53248 3 forx=.to39:poke1504+x,67:ifx<25thenpoke1044+x*40,66 4 next:poke1524,91:rem draw crosshair 5 p$(0)="mercury":p$(1)="venus":p$(2)="earth":p$(3)="mars":p$(4)="jupiter" 6 p$(5)="saturn":p$(6)="uranus":p$(7)="neptune":p$(8)="pluto":p$(9)="unknown" 7 rem planet colors 8 pc(0)=1:pc(1)=8:pc(2)=6:pc(3)=2:pc(4)=8:pc(5)=11 9 pc(6)=5:pc(7)=14:pc(8)=12:pc(9)=13 10 n=.:dim s(1+n,2):rem init planets xyz 15 pokev+21,1:poke2040,1:pokev,160+16:pokev+1,100+40:rem enable 1 sprite 16 pokev+39,1:sp=15360:rem set color 17 print"{home}{light green}this is a journey":print"from the sun" 18 print"speed of light x 10" 19 forq=.to12:poke2040,240+q:forx=.to62:reada:pokesp,a:sp=sp+1:next:sp=sp+1:next 20 forx=.ton:gosub90:next:x=rnd(-ti):rem init all stars 30 poke646,pc(p):print"{home}approaching planet ":?p$(p)" ":pokev+39,pc(p) 33 forx=.ton 37 s(x,2)=s(x,2)-.042:rem move star 38 if s(x,2)<.4thengosub90:p=p+1:ifp>9thenp=9:pc(9)=1+rnd(1)*14:rem reset star 42 xp=172+(s(x,0)/s(x,2)) 43 poke v,xpand255:pokev+16,xp/256:pokev+1,139+(s(x,1)/s(x,2))and255 44 poke2040,240+s(x,2) 45 next:goto30 89 rem set star 90 s(x,0)=50-int(rnd(1)*100):s(x,1)=25-int(rnd(1)*50):s(x,2)=13:return 100 end 1000 REM sp1 1010 DATA 255,255,255,255,255,255,255,255 1020 DATA 255,255,255,255,255,255,255,255 1030 DATA 255,255,255,255,255,255,255,255 1040 DATA 255,255,255,255,255,255,255,255 1050 DATA 255,255,255,255,255,255,255,255 1060 DATA 255,255,255,255,255,255,255,255 1070 DATA 255,255,255,255,255,255,255,255 1080 DATA 255,255,255,255,255,255,255 1090 REM sp2 1100 DATA 0,0,0,127,255,254,127,255 1110 DATA 254,127,255,254,127,255,254,127 1120 DATA 255,254,127,255,254,127,255,254 1130 DATA 127,255,254,127,255,254,127,255 1140 DATA 254,127,255,254,127,255,254,127 1150 DATA 255,254,127,255,254,127,255,254 1160 DATA 127,255,254,127,255,254,127,255 1170 DATA 254,127,255,254,0,0,0 1180 REM sp3 1190 DATA 0,0,0,0,0,0,63,255 1200 DATA 252,63,255,252,63,255,252,63 1210 DATA 255,252,63,255,252,63,255,252 1220 DATA 63,255,252,63,255,252,63,255 1230 DATA 252,63,255,252,63,255,252,63 1240 DATA 255,252,63,255,252,63,255,252 1250 DATA 63,255,252,63,255,252,63,255 1260 DATA 252,0,0,0,0,0,0 1270 REM sp4 1280 DATA 0,0,0,0,0,0,0,0 1290 DATA 0,31,255,248,31,255,248,31 1300 DATA 255,248,31,255,248,31,255,248 1310 DATA 31,255,248,31,255,248,31,255 1320 DATA 248,31,255,248,31,255,248,31 1330 DATA 255,248,31,255,248,31,255,248 1340 DATA 31,255,248,31,255,248,0,0 1350 DATA 0,0,0,0,0,0,0 1360 REM sp5 1370 DATA 0,0,0,0,0,0,0,0 1380 DATA 0,0,0,0,15,255,240,15 1390 DATA 255,240,15,255,240,15,255,240 1400 DATA 15,255,240,15,255,240,15,255 1410 DATA 240,15,255,240,15,255,240,15 1420 DATA 255,240,15,255,240,15,255,240 1430 DATA 15,255,240,0,0,0,0,0 1440 DATA 0,0,0,0,0,0,0 1450 REM sp6 1460 DATA 0,0,0,0,0,0,0,0 1470 DATA 0,0,0,0,0,0,0,7 1480 DATA 255,224,7,255,224,7,255,224 1490 DATA 7,255,224,7,255,224,7,255 1500 DATA 224,7,255,224,7,255,224,7 1510 DATA 255,224,7,255,224,7,255,224 1520 DATA 0,0,0,0,0,0,0,0 1530 DATA 0,0,0,0,0,0,0 1540 REM sp7 1550 DATA 0,0,0,0,0,0,0,0 1560 DATA 0,0,0,0,0,0,0,0 1570 DATA 0,0,3,255,192,3,255,192 1580 DATA 3,255,192,3,255,192,3,255 1590 DATA 192,3,255,192,3,255,192,3 1600 DATA 255,192,3,255,192,0,0,0 1610 DATA 0,0,0,0,0,0,0,0 1620 DATA 0,0,0,0,0,0,0 1630 REM sp8 1640 DATA 0,0,0,0,0,0,0,0 1650 DATA 0,0,0,0,0,0,0,0 1660 DATA 0,0,0,0,0,1,255,128 1670 DATA 1,255,128,1,255,128,1,255 1680 DATA 128,1,255,128,1,255,128,1 1690 DATA 255,128,0,0,0,0,0,0 1700 DATA 0,0,0,0,0,0,0,0 1710 DATA 0,0,0,0,0,0,0 1720 REM sp9 1730 DATA 0,0,0,0,0,0,0,0 1740 DATA 0,0,0,0,0,0,0,0 1750 DATA 0,0,0,0,0,0,0,0 1760 DATA 0,255,0,0,255,0,0,255 1770 DATA 0,0,255,0,0,255,0,0 1780 DATA 0,0,0,0,0,0,0,0 1790 DATA 0,0,0,0,0,0,0,0 1800 DATA 0,0,0,0,0,0,0 1810 REM sp10 1820 DATA 0,0,0,0,0,0,0,0 1830 DATA 0,0,0,0,0,0,0,0 1840 DATA 0,0,0,0,0,0,0,0 1850 DATA 0,0,0,0,126,0,0,126 1860 DATA 0,0,126,0,0,0,0,0 1870 DATA 0,0,0,0,0,0,0,0 1880 DATA 0,0,0,0,0,0,0,0 1890 DATA 0,0,0,0,0,0,0 1900 REM sp11 1910 DATA 0,0,0,0,0,0,0,0 1920 DATA 0,0,0,0,0,0,0,0 1930 DATA 0,0,0,0,0,0,0,0 1940 DATA 0,0,0,0,60,0,0,60 1950 DATA 0,0,60,0,0,0,0,0 1960 DATA 0,0,0,0,0,0,0,0 1970 DATA 0,0,0,0,0,0,0,0 1980 DATA 0,0,0,0,0,0,0 1990 REM sp12 2000 DATA 0,0,0,0,0,0,0,0 2010 DATA 0,0,0,0,0,0,0,0 2020 DATA 0,0,0,0,0,0,0,0 2030 DATA 0,0,0,0,0,0,0,24 2040 DATA 0,0,24,0,0,0,0,0 2050 DATA 0,0,0,0,0,0,0,0 2060 DATA 0,0,0,0,0,0,0,0 2070 DATA 0,0,0,0,0,0,0 2080 REM sp13 2090 DATA 0,0,0,0,0,0,0,0 2100 DATA 0,0,0,0,0,0,0,0 2110 DATA 0,0,0,0,0,0,0,0 2120 DATA 0,0,0,0,0,0,0,0 2130 DATA 0,0,8,0,0,0,0,0 2140 DATA 0,0,0,0,0,0,0,0 2150 DATA 0,0,0,0,0,0,0,0 2160 DATA 0,0,0,0,0,0,0