blob: e9276fb2516c0d7742400b87d1eabdab5a454d26 (
plain)
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
|
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, &H38 : REM 2 lines, 8-bit
4020 GOSUB 4299
4030 OUT 0, &H0F : REM Display on, cursor blinking
4040 RETURN
4099 REM turn cursor off
4100 OUT 0, &H0C : REM display on, cursor off
4110 RETURN
4299 REM clear screen
4300 OUT 0, &H01 : REM Clear display screen
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
|
