DataMuseum.dk

top - metrics - download

    Length: 7920 (0x1ef0)
    Notes: pts_type(UF)
    Names: »KM173.UF«

└─⟦75255755f⟧ Bits:30009693 Philips computer tape "600410"
    └─⟦this⟧ »NJREMIT/KM173.UF« 
└─⟦b6546aa17⟧ Bits:30009689 Philips computer tape "600325"
    └─⟦this⟧ »REMIT2/KM173.UF« 

PTS(SC)

PRT KM173 
PRT C173
MES LYNGBY-T]RB[K KOMMUNE, REMITTERING
MES 810511 NJ 
MES * 
SCR 
LED KMD08 
!!CH $$DCTASK$$DCTSK$$
!!DL 60 BUDGET FILE 
!!DL 61,62 FD03,FD04
!!DL 67,108 RKONV 
!!DL 109,131 TERM KA
!!DL 132,150 TERM GA
!!DL 151,167 TERM LA
!!DL 181,205 TB9
!!DL 224
MF1KBV STRG 32X'40' DV ADR KB/VDU 
!!DL 225
MF1GTP STRG 32X'40' DV ADR GTP
!!DL 228
MF1CU STRG X'E2C2' CU ADR 
!!DL 230
CNFHC STRGI (16),'  ' HARDCOPY PRINTER
!!DL 235,236
FROMKX STRGI (12)2C'  ' 
!!RE 240,$$FALSE$$TRUE$$ BKO
!!RE 241,$$FALSE$$TRUE$$ SALDO KORT 
!!RE 247,$$TRUE$$FALSE$$ CKTAUTO
!!RE 248,$$FALSE$$TRUE$$ DC 
!!RE 251,$$FALSE$$TRUE$$ 5M DISK
!!RE 279,$$FALSE$$TRUE$$ CREMITFLG
!!RE 288,$$FALSE$$TRUE$$ TEXT REG 
!!RE 289,$$FALSE$$TRUE$$ LEVREG 
!!RE 290,$$FALSE$$TRUE$$ BUNDT
!!DL 331
CFLAG BINI (12,2),X'0011',X'0000',X'0078',X'0000',		C 
		X'0012',X'0000',X'0070',X'0000' 
!!RE 364,$$FALSE$$TRUE$$ CSPEC
!!RE 416,$$01014610$$%VER%REL%MOD$$ VERSION 
!!RE 484,$$1400$$10000$$ NO OF REG. 
!!RE 490,$$128$$80$$
!!RE 492,$$OD-KOM$$LYNGBY$$ 
!!RE 494,$$20$$200$$ LEVINDEX 
!!RE 495,$$5$$1$$ KORT LINE 
!!DL 496,497
FROMTX STRGI (12)2C'  ' 
!!DL 817,1091 RK
!!DL 1095,1096 KB 
!!DL 1097,1098 GTPGO
!!DL 1101,1102 LP 
!!DL 1103,1105 RK 
!!DL 1110,1113 VDU MM 
!!DL 1115 
!!DL 1129,1155 KBVGO
!!DL 1156,1175 RKGO 
!!DL 1176,1191 GTPGO
!!DL 1192,1203 LPGO 
!!DL 1217,1234 OFFLINE
!!DL 1250,1262 RKSWITCH 
!!DL 1265 REENTER 
!!DL 1274,1276
!!EN
NOD C 
TRA /S,NL 
INC DIV461
NOD R 
LED SCREEN,/S 
!!CH $$KEY461$$KEYCOP$$ 
!!CH $$SL461$$SLCOP$$ 
!!EN
TRA /S,NL 
INC RGSUB4
INC RGSTRT
NOD R 
INC RGMAIN
INC RGSUBS
INC RGSUB1
INC RGSUB2
INC RGSUB3
NOD R 
INC RGKLAR
INC KTPLN 
INC KTOPR 
INC BUDD
INC RAADUM
NOD R 
INC RGADM 
INC REMSUB
NOD R 
INC ADM5
INC SUBAPL
INC REMPRT
NOD R 
LED KMDIO,/S
!!DL 149,181 WRFD090-WRFD095
WRFD090 
WRFD091 
WRFD092 
WRFD093 
WRFD094 
WRFD095 
!!EN
TRA /S,NL 
INC DKSUBS
INC REMTXT
NOD R 
INC RGFRMT
LED REMFMT
!!DL 298,340
FBDTCHK FRMT
 FILLR '+',2
 FNL
 FILLR ' ',48 
 FMEL '99V99V99',GTPRTDAT 
 FILLR ' ',17 
 FILLR '*',1
 FTEXT X'0F' (1) TOTAL AMOUNT 
 FNL
 FTEXT X'16' (2) TEXT1
 FNL
 FTEXT X'15' (3) INFO1
 FILLR ' ',1
 FTEXT X'0F' (4) AMOUNT1
 FNL
 FILLR ' ',48 
 FTEXT X'1E' (5) LEVNAVN
 FNL
 FTEXT X'16' (6) TEXT2
 FILLR ' ',26 
 FTEXT X'20' (7) LEVADR 
 FNL
 FTEXT X'15' (8) INFO2
 FILLR ' ',1
 FTEXT X'0F' (9) AMOUNT2
 FILLR ' ',11 
 FTEXT X'14' (10) LEVBY 
 FNL
 FILLR ' ',48 
 FTEXT X'04' (11) POSTNR
 FILLR ' ',2
 FTEXT X'0D' (12) POSTDIST
 FNL
 FTEXT X'16' (13) TEXT3 
 FNL
 FTEXT X'15' (14) INFO3 
 FILLR ' ',1
 FTEXT X'0F' (15) AMOUNT3 
 FNL
 FNL
 FNL
 FILLR ' ',10 
 FTEXT X'0A' (16) FTEXT CHECKBELOB
 FTEXT X'0F' (17) TOTAL AMOUNT
 FMEND
!!EN
TRA /S,NL 
NOD R 
INC REMLEV
INC ADM6
NOD R 
INC REMTR 
LED REMBDT
!!DL 126
 MOVE GSWBIN5,CBIN17 17 FTEXTS TO CHANGE
!!DL 135,137
 PERF FMOD,CBIN5,GTLEVNVN 
 PERF FMOD,CBIN7,GTLEVADR 
 PERF FMOD,CBIN10,GTLEVBY 
!!DL 139,140
 PERF FMOD,CBIN11,GSWSTR9 
 PERF FMOD,CBIN12,GTLEVPDI
!!DL 160,161
 PERF FMOD,CBIN1,SPINPUT
 EDIT SPINPUT,FREMTOTS
 PERF FMOD,CBIN17,SPINPUT 
 MOVE GSWSTR20,=X'434845434B42454C5C422A20' 
 PERF FMOD,CBIN16,GSWSTR20 'CHECKBELOB' 
!!DL 177,250
B821PR PROC 
 RET
 PEND 
!!DL 445,447
 PERF FMOD,CBIN2,GTLEVTXT TEST
 PERF FMOD,CBIN3,SPINPUT INFO 
 PERF FMOD,CBIN4,GSWSTR20 AMOUNT
!!DL 450,452
 PERF FMOD,CBIN6,GTLEVTXT 
 PERF FMOD,CBIN8,SPINPUT
 PERF FMOD,CBIN9,GSWSTR20 
!!DL 455,457
 PERF FMOD,CBIN13,GTLEVTXT
 PERF FMOD,CBIN14,SPINPUT 
 PERF FMOD,CBIN15,GSWSTR20
!!DL 601
 FMEL 'TTTTTTTVTT9,99-',GTBSUM1 
!!DL 610
 FMEL 'TTTTTTTVTT9,99-',GTBSUM2 
!!EN
TRA /S,NL 
TLK U,4K
INC DCTSK 
$INCGEN 
LKE M 
KPF /L,RGL173 
SCR 
MES $PDISC M=M:173,MU=M:POOL92,A=RGL173,C=C173
$ASG2