Less a game and more a play along. This version gives you some hints on what to try. Start with how you feel!
PROG : 16509
D-FILE: 17981
VARS : 18774
E-LINE: 18775
STKBOT: 18775
STKEND: 18775
9999 means line number
PRINT means treat as KEYWORD P
10 REM *COMP CONTROL*SLR/1984
20 CLS
30 PRINT "PASSWORD:"
35 LET B$="CCTRL"
38 PRINT AT 20,15;"(";B$;")";
AT 1,0;
40 INPUT A$
50 PRINT A$
60 IF A$=B$ THEN GOTO 100
70 PRINT ,,"**CODE WORD REFUSE
D**"
80 PAUSE 200
90 RUN
100 CLS
110 PRINT "GOOD MORNING/ HOW AR
E YOU TODAY?"
115 DIM A$(96)
120 INPUT A$
130 PRINT A$
140 FOR A=1 TO 96-11
145 FAST
150 IF A$(A TO A+3)="FINE" OR A
$(A TO A+4)="GREAT" OR A$(A TO A
+7)="TERRIFIC" OR A$(A TO A+3)="
GOOD" OR A$(A TO A+8)="WONDERFUL
" THEN PRINT "THAT IS GOOD."
160 IF A$(A TO A+4)="GAMES"
THEN GOTO 300
170 IF A$(A TO A+5)="STATUS"
OR A$(A TO A+4)="GOING" THEN
GOTO 400
180 IF A$(A TO A+3)="KILL"
THEN NEW
190 IF A$(A TO A+3)="STOP" OR A
$(A TO A+2)="BYE" OR A$(A TO A+3
)="CIAO" THEN STOP
200 IF A$(A TO A+6)="RESTART"
OR A$(A TO A+2)="RUN" OR A$(A
TO A+10)="BEGIN AGAIN" THEN
RUN
205 IF A$(A TO A+2)="CLS" OR A$
(A TO A+4)="CLEAR" THEN CLS
210 NEXT A
215 SLOW
220 PRINT "DO YOU WISH ANYTHING
?"
230 INPUT A$
240 GOTO 130
300 CLS
310 SLOW
320 PRINT "GAMES:"
330 PRINT ,,,,"WATER BUG
WATER BUG II
RAIDER V
LASER CATCH
TOWER OF LOVE
LANDER
TABULAR"
340 PRINT ,,,,
350 GOTO 220
400 CLS
410 SLOW
420 PRINT "STATUS OF GAMES, TRA
NSIT... ALL MUST BE PLAYED T
O BE ON..."
430 PRINT ,,,,"GAME TO BE PLAYE
D?"
440 INPUT A$
450 FOR A=1 TO (LEN A$)-6
460 IF A$(A TO A+5)="RETURN"
OR A$(A TO A+1)="GO" THEN GOTO
220
470 NEXT A
480 PRINT "LOADING GAME ";A$
490 PRINT ,,,,"PRESS ENTER TO B
EGIN..."
500 PAUSE 4E4
510 LOAD A$
600 SAVE "CCTRL"
610 RUN