|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4352 (0x1100)
Names: »zombi«
└─⟦245f7a971⟧ Bits:30003044 Eksempler på underholdningsprogrammer og spil på Piccolo
└─ ⟦this⟧ »zombi«
0x0000…0020 30 30 31 30 20 45 4e 41 42 4c 45 20 66 65 6a 6c 0d 0a 30 30 32 30 20 2f 2f 20 3e 3e 3e 3e 3e 3e ┆0010 ENABLE fejl 0020 // >>>>>>┆
0x0020…0040 20 5a 4f 4d 42 49 45 20 3c 3c 3c 3c 3c 3c 00 0d 0a 30 30 33 30 20 44 49 4d 00 20 7a 6f 6d 62 69 ┆ ZOMBIE <<<<<< 0030 DIM zombi┆
0x0040…0060 65 24 20 4f 46 20 36 2c 73 76 61 72 24 20 4f 46 20 33 0d 0a 30 30 34 30 20 52 41 4e 44 4f 4d 49 ┆e$ OF 6,svar$ OF 3 0040 RANDOMI┆
0x0060…0080 5a 45 00 20 0d 0a 30 30 35 30 20 44 49 4d 00 20 70 00 28 31 32 2c 32 32 29 00 2c 7a 31 28 31 31 ┆ZE 0050 DIM p (12,22) ,z1(11┆
0x0080…00a0 29 00 2c 7a 32 28 31 31 29 00 0d 0a 30 30 36 30 20 7a 6f 6d 62 69 65 24 3a 3d 22 5a 4f 4d 42 49 ┆) ,z2(11) 0060 zombie$:="ZOMBI┆
0x00a0…00c0 45 22 0d 0a 30 30 37 30 20 52 45 50 45 41 54 20 0d 0a 30 30 38 30 20 20 20 50 52 49 4e 54 00 20 ┆E" 0070 REPEAT 0080 PRINT ┆
0x00c0…00e0 43 48 52 24 28 31 32 29 00 0d 0a 30 30 39 30 20 20 20 46 4f 52 00 20 69 00 3a 3d 31 20 54 4f 20 ┆CHR$(12) 0090 FOR i :=1 TO ┆
0x00e0…0100 36 20 44 4f 0d 0a 30 31 30 30 20 20 20 20 20 50 52 49 4e 54 00 20 41 54 28 69 00 2b 00 31 39 2c ┆6 DO 0100 PRINT AT(i + 19,┆
0x0100…0120 69 00 2b 00 32 29 00 3b 7a 6f 6d 62 69 65 24 28 69 00 3a 00 69 00 29 00 0d 0a 30 31 31 30 20 20 ┆i + 2) ;zombie$(i : i ) 0110 ┆
0x0120…0140 20 4e 45 58 54 20 69 00 0d 0a 30 31 32 30 20 20 20 50 52 49 4e 54 00 20 41 54 28 32 30 2c 37 29 ┆ NEXT i 0120 PRINT AT(20,7)┆
0x0140…0160 00 3b 22 23 22 3b 41 54 28 32 30 2c 38 29 00 3b 22 23 23 22 0d 0a 30 31 33 30 20 20 20 50 52 49 ┆ ;"#";AT(20,8) ;"##" 0130 PRI┆
0x0160…0180 4e 54 00 20 41 54 28 34 32 2c 33 29 00 3b 22 44 75 20 65 72 20 6e 65 74 6f 70 20 6e 7c 64 6c 61 ┆NT AT(42,3) ;"Du er netop nødla┆
0x0180…01a0 6e 64 65 74 20 70 7d 20 5a 4f 4d 42 49 45 22 0d 0a 30 31 34 30 20 20 20 50 52 49 4e 54 00 20 41 ┆ndet på ZOMBIE" 0140 PRINT A┆
0x01a0…01c0 54 28 34 32 2c 34 29 00 3b 22 7c 65 6e 2e 22 0d 0a 30 31 35 30 20 20 20 50 52 49 4e 54 00 20 41 ┆T(42,4) ;"øen." 0150 PRINT A┆
0x01c0…01e0 54 28 34 32 2c 36 29 00 3b 22 44 69 6e 20 65 6e 65 73 74 65 20 63 68 61 6e 63 65 20 66 6f 72 20 ┆T(42,6) ;"Din eneste chance for ┆
0x01e0…0200 61 74 20 6f 76 65 72 6c 65 76 65 22 0d 0a 30 31 36 30 20 20 20 50 52 49 4e 54 00 20 41 54 28 34 ┆at overleve" 0160 PRINT AT(4┆
0x0200…0220 32 2c 37 29 00 3b 22 65 72 20 61 74 20 6c 6f 6b 6b 65 20 61 6c 6c 65 20 7a 6f 6d 62 69 65 72 6e ┆2,7) ;"er at lokke alle zombiern┆
0x0220…0240 65 20 69 22 0d 0a 30 31 37 30 20 20 20 50 52 49 4e 54 00 20 41 54 28 34 32 2c 38 29 00 3b 22 66 ┆e i" 0170 PRINT AT(42,8) ;"f┆
0x0240…0260 61 6c 64 67 72 75 62 65 72 2e 22 0d 0a 30 31 38 30 20 20 20 50 52 49 4e 54 00 20 41 54 28 34 32 ┆aldgruber." 0180 PRINT AT(42┆
0x0260…0280 2c 31 30 29 00 3b 22 44 75 20 6b 61 6e 20 61 6e 67 69 76 65 20 64 69 6e 20 62 65 76 7b 67 65 6c ┆,10) ;"Du kan angive din bevægel┆
0x0280…02a0 73 65 73 72 65 74 2d 22 0d 0a 30 31 39 30 20 20 20 50 52 49 4e 54 00 20 41 54 28 34 32 2c 31 31 ┆sesret-" 0190 PRINT AT(42,11┆
0x02a0…02c0 29 00 3b 22 6e 69 6e 67 20 73 7d 6c 65 64 65 73 3a 22 0d 0a 30 32 30 30 20 20 20 50 52 49 4e 54 ┆) ;"ning således:" 0200 PRINT┆
0x02c0…02e0 00 20 41 54 28 35 34 2c 31 33 29 00 3b 22 37 38 31 22 0d 0a 30 32 31 30 20 20 20 50 52 49 4e 54 ┆ AT(54,13) ;"781" 0210 PRINT┆
0x02e0…0300 00 20 41 54 28 35 34 2c 31 34 29 00 3b 22 36 58 32 22 0d 0a 30 32 32 30 20 20 20 50 52 49 4e 54 ┆ AT(54,14) ;"6X2" 0220 PRINT┆
0x0300…0320 00 20 41 54 28 35 34 2c 31 35 29 00 3b 22 35 34 33 22 0d 0a 30 32 33 30 20 20 20 2f 2f 20 2a 2a ┆ AT(54,15) ;"543" 0230 // **┆
0x0320…0340 2a 20 69 6e 69 74 69 61 6c 69 73 65 72 20 61 72 72 61 79 20 70 20 2a 2a 2a 0d 0a 30 32 34 30 20 ┆* initialiser array p *** 0240 ┆
0x0340…0360 20 20 46 4f 52 00 20 69 00 3a 3d 31 20 54 4f 20 32 32 20 44 4f 0d 0a 30 32 35 30 20 20 20 20 20 ┆ FOR i :=1 TO 22 DO 0250 ┆
0x0360…0380 70 00 28 31 2c 69 00 29 00 3a 3d 00 2d 00 31 3b 20 70 00 28 31 32 2c 69 00 29 00 3a 3d 00 2d 00 ┆p (1,i ) := - 1; p (12,i ) := - ┆
0x0380…03a0 31 0d 0a 30 32 36 30 20 20 20 4e 45 58 54 20 69 00 0d 0a 30 32 37 30 20 20 20 46 4f 52 00 20 69 ┆1 0260 NEXT i 0270 FOR i┆
0x03a0…03c0 00 3a 3d 31 20 54 4f 20 32 32 20 44 4f 0d 0a 30 32 38 30 20 20 20 20 20 50 52 49 4e 54 00 20 41 ┆ :=1 TO 22 DO 0280 PRINT A┆
0x03c0…03e0 54 28 69 00 2b 00 31 32 2c 32 31 29 00 3b 22 4f 22 0d 0a 30 32 39 30 20 20 20 20 20 70 00 28 32 ┆T(i + 12,21) ;"O" 0290 p (2┆
0x03e0…0400 2c 69 00 29 00 3a 3d 30 3b 20 70 00 28 33 2c 69 00 29 00 3a 3d 30 3b 20 70 00 28 34 2c 69 00 29 ┆,i ) :=0; p (3,i ) :=0; p (4,i )┆
0x0400…0420 00 3a 3d 30 3b 20 70 00 28 35 2c 69 00 29 00 3a 3d 30 3b 20 70 00 28 36 2c 69 00 29 00 3a 3d 30 ┆ :=0; p (5,i ) :=0; p (6,i ) :=0┆
0x0420…0440 0d 0a 30 33 30 30 20 20 20 4e 45 58 54 20 69 00 0d 0a 30 33 31 30 20 20 20 46 4f 52 00 20 69 00 ┆ 0300 NEXT i 0310 FOR i ┆
0x0440…0460 3a 3d 31 20 54 4f 20 32 32 20 44 4f 0d 0a 30 33 32 30 20 20 20 20 20 50 52 49 4e 54 00 20 41 54 ┆:=1 TO 22 DO 0320 PRINT AT┆
0x0460…0480 28 69 00 2b 00 31 32 2c 31 30 29 00 3b 22 4f 22 0d 0a 30 33 33 30 20 20 20 20 20 70 00 28 37 2c ┆(i + 12,10) ;"O" 0330 p (7,┆
0x0480…04a0 69 00 29 00 3a 3d 30 3b 20 70 00 28 38 2c 69 00 29 00 3a 3d 30 3b 20 70 00 28 39 2c 69 00 29 00 ┆i ) :=0; p (8,i ) :=0; p (9,i ) ┆
0x04a0…04c0 3a 3d 30 3b 20 70 00 28 31 30 2c 69 00 29 00 3a 3d 30 3b 20 70 00 28 31 31 2c 69 00 29 00 3a 3d ┆:=0; p (10,i ) :=0; p (11,i ) :=┆
0x04c0…04e0 30 0d 0a 30 33 34 30 20 20 20 4e 45 58 54 20 69 00 0d 0a 30 33 35 30 20 20 20 46 4f 52 00 20 69 ┆0 0340 NEXT i 0350 FOR i┆
0x04e0…0500 00 3a 3d 31 20 54 4f 20 31 32 20 44 4f 0d 0a 30 33 36 30 20 20 20 20 20 70 00 28 69 00 2c 32 32 ┆ :=1 TO 12 DO 0360 p (i ,22┆
0x0500…0520 29 00 3a 3d 00 2d 00 31 3b 20 70 00 28 69 00 2c 31 29 00 3a 3d 00 2d 00 31 0d 0a 30 33 37 30 20 ┆) := - 1; p (i ,1) := - 1 0370 ┆
0x0520…0540 20 20 20 20 50 52 49 4e 54 00 20 41 54 28 33 34 2c 69 00 2b 00 39 29 00 3b 22 4f 22 0d 0a 30 33 ┆ PRINT AT(34,i + 9) ;"O" 03┆
0x0540…0560 38 30 20 20 20 4e 45 58 54 20 69 00 0d 0a 30 33 39 30 20 20 20 46 4f 52 00 20 69 00 3a 3d 31 20 ┆80 NEXT i 0390 FOR i :=1 ┆
0x0560…0580 54 4f 20 31 32 20 44 4f 0d 0a 30 34 30 30 20 20 20 20 20 50 52 49 4e 54 00 20 41 54 28 31 33 2c ┆TO 12 DO 0400 PRINT AT(13,┆
0x0580…05a0 69 00 2b 00 39 29 00 3b 22 4f 22 0d 0a 30 34 31 30 20 20 20 4e 45 58 54 20 69 00 0d 0a 30 34 32 ┆i + 9) ;"O" 0410 NEXT i 042┆
0x05a0…05c0 30 20 20 20 52 41 4e 44 4f 4d 49 5a 45 00 20 0d 0a 30 34 33 30 20 20 20 2f 2f 20 2a 2a 2a 20 70 ┆0 RANDOMIZE 0430 // *** p┆
0x05c0…05e0 6c 61 63 65 72 20 68 75 6c 6c 65 72 20 2a 2a 2a 0d 0a 30 34 34 30 20 20 20 46 4f 52 00 20 69 00 ┆lacer huller *** 0440 FOR i ┆
0x05e0…0600 3a 3d 31 20 54 4f 20 32 30 20 44 4f 0d 0a 30 34 35 30 20 20 20 20 20 78 00 3a 3d 52 4e 44 00 28 ┆:=1 TO 20 DO 0450 x :=RND (┆
0x0600…0620 31 2c 32 31 29 00 3b 20 79 00 3a 3d 52 4e 44 00 28 31 2c 31 31 29 00 0d 0a 30 34 36 30 20 20 20 ┆1,21) ; y :=RND (1,11) 0460 ┆
0x0620…0640 20 20 70 00 28 79 00 2c 78 00 29 00 3a 3d 00 2d 00 31 0d 0a 30 34 37 30 20 20 20 20 20 50 52 49 ┆ p (y ,x ) := - 1 0470 PRI┆
0x0640…0660 4e 54 00 20 41 54 28 78 00 2b 00 31 32 2c 79 00 2b 00 39 29 00 3b 22 4f 22 0d 0a 30 34 38 30 20 ┆NT AT(x + 12,y + 9) ;"O" 0480 ┆
0x0660…0680 20 20 4e 45 58 54 20 69 00 0d 0a 30 34 39 30 20 20 20 7a 6f 6d 62 69 65 73 00 3a 3d 30 0d 0a 30 ┆ NEXT i 0490 zombies :=0 0┆
0x0680…06a0 35 30 30 20 20 20 2f 2f 20 2a 2a 2a 20 70 6c 61 63 65 72 20 7a 6f 6d 62 69 65 72 20 2a 2a 2a 00 ┆500 // *** placer zombier *** ┆
0x06a0…06c0 0d 0a 30 35 31 30 20 20 20 6e 00 3a 3d 49 4e 54 00 28 52 4e 44 00 2a 00 36 2b 00 35 29 00 0d 0a ┆ 0510 n :=INT (RND * 6+ 5) ┆
0x06c0…06e0 30 35 32 30 20 20 20 46 4f 52 00 20 69 00 3a 3d 31 20 54 4f 20 6e 00 20 44 4f 0d 0a 30 35 33 30 ┆0520 FOR i :=1 TO n DO 0530┆
0x06e0…0700 20 20 20 20 20 78 00 3a 3d 52 4e 44 00 28 31 2c 32 31 29 00 3b 20 79 00 3a 3d 52 4e 44 00 28 31 ┆ x :=RND (1,21) ; y :=RND (1┆
0x0700…0720 2c 31 31 29 00 0d 0a 30 35 34 30 20 20 20 20 20 49 46 20 70 00 28 79 00 2c 78 00 29 00 3d 00 30 ┆,11) 0540 IF p (y ,x ) = 0┆
0x0720…0740 20 54 48 45 4e 0d 0a 30 35 35 30 20 20 20 20 20 20 20 7a 6f 6d 62 69 65 73 00 3a 3d 7a 6f 6d 62 ┆ THEN 0550 zombies :=zomb┆
0x0740…0760 69 65 73 00 2b 00 31 0d 0a 30 35 36 30 20 20 20 20 20 20 20 70 00 28 79 00 2c 78 00 29 00 3a 3d ┆ies + 1 0560 p (y ,x ) :=┆
0x0760…0780 69 00 0d 0a 30 35 37 30 20 20 20 20 20 20 20 7a 31 28 69 00 29 00 3a 3d 78 00 3b 20 7a 32 28 69 ┆i 0570 z1(i ) :=x ; z2(i┆
0x0780…07a0 00 29 00 3a 3d 79 00 0d 0a 30 35 38 30 20 20 20 20 20 20 20 50 52 49 4e 54 00 20 41 54 28 78 00 ┆ ) :=y 0580 PRINT AT(x ┆
0x07a0…07c0 2b 00 31 32 2c 79 00 2b 00 39 29 00 3b 22 5a 22 0d 0a 30 35 39 30 20 20 20 20 20 45 4c 53 45 20 ┆+ 12,y + 9) ;"Z" 0590 ELSE ┆
0x07c0…07e0 0d 0a 30 36 30 30 20 20 20 20 20 20 20 7a 31 28 69 00 29 00 3a 3d 30 0d 0a 30 36 31 30 20 20 20 ┆ 0600 z1(i ) :=0 0610 ┆
0x07e0…0800 20 20 45 4e 44 49 46 00 20 0d 0a 30 36 32 30 20 20 20 4e 45 58 54 20 69 00 0d 0a 30 36 33 30 20 ┆ ENDIF 0620 NEXT i 0630 ┆
0x0800…0820 20 20 2f 2f 20 2a 2a 2a 20 70 6c 61 63 65 72 20 73 70 69 6c 6c 65 72 20 2a 2a 2a 00 0d 0a 30 36 ┆ // *** placer spiller *** 06┆
0x0820…0840 34 30 20 20 20 52 45 50 45 41 54 20 0d 0a 30 36 35 30 20 20 20 20 20 79 6f 75 31 3a 3d 52 4e 44 ┆40 REPEAT 0650 you1:=RND┆
0x0840…0860 00 28 31 2c 32 31 29 00 3b 20 79 6f 75 32 3a 3d 52 4e 44 00 28 31 2c 31 31 29 00 0d 0a 30 36 36 ┆ (1,21) ; you2:=RND (1,11) 066┆
0x0860…0880 30 20 20 20 55 4e 54 49 4c 00 20 70 00 28 79 6f 75 32 2c 79 6f 75 31 29 00 3d 00 30 0d 0a 30 36 ┆0 UNTIL p (you2,you1) = 0 06┆
0x0880…08a0 37 30 20 20 20 50 52 49 4e 54 00 20 41 54 28 79 6f 75 31 2b 00 31 32 2c 79 6f 75 32 2b 00 39 29 ┆70 PRINT AT(you1+ 12,you2+ 9)┆
0x08a0…08c0 00 3b 22 58 22 0d 0a 30 36 38 30 20 20 20 2f 2f 20 2a 2a 2a 20 73 70 69 6c 6c 65 74 20 73 74 61 ┆ ;"X" 0680 // *** spillet sta┆
0x08c0…08e0 72 74 65 72 20 2a 2a 2a 0d 0a 30 36 39 30 20 20 20 52 45 50 45 41 54 20 0d 0a 30 37 30 30 20 20 ┆rter *** 0690 REPEAT 0700 ┆
0x08e0…0900 20 20 20 50 52 49 4e 54 00 20 41 54 28 32 30 2c 32 33 29 00 3b 43 48 52 24 28 33 30 29 00 3b 0d ┆ PRINT AT(20,23) ;CHR$(30) ; ┆
0x0900…0920 0a 30 37 31 30 20 20 20 20 20 49 4e 50 55 54 00 20 22 52 65 74 6e 69 6e 67 3f 20 22 3a 20 72 00 ┆ 0710 INPUT "Retning? ": r ┆
0x0920…0940 0d 0a 30 37 32 30 20 20 20 20 20 50 52 49 4e 54 00 20 41 54 28 79 6f 75 31 2b 00 31 32 2c 79 6f ┆ 0720 PRINT AT(you1+ 12,yo┆
0x0940…0960 75 32 2b 00 39 29 00 3b 22 20 22 0d 0a 30 37 33 30 20 20 20 20 20 79 6f 75 31 3a 3d 79 6f 75 31 ┆u2+ 9) ;" " 0730 you1:=you1┆
0x0960…0980 2b 00 00 28 72 00 20 4d 4f 44 00 20 34 3c 3e 30 29 00 2d 00 32 2a 00 00 28 34 3c 00 72 00 20 41 ┆+ (r MOD 4<>0) - 2* (4< r A┆
0x0980…09a0 4e 44 00 20 72 00 3c 00 38 29 00 0d 0a 30 37 34 30 20 20 20 20 20 79 6f 75 32 3a 3d 79 6f 75 32 ┆ND r < 8) 0740 you2:=you2┆
0x09a0…09c0 2b 00 00 28 00 28 72 00 2d 00 32 29 00 20 4d 4f 44 00 20 34 3c 3e 30 29 00 2d 00 32 2a 00 00 28 ┆+ ( (r - 2) MOD 4<>0) - 2* (┆
0x09c0…09e0 72 00 3d 00 31 20 4f 52 20 72 00 3e 00 36 29 00 0d 0a 30 37 35 30 20 20 20 20 20 50 52 49 4e 54 ┆r = 1 OR r > 6) 0750 PRINT┆
0x09e0…0a00 00 20 41 54 28 79 6f 75 31 2b 00 31 32 2c 79 6f 75 32 2b 00 39 29 00 3b 22 58 22 0d 0a 30 37 36 ┆ AT(you1+ 12,you2+ 9) ;"X" 076┆
0x0a00…0a20 30 20 20 20 20 20 49 46 20 70 00 28 79 6f 75 32 2c 79 6f 75 31 29 00 3d 00 00 2d 00 31 20 54 48 ┆0 IF p (you2,you1) = - 1 TH┆
0x0a20…0a40 45 4e 0d 0a 30 37 37 30 20 20 20 20 20 20 20 50 52 49 4e 54 00 20 41 54 28 79 6f 75 31 2b 00 31 ┆EN 0770 PRINT AT(you1+ 1┆
0x0a40…0a60 32 2c 79 6f 75 32 2b 00 39 29 00 3b 0d 0a 30 37 38 30 20 20 20 20 20 20 20 50 52 49 4e 54 00 20 ┆2,you2+ 9) ; 0780 PRINT ┆
0x0a60…0a80 22 4f 22 3b 43 48 52 24 28 38 29 00 3b 22 58 22 3b 43 48 52 24 28 38 29 00 3b 22 4f 22 3b 43 48 ┆"O";CHR$(8) ;"X";CHR$(8) ;"O";CH┆
0x0a80…0aa0 52 24 28 38 29 00 3b 22 58 22 3b 43 48 52 24 28 38 29 00 3b 22 4f 22 0d 0a 30 37 39 30 20 20 20 ┆R$(8) ;"X";CHR$(8) ;"O" 0790 ┆
0x0aa0…0ac0 20 20 20 20 50 52 49 4e 54 00 20 41 54 28 34 32 2c 31 38 29 00 3b 22 50 7d 20 68 6f 76 65 64 65 ┆ PRINT AT(42,18) ;"På hovede┆
0x0ac0…0ae0 74 20 69 20 61 66 67 72 75 6e 64 65 6e 20 2d 2d 2d 22 0d 0a 30 38 30 30 20 20 20 20 20 45 4e 44 ┆t i afgrunden ---" 0800 END┆
0x0ae0…0b00 49 46 00 20 0d 0a 30 38 31 30 20 20 20 20 20 2f 2f 20 2a 2a 2a 20 66 6c 79 74 20 7a 6f 6d 62 69 ┆IF 0810 // *** flyt zombi┆
0x0b00…0b20 65 72 20 2a 2a 2a 20 20 00 0d 0a 30 38 32 30 20 20 20 20 20 46 4f 52 00 20 69 00 3a 3d 31 20 54 ┆er *** 0820 FOR i :=1 T┆
0x0b20…0b40 4f 20 6e 00 20 44 4f 0d 0a 30 38 33 30 20 20 20 20 20 20 20 49 46 20 7a 31 28 69 00 29 00 3c 3e ┆O n DO 0830 IF z1(i ) <>┆
0x0b40…0b60 30 20 54 48 45 4e 0d 0a 30 38 34 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 00 20 41 54 28 7a ┆0 THEN 0840 PRINT AT(z┆
0x0b60…0b80 31 28 69 00 29 00 2b 00 31 32 2c 7a 32 28 69 00 29 00 2b 00 39 29 00 3b 22 20 22 0d 0a 30 38 35 ┆1(i ) + 12,z2(i ) + 9) ;" " 085┆
0x0b80…0ba0 30 20 20 20 20 20 20 20 20 20 70 00 28 7a 32 28 69 00 29 00 2c 7a 31 28 69 00 29 00 29 00 3a 3d ┆0 p (z2(i ) ,z1(i ) ) :=┆
0x0ba0…0bc0 30 0d 0a 30 38 36 30 20 20 20 20 20 20 20 20 20 7a 31 28 69 00 29 00 3a 3d 7a 31 28 69 00 29 00 ┆0 0860 z1(i ) :=z1(i ) ┆
0x0bc0…0be0 2d 00 53 47 4e 00 28 7a 31 28 69 00 29 00 2d 00 79 6f 75 31 29 00 0d 0a 30 38 37 30 20 20 20 20 ┆- SGN (z1(i ) - you1) 0870 ┆
0x0be0…0c00 20 20 20 20 20 7a 32 28 69 00 29 00 3a 3d 7a 32 28 69 00 29 00 2d 00 53 47 4e 00 28 7a 32 28 69 ┆ z2(i ) :=z2(i ) - SGN (z2(i┆
0x0c00…0c20 00 29 00 2d 00 79 6f 75 32 29 00 0d 0a 30 38 38 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 00 ┆ ) - you2) 0880 PRINT ┆
0x0c20…0c40 20 41 54 28 7a 31 28 69 00 29 00 2b 00 31 32 2c 7a 32 28 69 00 29 00 2b 00 39 29 00 3b 0d 0a 30 ┆ AT(z1(i ) + 12,z2(i ) + 9) ; 0┆
0x0c40…0c60 38 39 30 20 20 20 20 20 20 20 20 20 49 46 20 70 00 28 7a 32 28 69 00 29 00 2c 7a 31 28 69 00 29 ┆890 IF p (z2(i ) ,z1(i )┆
0x0c60…0c80 00 29 00 3c 3e 30 20 54 48 45 4e 0d 0a 30 39 30 30 20 20 20 20 20 20 20 20 20 20 20 49 46 20 70 ┆ ) <>0 THEN 0900 IF p┆
0x0c80…0ca0 00 28 7a 32 28 69 00 29 00 2c 7a 31 28 69 00 29 00 29 00 3d 00 00 2d 00 31 20 54 48 45 4e 0d 0a ┆ (z2(i ) ,z1(i ) ) = - 1 THEN ┆
0x0ca0…0cc0 30 39 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 00 20 22 5a 22 3b 43 48 52 24 ┆0910 PRINT "Z";CHR$┆
0x0cc0…0ce0 28 38 29 00 3b 22 4f 22 3b 43 48 52 24 28 38 29 00 3b 22 5a 22 3b 43 48 52 24 28 38 29 00 3b 22 ┆(8) ;"O";CHR$(8) ;"Z";CHR$(8) ;"┆
0x0ce0…0d00 4f 22 0d 0a 30 39 32 30 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 00 20 0d 0a 30 39 33 30 ┆O" 0920 ENDIF 0930┆
0x0d00…0d20 20 20 20 20 20 20 20 20 20 20 20 7a 31 28 69 00 29 00 3a 3d 30 0d 0a 30 39 34 30 20 20 20 20 20 ┆ z1(i ) :=0 0940 ┆
0x0d20…0d40 20 20 20 20 20 20 7a 6f 6d 62 69 65 73 00 3a 3d 7a 6f 6d 62 69 65 73 00 2d 00 31 0d 0a 30 39 35 ┆ zombies :=zombies - 1 095┆
0x0d40…0d60 30 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 30 39 36 30 20 20 20 20 20 20 20 20 20 20 20 ┆0 ELSE 0960 ┆
0x0d60…0d80 70 00 28 7a 32 28 69 00 29 00 2c 7a 31 28 69 00 29 00 29 00 3a 3d 69 00 0d 0a 30 39 37 30 20 20 ┆p (z2(i ) ,z1(i ) ) :=i 0970 ┆
0x0d80…0da0 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 00 20 22 5a 22 0d 0a 30 39 38 30 20 20 20 20 20 20 20 ┆ PRINT "Z" 0980 ┆
0x0da0…0dc0 20 20 45 4e 44 49 46 00 20 0d 0a 30 39 39 30 20 20 20 20 20 20 20 45 4e 44 49 46 00 20 0d 0a 31 ┆ ENDIF 0990 ENDIF 1┆
0x0dc0…0de0 30 30 30 20 20 20 20 20 4e 45 58 54 20 69 00 0d 0a 31 30 31 30 20 20 20 20 20 49 46 20 7a 6f 6d ┆000 NEXT i 1010 IF zom┆
0x0de0…0e00 62 69 65 73 00 3d 00 30 20 54 48 45 4e 0d 0a 31 30 32 30 20 20 20 20 20 20 20 50 52 49 4e 54 00 ┆bies = 0 THEN 1020 PRINT ┆
0x0e00…0e20 20 41 54 28 34 32 2c 31 38 29 00 3b 22 47 4f 44 54 20 4b 4c 41 52 45 54 20 2d 2d 2d 20 7a 6f 6d ┆ AT(42,18) ;"GODT KLARET --- zom┆
0x0e20…0e40 62 69 65 72 6e 65 20 65 72 20 75 64 64 7c 64 65 22 0d 0a 31 30 33 30 20 20 20 20 20 20 20 50 52 ┆bierne er uddøde" 1030 PR┆
0x0e40…0e60 49 4e 54 00 20 41 54 28 34 32 2c 31 39 29 00 3b 22 44 75 20 65 72 20 72 65 64 64 65 74 20 2d 2d ┆INT AT(42,19) ;"Du er reddet --┆
0x0e60…0e80 2d 22 0d 0a 31 30 34 30 20 20 20 20 20 45 4e 44 49 46 00 20 0d 0a 31 30 35 30 20 20 20 20 20 49 ┆-" 1040 ENDIF 1050 I┆
0x0e80…0ea0 46 20 70 00 28 79 6f 75 32 2c 79 6f 75 31 29 00 3e 00 30 20 54 48 45 4e 0d 0a 31 30 36 30 20 20 ┆F p (you2,you1) > 0 THEN 1060 ┆
0x0ea0…0ec0 20 20 20 20 20 50 52 49 4e 54 00 20 41 54 28 79 6f 75 31 2b 00 31 32 2c 79 6f 75 32 2b 00 39 29 ┆ PRINT AT(you1+ 12,you2+ 9)┆
0x0ec0…0ee0 00 3b 0d 0a 31 30 37 30 20 20 20 20 20 20 20 50 52 49 4e 54 00 20 22 5a 22 3b 43 48 52 24 28 38 ┆ ; 1070 PRINT "Z";CHR$(8┆
0x0ee0…0f00 29 00 3b 22 58 22 3b 43 48 52 24 28 38 29 00 3b 22 5a 22 3b 43 48 52 24 28 38 29 00 3b 22 58 22 ┆) ;"X";CHR$(8) ;"Z";CHR$(8) ;"X"┆
0x0f00…0f20 3b 43 48 52 24 28 38 29 00 3b 22 5a 22 0d 0a 31 30 38 30 20 20 20 20 20 20 20 45 58 45 43 20 70 ┆;CHR$(8) ;"Z" 1080 EXEC p┆
0x0f20…0f40 6f 73 00 28 34 32 2c 31 38 29 00 0d 0a 31 30 39 30 20 20 20 20 20 20 20 50 52 49 4e 54 00 20 22 ┆os (42,18) 1090 PRINT "┆
0x0f40…0f60 44 75 20 65 72 20 74 69 6c 69 6e 74 65 74 67 6a 6f 72 74 20 61 66 20 65 6e 20 7a 6f 6d 62 69 65 ┆Du er tilintetgjort af en zombie┆
0x0f60…0f80 20 2d 2d 2d 22 0d 0a 31 31 30 30 20 20 20 20 20 20 20 47 4f 54 4f 20 6e 79 74 73 70 69 6c 00 0d ┆ ---" 1100 GOTO nytspil ┆
0x0f80…0fa0 0a 31 31 31 30 20 20 20 20 20 45 4e 44 49 46 00 20 0d 0a 31 31 32 30 20 20 20 55 4e 54 49 4c 00 ┆ 1110 ENDIF 1120 UNTIL ┆
0x0fa0…0fc0 20 31 3d 00 30 0d 0a 31 31 33 30 20 6e 79 74 73 70 69 6c 00 3a 0d 0a 31 31 34 30 20 20 20 49 4e ┆ 1= 0 1130 nytspil : 1140 IN┆
0x0fc0…0fe0 50 55 54 00 20 41 54 28 32 30 2c 32 33 29 00 2c 22 6e 79 74 20 73 70 69 6c 3f 20 22 3a 20 73 76 ┆PUT AT(20,23) ,"nyt spil? ": sv┆
0x0fe0…1000 61 72 24 0d 0a 31 31 35 30 20 55 4e 54 49 4c 00 20 73 76 61 72 24 3c 3e 22 6a 61 22 0d 0a 31 31 ┆ar$ 1150 UNTIL svar$<>"ja" 11┆
0x1000…1020 36 30 20 43 48 41 49 4e 00 20 22 6c 6f 67 6f 6e 22 0d 0a 39 39 30 30 20 50 52 4f 43 20 66 65 6a ┆60 CHAIN "logon" 9900 PROC fej┆
0x1020…1040 6c 20 48 41 4e 44 4c 45 52 00 20 0d 0a 39 39 31 30 20 20 20 43 41 53 45 20 53 59 53 00 28 30 29 ┆l HANDLER 9910 CASE SYS (0)┆
0x1040…1060 00 20 4f 46 0d 0a 39 39 32 30 20 20 20 57 48 45 4e 20 31 30 30 0d 0a 39 39 33 30 20 20 20 20 20 ┆ OF 9920 WHEN 100 9930 ┆
0x1060…1080 43 48 41 49 4e 00 20 22 6c 6f 67 6f 6e 22 0d 0a 39 39 34 30 20 20 20 45 4e 44 43 41 53 45 00 20 ┆CHAIN "logon" 9940 ENDCASE ┆
0x1080…10a0 0d 0a 39 39 35 30 20 45 4e 44 50 52 4f 43 00 20 66 65 6a 6c 0d 0a 19 1a 00 00 00 00 00 00 00 00 ┆ 9950 ENDPROC fejl ┆
0x10a0…10c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]