Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-11-20 03:32:05 +00:00
Code Issues Projects Releases Wiki Activity

added missing doc picture

Browse Source
This commit is contained in:
Irmen de Jong 2020-10-10 02:51:02 +02:00
parent 56d530ff04
commit d31cf766eb
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
docs/source/_static/primes_cx16.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 14 KiB

12
examples/textelite.p8
View File

@ -12,6 +12,10 @@ main {
txt.lowercase() txt.lowercase()
txt.print("\n--> TextElite conversion to Prog8 <--\n") txt.print("\n--> TextElite conversion to Prog8 <--\n")
ubyte systemNr
; for systemNr in [galaxy.numforLave, galaxy.numforZaonce, galaxy.numforDiso] { ; TODO fix compiler crash, should be able to iterate over array literal
galaxy.init(1) galaxy.init(1)
repeat galaxy.numforLave+1 { repeat galaxy.numforLave+1 {
galaxy.generate_next_planet() galaxy.generate_next_planet()
@ -24,12 +28,6 @@ main {
} }
planet.display(false) planet.display(false)
galaxy.init(1)
repeat galaxy.numforDiso+1 {
galaxy.generate_next_planet()
}
planet.display(false)
repeat { repeat {
str input = "????????" str input = "????????"
txt.print("\nEnter system number 0-255 q=quit: ") txt.print("\nEnter system number 0-255 q=quit: ")
@ -37,7 +35,7 @@ main {
if input[0]=='q' if input[0]=='q'
break break
ubyte systemNr = lsb(conv.str2uword(input)) systemNr = lsb(conv.str2uword(input))
galaxy.init(1) galaxy.init(1)
galaxy.generate_next_planet() ; always at least planet 0 (separate to avoid repeat ubyte overflow) galaxy.generate_next_planet() ; always at least planet 0 (separate to avoid repeat ubyte overflow)
repeat systemNr { repeat systemNr {