Home » Personal collection » Commodore disks » disk52a2_c16_progs.d64 » account

account

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 » Personal collection » Commodore disks » disk52a2_c16_progs.d64
Filename: account
Read OK: ✔
File size: 01F2 bytes
Load address: 1001
Exec address: 0000
Duplicates

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

File contents
    10 SCNCLR
    20 COLOR 4,1
    30 COLOR 0,1
    40 PRINT:PRINT"<red>    ENTER PASSCODE"
    50 COLOR 1,1
    60 INPUT A$
    70 IF A$="FRED" THEN GOTO 120
    80 PRINT:PRINT:PRINT:PRINT"<purple>       WRONG!"
    90 PRINT:PRINT"<green>        PRESS SPACE."
   100 GET B$:IF B$<>" " THEN 100 ELSE 10
   110 RUN
   120 PRINT:PRINT:PRINT:PRINT"<cyan>       CORRECT"
   130 PRINT:PRINT"<green>        PRESS SPACE."
   140 GET C$:IF C$<>" " THEN 140
   150 SCNCLR
   160 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><orange>FROD'S WIERD"
   170 PRINT"<cursor down><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><cursor right><orange>ACCOUNT"
   180 PRINT:PRINT"<cyan>        PRESS ANY KEY!"
   190 GETKEY D$
   200 SCNCLR
   210 PRINT:PRINT"<red>            FROD'S WIERD ACCOUNT"
   220 PRINT"<white>🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸"



�� 4,1� 0,18(�:�"    ENTER PASSCODE"B2� 1,1K<� A$cF� A$�"FRED" � � 120P�:�:�:�"�       WRONG!"�Z�:�"        PRESS SPACE."�d� B$:� B$��" " � 100 � 10�n��x�:�:�:�"�       CORRECT"���:�"        PRESS SPACE."�� C$:� C$��" " � 140��F��"�FROD'S WIERD"d��"�ACCOUNT"���:�"�        PRESS ANY KEY!"���� D$������:�"            FROD'S WIERD ACCOUNT"���"����������������������������������������"
GPJ@.@QPT@. 4,1@[P.@. 0,1@8P(@.:."£    enter passcode"@bP2@. 1,1@kP<@. a$@CPf@. a$."fred" . . 120@.Pp@.:.:.:.".       wrong!"@.Pz@.:.".        press space."@.PD@. b$:. b$.." " . 100 . 10@.PN@.@.PX@.:.:.:.".       correct"@.P.@.:.".        press space."@WQ.@. c$:. c$.." " . 140@]Q.@.@fQ.@."QQQQQQQQQQQQQ]]]]]]].frod's wierd"@DQ.@."Q]]]]]]]]]]]]].account"@.Q.@.:.".        press any key!"@.Q.@.. d$@.Q.@.@.Q.@.:."£            frod's wierd account"@.Q.@."E........................................"@@@
00000000  07 10 0a 00 e8 00 11 10  14 00 e7 20 34 2c 31 00  |........... 4,1.|
00000010  1b 10 1e 00 e7 20 30 2c  31 00 38 10 28 00 99 3a  |..... 0,1.8.(..:|
00000020  99 22 1c 20 20 20 20 45  4e 54 45 52 20 50 41 53  |.".    ENTER PAS|
00000030  53 43 4f 44 45 22 00 42  10 32 00 e7 20 31 2c 31  |SCODE".B.2.. 1,1|
00000040  00 4b 10 3c 00 85 20 41  24 00 63 10 46 00 8b 20  |.K.<.. A$.c.F.. |
00000050  41 24 b2 22 46 52 45 44  22 20 a7 20 89 20 31 32  |A$."FRED" . . 12|
00000060  30 00 7f 10 50 00 99 3a  99 3a 99 3a 99 22 9c 20  |0...P..:.:.:.". |
00000070  20 20 20 20 20 20 57 52  4f 4e 47 21 22 00 9e 10  |      WRONG!"...|
00000080  5a 00 99 3a 99 22 1e 20  20 20 20 20 20 20 20 50  |Z..:.".        P|
00000090  52 45 53 53 20 53 50 41  43 45 2e 22 00 bc 10 64  |RESS SPACE."...d|
000000a0  00 a1 20 42 24 3a 8b 20  42 24 b3 b1 22 20 22 20  |.. B$:. B$.." " |
000000b0  a7 20 31 30 30 20 d5 20  31 30 00 c2 10 6e 00 8a  |. 100 . 10...n..|
000000c0  00 df 10 78 00 99 3a 99  3a 99 3a 99 22 9f 20 20  |...x..:.:.:.".  |
000000d0  20 20 20 20 20 43 4f 52  52 45 43 54 22 00 fe 10  |     CORRECT"...|
000000e0  82 00 99 3a 99 22 1e 20  20 20 20 20 20 20 20 50  |...:.".        P|
000000f0  52 45 53 53 20 53 50 41  43 45 2e 22 00 17 11 8c  |RESS SPACE."....|
00000100  00 a1 20 43 24 3a 8b 20  43 24 b3 b1 22 20 22 20  |.. C$:. C$.." " |
00000110  a7 20 31 34 30 00 1d 11  96 00 e8 00 46 11 a0 00  |. 140.......F...|
00000120  99 22 11 11 11 11 11 11  11 11 11 11 11 11 11 1d  |."..............|
00000130  1d 1d 1d 1d 1d 1d 81 46  52 4f 44 27 53 20 57 49  |.......FROD'S WI|
00000140  45 52 44 22 00 64 11 aa  00 99 22 11 1d 1d 1d 1d  |ERD".d....".....|
00000150  1d 1d 1d 1d 1d 1d 1d 1d  1d 81 41 43 43 4f 55 4e  |..........ACCOUN|
00000160  54 22 00 85 11 b4 00 99  3a 99 22 9f 20 20 20 20  |T"......:.".    |
00000170  20 20 20 20 50 52 45 53  53 20 41 4e 59 20 4b 45  |    PRESS ANY KE|
00000180  59 21 22 00 8f 11 be 00  a1 f9 20 44 24 00 95 11  |Y!"....... D$...|
00000190  c8 00 e8 00 c0 11 d2 00  99 3a 99 22 1c 20 20 20  |.........:.".   |
000001a0  20 20 20 20 20 20 20 20  20 46 52 4f 44 27 53 20  |         FROD'S |
000001b0  57 49 45 52 44 20 41 43  43 4f 55 4e 54 22 00 f1  |WIERD ACCOUNT"..|
000001c0  11 dc 00 99 22 05 c3 c3  c3 c3 c3 c3 c3 c3 c3 c3  |...."...........|
000001d0  c3 c3 c3 c3 c3 c3 c3 c3  c3 c3 c3 c3 c3 c3 c3 c3  |................|
000001e0  c3 c3 c3 c3 c3 c3 c3 c3  c3 c3 c3 c3 c3 c3 22 00  |..............".|
000001f0  00 00                                             |..|
000001f2

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .