DataMuseum.dk

top - metrics - download

    Length: 1494 (0x5d6)
    Types: TextFile
    Notes: FORMAT  , KLLISTE::FORMAT
    Names: »FORMAT«

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

TextFile

«ff»
  0180 REM -------------------------------------------------------------------------
  0190 PROC FORMAT
  0200   CASE FORMAT OF 
  0210     REM
  0220   WHEN 1
  0230     PAGE=0
  0240     PRINT FILE(7)TAB(70);"                                      ";MÅNED$
  0250     LET ANTAL=0
  0260     FOR I=1 TO 2
  0270       PRINT FILE(7)"<14>                  KLASSELISTE FOR ";KLASSE$;"<13>";
  0280     NEXT I
  0290     PRINT FILE(7)
  0300     FOR I=1 TO 2
  0310       PRINT FILE(7)"<14>              -----------------------------<13>";"<13>";
  0320     NEXT I
  0330     PRINT FILE(7)
  0340     PRINT FILE(7)OVERLINE$
  0350     PRINT FILE(7)"<14>-----------------------------------------------------------<10>"
  0360   WHEN 2
  0370     IF GREN$="@" THEN LET GREN$=" "
  0380     IF MYNDIG THEN 
  0390       LET MYNDIG$="M"
  0400     ELSE
  0410       LET MYNDIG$="UM"
  0420     ENDIF
  0430     LET NAVN$=FNAVN$,MNAVN$; ADR$=EADR$,", ",POGBY$
  0440     PRINT FILE(7)USING FORMAT$,NR,GREN$,MYNDIG$,CPR$,ENAVN$,NAVN$,ADR$,ETLF$
  0450     IF ANTAL/3=INT(ANTAL/3) THEN 
  0460       PRINT FILE(7)"<14>-----------------------------------------------------------"
  0470     ENDIF
  0480   WHEN 3
  0490     PRINT FILE(7)"<10>"
  0500     FOR I=1 TO 2
  0510       PRINT FILE(7)"<14>              -----------------------------";"<13>";
  0520     NEXT I
  0530     PRINT FILE(7)"<12>"
  0540     PAGE=80
  0550   ENDCASE FORMAT
  0560 ENDPROC FORMAT