1→dim(ʟBUG
ClrHome
Repeat getKey
Output(3,2,"G a s a e u B b u - e r 9
Output(3,2," r y c l B g y l e b a - 4
End
Lbl Y
ClrHome
4→A
4→B
startTmr→C
randInt(1,8→D
randInt(1,16→E
DelVar SRepeat 60≤checkTmr(C
Repeat Ans
Output(A,B,"X
Output(D,E,"O
getKey
Output(A,B,"+
Output(D,E,"+
End
Ans→K
If Ans
Output(A,B,"
If Ans=105
Goto N
B-(Ans=24 and B≠1)+(Ans=26 and B≠16→B
A-(K=25 and A≠1)+(K=34 and A≠8→A
If min({A,B}={D,E
Then
S+1→S
randInt(1,8→D
randInt(1,16→E
End
End
ClrHome
For(I,1,200
Output(4,6,"S O !
Output(4,6," T P
End
getKey
ClrHome
If S>ʟBUG(1
{S→BUG
S
Repeat getKey
Output(4,2," o r c r i :
Output(5,8,Ans
Output(4,2,"Y u s o e s
Output(5,8,"
End
ClrHome
ʟBUG(1
Repeat getKey
Output(4,7,"T p
Output(5,8,Ans
Output(4,7," o :
Output(5,8,"
End
Menu("Play again?","Yes",Y,"No",N
Lbl N
ClrHome
randInt(10,99→A
randInt(10,99→B
Disp ""
Output(1,1,A
Output(1,3,"*
Output(1,4,B
AB