DEMO.BOMBS

FILE INFORMATION

FILENAME(S): DEMO.BOMBS

FILE TYPE(S): PRG

FILE SIZE: 1.7K

FIRST SEEN: 2025-10-20 14:31:31

APPEARS ON: 1 disk(s)

FILE HASH

74e0dbc1e6b5677ea176a18b92975383af729cf489143e16618e2ca9caaceece

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
64 ER 09 94	DEMO.BOMBS	PRG	C64er, Treasure Chest - Klaus Der Suhler	30	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 50 2A 5B 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |.P*[************|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 5B 2A 2A  |*************[**|
00000030: 20 20 20 20 20 20 20 20  20 20 20 20 42 20 4F 20  |            B O |
00000040: 4D 20 42 20 53 20 20 20  20 20 20 20 20 20 20 20  |M B S           |
00000050: 20 20 20 2A 2A 2A 2A 5B  2A 2A 20 20 20 20 20 20  |   ****[**      |
00000060: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000070: 20 20 20 20 20 20 20 20  20 20 20 20 20 2A 2A 2A  |             ***|
00000080: 2A 5B 2A 2A 20 20 20 20  20 20 20 28 43 29 20 31  |*[**       (C) 1|
00000090: 39 39 33 20 42 59 20 20  20 46 2E 4A 2E 48 2E 20  |993 BY   F.J.H. |
000000A0: 20 20 20 20 20 20 20 2A  2A 2A 2A 5B 2A 2A 2A 2A  |       ****[****|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000D0: 2A 2A 2A 2A 03 0D 03 11  47 4F 53 55 42 20 53 50  |****....GOSUB SP|
000000E0: 49 45 4C 46 45 4C 44 11  03 0D 03 07 5F 4D 41 49  |IELFELD....._MAI|
000000F0: 4E 07 2A 3F 22 13 1D 1D  1D 1D 1D 9F 46 45 4C 44  |N.*?".......FELD|
00000100: 45 52 3A 20 22 4F 22 9D  20 22 2C 22 42 4F 4D 42  |ER: "O". ","BOMB|
00000110: 45 4E 3A 20 22 45 22 9D  20 22 3A 2A 26 49 46 45  |EN: "E". ":*&IFE|
00000120: 3D 2E 54 48 45 4E 3F 22  13 11 1D 9E 47 45 57 4F  |=.THEN?"....GEWO|
00000130: 4E 4E 45 4E 20 21 22 3A  47 4F 54 4F 20 45 4E 44  |NNEN !":GOTO END|
00000140: 45 26 03 0D 03 2A 5A 3D  41 2B 28 58 2A 32 29 2B  |E&...*Z=A+(X*2)+|
00000150: 28 59 2A 38 30 29 3A 42  3D 50 45 45 4B 28 5A 29  |(Y*80):B=PEEK(Z)|
00000160: 3A 50 4F 4B 45 5A 2C 38  33 3A 50 4F 4B 45 2A 2A  |:POKEZ,83:POKE**|
00000170: 5A 2B 35 34 32 37 32 2C  37 3A 49 3D 50 45 45 4B  |Z+54272,7:I=PEEK|
00000180: 28 35 36 33 32 30 29 3A  50 4F 4B 45 5A 2B 35 34  |(56320):POKEZ+54|
00000190: 32 37 32 2C 31 3A 50 4F  2A 1E 4B 45 5A 2C 42 3A  |272,1:PO*.KEZ,B:|
000001A0: 49 46 50 45 45 4B 28 54  29 3D 36 30 47 4F 54 4F  |IFPEEK(T)=60GOTO|
000001B0: 20 42 4F 4D 42 45 1E 03  0D 03 16 49 46 50 45 45  | BOMBE.....IFPEE|
000001C0: 4B 28 54 29 3D 31 47 4F  54 4F 20 45 4E 44 45 16  |K(T)=1GOTO ENDE.|
000001D0: 03 0D 03 1C 49 46 28 49  41 4E 44 31 29 3D 2E 41  |....IF(IAND1)=.A|
000001E0: 4E 44 59 3E 2E 54 48 45  4E 59 3D 59 2D 31 1C 1D  |NDY>.THENY=Y-1..|
000001F0: 49 46 28 49 41 4E 44 32  29 3D 2E 41 4E 44 59 3C  |IF(IAND2)=.ANDY<|
00000200: 31 30 54 48 45 4E 59 3D  59 2B 31 1D 1C 49 46 28  |10THENY=Y+1..IF(|
00000210: 49 41 4E 44 34 29 3D 2E  41 4E 44 58 3E 2E 54 48  |IAND4)=.ANDX>.TH|
00000220: 45 4E 58 3D 58 2D 31 1C  1D 49 46 28 49 41 4E 44  |ENX=X-1..IF(IAND|
00000230: 38 29 3D 2E 41 4E 44 58  3C 31 38 54 48 45 4E 58  |8)=.ANDX<18THENX|
00000240: 3D 58 2B 31 1D 03 0D 03  18 49 46 28 49 41 4E 44  |=X+1.....IF(IAND|
00000250: 31 36 29 3C 3E 2E 47 4F  54 4F 20 4D 41 49 4E 18  |16)<>.GOTO MAIN.|
00000260: 03 0D 03 2A 52 3D 28 50  C5 28 5A 2B 32 29 3E 35  |...*R=(P.(Z+2)>5|
00000270: 38 29 2B 28 50 C5 28 5A  2B 38 32 29 3E 35 38 29  |8)+(P.(Z+82)>58)|
00000280: 2B 28 50 C5 28 5A 2B 38  30 29 3E 35 2A 2A 38 29  |+(P.(Z+80)>5**8)|
00000290: 2B 28 50 C5 28 5A 2B 37  38 29 3E 35 38 29 2B 28  |+(P.(Z+78)>58)+(|
000002A0: 50 C5 28 5A 2D 32 29 3E  35 38 29 2B 28 50 C5 28  |P.(Z-2)>58)+(P.(|
000002B0: 5A 2D 38 32 29 3E 2A 22  35 38 29 2B 28 50 C5 28  |Z-82)>*"58)+(P.(|
000002C0: 5A 2D 38 30 29 3E 35 38  29 2B 28 50 C5 28 5A 2D  |Z-80)>58)+(P.(Z-|
000002D0: 37 38 29 3E 35 38 29 3A  22 11 49 46 42 3D 42 4F  |78)>58):".IFB=BO|
000002E0: 47 4F 54 4F 20 45 4E 44  45 11 03 0D 03 12 49 46  |GOTO ENDE.....IF|
000002F0: 42 3C 3E 46 52 47 4F 54  4F 20 4D 41 49 4E 12 03  |B<>FRGOTO MAIN..|
00000300: 0D 03 1D 50 4F 4B 45 5A  2C 2D 52 2B 34 38 3A 4F  |...POKEZ,-R+48:O|
00000310: 3D 4F 2D 31 3A 47 4F 54  4F 20 4D 41 49 4E 1D 03  |=O-1:GOTO MAIN..|
00000320: 0D 03 18 5F 42 4F 4D 42  45 20 49 46 42 3D 42 46  |..._BOMBE IFB=BF|
00000330: 47 4F 54 4F 20 4D 41 49  4E 18 03 0D 03 24 49 46  |GOTO MAIN....$IF|
00000340: 42 3D 42 4F 54 48 45 4E  50 4F 4B 45 5A 2C 42 46  |B=BOTHENPOKEZ,BF|
00000350: 3A 45 3D 45 2D 31 3A 47  4F 54 4F 20 4D 41 49 4E  |:E=E-1:GOTO MAIN|
00000360: 24 03 0D 03 2A 5F 45 4E  44 45 20 46 4F 52 49 3D  |$...*_ENDE FORI=|
00000370: 30 54 4F 50 3A 50 4F 4B  45 57 28 49 29 2C 34 33  |0TOP:POKEW(I),43|
00000380: 3A 50 4F 4B 45 57 28 49  29 2B 35 34 32 2A 2A 37  |:POKEW(I)+542**7|
00000390: 32 2C 31 33 3A 4E 45 58  54 3A 50 52 49 4E 54 22  |2,13:NEXT:PRINT"|
000003A0: 13 11 22 53 50 43 28 31  32 29 22 1E 4E 4F 43 48  |.."SPC(12)".NOCH|
000003B0: 4D 41 4C 20 3F 20 28 2A  19 4A 2F 53 54 4F 50 29  |MAL ? (*.J/STOP)|
000003C0: 22 3A 46 4F 52 49 3D 2E  54 4F 31 3A 49 3D 2E 3A  |":FORI=.TO1:I=.:|
000003D0: 19 17 49 46 50 45 45 4B  28 54 29 3C 3E 33 34 54  |..IFPEEK(T)<>34T|
000003E0: 48 45 4E 4E 45 58 54 17  03 0D 03 05 52 55 4E 05  |HENNEXT.....RUN.|
000003F0: 03 0D 03 0C 5F 53 50 49  45 4C 46 45 4C 44 0C 29  |...._SPIELFELD.)|
00000400: 3F 22 93 05 11 22 3B 3A  50 4F 4B 45 35 33 32 38  |?"...";:POKE5328|
00000410: 30 2C 2E 3A 50 CF 35 33  32 38 31 2C 2E 3A 50 CF  |0,.:P.53281,.:P.|
00000420: 31 30 32 33 2C 2E 3A 29  2A 41 24 3D 22 B0 22 3A  |1023,.:)*A$=".":|
00000430: 42 24 3D 22 C0 B2 22 3A  43 24 3D 22 C0 AE 22 3A  |B$="..":C$="..":|
00000440: 47 4F D3 20 47 49 54 54  45 52 3A 47 4F D3 20 2B  |GO. GITTER:GO. +|
00000450: 3A 2A 0C 46 4F 52 49 3D  30 54 4F 39 3A 0C 2A 41  |:*.FORI=0TO9:.*A|
00000460: 24 3D 22 AB 22 3A 42 24  3D 22 C0 DB 22 3A 43 24  |$=".":B$="..":C$|
00000470: 3D 22 C0 B3 22 3A 47 4F  D3 20 47 49 54 54 45 52  |="..":GO. GITTER|
00000480: 3A 47 4F D3 20 2B 3A 2A  09 4E 45 58 54 20 49 3A  |:GO. +:*.NEXT I:|
00000490: 09 23 41 24 3D 22 AD 22  3A 42 24 3D 22 C0 B1 22  |.#A$=".":B$=".."|
000004A0: 3A 43 24 3D 22 C0 BD 22  3A 47 4F D3 20 47 49 54  |:C$="..":GO. GIT|
000004B0: 54 45 52 23 03 0D 03 2A  41 3D 31 31 30 35 3A 42  |TER#...*A=1105:B|
000004C0: 3D 2E 3A 58 3D 2E 3A 59  3D 2E 3A 50 3D 2E 3A 52  |=.:X=.:Y=.:P=.:R|
000004D0: 3D 2E 3A 5A 3D 2E 3A 49  3D 2E 3A 45 3D 2E 3A 4F  |=.:Z=.:I=.:E=.:O|
000004E0: 2A 2A 3D 32 30 39 3A 46  52 3D 33 32 3A 42 4F 3D  |**=209:FR=32:BO=|
000004F0: 39 36 3A 42 46 3D 38 36  3A 54 3D 31 39 37 3A 44  |96:BF=86:T=197:D|
00000500: 49 4D 20 57 28 31 30 30  29 3A 2A 1E 52 3D 31 36  |IM W(100):*.R=16|
00000510: 30 2A 52 4E 44 28 30 29  2B 31 30 3A 46 4F 52 49  |0*RND(0)+10:FORI|
00000520: 3D 30 54 4F 32 30 38 3A  1E 03 0D 03 25 5B 20 4E  |=0TO208:....%[ N|
00000530: 41 43 48 20 27 46 4F 52  49 3D 30 54 4F 32 30 38  |ACH 'FORI=0TO208|
00000540: 27 20 4D 55 53 53 20 44  49 45 20 5A 45 49 4C 45  |' MUSS DIE ZEILE|
00000550: 25 27 5B 20 45 4E 44 45  4E 2C 20 44 41 20 44 45  |%'[ ENDEN, DA DE|
00000560: 52 20 42 41 53 49 43 2D  50 55 46 46 45 52 20 4D  |R BASIC-PUFFER M|
00000570: 41 58 2E 20 31 31 36 27  25 5B 20 5A 45 49 43 48  |AX. 116'%[ ZEICH|
00000580: 45 4E 20 45 4E 54 48 41  4C 54 45 4E 20 4B 41 4E  |EN ENTHALTEN KAN|
00000590: 4E 20 28 49 4E 20 44 49  45 53 45 4D 25 0B 5B 20  |N (IN DIESEM%.[ |
000005A0: 46 41 4C 4C 21 21 29 0B  25 5B 20 44 55 52 43 48  |FALL!!).%[ DURCH|
000005B0: 20 44 45 4E 20 44 4F 50  50 45 4C 50 55 4E 4B 54  | DEN DOPPELPUNKT|
000005C0: 20 42 45 4B 4F 4D 4D 54  20 44 49 45 25 28 5B 20  | BEKOMMT DIE%([ |
000005D0: 4E 41 45 43 48 53 54 45  20 5A 45 49 4C 45 20 54  |NAECHSTE ZEILE T|
000005E0: 52 4F 54 5A 44 45 4D 20  4B 45 49 4E 45 20 45 49  |ROTZDEM KEINE EI|
000005F0: 47 45 4E 45 28 11 5B 20  5A 45 49 4C 45 4E 4E 55  |GENE(.[ ZEILENNU|
00000600: 4D 4D 45 52 21 11 03 0D  03 2A 5A 3D 41 2A 52 4E  |MMER!....*Z=A*RN|
00000610: 44 28 31 29 3A 50 4F 4B  45 41 2B 42 2C 46 52 3A  |D(1):POKEA+B,FR:|
00000620: 49 46 5A 3C 52 54 48 45  4E 50 4F 4B 45 41 2B 42  |IFZ<RTHENPOKEA+B|
00000630: 2C 42 2A 12 4F 3A 57 28  50 29 3D 41 2B 42 3A 50  |,B*.O:W(P)=A+B:P|
00000640: 3D 50 2B 31 12 03 0D 03  22 42 3D 42 2B 32 3A 58  |=P+1...."B=B+2:X|
00000650: 3D 58 2B 31 3A 49 46 58  3D 31 39 54 48 45 4E 58  |=X+1:IFX=19THENX|
00000660: 3D 2E 3A 42 3D 42 2B 34  32 22 03 0D 03 11 4E 45  |=.:B=B+42"....NE|
00000670: 58 54 3A 45 3D 50 3A 52  45 54 55 52 4E 11 03 0D  |XT:E=P:RETURN...|
00000680: 03 29 5F 2B 20 41 24 3D  22 DD 22 3A 42 24 3D 22  |.)_+ A$=".":B$="|
00000690: 20 DD 22 3A 43 24 3D 22  20 DD 22 3A 47 4F D3 47  | .":C$=" .":GO.G|
000006A0: 49 54 54 45 52 3A 52 45  D4 29 03 0D 03 2A 5F 47  |ITTER:RE.)...*_G|
000006B0: 49 54 54 45 52 20 3F 41  24 3B 3A 46 CF 58 3D 30  |ITTER ?A$;:F.X=0|
000006C0: 54 4F 31 37 3A 3F 42 24  3B 3A 4E C5 58 3A 3F 43  |TO17:?B$;:N.X:?C|
000006D0: 24 22 20 22 3B 3A 2A 08  52 45 54 55 52 4E 08 03  |$" ";:*.RETURN..|
000006E0: 0D 03 03 0D 03 00                                 |......          |

.P*[************************************
*****[**            B O M B S           
   ****[**                              
     ****[**       (C) 1993 BY   F.J.H. 
       ****[****************************
************....GOSUB SPIELFELD....._MAI
N.*?".......FELDER: "O". ","BOMBEN: "E".
 ":*&IFE=.THEN?"....GEWONNEN !":GOTO END
E&...*Z=A+(X*2)+(Y*80):B=PEEK(Z):POKEZ,8
3:POKE**Z+54272,7:I=PEEK(56320):POKEZ+54
272,1:PO*.KEZ,B:IFPEEK(T)=60GOTO BOMBE..
...IFPEEK(T)=1GOTO ENDE.....IF(IAND1)=.A
NDY>.THENY=Y-1..IF(IAND2)=.ANDY<10THENY=
Y+1..IF(IAND4)=.ANDX>.THENX=X-1..IF(IAND
8)=.ANDX<18THENX=X+1.....IF(IAND16)<>.GO
TO MAIN....*R=(PE(Z+2)>58)+(PE(Z+82)>58)
+(PE(Z+80)>5**8)+(PE(Z+78)>58)+(PE(Z-2)>
58)+(PE(Z-82)>*"58)+(PE(Z-80)>58)+(PE(Z-
78)>58):".IFB=BOGOTO ENDE.....IFB<>FRGOT
O MAIN.....POKEZ,-R+48:O=O-1:GOTO MAIN..
..._BOMBE IFB=BFGOTO MAIN....$IFB=BOTHEN
POKEZ,BF:E=E-1:GOTO MAIN$...*_ENDE FORI=
0TOP:POKEW(I),43:POKEW(I)+542**72,13:NEX
T:PRINT".."SPC(12)".NOCHMAL ? (*.J/STOP)
":FORI=.TO1:I=.:..IFPEEK(T)<>34THENNEXT.
....RUN....._SPIELFELD.)?"...";:POKE5328
0,.:PO53281,.:PO1023,.:)*A$=".":B$="..":
C$="..":GOS GITTER:GOS +:*.FORI=0TO9:.*A
$=".":B$="..":C$="..":GOS GITTER:GOS +:*
.NEXT I:.#A$=".":B$="..":C$="..":GOS GIT
TER#...*A=1105:B=.:X=.:Y=.:P=.:R=.:Z=.:I
=.:E=.:O**=209:FR=32:BO=96:BF=86:T=197:D
IM W(100):*.R=160*RND(0)+10:FORI=0TO208:
....%[ NACH 'FORI=0TO208' MUSS DIE ZEILE
%'[ ENDEN, DA DER BASIC-PUFFER MAX. 116'
%[ ZEICHEN ENTHALTEN KANN (IN DIESEM%.[ 
FALL!!).%[ DURCH DEN DOPPELPUNKT BEKOMMT
 DIE%([ NAECHSTE ZEILE TROTZDEM KEINE EI
GENE(.[ ZEILENNUMMER!....*Z=A*RND(1):POK
EA+B,FR:IFZ<RTHENPOKEA+B,B*.O:W(P)=A+B:P
=P+1...."B=B+2:X=X+1:IFX=19THENX=.:B=B+4
2"....NEXT:E=P:RETURN....)_+ A$=".":B$="
 .":C$=" .":GOSGITTER:RET)...*_GITTER ?A
$;:FOX=0TO17:?B$;:NEX:?C$" ";:*.RETURN..
......

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL