.TITLE BOX
/ THIS SUBROUTINE, CREATED ON SEPTEMBER 5, 1972,
/ BY JOHN WILSON A FAT FAGGOT AND THE BIGGEST ASSHOLE IN SYSTEMS DESIGN
/ IS SUPPOSED TO BE FORTRAN CALLEABLE (ALTHOUGH EVERYONE KNOWS HE A DUNCE)
/ CALLED ONLY ONCE AT THE BEGINNING OF A FORTRAN PROGRAM, THE
/ INTEGER VALUE OF THE BUTTON PRESSED ON THE FUNCTION 
/ BOX, IS RETURNED TO THE AND/OR THE INTERRUPT BUTTON,
/ PROGRAM BY THE TWO ARGUEMENTS.
/
/ REALLY HE IS A SHITHEAD ASK ANYONE WHO HAS HAD THE
/ MISFORTUNE TO EVEN LOOK AT HIS UGLY BODY.
/ CALLING SEQUENCE:
/
/  HERE MEATHEAD, WANT A BYTE OF MILKBONE
/
/
/   AND THE SUBROUTINE SEQUENCE IS AS FOLLOWS:
/
/
/	-----
/	CALL BOX(NUM,INT)
/	-----
/	-----
/	INT=+1
/	NUM=-1
/	-----
/	-----
/ C IN THE NEXT LINE, THE PROGRAM WILL WAIT UNTIL
/ C A BUTTON WAS PRESSED, WHICH WILL CHANGE THE 
/ C NUM=-1 TO NUM EQUAL TO SOME INTEGER NUMBER BETWEEN
/ C 1 AND 0, AND / OR THE INTERRUPT BUTTON WILL
/ C CHANGE FROM +1 TO -1 IF PRESSED.
/	-----
/  10	IF(NUM.EQ.-1.AND.INT.EQ.+1)GOTO 10
/	-----
/ C AT THIS POINT A NEW VALUE FOR NUM AND/OR INT EXISTS
/ 
/ THE LOOPING CAN BE REPEATED AS MANY TIMES AS DESIRED WITHOUT
/ RECALLING BOX.
/
/			DOCUMENTED AND PLACED ON LIBRARY
/			DUMP TAPE ON APRIL 14,1974 BY
/			PETER R. ZACHARKIW
/
        .GLOBL BOX,.DA
BOX     XX
        JMS*    .DA
        JMP     .+3
NUM     0
INT     0
/
/ SET UP INTERRUPT HANDLING
/ SETUP A PADDED CELL FOR JOHN THE NERD
/
TOP     CAL
        16
        701401
        NUMBER
/
        CAL
        16
        701601
        BINT
/
        DBK
EXIT    XCT     (JMP* BOX
/
NUMBER  DAC     ACSAVE  /SAVE PC, ETC
        LAC*    (0
        DAC     OUTAD
        701412
        DAC*    NUM
        SAD     (12
        DZM*    NUM
        701404
        JMP     END
/
BINT    DAC     ACSAVE
        LAC*    (0
        DAC     OUTAD
        LAW     -1
        DAC*    INT
        701602       /CLEAR FLAG
/
END     LAC     ACSAVE
        ION
        DBR
        JMP*    OUTAD
/
/ IF THIS HAS BEEN YOUR ONLY ENCOUNTER WITH JOHN WILSON
/ THEN COUNT YOUR LUCKY STARS AND AVOID THE S.D. LAB AREA
/
ACSAVE  0
OUTAD   0
        .END