Mes coses
This commit is contained in:
5
test.bas
5
test.bas
@@ -1,6 +1,6 @@
|
||||
BORDER INK_BLACK
|
||||
COLOR INK_WHITE + PAPER_BLACK
|
||||
CLRSCR
|
||||
CLS
|
||||
LOCATE 4 2 PRINT CHR &h87, CHR &h85, CHR &h87, CHR &h85, CHR &h87, CHR &h85, CHR &h87, CHR &h81
|
||||
LOCATE 4 3 PRINT CHR &h85, CHR &h85, CHR &h85, CHR &h85, CHR &h85, CHR &h85, CHR &h85, CHR &h84
|
||||
LOCATE 4 4 PRINT CHR &h87, CHR &h81, CHR &h8D, CHR &h85, CHR &h85, CHR &h85, CHR &h8D, CHR &h85
|
||||
@@ -24,7 +24,7 @@ MENU_BLINK2:
|
||||
W = 0
|
||||
GOTO MENU_BLINK
|
||||
MAIN_GAME:
|
||||
CLRSCR
|
||||
CLS
|
||||
GOSUB PINTA_RED
|
||||
LOCATE 6 1 PRINT "0"
|
||||
LOCATE 9 1 PRINT "0"
|
||||
@@ -38,3 +38,4 @@ PINTA_RED:
|
||||
PUTCHAR 7 8 &HD1 INK_WHITE + PAPER_BLACK
|
||||
PUTCHAR 7 10 &HD1 INK_WHITE + PAPER_BLACK
|
||||
RETURN
|
||||
|
||||
|
||||
Reference in New Issue
Block a user