TI-BASIC Games

CONTEST TIME! 
Here it is, niggers:
Try to make a game for TI calcs, in as few lines of code as possible.  The program with the fewest lines when this thread hits 50 replies will be the WINRAR.  there is no prize but pride.

Here's a crappy digging simulator I made over the course of a few months of boring lessons this year. Compressed to one line, so I win.

:CLASSIC:Float:0→D:"COPPER    IRON      PYRITE    TIN       BRONZE    PEARL     SILVER    GOLD      EMERALD   RUBY      JASPER    TOPAZ     SAPPHIRE  PLATINUM  DIAMOND   AMETHYST  QUARTZ    MITHRIL   ADAMANTINEILMENITE  URANIUM   PLUTONIUM ASTATINE  OBSIDIAN  UNOBTANIUMMOSCOVIUM AMBROSIA  NECTAR    ICHOR     POROVSKITEANTIMATTER"→Str0:Menu(" DIGGER ","CONTINUE",CM,"NEW GAME",NE,"QUIT",ZZ:Lbl CM:If lDC(33)=mean(ln(1+abs(ΔList(cumSum(lDP:Goto M:ClrHome:Disp "SAVE CORRUPT.:Stop:Lbl NE:seq(0,X,1,32)→lDM:lDM→lDC:{1000,1,1,1,1,0}→lDP:Lbl M:mean(ln(1+abs(ΔList(cumSum(lDP:Ans→lDC(33:Menu(" MENU ","DIG",MD,"STATISTICS",MS,"UPGRADE",MU,"MARKET",MM,"AUTODIG",AD,"EXIT",ZZ:Lbl AD:ClrHome:If D=0:Then:Pause "AUTODIG NOW ON:Else:Pause "AUTODIG NOW OFF:End:1-D→D:ClrHome:Goto M:Lbl MM:ClrHome:If sum(lDM)=0:Then:Pause "NOTHING TO SELL:Else:0→C:For(I,1,32,1:C+lDM(I)(2^I)(1+lDP(3)/3)→C:End:int(C)→C:lDP(1)+C→lDP(1):lDM*0→lDM:ClrHome:Output(1,1,"SOLD ORES FOR:Fix 0:Output(2,1,C:Float:Pause :End:Goto M:Lbl MD:lDP(6)+1→lDP(6):For(Y,3,6,3):Output(Y,1,"////////////////:End:For(M,1,32,1:Output(4+(M>16),remainder(M-1,16)+1,"=:If lDP(5)<5:Then:For(Ɵ,1,max(30-3lDP(5),1),1:End:End:If 2.5^(-M/ln(e+lDP(2)-1))>rand:Then:randInt(1,int(lDP(4)^1.1))→A:lDM(M)+A→lDM(M):1→lDC(M):Output(1,1,"FOUND           :Output(1,7,A:Output(2,1,sub(Str0,10M-9,10:End:End:ClrHome:If D=0 or getKey:Goto M:Goto MD:Lbl MS:ClrHome:Output(1,1,"MONEY:          DEPTH:          ECONOMY:        TOOLS:          SPEED:          DIGS::{8,8,10,8,8,7}→l1:If log(lDP(1))≥10:Then:Sci:Fix 2:End:For(I,1,6,1:Output(I,l1(I),lDP(I:Float:Normal:End:For(O,0,16,16:Pause :ClrHome:For(I,1,16,1:Output(I-(I>8)8,1+(I>8)8,"??::If lDC(I+O):Output(I-(I>8)8,1+(I>8)8,sub(Str0,10(I+O)-9,2):Output(I-(I>8)8,4+(I>8)8,lDM(I+O):End:End:Pause :ClrHome:Goto M:Lbl MU:ClrHome:Menu(" UPGRADES ","DEPTH",UD,"ECONOMY",UE,"TOOLS",UT,"SPEED",US,"BACK",M:Lbl UD:"FIND RARER ORES"→Str1:2→X:500→P:9E9→M:Goto SU:Lbl UE:"BETTER SALES"→Str1:3→X:600→P:9E9→M:Goto SU:Lbl UT:"MINE MORE ORES"→Str1:4→X:750→P:20→M:Goto SU:Lbl US:"DIG FASTER"→Str1:5→X:850→P:10→M:Lbl SU:int(P1.5^lDP(X))→Y:ClrHome:Output(1,1,Str1:Output(2,1,"PRICE:Output(2,8,Y:Pause :ClrHome:Menu(" BUY? ","BUY ONE",BO,"CANCEL",MU:Lbl BO:If lDP(x)≥M:Then:ClrHome:Pause "ALREADY MAXED:Else:If Y>lDP(1):Then:ClrHome:Pause "NEED MORE MONEY:Else:lDP(1)-Y→lDP(1:lDP(X)+1→lDP(X:Pause "BOUGHT:End:End:Goto MU:Lbl ZZ:ClrHome:"GOODBYE.