|
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: 6912 (0x1b00)
Types: TextFile
Names: »TEX.GET«
└─⟦c252abf18⟧ Bits:30008917 RCTOAX RC TIME OG OMKOSTNINGS OVERSIGT ARBEJDSDISK
└─⟦this⟧ »TEX.GET«
* TEX.GET - GET PROGRAM
STORE ' T ' TO MQ:SLCT
STORE T TO MQ:GMORE
STORE 'N' TO MQ:GDEL
DO WHILE MQ:GMORE
ERASE
STORE ' VIS ' TO MQ:MODE
* DISPLAY CURRENT RECORD
IF &MQ:SLCT
DO TEX.OUT
ENDIF
STORE ' ' TO MQ:CMD
@ 21,0
@ 22,0
@ 23,0
@ 21,07 SAY 'TAST N FOR NÆSTE RECORD, P FOR FOREGÅENDE RECORD'
@ 22,07 SAY ' S FOR SØG NØGLE, M FOR FLERE KOMMANDOER '
IF MQ:SLCT <> ' T '
@ 23,01 SAY 'SCAN'
ENDIF
@ 23,07 SAY 'ELLER RETUR 'GET MQ:CMD
READ
IF !(MQ:CMD)= 'S'
STORE ' SØG ' TO MQ:MODE
STORE T TO MQ:SMORE
DO WHILE MQ:SMORE
ERASE
* GET FIELDS TO SEARCH FOR
@ 01,000 SAY '--------------------'
@ 01,020 SAY '--------------'
@ 01,036 SAY MQ:MODE
@ 01,046 SAY '--------------------'
@ 01,066 SAY '--------------'
@ 02,000 SAY '*** RC TIME OG'
@ 02,021 SAY 'OMKOSTNINGS OVERSIG'
@ 02,041 SAY 'T TEKSTER'
@ 02,076 SAY '***'
@ 03,000 SAY '--------------------'
@ 03,020 SAY '--------------------'
@ 03,040 SAY '--------------------'
@ 03,060 SAY '--------------------'
@ 05,007 SAY 'KODE2 .............'
@ 05,027 SAY '.'
STORE ' ' TO MKODE2
@ 05,031 GET MKODE2
@ 07,007 SAY 'KODE6 .............'
@ 07,027 SAY '.'
STORE ' ' TO MKODE6
@ 07,031 GET MKODE6
@ 10,007 SAY 'TEKST .............'
@ 10,027 SAY '.'
@ 13,000 SAY 'produktlinie .......'
@ 13,020 SAY '.......: kode2 = p'
@ 13,040 SAY 'roduktlinie & kode'
@ 13,060 SAY '6 = 00 (2 nuller) '
@ 15,000 SAY 'omkostnings gruppe .'
@ 15,020 SAY '.......: kode2 = 0'
@ 15,040 SAY '0 (2 nuller) & kode'
@ 15,060 SAY '6 = omk.gruppe nr.'
@ 17,000 SAY '--------------------'
@ 17,020 SAY '--------------------'
@ 17,040 SAY '--------------------'
@ 17,060 SAY '--------------------'
@ 21,07 SAY 'INDTAST NØGLE VÆRDIEN TIL SØGNING AF ØNSKET RECORD !! '
IF MQ:SLCT <> ' T '
@ 23,01 SAY 'SCAN'
ENDIF
READ
* EXIT FROM LOOP IF FOUND
GOTO TOP
STORE MKODE2 + MKODE6 TO MQ:KEY
IF MQ:SLCT= ' T '
FIND &MQ:KEY
IF # <> 0
STORE F TO MQ:SMORE
ELSE
@ 21,0
@ 22,0
@ 23,0
@ 22,07 SAY 'NØGLEN IKKE FUNDET !!! '
@ 23,07 SAY 'PRØVE IGEN ? TAST J (JA) ELLERS RETUR '
SET CONSOLE OFF
WAIT TO MQ:DUMMY
SET CONSOLE ON
IF !(MQ:DUMMY) <> 'J'
STORE F TO MQ:SMORE
ENDIF J
RELEASE MQ:DUMMY
ENDIF # <> 0
ELSE
LOCATE FOR KODE2 = MKODE2 .AND. KODE6 = MKODE6 .AND. &MQ:SLCT
IF .NOT. EOF
STORE F TO MQ:SMORE
ELSE
@ 21,0
@ 22,0
@ 23,0
@ 22,07 SAY 'NØGLEN IKKE FUNDET !!! ( END OF FILE ) '
@ 23,07 SAY 'PRØVE IGEN ? TAST J (JA) ELLERS RETUR '
SET CONSOLE OFF
WAIT TO MQ:DUMMY
SET CONSOLE ON
IF !(MQ:DUMMY) <> 'J'
STORE F TO MQ:SMORE
ENDIF J
RELEASE MQ:DUMMY
ENDIF EOF
ENDIF MQ:SLCT=T
ENDDO MQ:SMORE
RELEASE MQ:SMORE
RELEASE MQ:KEY
ELSE
IF !(MQ:CMD) = 'N'
STORE T TO MQ:N
DO WHILE MQ:N
SKIP
IF &MQ:SLCT
STORE F TO MQ:N
ENDIF
IF EOF
STORE F TO MQ:N
STORE ' T ' TO MQ:SLCT
@ 23,01 SAY ' '
ENDIF
ENDDO
RELEASE MQ:N
ELSE
IF !(MQ:CMD)= 'P'
STORE ' T ' TO MQ:SLCT
@ 23,01 SAY ' '
SKIP -1
ELSE
IF !(MQ:CMD)= 'M'
STORE T TO MQ:MMORE
DO WHILE MQ:MMORE
STORE ' ØVRIGE ' TO MQ:MODE
STORE ' ' TO MQ:MMD
@ 21,0
@ 22,0
@ 23,0
@ 21,07 SAY 'TAST E FOR RETTELSE, D FOR SLETNING '
@ 22,07 SAY ' P FOR PRINT, C FOR SCAN '
IF MQ:SLCT <> ' T '
@ 23,01 SAY 'SCAN'
ENDIF
@ 23,07 SAY 'ELLER RETUR '
@ 23,70 SAY ' ' GET MQ:MMD
READ
IF !(MQ:MMD) = 'E'
ERASE
IF MQ:SLCT <> ' T '
@ 23,01 SAY 'SCAN'
ENDIF
* EDIT RECORD
DO TEX.ED
ELSE
IF !(MQ:MMD)= 'D'
STORE 'N' TO MQ:ANS
IF MQ:SLCT <> ' T '
@ 23,01 SAY 'SCAN'
ENDIF
@ 23,07 SAY 'MARKERES TIL SLETNING ? ER DU SIKKER ? (J/N) '
@ 23,70 SAY ' ' GET MQ:ANS
READ
IF !(MQ:ANS)= 'J'
DELETE
STORE 'J' TO MQ:GDEL
ENDIF
RELEASE MQ:ANS
ELSE
IF !(MQ:MMD)= 'P'
STORE ' ' TO OK
@ 21,0
@ 22,0
@ 23,0
@ 23,07 SAY 'ER PRINTER KLAR ? SÅ TAST OK ELLERS TAST RETUR !! '
@ 23,70 SAY ' ' GET OK
STORE ' PRINT ' TO MQ:MODE
READ
IF !(OK) = 'OK'
SET FORMAT TO PRINT
DO TEX.OUT
STORE ' ' TO OK
SET FORMAT TO SCREEN
ENDIF OK
ELSE
IF !(MQ:MMD)='C'
GOTO TOP
STORE ' ' TO MQ:SLCT
@ 21,0
@ 22,0
@ 23,0
@ 21,07 SAY 'TAST FELTNAVN OG ØNSKET SØGEVÆRDI, OG TAST SÅ HELT UD !!'
@ 22,07 SAY 'FYLD UD MED BLANKE ......., OG BRUG IKKE RETUR TASTEN !!'
@ 23,01 SAY 'SCAN'
@ 23,07 GET MQ:SLCT
READ
LOCATE FOR &MQ:SLCT
IF EOF
@ 21,0
@ 22,0
@ 23,0
@ 21,07 SAY 'DER ER IKKE FLERE RECORD ! (END OF FILE ) '
@ 22,07 SAY ' TAST RETUR FOR AT FORTSÆTTE !'
STORE ' T ' TO MQ:SLCT
SET CONSOLE OFF
WAIT
SET CONSOLE ON
ELSE
DO TEX.OUT
ENDIF
ELSE
IF MQ:MMD = ' '
STORE F TO MQ:MMORE
ELSE
LOOP
ENDIF
ENDIF F
ENDIF P
ENDIF D
ENDIF E
ENDDO MQ:MMORE
RELEASE MQ:MMORE,MQ:MMD
ELSE
IF MQ:CMD=' '
STORE F TO MQ:GMORE
ELSE
LOOP
ENDIF
ENDIF M
ENDIF P
ENDIF N
ENDIF S
ENDDO MQ:GMORE
IF !(MQ:GDEL) = 'J'
STORE 'N' TO MQ:ANS
@ 21,0
@ 22,0
@ 23,0
@ 22,07 SAY 'SKAL DE SLET MARKEREDE RECORDS FJERNES ? SÅ TAST J (JA)'
@ 23,07 SAY 'HVIS DU FORTRYDER FORETAGNE SLETNINGER SÅ TAST RETUR !'
@ 23,75 GET MQ:ANS
READ
IF !(MQ:ANS) = 'J'
@ 21,07 SAY '>>> DER SLETTES RECORDS NU, VENT ! <<<'
PACK
ELSE
@ 21,07 SAY '>>> MARKERINGER FJERNES, VENT ! <<<'
RECALL ALL
ENDIF
RELEASE MQ:ANS
ENDIF MQ:GDEL
RELEASE MQ:CMD,MQ:GMORE,MQ:GDEL,MQ:SLCT
RELEASE MQ:MODE
«eof»