%� Electron PD Catalogue displayer
� BY ROBERT COOPER
� (c) 1992
(�0
2
mode=3
<�screen
n 
x 
� 
�
� �screen
��19,0,7,0,0,0
��19,1,4,0,0,0
�*FX15,1
��
��
��"   ----------------"
��"   | ASCII   FILE |"
�2�"   |  DISPLAYER!  |   Electron PD Catalogue"
��"   | SHIFT SCROLS |"
��"   ----------------"
�� mode=4 � �28,0,31,39,7

� mode=3 � �28,0,31,79,7

�0

�129

"�

,�

6*FX15,1

@�15

J�14

T�

^file$="ELKPDCAT"

hfile=�(file$)

r
� file<>0

|�

�char=�#file

�7� char=&0D � � � � char<&20 � � " "; � � �(char);  

�� �#file

�
�#file

�
� � �=" "

��7

�*back:cls:*.
�

00000000  0d 00 0a 25 f4 20 45 6c  65 63 74 72 6f 6e 20 50  |...%. Electron P|
00000010  44 20 43 61 74 61 6c 6f  67 75 65 20 64 69 73 70  |D Catalogue disp|
00000020  6c 61 79 65 72 0d 00 14  16 f4 20 42 59 20 52 4f  |layer..... BY RO|
00000030  42 45 52 54 20 43 4f 4f  50 45 52 0d 00 1e 0e f4  |BERT COOPER.....|
00000040  20 28 63 29 20 31 39 39  32 0d 00 28 06 eb 30 0d  | (c) 1992..(..0.|
00000050  00 32 0a 6d 6f 64 65 3d  33 0d 00 3c 0b f2 73 63  |.2.mode=3..<..sc|
00000060  72 65 65 6e 0d 00 6e 05  20 0d 00 78 05 20 0d 00  |reen..n. ..x. ..|
00000070  82 05 20 0d 00 8c 0d dd  20 f2 73 63 72 65 65 6e  |.. ..... .screen|
00000080  0d 00 96 11 ef 31 39 2c  30 2c 37 2c 30 2c 30 2c  |.....19,0,7,0,0,|
00000090  30 0d 00 a0 11 ef 31 39  2c 31 2c 34 2c 30 2c 30  |0.....19,1,4,0,0|
000000a0  2c 30 0d 00 aa 0b 2a 46  58 31 35 2c 31 0d 00 b4  |,0....*FX15,1...|
000000b0  05 db 0d 00 be 05 f1 0d  00 c8 1a f1 22 20 20 20  |............"   |
000000c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000000d0  22 0d 00 d2 1a f1 22 20  20 20 7c 20 41 53 43 49  |"....."   | ASCI|
000000e0  49 20 20 20 46 49 4c 45  20 7c 22 0d 00 dc 32 f1  |I   FILE |"...2.|
000000f0  22 20 20 20 7c 20 20 44  49 53 50 4c 41 59 45 52  |"   |  DISPLAYER|
00000100  21 20 20 7c 20 20 20 45  6c 65 63 74 72 6f 6e 20  |!  |   Electron |
00000110  50 44 20 43 61 74 61 6c  6f 67 75 65 22 0d 00 e6  |PD Catalogue"...|
00000120  1a f1 22 20 20 20 7c 20  53 48 49 46 54 20 53 43  |.."   | SHIFT SC|
00000130  52 4f 4c 53 20 7c 22 0d  00 f0 1a f1 22 20 20 20  |ROLS |"....."   |
00000140  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000150  22 0d 00 fa 1c e7 20 6d  6f 64 65 3d 34 20 8c 20  |"..... mode=4 . |
00000160  ef 32 38 2c 30 2c 33 31  2c 33 39 2c 37 0d 01 04  |.28,0,31,39,7...|
00000170  1c e7 20 6d 6f 64 65 3d  33 20 8c 20 ef 32 38 2c  |.. mode=3 . .28,|
00000180  30 2c 33 31 2c 37 39 2c  37 0d 01 0e 06 fb 30 0d  |0,31,79,7.....0.|
00000190  01 18 08 fb 31 32 39 0d  01 22 05 db 0d 01 2c 05  |....129.."....,.|
000001a0  f1 0d 01 36 0b 2a 46 58  31 35 2c 31 0d 01 40 07  |...6.*FX15,1..@.|
000001b0  ef 31 35 0d 01 4a 07 ef  31 34 0d 01 54 05 f5 0d  |.15..J..14..T...|
000001c0  01 5e 14 66 69 6c 65 24  3d 22 45 4c 4b 50 44 43  |.^.file$="ELKPDC|
000001d0  41 54 22 0d 01 68 11 66  69 6c 65 3d 8e 28 66 69  |AT"..h.file=.(fi|
000001e0  6c 65 24 29 0d 01 72 0d  fd 20 66 69 6c 65 3c 3e  |le$)..r.. file<>|
000001f0  30 0d 01 7c 05 f5 0d 01  86 0f 63 68 61 72 3d 9a  |0..|......char=.|
00000200  23 66 69 6c 65 0d 01 90  37 e7 20 63 68 61 72 3d  |#file...7. char=|
00000210  26 30 44 20 8c 20 f1 20  8b 20 e7 20 63 68 61 72  |&0D . . . . char|
00000220  3c 26 32 30 20 8c 20 f1  20 22 20 22 3b 20 8b 20  |<&20 . . " "; . |
00000230  f1 20 bd 28 63 68 61 72  29 3b 20 20 0d 01 9a 0c  |. .(char);  ....|
00000240  fd 20 c5 23 66 69 6c 65  0d 01 a4 0a d9 23 66 69  |. .#file.....#fi|
00000250  6c 65 0d 01 ae 0d f5 20  fd 20 be 3d 22 20 22 0d  |le..... . .=" ".|
00000260  01 b8 06 ef 37 0d 01 c2  10 2a 62 61 63 6b 3a 63  |....7....*back:c|
00000270  6c 73 3a 2a 2e 0d ff                              |ls:*...|
00000277