|
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: 1024 (0x400)
Types: TextFile
Names: »FILIC «
└─⟦3d9d2c4f1⟧ Bits:30001780 SG0000 Floppy
└─ ⟦this⟧ »/FILIC «
«ff» 0510 REM ENTER TIL FILIN FØR COPY-PRG 0520 REM 520,590................... 0530 LET I=1 0540 DIM FL$(100,9) 0845 PRINT "NR ";I, 0855 LET FL$(I)=A$(1,8)," "; I=I+1 1020 REM 1020,1160<13><10>1190,1200 1205 LET IMAX=I 1210 REPEAT 1220 INPUT "NR PÅ FIL TIL KOPIERING: ",I 1230 IF I>0 AND I<IMAX THEN LET FL$(I,9)="*" 1240 UNTIL I=0 1245 PRINT "<10>BESLUTNINGSKONTROL:<10>" 1250 FOR I=1 TO IMAX-1 1260 PRINT I;FL$(I), 1270 NEXT I 1280 INPUT "OK?-",S$ 1290 IF S$<>"J" THEN GOTO 1210 1300 ENTER "FØ-COPY" «nul»