DataMuseum.dk

top - metrics - download

    Length: 1733 (0x6c5)
    Types: TextFile
    Notes: BREV::TEKST, TEKST   
    Names: »TEKST«

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

TextFile

«ff»
  0930 REM -------------------------------------------------------------------------
  0940 PROC TEKST
  0950   IF MYNDIG THEN 
  0960     LET TEKSTADR=4
  0970     CASE CPR$(LEN(CPR$)) OF 
  0980       LET MODTAGER$=FNAVN$," ",ENAVN$
  0990     WHEN "1","3","5","7","9"
  1000       LET MODTAGER$="HR. ",FNAVN$," ",ENAVN$
  1010     WHEN "2","4","6","8","0"
  1020       LET MODTAGER$="FR. ",FNAVN$," ",ENAVN$
  1030     ENDCASE
  1040   ELSE
  1050     LET TEKSTADR=0
  1060     CASE KØN$ OF 
  1070       REM
  1080     WHEN "F"
  1090       LET MODTAGER$="FR. ",STILLING$," ",FFNAVN$," ",FENAVN$
  1100     WHEN "M"
  1110       LET MODTAGER$="HR. ",STILLING$," ",FFNAVN$," ",FENAVN$
  1120     ENDCASE
  1130   ENDIF
  1140   LET TEKSTADR=TEKSTADR+STRAFTEX
  1150   CASE CPR$(LEN(CPR$)) OF 
  1160     LET HAHU$="HAN/HUN"; SØDA$="SØN/DATTER"
  1170   WHEN "1","3","5","7","9"
  1180     LET HAHU$="HAN"; SØDA$="SØN"
  1190   WHEN "2","4","6","8","0"
  1200     LET HAHU$="HUN"; SØDA$="DATTER"
  1210   ENDCASE
  1220   LET TAL=1; PTEKST$=""
  1230   WHILE VARISTED(TEKSTADR,TAL) DO 
  1240     IF TAL=1 THEN 
  1250       IF VARISTED(TEKSTADR,TAL)<>1 THEN 
  1260         LET PTEKST$=TEKST$(TEKSTADR,1,VARISTED(TEKSTADR,TAL)-1)
  1270       ENDIF
  1280     ELSE
  1290       LET PTEKST$=PTEKST$,TEKST$(TEKSTADR,VARISTED(TEKSTADR,TAL-1)+7,VARISTED(TEKSTADR,TAL)-1)
  1300     ENDIF
  1310     EXEC DECIFTEX
  1320     LET TAL=TAL+1
  1330   ENDWHILE
  1340   IF NOT VARISTED(TEKSTADR,1) THEN 
  1350     LET PTEKST$=TEKST$(TEKSTADR)
  1360   ELSE
  1370     LET PTEKST$=PTEKST$,TEKST$(TEKSTADR,VARISTED(TEKSTADR,TAL-1)+7,LEN(TEKST$(TEKSTADR)))
  1380   ENDIF
  1390 ENDPROC TEKST