DataMuseum.dk

top - metrics - download

    Length: 2054 (0x806)
    Types: TextFile
    Notes: BREV::STANDTEX, STANDTEX
    Names: »STANDTEX«

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

TextFile

«ff»
  3240 REM -------------------------------------------------------------------------
  3250 PROC STANDTEX
  3260   REPEAT
  3270     REPEAT
  3280       PRINT "<134>";XY$(26);XY$(1);"<30>INDSKRIVNING AF BREVTEKSTER"
  3290       PRINT "<134>";XY$(1);XY$(3);"<31>"
  3300       PRINT "<134>";XY$(15);XY$(5);"A :  UDSKRIVES VED : MÅNEDLIG FORSØMMELSE>=20%"
  3310       PRINT "<134>";XY$(37);XY$(6);"TOTAL FORSØMMELSE<60>15%"
  3320       PRINT "<134>";XY$(15);XY$(8);"B :  UDSKRIVES VED : 15%<60>=TOTAL FORSØMMESE<60>20%"
  3330       PRINT "<134>";XY$(15);XY$(10);"C :  UDSKRIVES VED : TOTAL FORSØMMELSE>=20%"
  3340       PRINT "<134>";XY$(15);XY$(12);"D :  UDSKRIVES VED : MÅNEDLIG FORSØMMELSE<60>20%"
  3350       PRINT "<134>";XY$(37);XY$(13);"TOTAL FORSØMMELSE<60>15%"
  3360       PRINT "<134>";XY$(15);XY$(15);"E :  TILBAGE TIL HOVEDOPLYSNINGEN"
  3370       PRINT "<134>";XY$(13);XY$(18);"------------------------------------------------"
  3380       PRINT "<134>";XY$(30);XY$(22);
  3390       INPUT "HVILKEN FUNKTION : <30>",FUNKVALG$
  3400     UNTIL FUNKVALG$>="A" AND FUNKVALG$<="E"
  3410     IF FUNKVALG$<>"E" THEN 
  3420       REPEAT
  3430         PRINT "<134>";XY$(20);XY$(22);"<30>";
  3440         INPUT "SKAL DER UDSKRIVES TIL MYNDIGE ELLER UMYNDIGE  : ",SVAR$
  3450       UNTIL SVAR$="MYND" OR SVAR$="UMYN"
  3460       EXEC TEKSTLÆS
  3470     ENDIF
  3480     IF SVAR$="MYND" THEN 
  3490       LET TEKSTADR=4
  3500     ELSE
  3510       LET TEKSTADR=0
  3520     ENDIF
  3530     LET TRETEKST=1
  3540     CASE FUNKVALG$ OF 
  3550       REM
  3560     WHEN "A"
  3570       LET TEKSTADR=TEKSTADR+2
  3580       EXEC TEKSTIND
  3590     WHEN "B"
  3600       LET TEKSTADR=TEKSTADR+3
  3610       EXEC TEKSTIND
  3620     WHEN "C"
  3630       LET TEKSTADR=TEKSTADR+4
  3640       EXEC TEKSTIND
  3650     WHEN "D"
  3660       LET TEKSTADR=TEKSTADR+1
  3670       EXEC TEKSTIND
  3680     ENDCASE
  3690     LET TRETEKST=0
  3700   UNTIL FUNKVALG$="E"
  3710 ENDPROC STANDTEX