Here - 1000 BiT

MOVING PICTURES10 REM JUMPING J15 POKE 53281,0:PRINT"red clr"20X=10:Y=10:D=125 FOR J=1 TO 6: FOR 1=1 TO 629 A$="rev sp off":REM INVERSE SPACE30 GOSUB 100:REM DRAW34A$="":REM SPACE35 GOSUB 100:REM ERASE40Y = Y-D:REM MOVE50 NEXT I55 D - -D:REM REVERSE DIRECTION60 NEXTJ80 PRINT "wht"90 END100 REM101 REM DRAW THE J102 REM104PRINT"hm"105 FOR L= 1 TO Y:PRINT:NEXT109FORK = 1 TO 5110 PRINT TAB(X);" ";A$111 NEXTK120 PRINT TAB(X);A$;" ";A$130 PRINT TAB(X];" ";A$;A$190 RETURNSave to tape or diskThe picture is the letter J. The subroutine starting in line 100 draws the J. Before youGOSUB 100 you pick what character you want the J to be, by setting A$. Look at line 29and at line 34. If you pick A$ to be " ", a single space, then the subroutine erases a Jfrom that spot.The subroutine draws the J with its upper left corner at the spot X,Y on the screen.When you change X or Y (or both), the J will be drawn in a different spot. Line 20 saysthat the first J will be drawn near the middle of the screen.The variable D tells how far the J will move from one drawing to the next. Line 20 makesD equal to 1, but line 55 changes D to -1 after six pictures have been drawn.Line 40 says that each picture will be drawn at the spot where Y is larger than the last Yby the amount D.138