� Decode Program
� (c) David Halligan 1987
�
(�7
2m� '''"   WARNING - READING THIS HINT SHEET       WILL SERIOUSLY HINDER YOUR ENJOYMENT    OF DEMONS TOMB."
<;� "   DO YOU REALLY WANT TO READ IT?          (Y or N)"
F�:a=�:� a=�("Y") � a=�("N")
P#� a=�("N") � "GOOD FOR YOU !":�
U
*TV0,1
Z� 3
d� '''"  ****  CHEAT!  ****"
e	� '''
x�
�� "Printer ? (Y or N)";pr$
�� pr$="Y" � pr$="N"
�� pr$="Y" � � 2
�file=�("HINT")
��
�char=�#file
�char=char-1
�� char=10 � char=13 � �
�
� char
�� �#file
�
�#file
��3
��
�

00000000  0d 00 0a 14 f4 20 44 65  63 6f 64 65 20 50 72 6f  |..... Decode Pro|
00000010  67 72 61 6d 0d 00 14 1d  f4 20 28 63 29 20 44 61  |gram..... (c) Da|
00000020  76 69 64 20 48 61 6c 6c  69 67 61 6e 20 31 39 38  |vid Halligan 198|
00000030  37 0d 00 1e 05 f4 0d 00  28 06 eb 37 0d 00 32 6d  |7.......(..7..2m|
00000040  f1 20 27 27 27 22 20 20  20 57 41 52 4e 49 4e 47  |. '''"   WARNING|
00000050  20 2d 20 52 45 41 44 49  4e 47 20 54 48 49 53 20  | - READING THIS |
00000060  48 49 4e 54 20 53 48 45  45 54 20 20 20 20 20 20  |HINT SHEET      |
00000070  20 57 49 4c 4c 20 53 45  52 49 4f 55 53 4c 59 20  | WILL SERIOUSLY |
00000080  48 49 4e 44 45 52 20 59  4f 55 52 20 45 4e 4a 4f  |HINDER YOUR ENJO|
00000090  59 4d 45 4e 54 20 20 20  20 4f 46 20 44 45 4d 4f  |YMENT    OF DEMO|
000000a0  4e 53 20 54 4f 4d 42 2e  22 0d 00 3c 3b f1 20 22  |NS TOMB."..<;. "|
000000b0  20 20 20 44 4f 20 59 4f  55 20 52 45 41 4c 4c 59  |   DO YOU REALLY|
000000c0  20 57 41 4e 54 20 54 4f  20 52 45 41 44 20 49 54  | WANT TO READ IT|
000000d0  3f 20 20 20 20 20 20 20  20 20 20 28 59 20 6f 72  |?          (Y or|
000000e0  20 4e 29 22 0d 00 46 1f  f5 3a 61 3d a5 3a fd 20  | N)"..F..:a=.:. |
000000f0  61 3d 97 28 22 59 22 29  20 84 20 61 3d 97 28 22  |a=.("Y") . a=.("|
00000100  4e 22 29 0d 00 50 23 e7  20 61 3d 97 28 22 4e 22  |N")..P#. a=.("N"|
00000110  29 20 f1 20 22 47 4f 4f  44 20 46 4f 52 20 59 4f  |) . "GOOD FOR YO|
00000120  55 20 21 22 3a e0 0d 00  55 0a 2a 54 56 30 2c 31  |U !":...U.*TV0,1|
00000130  0d 00 5a 07 eb 20 33 0d  00 64 1f f1 20 27 27 27  |..Z.. 3..d.. '''|
00000140  22 20 20 2a 2a 2a 2a 20  20 43 48 45 41 54 21 20  |"  ****  CHEAT! |
00000150  20 2a 2a 2a 2a 22 0d 00  65 09 f1 20 27 27 27 0d  | ****"..e.. '''.|
00000160  00 78 05 f5 0d 00 82 1e  e8 20 22 50 72 69 6e 74  |.x....... "Print|
00000170  65 72 20 3f 20 28 59 20  6f 72 20 4e 29 22 3b 70  |er ? (Y or N)";p|
00000180  72 24 0d 00 8c 17 fd 20  70 72 24 3d 22 59 22 20  |r$..... pr$="Y" |
00000190  84 20 70 72 24 3d 22 4e  22 0d 00 96 13 e7 20 70  |. pr$="N"..... p|
000001a0  72 24 3d 22 59 22 20 8c  20 ef 20 32 0d 00 a0 12  |r$="Y" . . 2....|
000001b0  66 69 6c 65 3d 8e 28 22  48 49 4e 54 22 29 0d 00  |file=.("HINT")..|
000001c0  aa 05 f5 0d 00 b4 0f 63  68 61 72 3d 9a 23 66 69  |.......char=.#fi|
000001d0  6c 65 0d 00 be 0f 63 68  61 72 3d 63 68 61 72 2d  |le....char=char-|
000001e0  31 0d 00 c8 1b e7 20 63  68 61 72 3d 31 30 20 84  |1..... char=10 .|
000001f0  20 63 68 61 72 3d 31 33  20 8c 20 f1 0d 00 d2 0a  | char=13 . .....|
00000200  ef 20 63 68 61 72 0d 00  dc 0c fd 20 c5 23 66 69  |. char..... .#fi|
00000210  6c 65 0d 00 e6 0a d9 23  66 69 6c 65 0d 00 f0 06  |le.....#file....|
00000220  ef 33 0d 00 fa 05 e0 0d  ff                       |.3.......|
00000229