41 lines
1.1 KiB
QBasic
41 lines
1.1 KiB
QBasic
BORDER INK_BLACK
|
|
COLOR INK_WHITE + PAPER_BLACK
|
|
CLRSCR
|
|
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
|
|
W = 0
|
|
MENU_BLINK:
|
|
LOCATE 3 8 PRINT "PRESS CTRL"
|
|
LOCATE 4 9 PRINT "TO PLAY"
|
|
UPDATESCR
|
|
INC W
|
|
IF KEYPRESSED BTN_A THEN GOTO MAIN_GAME END
|
|
IF W < 25 THEN
|
|
GOTO MENU_BLINK
|
|
END
|
|
MENU_BLINK2:
|
|
LOCATE 3 8 PRINT " "
|
|
LOCATE 4 9 PRINT " "
|
|
UPDATESCR
|
|
INC W
|
|
IF KEYPRESSED BTN_A THEN GOTO MAIN_GAME END
|
|
IF W < 50 THEN GOTO MENU_BLINK2 END
|
|
W = 0
|
|
GOTO MENU_BLINK
|
|
MAIN_GAME:
|
|
CLRSCR
|
|
GOSUB PINTA_RED
|
|
LOCATE 6 1 PRINT "0"
|
|
LOCATE 9 1 PRINT "0"
|
|
UPDATESCR
|
|
GOTO MAIN_GAME
|
|
PINTA_RED:
|
|
PUTCHAR 7 0 &HD1 INK_WHITE + PAPER_BLACK
|
|
PUTCHAR 7 2 &HD1 INK_WHITE + PAPER_BLACK
|
|
PUTCHAR 7 4 &HD1 INK_WHITE + PAPER_BLACK
|
|
PUTCHAR 7 6 &HD1 INK_WHITE + PAPER_BLACK
|
|
PUTCHAR 7 8 &HD1 INK_WHITE + PAPER_BLACK
|
|
PUTCHAR 7 10 &HD1 INK_WHITE + PAPER_BLACK
|
|
RETURN
|