A simple reaction game. How fast can you run?
PROG : 16509
D-FILE: 17071
VARS : 17864
E-LINE: 17865
STKBOT: 17865
STKEND: 17865
9999 means line number
PRINT means treat as KEYWORD P
10 REM ****DDG****SLR/2026****
20 CLS
30 PRINT ,,,,"DUCK DUCK GOOSE"
,,
40 PRINT "PRESS LETTER TO RUN"
,,,"READY";
50 FOR X=3 TO 1 STEP -1
60 PRINT "...";X;
70 LET L$=CHR$ (INT (RND*26)+3
8+SIN PI*COS PI*0)
80 NEXT X
90 PRINT "...GO/"
100 SCROLL
110 LET R=INT (RND*100+1)
120 IF R>80 THEN GOTO 150
130 PRINT "DUCK"
140 GOTO 100
150 PRINT "GOOSE/"
160 SCROLL
170 PRINT "PRESS ";L$;
180 FOR X=1 TO 10+RND*8
190 IF INKEY$=L$ THEN GOTO 290
200 PRINT ".";
210 NEXT X
220 PRINT "GOT YOU/"
230 SCROLL
240 PRINT "PLAY AGAIN? Y/N"
250 IF INKEY$<>"" THEN GOTO 250
260 IF INKEY$="Y" THEN RUN
270 IF INKEY$="N" THEN STOP
280 GOTO 260
290 PRINT "WIN/"
300 GOTO 230
310 SAVE "DDG"
320 RUN