DataMuseum.dk

top - download

    Length: 2354 (0x932)
    Types: TextFile
    Notes: ELEVRET::UDTEKST, UDTEKST 
    Names: »UDTEKST«

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

TextFile

«ff»
  0960 REM -------------------------------------------------------------------------
  0970 PROC UDTEKST
  0980   PAGE=0
  0990   LET ENGELSK=0; MUFORGRE=0
  1000   IF KLASSE$(2)<"M" THEN 
  1010     IF KLASSE$(1)="1" THEN 
  1020       LET ENGELSK=1
  1030     ELSE
  1040       LET ENGELSK=1; MUFORGRE=1
  1050     ENDIF
  1060   ELSE
  1070     IF KLASSE$(1)="1" THEN 
  1080       LET ENGELSK=1
  1090     ELSE
  1100       LET MUFORGRE=1
  1110     ENDIF
  1120   ENDIF
  1130   PRINT "<134>";XY$(1);XY$(3);"<31>"
  1140   LET TÆLLER=1; RYKKER=6; KOLON=6
  1150   PRINT "<134>";XY$(4);XY$(3);"ELEV NR."
  1160   PRINT "<134>";XY$(3);XY$(4);"-------------"
  1170   WHILE XYTEKST(1,TÆLLER)<>0 DO 
  1180     PRINT "<134>";XY$(6);XY$(RYKKER);TEKST$(XYTEKST(1,TÆLLER),XYTEKST(2,TÆLLER))
  1190     IF RYKKER=11 THEN 
  1200       LET RYKKER=RYKKER+2; TÆLLER=TÆLLER+1
  1210     ELSE
  1220       IF RYKKER=18 THEN 
  1230         IF ENGELSK THEN 
  1240           LET RYKKER=RYKKER+2; TÆLLER=TÆLLER+1
  1250         ELSE
  1260           LET RYKKER=RYKKER+3; TÆLLER=TÆLLER+2; SPRING=1
  1270         ENDIF
  1280       ELSE
  1290         IF RYKKER=21 THEN 
  1300           IF MUFORGRE THEN 
  1310             LET RYKKER=RYKKER+1; TÆLLER=TÆLLER+1
  1320           ELSE
  1330             LET TÆLLER=TÆLLER+3
  1340           ENDIF
  1350         ELSE
  1360           LET RYKKER=RYKKER+1; TÆLLER=TÆLLER+1
  1370         ENDIF
  1380       ENDIF
  1390     ENDIF
  1400   ENDWHILE
  1410   IF CHECKL$="2.G" OR CHECKL$="3.G" THEN 
  1420     LET RYKKER=RYKKER-1
  1430   ENDIF
  1440   WHILE KOLON<=RYKKER DO 
  1450     PRINT "<134>";XY$(39);XY$(KOLON);":"
  1460     IF KOLON=11 THEN 
  1470       LET KOLON=KOLON+2
  1480     ELSE
  1490       IF KOLON=18 THEN 
  1500         IF ENGELSK THEN 
  1510           LET KOLON=KOLON+2
  1520         ELSE
  1530           LET KOLON=KOLON+3
  1540         ENDIF
  1550       ELSE
  1560         IF KOLON=21 OR KOLON=22 THEN 
  1570           IF MUFORGRE THEN 
  1580             LET KOLON=KOLON+1
  1590           ELSE
  1600             LET KOLON=KOLON+4
  1610           ENDIF
  1620         ELSE
  1630           LET KOLON=KOLON+1
  1640         ENDIF
  1650       ENDIF
  1660     ENDIF
  1670   ENDWHILE
  1680 ENDPROC UDTEKST