RCRJRTR1 ;WISC/RFJ-transaction report (print) ;1 Mar 97
;;4.5;Accounts Receivable;**68,340**;Mar 20, 1995;Build 9
;;Per VA Directive 6402, this routine should not be modified.
Q
;
;
PRINT ; print the report
N %I,DATA,DATEDIS1,DATEDIS2,INTTOTAL,NDB,NDBFLAG,NOW,PAGE,PRINTOTL,RCRJFLAG,RCRJLINE,SCREEN,SIGN,TOTALC,TOTALT,X,Y
;
; calculate new receivables from bills and store in 43C
I $D(TRANTYPE(43)) S NDB("43C",2)=$P($$GETNEW^RCRJRCOL(DATESTRT,DATEEND,0),"^",2)
;
S Y=$P(DATESTRT,".") D DD^%DT S DATEDIS1=Y
S Y=$P(DATEEND,".") D DD^%DT S DATEDIS2=Y
D NOW^%DTC S Y=% D DD^%DT S NOW=Y
S PAGE=1,RCRJLINE="",$P(RCRJLINE,"-",81)=""
S SCREEN=0 I '$D(ZTQUEUED),IO=IO(0),$E(IOST)="C" S SCREEN=1
U IO D H
;
S TRANTYPE="" F S TRANTYPE=$O(^TMP($J,"RCRJRTRA",TRANTYPE)) Q:TRANTYPE=""!($G(RCRJFLAG)) D
. I $Y>(IOSL-6) D:SCREEN PAUSE Q:$G(RCRJFLAG) D H
. S TYPE=$TR(TRANTYPE," ")
. W !!,"TRANSACTION TYPE: ",TYPE," ",$P($G(^PRCA(430.3,+TYPE,0)),"^")
. I TYPE="12A"!(TYPE="74A") W " [ADDED]" ; *340 added 74A
. I TYPE="12E"!(TYPE="74E") W " [EXEMPT]" ; *340 added 74E
. I TYPE="35C" W " [CONTRACTUAL ADJUSTMENTS]"
. I TYPE="34P" W " [PRE-PAYMENTS]"
. ;
. K TOTALT
. S CATDA=0 F S CATDA=$O(^TMP($J,"RCRJRTRA",TRANTYPE,CATDA)) Q:'CATDA!($G(RCRJFLAG)) D
. . I $Y>(IOSL-6) D:SCREEN PAUSE Q:$G(RCRJFLAG) D H
. . W !?5,"CATEGORY: ",$E($S($L(CATDA)=1:" ",1:"")_CATDA_" "_$P($G(^PRCA(430.2,CATDA,0)),"^"),1,20),?36
. . ;
. . K TOTALC
. . S BILLDA=0 F S BILLDA=$O(^TMP($J,"RCRJRTRA",TRANTYPE,CATDA,BILLDA)) Q:'BILLDA!($G(RCRJFLAG)) D
. . . ;
. . . S DA=0 F S DA=$O(^TMP($J,"RCRJRTRA",TRANTYPE,CATDA,BILLDA,DA)) Q:'DA!($G(RCRJFLAG)) S DATA=^(DA) D
. . . . I $Y>(IOSL-5) D:SCREEN PAUSE Q:$G(RCRJFLAG) D H
. . . . I RCRJSUMM=2 W !?10,$P($G(^PRCA(430,BILLDA,0)),"^"),?28,$P($G(^PRCA(433,DA,0)),"^"),?36
. . . . F %=1:1:4 D:RCRJSUMM=2 WRITE($P(DATA,"^",%)) I $P(DATA,"^",%)'="" S TOTALC(%)=$G(TOTALC(%))+$P(DATA,"^",%)
. . I $G(RCRJFLAG) Q
. . I RCRJSUMM=2 W !?10,$E($TR(RCRJLINE,"-","."),11,80),!?10,"TOTALS FOR CATEGORY ...",?36
. . F %=1:1:4 D WRITE($G(TOTALC(%))) I $G(TOTALC(%))'="" S TOTALT(%)=$G(TOTALT(%))+TOTALC(%)
. . I $Y>(IOSL-6) D:SCREEN PAUSE Q:$G(RCRJFLAG) D H
. ;
. I $G(RCRJFLAG) Q
. W !?5,$E($TR(RCRJLINE,"-","."),6,80),!?5,"TOTALS FOR TRANSACTION TYPE ...",?36
. F %=1:1:4 D WRITE($G(TOTALT(%))) I $G(TOTALT(%))'="" S NDB(TYPE,%)=$G(NDB(TYPE,%))+TOTALT(%)
. I $Y>(IOSL-6) D:SCREEN PAUSE Q:$G(RCRJFLAG) D H
;
I $G(RCRJFLAG) Q
;
; set ndbflag to change header for ndb totals (see H)
S NDBFLAG=1
D:SCREEN PAUSE Q:$G(RCRJFLAG) D H
;
; print national database totals
S PRINTOTL=0,INTTOTAL=0
W !!,"NATIONAL DATABASE TOTALS (VALUES FROM THE REPORT) ...",!
;
; 7/6/18 - *340 - updated the NDB bucket numbers in accordance with the changes made in patches 320 and 334
;
D NDB(15,43,2)
D NDB(15,"43C",2)
D NDB(15,43,3)
D NDB(15,43,4)
D NDB(16,1,2),NDB(16,73,2) ; *340 added 73 - cs increase adjustments
D NDB(18,35,2)
D NDB(20,34,2)
D NDB(21,2,2)
D NDB(22,"35C",2)
D NDB(23,"34P",2)
D NDB(24,10,2),NDB(24,10,3),NDB(24,10,4)
D NDB(25,11,2),NDB(25,11,3),NDB(25,11,4)
D NDB(26,9,2),NDB(26,9,3),NDB(26,9,4)
D NDB(27,8,2),NDB(27,8,3),NDB(27,8,4)
D NDB(40,34,3),NDB(40,"34P",3),NDB(40,2,3)
D NDB(41,34,4),NDB(41,2,4)
D NDB(42,"12A",3),NDB(42,"74A",3),NDB(42,13,3) ; *340 added 74A and 74E - cs admin.cost charges
D NDB(43,"12A",4),NDB(43,"74A",4),NDB(43,13,4)
D NDB(44,"12E",3),NDB(44,"12E",4),NDB(44,"74E",3),NDB(44,"74E",4),NDB(44,14,3)
D NDB(45,41,2)
W !,$E(RCRJLINE,1,80),!,"BALANCE GAINS/LOSSES FOR DATE RANGE",?42,"+/-",$J(PRINTOTL,13,2),$J(INTTOTAL,11,2)
;
W !!," The following formula can be used to balance the values in the national"
W !," database. Note: This report must be run for the entire month and all"
W !," transaction types must be selected. Also, this will only balance for"
W !," the months following the installation of this patch."
W !," Principal Int/Adm",!
W !,"Previous months receivables from NDB (category 1) + __________.__ _______.__"
W !,"Current months gains/losses from this report +/-",$J(PRINTOTL,14,2),$J(INTTOTAL,12,2)
W !,$E(RCRJLINE,1,80)
W !,"Current months receivables from NDB (category 1) = __________.__ _______.__"
;
Q
;
;
NDB(NDBTYPE,TRANTYPE,NODE) ; write ndb totals and calc end total
I +$G(NDB(TRANTYPE,NODE))=0 Q
;
W !,"(",NDBTYPE,") ",$$NDBCATEG(NDBTYPE),?36
;
S SIGN="-"
I $F(".1.73.12A.74A.13.43.43C.46.","."_TRANTYPE_".") S SIGN="+" ; *340 added 73 and 74A here
W $J(SIGN_" ",11),$J($G(NDB(TRANTYPE,NODE)),$S(NODE=2:11,1:22),2)
W ?75,"(",$J(TRANTYPE,3),")"
;
I NODE=2 S PRINTOTL=PRINTOTL+$S(SIGN="+":$G(NDB(TRANTYPE,NODE)),1:-$G(NDB(TRANTYPE,NODE)))
I NODE=3!(NODE=4) S INTTOTAL=INTTOTAL+$S(SIGN="+":$G(NDB(TRANTYPE,NODE)),1:-$G(NDB(TRANTYPE,NODE)))
Q
;
;
NDBCATEG(NDBTYPE) ; return ndb category
;
; 7/6/18 - *340 - updated the NDB bucket numbers in accordance with the changes made in patches 320 and 334
;
I NDBTYPE=15 Q "NEW RECEIVABLES"
I NDBTYPE=16 Q "TOTAL INCREASE ADJUSTMENTS"
I NDBTYPE=18 Q "TOTAL DECREASE ADJUSTMENTS"
I NDBTYPE=20 Q "COLLECTIONS - FULL PAYMENT"
I NDBTYPE=21 Q "COLLECTIONS - PART PAYMENT"
I NDBTYPE=22 Q "COLLECTIONS - CONTRACT ADJ"
I NDBTYPE=23 Q "COLLECTIONS - PREPAYMENTS"
I NDBTYPE=24 Q "COLLECTIONS - WAIVED IN FULL"
I NDBTYPE=25 Q "COLLECTIONS - WAIVED IN PART"
I NDBTYPE=26 Q "COLLECTIONS - TERM COMPROMISE"
I NDBTYPE=27 Q "COLLECTIONS - TERM FISCAL OFF"
I NDBTYPE=40 Q "COLLECTIONS - INTEREST"
I NDBTYPE=41 Q "COLLECTIONS - ADMIN"
I NDBTYPE=42 Q "INTEREST ADDED"
I NDBTYPE=43 Q "ADMINISTRATIVE COST ADDED"
I NDBTYPE=44 Q "INTEREST/ADMIN COST EXEMPT"
I NDBTYPE=45 Q "REFUNDS"
Q "UNKNOWN"
;
;
WRITE(VALUE) ; write value
I VALUE="" W $J(VALUE,11) Q
W $J(VALUE,11,2)
Q
;
;
PAUSE ; pause at end of page
N X U IO(0) W !,"Press RETURN to continue, '^' to exit:" R X:DTIME S:'$T X="^" S:X["^" RCRJFLAG=1 U IO Q
;
;
H ; header
S %=NOW_" PAGE "_PAGE,PAGE=PAGE+1 I PAGE'=2!(SCREEN) W @IOF
W $C(13),"AR TRANSACTION LISTING REPORT",?(80-$L(%)),%
W !," FOR THE DATE RANGE: ",DATEDIS1," TO ",DATEDIS2,?65,$J("TYPE: "_$S(RCRJSUMM=1:"SUMMARY",1:"DETAILED"),15)
;
I '$G(NDBFLAG) W !?26,$J("TRANSACTION AMOUNT",21),$J("PRINCIPAL",11),$J("INTEREST",11),$J("ADMIN",11)
I $G(NDBFLAG) W !,"NATIONAL DATABASE CATEGORY",?26,$J("ADD (+)/SUB (-)",21),$J("PRINCIPAL",11),$J("INT/ADM",11),$J("TRANSTYPE",11)
;
W !,RCRJLINE
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCRJRTR1 6839 printed Dec 13, 2024@01:48:18 Page 2
RCRJRTR1 ;WISC/RFJ-transaction report (print) ;1 Mar 97
+1 ;;4.5;Accounts Receivable;**68,340**;Mar 20, 1995;Build 9
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
+5 ;
PRINT ; print the report
+1 NEW %I,DATA,DATEDIS1,DATEDIS2,INTTOTAL,NDB,NDBFLAG,NOW,PAGE,PRINTOTL,RCRJFLAG,RCRJLINE,SCREEN,SIGN,TOTALC,TOTALT,X,Y
+2 ;
+3 ; calculate new receivables from bills and store in 43C
+4 IF $DATA(TRANTYPE(43))
SET NDB("43C",2)=$PIECE($$GETNEW^RCRJRCOL(DATESTRT,DATEEND,0),"^",2)
+5 ;
+6 SET Y=$PIECE(DATESTRT,".")
DO DD^%DT
SET DATEDIS1=Y
+7 SET Y=$PIECE(DATEEND,".")
DO DD^%DT
SET DATEDIS2=Y
+8 DO NOW^%DTC
SET Y=%
DO DD^%DT
SET NOW=Y
+9 SET PAGE=1
SET RCRJLINE=""
SET $PIECE(RCRJLINE,"-",81)=""
+10 SET SCREEN=0
IF '$DATA(ZTQUEUED)
IF IO=IO(0)
IF $EXTRACT(IOST)="C"
SET SCREEN=1
+11 USE IO
DO H
+12 ;
+13 SET TRANTYPE=""
FOR
SET TRANTYPE=$ORDER(^TMP($JOB,"RCRJRTRA",TRANTYPE))
if TRANTYPE=""!($GET(RCRJFLAG))
QUIT
Begin DoDot:1
+14 IF $Y>(IOSL-6)
if SCREEN
DO PAUSE
if $GET(RCRJFLAG)
QUIT
DO H
+15 SET TYPE=$TRANSLATE(TRANTYPE," ")
+16 WRITE !!,"TRANSACTION TYPE: ",TYPE," ",$PIECE($GET(^PRCA(430.3,+TYPE,0)),"^")
+17 ; *340 added 74A
IF TYPE="12A"!(TYPE="74A")
WRITE " [ADDED]"
+18 ; *340 added 74E
IF TYPE="12E"!(TYPE="74E")
WRITE " [EXEMPT]"
+19 IF TYPE="35C"
WRITE " [CONTRACTUAL ADJUSTMENTS]"
+20 IF TYPE="34P"
WRITE " [PRE-PAYMENTS]"
+21 ;
+22 KILL TOTALT
+23 SET CATDA=0
FOR
SET CATDA=$ORDER(^TMP($JOB,"RCRJRTRA",TRANTYPE,CATDA))
if 'CATDA!($GET(RCRJFLAG))
QUIT
Begin DoDot:2
+24 IF $Y>(IOSL-6)
if SCREEN
DO PAUSE
if $GET(RCRJFLAG)
QUIT
DO H
+25 WRITE !?5,"CATEGORY: ",$EXTRACT($SELECT($LENGTH(CATDA)=1:" ",1:"")_CATDA_" "_$PIECE($GET(^PRCA(430.2,CATDA,0)),"^"),1,20),?36
+26 ;
+27 KILL TOTALC
+28 SET BILLDA=0
FOR
SET BILLDA=$ORDER(^TMP($JOB,"RCRJRTRA",TRANTYPE,CATDA,BILLDA))
if 'BILLDA!($GET(RCRJFLAG))
QUIT
Begin DoDot:3
+29 ;
+30 SET DA=0
FOR
SET DA=$ORDER(^TMP($JOB,"RCRJRTRA",TRANTYPE,CATDA,BILLDA,DA))
if 'DA!($GET(RCRJFLAG))
QUIT
SET DATA=^(DA)
Begin DoDot:4
+31 IF $Y>(IOSL-5)
if SCREEN
DO PAUSE
if $GET(RCRJFLAG)
QUIT
DO H
+32 IF RCRJSUMM=2
WRITE !?10,$PIECE($GET(^PRCA(430,BILLDA,0)),"^"),?28,$PIECE($GET(^PRCA(433,DA,0)),"^"),?36
+33 FOR %=1:1:4
if RCRJSUMM=2
DO WRITE($PIECE(DATA,"^",%))
IF $PIECE(DATA,"^",%)'=""
SET TOTALC(%)=$GET(TOTALC(%))+$PIECE(DATA,"^",%)
End DoDot:4
End DoDot:3
+34 IF $GET(RCRJFLAG)
QUIT
+35 IF RCRJSUMM=2
WRITE !?10,$EXTRACT($TRANSLATE(RCRJLINE,"-","."),11,80),!?10,"TOTALS FOR CATEGORY ...",?36
+36 FOR %=1:1:4
DO WRITE($GET(TOTALC(%)))
IF $GET(TOTALC(%))'=""
SET TOTALT(%)=$GET(TOTALT(%))+TOTALC(%)
+37 IF $Y>(IOSL-6)
if SCREEN
DO PAUSE
if $GET(RCRJFLAG)
QUIT
DO H
End DoDot:2
+38 ;
+39 IF $GET(RCRJFLAG)
QUIT
+40 WRITE !?5,$EXTRACT($TRANSLATE(RCRJLINE,"-","."),6,80),!?5,"TOTALS FOR TRANSACTION TYPE ...",?36
+41 FOR %=1:1:4
DO WRITE($GET(TOTALT(%)))
IF $GET(TOTALT(%))'=""
SET NDB(TYPE,%)=$GET(NDB(TYPE,%))+TOTALT(%)
+42 IF $Y>(IOSL-6)
if SCREEN
DO PAUSE
if $GET(RCRJFLAG)
QUIT
DO H
End DoDot:1
+43 ;
+44 IF $GET(RCRJFLAG)
QUIT
+45 ;
+46 ; set ndbflag to change header for ndb totals (see H)
+47 SET NDBFLAG=1
+48 if SCREEN
DO PAUSE
if $GET(RCRJFLAG)
QUIT
DO H
+49 ;
+50 ; print national database totals
+51 SET PRINTOTL=0
SET INTTOTAL=0
+52 WRITE !!,"NATIONAL DATABASE TOTALS (VALUES FROM THE REPORT) ...",!
+53 ;
+54 ; 7/6/18 - *340 - updated the NDB bucket numbers in accordance with the changes made in patches 320 and 334
+55 ;
+56 DO NDB(15,43,2)
+57 DO NDB(15,"43C",2)
+58 DO NDB(15,43,3)
+59 DO NDB(15,43,4)
+60 ; *340 added 73 - cs increase adjustments
DO NDB(16,1,2)
DO NDB(16,73,2)
+61 DO NDB(18,35,2)
+62 DO NDB(20,34,2)
+63 DO NDB(21,2,2)
+64 DO NDB(22,"35C",2)
+65 DO NDB(23,"34P",2)
+66 DO NDB(24,10,2)
DO NDB(24,10,3)
DO NDB(24,10,4)
+67 DO NDB(25,11,2)
DO NDB(25,11,3)
DO NDB(25,11,4)
+68 DO NDB(26,9,2)
DO NDB(26,9,3)
DO NDB(26,9,4)
+69 DO NDB(27,8,2)
DO NDB(27,8,3)
DO NDB(27,8,4)
+70 DO NDB(40,34,3)
DO NDB(40,"34P",3)
DO NDB(40,2,3)
+71 DO NDB(41,34,4)
DO NDB(41,2,4)
+72 ; *340 added 74A and 74E - cs admin.cost charges
DO NDB(42,"12A",3)
DO NDB(42,"74A",3)
DO NDB(42,13,3)
+73 DO NDB(43,"12A",4)
DO NDB(43,"74A",4)
DO NDB(43,13,4)
+74 DO NDB(44,"12E",3)
DO NDB(44,"12E",4)
DO NDB(44,"74E",3)
DO NDB(44,"74E",4)
DO NDB(44,14,3)
+75 DO NDB(45,41,2)
+76 WRITE !,$EXTRACT(RCRJLINE,1,80),!,"BALANCE GAINS/LOSSES FOR DATE RANGE",?42,"+/-",$JUSTIFY(PRINTOTL,13,2),$JUSTIFY(INTTOTAL,11,2)
+77 ;
+78 WRITE !!," The following formula can be used to balance the values in the national"
+79 WRITE !," database. Note: This report must be run for the entire month and all"
+80 WRITE !," transaction types must be selected. Also, this will only balance for"
+81 WRITE !," the months following the installation of this patch."
+82 WRITE !," Principal Int/Adm",!
+83 WRITE !,"Previous months receivables from NDB (category 1) + __________.__ _______.__"
+84 WRITE !,"Current months gains/losses from this report +/-",$JUSTIFY(PRINTOTL,14,2),$JUSTIFY(INTTOTAL,12,2)
+85 WRITE !,$EXTRACT(RCRJLINE,1,80)
+86 WRITE !,"Current months receivables from NDB (category 1) = __________.__ _______.__"
+87 ;
+88 QUIT
+89 ;
+90 ;
NDB(NDBTYPE,TRANTYPE,NODE) ; write ndb totals and calc end total
+1 IF +$GET(NDB(TRANTYPE,NODE))=0
QUIT
+2 ;
+3 WRITE !,"(",NDBTYPE,") ",$$NDBCATEG(NDBTYPE),?36
+4 ;
+5 SET SIGN="-"
+6 ; *340 added 73 and 74A here
IF $FIND(".1.73.12A.74A.13.43.43C.46.","."_TRANTYPE_".")
SET SIGN="+"
+7 WRITE $JUSTIFY(SIGN_" ",11),$JUSTIFY($GET(NDB(TRANTYPE,NODE)),$SELECT(NODE=2:11,1:22),2)
+8 WRITE ?75,"(",$JUSTIFY(TRANTYPE,3),")"
+9 ;
+10 IF NODE=2
SET PRINTOTL=PRINTOTL+$SELECT(SIGN="+":$GET(NDB(TRANTYPE,NODE)),1:-$GET(NDB(TRANTYPE,NODE)))
+11 IF NODE=3!(NODE=4)
SET INTTOTAL=INTTOTAL+$SELECT(SIGN="+":$GET(NDB(TRANTYPE,NODE)),1:-$GET(NDB(TRANTYPE,NODE)))
+12 QUIT
+13 ;
+14 ;
NDBCATEG(NDBTYPE) ; return ndb category
+1 ;
+2 ; 7/6/18 - *340 - updated the NDB bucket numbers in accordance with the changes made in patches 320 and 334
+3 ;
+4 IF NDBTYPE=15
QUIT "NEW RECEIVABLES"
+5 IF NDBTYPE=16
QUIT "TOTAL INCREASE ADJUSTMENTS"
+6 IF NDBTYPE=18
QUIT "TOTAL DECREASE ADJUSTMENTS"
+7 IF NDBTYPE=20
QUIT "COLLECTIONS - FULL PAYMENT"
+8 IF NDBTYPE=21
QUIT "COLLECTIONS - PART PAYMENT"
+9 IF NDBTYPE=22
QUIT "COLLECTIONS - CONTRACT ADJ"
+10 IF NDBTYPE=23
QUIT "COLLECTIONS - PREPAYMENTS"
+11 IF NDBTYPE=24
QUIT "COLLECTIONS - WAIVED IN FULL"
+12 IF NDBTYPE=25
QUIT "COLLECTIONS - WAIVED IN PART"
+13 IF NDBTYPE=26
QUIT "COLLECTIONS - TERM COMPROMISE"
+14 IF NDBTYPE=27
QUIT "COLLECTIONS - TERM FISCAL OFF"
+15 IF NDBTYPE=40
QUIT "COLLECTIONS - INTEREST"
+16 IF NDBTYPE=41
QUIT "COLLECTIONS - ADMIN"
+17 IF NDBTYPE=42
QUIT "INTEREST ADDED"
+18 IF NDBTYPE=43
QUIT "ADMINISTRATIVE COST ADDED"
+19 IF NDBTYPE=44
QUIT "INTEREST/ADMIN COST EXEMPT"
+20 IF NDBTYPE=45
QUIT "REFUNDS"
+21 QUIT "UNKNOWN"
+22 ;
+23 ;
WRITE(VALUE) ; write value
+1 IF VALUE=""
WRITE $JUSTIFY(VALUE,11)
QUIT
+2 WRITE $JUSTIFY(VALUE,11,2)
+3 QUIT
+4 ;
+5 ;
PAUSE ; pause at end of page
+1 NEW X
USE IO(0)
WRITE !,"Press RETURN to continue, '^' to exit:"
READ X:DTIME
if '$TEST
SET X="^"
if X["^"
SET RCRJFLAG=1
USE IO
QUIT
+2 ;
+3 ;
H ; header
+1 SET %=NOW_" PAGE "_PAGE
SET PAGE=PAGE+1
IF PAGE'=2!(SCREEN)
WRITE @IOF
+2 WRITE $CHAR(13),"AR TRANSACTION LISTING REPORT",?(80-$LENGTH(%)),%
+3 WRITE !," FOR THE DATE RANGE: ",DATEDIS1," TO ",DATEDIS2,?65,$JUSTIFY("TYPE: "_$SELECT(RCRJSUMM=1:"SUMMARY",1:"DETAILED"),15)
+4 ;
+5 IF '$GET(NDBFLAG)
WRITE !?26,$JUSTIFY("TRANSACTION AMOUNT",21),$JUSTIFY("PRINCIPAL",11),$JUSTIFY("INTEREST",11),$JUSTIFY("ADMIN",11)
+6 IF $GET(NDBFLAG)
WRITE !,"NATIONAL DATABASE CATEGORY",?26,$JUSTIFY("ADD (+)/SUB (-)",21),$JUSTIFY("PRINCIPAL",11),$JUSTIFY("INT/ADM",11),$JUSTIFY("TRANSTYPE",11)
+7 ;
+8 WRITE !,RCRJLINE
+9 QUIT
