DataMuseum.dk

top - download

    Length: 1244 (0x4dc)
    Types: TextFile
    Notes: DISKONT , KLLISTE::DISKONT
    Names: »DISKONT«

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

TextFile

«ff»
  1470 REM -------------------------------------------------------------------------
  1480 PROC DISKONT
  1490   REPEAT
  1500     LET OK=1
  1510     CONNECT "OVERSIGT",1
  1520     OPEN FILE(1,0)"KL-KODE"
  1530     OPEN FILE(2,1)"GRENKODE"
  1540     READ FILE(1,1)KLKODE$
  1550     READ FILE(1,2)KLTRIN$
  1560     READ FILE(2)GRENKODE$
  1570     MAT READ FILE(2)GRENMAT
  1580     CLOSE 
  1590     IF KLTRIN$<>CHECKL$ THEN 
  1600       RELEASE 
  1610       PRINT "<134>";XY$(1);XY$(3);"<31>"
  1620       LET OK=0
  1630       PRINT "<134>";XY$(15);XY$(8);"DISKETTE <34>";KLTRIN$;"<34> ER INDSAT I FD0"
  1640       PRINT "<134>";XY$(15);XY$(10);"DISKETTE <34>";CHECKL$;"<34> SKAL INDSÆTTES I FD0"
  1650       PRINT "<134>";XY$(45);XY$(13);"TAST FØLGENDE :"
  1660       PRINT "<134>";XY$(43);XY$(14);"-------------------"
  1670       PRINT "<134>";XY$(45);XY$(16);"1. LOCK<34>$FD0"
  1680       PRINT "<134>";XY$(45);XY$(18);"2. SKIFT DISKETTERNE UD"
  1690       PRINT "<134>";XY$(45);XY$(20);"3. INIT<34>$FD0"
  1700       PRINT "<134>";XY$(45);XY$(22);"4. CON"
  1710       PRINT "<134>";XY$(1);XY$(12);
  1720       STOP
  1730     ELSE
  1740     ENDIF
  1750   UNTIL OK
  1760 ENDPROC DISKONT