Home » Personal collection » Commodore disks » disk53a_techie_tips.d64 » itg
itg
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 » disk53a_techie_tips.d64 |
| Filename: | itg |
| Read OK: | ✔ |
| File size: | 02DC bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Commodore disks » disk03b2_pencil_cf45.d64 » mplay
- Personal collection » Commodore disks » disk53a_techie_tips.d64 » itg
File contents
0 REM "INTO THE GROOVE" BY C.AYRES
1 FOR X=49152 TO 49239:READ Y:C=C+Y:POKE X,Y:NEXT
2 IF C<>10369 THEN PRINT "DATA ERROR":END
3 READ W,X,Y,Z
4 POKE 49231,W:POKE 49232,X
5 POKE 49237,W:POKE 49238,X
6 POKE 49184,Y:POKE 49185,Z
7 POKE 49234,Y:POKE 49235,Z
8 PRINT CHR$(147)
9 PRINT "SYS 49152 STARTS THE MUSIC":PRINT "SYS 49202 STOPS IT"
10 DATA 032,078,192,120,169,192,141,021
11 DATA 003,141,144,002,169,024,141,020
12 DATA 003,169,037,141,143,002,088,096
13 DATA 173,018,208,201,100,208,249,032
14 DATA 234,234,076,049,234,173,197,000
15 DATA 201,004,208,003,032,078,192,076
16 DATA 072,235,120,169,000,141,024,212
17 DATA 169,049,141,020,003,169,234,141
18 DATA 021,003,169,072,141,143,002,169
19 DATA 235,141,144,002,088,096,032,234
20 DATA 234,032,234,234,032,234,234,096
21 DATA 000,016,003,016
$ � "INTO THE GROOVE" BY C.AYRES L � X�49152 � 49239:� Y:C�C�Y:� X,Y:� n � C��10369 � � "DATA ERROR":� | � W,X,Y,Z � � 49231,W:� 49232,X � � 49237,W:� 49238,X � � 49184,Y:� 49185,Z � � 49234,Y:� 49235,Z � � �(147) # � "SYS 49152 STARTS THE MUSIC":� "SYS 49202 STOPS IT" I � 032,078,192,120,169,192,141,021 o � 003,141,144,002,169,024,141,020 � � 003,169,037,141,143,002,088,096 � � 173,018,208,201,100,208,249,032 � � 234,234,076,049,234,173,197,000 � 201,004,208,003,032,078,192,076 - � 072,235,120,169,000,141,024,212 S � 169,049,141,020,003,169,234,141 y � 021,003,169,072,141,143,002,169 � � 235,141,144,002,088,096,032,234 � � 234,032,234,234,032,234,234,096 � � 000,016,003,016
$H@@. "into the groove" by c.ayres@lHA@. x.49152 . 49239:. y:c.c.y:. x,y:.@NHB@. c..10369 . . "data error":.@.HC@. w,x,y,z@.HD@. 49231,w:. 49232,x@.HE@. 49237,w:. 49238,x@.HF@. 49184,y:. 49185,z@.HG@. 49234,y:. 49235,z@.HH@. .(147)@#II@. "sys 49152 starts the music":. "sys 49202 stops it"@iIJ@. 032,078,192,120,169,192,141,021@OIK@. 003,141,144,002,169,024,141,020@.IL@. 003,169,037,141,143,002,088,096@.IM@. 173,018,208,201,100,208,249,032@.IN@. 234,234,076,049,234,173,197,000@GJO@. 201,004,208,003,032,078,192,076@-JP@. 072,235,120,169,000,141,024,212@sJQ@. 169,049,141,020,003,169,234,141@YJR@. 021,003,169,072,141,143,002,169@.JS@. 235,141,144,002,088,096,032,234@.JT@. 234,032,234,234,032,234,234,096@.JU@. 000,016,003,016@@@
00000000 24 08 00 00 8f 20 22 49 4e 54 4f 20 54 48 45 20 |$.... "INTO THE | 00000010 47 52 4f 4f 56 45 22 20 42 59 20 43 2e 41 59 52 |GROOVE" BY C.AYR| 00000020 45 53 00 4c 08 01 00 81 20 58 b2 34 39 31 35 32 |ES.L.... X.49152| 00000030 20 a4 20 34 39 32 33 39 3a 87 20 59 3a 43 b2 43 | . 49239:. Y:C.C| 00000040 aa 59 3a 97 20 58 2c 59 3a 82 00 6e 08 02 00 8b |.Y:. X,Y:..n....| 00000050 20 43 b3 b1 31 30 33 36 39 20 a7 20 99 20 22 44 | C..10369 . . "D| 00000060 41 54 41 20 45 52 52 4f 52 22 3a 80 00 7c 08 03 |ATA ERROR":..|..| 00000070 00 87 20 57 2c 58 2c 59 2c 5a 00 94 08 04 00 97 |.. W,X,Y,Z......| 00000080 20 34 39 32 33 31 2c 57 3a 97 20 34 39 32 33 32 | 49231,W:. 49232| 00000090 2c 58 00 ac 08 05 00 97 20 34 39 32 33 37 2c 57 |,X...... 49237,W| 000000a0 3a 97 20 34 39 32 33 38 2c 58 00 c4 08 06 00 97 |:. 49238,X......| 000000b0 20 34 39 31 38 34 2c 59 3a 97 20 34 39 31 38 35 | 49184,Y:. 49185| 000000c0 2c 5a 00 dc 08 07 00 97 20 34 39 32 33 34 2c 59 |,Z...... 49234,Y| 000000d0 3a 97 20 34 39 32 33 35 2c 5a 00 e9 08 08 00 99 |:. 49235,Z......| 000000e0 20 c7 28 31 34 37 29 00 23 09 09 00 99 20 22 53 | .(147).#.... "S| 000000f0 59 53 20 34 39 31 35 32 20 53 54 41 52 54 53 20 |YS 49152 STARTS | 00000100 54 48 45 20 4d 55 53 49 43 22 3a 99 20 22 53 59 |THE MUSIC":. "SY| 00000110 53 20 34 39 32 30 32 20 53 54 4f 50 53 20 49 54 |S 49202 STOPS IT| 00000120 22 00 49 09 0a 00 83 20 30 33 32 2c 30 37 38 2c |".I.... 032,078,| 00000130 31 39 32 2c 31 32 30 2c 31 36 39 2c 31 39 32 2c |192,120,169,192,| 00000140 31 34 31 2c 30 32 31 00 6f 09 0b 00 83 20 30 30 |141,021.o.... 00| 00000150 33 2c 31 34 31 2c 31 34 34 2c 30 30 32 2c 31 36 |3,141,144,002,16| 00000160 39 2c 30 32 34 2c 31 34 31 2c 30 32 30 00 95 09 |9,024,141,020...| 00000170 0c 00 83 20 30 30 33 2c 31 36 39 2c 30 33 37 2c |... 003,169,037,| 00000180 31 34 31 2c 31 34 33 2c 30 30 32 2c 30 38 38 2c |141,143,002,088,| 00000190 30 39 36 00 bb 09 0d 00 83 20 31 37 33 2c 30 31 |096...... 173,01| 000001a0 38 2c 32 30 38 2c 32 30 31 2c 31 30 30 2c 32 30 |8,208,201,100,20| 000001b0 38 2c 32 34 39 2c 30 33 32 00 e1 09 0e 00 83 20 |8,249,032...... | 000001c0 32 33 34 2c 32 33 34 2c 30 37 36 2c 30 34 39 2c |234,234,076,049,| 000001d0 32 33 34 2c 31 37 33 2c 31 39 37 2c 30 30 30 00 |234,173,197,000.| 000001e0 07 0a 0f 00 83 20 32 30 31 2c 30 30 34 2c 32 30 |..... 201,004,20| 000001f0 38 2c 30 30 33 2c 30 33 32 2c 30 37 38 2c 31 39 |8,003,032,078,19| 00000200 32 2c 30 37 36 00 2d 0a 10 00 83 20 30 37 32 2c |2,076.-.... 072,| 00000210 32 33 35 2c 31 32 30 2c 31 36 39 2c 30 30 30 2c |235,120,169,000,| 00000220 31 34 31 2c 30 32 34 2c 32 31 32 00 53 0a 11 00 |141,024,212.S...| 00000230 83 20 31 36 39 2c 30 34 39 2c 31 34 31 2c 30 32 |. 169,049,141,02| 00000240 30 2c 30 30 33 2c 31 36 39 2c 32 33 34 2c 31 34 |0,003,169,234,14| 00000250 31 00 79 0a 12 00 83 20 30 32 31 2c 30 30 33 2c |1.y.... 021,003,| 00000260 31 36 39 2c 30 37 32 2c 31 34 31 2c 31 34 33 2c |169,072,141,143,| 00000270 30 30 32 2c 31 36 39 00 9f 0a 13 00 83 20 32 33 |002,169...... 23| 00000280 35 2c 31 34 31 2c 31 34 34 2c 30 30 32 2c 30 38 |5,141,144,002,08| 00000290 38 2c 30 39 36 2c 30 33 32 2c 32 33 34 00 c5 0a |8,096,032,234...| 000002a0 14 00 83 20 32 33 34 2c 30 33 32 2c 32 33 34 2c |... 234,032,234,| 000002b0 32 33 34 2c 30 33 32 2c 32 33 34 2c 32 33 34 2c |234,032,234,234,| 000002c0 30 39 36 00 db 0a 15 00 83 20 30 30 30 2c 30 31 |096...... 000,01| 000002d0 36 2c 30 30 33 2c 30 31 36 00 00 00 |6,003,016...| 000002dc
.