Home » Personal collection » Acorn hard disk » files » DomFord » RoughWork/VideoPrint

RoughWork/VideoPrint

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 » DomFord
Filename: RoughWork/VideoPrint
Read OK:
File size: 0161 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM SpriteTest Data - Screen
   20:
   30MODE 0
   40ON ERROR REPORT:PRINT" at line ";ERL:END
   50*dir
   60:
   70file=OPENIN "!video.Objects"
   80REM *ADFS
   90REM *SPOOL temp
  100INPUT#file,noobs%
  110:
  120FOR obget=0 TO noobs%
  130INPUT#file,name$,mb
  140PRINTobget;" ";name$;" ";mb
  150FOR oblop=1 TO mb
  160INPUT#file,ob,coobs,prob
  170PRINT"            ";coobs;" ",ob;" ",prob
  180NEXT,
  190:
  200CLOSE#file
  210REM *SPOOL
  220:
  230

� SpriteTest Data - Screen
:
� 0
(� � �:�" at line ";�:�
2*dir
<:
Ffile=� "!video.Objects"
P� *ADFS
Z� *SPOOL temp
d�#file,noobs%
n:
x� obget=0 � noobs%
��#file,name$,mb
��obget;" ";name$;" ";mb
�� oblop=1 � mb
��#file,ob,coobs,prob
�)�"            ";coobs;" ",ob;" ",prob
��,
�:
�
�#file
�� *SPOOL
�:
�
�
00000000  0d 00 0a 1e f4 20 53 70  72 69 74 65 54 65 73 74  |..... SpriteTest|
00000010  20 44 61 74 61 20 2d 20  53 63 72 65 65 6e 0d 00  | Data - Screen..|
00000020  14 05 3a 0d 00 1e 07 eb  20 30 0d 00 28 1a ee 20  |..:..... 0..(.. |
00000030  85 20 f6 3a f1 22 20 61  74 20 6c 69 6e 65 20 22  |. .:." at line "|
00000040  3b 9e 3a e0 0d 00 32 08  2a 64 69 72 0d 00 3c 05  |;.:...2.*dir..<.|
00000050  3a 0d 00 46 1b 66 69 6c  65 3d 8e 20 22 21 76 69  |:..F.file=. "!vi|
00000060  64 65 6f 2e 4f 62 6a 65  63 74 73 22 0d 00 50 0b  |deo.Objects"..P.|
00000070  f4 20 2a 41 44 46 53 0d  00 5a 11 f4 20 2a 53 50  |. *ADFS..Z.. *SP|
00000080  4f 4f 4c 20 74 65 6d 70  0d 00 64 11 e8 23 66 69  |OOL temp..d..#fi|
00000090  6c 65 2c 6e 6f 6f 62 73  25 0d 00 6e 05 3a 0d 00  |le,noobs%..n.:..|
000000a0  78 16 e3 20 6f 62 67 65  74 3d 30 20 b8 20 6e 6f  |x.. obget=0 . no|
000000b0  6f 62 73 25 0d 00 82 13  e8 23 66 69 6c 65 2c 6e  |obs%.....#file,n|
000000c0  61 6d 65 24 2c 6d 62 0d  00 8c 1b f1 6f 62 67 65  |ame$,mb.....obge|
000000d0  74 3b 22 20 22 3b 6e 61  6d 65 24 3b 22 20 22 3b  |t;" ";name$;" ";|
000000e0  6d 62 0d 00 96 12 e3 20  6f 62 6c 6f 70 3d 31 20  |mb..... oblop=1 |
000000f0  b8 20 6d 62 0d 00 a0 18  e8 23 66 69 6c 65 2c 6f  |. mb.....#file,o|
00000100  62 2c 63 6f 6f 62 73 2c  70 72 6f 62 0d 00 aa 29  |b,coobs,prob...)|
00000110  f1 22 20 20 20 20 20 20  20 20 20 20 20 20 22 3b  |."            ";|
00000120  63 6f 6f 62 73 3b 22 20  22 2c 6f 62 3b 22 20 22  |coobs;" ",ob;" "|
00000130  2c 70 72 6f 62 0d 00 b4  06 ed 2c 0d 00 be 05 3a  |,prob.....,....:|
00000140  0d 00 c8 0a d9 23 66 69  6c 65 0d 00 d2 0c f4 20  |.....#file..... |
00000150  2a 53 50 4f 4f 4c 0d 00  dc 05 3a 0d 00 e6 04 0d  |*SPOOL....:.....|
00000160  ff                                                |.|
00000161