%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1513
File Name:NIBBLES2
Group Name:
Password:FOURBITS
Option1:NL
Option2:
Option3:
Option4:
%Data Record
'ENTER PASSWORD":'?\->C:'C\<>0365\=>\Stop
0\->C
\File6
0\->V
3\->Z
\Lbl X
\Fill(0,\List 1
\Fill(0,\List 2
\AxesOff
\ViewWindow 1,128,0,1,64,0
\Text 1,10,"LIVES:"
\Text 1,36,Z
\Text 1,70,"SCORE:"
\Plot 1,1
\Plot 1,59
\Line
\Plot 128,59
\Line
\Plot 128,1
\Line
\Plot 1,1
\Line
0\->A~U
1\->E
1\->F
6\->J
2\->K
\(-)5\->D
62\->A
37\->B
\Lbl F
\Text J+2,K," "
L\<>0\=>\Text J,K,"."
5\->L
2+5\Int (\Ran#*25)\->K
7+5\Int (\Ran#*10)\->J
\PxlOn 1,127
\PxlTest J+3,K+1
\Ans=1\=>\GotoF
10Q+V\->V
\Text 1,96,V
\F-Line 95,59,111,59
Q=9\=>0\->Q
Q+1\->Q
\Text J+2,K,Q
\Lbl 0
\Getkey
\Ans=0\=>\Goto1
\Ans=28\=>D=0\=>\GotoU
\Ans=37\=>D=0\=>\GotoD
\Ans=38\=>C=0\=>\GotoL
\Ans=27\=>C=0\=>\GotoR
\Goto1
\Lbl U
\Isz E
\(-)5\->D:0\->C:\Goto1
\Lbl D
\Isz E
5\->D:0\->C:\Goto1
\Lbl L
\Isz E
\(-)5\->C:0\->D:\Goto1
\Lbl R
\Isz E
5\->C:0\->D
\Lbl 1
A+C\->A
B+D\->B
E=31\=>1\->E
C=0\=>D+\List 1[E]\->\List 1[E
D=0\=>C+\List 2[E]\->\List 2[E
B=J\=>A=K\=>\GotoF
B<6\=>\GotoC
B>57\=>\GotoC
A<0\=>\GotoC
A>124\=>\GotoC
\PxlTest B+3,A+2
\Ans=1\=>\GotoC
\Text B,A,"."
\Dsz L:\Goto0
1\->L
\List 1[F]+\List 2[F]=0\=>\Isz F
F=31\=>1\->F
\Text B-\Sum \List 1,A-\Sum \List 2," "
\List 1[F
\Ans=0\=>\Goto2
\Ans<0\=>5+\Ans\->\List 1[F
\Ans>0\=>\Ans-5\->\List 1[F
\Goto0
\Lbl 2
\List 2[F
\Ans<0\=>\Ans+5\->\List 2[F
\Ans>0\=>\Ans-5\->\List 2[F
\Goto0
\Lbl C
\Text 1,127," "
\For 0\->W \To 100
\Next 
Z=1\=>\GotoE
\ClrGraph
\Text 30,44,"LIVES:"
\Text 30,69,Z
\Text 1,1," "
\For 0\->W \To 200
\Next 
\For 8\->M \To 56 \Step 8
\Text 30,69+M,Z
\Text 30,61+M," "
\Next 
\Text 30,125," "
\For 0\->W \To 50
\Next 
Z-1\->Z
\For 0\->M \To 51 \Step 8
\Text 30,117-M,Z
\Text 30,125-M," "
\Next 
\Text 1,1," "
Z=1\=>\Text 45,40,"LAST LIFE"
\Text 1,1," "
\For 0\->W \To 100
\Next 
\GotoX
\Lbl E
\Text 1,36,0
\For 0\->W \To 15
\Text 2\Int (\Ran#*20)+11,2\Int (\Ran#*30)+17,"GAME OVER!"
\For 0\->T \To 50
\Next 
\Next 
\ViewWindow \(-)6.3,6.3,1,\(-)3.1,3.1,1
\AxesOn
\ClrText
\Locate 3,1,"Your sc\ore:"
\Locate 15,1,V
\If V>\List 3[1]:\Then V\->\List 3[1]
\Locate 7,4,"WELL DONE"
\Locate 4,5,"NEW HIGH SCORE!"
\For 0\->W \To 12
\For 0\->M \To 2
\Locate 1+M,2,"\aster  \aster  \aster  \aster  \aster  \aster  \aster  "
M>0\=>\Locate M,2," "
\Locate 3-M,7,"\aster  \aster  \aster  \aster  \aster  \aster  \aster  "
M=1\=>\Locate 1,7," "
\Next 
\Next 
\ClrText
\IfEnd
\For 0\->M \To 17
\Locate 21-M,3,">NIBBLES V2.5 "
\Next 
\For 0\->M \To 2
\Locate 4,3,"="
\For 0\->W \To 50
\Next 
\Locate 4,3,">"
\For 0\->W \To 50
\Next 
\Next 
\Locate 4,3," "
\Locate 6,4,"By Dave T."
\Locate 4,6,"Press [EXE] to"
\Locate 6,7,"play again"
\File1

%End