Home » Archimedes archive » Acorn User » AU 1994-10.adf » !Adventure_Adventure » zcode/HelloW
zcode/HelloW
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 » Archimedes archive » Acorn User » AU 1994-10.adf » !Adventure_Adventure |
| Filename: | zcode/HelloW |
| Read OK: | ✔ |
| File size: | 02A9 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
!
! A great step backward in interactive fiction...
!
Object hillside "Bare hillside" nothing;
global place = hillside;
global score = 0;
global turns = 1;
[ Main;
print "^^^^^^^^^^^You wake up, shivering to see that Morgoth \
the Flatulent Devil is towering over you...^^";
Message();
print "^^...and he squashes you effortlessly.\
^^ *** You have died ***^^^^^";
quit;
];
[ Message i;
print "HELLO CRUEL WORLD^\
A Non-Interactive Demonstration^\
Copyright (c) 1993 by Graham Nelson. All rights reserved.^\
Release ", (0-->1) & $03ff, " / Serial number ";
for (i=18 : i<24 : i++) print char 0->i; new_line;
];
00000000 21 0a 21 20 41 20 67 72 65 61 74 20 73 74 65 70 |!.! A great step| 00000010 20 62 61 63 6b 77 61 72 64 20 69 6e 20 69 6e 74 | backward in int| 00000020 65 72 61 63 74 69 76 65 20 66 69 63 74 69 6f 6e |eractive fiction| 00000030 2e 2e 2e 0a 21 0a 0a 4f 62 6a 65 63 74 20 68 69 |....!..Object hi| 00000040 6c 6c 73 69 64 65 20 22 42 61 72 65 20 68 69 6c |llside "Bare hil| 00000050 6c 73 69 64 65 22 20 6e 6f 74 68 69 6e 67 3b 0a |lside" nothing;.| 00000060 0a 67 6c 6f 62 61 6c 20 70 6c 61 63 65 20 3d 20 |.global place = | 00000070 68 69 6c 6c 73 69 64 65 3b 0a 67 6c 6f 62 61 6c |hillside;.global| 00000080 20 73 63 6f 72 65 20 3d 20 30 3b 0a 67 6c 6f 62 | score = 0;.glob| 00000090 61 6c 20 74 75 72 6e 73 20 3d 20 31 3b 0a 0a 5b |al turns = 1;..[| 000000a0 20 4d 61 69 6e 3b 0a 0a 20 20 70 72 69 6e 74 20 | Main;.. print | 000000b0 22 5e 5e 5e 5e 5e 5e 5e 5e 5e 5e 5e 59 6f 75 20 |"^^^^^^^^^^^You | 000000c0 77 61 6b 65 20 75 70 2c 20 73 68 69 76 65 72 69 |wake up, shiveri| 000000d0 6e 67 20 74 6f 20 73 65 65 20 74 68 61 74 20 4d |ng to see that M| 000000e0 6f 72 67 6f 74 68 20 5c 0a 20 20 20 20 20 20 20 |orgoth \. | 000000f0 20 20 74 68 65 20 46 6c 61 74 75 6c 65 6e 74 20 | the Flatulent | 00000100 44 65 76 69 6c 20 69 73 20 74 6f 77 65 72 69 6e |Devil is towerin| 00000110 67 20 6f 76 65 72 20 79 6f 75 2e 2e 2e 5e 5e 22 |g over you...^^"| 00000120 3b 0a 20 20 4d 65 73 73 61 67 65 28 29 3b 0a 20 |;. Message();. | 00000130 20 70 72 69 6e 74 20 22 5e 5e 2e 2e 2e 61 6e 64 | print "^^...and| 00000140 20 68 65 20 73 71 75 61 73 68 65 73 20 79 6f 75 | he squashes you| 00000150 20 65 66 66 6f 72 74 6c 65 73 73 6c 79 2e 5c 0a | effortlessly.\.| 00000160 20 20 20 20 20 20 20 20 20 5e 5e 20 20 20 2a 2a | ^^ **| 00000170 2a 20 59 6f 75 20 68 61 76 65 20 64 69 65 64 20 |* You have died | 00000180 2a 2a 2a 5e 5e 5e 5e 5e 22 3b 0a 0a 20 20 71 75 |***^^^^^";.. qu| 00000190 69 74 3b 0a 5d 3b 0a 0a 5b 20 4d 65 73 73 61 67 |it;.];..[ Messag| 000001a0 65 20 69 3b 20 0a 0a 20 20 70 72 69 6e 74 20 22 |e i; .. print "| 000001b0 48 45 4c 4c 4f 20 43 52 55 45 4c 20 57 4f 52 4c |HELLO CRUEL WORL| 000001c0 44 5e 5c 0a 20 20 20 20 20 20 20 20 20 41 20 4e |D^\. A N| 000001d0 6f 6e 2d 49 6e 74 65 72 61 63 74 69 76 65 20 44 |on-Interactive D| 000001e0 65 6d 6f 6e 73 74 72 61 74 69 6f 6e 5e 5c 0a 20 |emonstration^\. | 000001f0 20 20 20 20 20 20 20 20 43 6f 70 79 72 69 67 68 | Copyrigh| 00000200 74 20 28 63 29 20 31 39 39 33 20 62 79 20 47 72 |t (c) 1993 by Gr| 00000210 61 68 61 6d 20 4e 65 6c 73 6f 6e 2e 20 41 6c 6c |aham Nelson. All| 00000220 20 72 69 67 68 74 73 20 72 65 73 65 72 76 65 64 | rights reserved| 00000230 2e 5e 5c 0a 20 20 20 20 20 20 20 20 20 52 65 6c |.^\. Rel| 00000240 65 61 73 65 20 22 2c 20 28 30 2d 2d 3e 31 29 20 |ease ", (0-->1) | 00000250 26 20 24 30 33 66 66 2c 20 22 20 2f 20 53 65 72 |& $03ff, " / Ser| 00000260 69 61 6c 20 6e 75 6d 62 65 72 20 22 3b 0a 0a 20 |ial number ";.. | 00000270 20 66 6f 72 20 28 69 3d 31 38 20 3a 20 69 3c 32 | for (i=18 : i<2| 00000280 34 20 3a 20 69 2b 2b 29 20 70 72 69 6e 74 20 63 |4 : i++) print c| 00000290 68 61 72 20 30 2d 3e 69 3b 20 20 6e 65 77 5f 6c |har 0->i; new_l| 000002a0 69 6e 65 3b 0a 5d 3b 0a 0a |ine;.];..| 000002a9
.