|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1244 (0x4dc)
Types: TextFile
Notes: DISKONT , OPDATER::DISKONT
Names: »DISKONT«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff» 4590 REM ------------------------------------------------------------------------- 4600 PROC DISKONT 4610 REPEAT 4620 LET OK=1 4630 CONNECT "OVERSIGT",1 4640 OPEN FILE(1,0)"KL-KODE" 4650 OPEN FILE(2,1)"GRENKODE" 4660 READ FILE(1,1)KLKODE$ 4670 READ FILE(1,2)KLTRIN$ 4680 READ FILE(2)GRENKODE$ 4690 MAT READ FILE(2)GRENMAT 4700 CLOSE 4710 IF KLTRIN$<>CHECKL$ THEN 4720 RELEASE 4730 PRINT "<134>";XY$(1);XY$(3);"<31>" 4740 LET OK=0 4750 PRINT "<134>";XY$(15);XY$(8);"DISKETTE <34>";KLTRIN$;"<34> ER INDSAT I FD0" 4760 PRINT "<134>";XY$(15);XY$(10);"DISKETTE <34>";CHECKL$;"<34> SKAL INDSÆTTES I FD0" 4770 PRINT "<134>";XY$(45);XY$(13);"TAST FØLGENDE :" 4780 PRINT "<134>";XY$(43);XY$(14);"-------------------" 4790 PRINT "<134>";XY$(45);XY$(16);"1. LOCK<34>$FD0" 4800 PRINT "<134>";XY$(45);XY$(18);"2. SKIFT DISKETTERNE UD" 4810 PRINT "<134>";XY$(45);XY$(20);"3. INIT<34>$FD0" 4820 PRINT "<134>";XY$(45);XY$(22);"4. CON" 4830 PRINT "<134>";XY$(1);XY$(12); 4840 STOP 4850 ELSE 4860 ENDIF 4870 UNTIL OK 4880 ENDPROC DISKONT