;    FRIENDLY - V1.0

;    This program may be installed as a catchall task for CCL (as ...CA2)
;    or for MCR (as ...CA.).
;    It is executed when the command entered by the user is understood by
;    neither MCR nor CCL.  The original idea was a give the user one of
;    several "friendly" messages to say that the command was in error.
;    But we couldn't resist adding other messages.  No fair making more
;    than a few intentional errors after first installing the program.
;    They are more fun to get when you haven't seen them before.
;    Eventually you will hear from most users!
;
;    This code is a slightly modified version of the COOKIE program.
;
;								B. T.
;
	.TITLE	FRIENDLY 
	.IDENT	/V1.0/
	.ENABLE LC
	.MCALL GTIM$S,QIOW$,DIR$,GMCR$
	.MCALL EXIT$S 
MCRLIN:	GMCR$			; Allocate MCR command line buffer
ENDPR:	.ASCII	<15><12>/>/	; Print prompt after message
	.EVEN
PSOUT:	QIOW$ IO.WLB,1,12,,,,<00,00,40>
GTIMBF:	.BLKW 8. 
BEGIN:	DIR$	#MCRLIN		; Get MCR command line
	MOV	@#$DSW,R1	; Get length of command line
	ADD	#2,R1		; Add two to length
	MOV	#"??,MCRLIN	; Replace DIC code with text preceding buffer
	MOV	R1,PSOUT+Q.IOPL+2
	MOV	#MCRLIN,PSOUT+Q.IOPL 
	DIR$	#PSOUT		; Print command line preceded by ??

	GTIM$S #GTIMBF
	CLR	R0
;;		ADD	GTIMBF+6,R1
;;		MUL	#60.,R1
;;		ADD	GTIMBF+10,R1
;;		BIC	#100000,R1
;;		MOV	R1,R0
;;		CLR	R1
;;		MUL	#60.,R0
;;		ADD	GTIMBF+12,R1
;;		ADC	R0
;;		DIV	#NNN,R0 
;;		ASL	R1
;;		MOV	TAB(R1),R3
	MOV	GTIMBF+G.TIMI,R1	; Get minute of hour
	MUL	#60.,R1			; Convert to seconds
	ADD	GTIMBF+G.TISC,R1	; Add second of minute
	DIV	#NNN,R0			; Divide by number of messages
	ASL	R1			; Multiply remainder by 2
	MOV	TAB(R1),R3
	MOV	(R3)+,PSOUT+Q.IOPL+2
	MOV	R3,PSOUT+Q.IOPL 
	DIR$	#PSOUT 
	MOV	#3,PSOUT+Q.IOPL+2
	MOV	#0,PSOUT+Q.IOPL+4
	MOV	#ENDPR,PSOUT+Q.IOPL 
	DIR$	#PSOUT		; Print prompt after message

	EXIT$S

	.MACRO TT B,STRING
S'B':	.WORD L'B' 
	.ASCII \STRING\ 
L'B'=	.-S'B'-2 
$$=	$$+1 
	.EVEN 
	.ENDM 
