0 CLS:FORJ=1TO5:FORI=26TO1STEP-1:PRINT@I," TUNNELS ";:NEXTI,J
1 CLS:POKE30777,1:DIMA(32):F=256:FORI=1TO15:A(I)=8:NEXT:Y=231
2 K=RND(3):IFK=1,A(31)=A(31)+32ELSEIFK=2,A(31)=A(31)-32
3 CLS:PRINT@Y,"##>";:IFA(31)<32,A(31)=32ELSEIFA(31)>128,A(31)=128
4 PRINT@0,"SCORE:";S:IFG=50,G=1:F=F-32:S=S+100
5 FORX=1TO30STEP2:E=X+A(X)+96:PRINT@E,"**";:PRINT@E+F,"**";
6 A(X)=A(X+2):NEXT:A$=INKEY$:G=G+1:
7 IFY-7=A(7)+96ORY-7=A(7)+96+F,PRINT@268,"YOU CRASHED.":END
8 IFA$="Q"ANDY>32,Y=Y-32ELSEIFA$="A"ANDY<480,Y=Y+32
9 GOTO2
