( [0+8+FQ(+4)[1 0FO10F"G+Q1 'W+FQ()+4U1 FQ1"L0' ,Q1:M(Q1+4(]1]0)) .u ` 3BYgln  ? K& SETUP VARG LIBRARYM.MVT52 KEYPAD PROCESSORU..? M(M.MVARG ALTERNATE KEYPAD)VARG ALTERNATE KEYPAD27FSIMAGEOUT 61FSIMAGEOUTVARG NORMAL KEYPAD27FSIMAGEOUT 62FSIMAGEOUTVT52 KEYPAD PROCESSORxFI[A FS^RARGP"E^FT ARG: ' QA-112"LOUNDIGIT' QA-121"GOUNDIGIT' FS^RARG"L Q.Y-1"E-1*(QA-112)FS^RARG' "#FS^RARG*10-QA+112FS^RARG'' "#FS^RARG*10+QA-112FS^RARG' Q.Y+1U.Y QA-64UA ^FTA OEXIT !UNDIGIT! QA-77"EM(M.M^R DESCRIBE)OEXIT1' QA-110"E FS^RARGP"GFGOEXIT' -1FS^RARG ^FT- 1U.Y !EXIT! 0FS^RLAST 3FS^RARGP !EXIT1! 0FSECHOACTIVE META ARG COLLECTOR3FS^RARGP 0FS^RLAST [A 1U.Y ^FT ARG:  QA--"E-1FS^RARG ^FT-OLP1' QA-48FS^RARG ^FTA OLP1 !LP! Q.Y+1U.Y FS^RARG"L Q.Y-2"E-1*(QA-48)FS^RARG' "#FS^RARG*10-QA+48FS^RARG'' "#FS^RARG*10+QA-48FS^RARG' !LP1! :FI-127"EFIQ.Y-1U.Y FSECHODISPXFSECHODISP^FT  FSECHODISPXFSECHODISP FS^RARG"L Q.Y"E1FS^RLASTOEXIT' Q.Y-1"E-1FS^RARGOLP1' FS^RARG/10FS^RARGOLP1' "#Q.Y"E1FS^RLASTOEXIT' FS^RARG/10FS^RARGOLP1'' :FI-48"LOEXIT' :FI-57"GOEXIT' FIUA ^FTA OLP !EXIT! ~FILENAME~VARG~DOC~ ~FILENAME~A VT52 argument accumulation package ~DOC~ & SETUP VARG LIBRARYC Sets up initial definitions for this package. ~DOC~ VARG ALTERNATE KEYPADC Sets alternate keypad mode for VT52's When this command is executed, the numeric keypad can be used to enter arguments for the following function. Numbers enter as themselves and the "." key serves as minus. ~DOC~ VARG NORMAL KEYPADnC Undos alternate keypad mode for VT52's When this command is executed from a VT52, the keys on the keypad become functionally identical to the standard digit keys. See VARG ALTERNATE KEYPAD for a description of the alternative. ~DOC~ VT52 KEYPAD PROCESSORC Processes individual digits This macro is intended to be put on meta-? so that when a VT52 is in VARG ALTERNATE KEYPAD mode, this will enabe the special functions such as argument accumulation of digits ~DOC~ META ARG COLLECTORrC Runs the improved argument collector for non-TVs ALTMODE followed by an optional "-" and any number of digits collects the digits as an argument for the next command. RUBOUT may be used to delete characters in the argument string. ~DIRECTORY~p& SETUP VARG LIBRARY VARG ALTERNATE KEYPAD VARG NORMAL KEYPAD VT52 KEYPAD PROCESSOR META ARG COLLECTOR ~INVERT~[1Q1