mirror of
https://github.com/sehugg/8bitworkshop.git
synced 2024-07-04 12:29:31 +00:00
25 lines
483 B
QBasic
25 lines
483 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
|
|||
|
|