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
|
10 GOSUB 4000 : REM initialize
20 GOSUB 4100 : REM cursor off
30 T$ = "Hello, World"
40 GOSUB 4500 : REM print string
999 GOTO 999
4000 OUT 0, &H30 : REM function set - 8 bit
4010 OUT 1, 0 : REM max brightness
4020 OUT 0, 1 : REM clear display
4030 OUT 0, &H0F : REM display on, cursor on, blink on
4040 RETURN
4099 REM turn cursor off
4100 OUT 0, &H0C : REM display on, cursor off
4110 RETURN
4199 REM turn cursor on
4200 OUT 0, &H0F : REM display on, cursor on, blin on
4210 RETURN
4299 REM clear screen
4300 OUT 0, 1
4310 RETURN
4399 REM goto X, Y
4400 DA = &H80 + (&H40 * Y) + X
4410 OUT 0, DA
4420 RETURN
4499 REM print string
4500 FOR I=1 to LEN(T$)
4510 OUT 1, ASC(MID$(T$, I, 1))
4520 NEXT I
4530 RETURN
|
