DataMuseum.dk

top - download

    Length: 982 (0x3d6)
    Types: TextFile
    Notes: BREV::DECIFTEX, DECIFTEX
    Names: »DECIFTEX«

└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
    └─⟦this⟧ 

TextFile

«ff»
  0640 REM -------------------------------------------------------------------------
  0650 PROC DECIFTEX
  0660   CASE TEKST$(TEKSTADR,VARISTED(TEKSTADR,TAL),VARISTED(TEKSTADR,TAL)+6) OF 
  0670   WHEN "#FNAVN#"
  0680     LET PTEKST$=PTEKST$,FNAVN$
  0690   WHEN "#ENAVN#"
  0700     LET PTEKST$=PTEKST$,ENAVN$
  0710   WHEN "#MNAVN#"
  0720     LET PTEKST$=PTEKST$,MNAVN$
  0730   WHEN "#FORSM#"
  0740     LET NUMOBJEC=PJÆK
  0750     EXEC NUMSTRIN
  0760     LET PTEKST$=PTEKST$,PJÆKS$
  0770   WHEN "#SFORS#"
  0780     LET NUMOBJEC=SUMPJÆK
  0790     EXEC NUMSTRIN
  0800     LET PTEKST$=PTEKST$,PJÆKS$
  0810   WHEN "#SØ/DA#"
  0820     LET PTEKST$=PTEKST$,SØDA$
  0830   WHEN "#HA/HU#"
  0840     LET PTEKST$=PTEKST$,HAHU$
  0850   WHEN "#MÅNED#"
  0860     LET PTEKST$=PTEKST$,MÅNED$
  0870   WHEN "#TIMER#"
  0880     LET NUMOBJEC=TIMER
  0890     EXEC NUMSTRIN
  0900     LET PTEKST$=PTEKST$,PJÆKS$
  0910   ENDCASE
  0920 ENDPROC DECIFTEX