Takes a string and “shoots” it into a larger version.
Appears on
Capital Area Timex Sinclair User Group’s Library Tape.
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