Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Genesis.adf » !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 ADFS disks » Greaseweazled » adfs_Genesis.adf
Filename: !GenLib/resources/Action/PrintAll
Read OK:
File size: 00C5 bytes
Load address: FFFD0742
Exec address: BFA8DA26
Duplicates

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

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
!GenLib/resources/Action/PrintAll.m0
!GenLib/resources/Action/PrintAll.m1
!GenLib/resources/Action/PrintAll.m2
!GenLib/resources/Action/PrintAll.m4
!GenLib/resources/Action/PrintAll.m5