:ClrHome
:Disp " "
:Disp " )------------("
:Disp "( JUMP )"
:Disp " )------------("
:Disp " "
:Disp " [programed by]"
:Disp " Austin Allman"
:Pause
:ClrHome
:{-}2.9375→Xmin
:2.9375→Xmax
:{-}1.9375→Ymin
:1.9375→Ymax
:AxesOff
:FnOff
:ClrDraw
:61→A
:2→B
:{-}2→C
:{-}2→D
:{-}2→E
:{-}2→F
:{-}2→G
:{-}2→H
:{-}2→I
:61→J
:1→K
:1→L
:0→M
:100→Z
:1→V
:0→X
:0→θ
:0→T
:Disp " ","> NORMAL"," "," HARD"
:Lbl 4
:getKey→θ
:If θ=34 and L=1
:Then
:ClrHome
:Disp " "," NORMAL"," ","> HARD"
:2→L
:End
:If θ=25 and L≠1
:Then
:L-1→L
:ClrHome
:If L=1
:Disp " ","> NORMAL"," "," HARD"
:If L=2
:Disp " "," NORMAL"," ","> HARD"
:End
:If θ=45
:Then
:51→X
:Goto 3
:End
:If θ≠105
:Goto 4
:ClrHome
:0→θ
:{{-}3,{-}2,{-}1,0,1,2,3}→{L1}
:Lbl 1
:DispGraph
:{C,D,E,F,G,H,I}→{L2}
:Plot1xyLine ,{L1},{L2},{dot})
:Pxl-On(A,B)
:Pxl-On(J,K)
:If X<30-L
:Line({-}3,{-}1.9375,3,{-}1.9375)
:If X=30 or X=60-L
:Line(1,1.5,1,{-}2)
:If X=30
:Line({-}3,{-}1.9375,1,{-}1.9375)
:If X=31 or X=32 or X=60 or X=33
:Line(0,1.5,0,{-}2)
:If X=31 or X=32 or X=33
:Line({-}3,{-}1.9375,0,{-}1.9375)
:If X=30-L or X=60-L-L
:Line(2,1.5,2,{-}2)
:If X=30-L
:Line({-}3,{-}1.9375,2,{-}1.9375)
:If X=30+L+L
:Then
:Line({-}1,1.5,{-}1,{-}2
:Line({-}3,{-}1.9375,{-}1,{-}1.9375)
:End
:If X=30+L+L+L
:Then
:Line({-}2,1.5,{-}2,{-}2)
:Line({-}3,{-}1.9375,{-}2,{-}1.9375)
:End
:D→C
:E→D
:F→E
:G→F
:H→G
:I→H
:randInt(2,{-}2)→θ
:If X>14 or L=2
:randInt(3,{-}3)→θ
:If H≥.5
:randInt(0,{-}2)→θ
:If H≤{-}2
:randInt(2,0)→θ
:If H≤{-}2 and X≥30
:randInt(3,1)→θ
:θ*.5→θ
:H+θ→I
:Lbl 2
:If X≤5 or X=32 or X=34
:V*{-}1→V
:If X>5 and X<32
:1→V
:If X>34
:1→V
:If θ=21 and B=K and A+1=J
:{-}1→V
:getKey→θ
:If θ=105
:Then
:Pause
:Goto 2
:End
:If θ=45 or X=31 or X=60
:Goto 3
:If J+1=A and B=K
:100→Z
:If Z<A and A≠1
:Then
:Pxl-Off(A,B)
:A-1→A
:Pxl-On(A,B)
:End
:If θ=26 and pxl-Test(A,B+1)≠1
:Then
:Pxl-Off(A,B)
:B+1→B
:Pxl-On(A,B)
:End
:If B=1
:Goto 3
:If θ=24 and pxl-Test(A,B-1)≠1 and B≠2
:Then
:Pxl-Off(A,B)
:B-1→B
:Pxl-On(A,B)
:End
:If A<Z and pxl-Test(A+1,B)≠1
:Then
:Pxl-Off(A,B)
:A+1→A
:Pxl-On(A,B)
:End
:If A=62
:Goto 3
:If θ=21 and pxl-Test(A+1,B)=1
:A-8→Z
:If A=Z or A=1
:100→Z
:If B>62
:Then
:B-16→B
:K-16→K
:X+L→X
:If K<1
:1→K
:Goto 1
:End
:If V={-}1
:Goto 2
:If pxl-Test(A+1,B)=1 and B=K and J+1=A
:Goto 3
:If A>J and B≠K and pxl-Test(J+1,K)≠1
:Then
:Pxl-Off(J,K)
:J+1→J
:Pxl-On(J,K)
:End
:If A>J-1 and B=K
:Then
:Pxl-Off(J,K)
:J+1→J
:Pxl-On(J,K)
:End
:If pxl-Test(A,B+1)=1 and A=J and B-1=K
:Goto 3
:If pxl-Test(A,B-1)=1 and A=J and B+1=K
:Goto 3
:If B+1=K and A=J
:Then
:Pxl-Off(A,B)
:B-1→B
:Pxl-On(A,B)
:End
:If B-1=K and A=J
:Then
:Pxl-Off(A,B)
:B+1→B
:Pxl-On(A,B)
:End
:If B>K and pxl-Test(J,K+1)≠1
:Then
:Pxl-Off(J,K)
:K+1→K
:Pxl-On(J,K)
:End
:If B<K and pxl-Test(J,K-1)≠1
:Then
:Pxl-Off(J,K)
:K-1→K
:Pxl-On(J,K)
:End
:If A=1 and J=2 and B=K
:Goto 3
:If A+1=J and B=K
:Then
:Pxl-Off(A,B)
:A-1→A
:Pxl-On(A,B)
:If θ≠21
:100→Z
:End
:If B>K+1 and pxl-Test(J,K+1)=1
:Then
:Pxl-Off(J,K)
:K+1→K
:J-1→J
:Pxl-On(J,K)
:End
:If B<K-1 and pxl-Test(J,K-1)=1
:Then
:Pxl-Off(J,K)
:K-1→K
:J-1→J
:Pxl-On(J,K)
:End
:If A<J
:Then
:Pxl-Off(J,K)
:J-1→J
:Pxl-On(J,K)
:End
:Goto 2
:Lbl 3
:PlotsOff
:ClrDraw
:Zoom Out
:ClrHome
:AxesOn
:If X≠31 and X≠60 and X≠51
:Then
:Disp "GAME OVER"
:Pause
:End
:0→A
:0→B
:0→C
:0→D
:0→E
:0→F
:0→G
:0→H
:0→I
:0→J
:0→K
:0→L
:0→V
:0→X
:0→Z
:0→θ
:ClrHome
Austin Allman