:ClrHome
:Disp " )------------("
:Disp "( JUMP 2 )"
:Disp " )------------("
:Disp " zero gravity "
:Disp " "
:Disp " [Programed by]"
:Disp " Austn Allman"
:Pause
:ClrHome
:{-}2.9375→Xmin
:2.9375→Xmax
:{-}1.9375→Ymin
:1.9375→Ymax
:AxesOff
:ClrDraw
:38→A
:2→B
:{-}.5→C
:{-}.5→D
:{-}.5→E
:{-}.5→F
:{-}.5→G
:{-}.5→H
:{-}.5→I
:38→J
:0→K
:1→V
:100→Z
:0→X
:1→L
:1→S
:0→θ
:Disp " ","> NORMAL"," "," HARD"
:Lbl 4
:getKey→θ
:If θ=25 and L=2
:Then
:ClrHome
:Disp " ","> NORMAL"," "," HARD"
:1→L
:End
:If θ=34 and L=1
:Then
:ClrHome
:Disp " "," NORMAL"," ","> HARD"
:2→L
:End
:If θ=45
:Then
:60→X
:Goto 3
:End
:If θ≠105
:Goto 4
:{{-}3,{-}2,{-}1,0,1,2,3}→{L1}
:Lbl 1
:{C,D,E,F,G,H,I}→{L2}
:{L2}+.5→{L3}
:Plot1xyLine ,{L1},{L2},{dot})
:Plot2xyLine ,{L1},{L3},{dot})
:Pxl-On(A,B)
:Pxl-On(J,K)
:If X<30-L
:Then
:Line({-}3,1.9375,3,1.9375)
:Line({-}3,{-}1.9375,3,{-}1.9375)
:End
:If X=30-L
:Then
:Line({-}3,1.9375,2,1.9375)
:Line({-}3,{-}1.9375,2,{-}1.9375)
:End
:If X=30
:Then
:Line({-}3,1.9375,1,1.9375)
:Line({-}3,{-}1.9375,1,{-}1.9375)
:End
:If X=31 or X=32
:Then
:Line({-}3,1.9375,0,1.9375)
:Line({-}3,{-}1.9375,0,{-}1.9375)
:End
:If X=30 or X=58
:Then
:Line(1,G+.5,1,2)
:Line(1,G,1,{-}2)
:End
:If X=31 or X=32 or X=60
:Then
:Line(0,F+.5,0,2)
:Line(0,F,0,{-}2)
:End
:If X=30-L or X=56
:Then
:Line(2,H+.5,2,2)
:Line(2,H,2,{-}2)
:End
:If X=34
:Then
:Line({-}3,1.9375,{-}1,1.9375)
:Line({-}3,{-}1.9375,{-}1,{-}1.9375)
:Line({-}1,E+.5,{-}1,2)
:Line({-}1,E,{-}1,{-}2)
:End
:If X=36
:Then
:Line({-}3,1.9375,{-}2,1.9375)
:Line({-}3,{-}1.9375,{-}2,{-}1.9375)
:Line({-}2,D+.5,{-}2,2)
:Line({-}2,D,{-}2,{-}2)
:End
:D→C
:E→D
:F→E
:G→F
:H→G
:I→H
:randInt({-}2,2)→θ
:If X>28
:randInt({-}3,3)→θ
:If H≥1.5
:randInt({-}2,0)→θ
:If H≤{-}2
:randInt(0,2)→θ
:θ*.5→θ
:θ+H→I
:If I>1.5
:1.5→I
:If I<{-}2
:{-}2→I
:Lbl 2
:If X≤5
:V*{-}1→V
:If X>5
:1→V
:If θ=21 and A=J-1 and B=K
:{-}1→V
:If θ=21 and A=J+1 and B=K
:{-}1→V
:getKey→θ
:If θ=45 or X=31 or X=60
:Goto 3
:If θ=105
:Then
:Pause
:Goto 2
: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<Z and pxl-Test(A+1,B)≠1
:Then
:Pxl-Off(A,B)
:A+1→A
:Pxl-On(A,B)
:End
:If A=0
:Goto 3
:If A=62
:Goto 3
:If θ=26 and pxl-Test(A,B+1)≠1
:Then
:Pxl-Off(A,B)
:B+1→B
:Pxl-On(A,B)
:End
: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 pxl-Test(A-1,B)=1 and S=1
:Then
:{-}100→Z
:{-}1→S
:End
:If pxl-Test(A+1,B)=1 and S={-}1
:Then
:100→Z
:1→S
:End
:If B=1
:Goto 3
:If θ=21
:A-16S→Z
:If A=Z
:100S→Z
:If B>62
:Then
:B-16→B
:K-16→K
:If K<1
:1→K
:X+L→X
: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 pxl-Test(A-1,B)=1 and B=K and J-1=A
:Goto 3
:If J+1=A and B=K
:Then
:Pxl-Off(A,B)
:A+1→A
:Pxl-On(A,B)
:End
:If J-1=A and B=K
:Then
:Pxl-Off(A,B)
:A-1→A
:Pxl-On(A,B)
:End
:If J>A
:Then
:Pxl-Off(J,K)
:J-1→J
:Pxl-On(J,K)
:End
:If J<A
:Then
:Pxl-Off(J,K)
:J+1→J
:Pxl-On(J,K)
:End
:If pxl-Test(A,B+1)=1 and A=J and K+1=B
:Goto 3
:If pxl-Test(A,B-1)=1 and A=J and K-1=B
:Goto 3
:If K+1=B and A=J
:Then
:Pxl-Off(A,B)
:B+1→B
:Pxl-On(A,B)
:End
:If K-1=B and A=J
:Then
:Pxl-Off(A,B)
:B-1→B
:Pxl-On(A,B
:End
:If K<B
:Then
:Pxl-Off(J,K)
:K+1→K
:Pxl-On(J,K)
:End
:If K>B
:Then
:Pxl-Off(J,K)
:K-1→K
:Pxl-On(J,K)
:End
:Goto 2
:Lbl 3
:PlotsOff
:ClrDraw
:Zoom Out
:ClrHome
:AxesOn
: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→S
:0→V
:0→θ
:ClrList{L1},{L2},{L3}
:If X≠31 and X≠60
:Then
:Disp "GAME OVER"
:Pause
:End
:0→X
:ClrHome
Austin Allman