Create accountLogin

Recent searches

No recent searches

Search options

Only available when logged in.
mstdn.social is one of the many independent Mastodon servers you can use to participate in the fediverse.
A general-purpose Mastodon server with a 500 character limit. All languages are welcome.

Administered by:

Server stats:

15K
active users

mstdn.social: AboutStatusProfiles directoryPrivacy policy

Mastodon: AboutGet the appKeyboard shortcutsView source codev4.3.4

#bbcbasic

2 posts2 participants0 posts today
Public
EdS

BBC Basic graphics demo - done in 700s on a BBC Micro(*)

Source code in the alt text. Or below. Program is called "3D" and was shown in the BBC's Computer Literacy Program, in Micro Live 2. See
retrocomputingforum.com/t/arm-

bbcmic.ro/#%7B%22v%22%3A1%2C%2

(*) in-browser emulation!

#retrocomputing #bbcbasic #bbcmicro #jsbeeb
#owlet

monochrome computer screen reading "Done in 700.6s" and "STOP at line 182" Most of screen is a hidden-line removed rotationally symmetrical shape with vertical axis of symmetry, delineated by lines in planes parallel to the screen surface program is as follows 10REM > 3D 11REPEAT 12TIME=0 20MODE0:VDU29,640;512;:XS=2:YS=6*4 30VDU23,1,0;0;0;0; 40ON ERROR GOTO 190 50A=640:B=A*A:C=512 60Z=1/3:O=24/A:C=C/A 70O%=&45 80FORX%=0TOA STEPXS:S=X%*X% 90P=SQR(B-S):M=-P*Z:N=M 100PLOT69,-X%,M:PLOT69,X%,M 110FORI=YS-P TOP STEPYS 120R=SQR(S+I*I) 130Y=I*Z+(R-A)*SIN(O*R)*C 140IFY>M M=Y:GOTO170 150IFY>N NEXT,:STOP 160N=Y 170PLOT69,-X%,Y:PLOT69,X%,Y 180NEXT, 181PRINT "Done in "TIME/100"s" 182STOP 185UNTIL 0 190ON ERROR OFF 200CLS 210MODE1 220VDU23,1,0;0;0;0; 230*EXEC BASICBM
Public
BigEd

here's my #introduction ... very much into computer history and history of computation, the BBC's Computer Literacy Project, computer museums, assembly language programming, a bit of Basic, running programs in the browser and sometimes running programs from the command line.

my one claim to fame is having a bit to do with visual6502.

#bbcmicro#mos6502#bbcbasic
ExploreLive feeds
About