Home » Personal collection » Acorn hard disk » apps » Genesis » !GenLib/resources/Action/PrintAll
!GenLib/resources/Action/PrintAll
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 » Acorn hard disk » apps » Genesis |
| Filename: | !GenLib/resources/Action/PrintAll |
| Read OK: | ✔ |
| File size: | 00C5 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Genesis.adf » !GenLib/resources/Action/PrintAll
- Personal collection » Acorn hard disk » apps » Genesis » !GenLib/resources/Action/PrintAll
File contents
SET Page TO 0
WHILE Page <= LASTPAGE
PRINT WHOLE OF PAGE Page PORTRAIT RETAINING SHAPE COPIES 1
IF Page <> PAGE THEN
TELL PAGE Page TO CLOSE
ENDIF
SET Page TO Page + 1
ENDWHILE
00000000 53 45 54 20 50 61 67 65 20 54 4f 20 30 0a 57 48 |SET Page TO 0.WH| 00000010 49 4c 45 20 50 61 67 65 20 3c 3d 20 4c 41 53 54 |ILE Page <= LAST| 00000020 50 41 47 45 0a 20 20 20 50 52 49 4e 54 20 57 48 |PAGE. PRINT WH| 00000030 4f 4c 45 20 4f 46 20 50 41 47 45 20 50 61 67 65 |OLE OF PAGE Page| 00000040 20 50 4f 52 54 52 41 49 54 20 52 45 54 41 49 4e | PORTRAIT RETAIN| 00000050 49 4e 47 20 53 48 41 50 45 20 43 4f 50 49 45 53 |ING SHAPE COPIES| 00000060 20 31 20 0a 20 20 20 49 46 20 50 61 67 65 20 3c | 1 . IF Page <| 00000070 3e 20 50 41 47 45 20 54 48 45 4e 0a 20 20 20 20 |> PAGE THEN. | 00000080 20 20 54 45 4c 4c 20 50 41 47 45 20 50 61 67 65 | TELL PAGE Page| 00000090 20 54 4f 20 43 4c 4f 53 45 0a 20 20 20 45 4e 44 | TO CLOSE. END| 000000a0 49 46 0a 20 20 20 53 45 54 20 50 61 67 65 20 54 |IF. SET Page T| 000000b0 4f 20 50 61 67 65 20 2b 20 31 0a 45 4e 44 57 48 |O Page + 1.ENDWH| 000000c0 49 4c 45 20 0a |ILE .| 000000c5
.