LISTING 14

FILE INFORMATION

FILENAME(S): LISTING 14

FILE TYPE(S): PRG

FILE SIZE: 1.7K

FIRST SEEN: 2025-11-30 21:13:39

APPEARS ON: 1 disk(s)

FILE HASH

fdd9b88ef0d0c8e64f6cba31a94be402d2d895694745d217989fbfccaddffb58

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
15720 SEITE A	LISTING 14	PRG	DuncanTwain	12	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1D 08 0A 00 8F 20  2A 20 53 50 52 49 54 45  |....... * SPRITE|
00000010: 20 42 45 49 53 50 49 45  4C 20 33 20 2A 00 38 08  | BEISPIEL 3 *.8.|
00000020: 14 00 8F 20 44 41 53 20  48 45 49 53 53 4C 55 46  |... DAS HEISSLUF|
00000030: 54 4D 4F 4E 53 54 45 52  00 69 08 1E 00 56 49 43  |TMONSTER.i...VIC|
00000040: B2 31 33 AC 34 30 39 36  3A 8F 20 48 49 45 52 20  |.13.4096:. HIER |
00000050: 42 45 47 49 4E 4E 45 4E  20 44 49 45 20 56 49 43  |BEGINNEN DIE VIC|
00000060: 2D 52 45 47 49 53 54 45  52 00 8F 08 23 00 97 20  |-REGISTER...#.. |
00000070: 56 49 43 AA 32 31 2C 31  3A 8F 20 45 49 4E 53 43  |VIC.21,1:. EINSC|
00000080: 48 41 4C 54 45 4E 20 53  50 52 49 54 45 20 30 00  |HALTEN SPRITE 0.|
00000090: BB 08 24 00 97 20 56 49  43 AA 33 33 2C 11 34 3A  |..$.. VIC.33,.4:|
000000A0: 8F 20 48 49 4E 54 45 52  47 52 55 4E 44 46 41 52  |. HINTERGRUNDFAR|
000000B0: 42 45 20 48 45 4C 4C 42  4C 41 55 00 E5 08 25 00  |BE HELLBLAU...%.|
000000C0: 97 20 56 49 43 AA 32 33  2C 31 3A 8F 20 53 50 52  |. VIC.23,1:. SPR|
000000D0: 49 54 45 20 30 20 49 4E  20 59 20 56 45 52 44 4F  |ITE 0 IN Y VERDO|
000000E0: 50 50 45 4C 4E 00 FF 08  26 00 97 20 56 49 43 AA  |PPELN...&.. VIC.|
000000F0: 32 39 2C 31 3A 8F 20 55  4E 44 20 49 4E 20 58 00  |29,1:. UND IN X.|
00000100: 2D 09 28 00 97 20 32 30  34 30 2C 31 39 32 3A 8F  |-.(.. 2040,192:.|
00000110: 20 53 50 52 49 54 45 5A  45 49 47 45 52 20 30 20  | SPRITEZEIGER 0 |
00000120: 41 55 46 20 42 4C 4F 43  4B 20 31 39 32 00 57 09  |AUF BLOCK 192.W.|
00000130: 32 00 97 20 56 49 43 AA  32 38 2C 31 3A 8F 20 4D  |2.. VIC.28,1:. M|
00000140: 45 48 52 46 41 52 42 45  4E 4D 4F 44 55 53 20 53  |EHRFARBENMODUS S|
00000150: 50 52 49 54 45 20 30 00  7E 09 3C 00 97 20 56 49  |PRITE 0.~.<.. VI|
00000160: 43 AA 33 37 2C 37 3A 8F  20 46 41 52 42 52 45 47  |C.37,7:. FARBREG|
00000170: 49 53 54 45 52 20 30 20  56 EE EE EE E2 DE EF EE  |ISTER 0 V.......|
00000180: F2 D0 00 F5 20 5F 49 43  AA 33 38 8E B4 20 8F 20  |.... _IC.38.. . |
00000190: 46 41 52 42 52 45 47 49  53 54 45 52 20 31 20 53  |FARBREGISTER 1 S|
000001A0: 45 54 5A 45 4E 00 C9 09  B4 00 97 20 56 49 43 2C  |ETZEN...... VIC,|
000001B0: 31 30 30 3A 8F 20 58 2D  50 4F 53 49 54 49 4F 4E  |100:. X-POSITION|
000001C0: 20 53 50 52 49 54 45 20  30 00 EA 09 BE 00 97 20  | SPRITE 0...... |
000001D0: 56 49 43 AA 31 2C 31 30  30 3A 8F 20 55 4E 44 20  |VIC.1,100:. UND |
000001E0: 59 2D 50 4F 53 49 54 49  4F 4E 00 0A 0A DC 00 97  |Y-POSITION......|
000001F0: 20 56 49 43 AA 33 39 2C  32 3A 8F 20 46 41 52 42  | VIC.39,2:. FARB|
00000200: 45 20 53 50 52 49 54 45  20 30 00 19 0A FA 00 81  |E SPRITE 0......|
00000210: 20 59 B2 30 20 A4 20 36  33 00 35 0A 2C 01 87 20  | Y.0 . 63.5.,.. |
00000220: 41 3A 8F 20 53 50 52 49  54 45 44 41 54 45 4E 20  |A:. SPRITEDATEN |
00000230: 4C 45 53 45 4E 00 56 0A  36 01 97 20 31 39 32 AC  |LESEN.V.6.. 192.|
00000240: 36 34 AA 59 2C 41 3A 8F  20 55 4E 44 20 45 49 4E  |64.Y,A:. UND EIN|
00000250: 54 52 41 47 45 4E 00 5E  0A 40 01 82 20 59 00 6C  |TRAGEN.^.@.. Y.l|
00000260: 0A 4A 01 44 58 B2 31 3A  44 59 B2 31 00 8E 0A 54  |.J.DX.1:DY.1...T|
00000270: 01 58 B2 C2 28 56 49 43  29 3A 8F 20 58 2D 50 4F  |.X..(VIC):. X-PO|
00000280: 53 49 54 49 4F 4E 20 50  52 55 45 46 45 4E 00 B1  |SITION PRUEFEN..|
00000290: 0A 5E 01 59 B2 C2 28 56  49 43 AA 31 29 3A 8F 20  |.^.Y..(VIC.1):. |
000002A0: 59 2D 50 4F 53 49 54 49  4F 4E 20 54 45 53 54 45  |Y-POSITION TESTE|
000002B0: 4E 00 EC 0A 68 01 8B 20  59 B2 35 30 20 B0 20 59  |N...h.. Y.50 . Y|
000002C0: B2 32 30 38 20 A7 20 44  59 B2 AB 44 59 3A 8F 20  |.208 . DY..DY:. |
000002D0: 42 45 49 20 52 41 4E 44  50 4F 53 49 54 49 4F 4E  |BEI RANDPOSITION|
000002E0: 20 44 59 20 55 4D 4B 45  48 52 45 4E 00 21 0B 7C  | DY UMKEHREN.!.||
000002F0: 01 8B 20 58 B2 32 34 20  AF 20 28 C2 28 56 49 43  |.. X.24 . (.(VIC|
00000300: AA 31 36 29 AF 20 31 29  B2 30 20 A7 20 44 58 B2  |.16). 1).0 . DX.|
00000310: AB 44 58 3A 8F 20 57 45  4E 4E 20 53 50 52 49 54  |.DX:. WENN SPRIT|
00000320: 45 00 58 0B 86 01 8F 20  41 4D 20 4C 49 4E 4B 45  |E.X.... AM LINKE|
00000330: 4E 20 52 41 4E 44 20 28  58 3C 32 34 20 55 4E 44  |N RAND (X<24 UND|
00000340: 20 4D 53 42 3D 30 29 20  44 41 4E 4E 20 44 58 20  | MSB=0) DANN DX |
00000350: 55 4D 4B 45 48 52 45 4E  00 8D 0B 90 01 8B 20 58  |UMKEHREN...... X|
00000360: B2 34 30 20 AF 20 28 C2  28 56 49 43 AA 31 36 29  |.40 . (.(VIC.16)|
00000370: AF 20 31 29 B2 31 20 A7  20 44 58 B2 AB 44 58 3A  |. 1).1 . DX..DX:|
00000380: 8F 20 57 45 4E 4E 20 53  50 52 49 54 45 00 C5 0B  |. WENN SPRITE...|
00000390: 9A 01 8F 20 41 4D 20 52  45 43 48 54 45 4E 20 52  |... AM RECHTEN R|
000003A0: 41 4E 44 20 28 58 3D 34  30 20 55 4E 44 20 4D 53  |AND (X=40 UND MS|
000003B0: 42 3D 31 29 20 44 41 4E  4E 20 44 58 20 55 4D 44  |B=1) DANN DX UMD|
000003C0: 52 45 48 45 4E 00 E6 0B  A4 01 8B 20 58 B2 32 35  |REHEN...... X.25|
000003D0: 35 20 AF 20 44 58 B2 31  20 A7 20 58 B2 AB 31 3A  |5 . DX.1 . X..1:|
000003E0: 53 49 44 45 B2 31 00 12  0C AE 01 8F 20 55 4D 53  |SIDE.1...... UMS|
000003F0: 43 48 41 4C 54 45 4E 20  41 55 46 20 41 4E 44 45  |CHALTEN AUF ANDE|
00000400: 52 45 20 42 49 4C 44 53  43 48 49 52 4D 53 45 49  |RE BILDSCHIRMSEI|
00000410: 54 45 00 33 0C B8 01 8B  20 58 B2 30 20 AF 20 44  |TE.3.... X.0 . D|
00000420: 58 B2 AB 31 20 A7 20 58  B2 32 35 36 3A 53 49 44  |X..1 . X.256:SID|
00000430: 45 B2 30 00 5F 0C C2 01  8F 20 55 4D 53 43 48 41  |E.0._.... UMSCHA|
00000440: 4C 54 45 4E 20 41 55 46  20 41 4E 44 45 52 45 20  |LTEN AUF ANDERE |
00000450: 42 49 4C 44 53 43 48 49  52 4D 53 45 49 54 45 00  |BILDSCHIRMSEITE.|
00000460: 81 0C CC 01 58 B2 58 AA  44 58 3A 8F 20 41 44 44  |....X.X.DX:. ADD|
00000470: 49 45 52 45 4E 20 56 4F  4E 20 44 58 20 5A 55 20  |IEREN VON DX ZU |
00000480: 58 00 BB 0C D6 01 58 B2  58 20 AF 20 32 35 35 3A  |X.....X.X . 255:|
00000490: 8F 20 53 49 43 48 45 52  53 54 45 4C 4C 45 4E 20  |. SICHERSTELLEN |
000004A0: 44 41 53 53 20 58 20 49  4D 20 45 52 4C 41 55 42  |DASS X IM ERLAUB|
000004B0: 54 45 4E 20 42 45 52 45  49 43 48 00 C6 0C E0 01  |TEN BEREICH.....|
000004C0: 59 B2 59 AA 44 59 00 D8  0C E5 01 97 20 56 49 43  |Y.Y.DY...... VIC|
000004D0: AA 31 36 2C 53 49 44 45  00 FF 0C EA 01 97 20 56  |.16,SIDE...... V|
000004E0: 49 43 2C 58 3A 8F 20 4E  45 55 45 20 58 2D 50 4F  |IC,X:. NEUE X-PO|
000004F0: 53 49 54 49 4F 4E 20 53  50 52 49 54 45 20 30 00  |SITION SPRITE 0.|
00000500: 1C 0D FE 01 97 20 56 49  43 AA 31 2C 59 3A 8F 20  |..... VIC.1,Y:. |
00000510: 4E 45 55 45 52 20 59 2D  57 45 52 54 00 3B 0D 08  |NEUER Y-WERT.;..|
00000520: 02 A1 41 24 3A 8F 20 45  52 57 41 52 54 45 54 20  |..A$:. ERWARTET |
00000530: 54 41 53 54 45 4E 44 52  55 43 4B 00 77 0D 09 02  |TASTENDRUCK.w...|
00000540: 8B 20 41 24 B2 22 4D 22  20 A7 20 97 20 56 49 43  |. A$."M" . . VIC|
00000550: AA 32 38 2C 31 3A 8F 20  55 4D 53 43 48 41 4C 54  |.28,1:. UMSCHALT|
00000560: 45 4E 20 41 55 46 20 4D  55 4C 54 49 43 4F 4C 4F  |EN AUF MULTICOLO|
00000570: 52 53 50 52 49 54 45 00  AF 0D 0A 02 8B 20 41 24  |RSPRITE...... A$|
00000580: B2 22 48 22 20 A7 20 97  20 56 49 43 AA 32 38 2C  |."H" . . VIC.28,|
00000590: 30 3A 8F 20 55 4D 53 43  48 41 4C 54 45 4E 20 41  |0:. UMSCHALTEN A|
000005A0: 55 46 20 48 49 52 45 53  2D 53 50 52 49 54 45 00  |UF HIRES-SPRITE.|
000005B0: B9 0D 12 02 89 20 33 34  30 00 D8 0D 58 02 8F 20  |..... 340...X.. |
000005C0: 2A 2A 2A 2A 2A 20 53 50  52 49 54 45 20 44 41 54  |***** SPRITE DAT|
000005D0: 45 4E 20 2A 2A 2A 2A 2A  00 25 0E 62 02 83 20 36  |EN *****.%.b.. 6|
000005E0: 34 2C 30 2C 31 2C 31 36  2C 31 37 30 2C 34 2C 36  |4,0,1,16,170,4,6|
000005F0: 2C 31 37 30 2C 31 34 34  2C 31 30 2C 31 37 30 2C  |,170,144,10,170,|
00000600: 31 36 30 2C 34 32 2C 31  37 30 2C 31 36 38 2C 34  |160,42,170,168,4|
00000610: 31 2C 31 30 35 2C 31 30  34 2C 31 36 39 2C 32 33  |1,105,104,169,23|
00000620: 35 2C 31 30 36 00 73 0E  6C 02 83 20 31 36 39 2C  |5,106.s.l.. 169,|
00000630: 32 33 35 2C 31 30 36 2C  31 36 39 2C 32 33 35 2C  |235,106,169,235,|
00000640: 31 30 36 2C 31 37 30 2C  31 37 30 2C 31 37 30 2C  |106,170,170,170,|
00000650: 31 37 30 2C 31 37 30 2C  31 37 30 2C 31 37 30 2C  |170,170,170,170,|
00000660: 31 37 30 2C 31 37 30 2C  31 37 30 2C 31 37 30 2C  |170,170,170,170,|
00000670: 31 37 30 00 BF 0E 76 02  83 20 31 36 36 2C 31 37  |170...v.. 166,17|
00000680: 30 2C 31 35 34 2C 31 36  39 2C 38 35 2C 31 30 36  |0,154,169,85,106|
00000690: 2C 31 37 30 2C 38 35 2C  31 37 30 2C 34 32 2C 31  |,170,85,170,42,1|
000006A0: 37 30 2C 31 36 38 2C 31  30 2C 31 37 30 2C 31 36  |70,168,10,170,16|
000006B0: 30 2C 31 2C 30 2C 36 34  2C 31 2C 30 2C 36 34 00  |0,1,0,64,1,0,64.|
000006C0: CE 0E 80 02 83 20 35 2C  30 2C 38 30 2C 30 00 00  |..... 5,0,80,0..|
000006D0: 00                                                |.               |

....... * SPRITE BEISPIEL 3 *.8.... DAS 
HEISSLUFTMONSTER.I...VIC.13.4096:. HIER 
BEGINNEN DIE VIC-REGISTER...#.. VIC.21,1
:. EINSCHALTEN SPRITE 0...$.. VIC.33,.4:
. HINTERGRUNDFARBE HELLBLAU...%.. VIC.23
,1:. SPRITE 0 IN Y VERDOPPELN...&.. VIC.
29,1:. UND IN X.-.(.. 2040,192:. SPRITEZ
EIGER 0 AUF BLOCK 192.W.2.. VIC.28,1:. M
EHRFARBENMODUS SPRITE 0.~.<.. VIC.37,7:.
 FARBREGISTER 0 V........P.. _IC.38.. . 
FARBREGISTER 1 SETZEN.I.... VIC,100:. X-
POSITION SPRITE 0...... VIC.1,100:. UND 
Y-POSITION...... VIC.39,2:. FARBE SPRITE
 0...... Y.0 . 63.5.,.. A:. SPRITEDATEN 
LESEN.V.6.. 192.64.Y,A:. UND EINTRAGEN.^
.@.. Y.L.J.DX.1:DY.1...T.X.B(VIC):. X-PO
SITION PRUEFEN...^.Y.B(VIC.1):. Y-POSITI
ON TESTEN...H.. Y.50 . Y.208 . DY..DY:. 
BEI RANDPOSITION DY UMKEHREN.!.|.. X.24 
. (B(VIC.16). 1).0 . DX..DX:. WENN SPRIT
E.X.... AM LINKEN RAND (X<24 UND MSB=0) 
DANN DX UMKEHREN...... X.40 . (B(VIC.16)
. 1).1 . DX..DX:. WENN SPRITE.E.... AM R
ECHTEN RAND (X=40 UND MSB=1) DANN DX UMD
REHEN...... X.255 . DX.1 . X..1:SIDE.1..
.... UMSCHALTEN AUF ANDERE BILDSCHIRMSEI
TE.3.... X.0 . DX..1 . X.256:SIDE.0._.B.
. UMSCHALTEN AUF ANDERE BILDSCHIRMSEITE.
..L.X.X.DX:. ADDIEREN VON DX ZU X...V.X.
X . 255:. SICHERSTELLEN DASS X IM ERLAUB
TEN BEREICH.F...Y.Y.DY.X.... VIC.16,SIDE
...... VIC,X:. NEUE X-POSITION SPRITE 0.
..... VIC.1,Y:. NEUER Y-WERT.;....A$:. E
RWARTET TASTENDRUCK.W.... A$."M" . . VIC
.28,1:. UMSCHALTEN AUF MULTICOLORSPRITE.
..... A$."H" . . VIC.28,0:. UMSCHALTEN A
UF HIRES-SPRITE...... 340.X.X.. ***** SP
RITE DATEN *****.%.B.. 64,0,1,16,170,4,6
,170,144,10,170,160,42,170,168,41,105,10
4,169,235,106.S.L.. 169,235,106,169,235,
106,170,170,170,170,170,170,170,170,170,
170,170,170...V.. 166,170,154,169,85,106
,170,85,170,42,170,168,10,170,160,1,0,64
,1,0,64.N.... 5,0,80,0...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL