**TI92**gamesProgram file dated 08/23/01, 00:04 Renigma;Z() Prgm ClrIO Local i,i2,i3,i4,i5,i6,i7,i8,i9,fkey,col,row,ctry,head,x,y,ynum pref\enigpref[1]row pref\enigpref[2]col Lbl top Output 4*8,8*6,"BY CHRIS CANFIELD" Output 10*8,0,"-F1-F2-F3-F4-F5-F6-F7--F8--" {"","","","","","",""}fkey For i,1,7,1 Output 11*8,6*(3*i-2),fkey[i] EndFor Output 11*8,22*6,"MARK" For i,1,7,1 Output 11*8,6*(3*i-2)," " Output 11*8+2,6*(3*i-2)+2,fkey[i] EndFor For i,1,7,1 Output 11*8+2,6*(3*i-2)+2," " Output 11*8,6*(3*i-2),fkey[i] EndFor Output 11*8,6*30," " Output 11*8,6*30," = = 0" Output 10*8,6*30," Practice" If getKey()0 Goto prefs Goto strt Lbl prefs Output 11*8,22*6," " Output 11*8+2,22*6+2,"MARK" For i,1,10 EndFor Output 11*8+2,22*6+2," " Output 11*8,22*6,"MARK" Dialog DropDown "Game Style",{"Practice","Full Game"},row EndDlog If row=1 Then Dialog Title "Practice" DropDown "Pieces",seq(string(i),i,3,8),row DropDown "Chances",seq(string(i),i,5,18),col EndDlog row+2row col+4col {row,col,0}pref\enigpref Else {3,13,1}pref\enigpref EndIf Lbl strt pref\enigpref[1]row pref\enigpref[2]col If pref\enigpref[3]=0 Then Output 10*8,6*30," Practice" Else Output 10*8,6*30," Level " Output 10*8,6*37,pref\enigpref[3] EndIf For i,0,9 Output i*8,0," " EndFor For i,1,col Output (row+1)*8,i*12-6,"#" Output (row+1)*8-8,i*12-6,"#" EndFor For i2,1,row Output (i2-1)*8,col*12+6,"|" EndFor seq(rand(7),i,1,row)head 1x 1y seq(0,i,1,row)ctry Local key Lbl ttop Output (y-1)*8,(x-1)*12,"" Output (y-1)*8,x*12,"" 0key While key=0 getKey()key EndWhile If key=344 Then Output (y-1)*8,(x-1)*12," " Output (y-1)*8,x*12," " If ctry[y]<0 Output (y-1)*8,x*12,"" If y=row 0y y+1y Goto ttop EndIf If key=338 Then Output (y-1)*8,(x-1)*12," " Output (y-1)*8,x*12," " If ctry[y]<0 Output (y-1)*8,x*12,"" If y=1 row+1y y-1y Goto ttop EndIf If key>267 and key<275 Then key-267key If ctry[y]=key Then Output (y-1)*8,(x-1)*12+6," " 0ctry[y] Output (y-1)*8,(x-1)*12," " Output (y-1)*8,x*12," " If y=row 0y y+1y Goto ttop EndIf Output (y-1)*8,(x-.5)*12,fkey[rand(7)] keyctry[y] Output (y-1)*8,(x-.5)*12,fkey[rand(7)] Output (y-1)*8,(x-.5)*12,fkey[key] Output (y-1)*8,(x-1)*12," " Output (y-1)*8,x*12," " If y=row 0y y+1y Goto ttop EndIf If key=112 Goto prefs If key=275 Then ctry[y]ctry[y] EndIf If key=13 Then Output 11*8,6*30," " Output 11*8,6*30," = = 0" For i,/2,/2,/4 sin(i)i2 iPart(i2*6)i2 Output 88,180," = " Output 88,204+2*i2,"=" Output 88,204+4*i2,"0" EndFor For i,/2,/2,/4 sin(i)i2 iPart(i2*6)i2 Output 88,180," = " Output 88,204+2*i2,"=" Output 88,204+4*i2,"0" EndFor If min(abs(ctry))=0 Then Dialog Text "Monkey pull lever, Monkey get banana." EndDlog Goto ttop EndIf seq(0,i,1,7)i2 i2i3 For i,1,row 1+i2[head[i]]i2[head[i]] 1+i3[abs(ctry[i])]i3[abs(ctry[i])] Output 8*row,12*x-6,rand(7) Output 8*row+8,12*x-6,rand(7) EndFor 0i4 For i,1,7 If i2[i]