CaptCard/GreyScale2

Home » Personal collection » Acorn hard disk » files » captcard » CaptCard/GreyScale2

CaptCard/GreyScale2

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 » files » captcard
Filename:	CaptCard/GreyScale2
Read OK:	✔
File size:	02B4 bytes
Load address:	0000
Exec address:	0000

File contents

   10ON ERROR REPORT:PRINT" @ ";ERL:END
   20MODE15:*RAM
   30DIM SPACE &40000,code &400
   40PROCass
   50OSCLI "LOAD CAPTURE8 "+STR$~SPACE
   60ad=SPACE
   70REPEAT ad=ad+1:UNTIL ?ad=64
   80FORy=0TO255
   90 REPEAT ad=ad+1:UNTIL ?ad>64
  100 x=0:REPEAT
  110  col=4*(?ad)-65*4
  120  !(&1FD8000+4*x+640*y)=!(scrcols+col)
  130  REM POINTx*8,1024-y*4:POINTx*8+2,1024-y*4:POINTx*8+4,1024-y*4:POINTx*8+6,1024-y*4
  140  ad=ad+1:x=x+1
  150 UNTIL ?ad=&0D
  160NEXT
  170*SCREENSAVE Scr
  180:
  190DEFPROCass
  200FORpass=0TO2
  210P%=code
  220[OPTpass
  230.scrcols EQUD&00000000:EQUD&01010101:EQUD&02020202:EQUD&03030303
  240EQUD&2C2C2C2C:EQUD&2D2D2D2D:EQUD&2E2E2E2E:EQUD&2F2F2F2F
  250EQUD&D0D0D0D0:EQUD&D1D1D1D1:EQUD&D2D2D2D2:EQUD&D3D3D3D3
  260EQUD&FCFCFCFC:EQUD&FDFDFDFD:EQUD&FEFEFEFE:EQUD&FFFFFFFF
  270]:NEXT
  280ENDPROC


