/ 64'er 1993 October / 64er_Magazin_93-10_1993_Markt__Technik_de_Side_A.d64 / demo.bombs

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|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,8|3: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)=1GO|TO ENDE.|
|000001d0| 03 0d 03 1c 49 46 28 49 | 41 4e 44 31 29 3d 2e 41 |....IF(I|AND1)=.A|
|000001e0| 4e 44 59 3e 2e 54 48 45 | 4e 59 3d 59 2d 31 1c 1d |NDY>.THE|NY=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)<>.GO|TO 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+8|0)>5**8)|
|00000290| 2b 28 50 c5 28 5a 2b 37 | 38 29 3e 35 38 29 2b 28 |+(P.(Z+7|8)>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 END|E.....IF|
|000002f0| 42 3c 3e 46 52 47 4f 54 | 4f 20 4d 41 49 4e 12 03 |B<>FRGOT|O 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:GOT|O MAIN..|
|00000320| 0d 03 18 5f 42 4f 4d 42 | 45 20 49 46 42 3d 42 46 |..._BOMB|E IFB=BF|
|00000330| 47 4f 54 4f 20 4d 41 49 | 4e 18 03 0d 03 24 49 46 |GOTO MAI|N....$IF|
|00000340| 42 3d 42 4f 54 48 45 4e | 50 4f 4b 45 5a 2c 42 46 |B=BOTHEN|POKEZ,BF|
|00000350| 3a 45 3d 45 2d 31 3a 47 | 4f 54 4f 20 4d 41 49 4e |:E=E-1:G|OTO MAIN|
|00000360| 24 03 0d 03 2a 5f 45 4e | 44 45 20 46 4f 52 49 3d |$...*_EN|DE FORI=|
|00000370| 30 54 4f 50 3a 50 4f 4b | 45 57 28 49 29 2c 34 33 |0TOP:POK|EW(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:NEX|T:PRINT"|
|000003a0| 13 11 22 53 50 43 28 31 | 32 29 22 1e 4e 4f 43 48 |.."SPC(1|2)".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 |...._SPI|ELFELD.)|
|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.53|281,.: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. GITT|ER: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:F|R=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 'FOR|I=0TO208|
|00000540| 27 20 4d 55 53 53 20 44 | 49 45 20 5a 45 49 4c 45 |' MUSS D|IE ZEILE|
|00000550| 25 27 5b 20 45 4e 44 45 | 4e 2c 20 44 41 20 44 45 |%'[ ENDE|N, 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 ENTHA|LTEN KAN|
|00000590| 4e 20 28 49 4e 20 44 49 | 45 53 45 4d 25 0b 5b 20 |N (IN DI|ESEM%.[ |
|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 DOP|PELPUNKT|
|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):POK|EA+B,FR:|
|00000620| 49 46 5a 3c 52 54 48 45 | 4e 50 4f 4b 45 41 2b 42 |IFZ<RTHE|NPOKEA+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+4|2"....NE|
|00000670| 58 54 3a 45 3d 50 3a 52 | 45 54 55 52 4e 11 03 0d |XT:E=P:R|ETURN...|
|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       |                         |......  |        |
+--------+-------------------------+-------------------------+--------+--------+