1 " ***********************************************************
 2 " *                                                         *
 3 " * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 4 " *                                                         *
 5 " ***********************************************************
 6      name bcd_prt_image
 7 
 8           segdef    image
 9 
10 image:
11 "         mac  image - prph card code 1
12 
13           bci       "0123456789bcifuvestaghijklmnopwrqxyz$=""&.|{}%0#@"
14           bci       "jakedcstbwghmiorpnflvzxy\`qu(/*)!^_~<>[]+-.,:;'?"
15           bci       "0123456789bcifuvestaghijklmnopwrqxyz$=""&.|{}%0#@"
16           bci       "jakedcstbwghmiorpnflvzxy\`qu(/*)!^_~<>[]+-.,:;'?"
17           bci       "0123456789bcifuvestaghijklmnopwrqxyz$=""&.|{}%0#@"
18           bci       "jakedcstbwghmiorpnflvzxy\`qu(/*)!^_~<>[]+-.,:;'?"
19 
20 "         phoenix  image - prph card code 2, for group 2 type chain
21 "     type 300 prt ascii train  train_5
22 
23           bci       "0123jake.|{}456789bcestaghijbwghmiorklmnopwrdfuv"
24           bci       "dcstpnfl:;'?\`qu!^_~vzxy0123pnfl:;'?456789bcesta"
25           bci       "ghijjakemiorklmnopwrdfuvdcst+-.,qxyz%0#@$=""&(/*)"
26           bci       "0123+-.,qxyz456789bcestaghijpnfl:;'?klmnopwrdfuv"
27           bci       "dcstbwghmior\`qu!^_~vzxy0123bwghmior456789bcesta"
28           bci       "ghij+-.,qxyzklmnopwrdfuvdcstjake<>[]%0#@$=""&(/*)"
29 
30 
31 "         phoenix image - prph card code 3, for group 8 type chain
32 
33           bci       "0123456789acriflmnopdust+-.ebz,/jkq*vwxy(gh):;&?"
34           bci       "!^_~<>[]$=""'%=#@ |{}\`abcdefghijklmnopqrstuvwxyz"
35           bci       "0123456789acriflmnopdust+-.ebz,/jkq*vwxy(gh):;&?"
36           bci       "!^_~<>[]$=""'%=#@ |{}\`abcdefghijklmnopqrstuvwxyz"
37           bci       "0123456789acriflmnopdust+-.ebz,/jkq*vwxy(gh):;&?"
38           bci       "!^_~<>[]$=""'%=#@ |{}\`abcdefghijklmnopqrstuvwxyz"
39     end bcd_prt_image