Skip to content

Instantly share code, notes, and snippets.

@PollRobots

PollRobots/peg-4-test.bas

Created February 2, 2013 23:04
Show Gist options
  • Save PollRobots/4699642 to your computer and use it in GitHub Desktop.
Save PollRobots/4699642 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
peg-4-test.bas
10 GOSUB 100
20 GOSUB 200
30 IF A <> 0 THEN GOTO 10
40 PRINT "Goodbye!"
50 END
100 '----------------------
101 ' read a number into A
102 '----------------------
110 PRINT "Enter a number";
120 INPUT A
130 RETURN
200 '-----------------
201 ' print A A^2 A^3
202 '-----------------
210 PRINT A, A*A, A*A*A
220 RETURN
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment