|
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: 1243 (0x4db)
Types: TextFile
Notes: DISKONT , FORLIST::DISKONT
Names: »DISKONT«
└─⟦bb49f20ac⟧ Bits:30007876 (DELPROCEDURER DISKETTE 80.28.06 Områder: OPDATER, FORSØM, BREV ELEVRET, KLLISTE, FOR.LIST)
└─⟦this⟧ »FORLIST::DISKONT«
«ff» 1060 ENDPROC CONNOM 1070 REM ------------------------------------------------------------------------- 1080 PROC DISKONT 1090 REPEAT 1100 LET OK=1 1110 CONNECT "OVERSIGT",1 1120 OPEN FILE(1,0)"KL-KODE" 1130 OPEN FILE(2,1)"GRENKODE" 1140 READ FILE(1,1)KLKODE$ 1150 READ FILE(1,2)KLTRIN$ 1160 READ FILE(2)GRENKODE$ 1170 MAT READ FILE(2)GRENMAT 1180 CLOSE 1190 IF KLTRIN$<>CHECKL$ THEN 1200 RELEASE 1210 PRINT "<134>";XY$(1);XY$(3);"<31>" 1220 LET OK=0 1230 PRINT "<134>";XY$(15);XY$(8);"DISKETTE <34>";KLTRIN$;"<34> ER INDSAT I FD0" 1240 PRINT "<134>";XY$(15);XY$(10);"DISKETTE <34>";CHECKL$;"<34> SKAL INDSÆTTES I FD0" 1250 PRINT "<134>";XY$(45);XY$(13);"TAST FØLGENDE :" 1260 PRINT "<134>";XY$(43);XY$(14);"-------------------" 1270 PRINT "<134>";XY$(45);XY$(16);"1. LOCK<34>$FD0" 1280 PRINT "<134>";XY$(45);XY$(18);"2. SKIFT DISKETTERNE UD" 1290 PRINT "<134>";XY$(45);XY$(20);"3. INIT<34>$FD0" 1300 PRINT "<134>";XY$(45);XY$(22);"4. CON" 1310 PRINT "<134>";XY$(1);XY$(12); 1320 STOP 1330 ELSE 1340 ENDIF 1350 UNTIL OK