Warning

You're browsing the old v2.x documentation. This version is no longer maintained. Click here to go the v3.x documentation.

Differences

This shows you the differences between two versions of the page.

--- examples [2019/06/26 13:35] – neils
+++ examples [2020/11/12 14:48] (current) – neils
@@ Line 19: / Line 19: @@
     if nx < max then goto loop
   end
+===== Example 2: Kaleidoscope effect =====
+Submitted by Eugenio Rapella. Note that it is valid to use line numbers instead of labels in **XC=BASIC**.
+const D12=12
+const D55=55296
+const D40=40
+const D23=23
-===== Example 2: Bouncing ball =====
+poke 53280,0:poke 53281,0
+for t=0 to 999
+poke 1024+t,81 : rem pallino
+poke 55296+t,0 : rem nero
+next t
+let x!=cast!(D12*rnd%())
+let y!=cast!(D12*rnd%())
+let c!=rshift!(rnd!(),4)
+m1 = D40 * y! : m2 = D40 * x!
+n1 = D23 - x! : n2 = D23 - y!
+poke D55+x!+m1,c!
+poke D55+y!+m2,c!
+poke D55+n1+m1,c!
+poke D55+n2+m2,c!
+poke D55+x!+D40*n2,c!
+poke D55+y!+D40*n1,c!
+poke D55+n1+D40*n2,c!
+poke D55+n2+D40*n1,c!
+goto 60
+===== Example 3: Bouncing ball =====
   rem ** bouncing ball **
@@ Line 62: / Line 94: @@
     return
-===== Example 3: USR() function =====
+===== Example 4: USR() function =====
 This example implements the << (left shift) operation on an integer for demonstration purposes.
@@ Line 87: / Line 119: @@
     "
-===== Example 4: Puralax!, a game written in XC=BASIC =====
-  * Read the [[https://github.com/neilsf/XC-BASIC/blob/master/examples/puralax/puralax.bas|source code]]
-  * Download the [[https://github.com/neilsf/XC-BASIC/blob/master/examples/puralax/puralax.prg|compiled program]]