Skip to content

Instantly share code, notes, and snippets.

@zeroeth

zeroeth/bars_and_bars.bas

Last active July 4, 2016 02:42
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save zeroeth/bbf2ac58bfa7abb5901ada02a4bf9e2b to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save zeroeth/bbf2ac58bfa7abb5901ada02a4bf9e2b to your computer and use it in GitHub Desktop.
Download ZIP
Applesoft lines
Raw
bars_and_bars.bas
10 GR
11 REM MAX NUM LINES
12 MAX = 40
13 CUR = 0
20 REM RANDOMIZE VALUES
21 BPOSITION = RND(1) * 40
22 BSTART = RND(1) * 15
23 BEND = RND(1) * 15 + 25
24 COLOR = RND(1) * 16
25 TYPE = INT(RND(1) * 2 + 1)
30 REM RANDOM LINE TYPE
31 ON TYPE GOSUB 100, 200
32 CUR = CUR + 1
33 IF CUR > MAX GOTO 40
34 GOTO 20
40 END
100 REM VERTICAL BAR
101 VLIN BSTART, BEND AT BPOSITION
102 RETURN
200 REM HORIZONTAL BAR
201 HLIN BSTART, BEND AT BPOSITION
202 RETURN
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment