datalines

Home » Personal collection » Commodore disks » disk46a_green.d64 » datalines

datalines

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 » Commodore disks » disk46a_green.d64
Filename:	datalines
Read OK:	✔
File size:	0217 bytes
Load address:	0801
Exec address:	0000

File contents

 60000 INPUT"START ADDRESS";B
 60010 INPUT"END ADDRESS  ";E
 60020 F=B:L=F+10
 60030 INPUT"START LINE   ";S
 60040 INPUT"LINE INC     ";T
 60050 PRINT"<cursor down><cursor down><cursor down><cursor down>"
 60060 POKE831,INT(E/256)
 60070 POKE832,E-INT(E/256)*256
 60080 POKE828,T:GOTO60160
 60090 S=PEEK(826)*256+PEEK(827)
 60100 T=PEEK(828)
 60110 L=PEEK(829)*256+PEEK(830)
 60120 E=PEEK(831)*256+PEEK(832)
 60130 IF L>=E THEN 60270
 60140 F=L+1:L=L+10
 60150 PRINT"<cursor up>              "
 60160 PRINTS;
 60170 PRINT"DATA";
 60180 FORP=FTOL:PRINTPEEK(P);"<cursor left>,";:NEXTP
 60190 PRINT"<cursor left>   "
 60200 PRINT"GOTO60090<cursor up><cursor up><cursor up><cursor up>";
 60210 POKE198,2:POKE631,13:POKE632,13
 60220 S=S+T
 60230 POKE826,INT(S/256)
 60240 POKE827,S-INT(S/256)*256
 60250 POKE829,INT(L/256)
 60260 POKE830,L-INT(L/256)*256:END
 60270 STOP

`�"START ADDRESS";B/j�"END ADDRESS  ";E>t�F�B:L�F�10U~�"START LINE   ";Sl��"LINE INC     ";Tx��""���831,�(E�256)���832,E��(E�256)�256���828,T:�60160���S��(826)�256��(827)���T��(828)���L��(829)�256��(830)		��E��(831)�256��(832)	�� L��E � 60270-	��F�L�1:L�L�10D	��"�              "L	�S;Y	
�"DATA";s	�P�F�L:��(P);"�,";:�P	�"�   "�	(�"GOTO60090����";�	2�198,2:�631,13:�632,13�	<�S�S�T�	F�826,�(S�256)�	P�827,S��(S�256)�256�	Z�829,�(L�256)
d�830,L��(L�256)�256:�
n�

XH..."start address";b@/HJ.."end address  ";e@>HT.f.b:l.f.10@uH..."start line   ";s@LH..."line inc     ";t@XH..."QQQQ"@.H...831,.(e.256)@.H...832,e..(e.256).256@.H...828,t:.60160@.H..s..(826).256..(827)@.H..t..(828)@.H..l..(829).256..(830)@II..e..(831).256..(832)@£I... l..e . 60270@-I..f.l.1:l.l.10@dI...".              "@lI@..s;@yIJ.."data";@SIT..p.f.l:..(p);".,";:.p@.I...".   "@.I(.."goto60090....";@.I2..198,2:.631,13:.632,13@.I<.s.s.t@.If..826,.(s.256)@.Ip..827,s..(s.256).256@.Iz..829,.(l.256)@PJD..830,l..(l.256).256:.@VJN..@@@

00000000  18 08 60 ea 85 22 53 54  41 52 54 20 41 44 44 52  |..`.."START ADDR|
00000010  45 53 53 22 3b 42 00 2f  08 6a ea 85 22 45 4e 44  |ESS";B./.j.."END|
00000020  20 41 44 44 52 45 53 53  20 20 22 3b 45 00 3e 08  | ADDRESS  ";E.>.|
00000030  74 ea 46 b2 42 3a 4c b2  46 aa 31 30 00 55 08 7e  |t.F.B:L.F.10.U.~|
00000040  ea 85 22 53 54 41 52 54  20 4c 49 4e 45 20 20 20  |.."START LINE   |
00000050  22 3b 53 00 6c 08 88 ea  85 22 4c 49 4e 45 20 49  |";S.l...."LINE I|
00000060  4e 43 20 20 20 20 20 22  3b 54 00 78 08 92 ea 99  |NC     ";T.x....|
00000070  22 11 11 11 11 22 00 8a  08 9c ea 97 38 33 31 2c  |"...."......831,|
00000080  b5 28 45 ad 32 35 36 29  00 a2 08 a6 ea 97 38 33  |.(E.256)......83|
00000090  32 2c 45 ab b5 28 45 ad  32 35 36 29 ac 32 35 36  |2,E..(E.256).256|
000000a0  00 b4 08 b0 ea 97 38 32  38 2c 54 3a 89 36 30 31  |......828,T:.601|
000000b0  36 30 00 cc 08 ba ea 53  b2 c2 28 38 32 36 29 ac  |60.....S..(826).|
000000c0  32 35 36 aa c2 28 38 32  37 29 00 d9 08 c4 ea 54  |256..(827).....T|
000000d0  b2 c2 28 38 32 38 29 00  f1 08 ce ea 4c b2 c2 28  |..(828).....L..(|
000000e0  38 32 39 29 ac 32 35 36  aa c2 28 38 33 30 29 00  |829).256..(830).|
000000f0  09 09 d8 ea 45 b2 c2 28  38 33 31 29 ac 32 35 36  |....E..(831).256|
00000100  aa c2 28 38 33 32 29 00  1c 09 e2 ea 8b 20 4c b1  |..(832)...... L.|
00000110  b2 45 20 a7 20 36 30 32  37 30 00 2d 09 ec ea 46  |.E . 60270.-...F|
00000120  b2 4c aa 31 3a 4c b2 4c  aa 31 30 00 44 09 f6 ea  |.L.1:L.L.10.D...|
00000130  99 22 91 20 20 20 20 20  20 20 20 20 20 20 20 20  |.".             |
00000140  20 22 00 4c 09 00 eb 99  53 3b 00 59 09 0a eb 99  | ".L....S;.Y....|
00000150  22 44 41 54 41 22 3b 00  73 09 14 eb 81 50 b2 46  |"DATA";.s....P.F|
00000160  a4 4c 3a 99 c2 28 50 29  3b 22 9d 2c 22 3b 3a 82  |.L:..(P);".,";:.|
00000170  50 00 7f 09 1e eb 99 22  9d 20 20 20 22 00 95 09  |P......".   "...|
00000180  28 eb 99 22 47 4f 54 4f  36 30 30 39 30 91 91 91  |(.."GOTO60090...|
00000190  91 22 3b 00 b0 09 32 eb  97 31 39 38 2c 32 3a 97  |.";...2..198,2:.|
000001a0  36 33 31 2c 31 33 3a 97  36 33 32 2c 31 33 00 ba  |631,13:.632,13..|
000001b0  09 3c eb 53 b2 53 aa 54  00 cc 09 46 eb 97 38 32  |.<.S.S.T...F..82|
000001c0  36 2c b5 28 53 ad 32 35  36 29 00 e4 09 50 eb 97  |6,.(S.256)...P..|
000001d0  38 32 37 2c 53 ab b5 28  53 ad 32 35 36 29 ac 32  |827,S..(S.256).2|
000001e0  35 36 00 f6 09 5a eb 97  38 32 39 2c b5 28 4c ad  |56...Z..829,.(L.|
000001f0  32 35 36 29 00 10 0a 64  eb 97 38 33 30 2c 4c ab  |256)...d..830,L.|
00000200  b5 28 4c ad 32 35 36 29  ac 32 35 36 3a 80 00 16  |.(L.256).256:...|
00000210  0a 6e eb 90 00 00 00                              |.n.....|
00000217

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