VTech PreComputer Prestige Course Manual page 79

1000 PRINT "You lose a chance!"
1010 LIVE = LIVE - 1
1020 GOTO 240
2000 PRINT "Game over, the answer is "; SECRET$; "."
2010 END
3000 G$ = LEFT$(G$, 1)
3010 A = ASC(G$)
3020 IF A > 96 AND A < 123 THEN A = A - 32
3030 G$ = CHR$(A)
3040 RETURN
4000 PRINT "You are right,"
4010 PRINT "the answer is "; SECRET$; "."
4020 END
10.BIRTHDAY
0 REM Birthday
10 PRINT "What is your birthday?"
20 PRINT "e.g. (January 17,1986)."
30 INPUT "Enter your birthday"; D$, Y$
40 FOR I = 1 TO 12
77