HELLO!

I enjoy ASCII art. Bitwise shifts are cool.

hello.bas

60 GOSUB 600
80 REM SPELL HELL0
110 IC = 53
111 GOSUB 300
115 IC = 18
116 GOSUB 500
117 IC = 46
118 GOSUB 400
120 IC = 21
121 GOSUB 500
123 IC = 18
124 GOSUB 500
125 IC = 42
126 GOSUB 400
130 IC = 55
131 GOSUB 300
132 IC = 18
133 GOSUB 500
134 IC = 42
135 GOSUB 400
140 IC = 21
141 GOSUB 500
143 IC = 18
144 GOSUB 500
146 IC = 10
147 GOSUB 400
150 IC = 53
151 GOSUB 300
152 IC = 54
153 GOSUB 300
154 IC = 46
155 GOSUB 400
198 GOSUB 600
199 GOTO 9999
300 REM PRINT ICON
310 LET RE = IC - (INT(IC/2)*2)
320 IF RE = 1 THEN PRINT CHR$(211);
330 IF RE = 0 THEN PRINT " ";
340 IF IC<1 THEN GOTO 399
350 IC = IC / 2
360 IC = INT(IC)
370 GOTO 310
399 RETURN
400 REM PRINT AND END LINE
480 PRINT ""
410 GOSUB 300
499 RETURN
500 REM PRINT AND A SPACE
510 GOSUB 300
520 PRINT " ";
599 RETURN
600 REM LINE
650 PRINT "------";
655 PRINT "------";
660 PRINT "--------"
699 RETURN

9999 PRINT ""

Animation of BASIC program - HELLO