Skip to content

Instantly share code, notes, and snippets.

@sinewalker
Last active May 25, 2020 21:10
Show Gist options
  • Select an option

  • Save sinewalker/c8fa68158a63f95c01c5eb39f354df7b to your computer and use it in GitHub Desktop.

Select an option

Save sinewalker/c8fa68158a63f95c01c5eb39f354df7b to your computer and use it in GitHub Desktop.
Pick-up Sticks: early 8-bit graphics hack (BASIC)
5 REM This is for Amstrad CPC Locomotive BASIC
10 CLS
20 WHILE 1>0
30 GRAPHICS PEN 15*RND
40 MOVE 640*RND,400*RND
50 DRAW 640*RND,400*RND
60 WEND
@sinewalker
Copy link
Author

Note that the presence of GRAPHICS PEN means that this program would not run on a CPC-464. In fact when I wrote this, around 1986-or-so, it was on the family's old/original generation CPC-6128.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment