HUDdson/examples/example.bas at master · FrancescoGd/HUDdson · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
REM =========================================================================
REM Very Basic Example usage of HUDdson library
REM This is part of the HUDdson repository:
REM https://github.com/FrancescoGd/HUDdson
REM
REM To compile this example you need intybasic_epilogue.asm and
REM intybasic_prologue.asm distributed with IntyBASIC.
REM =========================================================================

REM Some initial values...
#HudScore = 2222
HudLevel = 11

REM Initialize the library...
GOSUB HudInit

REM Wait for user input...
PRINT AT 44, "PRESS ANY KEY"
DO
    WAIT
    k = CONT.KEY
LOOP WHILE k = 12

REM Simulate score and level update
REM NOTE: I decrease the values to verify that the HUD row is correctly cleared
#HudScore = 15
HudLevel = 2
REM We also test support for HudColor
HudColor = $0005

REM Update the HUD display...
GOSUB HudUpdate

REM Program stops forever
PRINT AT 40, "I AM WAITING FOREVER"

WAIT

INFINITE_WAIT:
GOTO INFINITE_WAIT

INCLUDE "../src/HUDdson.bas"