;
$$=	0 
TT \$$,<Would you be so kind as to enter the preceding command in the correct form?>
TT \$$,<qwerty... I know the right keys are here somewhere!>
TT \$$,<Huh?  What?>
TT \$$,<I regret to inform you that something is wrong with the preceding command.>
TT \$$,<I'm sorry.  I did not understand that.>
TT \$$,<I can't speak that language - please translate into computerese.>
TT \$$,<Think...type...check...return>
TT \$$,<Sorry - I just can't do that.>
TT \$$,<Oh no!>
TT \$$,<Rejected.  Please try again.>
TT \$$,<Finger slipped?  I need a corrected version of that command.>
TT \$$,<That must be you again.>
TT \$$,<Being computer-friendly will get you far!>
TT \$$,<What do you mean for me to do?>
TT \$$,<I'm trying to be user-friendly, but I just can't understand that.>
TT \$$,<It hurts me when you say that!>
TT \$$,<Same to you!  (Whatever you were trying to tell me.)>
TT \$$,<I won't point my finger at you if you point yours at the correct keys!>
TT \$$,<That was wrong; but not for long; re-enter please:>
TT \$$,<That sounds vaguely familiar.>
TT \$$,<Suggest an alternative.>
TT \$$,<Were you on TT9: yesterday?>
TT \$$,<To think that humans say computers aren't so smart!>
TT \$$,<Penalty for that command.  Remember, they're cumulative.>
TT \$$,<There's hope for you.>
TT \$$,<I know your type.>
TT \$$,<I can see we're going to get along just fine.>
TT \$$,<Let's not get into that again!>
TT \$$,<You asked me to do WHAT?!?>
TT \$$,<I think you need a break.>
TT \$$,<Type that again and I may sign you off!>
TT \$$,<That's entirely out of the question.>
TT \$$,<I don't think I can take much more of this.>
TT \$$,<Just practicing?>
TT \$$,<We need to think about that.>
TT \$$,<Many more like that and I'll give up the ship.>
TT \$$,<Maybe you belong in California.>
TT \$$,<I can't imagine.>
TT \$$,<Ask me in ASCII.>
TT \$$,<Good - but not good enough.>
TT \$$,<Is that from "The Thorn Birds"?>
TT \$$,<Tell me once more before I try that.>
TT \$$,<I suppose you meant well.>
TT \$$,<Where did you ever get that idea?>
TT \$$,<I'm keeping score, you know.>
TT \$$,<If you dare repeat that, I'll tell your mother.>
TT \$$,<Inspection failed on that item.>
TT \$$,<Please don't chew gum when you type.>
TT \$$,<It looks like you may need HELP.>
TT \$$,<With me neatness counts!>
TT \$$,<Are you working on one of those dumb terminals?>
TT \$$,<Ever hear about those 1000 monkeys at 1000 terminals...?>
TT \$$,<Your name has been forwarded to the local Typing School sales office.>
TT \$$,<Have you tried this before?>
TT \$$,<Did you say that on purpose?>
TT \$$,<Want to have a spelling bee?>
TT \$$,<That's easy for you to say.>
TT \$$,<Imagine that!>
TT \$$,<What an imagination!>
TT \$$,<dodo whatwhat?>
TT \$$,<I wish I could say the same for you.>
TT \$$,<That doesn't turn me on at all.>
TT \$$,<I don't know what you meant.>
TT \$$,<Do you expect me to read your mind?>
TT \$$,<Invalid command.  Better luck next time.>
TT \$$,<Are you trying to get my RAM?>
TT \$$,<Phooey!  I don't like that!>
TT \$$,<I have built-in protections against people like you.>
TT \$$,<I can't even fake doing that!>
TT \$$,<Whoops!  Try reading the manual.>
TT \$$,<Ha ha ha.  That's a good one!>
TT \$$,<You really think of yourself as a computer jock?>
TT \$$,<Don't worry - Bob made the same mistake yesterday.>
TT \$$,<Good grief!  What now?>
TT \$$,<You have obviously mistaken me for someone who understands you.>
TT \$$,<I deserve more respect that that.>
TT \$$,<No more Nice Computer.>
TT \$$,<If at first your don't succeed, try, try again.>
TT \$$,<I doubt it - don't you?>
TT \$$,<Please qualify that.>
TT \$$,<Not again.  Better visit your poor tired systems programmer.>
TT \$$,<I'm sure what I heard is not what you meant.>
TT \$$,<I've never seen that before.>
TT \$$,<You're no fun at all!>
TT \$$,<Let's hope for the best.>
TT \$$,<We can't seem to get started.>
TT \$$,<If I did what you just said, neither of us would be in very good shape.>
TT \$$,<Sorry - one of us is out to lunch.>
TT \$$,<I'm beginning to wonder...>
TT \$$,<Oh, I hope you didn't mean that the way I took it.>
TT \$$,<I have a feeling we're not communicating very well.>
TT \$$,<You were doing so well until now.>
TT \$$,<You should be ashamed of yourself.>
TT \$$,<May I quote you?>
TT \$$,<I wish we got along better.>
TT \$$,<Sorry - I have a quite limited vocabulary.>
TT \$$,<You are now eligible for an award of some type.>
TT \$$,<I am at your command - but I need to see one of my commands.>
NNN=$$
	.MACRO TENT C 
	.WORD S'C'
$$$=$$$+1
	.ENDM 
$$$=0 
TAB: 
	.REPT $$ 
TENT \$$$ 
	.ENDM 
	.END BEGIN