Home » CEEFAX disks » telesoftware6.adl » 22-04-88/HDECODE

22-04-88/HDECODE

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware6.adl
Filename: 22-04-88/HDECODE
Read OK:
File size: 0229 bytes
Load address: FFFF1A00
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM Decode Program
   20REM (c) David Halligan 1987
   30REM
   40MODE7
   50PRINT '''"   WARNING - READING THIS HINT SHEET       WILL SERIOUSLY HINDER YOUR ENJOYMENT    OF DEMONS TOMB."
   60PRINT "   DO YOU REALLY WANT TO READ IT?          (Y or N)"
   70REPEAT:a=GET:UNTIL a=ASC("Y") OR a=ASC("N")
   80IF a=ASC("N") PRINT "GOOD FOR YOU !":END
   85*TV0,1
   90MODE 3
  100PRINT '''"  ****  CHEAT!  ****"
  101PRINT '''
  120REPEAT
  130INPUT "Printer ? (Y or N)";pr$
  140UNTIL pr$="Y" OR pr$="N"
  150IF pr$="Y" THEN VDU 2
  160file=OPENIN("HINT")
  170REPEAT
  180char=BGET#file
  190char=char-1
  200IF char=10 OR char=13 THEN PRINT
  210VDU char
  220UNTIL EOF#file
  230CLOSE#file
  240VDU3
  250END

� 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
22-04-88/HDECODE.m0
22-04-88/HDECODE.m1
22-04-88/HDECODE.m2
22-04-88/HDECODE.m4
22-04-88/HDECODE.m5