Home » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199312.adf » !BasicProg_BasicProg » Listing2
Listing2
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 » Recent acquisitions » Acorn ADFS disks » adfs_AcornUser_199312.adf » !BasicProg_BasicProg |
| Filename: | Listing2 |
| Read OK: | ✔ |
| File size: | 00DE bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Listing2 20: 30ON ERROR REPORT:PRINT " at line ";ERL/10:END 40MODE 0 50: 60INPUT "What is your password? "pword$ 70WHILE pword$<>"AU" 80 PRINT "Access denied" 90 INPUT "Please re-enter your password "pword$ 100ENDWHILE 110PRINT "Password accepted" 120END
� >Listing2 : � � �:� " at line ";�/10:� (� 0 2: <%� "What is your password? "pword$ Fȕ pword$<>"AU" P � "Access denied" Z- � "Please re-enter your password "pword$ d� n� "Password accepted" x� �
00000000 0d 00 0a 0f f4 20 3e 4c 69 73 74 69 6e 67 32 0d |..... >Listing2.| 00000010 00 14 05 3a 0d 00 1e 1e ee 20 85 20 f6 3a f1 20 |...:..... . .:. | 00000020 22 20 61 74 20 6c 69 6e 65 20 22 3b 9e 2f 31 30 |" at line ";./10| 00000030 3a e0 0d 00 28 07 eb 20 30 0d 00 32 05 3a 0d 00 |:...(.. 0..2.:..| 00000040 3c 25 e8 20 22 57 68 61 74 20 69 73 20 79 6f 75 |<%. "What is you| 00000050 72 20 70 61 73 73 77 6f 72 64 3f 20 22 70 77 6f |r password? "pwo| 00000060 72 64 24 0d 00 46 13 c8 95 20 70 77 6f 72 64 24 |rd$..F... pword$| 00000070 3c 3e 22 41 55 22 0d 00 50 16 20 f1 20 22 41 63 |<>"AU"..P. . "Ac| 00000080 63 65 73 73 20 64 65 6e 69 65 64 22 0d 00 5a 2d |cess denied"..Z-| 00000090 20 e8 20 22 50 6c 65 61 73 65 20 72 65 2d 65 6e | . "Please re-en| 000000a0 74 65 72 20 79 6f 75 72 20 70 61 73 73 77 6f 72 |ter your passwor| 000000b0 64 20 22 70 77 6f 72 64 24 0d 00 64 05 ce 0d 00 |d "pword$..d....| 000000c0 6e 19 f1 20 22 50 61 73 73 77 6f 72 64 20 61 63 |n.. "Password ac| 000000d0 63 65 70 74 65 64 22 0d 00 78 05 e0 0d ff |cepted"..x....| 000000de
.