 Notice. New forum software under development. It's going to miss a few functions and look a bit ugly for a while, but I'm working on it full time now as the old forum was too unstable. Couple days, all good. If you notice any issues, please contact me. |
Forum Index : Microcontroller and PC projects : PicoMiteVGA DEMO
  Page 9 of 9 |
|||||
| Author | Message | ||||
javavi Guru  Joined: 01/10/2023 Location: UkrainePosts: 447 |
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. |
||||
| javavi Guru Joined: 01/10/2023 Location: UkrainePosts: 447 |
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 |
||||
| Volhout Guru Joined: 05/03/2018 Location: NetherlandsPosts: 5017 |
Few more lines and you have a game... Great !! Volhout PicomiteVGA PETSCII ROBOTS |
||||
| Page 9 of 9 |
|||||
 Print this page |
 |
The Back Shed's forum code is written, and hosted, in Australia. | © JAQ Software 2025 |
