LinuxQuestions.org
Review your favorite Linux distribution.
Go Back   LinuxQuestions.org > Blogs > TheOuterLinux
User Name
Password

Notices


Rate this Entry

TheOuterLinux Mμse - An intro for the Acorn Electron (WIP)

Posted 06-22-2020 at 05:42 PM by TheOuterLinux

Cross-posted from: https://theouterlinux.gitlab.io/Publ...cles/INTRO.BBC
RSS for website version: https://theouterlinux.gitlab.io/Publ...ticleFeed.atom

If you have seen my RetroGrab video (https://peertube.mastodon.host/video...a-6f3ba6a2b6b0), then you've seen this too. It draws perspective lines and then displays the test "THEOUTERLINUX PRESENTS...". It says it is for the Acorn Electron, but it will run on any BBC BASIC interpreter.

Code:
10 REM An intro written for the Acorn Electron
 20 REM by TheOuterLinux
 25 REM https://theouterlinux.gitlab.io
 26 REM Last updated 2020/02/11
 27 REM Discussion URL: https://www.reddit.com/r/TheOuterLinux/comments/esgw3y/acorn_electron_introbbc/.compact
 29
 30 CLS
 40 MODE 0
 50
 60 REM Change the following variables as needed...
 70 SCREENW=1280
 80 SCREENH=1024
 90 DETAIL=8
100
110 REM Do not edit below...
120 X=SCREENW/2
130 Y=SCREENH/2
140 KX=X/DETAIL
150 KY=Y/DETAIL
160 MOVE 0,Y
170 DRAW SCREENW, Y
180 MOVE X,Y
190 FOR I%=0 TO DETAIL
200 MOVE X,Y
210 DRAW KX*I%,0
220 MOVE X,Y
230 DRAW KX*I%*2,0
240 MOVE X,Y
250 DRAW X+KX*I%,0
260 MOVE X,Y
270 DRAW SCREENW,KY*I%
280 MOVE X,Y
290 DRAW 0,KY*I%
300 NEXT
310 Y=0
320 FOR I%=0 TO DETAIL*2
330 MOVE 0,Y+(KY*I%)/2
340 DRAW SCREENW, Y+(KY*I%)/2
350 NEXT
360 VDU 5
370 MOVE SCREENW/2-200,SCREENH/2+100
380 PRINT "THEOUTERLINUX PRESENTS..."
390 MOVE 0,SCREENH-1
Posted in Uncategorized
Views 66 Comments 0
« Prev     Main     Next »
Total Comments 0

Comments

 

  



All times are GMT -5. The time now is 04:23 AM.

Main Menu
Advertisement
Advertisement
My LQ
Write for LQ
LinuxQuestions.org is looking for people interested in writing Editorials, Articles, Reviews, and more. If you'd like to contribute content, let us know.
Main Menu
Syndicate
RSS1  Latest Threads
RSS1  LQ News
Twitter: @linuxquestions
Facebook: linuxquestions Google+: linuxquestions
Open Source Consulting | Domain Registration