DataMuseum.dk

top - download

    Length: 1144 (0x478)
    Types: TextFile
    Notes: DISKONT , FORSØM::DISKONT
    Names: »DISKONT«

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

TextFile

«ff»
  1310 REM -------------------------------------------------------------------------
  1320 PROC DISKONT
  1330   REPEAT
  1340     LET OK=1
  1350     CONNECT "OVERSIGT",1
  1360     OPEN FILE(1,0)"KL-KODE"
  1370     READ FILE(1,1)KLKODE$
  1380     READ FILE(1,2)KLTRIN$
  1390     CLOSE FILE(1)
  1400     IF KLTRIN$<>CHECKL$ THEN 
  1410       RELEASE 
  1420       PRINT "<134>";XY$(1);XY$(3);"<31>"
  1430       LET OK=0
  1440       PRINT "<134>";XY$(15);XY$(8);"DISKETTE <34>";KLTRIN$;"<34> ER INDSAT I FD0"
  1450       PRINT "<134>";XY$(15);XY$(10);"DISKETTE <34>";CHECKL$;"<34> SKAL INDSÆTTES I FD0"
  1460       PRINT "<134>";XY$(45);XY$(13);"TAST FØLGENDE :"
  1470       PRINT "<134>";XY$(43);XY$(14);"-------------------"
  1480       PRINT "<134>";XY$(45);XY$(16);"1. LOCK<34>$FD0"
  1490       PRINT "<134>";XY$(45);XY$(18);"2. SKIFT DISKETTERNE UD"
  1500       PRINT "<134>";XY$(45);XY$(20);"3. INIT<34>$FD0"
  1510       PRINT "<134>";XY$(45);XY$(22);"4. CON"
  1520       PRINT "<134>";XY$(1);XY$(12);
  1530       STOP
  1540     ELSE
  1550     ENDIF
  1560   UNTIL OK
  1570 ENDPROC DISKONT