|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4096 (0x1000)
Types: TextFile
Names: »BUD.VAL«
└─⟦c252abf18⟧ Bits:30008917 RCTOAX RC TIME OG OMKOSTNINGS OVERSIGT ARBEJDSDISK
└─⟦this⟧ »BUD.VAL«
* BUD.VAL -VALIDATION PROGRAM SET EXACT ON * VALIDATE MKODE2 STORE T TO MQ:VMORE DO WHILE MQ:VMORE IF MKODE2 >= '00' .AND. MKODE2 <= '99' STORE F TO MQ:VMORE ELSE @ 23,0 @ 23,07 SAY 'GRUPPEKODE 2 - FRA : >= 00 TIL <= 99 ' @ 04,031 GET MKODE2 READ ENDIF ENDDO MKODE2 * VALIDATE MKONTOGRP STORE T TO MQ:VMORE DO WHILE MQ:VMORE IF MKONTOGRP >= '40' .AND. MKONTOGRP <= '49' STORE F TO MQ:VMORE ELSE @ 23,0 @ 23,07 SAY 'KONTOGRUPPE - FRA : >= 40 TIL <= 49 ' @ 05,031 GET MKONTOGRP READ ENDIF ENDDO MKONTOGRP * VALIDATE MBUBEL01 STORE T TO MQ:VMORE DO WHILE MQ:VMORE IF MBUBEL01 >= 0 .AND. MBUBEL01 <= 99999999 STORE F TO MQ:VMORE ELSE @ 23,0 @ 23,07 SAY 'HELE KKR - FRA : >= 0 TIL <= 99999999 ' @ 07,031 GET MBUBEL01 PICTURE '99999999' READ ENDIF ENDDO MBUBEL01 * VALIDATE MBUBEL02 STORE T TO MQ:VMORE DO WHILE MQ:VMORE IF MBUBEL02 >= 0 .AND. MBUBEL02 <= 99999999 STORE F TO MQ:VMORE ELSE @ 23,0 @ 23,07 SAY 'HELE KKR - FRA : >= 0 TIL <= 99999999 ' @ 08,031 GET MBUBEL02 PICTURE '99999999' READ ENDIF ENDDO MBUBEL02 * VALIDATE MBUBEL03 STORE T TO MQ:VMORE DO WHILE MQ:VMORE IF MBUBEL03 >= 0 .AND. MBUBEL03 <= 99999999 STORE F TO MQ:VMORE ELSE @ 23,0 @ 23,07 SAY 'HELE KKR - FRA : >= 0 TIL <= 99999999 ' @ 09,031 GET MBUBEL03 PICTURE '99999999' READ ENDIF ENDDO MBUBEL03 * VALIDATE MBUBEL04 STORE T TO MQ:VMORE DO WHILE MQ:VMORE IF MBUBEL04 >= 0 .AND. MBUBEL04 <= 99999999 STORE F TO MQ:VMORE ELSE @ 23,0 @ 23,07 SAY 'HELE KKR - FRA : >= 0 TIL <= 99999999 ' @ 10,031 GET MBUBEL04 PICTURE '99999999' READ ENDIF ENDDO MBUBEL04 * VALIDATE MBUBEL05 STORE T TO MQ:VMORE DO WHILE MQ:VMORE IF MBUBEL05 >= 0 .AND. MBUBEL05 <= 99999999 STORE F TO MQ:VMORE ELSE @ 23,0 @ 23,07 SAY 'HELE KKR - FRA : >= 0 TIL <= 99999999 ' @ 11,031 GET MBUBEL05 PICTURE '99999999' READ ENDIF ENDDO MBUBEL05 * VALIDATE MBUBEL06 STORE T TO MQ:VMORE DO WHILE MQ:VMORE IF MBUBEL06 >= 0 .AND. MBUBEL06 <= 99999999 STORE F TO MQ:VMORE ELSE @ 23,0 @ 23,07 SAY 'HELE KKR - FRA : >= 0 TIL <= 99999999 ' @ 12,031 GET MBUBEL06 PICTURE '99999999' READ ENDIF ENDDO MBUBEL06 * VALIDATE MBUBEL07 STORE T TO MQ:VMORE DO WHILE MQ:VMORE IF MBUBEL07 >= 0 .AND. MBUBEL07 <= 99999999 STORE F TO MQ:VMORE ELSE @ 23,0 @ 23,07 SAY 'HELE KKR - FRA : >= 0 TIL <= 99999999 ' @ 13,031 GET MBUBEL07 PICTURE '99999999' READ ENDIF ENDDO MBUBEL07 * VALIDATE MBUBEL08 STORE T TO MQ:VMORE DO WHILE MQ:VMORE IF MBUBEL08 >= 0 .AND. MBUBEL08 <= 99999999 STORE F TO MQ:VMORE ELSE @ 23,0 @ 23,07 SAY 'HELE KKR - FRA : >= 0 TIL <= 99999999 ' @ 14,031 GET MBUBEL08 PICTURE '99999999' READ ENDIF ENDDO MBUBEL08 * VALIDATE MBUBEL09 STORE T TO MQ:VMORE DO WHILE MQ:VMORE IF MBUBEL09 >= 0 .AND. MBUBEL09 <= 99999999 STORE F TO MQ:VMORE ELSE @ 23,0 @ 23,07 SAY 'HELE KKR - FRA : >= 0 TIL <= 99999999 ' @ 15,031 GET MBUBEL09 PICTURE '99999999' READ ENDIF ENDDO MBUBEL09 * VALIDATE MBUBEL10 STORE T TO MQ:VMORE DO WHILE MQ:VMORE IF MBUBEL10 >= 0 .AND. MBUBEL10 <= 99999999 STORE F TO MQ:VMORE ELSE @ 23,0 @ 23,07 SAY 'HELE KKR - FRA : >= 0 TIL <= 99999999 ' @ 16,031 GET MBUBEL10 PICTURE '99999999' READ ENDIF ENDDO MBUBEL10 * VALIDATE MBUBEL11 STORE T TO MQ:VMORE DO WHILE MQ:VMORE IF MBUBEL11 >= 0 .AND. MBUBEL11 <= 99999999 STORE F TO MQ:VMORE ELSE @ 23,0 @ 23,07 SAY 'HELE KKR - FRA : >= 0 TIL <= 99999999 ' @ 17,031 GET MBUBEL11 PICTURE '99999999' READ ENDIF ENDDO MBUBEL11 * VALIDATE MBUBEL12 STORE T TO MQ:VMORE DO WHILE MQ:VMORE IF MBUBEL12 >= 0 .AND. MBUBEL12 <= 99999999 STORE F TO MQ:VMORE ELSE @ 23,0 @ 23,07 SAY 'HELE KKR - FRA : >= 0 TIL <= 99999999 ' @ 18,031 GET MBUBEL12 PICTURE '99999999' READ ENDIF ENDDO MBUBEL12 RELEASE MQ:VMORE @ 23,0 SET EXACT OFF «eof»