10 WAIT 200 20 WAIT A
10 LET A = 0 20 BEEP 30 WAIT 500 40 LET A = A + 1 50 IF A < 8 THEN GOTO 20 60 END
10 LET A = RND 20 LET B = RND % 10 // % is modulus
10 LET B$ = "1234567890" 20 GETCHAR B$,A,C 30 PRINT C 40 LET A = A + 1 50 IF C = 48 THEN END 60 GOTO 20
49 50 51 52 53 54 55 56 57 48 _