/PAPER-TAPE OUTPUT (VISUAL)
 .LOC 17000
    .SIZE
    .SIXBT 'PPV'
    300002                  /OUTPUT
    .SIXBT 'PPB'
VO
    SNL; JMP V5
    SAD .NL; LAC (42
    TAD (-100; SMA; AND (37
    AND (77; RCL
    TAD (TAB; DAC VI
    LAC* VI; DAC VJ
    JMS PUT; JMS PUT; JMS PUT
    ISZ VI
    LAC* VI; DAC VJ
    JMS PUT; JMS PUT; JMS PUT
    STL
    JMP* VO
V5  JMS* VO-1
    JMP* VO
PUT
    LAC VJ
    RTL; RTL; RTL
    DAC VJ; RAL
    AND (77; SNA; JMP* PUT
    AND (37; RCL; RTL
    STL; JMS* VO-1
    JMP* PUT
TAB 352525; 374000; 360505; 364000 /@ A
    372525; 124000; 162121; 214000 /B C
    372121; 164000; 372525; 254000 /D E
    370505; 014000; 162121; 253540 /F G
    370404; 374000; 213721; 400000 /H I
    112121; 174000; 370412; 214000 /J K
    372020; 204000; 370204; 023740 /L M
    370204; 103740; 162121; 211640 /N O
    370505; 024000; 162125; 112640 /P Q
    370505; 324000; 022525; 251040 /R S
    010137; 010140; 172020; 174000 /T U
    031420; 140340; 172010; 201740 /V W
    211204; 122140; 010234; 020140 /X Y
    213125; 232140; 372121; 400000 /Z [
    020410; 400000; 212137; 400000 /\ ]
    400237; 024040; 302020; 304000 /UP _
    404040; 000000; 402727; 404000 /SP !
    404037; 374040; 401237; 124040 /NL #
    023602; 360240; 231332; 314000 /$ %
    112620; 261140; 400340; 400000 /& '
    401621; 214000; 212116; 404000 /( )
    401204; 124040; 400416; 044040 /* +
    143440; 400000; 400404; 044040 /, -
    141440; 400000; 401004; 024040 /. /
    162121; 164000; 223720; 400000 /0 1
    223125; 224000; 122125; 124000 /2 3
    101412; 371040; 272525; 114000 /4 5
    162525; 104000; 013107; 014000 /6 7
    122525; 124000; 022525; 164000 /8 9
    151540; 400000; 153540; 400000 /: ;
    400412; 214040; 401212; 124040 /< =
    402112; 044040; 023105; 024000 /> ?
VI;VJ
.NL=16000
 .END
