mirror of
https://github.com/sehugg/8bitworkshop.git
synced 2024-11-18 18:07:35 +00:00
25 lines
480 B
QBasic
25 lines
480 B
QBasic
rem Hello World
|
|
|
|
playfield:
|
|
................................
|
|
......X.X.XXX.X...X...XXX.......
|
|
......X.X.X...X...X...X.X.......
|
|
......XXX.XX..X...X...X.X.......
|
|
......X.X.X...X...X...X.X.......
|
|
......X.X.XXX.XXX.XXX.XXX.......
|
|
................................
|
|
.....X...X.XXX.XX..X...XX.......
|
|
.....X...X.X.X.X.X.X...X.X......
|
|
.....X.X.X.X.X.XX..X...X.X......
|
|
.....XX.XX.XXX.X.X.XXX.XX.......
|
|
end
|
|
|
|
COLUPF = 22
|
|
COLUBK = 2
|
|
|
|
mainloop
|
|
drawscreen
|
|
score = score + 1
|
|
goto mainloop
|
|
|