mirror of
https://github.com/PDP-10/its.git
synced 2026-01-23 19:07:45 +00:00
31 lines
1.3 KiB
Plaintext
31 lines
1.3 KiB
Plaintext
'<PCODE "1COMAND">
|
|
<PACKAGE "COMMAND">
|
|
|
|
<USE "CALSYM" "CALRDR">
|
|
|
|
<ENTRY CALICO-COMMAND CONFIRM>
|
|
|
|
<SETG CONFIRM %<RSUBR!- '[ %<PCODE!- "1COMAND" 0> CONFIRM #DECL ("VALUE" <OR
|
|
ATOM FALSE>) READARGS READER %<RGLOC CONF T> "Confirm" [
|
|
"
|
|
Please confirm the command by typing either T, True, Y, or Yes" ""] "SYM" T #
|
|
FALSE () [] EVALSW (FIX) SEGSW SYMSW HACKMULTSW READER-SILENCE OUTCHAN
|
|
"DON'T-EVAL" "GIVE-SYMBOLS" "HACK-MULTS" "INPUT" "SEGMENT-INPUT" "SEGMENT-EACH"
|
|
%<RGLOC VECTOR T> %<RGLOC READER-NULL-LINE T> () "MULT" %<TYPE-C SYMBOL VECTOR>
|
|
A "PRINT-RESULT"]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,CONFIRM PGLUE ![738197503 -256 0!]>>
|
|
|
|
<SETG CONF <MAKEBST "CONFIRM" ["F" #FALSE () "False" #FALSE () "N" #FALSE ()
|
|
"No" #FALSE () "T" T "True" T "Y" T "Yes" T]>>
|
|
|
|
<SETG CALICO-COMMAND %<RSUBR-ENTRY '[CONFIRM CALICO-COMMAND #DECL ("VALUE" ANY
|
|
APPLICABLE VECTOR "OPTIONAL" VECTOR "TUPLE" <TUPLE [REST STRING]>)] 42>>
|
|
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,CONFIRM GLUE ![17250140156 541094391
|
|
-12879330041 -16105841540 30586731633 -4294901244 4413571075 -16102178811
|
|
63180800 17183817984 4043571260 17465085980 1075119109 459073 18190962448
|
|
16797968 16236216576 276037632 22037568 1048669 4210753 1095172417 17263821828
|
|
1106313476 4570759936 -16926357760 12897484800 65535 2!]>>
|
|
|
|
<ENDPACKAGE>
|