Home » Recent acquisitions » Commodore_64 » tape036b_c64_commodore_format_power_pack_24.wav » header

header

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 » Recent acquisitions » Commodore_64 » tape036b_c64_commodore_format_power_pack_24.wav
Filename: header
Read OK: ✔
File size: 0308 bytes
Load address: 0801
Exec address: 0000
File contents
    10 PRINT"<clr><green>":POKE 53280,0:POKE53281,0
    20 AD=828
    30 PRINT"▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁";
    40 PRINT" MAKE SURE THE TAPE IS REWOUND TO START"
    50 PRINT"       POSITION THEN PRESS ANY KEY"
    60 PRINT"▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔"
    70 GETX$:IFX$=""THEN70
    80 PRINT"<clr>":OPEN1,1:PRINT"<clr>"
    90 T$(0)="RELATIVE":T$(2)="ABSOLUTE":T$(3)="FILE":C=2:PRINT"PROGRAM - 1":GOTO110
   100 N$="":OPEN1,1
   110 TV=PEEK(AD):FT$=T$(TV-1)
   120 S$=RIGHT$("   "+STR$(PEEK(AD+1)+(256*PEEK(AD+2))-1),6)
   130 E$=RIGHT$("   "+STR$(PEEK(AD+3)+(256*PEEK(AD+4))-1),6)
   140 FORI=5TO20:N$=N$+CHR$(PEEK(AD+I)):NEXT
   150 X=VAL(RIGHT$(E$,6))-VAL(RIGHT$(S$,6))
   160 KB$=RIGHT$(STR$(INT(X/1024*100)/100),6)
   170 PRINT"<cursor down><pink>TYPE     SIZE  START END FILENAME
   180 PRINT"<light blue>"FT$KB$S$E$" "N$:PRINT
   190 PRINT"<light green> READY FOR NEXT PROGRAM HIT ANY KEY<green>"
   200 GET A$:IF A$=""THEN 200
   210 PRINT"<cursor up>PROGRAM -"C"<cursor left>                            "     :C=C+1
   220 CLOSE1
   230 GOTO100



�"�":� 53280,0:�53281,0)AD�828Z�"����������������������������������������";�(�" MAKE SURE THE TAPE IS REWOUND TO START"�2�"       POSITION THEN PRESS ANY KEY"�<�"����������������������������������������"�F�X$:�X$�""�70	P�"�":�1,1:�"�"S	ZT$(0)�"RELATIVE":T$(2)�"ABSOLUTE":T$(3)�"FILE":C�2:�"PROGRAM - 1":�110b	dN$�"":�1,1|	nTV��(AD):FT$�T$(TV�1)�	xS$��("   "��(�(AD�1)�(256��(AD�2))�1),6)�	�E$��("   "��(�(AD�3)�(256��(AD�4))�1),6)�	��I�5�20:N$�N$��(�(AD�I)):�
�X��(�(E$,6))��(�(S$,6))3
�KB$��(�(�(X�1024�100)�100),6)]
��"�TYPE     SIZE  START END FILENAMEw
��"�"FT$KB$S$E$" "N$:��
��"� READY FOR NEXT PROGRAM HIT ANY KEY"�
�� A$:� A$�""� 200�
��"�PROGRAM -"C"�                            "     :C�C�1�
��1��100
.HJ@."..":. 53280,0:.53281,0@)HT@ad.828@zH.@."........................................";@.H(@." make sure the tape is rewound to start"@.H2@."       position then press any key"@.H<@."........................................"@.Hf@.x$:.x$."".70@HIp@.".":.1,1:."."@sIz@t$(0)."relative":t$(2)."absolute":t$(3)."file":c.2:."program - 1":.110@BID@n$."":.1,1@.IN@tv..(ad):ft$.t$(tv.1)@.IX@s$..("   "..(.(ad.1).(256..(ad.2)).1),6)@.I.@e$..("   "..(.(ad.3).(256..(ad.4)).1),6)@.I.@.i.5.20:n$.n$..(.(ad.i)):.@QJ.@x..(.(e$,6))..(.(s$,6))@3J.@kb$..(.(.(x.1024.100).100),6)@]J.@."Q.type     size  start end filename@WJ.@."."ft$kb$s$e$" "n$:.@.J.@.". ready for next program hit any key."@.J.@. a$:. a$."". 200@.J.@.".program -"c".                            "     :c.c.1@.J.@.1@GK.@.100@@@
00000000  1e 08 0a 00 99 22 93 1e  22 3a 97 20 35 33 32 38  |....."..":. 5328|
00000010  30 2c 30 3a 97 35 33 32  38 31 2c 30 00 29 08 14  |0,0:.53281,0.)..|
00000020  00 41 44 b2 38 32 38 00  5a 08 1e 00 99 22 a4 a4  |.AD.828.Z...."..|
00000030  a4 a4 a4 a4 a4 a4 a4 a4  a4 a4 a4 a4 a4 a4 a4 a4  |................|
*
00000050  a4 a4 a4 a4 a4 a4 22 3b  00 89 08 28 00 99 22 20  |......";...(.." |
00000060  4d 41 4b 45 20 53 55 52  45 20 54 48 45 20 54 41  |MAKE SURE THE TA|
00000070  50 45 20 49 53 20 52 45  57 4f 55 4e 44 20 54 4f  |PE IS REWOUND TO|
00000080  20 53 54 41 52 54 22 00  b3 08 32 00 99 22 20 20  | START"...2.."  |
00000090  20 20 20 20 20 50 4f 53  49 54 49 4f 4e 20 54 48  |     POSITION TH|
000000a0  45 4e 20 50 52 45 53 53  20 41 4e 59 20 4b 45 59  |EN PRESS ANY KEY|
000000b0  22 00 e3 08 3c 00 99 22  a3 a3 a3 a3 a3 a3 a3 a3  |"...<.."........|
000000c0  a3 a3 a3 a3 a3 a3 a3 a3  a3 a3 a3 a3 a3 a3 a3 a3  |................|
*
000000e0  22 00 f5 08 46 00 a1 58  24 3a 8b 58 24 b2 22 22  |"...F..X$:.X$.""|
000000f0  a7 37 30 00 08 09 50 00  99 22 93 22 3a 9f 31 2c  |.70...P..".":.1,|
00000100  31 3a 99 22 93 22 00 53  09 5a 00 54 24 28 30 29  |1:.".".S.Z.T$(0)|
00000110  b2 22 52 45 4c 41 54 49  56 45 22 3a 54 24 28 32  |."RELATIVE":T$(2|
00000120  29 b2 22 41 42 53 4f 4c  55 54 45 22 3a 54 24 28  |)."ABSOLUTE":T$(|
00000130  33 29 b2 22 46 49 4c 45  22 3a 43 b2 32 3a 99 22  |3)."FILE":C.2:."|
00000140  50 52 4f 47 52 41 4d 20  2d 20 31 22 3a 89 31 31  |PROGRAM - 1":.11|
00000150  30 00 62 09 64 00 4e 24  b2 22 22 3a 9f 31 2c 31  |0.b.d.N$."":.1,1|
00000160  00 7c 09 6e 00 54 56 b2  c2 28 41 44 29 3a 46 54  |.|.n.TV..(AD):FT|
00000170  24 b2 54 24 28 54 56 ab  31 29 00 a9 09 78 00 53  |$.T$(TV.1)...x.S|
00000180  24 b2 c9 28 22 20 20 20  22 aa c4 28 c2 28 41 44  |$..("   "..(.(AD|
00000190  aa 31 29 aa 28 32 35 36  ac c2 28 41 44 aa 32 29  |.1).(256..(AD.2)|
000001a0  29 ab 31 29 2c 36 29 00  d6 09 82 00 45 24 b2 c9  |).1),6).....E$..|
000001b0  28 22 20 20 20 22 aa c4  28 c2 28 41 44 aa 33 29  |("   "..(.(AD.3)|
000001c0  aa 28 32 35 36 ac c2 28  41 44 aa 34 29 29 ab 31  |.(256..(AD.4)).1|
000001d0  29 2c 36 29 00 f5 09 8c  00 81 49 b2 35 a4 32 30  |),6)......I.5.20|
000001e0  3a 4e 24 b2 4e 24 aa c7  28 c2 28 41 44 aa 49 29  |:N$.N$..(.(AD.I)|
000001f0  29 3a 82 00 11 0a 96 00  58 b2 c5 28 c9 28 45 24  |):......X..(.(E$|
00000200  2c 36 29 29 ab c5 28 c9  28 53 24 2c 36 29 29 00  |,6))..(.(S$,6)).|
00000210  33 0a a0 00 4b 42 24 b2  c9 28 c4 28 b5 28 58 ad  |3...KB$..(.(.(X.|
00000220  31 30 32 34 ac 31 30 30  29 ad 31 30 30 29 2c 36  |1024.100).100),6|
00000230  29 00 5d 0a aa 00 99 22  11 96 54 59 50 45 20 20  |).]...."..TYPE  |
00000240  20 20 20 53 49 5a 45 20  20 53 54 41 52 54 20 45  |   SIZE  START E|
00000250  4e 44 20 46 49 4c 45 4e  41 4d 45 00 77 0a b4 00  |ND FILENAME.w...|
00000260  99 22 9a 22 46 54 24 4b  42 24 53 24 45 24 22 20  |."."FT$KB$S$E$" |
00000270  22 4e 24 3a 99 00 a4 0a  be 00 99 22 99 20 52 45  |"N$:.......". RE|
00000280  41 44 59 20 46 4f 52 20  4e 45 58 54 20 50 52 4f  |ADY FOR NEXT PRO|
00000290  47 52 41 4d 20 48 49 54  20 41 4e 59 20 4b 45 59  |GRAM HIT ANY KEY|
000002a0  1e 22 00 ba 0a c8 00 a1  20 41 24 3a 8b 20 41 24  |."...... A$:. A$|
000002b0  b2 22 22 a7 20 32 30 30  00 f7 0a d2 00 99 22 91  |."". 200......".|
000002c0  50 52 4f 47 52 41 4d 20  2d 22 43 22 9d 20 20 20  |PROGRAM -"C".   |
000002d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002e0  20 20 20 20 20 20 20 20  20 22 20 20 20 20 20 3a  |         "     :|
000002f0  43 b2 43 aa 31 00 fe 0a  dc 00 a0 31 00 07 0b e6  |C.C.1......1....|
00000300  00 89 31 30 30 00 00 00                           |..100...|
00000308

© Dominic Ford 2021–2024.

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