` ``2→R SetUpEditor AST 1+dim(ʟAST→dim(ʟAST ClrHome 7→Y ⁻1→S ClrHome Output(3,3,"METEθR DASH Output(4,2,"BY X. MCELWEE Output(5,3,"WITH TRENLY Output(8,1,"HIGH SCORE: Output(8,12,ʟAST(1) For(E,1,1750):End ClrHome Repeat K=45 or K=22 randInt(4,13)→A S+1→S For(V,1,8) If V=8 and not(sum(Y={A-1,A,A+1 Then ClrHome S→ʟAST(dim(ʟAST If S>ʟAST(1):Pause "High Score!":SortD(ʟAST Stop End Output(8,Y,"^" Output(V,1,"θθθθθθθθθθθθθθθθ Output(V,A-1," " Output(1,1,S For(F,1,R getKey→K If K:Output(8,Y," " If K=45 or K=22:8→V If K=45 or K=22:R→F min(16,max(1,Y+sum(DeltaList(K={24,26→Y End Output(V,1," " End End ClrHome If K=22 Then Menu("Reset Scores?","Yes",D,"No",S End If K=45:Goto S Lbl D DelVar ʟAST Pause "Scores Cleared! Lbl S SetUpEditor L₁,L₂,L₃ DelVar RDelVar EDelVar VDelVar KDelVar YDelVar ADelVar S ClrHome Return`

` ``10 print thanks! 20 goto 10`

]]>
Your code here

[[/code]] ]]>

VERSION 1.3 CODE:

` ``8→x 6→a 2→b 5→l ∟AST(1)→s 0→u Lbl 4 ClrHome Output(3,3,"METEθR DASH" Output(4,2,"BY X. MCELWEE" Output(5,3,"WITH TRENLY" Pause ClrHome Output(8,1,"HIGH SCθRE: Output(8,12,s Pause ClrHome Repeat L=0 ClrHome Output(8,X,"^ Output(B,1,"θθθθθθθθθθθθθθθθ" Output(B,A," " getKey→K if K=24 x-1→x if k=26 x+1→x if k=22 0→l b+1→b if b=8 and not(x=a or x=a+1 or x=a+2 then l-1→l Output(8,x,"* end disp l if b>8 then 2→b randInt(4,11→a end if x>16 16→x if x<1 1→x u+1→u end ClrHome if u>s then Output(3,3,"HIGH SCθRE! u→∟AST(1) Pause Stop End Stop`

Edited by Battlesquid

P.s. how do you do those code boxes? ]]>

` ``15→D 6→R SetUpEditor AST 1+dim(ʟAST→dim(ʟAST ClrHome 7→Y ⁻1→S ClrHome Output(3,3,"METEθR DASH Output(4,2,"BY X. MCELWEE Output(5,3,"WITH TRENLY Pause ClrHome Output(8,1,"HIGH SCORE: Output(8,12,ʟAST(1) Pause ClrHome Repeat K=22 randInt(3,14)→A S+1→S For(V,1,8) If V=8 and not(sum(Y={A-1,A,A+1 Then ClrHome S→ʟAST(dim(ʟAST If S>ʟAST(1):Pause "High Score!" SortD(ʟAST Stop End Output(8,Y,"^" Output(V,1,"θθθθθθθθθθθθθθθθ Output(V,A-1," " Output(1,1,S For(F,1,R getKey→K If K=45 Then ClrHome Stop End If K:Output(8,Y," " min(16,max(1,Y+sum(DeltaList(K={24,26→Y End For(E,1,D End Output(V,1," " End End`

Your current code:

` ``8→x 6→a 2→b 5→l UnArchive u u→t 0→u Lbl 4 ClrHome Output(3,3,"METEθR DASH" Output(4,2,"BY X. MCELWEE" Pause ClrHome Output(8,1,"HIGH SCORE:" Output 8,12,t Pause Repeat l=0 ClrHome Output 1,1,u Output(8,x,"^" Output b,1,"θθθθθθθθθθθθθθθθ" Output b,a," " getKey→k If k=82 x-1→x If k=84 x+1→x if k=22 0→l if k=45 goto 3 b+1→b if b=8 and not(x=a or x=a+1 or x=a+2 then l-1→l output 8,x,"*" end disp l if b>8 then 2→b randInt(4,11→a end if x>16 16→x if x<1 1→x u+1→u end ClrHome If u<t then t→u Archive u stop End If u>t then Output(3,3,"HIGH SCORE! Archive u Pause stop end stop Lbl 3 Menu("RESET?","YES",1,"NO",2) Lbl 1 0→u 0→t goto 4 Lbl 2 goto 4`

` ``8→x 6→a 2→b 5→l UnArchive u u→t 0→u Lbl 4 ClrHome Output(3,3,"METEθR DASH" Output(4,2,"BY X. MCELWEE" Pause ClrHome Output(8,1,"HIGH SCORE:" Output 8,12,t Pause Repeat l=0 ClrHome Output 1,1,u Output(8,x,"^" Output b,1,"θθθθθθθθθθθθθθθθ" Output b,a," " getKey→k If k=82 x-1→x If k=84 x+1→x if k=22 0→l if k=45 goto 3 b+1→b if b=8 and not(x=a or x=a+1 or x=a+2 then l-1→l output 8,x,"*" end disp l if b>8 then 2→b randInt(4,11→a end if x>16 16→x if x<1 1→x u+1→u end ClrHome If u<t then t→u Archive u stop End If u>t then Output(3,3,"HIGH SCORE! Archive u Pause stop end stop Lbl 3 Menu("RESET?","YES",1,"NO",2) Lbl 1 0→u 0→t goto 4 Lbl 2 goto 4`

— Code placed in box by Moderator

]]>