Posted: 11:51am 23 Jun 2025 Copy link to clipboard
javavi Guru
OK! No restrictions, just fun! I didn’t invent this code myself, I just adapted the ready-made one to the syntax of MMBASIC and slightly modified it for dynamics.
Posted: 04:29pm 26 Jun 2025 Copy link to clipboard
javavi Guru
Galaxian
MODE 2 Text 160,0,"000000","CT",7,1 For R=0 To 2: Proc(16*R,238,6,1):Next Proc(140,230,12,7):Proc(150,192,2,7):Proc(154,50,17,6) For R=1 To 8 Proc(32*R,150,9,8):Proc(32*R,120,10,9):Proc(32*R,90,8,14) Next End
Sub Proc(X0,Y0,Q,C) Color Map(C) A=1:W=X0:U=W+2*Q For X=1 To (Q+2)/2 Y=Y0:I=1 Do If I And A Then Box W,Y,2,2: Box U,Y,2,2 Inc Y,-2:Inc I,I Loop Until I>A A=A*(Q+1-X)/X Inc W,2:Inc U,-2 Next End Sub
Posted: 08:16pm 26 Jun 2025 Copy link to clipboard
