|
DataMuseum.dkPresents historical artifacts from the history of: RC4000/8000/9000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RC4000/8000/9000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1122 (0x462)
Description: Bits:30009231 trf - TEXT - CCONVERT
Types: 8-hole paper tape
Notes: Gier Text, Has10
cardconvert=fortran
program cardconvert
external in,out
zone in,out
integer system,outrec
long name
dimension name(2)
long l,ll
logical stop,setposition
zone z(256,2,stderror)
equivalence(z(1),ll)
equivalence(name(1),z(1))
call system(4,0,z)
if(.not.(name(1).eq.10 cardco10 .and. name(2).eq. 10 nvert10 )) goto 5
write(out,101)
stop
5 call open(z,4,name(1),0)
call setposition(z,0,1)
call outrec(z,14)
l=0
10 read(in,100)(z(i),i=1,14)
stop=((ll.shift.(-32).shift.(32)).eq.4b2f2f00000000)
if(stop)goto 20
l=l+1
call outrec(z,14)
goto 10
20 call setposition(z,0,0)
call outrec(z,1)
ll=l
call close(z,.true.)
stop
100 format(13a6,a2)
101 format(36h venstre side af programkald mangler)
end