%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:994
File Name:THE NIM
Group Name:
Password:NARM
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'26\slash12\slash97
'H~W\ And Z \Not USED
\ClrText
"[ THE NARM PRESENT ]"
"[  THE NIM [BETA]  ]"\Disp\ViewWindow 1,127,0,1,63,0
"GAME MENU"
"1. ONE PLAYER"
"2. TWO PLAYER"
?\->A
A\<>2\=>1\->A
\For 1\->B \To 6
\F-Line 10,8B,10B+20,8B
\F-Line 10B+20,56,10B+20,8B
\Text 8(7-B)+2,14,B
\Next 
\F-Line 10,56,80,56
\F-Line 20,56,20,8
\F-Line 10,56,10,8
\F-Line 19,56,19,8
\Lbl A
\For 1\->B \To 6
\For B\->C \To 1 \Step -1
\Text 8(7-B)+2,10C+14,"*"
\Next 
\Next 
21\->B
\Int 2\Ran#+1\->C
A=2\=>1\->C
\Seq(X,X,1,6,1\->\List 1
\Text 5,90,"LAST-LOSE"
\Text 15,97,"[BETA]"
\Do
C=1\=>A=1\=>\Goto1
C=1\=>\Text 57,65,"PLAYER 1 TURN"
C=2\=>\Text 57,65,"PLAYER 2 TURN"
\Do
0\->D~E
\Plot 40,32\Disp\For 1\->F \To 6
X>10F+10\=>X<10(F+1)+10\=>F\->D
Y>8F\=>Y<8(F+1)\=>F\->E
\Next 
D>E\=>0\->E
D>0\=>E>0\=>\List 1[E]<D\=>0\->E
\LpWhile D=0\ Or E=0
\Goto0
\Lbl 1
'CODE FOR COM THINKS
'OUTPUT D,E
'THIS IS EASY CODE
'NOT GOOD PLEASE
'CHANGE TO YOUR CODE
\Text 57,65,"I TURN WAIT. "
\Do
\Int 6\Ran#+1\->E
\LpWhile \List 1[E]=0
\Int \List 1[E]\Ran#+1\->D
'END COM THINK
\Lbl 0
\List 1[E\->F
\For D\->G \To F
\Text 8(7-E)+2,10G+14," "
\List 1[E]-1\->\List 1[E
B-1\->B
\Next 
C+1\->C
C=3\=>1\->C
\LpWhile B>0
A=1\=>C=1\=>\Text 57,65,"SORRY!! I WIN"
A=2\=>C=1\=>\Text 57,65,"PLAYER 1 WIN!!"
C=2\=>\Text 57,65,"PLAYER 2 WIN!!"
\Plot 0,0\Disp\ClrText
"WANT TO PLAY AGAIN"
"1.YES 2.NO"?\->X
X=1\=>\GotoA
"END OF GAME"


%End