Last active
December 4, 2019 11:02
-
-
Save sassquad/831f7a7372381131fec66401ce5d998c to your computer and use it in GitHub Desktop.
BBC BASIC Tesla Cybertruck
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| MODE1 | |
| VDU 23;8202;0;0;0; | |
| VDU29,240;312; | |
| X=100:Y=0:L=0 | |
| PRINTTAB(10,2)"TESLA CYBERTRUCK"; | |
| REPEAT | |
| PLOT 69,X,Y | |
| X=X-Y/16 | |
| Y=Y+X/16 | |
| L=L+1 | |
| UNTIL L>100 | |
| VDU29,1050;312; | |
| X=100:Y=0:L=0 | |
| REPEAT | |
| PLOT 69,X,Y | |
| X=X-Y/16 | |
| Y=Y+X/16 | |
| L=L+1 | |
| UNTIL L>100 | |
| VDU29,0;0; | |
| MOVE 10,312:DRAW 100,312:DRAW 200,432:DRAW 280,432:DRAW 360,312:DRAW 910,332 | |
| DRAW 1010,432:DRAW 1090,432:DRAW 1180,332 | |
| DRAW 1240,342:DRAW 1260,542 | |
| DRAW 580,670:DRAW 0,480:DRAW 10,312 | |
| MOVE 0,480:DRAW 1260,542 | |
| MOVE 220,530:DRAW 820,560 | |
| DRAW 810,610:DRAW 580,650:DRAW 220,530 | |
| MOVE 360,312:DRAW 370,535 | |
| MOVE 620,322:DRAW 620,545 | |
| MOVE 825,332:DRAW 828,518 | |
| DRAW 825,560 | |
| REPEAT | |
| VDU 19,7,RND(7);0; | |
| TIME=0:REPEAT UNTIL TIME=20 | |
| UNTIL FALSE |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment