Trailing-Edge
-
PDP-10 Archives
-
decuslib10-04
-
43,50331/dfcode.shr
There are no other files named dfcode.shr in the archive.
\ + x ( P I y
&r ` t* 7 u
&u
( 0@ "+ O@ 7+ 1@ !+ , '+ , '@
&x"$ |
( 1@ + 1@ + 1` + 9d / @ + | a| + 5 F 0 F 2
&|
( 1@ ,+ , 'O
, l<
. "$
&
( 1@ + / @ 8$ , 'O
, d<
.
&@j * <"$
( 1@ + O1@ + :1@ + P1@ + .1@ + 01@ -+ =1` + %9d %/ @ + %"$ + %,> ,> "$
( 1@ + 81@ + 89d 21 + W0` + W/ @ + 2,^ ,^ + % F 3 F 5@
"$ + %,> ,> @p . @
( 1@ + L1@ .+ L1@ + J.$ 1d + F $ + @1 + \0` + \/ @ + @(0 . + @(2 !` )P P ;,^ ,^ + %O@ 6 J 8 L 8 J : L :6@ 7+ \
3+ 6
1+ 9 @ ?* (+ ; ` ` b 8+ @+ d
0+ 9
4+ 6 @ ?* (+ E ` `b :+ J6@ 7+ y@ , 1 + @8 1$ ?+ f b 1 , O@ S / 6(6 f (P 8F 6( X b@
!` P &2 ? @P A8 8 1. ?+ n !@ A: 7 ?/@ < =. < @ =@@ <+ e @ + |
`@ 1 + , S@ R A/ 6(6 f "` (P P &2 ? P Ab@
!` (~X F 6+@88 8 1. ?+ A!@ : 7@ , 8 3$ =+ + y? ?+
`@ 1 + , S+ 6@ + : x ,~ : < ` ,~ ? ?+ @ >,~ b + , O+ " E @ (7@ 6+ "
&
7, #
&
&
( 0@ ,+ "
&, '+ , ' ` & ,> 6@ , #,^ .
" ,~ 1@ ,~
( + ' < H INX > INX `
H `
&+
&
2 `
& b
&
2 `
& b
& #, ` :, k $ F 3 F 5
2 + "
&$ #, ` 8, k $ F 3 F 5
2 + "
&( #, ` 8, k $ F 3 F 5
2 + "
&, #, ` :, k $ F 3 F 5
2 + "
&0 #, `
B , kd @
p ,~
&3 #, `
@ , kd @
p ,~
&5 , `
& $ F 3 F 5
2 + "
&8 , `
& $ F 3 F 5
2 + ",> ,> @ 4@d.
" 8 1$ + b
"; 4@h.
" 8 1$ + f,^ ,^ ,~ ,> ,> ,>
&;"$ < .
" 8$n
&<,^ ,^ ,^ ,~ DFCODE V 1A(3)-5
@ 00 CODE OR DECODE? (C OR D) : NAME OF STORAGE DECTAPE DRIVE : H STANDARD CODE WITHOUT A PASSWORD? (Y OR CR) : H 6PASSWORD: FILE NAMES : H @ 8H H
;H
8 0 ; 0 9
:
8x
TOTAL OF DECTAPE BLOCKS PROCESSED
MORE TO DO? (Y OR CR) :
? DEVICE IS NOT A DECTAPE.
? OPEN ERROR FOR MAIN DEVICE.
TYPE "REE" TO REENTER.
? OPEN ERROR FOR STORAGE DECTAPE.
? LOOKUP ERROR ON MAIN DEVICE FILE H 8INX
? ENTER ERROR ON STORAGE TAPE FILE
? LOOKUP ERROR ON STORAGE TAPE FILE
? ENTER ERROR ON MAIN DEVICE FILE
? WRITE ERROR FOR
? READ ERROR FOR
? INCORRECT PROTECTION CODE FOR
? INCORRECT PPN FOR ( $
)