Untitled

10 CLS:X=746:P=998:FORI=1T01000:PRINT@0,"SCORE ="S;:S=S+1:IFPEEK(1
5360+X+64)=420ORPEEK(15360+X)=42THENPRINT®X,"H";:PRINT@896,"";:END
ELSEPRINT@X,"H";:PRINT@P,"*    *":C=RND(3)-2:P=P+C:K=PEEK(14440):
IFK=32THENX=X-1:NEXTELSEIFK=64THENX=X+1:NEXTELSENEXT
20 REM DOWNHILL RACER BY CHRISTOPHER LAMPTON
30 REM 8317-14TH AVE., APT. 201, HYATTSVILLE, MD 20783