This is a simple edition of the card game spider. Move the cards so they all are in the same pile, in falling order. Use as few moves as you can. When the calculator asks you what to do, press a number, then EXE. When you have won the game, select QUIT.
The calculator don't control if you cheat or not, so be careful :-)
Note: Before playing the first time, set the highscore value (Mat A[2,1]) to something around twenty.
-> means right arrow.
=> means the right arrow in the "jump" menu.
\= means "not equal to" symbol.
_means the display symbol.
File name: DEAL OUT
"~SPIDER~"
Seq(X,X,1,13,1)->List 1
List->Mat(List 1) NOTE: Use the special List->Mat command OPTN F1 F2
Mat Ans->Mat E
{13,4}->Dim Mat F
Fill(0,Mat F)
ClrList
0->P
1->R
0->A
Lbl 1
Int 13Ran#+1->K
Mat E[K,1]->B
B=0=>Goto 1
Isz A
B->Mat F[R,A]
0->Mat E[K,1]
Mat F[4,1]\=0=>Prog "SPIDER"
A<4=>Goto 1
0->A
Isz R
Goto 1
File name: SPIDER
[[0]]->Mat E
Lbl 0
Mat F_
"FROM COLUMN?"
"BACK=0?"
"QUIT=9?"
"RESTART=7"?->C
C=0=>Goto 0
C=9=>Goto 2
C=7=>Prog "DEAL OUT"
"FROM LINE"?->R
"TO COLUMN"?->A
"TO LINE"?->B
Isz P
Lbl 1
Mat F[R,C]->Y
Y=0=>Goto 0
Y->Mat F[B,A]
0->Mat F[R,C]
Isz R
Isz B
Goto 1
Lbl 2
[[0]]->Mat F
ClrText
Locate 3,1,"SCORE:"
Locate 12,1,P
Mat A[2,1]->H
P<H=>P->Mat A[2,1]
Locate 3,2,"HISCORE:"
Locate 12,2,H
P<H=>Locate 5,4,"HISCORE! "
Locate 7,6,"~SPIDER~"
Stop