|
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 - metrics - download
Length: 1244 (0x4dc)
Types: TextFile
Notes: BREV::DISKONT, DISKONT
Names: »DISKONT«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »BREV::DISKONT«
«ff» 3720 REM ------------------------------------------------------------------------- 3730 PROC DISKONT 3740 REPEAT 3750 LET OK=1 3760 CONNECT "OVERSIGT",1 3770 OPEN FILE(1,0)"KL-KODE" 3780 OPEN FILE(2,1)"GRENKODE" 3790 READ FILE(1,1)KLKODE$ 3800 READ FILE(1,2)KLTRIN$ 3810 READ FILE(2)GRENKODE$ 3820 MAT READ FILE(2)GRENMAT 3830 CLOSE 3840 IF KLTRIN$<>CHECKL$ THEN 3850 RELEASE 3860 PRINT "<134>";XY$(1);XY$(3);"<31>" 3870 LET OK=0 3880 PRINT "<134>";XY$(15);XY$(8);"DISKETTE <34>";KLTRIN$;"<34> ER INDSAT I FD0" 3890 PRINT "<134>";XY$(15);XY$(10);"DISKETTE <34>";CHECKL$;"<34> SKAL INDSÆTTES I FD0" 3900 PRINT "<134>";XY$(45);XY$(13);"TAST FØLGENDE :" 3910 PRINT "<134>";XY$(43);XY$(14);"-------------------" 3920 PRINT "<134>";XY$(45);XY$(16);"1. LOCK<34>$FD0" 3930 PRINT "<134>";XY$(45);XY$(18);"2. SKIFT DISKETTERNE UD" 3940 PRINT "<134>";XY$(45);XY$(20);"3. INIT<34>$FD0" 3950 PRINT "<134>";XY$(45);XY$(22);"4. CON" 3960 PRINT "<134>";XY$(1);XY$(12); 3970 STOP 3980 ELSE 3990 ENDIF 4000 UNTIL OK 4010 ENDPROC DISKONT