|
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: 2304 (0x900)
Types: TextFile
Names: »BUD.ED«
└─⟦c252abf18⟧ Bits:30008917 RCTOAX RC TIME OG OMKOSTNINGS OVERSIGT ARBEJDSDISK
└─⟦this⟧ »BUD.ED«
* BUD.ED -EDIT PROGRAM STORE T TO MQ:EMORE STORE ' RET ' TO MQ:MODE * SET UP SCREEN VARIABLES STORE KODE2 TO MKODE2 STORE KONTOGRP TO MKONTOGRP STORE BUBEL01 TO MBUBEL01 STORE BUBEL02 TO MBUBEL02 STORE BUBEL03 TO MBUBEL03 STORE BUBEL04 TO MBUBEL04 STORE BUBEL05 TO MBUBEL05 STORE BUBEL06 TO MBUBEL06 STORE BUBEL07 TO MBUBEL07 STORE BUBEL08 TO MBUBEL08 STORE BUBEL09 TO MBUBEL09 STORE BUBEL10 TO MBUBEL10 STORE BUBEL11 TO MBUBEL11 STORE BUBEL12 TO MBUBEL12 DO WHILE MQ:EMORE STORE T TO MQ:RPL ERASE * GET SCREEN INPUT DO BUD.IO @ 21,0 @ 22,0 @ 23,0 @ 21,07 SAY 'RET ØNSKEDE OPLYSNINGER, ELLER TAST RETUR !! ' @ 22,07 SAY 'CTRL- & W-TAST KAN OGSÅ ANVENDES HER !! ' READ * VALIDATE INPUT DO BUD.VAL STORE ' ' TO MQ:ECMD @ 21,0 @ 22,0 @ 21,07 SAY 'FLERE RETTELSER ? TAST J (JA) ELLERS TAST RETUR ' GET MQ:ECMD READ IF MKODE2 <> KODE2 .OR. MKONTOGRP <> KONTOGRP SET EXACT ON STORE MKODE2+MKONTOGRP TO MQ:KEY STORE # TO MQ:REC FIND &MQ:KEY SET EXACT OFF IF # <> 0 STORE F TO MQ:RPL ENDIF #<>0 GOTO MQ:REC ENDIF IF MQ:RPL * PUT SCREEN ENTRIES INTO FILE REPLACE KODE2 WITH MKODE2 REPLACE KONTOGRP WITH MKONTOGRP REPLACE BUBEL01 WITH MBUBEL01 REPLACE BUBEL02 WITH MBUBEL02 REPLACE BUBEL03 WITH MBUBEL03 REPLACE BUBEL04 WITH MBUBEL04 REPLACE BUBEL05 WITH MBUBEL05 REPLACE BUBEL06 WITH MBUBEL06 REPLACE BUBEL07 WITH MBUBEL07 REPLACE BUBEL08 WITH MBUBEL08 REPLACE BUBEL09 WITH MBUBEL09 REPLACE BUBEL10 WITH MBUBEL10 REPLACE BUBEL11 WITH MBUBEL11 REPLACE BUBEL12 WITH MBUBEL12 REPLACE KODE2GRP WITH KODE2 + KONTOGRP IF !(MQ:ECMD) <> 'J' STORE F TO MQ:EMORE ENDIF ELSE @ 21,0 @ 22,0 @ 23,0 @ 21,07 SAY 'DU HAR RETTET NØGLEN, BRUG: SLET & OPRET !!' @ 22,07 SAY 'RETTELSEN ER AFVIST. TAST RETUR FOR AT FORTSÆTTE !' GET OK READ ENDIF MQ:RPL ENDDO RELEASE MQ:MODE,MQ:EMORE,MQ:ECMD RELEASE MQ:RPL,MQ:REC,MQ:KEY RELEASE MKODE2 RELEASE MKONTOGRP RELEASE MBUBEL01 RELEASE MBUBEL02 RELEASE MBUBEL03 RELEASE MBUBEL04 RELEASE MBUBEL05 RELEASE MBUBEL06 RELEASE MBUBEL07 RELEASE MBUBEL08 RELEASE MBUBEL09 RELEASE MBUBEL10 RELEASE MBUBEL11 RELEASE MBUBEL12 «eof»