1 CLS:C=28929:D=29150:POKE30777,1:A=10:B=1
2 PRINT@A+256,"-V-";:B=B+1:IFABS(10-(B/100))<8,POKERND(32)+D,159
3 POKERND(32)+D,159:PRINT@511," ";:IFRND(100)<3,POKERND(32)+D,175
4 IFPEEK(A+C)=159,7ELSEIFPEEK(A+C)=175,SOUND28,1;26,1:B=B+100
5 C$=INKEY$:IFC$<>"",J=ASC(C$):IFJ=44ANDA<29,A=A+1:GOTO2
6 IFJ=77ANDA>0,A=A-1:GOTO2ELSEGOTO2
7 PRINT"YOU HAVE DIED.YOU GOT";B;"STEPS":SOUND19,4:IFB>HS,HS=B
8 PRINT@480,"HIGH";HS;"TRY AGAIN Y/N?";:I$=INKEY$:IFI$="",8
9 IFI$="Y",1ELSEIFI$="N",ENDELSEGOTO8
