Home » CEEFAX disks » telesoftware9.adl » 30-09-88/EQUATE
30-09-88/EQUATE
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 » telesoftware9.adl |
| Filename: | 30-09-88/EQUATE |
| Read OK: | ✔ |
| File size: | 013A bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
REM: EQUATE 30000END 30010DEFFNequb(byte) 30020?P%=byte 30030P%=P%+1 30040=pass 30050DEFFNequw(word) 30060?P%=word MOD 256 30070P%?1=word DIV 256 30080P%=P%+2 30090=pass 30100DEFFNequd(double) 30110!P%=double 30120P%=P%+4 30130=pass 30140DEFFNequs(string$) 30150$P%=string$ 30160P%=P%+LEN(string$) 30170=pass
00000000 20 20 20 20 20 52 45 4d 3a 20 45 51 55 41 54 45 | REM: EQUATE| 00000010 0d 33 30 30 30 30 45 4e 44 0d 33 30 30 31 30 44 |.30000END.30010D| 00000020 45 46 46 4e 65 71 75 62 28 62 79 74 65 29 0d 33 |EFFNequb(byte).3| 00000030 30 30 32 30 3f 50 25 3d 62 79 74 65 0d 33 30 30 |0020?P%=byte.300| 00000040 33 30 50 25 3d 50 25 2b 31 0d 33 30 30 34 30 3d |30P%=P%+1.30040=| 00000050 70 61 73 73 0d 33 30 30 35 30 44 45 46 46 4e 65 |pass.30050DEFFNe| 00000060 71 75 77 28 77 6f 72 64 29 0d 33 30 30 36 30 3f |quw(word).30060?| 00000070 50 25 3d 77 6f 72 64 20 4d 4f 44 20 32 35 36 0d |P%=word MOD 256.| 00000080 33 30 30 37 30 50 25 3f 31 3d 77 6f 72 64 20 44 |30070P%?1=word D| 00000090 49 56 20 32 35 36 0d 33 30 30 38 30 50 25 3d 50 |IV 256.30080P%=P| 000000a0 25 2b 32 0d 33 30 30 39 30 3d 70 61 73 73 0d 33 |%+2.30090=pass.3| 000000b0 30 31 30 30 44 45 46 46 4e 65 71 75 64 28 64 6f |0100DEFFNequd(do| 000000c0 75 62 6c 65 29 0d 33 30 31 31 30 21 50 25 3d 64 |uble).30110!P%=d| 000000d0 6f 75 62 6c 65 0d 33 30 31 32 30 50 25 3d 50 25 |ouble.30120P%=P%| 000000e0 2b 34 0d 33 30 31 33 30 3d 70 61 73 73 0d 33 30 |+4.30130=pass.30| 000000f0 31 34 30 44 45 46 46 4e 65 71 75 73 28 73 74 72 |140DEFFNequs(str| 00000100 69 6e 67 24 29 0d 33 30 31 35 30 24 50 25 3d 73 |ing$).30150$P%=s| 00000110 74 72 69 6e 67 24 0d 33 30 31 36 30 50 25 3d 50 |tring$.30160P%=P| 00000120 25 2b 4c 45 4e 28 73 74 72 69 6e 67 24 29 0d 33 |%+LEN(string$).3| 00000130 30 31 37 30 3d 70 61 73 73 0d |0170=pass.| 0000013a
.