Home » Archimedes archive » Zipped Apps » Genesis Plus » !SoundLab/Files/!GenLib/resources/Action/AskName
!SoundLab/Files/!GenLib/resources/Action/AskName
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 » Zipped Apps » Genesis Plus |
| Filename: | !SoundLab/Files/!GenLib/resources/Action/AskName |
| Read OK: | ✔ |
| File size: | 0064 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
SET name TO ASK "What is your name?" IF name IS "" THEN TITLE "Secret" ELSE TITLE name ENDIF
00000000 53 45 54 20 6e 61 6d 65 20 54 4f 20 41 53 4b 20 |SET name TO ASK | 00000010 22 57 68 61 74 20 69 73 20 79 6f 75 72 20 6e 61 |"What is your na| 00000020 6d 65 3f 22 20 0a 49 46 20 6e 61 6d 65 20 49 53 |me?" .IF name IS| 00000030 20 22 22 20 54 48 45 4e 0a 20 20 54 49 54 4c 45 | "" THEN. TITLE| 00000040 20 22 53 65 63 72 65 74 22 0a 45 4c 53 45 0a 20 | "Secret".ELSE. | 00000050 20 54 49 54 4c 45 20 6e 61 6d 65 0a 45 4e 44 49 | TITLE name.ENDI| 00000060 46 0a 20 0a |F. .| 00000064
.