Home » CEEFAX disks » telesoftware12.adl » 13-01-89/PENTEST
13-01-89/PENTEST
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 » telesoftware12.adl |
| Filename: | 13-01-89/PENTEST |
| Read OK: | ✔ |
| File size: | 0152 bytes |
| Load address: | 0800 |
| Exec address: | 802B |
File contents
10REM> PENTEST 20ONERROR VDU23,1,1;0;0;0;:END 30MODE4 40VDU23,1,0;0;0;0; 50VDU19,0,4;0; 60A%=150 70X%=1 80REPEAT 90*FX151,0,17 100R%=(USR(&FFF4)AND&FF0000)DIV&10000 110*FX151,0,16 120S%=(USR(&FFF4)AND&FF0000)DIV&10000 130PRINTTAB(12,14)"Low byte = &";~R%;" " 140PRINTTAB(12,16)"High byte= &";~S%;" " 150IF R%<>T% SOUND 1,-10,100,1 160IF S%<>U% SOUND 1,-10,50,1 170T%=R% 180U%=S% 190UNTIL FALSE
�> PENTEST � �23,1,1;0;0;0;:� �4 (�23,1,0;0;0;0; 2�19,0,4;0; < A%=150 FX%=1 P� Z*FX151,0,17 d R%=(�(&FFF4)�&FF0000)�&10000 n*FX151,0,16 x S%=(�(&FFF4)�&FF0000)�&10000 �"�12,14)"Low byte = &";~R%;" " �"�12,16)"High byte= &";~S%;" " �� R%<>T% � 1,-10,100,1 �� S%<>U% � 1,-10,50,1 � T%=R% � U%=S% �� � �
00000000 0d 00 0a 0e f4 3e 20 50 45 4e 54 45 53 54 0d 00 |.....> PENTEST..| 00000010 14 17 ee 85 20 ef 32 33 2c 31 2c 31 3b 30 3b 30 |.... .23,1,1;0;0| 00000020 3b 30 3b 3a e0 0d 00 1e 06 eb 34 0d 00 28 12 ef |;0;:......4..(..| 00000030 32 33 2c 31 2c 30 3b 30 3b 30 3b 30 3b 0d 00 32 |23,1,0;0;0;0;..2| 00000040 0e ef 31 39 2c 30 2c 34 3b 30 3b 0d 00 3c 0a 41 |..19,0,4;0;..<.A| 00000050 25 3d 31 35 30 0d 00 46 08 58 25 3d 31 0d 00 50 |%=150..F.X%=1..P| 00000060 05 f5 0d 00 5a 0f 2a 46 58 31 35 31 2c 30 2c 31 |....Z.*FX151,0,1| 00000070 37 0d 00 64 20 52 25 3d 28 ba 28 26 46 46 46 34 |7..d R%=(.(&FFF4| 00000080 29 80 26 46 46 30 30 30 30 29 81 26 31 30 30 30 |).&FF0000).&1000| 00000090 30 0d 00 6e 0f 2a 46 58 31 35 31 2c 30 2c 31 36 |0..n.*FX151,0,16| 000000a0 0d 00 78 20 53 25 3d 28 ba 28 26 46 46 46 34 29 |..x S%=(.(&FFF4)| 000000b0 80 26 46 46 30 30 30 30 29 81 26 31 30 30 30 30 |.&FF0000).&10000| 000000c0 0d 00 82 22 f1 8a 31 32 2c 31 34 29 22 4c 6f 77 |..."..12,14)"Low| 000000d0 20 62 79 74 65 20 3d 20 26 22 3b 7e 52 25 3b 22 | byte = &";~R%;"| 000000e0 20 22 0d 00 8c 22 f1 8a 31 32 2c 31 36 29 22 48 | "..."..12,16)"H| 000000f0 69 67 68 20 62 79 74 65 3d 20 26 22 3b 7e 53 25 |igh byte= &";~S%| 00000100 3b 22 20 22 0d 00 96 1a e7 20 52 25 3c 3e 54 25 |;" "..... R%<>T%| 00000110 20 d4 20 31 2c 2d 31 30 2c 31 30 30 2c 31 0d 00 | . 1,-10,100,1..| 00000120 a0 19 e7 20 53 25 3c 3e 55 25 20 d4 20 31 2c 2d |... S%<>U% . 1,-| 00000130 31 30 2c 35 30 2c 31 0d 00 aa 09 54 25 3d 52 25 |10,50,1....T%=R%| 00000140 0d 00 b4 09 55 25 3d 53 25 0d 00 be 07 fd 20 a3 |....U%=S%..... .| 00000150 0d ff |..| 00000152
.