diff options
Diffstat (limited to 'sb_vfd/vfd.bas')
-rw-r--r-- | sb_vfd/vfd.bas | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/sb_vfd/vfd.bas b/sb_vfd/vfd.bas deleted file mode 100644 index aed987c..0000000 --- a/sb_vfd/vfd.bas +++ /dev/null @@ -1,35 +0,0 @@ -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 |