DataMuseum.dk

top - metrics - download

    Length: 11219 (0x2bd3)
    Types: SPC/1-COMAL-80
    Notes: Mikados_B, UNKNOWN_TOKEN_00, UNKNOWN_TOKEN_cb, UNKNOWN_TOKEN_cc, UNKNOWN_TOKEN_cd
    Names: »SYSP«

└─⟦86fa88d8d⟧ Bits:30005772 Bogføringssystemet 'SYS-KAMMS' v.1.0
    └─⟦this⟧ »SYSP« 

SPC/1 COMAL-80

00100 // **************************************************
00110 // *………………………………………………………………………………………………………………………………*
00120 // *…………………………Bogf|ringssystemet…'SYS-KAS'…………………………*
00130 // *………………………………………………vers.…1.0………………………………………………………*
00140 // *………………………………………………………………………………………………………………………………*
00150 // *…Udviklet…marts…1983…p}…en…'SPC/1'…mikrodatamat…*
00160 // *…Programsystemet…er…skrevet…i…COMAL80…vers.…1.2…*
00170 // *………………………………………………………………………………………………………………………………*
00180 // *…Udviklet…af…:…Peter…Kristensen……………………………………………*
00190 // *………………………………………………………………………………………………………………………………*
00200 // *………(C)…………………:…forlaget…systime…a/s…………………………………*
00210 // *………………………………………Klokkebakken…20,…Gjellerup…………………*
00220 // *………………………………………7400……Herning……………………………………………………*
00230 // **************************************************
00240 EXEC DIMENSIONER
00250 EXEC INITIER
00260 EXEC MENU
00270 CHAIN PROGRAM $
00280 PROC DIMENSIONER
00290 // Standard…variable
00300 DIM SPC $ OF 80 , TAL $ OF 10 , ALFA $ OF 28 , SVAR $ OF 8 , PRGFL $ OF 8
00310 DIM PROGRAM $ OF 17
00320 REAL RESRV , PPAR
00330 INTEGER OK , TRUE , FALSE , I , J
00340 // Hj{lpevariable
00350 DIM A_KTONR $ OF 8
00360 INTEGER HIGH , LOW , POS , IDXPOS
00370 // Variable…til…filen…SYSPARA
00380 DIM SYSPARA $ OF 17
00390 DIM SYST_NAVN $ OF 30 , S_KODE $ OF 1
00400 DIM DATAFL $ OF 8 , T_KODE $ OF 1
00410 // Variable…til…filen…@@PARAM
00420 DIM PARAM $ OF 17
00430 DIM FIRMANAVN $ OF 30 , SYST_DAT $ OF 8
00440 REAL MOMS
00450 DIM ST_DATO $ OF 8
00460 INTEGER ANT_PER , PER_NR
00470 // Variable…til…filen…@@KTOIDX
00480 DIM KTOIDX $ OF 17
00490 INTEGER I_H\JREC , I_MAXREC
00500 DIM KTONR $ OF 8
00510 INTEGER RECNR
00520 // Variable…til…filen…@@FKTONR
00530 DIM FKTONR $ OF 17
00540 // Variable…til…filen…@@KTOGRP
00550 DIM KTOGRP $ OF 17
00560 DIM A_KTOGRP $ OF 8
00570 // Variable…til…filen…@@KASSE
00580 DIM KASSE $ OF 17
00590 INTEGER K_H\JREC , K_MAXREC , S_NR_KASSE
00600 // Variable…til…filen…@@DG_POS
00610 DIM DG_POS $ OF 17
00620 INTEGER P_H\JREC , P_MAXREC , S_NR_DG_POS
00630 // Variable…til…filen…@@DRIFT\
00640 DIM DRIFT\ $ OF 17
00650 DIM PRIMODAT $ OF 6
00660 ENDPROC DIMENSIONER
00670
00680 PROC INITIER
00690 LET PRGFL $ := "DP2"
00700 LET PROGRAM $ := PRGFL $ + ":SYS"
00710 LET TAL $ := "1234567890"
00720 FOR I := ╱cc╱ ( "A" ) TO ( "]" ) DO LET ALFA $ := ALFA $ + CHR$ ( I )
00730 LET SPC $ := "……………………………………………………………………………………………………………………"
00740 LET SPC $ := SPC $ + SPC $
00750 LET FALSE := 0 ; TRUE := 1 // boolske…variable
00760 LET SYSPARA $ := PRGFL $ + ":SYSPARA"
00770 EXEC OPENFIL ( SYSPARA $ , "R" )
00780 GET SYSPARA $ , 1 : SYST_NAVN $ , S_KODE $
00790 EXEC TERMINAL_IDX
00800 CLOSE SYSPARA $
00810 LET PARAM $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "PARAM"
00820 EXEC OPENFIL ( PARAM $ , "W" )
00830 GET PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
00840 LET KTOIDX $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOIDX"
00850 LET FKTONR $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "FKTONR"
00860 LET KTOGRP $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KTOGRP"
00870 LET KASSE $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "KASSE"
00880 LET DG_POS $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "DG_POS"
00890 LET DRIFT\ $ := DATAFL $ + ":" + S_KODE $ + T_KODE $ + "DRIFT\"
00900 EXEC OPENFIL ( DRIFT\ $ , "W" )
00910 EXEC OPENFIL ( KTOIDX $ , "R" )
00920 EXEC OPENFIL ( FKTONR $ , "W" )
00930 EXEC OPENFIL ( KTOGRP $ , "W" )
00940 EXEC OPENFIL ( KASSE $ , "W" )
00950 EXEC OPENFIL ( DG_POS $ , "W" )
00960 ENDPROC INITIER
00970
00980 PROC MENU
00990 EXEC OVERSKRIFT ( "[ndring…af…parameteroplysninger" , 4 )
01000 PRINT "<C0808>1.……Firmanavn"
01010 PRINT "<C0809>2.……Momsprocent"
01020 PRINT "<C0810>3.……N{ste…nummer…p}…kasserapport"
01030 PRINT "<C0811>4.……N{ste…nummer…p}…konteringsliste"
01040 PRINT "<C0812>5.……Startdato…for…regnskabs}ret"
01050 PRINT "<C0813>6.……Antal…perioder…i…regnskabs}ret"
01060 PRINT "<C0814>7.……Nr.…p}…nuv{rende…regnskabsperiode"
01070 PRINT "<C0815>8.……[ndring…af…terminalkoder…m.m."
01080 PRINT "<SC0817>RETURN…=…Programfordeler"
01090 IF ALSE THEN
01100 PRINT "<SC0211>Kontonumre:"
01110 PRINT "<C0212>9.……kasse"
01120 PRINT "<C0213>10.…bank"
01130 PRINT "<C0214>11.…giro"
01140 PRINT "<C0215>12.…kassedifferencer"
01150 PRINT "<C0216>13.…indg.…moms"
01160 PRINT "<C0217>14.…udg.…moms"
01170 PRINT "<SC0218>15.…resultatopg|relse"
01180 PRINT "<SC0219>16.…balance"
01190 PRINT "<SC0220>17.…f|rste…balancekonto"
01200 PRINT "<C0221>18.…]rets…resultat"
01210 PRINT "<C2711>Kontonumre:"
01220 PRINT "<C2712>19.…Privatforbrug"
01230 PRINT "<SC2714>Kontogrupper:"
01240 PRINT "<SC2715>20.…Oms{tning"
01250 PRINT "<SC2716>21.…Variable…omkostninger"
01260 PRINT "<SC2717>22.…Andre…omkostninger"
01270 PRINT "<SC2718>23.…Personale…omkostninger"
01280 PRINT "<SC2719>24.…Afskrivninger"
01290 PRINT "<SC2720>25.…Finansieringsindt{gter"
01300 PRINT "<SC2721>26.…Finansieringsomk."
01310 PRINT "<SC5412>27.…Ekstraordin{re…poster"
01320 PRINT "<SC5411>Kontogrupper:"
01330 PRINT "<SC5413>28.…Anl{gsaktiver"
01340 PRINT "<SC5414>29.…Varebeholdninger"
01350 PRINT "<SC5415>30.…Tilgodehavender"
01360 PRINT "<SC5416>31.…Debitorer"
01370 PRINT "<SC5417>32.…Likvide…beh.…m.v."
01380 PRINT "<SC5418>33.…Egenkapital"
01390 PRINT "<SC5419>34.…Hens{ttelser"
01400 PRINT "<SC5420>35.…G{ld"
01410 PRINT "<C5421>36.…Kreditorer"
01420 ENDIF
01430 REPEAT
01440 EDIT "<SC0223>Indtast…linienummer…" : SVAR $ ( 1 : 2 )
01450 EXEC SL_FEJLLINIE
01460 IF SVAR $ IN "……" THEN EXIT
01470 IF SVAR $ ( 1 ) IN TAL $ THEN
01480 EXEC FEJL ( "Ulovligt…tegn:…'" + SVAR $ ( 1 ) + "'" )
01490 ELSE
01500 IF SVAR $ ( 2 ) IN TAL $ + "…" THEN
01510 EXEC FEJL ( "Ulovligt…tegn:…'" + SVAR $ ( 2 ) + "'" )
01520 ENDIF
01530 ENDIF
01540 IF K THEN
01550 EXEC TAL_CONTROL ( SVAR $ )
01560 IF ASC ( SVAR $ ) =< 8 THEN EXEC RET_LINIE ( ASC ( SVAR $ ) )
01570 LET SVAR $ := ""
01580 ENDIF
01590 UNTIL FALSE
01600 ENDPROC MENU
01610
01620 PROC RET_LINIE ( R_LIN )
01630 PRINT "<SC0123>" ; SPC $ ( 1 : 78 )
01640 CASE R_LIN OF
01650 WHILE 1
01660 LET FIRMANAVN $ := ""
01670 PRINT "<SC1623>.............................."
01680 EDIT "<SC0223>1.……Firmanavn:…" : FIRMANAVN $
01690 PUT PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
01700 PRINT "<SC0101>" ; SPC $ ( 1 : 50 )
01710 PRINT "<SC0101>Firmanavn:…" ; FIRMANAVN $
01720 WHILE 2
01730 LET SVAR $ := CHR$ ( MOMS , 2 , 2 )
01740 REPEAT
01750 PRINT "<SC0223>" ; SPC $ ( 1 : 20 )
01760 EDIT "<SC0223>2.……Momsprocent:…" : SVAR $
01770 EXEC SL_FEJLLINIE
01780 EXEC TAL_CONTROL ( SVAR $ )
01790 UNTIL OK
01800 LET MOMS := ASC ( SVAR $ )
01810 PUT PARAM $ , 1 : FIRMANAVN $ , SYST_DAT $ , MOMS
01820 WHILE 3
01830 GET KASSE $ , 1 : K_H\JREC , K_MAXREC , S_NR_KASSE
01840 REPEAT
01850 LET SVAR $ := CHR$ ( S_NR_KASSE , 4 )
01860 PRINT "<SC0223>" ; SPC $ ( 1 : 40 )
01870 EDIT "<SC0223>3.……N{ste…nummer…p}…kasserapport:…" : SVAR $ ( 1 : 4 )
01880 EXEC SL_FEJLLINIE
01890 EXEC TAL_CONTROL ( SVAR $ )
01900 IF "." IN SVAR $ THEN EXEC FEJL ( "Ulovligt…tegn:…'.'" )
01910 UNTIL OK
01920 LET S_NR_KASSE := ASC ( SVAR $ )
01930 PUT KASSE $ , 1 : K_H\JREC , K_MAXREC , S_NR_KASSE
01940 WHILE 4
01950 GET DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS
01960 REPEAT
01970 LET SVAR $ := CHR$ ( S_NR_DG_POS , 4 )
01980 PRINT "<SC0223>" ; SPC $ ( 1 : 40 )
01990 EDIT "<SC0223>3.……N{ste…nummer…p}…konteringsliste:…" : SVAR $ ( 1 : 4 )
02000 EXEC SL_FEJLLINIE
02010 EXEC TAL_CONTROL ( SVAR $ )
02020 IF "." IN SVAR $ THEN EXEC FEJL ( "Ulovligt…tegn:…'.'" )
02030 UNTIL OK
02040 LET S_NR_DG_POS := ASC ( SVAR $ )
02050 PUT DG_POS $ , 1 : P_H\JREC , P_MAXREC , S_NR_DG_POS
02060 WHILE 5
02070 GET DRIFT\ $ , 1 : PRIMODAT $
02080 REPEAT
02090 EDIT "<SC0223>16.…Startdato…for…regnskabs}ret…(}}mmdd):…" : PRIMODAT $
02100 EXEC SL_FEJLLINIE
02110 EXEC DATO_CONTROL ( PRIMODAT $ )
02120 UNTIL OK
02130 PUT DRIFT\ $ , 1 : PRIMODAT $
02140 WHILE 6 , 7
02150 GET PARAM $ , 2 : ST_DATO $ , ANT_PER , PER_NR
02160 CASE R_LIN OF
02170 WHILE 6
02180 REPEAT
02190 LET SVAR $ := CHR$ ( ANT_PER , 2 )
02200 EDIT "<SC0223>6.……Antal…perioder…i…regnskabs}ret:…" : SVAR $ ( 1 : 2 )
02210 EXEC TAL_CONTROL ( SVAR $ )
02220 IF "." IN SVAR $ THEN EXEC FEJL ( "Ulovligt…tegn:…'.'" )
02230 UNTIL OK
02240 LET ANT_PER := ASC ( SVAR $ )
02250 WHILE 7
02260 REPEAT
02270 LET SVAR $ := CHR$ ( PER_NR , 2 )
02280 EDIT "<SC0223>7.……Nr.…p}…nuv{rende…regnskabsperiode:…" : SVAR $ ( 1 : 2 )
02290 EXEC TAL_CONTROL ( SVAR $ )
02300 IF "." IN SVAR $ THEN EXEC FEJL ( "Ulovligt…tegn:…'.'" )
02310 UNTIL OK
02320 LET PER_NR := ASC ( SVAR $ )
02330 ENDCASE
02340 PUT PARAM $ , 2 : ST_DATO $ , ANT_PER , PER_NR
02350 WHILE 8
02360 LET PROGRAM $ := PRGFL $ + ":SYSPTK"
02370 CHAIN PROGRAM $
02380 WHILE 9
02390 EXEC [NDRE_KTONR ( "9.……Kontonummer…for…kasse:…" , 1 )
02400 WHILE 10
02410 EXEC [NDRE_KTONR ( "10.…Kontonummer…for…bank:…" , 2 )
02420 WHILE 11
02430 EXEC [NDRE_KTONR ( "11.…Kontonummer…for…giro:…" , 3 )
02440 WHILE 12
02450 EXEC [NDRE_KTONR ( "12.…Kontonummer…for…kassedifferencer:…" , 4 )
02460 WHILE 13
02470 EXEC [NDRE_KTONR ( "13.…Kontonummer…for…indg.…moms:…" , 5 )
02480 WHILE 14
02490 EXEC [NDRE_KTONR ( "14.…Kontonummer…for…udg.…moms:…" , 6 )
02500 WHILE 15
02510 EXEC [NDRE_KTONR ( "15.…Kontonummer…for…resultatopg|relse:…" , 7 )
02520 WHILE 16
02530 EXEC [NDRE_KTONR ( "16.…Kontonummer…for…balance:…" , 8 )
02540 WHILE 17
02550 EXEC [NDRE_KTONR ( "17.…Kontonummer…for…f|rste…balancekonto:…" , 9 )
02560 WHILE 18
02570 EXEC [NDRE_KTONR ( "18.…Kontonummer…for…}rets…resultat:…" , 10 )
02580 WHILE 19
02590 EXEC [NDRE_KTONR ( "19.…Kontonummer…for…privatforbrug:…" , 11 )
02600 WHILE 20
02610 EXEC [NDRE_KTOGRP ( "20.…Kontogruppe…for…oms{tning:…" , 1 )
02620 WHILE 21
02630 EXEC [NDRE_KTOGRP ( "21.…Kontogruppe…for…variable…omkostninger:…" , 2 )
02640 WHILE 22
02650 EXEC [NDRE_KTOGRP ( "22.…Kontogruppe…for…andre…omkostninger:…" , 3 )
02660 WHILE 23
02670 EXEC [NDRE_KTOGRP ( "23.…Kontogruppe…for…personale…omkostninger:…" , 4 )
02680 WHILE 24
02690 EXEC [NDRE_KTOGRP ( "24.…Kontogruppe…for…afskrivninger:…" , 5 )
02700 WHILE 25
02710 EXEC [NDRE_KTOGRP ( "25.…Kontogruppe…for…finansieringsindt{gter:…" , 6 )
02720 WHILE 26
02730 EXEC [NDRE_KTOGRP ( "26.…Kontogruppe…for…finansieringsomk.:…" , 7 )
02740 WHILE 27
02750 EXEC [NDRE_KTOGRP ( "27.…Kontogruppe…for…ekstraordin{re…poster:…" , 8 )
02760 WHILE 28
02770 EXEC [NDRE_KTOGRP ( "28.…Kontogruppe…for…anl{gsaktiver:…" , 9 )
02780 WHILE 29
02790 EXEC [NDRE_KTOGRP ( "29.…Kontogruppe…for…varebeholdninger:…" , 10 )
02800 WHILE 30
02810 EXEC [NDRE_KTOGRP ( "30.…Kontogruppe…for…tilgodehavender:…" , 11 )
02820 WHILE 31
02830 EXEC [NDRE_KTOGRP ( "31.…Kontogruppe…for…debitorer:…" , 12 )
02840 WHILE 32
02850 EXEC [NDRE_KTOGRP ( "32.…Kontogruppe…for…likvide…beholdninger…m.v.:…" , 13 )
02860 WHILE 33
02870 EXEC [NDRE_KTOGRP ( "33.…Kontogruppe…for…egenkapital:…" , 14 )
02880 WHILE 34
02890 EXEC [NDRE_KTOGRP ( "34.…Kontogruppe…for…hens{ttelser:…" , 15 )
02900 WHILE 35
02910 EXEC [NDRE_KTOGRP ( "35.…Kontogruppe…for…g{ld:…" , 16 )
02920 WHILE 36
02930 EXEC [NDRE_KTOGRP ( "36.…Kontogruppe…for…kreditorer:…" , 17 )
02940 ENDCASE
02950 PRINT "<SC0123>" ; SPC $ ( 1 : 78 )
02960 ENDPROC RET_LINIE
02970
02980 PROC OPENFIL ( FNAVN $ , WAY $ )
02990 REPEAT
03000 IF AY $ = "W" OR WAY $ = "w" THEN
03010 OPEN FNAVN $ , W
03020 ELSE
03030 OPEN FNAVN $ , R
03040 ENDIF
03050 IF ( FNAVN $ ) THEN
03060 PRINT "<SC2301>" ; CHR$ ( 7 )
03070 IF ( FNAVN $ ) = 6 THEN
03080 PRINT "<SC1602>***…Fejl…nr.…6…-…inds{t…diskette…og…tryk…<RETURN>…***"
03090 INPUT "" : SVAR $
03100 ELSE
03110 PRINT "<SC1802>***…Fejl…nr.…" ; CHR$ ( ╱cd╱ ( FNAVN $ ) , 2 ) ; "…ved…}bning…af…"
03120 PRINT "<S>" ; FNAVN $ ; "…***"
03130 INPUT "" : SVAR $
03140 PRINT "<C0102>" ; SPC $
03150 ENDIF
03160 ENDIF
03170 UNTIL NOT ╱cd╱ ( FNAVN $ )
03180 ENDPROC OPENFIL
03190 PROC TERMINAL_IDX
03200 LET PPAR := 5 ; RESRV := 0
03210 CALL E"DDE:PRES"
03220 GET SYSPARA $ , 1 + RESRV : DATAFL $ , T_KODE $
03230 ENDPROC TERMINAL_IDX
03240 PROC SL_FEJLLINIE
03250 LET OK := TRUE
03260 PRINT "<C0102>" ; SPC $
03270 ENDPROC SL_FEJLLINIE
03280
03290 PROC FEJL ( ST $ )
03300 LET OK := FALSE
03310 CURSOR 36 - ( ╱cb╱ ( ST $ ) / 2 ) , 2
03320 PRINT "<S>***…" + ST $ + "…***" ; CHR$ ( 7 )
03330 ENDPROC FEJL
03340 PROC OVERSKRIFT ( ST $ , L )
03350 PRINT "<XC0101>Firmanavn:…" ; FIRMANAVN $
03360 PRINT "<SC6501>Dato:…" ; SYST_DAT $ ( 1 : 2 ) ; "." ; SYST_DAT $ ( 3 : 2 ) ; "."
03370 PRINT SYST_DAT $ ( 5 : 2 )
03380 CURSOR 34 - INT ( ╱cb╱ ( ST $ ) / 2 ) , L
03390 PRINT "***…" ; ST $ ; "…***"
03400 ENDPROC OVERSKRIFT
03410 PROC TAL_CONTROL ( REF RST $ )
03420 LET J := 0 ; OK := TRUE
03430 FOR I := 1 TO ( RST $ ) DO
03440 IF RST $ ( I ) IN "0123456789." THEN LET J := J + 1 ; RST $ ( J ) := RST $ ( I )
03450 NEXT I
03460 IF = 0 THEN
03470 LET OK := FALSE
03480 ELSE
03490 LET RST $ := RST $ ( 1 : J )
03500 ENDIF
03510 ENDPROC TAL_CONTROL
03520
03530 PROC FIND_KTO ( REF R_KTONR $ )
03540 LET OK := FALSE
03550 GET KTOIDX $ , 1 : I_H\JREC , I_MAXREC
03560 LET LOW := 1 ; HIGH := I_H\JREC + 1 ; POS := 2
03570 IF IGH > 1 THEN
03580 REPEAT
03590 LET POS := INT ( ( HIGH - LOW ) / 2 + .5 ) + LOW
03600 GET KTOIDX $ , POS : KTONR $ , RECNR
03610 IF TONR $ > R_KTONR $ THEN
03620 LET HIGH := POS
03630 ELSE
03640 IF TONR $ < R_KTONR $ THEN
03650 LET LOW := POS
03660 ENDIF
03670 ENDIF
03680 UNTIL HIGH - LOW =< 1 OR R_KTONR $ = KTONR $
03690 IF KTONR $ = R_KTONR $ THEN LET OK := TRUE
03700 ENDIF
03710 LET FIND_KTO := POS
03720 ENDPROC FIND_KTO
03730 PROC DATO_CONTROL ( REF RST $ )
03740 LET OK := TRUE
03750 IF RST $ ( 1 : 2 ) < "00" OR RST $ ( 1 : 2 ) > "99" THEN LET OK := FALSE
03760 IF RST $ ( 3 : 2 ) < "01" OR RST $ ( 3 : 2 ) > "12" THEN LET OK := FALSE
03770 IF RST $ ( 5 : 2 ) < "01" OR RST $ ( 5 : 2 ) > "31" THEN LET OK := FALSE
03780 IF NOT OK THEN EXEC FEJL ( "Ulovlig…dato:…'" + RST $ + "'" )
03790 ENDPROC DATO_CONTROL
03800
03810 PROC [NDRE_KTONR ( ST2 $ , PNR )
03820 LET A_KTONR $ := ""
03830 GET FKTONR $ , PNR : A_KTONR $
03840 REPEAT
03850 PRINT "<SC0223>" ; ST2 $
03860 CURSOR 2 + ╱cb╱ ( ST2 $ ) , 23
03870 EDIT "" : A_KTONR $
03880 EXEC SL_FEJLLINIE
03890 LET IDXPOS := FIND_KTO ( A_KTONR $ )
03900 IF NOT OK THEN EXEC FEJL ( "Konto…er…ikke…oprettet" )
03910 UNTIL OK
03920 PUT FKTONR $ , PNR : A_KTONR $
03930 ENDPROC [NDRE_KTONR
03940
03950 PROC [NDRE_KTOGRP ( ST2 $ , PNR )
03960 LET A_KTOGRP $ := ""
03970 GET KTOGRP $ , PNR : A_KTOGRP $
03980 PRINT "<SC0223>" ; ST2 $
03990 CURSOR 2 + ╱cb╱ ( ST2 $ ) , 23
04000 EDIT "" : A_KTOGRP $
04010 PUT KTOGRP $ , PNR : A_KTOGRP $
04020 ENDPROC [NDRE_KTOGRP
38382 ╱00╱ ╱00╱