Home » CEEFAX disks » telesoftware12.adl » 04-02-89/Ex2
04-02-89/Ex2
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: | 04-02-89/Ex2 |
| Read OK: | ✔ |
| File size: | 0078 bytes |
| Load address: | 1B00 |
| Exec address: | FFFF8023 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- CEEFAX disks » telesoftware12.adl » 04-02-89/Ex2
- CEEFAX disks » telesoftware8.adl » 05-08-88/EX2
File contents
10PROCfile(TRUE,"TFILE") 20FOR PAIR%=20 TO 1 STEP -1 30PROCdata(PAIR%,PAIR%-1,(PAIR%-1)^2,TRUE,"","") 40NEXT PAIR% 50PROCfile(FALSE,"") 60END
�file(�,"TFILE") � PAIR%=20 � 1 � -1 ,�data(PAIR%,PAIR%-1,(PAIR%-1)^2,�,"","") ( � PAIR% 2�file(�,"") <� �
00000000 0d 00 0a 14 f2 66 69 6c 65 28 b9 2c 22 54 46 49 |.....file(.,"TFI| 00000010 4c 45 22 29 0d 00 14 17 e3 20 50 41 49 52 25 3d |LE")..... PAIR%=| 00000020 32 30 20 b8 20 31 20 88 20 2d 31 0d 00 1e 2c f2 |20 . 1 . -1...,.| 00000030 64 61 74 61 28 50 41 49 52 25 2c 50 41 49 52 25 |data(PAIR%,PAIR%| 00000040 2d 31 2c 28 50 41 49 52 25 2d 31 29 5e 32 2c b9 |-1,(PAIR%-1)^2,.| 00000050 2c 22 22 2c 22 22 29 0d 00 28 0b ed 20 50 41 49 |,"","")..(.. PAI| 00000060 52 25 0d 00 32 0f f2 66 69 6c 65 28 a3 2c 22 22 |R%..2..file(.,""| 00000070 29 0d 00 3c 05 e0 0d ff |)..<....| 00000078
.