Takes a string and “shoots” it into a larger version.
Content
Image Gallery
Source Code
200 LET A$="ALGIS E. GEDRIS"
210 PRINT AT 0,0; INK 7;"ALGIS E. GEDRIS"
220 FOR X=0 TO 127
230 FOR Y=0 TO 7
235 IF NOT POINT (X,Y+168) THEN GO TO 299
240 PLOT 2*X,3*Y+80
245 PLOT 0,0: DRAW INK 2; OVER 1;2*X,3*Y+79
250 PLOT 0,0: DRAW OVER 1;2*X,3*Y+79
252 PRINT AT 21,0;A$
255 BEEP .01,7
260 PLOT 2*X,3*Y+81
299 NEXT Y
300 NEXT X
500 STOP
9998 SAVE "TITL/SHOOT" LINE 200