Appears on
Assembled by Tim Ward from many sources. Contains programs 10001 – 10050.
Source Code
5 REM *EXECUTIVE DECISIOL 1* 10 CLS 20 LET X=100*RND 30 IF X>49 THEN PRINT "YES" 40 IF X<49 THEN PRINT "NO" 50 IF INKEY$="" THEN GOTO 50 60 GOTO 10 70 CLEAR 80 SAVE "1001%1" 90 RUN