|
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: 1227 (0x4cb)
Types: TextFile
Notes: DISKONT , ELEVRET::DISKONT
Names: »DISKONT«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧
«ff» 0670 REM ------------------------------------------------------------------------- 0680 PROC DISKONT 0690 REPEAT 0700 LET OK=1 0710 CONNECT "OVERSIGT",1 0720 OPEN FILE(1,0)"KL-KODE" 0730 OPEN FILE(2,1)"GRENKODE" 0740 READ FILE(1,1)KLKODE$ 0750 READ FILE(1,2)KLTRIN$ 0760 READ FILE(2)GRENKODE$ 0770 MAT READ FILE(2)GRENMAT 0780 CLOSE 0790 IF KLTRIN$<>CHECKL$ THEN 0800 RELEASE 0810 PRINT "<134>";XY$(1);XY$(3);"<31>" 0820 LET OK=0 0830 PRINT "<134>";XY$(15);XY$(8);"DISKETTE <34>";KLTRIN$;"<34> ER INDSAT I FD0" 0840 PRINT "<134>";XY$(15);XY$(10);"DISKETTE <34>";CHECKL$;"<34> SKAL INDSÆTTES I FD0" 0850 PRINT "<134>";XY$(45);XY$(13);"TAST FØLGENDE :" 0860 PRINT "<134>";XY$(43);XY$(14);"-------------------" 0870 PRINT "<134>";XY$(45);XY$(16);"1. LOCK<34>$FD0" 0880 PRINT "<134>";XY$(45);XY$(18);"2. SKIFT DISKETTERNE UD" 0890 PRINT "<134>";XY$(45);XY$(20);"3. INIT<34>$FD0" 0900 PRINT "<134>";XY$(45);XY$(22);"4. CON" 0910 PRINT "<134>";XY$(1);XY$(12); 0920 STOP 0930 ENDIF 0940 UNTIL OK 0950 ENDPROC DISKONT