|
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: »B30«
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
└─⟦this⟧
0010 DIM VNAVN$(205,18),BUF$(128),V(205,15) 0020 OPEN "DATKOST",FV,BUF$,20 0030 FOR I=1 TO 205 0035 LET N=I*4-2 0040 GET FV,N : VNAVN$(I) 0050 GET FV,N+1 : V(I,1),V(I,2),V(I,3),V(I,4),V(I,5) 0060 GET FV,N+2 : V(I,6),V(I,7),V(I,8),V(I,9),V(I,10) 0070 GET FV,N+3 : V(I,11),V(I,12),V(I,13),V(I,14),V(I,15) 0080 NEXT I 0090 CLOSE FV 0100 OUTPUT P 0120 FOR I=1 TO 205 0130 LET N=I*4-2 0140 PRINT I,VNAVN$(I) 0150 PRINT V(I,1),V(I,2),V(I,3),V(I,4),V(I,5) 0160 PRINT V(I,6),V(I,7),V(I,8),V(I,9),V(I,10) 0170 PRINT V(I,11),V(I,12),V(I,13),V(I,14),V(I,15) 0180 NEXT I «eof»