Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: %ZTPP

Package: Kernel

Routine: %ZTPP


Information

%ZTPP ;SF/RWF - ROUTINE PRETTY PRINT OUTPUT ;10/19/09 14:56

Source Information

Source file <ZTPP.m>

Entry Points

Name Comments DBIA/ICR reference
A
A2
A3
DQ ;FF start each routine on a new page, LN line numbers
EXIT
DD
EXEC ;
RSUM ;Checksum and byte counts ;p122
POST ;POST-INIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Routine Print:"
  • Line Location: A+0
Function Call: READ
  • Formatting: !
  • Prompt: "Want to start each routine on a new page: Yes// "
  • Variable: FF
  • Timeout: DTIME,!
  • Line Location: A2+0
Function Call: WRITE
  • Prompt: !,"Enter Yes to start each routine on a new page.",!?5,"No for the old way."
  • Line Location: A2+0
Function Call: WRITE
  • Prompt: !,"Enter Yes to have line numbers, O for offset numbers, No for no line numbers."
  • Line Location: A3+1
Function Call: WRITE
  • Prompt: !!,"NO routines selected."
  • Line Location: A3+3
Function Call: WRITE
  • Prompt: !,"REQUEST QUEUED"
  • Line Location: A3+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: DQ+5
Function Call: WRITE
  • Prompt: $J(RN,10)
  • Line Location: DQ+9
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>70
  • Line Location: DQ+9
Function Call: WRITE
  • Prompt: !,Y,?J>1+6," "
  • Line Location: DQ+13
Function Call: WRITE
  • Prompt: "--",!,?8
  • Condition for execution: $X>8
  • Line Location: DQ+13
Function Call: WRITE
  • Prompt: $E(X,1,IOM-(J>1+8))
  • Line Location: DQ+13
Function Call: WRITE
  • Prompt: !,J1,?4,Y,?J>1+10," "
  • Line Location: DQ+15
Function Call: WRITE
  • Prompt: "--",!,?12
  • Condition for execution: $X>12
  • Line Location: DQ+15
Function Call: WRITE
  • Prompt: $E(X,1,IOM-(J>1+12))
  • Line Location: DQ+15
Function Call: WRITE
  • Prompt: !
  • Line Location: DQ+19
Function Call: WRITE
  • Prompt: RN," * * ",$S(PG>1:"(cont.)",1:LC_" LINES, (total "_BYTECNT_", comments "_CCNT_") BYTES"),?60,"Page ",PG
  • Line Location: RSUM+13
Function Call: WRITE
  • Prompt: !,?8,HDR(1),?49,HDR(2),!
  • Line Location: RSUM+15
Function Call: READ
  • Formatting: !
  • Prompt: "Press RETURN to continue or '^' to exit: "
  • Variable: ST
  • Timeout: 600
  • Line Location: RSUM+17
Info |  Source |  Entry Points |  Interaction Calls