� � �:�" @ ";�:�
�15:*RAM
� SPACE &40000,code &400
(�ass
2� "LOAD CAPTURE8 "+�~SPACE
<ad=SPACE
F� ad=ad+1:� ?ad=64
P�y=0�255
Z � ad=ad+1:� ?ad>64
d
 x=0:�
n  col=4*(?ad)-65*4
x*  !(&1FD8000+4*x+640*y)=!(scrcols+col)
�U  � POINTx*8,1024-y*4:POINTx*8+2,1024-y*4:POINTx*8+4,1024-y*4:POINTx*8+6,1024-y*4
�  ad=ad+1:x=x+1
� � ?ad=&0D
��
�*SCREENSAVE Scr
�:
�	��ass
�
�pass=0�2
�P%=code
�[OPTpass
�D.scrcols EQUD&00000000:EQUD&01010101:EQUD&02020202:EQUD&03030303
�;EQUD&2C2C2C2C:EQUD&2D2D2D2D:EQUD&2E2E2E2E:EQUD&2F2F2F2F
�;EQUD&D0D0D0D0:EQUD&D1D1D1D1:EQUD&D2D2D2D2:EQUD&D3D3D3D3
;EQUD&FCFCFCFC:EQUD&FDFDFDFD:EQUD&FEFEFEFE:EQUD&FFFFFFFF
]:�
�
�

00000000  0d 00 0a 14 ee 20 85 20  f6 3a f1 22 20 40 20 22  |..... . .:." @ "|
00000010  3b 9e 3a e0 0d 00 14 0c  eb 31 35 3a 2a 52 41 4d  |;.:......15:*RAM|
00000020  0d 00 1e 1c de 20 53 50  41 43 45 20 26 34 30 30  |..... SPACE &400|
00000030  30 30 2c 63 6f 64 65 20  26 34 30 30 0d 00 28 08  |00,code &400..(.|
00000040  f2 61 73 73 0d 00 32 1e  ff 20 22 4c 4f 41 44 20  |.ass..2.. "LOAD |
00000050  43 41 50 54 55 52 45 38  20 22 2b c3 7e 53 50 41  |CAPTURE8 "+.~SPA|
00000060  43 45 0d 00 3c 0c 61 64  3d 53 50 41 43 45 0d 00  |CE..<.ad=SPACE..|
00000070  46 16 f5 20 61 64 3d 61  64 2b 31 3a fd 20 3f 61  |F.. ad=ad+1:. ?a|
00000080  64 3d 36 34 0d 00 50 0c  e3 79 3d 30 b8 32 35 35  |d=64..P..y=0.255|
00000090  0d 00 5a 17 20 f5 20 61  64 3d 61 64 2b 31 3a fd  |..Z. . ad=ad+1:.|
000000a0  20 3f 61 64 3e 36 34 0d  00 64 0a 20 78 3d 30 3a  | ?ad>64..d. x=0:|
000000b0  f5 0d 00 6e 16 20 20 63  6f 6c 3d 34 2a 28 3f 61  |...n.  col=4*(?a|
000000c0  64 29 2d 36 35 2a 34 0d  00 78 2a 20 20 21 28 26  |d)-65*4..x*  !(&|
000000d0  31 46 44 38 30 30 30 2b  34 2a 78 2b 36 34 30 2a  |1FD8000+4*x+640*|
000000e0  79 29 3d 21 28 73 63 72  63 6f 6c 73 2b 63 6f 6c  |y)=!(scrcols+col|
000000f0  29 0d 00 82 55 20 20 f4  20 50 4f 49 4e 54 78 2a  |)...U  . POINTx*|
00000100  38 2c 31 30 32 34 2d 79  2a 34 3a 50 4f 49 4e 54  |8,1024-y*4:POINT|
00000110  78 2a 38 2b 32 2c 31 30  32 34 2d 79 2a 34 3a 50  |x*8+2,1024-y*4:P|
00000120  4f 49 4e 54 78 2a 38 2b  34 2c 31 30 32 34 2d 79  |OINTx*8+4,1024-y|
00000130  2a 34 3a 50 4f 49 4e 54  78 2a 38 2b 36 2c 31 30  |*4:POINTx*8+6,10|
00000140  32 34 2d 79 2a 34 0d 00  8c 13 20 20 61 64 3d 61  |24-y*4....  ad=a|
00000150  64 2b 31 3a 78 3d 78 2b  31 0d 00 96 0e 20 fd 20  |d+1:x=x+1.... . |
00000160  3f 61 64 3d 26 30 44 0d  00 a0 05 ed 0d 00 aa 13  |?ad=&0D.........|
00000170  2a 53 43 52 45 45 4e 53  41 56 45 20 53 63 72 0d  |*SCREENSAVE Scr.|
00000180  00 b4 05 3a 0d 00 be 09  dd f2 61 73 73 0d 00 c8  |...:......ass...|
00000190  0d e3 70 61 73 73 3d 30  b8 32 0d 00 d2 0b 50 25  |..pass=0.2....P%|
000001a0  3d 63 6f 64 65 0d 00 dc  0c 5b 4f 50 54 70 61 73  |=code....[OPTpas|
000001b0  73 0d 00 e6 44 2e 73 63  72 63 6f 6c 73 20 45 51  |s...D.scrcols EQ|
000001c0  55 44 26 30 30 30 30 30  30 30 30 3a 45 51 55 44  |UD&00000000:EQUD|
000001d0  26 30 31 30 31 30 31 30  31 3a 45 51 55 44 26 30  |&01010101:EQUD&0|
000001e0  32 30 32 30 32 30 32 3a  45 51 55 44 26 30 33 30  |2020202:EQUD&030|
000001f0  33 30 33 30 33 0d 00 f0  3b 45 51 55 44 26 32 43  |30303...;EQUD&2C|
00000200  32 43 32 43 32 43 3a 45  51 55 44 26 32 44 32 44  |2C2C2C:EQUD&2D2D|
00000210  32 44 32 44 3a 45 51 55  44 26 32 45 32 45 32 45  |2D2D:EQUD&2E2E2E|
00000220  32 45 3a 45 51 55 44 26  32 46 32 46 32 46 32 46  |2E:EQUD&2F2F2F2F|
00000230  0d 00 fa 3b 45 51 55 44  26 44 30 44 30 44 30 44  |...;EQUD&D0D0D0D|
00000240  30 3a 45 51 55 44 26 44  31 44 31 44 31 44 31 3a  |0:EQUD&D1D1D1D1:|
00000250  45 51 55 44 26 44 32 44  32 44 32 44 32 3a 45 51  |EQUD&D2D2D2D2:EQ|
00000260  55 44 26 44 33 44 33 44  33 44 33 0d 01 04 3b 45  |UD&D3D3D3D3...;E|
00000270  51 55 44 26 46 43 46 43  46 43 46 43 3a 45 51 55  |QUD&FCFCFCFC:EQU|
00000280  44 26 46 44 46 44 46 44  46 44 3a 45 51 55 44 26  |D&FDFDFDFD:EQUD&|
00000290  46 45 46 45 46 45 46 45  3a 45 51 55 44 26 46 46  |FEFEFEFE:EQUD&FF|
000002a0  46 46 46 46 46 46 0d 01  0e 07 5d 3a ed 0d 01 18  |FFFFFF....]:....|
000002b0  05 e1 0d ff                                       |....|
000002b4

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .