Snake: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,223: / Line 1,223: @@
 rem by Gemino Smothers 2022
 rem www.lucidapogee.com
+title "Snake!"
 define gfxx = 330, gfxy = 296
@@ Line 1,237: / Line 1,239: @@
 let sy[0] = gfxy / 2
+fill on
-title "Snake!"
+bgcolor 128, 64, 0
+cls graphics
 resize 0, 0, gfxx + 10, gfxy + 56
 center
+formid 1
-fill on
+staticform 1, 1, 100, 14
-bgcolor 128, 64, 0
+fgcolor 255, 255, 0
-cls
+bgcolor 0, 80, 0
+colorform
 alert "Snake! by Gemino Smothers 2022"
@@ Line 1,368: / Line 1,374: @@
 	fgcolor 255, 255, 0
-	cursor 1, 1
+	formid 1
-	print "Score: ", score
+	formtext "Score: ", score
+	updateform
 	let delay = clock
@@ Line 1,382: / Line 1,389: @@
 playwave "examples\boom.wav"
+alert "Game over! Score: ", score</syntaxhighlight>
-alert "Game over! Score: ", score
-end</syntaxhighlight>
 ==={{header|FreeBASIC}}===