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