10 REM DANCING MAN 20 REM Computing with the Amstrad 25 REM Issue 1 30 MODE 1 40 CLS 50 GOSUB 150 60 PRINT CHR$(250) 70 GOSUB 150 80 PRINT CHR$(249) 90 GOSUB 150 100 PRINT CHR$(251) 110 GOSUB 150 120 PRINT CHR$(250) 130 GOTO 50 140 REM************** 150 REM position man 160 FOR delay=1 TO 100 170 NEXT delay 180 LOCATE 20,10 190 RETURN 200 REM**************