Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Lbl 1
- ClrHome
- Output(1,1,"AVOID THE"
- Output(2,1,"QUESTION MARKS."
- Output(4,1,"PRESS ENTER TO"
- Output(5,1,"START OR CLEAR"
- Output(6,1,"TO EXIT"
- While 1
- getKey->K
- If K=45
- Goto 99
- If K=105
- Goto 2
- End
- Lbl 2
- ClrHome
- checkTmr(0)->S
- 4->X
- 8->Y
- 2->A
- 2->B
- 2->C
- 15->D
- 7->E
- 8->F
- 0->P
- 0->I
- While 1
- (checkTmr(0)-S)-P->T
- Output(1,1,T)
- Output(X,Y,"0"
- If I=0
- Then
- 1->I
- A->U
- B->V
- randInt(~1,7)->R
- If R>1
- Then
- If A<X
- Then
- A+1->A
- Else
- If A>X
- A-1->A
- End
- Else
- A+R->N
- If N<9
- Then
- If N>0
- N->A
- End
- End
- randInt(~1,7)->R
- If R>1
- Then
- If B<Y
- Then
- B+1->B
- Else
- If B>Y
- B-1->B
- End
- Else
- B+R->N
- If N<17
- Then
- If N>0
- N->B
- End
- End
- Output(U,V," "
- Output(A,B,"?"
- Else
- If I=1
- Then
- 2->I
- C->U
- D->V
- randInt(~1,7)->R
- If R>1
- Then
- If C<X
- Then
- C+1->C
- Else
- If C>X
- C-1->C
- End
- Else
- C+R->N
- If N<9
- Then
- If N>0
- N->C
- End
- End
- randInt(~1,7)->R
- If R>1
- Then
- If D<Y
- Then
- D+1->D
- Else
- If D>Y
- D-1->D
- End
- Else
- D+R->N
- If N<17
- Then
- If N>0
- N->D
- End
- End
- Output(U,V," "
- Output(C,D,"?"
- Else
- 0->I
- E->U
- F->V
- randInt(~1,7)->R
- If R>1
- Then
- If E<X
- Then
- E+1->E
- Else
- If E>X
- E-1->E
- End
- Else
- E+R->N
- If N<9
- Then
- If N>0
- N->E
- End
- End
- randInt(~1,7)->R
- If R>1
- Then
- If F<Y
- Then
- F+1->F
- Else
- If F>Y
- F-1->F
- End
- Else
- F+R->N
- If N<17
- Then
- If N>0
- N->F
- End
- End
- Output(U,V," "
- Output(E,F,"?"
- End
- End
- If A=X and B=Y
- Then
- Goto 98
- Else
- If C=X and D=Y
- Then
- Goto 98
- Else
- If E=X and F=Y
- Goto 98
- End
- End
- getKey->K
- If K
- Then
- If K=45
- Then
- checkTmr(0)->J
- ClrHome
- Output(4,6,"PAUSED"
- Pause
- P+(checkTmr(0)-J)->P
- ClrHome
- Else
- If K=34 and X<8
- Then
- Output(X,Y," "
- X+1->X
- Else
- If K=25 and X>1
- Then
- Output(X,Y," "
- X-1->X
- Else
- If K=26 and Y<16
- Then
- Output(X,Y," "
- Y+1->Y
- Else
- If K=24 and Y>1
- Then
- Output(X,Y," "
- Y-1->Y
- End
- End
- End
- End
- End
- End
- End
- Lbl 98
- (checkTmr(0)-S)-P->T
- ClrHome
- If T<=H
- Then
- Output(1,1,"YOU LOSE!")
- Output(2,1,"YOU SURVIVED:"
- Output(3,1,T)
- Output(4,1,"SECONDS")
- Output(6,1,"HIGHSCORE: "
- Output(6,12,H
- Output(7,1,"BY: "
- Output(7,5,Str9
- Pause
- Else
- Disp "NEW HIGHSCORE!"
- Input "NAME:",Str9
- T->H
- End
- Goto 1
- Lbl 99
- ClrHome
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement