All pastes #140889 Raw Edit

Stuff

public text v1 · immutable
#140889 ·published 2006-08-20 18:45 UTC
rendered paste body
: 1 = dim(LSTPIT)
: 0 = S
: Menu(“Difficulty:”,”Slow”,1,”Medium”,2,”Quick”,3,”Rapid”,4)
: Lbl 1
: 30 = D
: Goto B
: Lbl 2
: 25 = D
: Goto B
: Lbl 3
: 20 = D
: Goto B
: Lbl 4
: 15 = D
: Goto B
: Lbl B
: ClrHome
: randInt(0,9) = X
: Disp “Press enter when”
: Disp “You see:”,X
: Output(7,1,”Push Clear to Quit”)
: Output(8,1,”Push Del. To Pause”)
: Pause 
: While 1
: ClrHome
: getKey = K
: If K = 105 and X = N : Goto W
: If K = 105 and X ≠ N : Goto L
: randInt(0,9) = N
: 1 = T
: While T = 1
: 0 = A
: ClrHome
: randInt(1,8) =R
: randInt(1,15) = C
: While A<D
: Output(R,C,N)
: A + 1 = A
: End
: 0 = T
: End
: If K = 45 : Goto Q
: If K = 23 : Pause
: End
: Lbl W
: ClrHome
: S + 1 = S
: Output(4,6,”Nice!”)
: Output(6,2,”Score:”)
: Output(6,9,S)
: Pause
: Goto B
: Lbl L
: ClrHome
: S – 1 = S
: Output(4,1,”No!”)
: Output(4,5”That was a”)
: Output(4,16,N)
: Output(6,2,”Score: “)
: Output(6,9,S)
: Pause
: Goto B
: Lbl Q
: ClrHome
: If S > LSTPIT(1) : Then : Goto Y : Else : Stop
: Lbl Y
: Disp “A New High Score” : S = LSTPIT(1) : Output(3,8,LSTPIT(1))
: Stop