|
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: 8192 (0x2000)
Names: »OZDOT.BAS«
└─⟦dd59903ef⟧ Bits:30005887 Klub diskette for udveksling af software
└─ ⟦this⟧ »OZDOT.BAS«
0x0000…0020 31 30 30 20 27 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆100 ' **************************┆ 0x0020…0040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 0d 0a 31 31 30 20 27 20 2a 2a 2a ┆********************" 110 ' ***┆ 0x0040…0060 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆ 0x0060…0080 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 31 32 30 20 27 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 ┆*********** 120 ' ** ┆ 0x0080…00a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆ *┆ 0x00a0…00c0 2a 0d 0a 31 33 30 20 27 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 4e 4e 45 43 54 20 54 ┆* 130 ' ** CONNECT T┆ 0x00c0…00e0 48 45 20 44 4f 54 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 0d 0a 31 34 30 20 27 20 2a ┆HE DOTS ** 140 ' *┆ 0x00e0…0100 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆* ┆ 0x0100…0120 20 20 20 20 20 20 20 20 20 20 20 2a 2a 0d 0a 31 35 30 20 27 20 2a 2a 20 20 20 20 20 20 20 20 20 ┆ ** 150 ' ** ┆ 0x0120…0140 20 20 20 20 62 79 20 43 68 75 63 6b 20 4c 75 6e 64 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ by Chuck Lund ┆ 0x0140…0160 20 2a 2a 0d 0a 31 36 30 20 27 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ** 160 ' ** ┆ 0x0160…0180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 0d 0a 31 37 30 20 27 ┆ ** 170 '┆ 0x0180…01a0 20 2a 2a 20 20 20 20 20 20 20 20 20 6f 72 69 67 69 6e 61 6c 6c 79 20 61 70 70 65 61 72 65 64 20 ┆ ** originally appeared ┆ 0x01a0…01c0 69 6e 20 20 20 20 20 20 20 20 20 20 20 2a 2a 0d 0a 31 38 30 20 27 20 2a 2a 20 20 20 20 20 20 20 ┆in ** 180 ' ** ┆ 0x01c0…01e0 20 20 20 20 43 72 65 61 74 69 76 65 20 43 6f 6d 70 75 74 69 6e 67 20 20 20 20 20 20 20 20 20 20 ┆ Creative Computing ┆ 0x01e0…0200 20 20 20 2a 2a 0d 0a 31 39 30 20 27 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4a 61 6e ┆ ** 190 ' ** Jan┆ 0x0200…0220 2f 46 65 62 20 31 39 37 36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 0d 0a 32 30 30 ┆/Feb 1976 ** 200┆ 0x0220…0240 20 27 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ' ** ┆ 0x0240…0260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 0d 0a 32 31 30 20 27 20 2a 2a 20 20 20 20 20 ┆ ** 210 ' ** ┆ 0x0260…0280 20 20 20 20 4d 6f 64 69 66 69 65 64 20 66 6f 72 20 75 73 65 20 6f 6e 20 74 68 65 20 20 20 20 20 ┆ Modified for use on the ┆ 0x0280…02a0 20 20 20 20 20 2a 2a 0d 0a 32 32 30 20 27 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 4f 53 42 4f ┆ ** 220 ' ** OSBO┆ 0x02a0…02c0 52 4e 45 20 31 20 43 6f 6d 70 75 74 65 72 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 0d 0a 32 ┆RNE 1 Computer ** 2┆ 0x02c0…02e0 33 30 20 27 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 79 20 20 20 20 20 ┆30 ' ** by ┆ 0x02e0…0300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 0d 0a 32 34 30 20 27 20 2a 2a 20 20 20 ┆ ** 240 ' ** ┆ 0x0300…0320 20 20 20 20 20 20 20 20 20 20 20 41 4c 45 58 20 4d 4f 52 41 4c 45 53 20 20 20 20 20 20 20 20 20 ┆ ALEX MORALES ┆ 0x0320…0340 20 20 20 20 20 20 20 2a 2a 0d 0a 32 35 30 20 27 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ** 250 ' ** ┆ 0x0340…0360 28 32 31 33 29 20 39 36 39 2d 34 39 32 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 0d ┆(213) 969-4921 ** ┆ 0x0360…0380 0a 32 36 30 20 27 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 260 ' ** ┆ 0x0380…03a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 0d 0a 32 37 30 20 27 20 2a 2a 2a ┆ ** 270 ' ***┆ 0x03a0…03c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆ 0x03c0…03e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 32 38 30 20 27 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆*********** 280 ' *************┆ 0x03e0…0400 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆ 0x0400…0420 2a 0d 0a 32 39 30 20 47 52 24 3d 43 48 52 24 28 32 37 29 2b 22 67 22 20 20 20 20 20 20 20 20 27 ┆* 290 GR$=CHR$(27)+"g" '┆ 0x0420…0440 47 52 41 50 48 49 43 53 20 4d 4f 44 45 0d 0a 33 30 30 20 4e 47 24 3d 43 48 52 24 28 32 37 29 2b ┆GRAPHICS MODE 300 NG$=CHR$(27)+┆ 0x0440…0460 22 47 22 20 20 20 20 20 20 20 20 27 45 4e 44 20 47 52 41 50 48 49 43 53 20 4d 4f 44 45 0d 0a 33 ┆"G" 'END GRAPHICS MODE 3┆ 0x0460…0480 31 30 20 48 49 24 3d 43 48 52 24 28 32 37 29 2b 43 48 52 24 28 34 31 29 20 20 20 27 48 41 4c 46 ┆10 HI$=CHR$(27)+CHR$(41) 'HALF┆ 0x0480…04a0 20 49 4e 54 45 4e 53 49 54 59 20 4d 4f 44 45 0d 0a 33 32 30 20 4e 49 24 3d 43 48 52 24 28 32 37 ┆ INTENSITY MODE 320 NI$=CHR$(27┆ 0x04a0…04c0 29 2b 43 48 52 24 28 34 30 29 20 20 20 27 4e 4f 52 4d 41 4c 20 49 4e 54 45 4e 53 49 54 59 20 4d ┆)+CHR$(40) 'NORMAL INTENSITY M┆ 0x04c0…04e0 4f 44 45 0d 0a 33 33 30 20 27 20 36 31 34 34 30 20 49 53 20 54 48 45 20 53 54 41 52 54 20 4f 46 ┆ODE 330 ' 61440 IS THE START OF┆ 0x04e0…0500 20 53 43 52 45 45 4e 20 52 41 4d 0d 0a 33 34 30 20 47 4f 53 55 42 20 32 32 33 30 0d 0a 33 35 30 ┆ SCREEN RAM 340 GOSUB 2230 350┆ 0x0500…0520 20 50 52 49 4e 54 20 43 48 52 24 28 32 36 29 3b 22 49 4e 49 54 49 41 4c 49 5a 49 4e 47 2e 2e 2e ┆ PRINT CHR$(26);"INITIALIZING...┆ 0x0520…0540 22 3a 49 46 20 58 24 3d 22 59 22 20 54 48 45 4e 20 45 52 41 53 45 20 41 2c 58 2c 59 0d 0a 33 36 ┆":IF X$="Y" THEN ERASE A,X,Y 36┆ 0x0540…0560 30 20 44 49 4d 20 41 28 31 32 2c 31 32 29 2c 58 28 39 2c 39 29 2c 59 28 39 2c 39 29 0d 0a 33 37 ┆0 DIM A(12,12),X(9,9),Y(9,9) 37┆ 0x0560…0580 30 20 56 3d 30 3a 47 4f 53 55 42 20 32 31 32 30 0d 0a 33 38 30 20 46 4f 52 20 52 3d 31 20 54 4f ┆0 V=0:GOSUB 2120 380 FOR R=1 TO┆ 0x0580…05a0 20 31 32 0d 0a 33 39 30 20 46 4f 52 20 43 3d 31 20 54 4f 20 31 32 0d 0a 34 30 30 20 49 46 20 52 ┆ 12 390 FOR C=1 TO 12 400 IF R┆ 0x05a0…05c0 2f 32 3d 49 4e 54 28 52 2f 32 29 20 54 48 45 4e 20 34 34 30 0d 0a 34 31 30 20 49 46 20 43 2f 32 ┆/2=INT(R/2) THEN 440 410 IF C/2┆ 0x05c0…05e0 3d 49 4e 54 28 43 2f 32 29 20 54 48 45 4e 20 34 34 30 0d 0a 34 32 30 20 41 28 52 2c 43 29 3d 2d ┆=INT(C/2) THEN 440 420 A(R,C)=-┆ 0x05e0…0600 35 30 0d 0a 34 33 30 20 47 4f 54 4f 20 34 35 30 0d 0a 34 34 30 20 41 28 52 2c 43 29 3d 30 0d 0a ┆50 430 GOTO 450 440 A(R,C)=0 ┆ 0x0600…0620 34 35 30 20 4e 45 58 54 20 43 2c 52 0d 0a 34 36 30 20 49 46 20 56 3d 31 20 54 48 45 4e 20 34 38 ┆450 NEXT C,R 460 IF V=1 THEN 48┆ 0x0620…0640 30 0d 0a 34 37 30 20 50 52 49 4e 54 20 43 48 52 24 28 32 36 29 0d 0a 34 38 30 20 47 4f 53 55 42 ┆0 470 PRINT CHR$(26) 480 GOSUB┆ 0x0640…0660 20 31 32 31 30 0d 0a 34 39 30 20 50 52 49 4e 54 3a 50 52 49 4e 54 22 07 59 4f 55 52 20 4d 4f 56 ┆ 1210 490 PRINT:PRINT" YOUR MOV┆ 0x0660…0680 45 2e 2e 2e 22 0d 0a 35 30 30 20 47 4f 53 55 42 20 31 34 38 30 0d 0a 35 31 30 20 41 28 58 2c 59 ┆E..." 500 GOSUB 1480 510 A(X,Y┆ 0x0680…06a0 29 3d 35 30 0d 0a 35 32 30 20 49 46 20 58 2f 32 3d 49 4e 54 28 58 2f 32 29 20 54 48 45 4e 20 35 ┆)=50 520 IF X/2=INT(X/2) THEN 5┆ 0x06a0…06c0 39 30 0d 0a 35 33 30 20 49 46 20 41 28 58 2d 32 2c 59 29 2b 41 28 58 2d 31 2c 59 2b 31 29 2b 41 ┆90 530 IF A(X-2,Y)+A(X-1,Y+1)+A┆ 0x06c0…06e0 28 58 2d 31 2c 59 2d 31 29 3c 3e 31 35 30 20 54 48 45 4e 20 35 36 30 0d 0a 35 34 30 20 50 3d 31 ┆(X-1,Y-1)<>150 THEN 560 540 P=1┆ 0x06e0…0700 0d 0a 35 35 30 20 41 28 58 2d 31 2c 59 29 3d 31 0d 0a 35 36 30 20 49 46 20 41 28 58 2b 32 2c 59 ┆ 550 A(X-1,Y)=1 560 IF A(X+2,Y┆ 0x0700…0720 29 2b 41 28 58 2b 31 2c 59 2b 31 29 2b 41 28 58 2b 31 2c 59 2d 31 29 3c 3e 31 35 30 20 54 48 45 ┆)+A(X+1,Y+1)+A(X+1,Y-1)<>150 THE┆ 0x0720…0740 4e 20 36 35 30 0d 0a 35 37 30 20 41 28 58 2b 31 2c 59 29 3d 31 0d 0a 35 38 30 20 47 4f 54 4f 20 ┆N 650 570 A(X+1,Y)=1 580 GOTO ┆ 0x0740…0760 34 38 30 0d 0a 35 39 30 20 49 46 20 41 28 58 2c 59 2d 32 29 2b 41 28 58 2b 31 2c 59 2d 31 29 2b ┆480 590 IF A(X,Y-2)+A(X+1,Y-1)+┆ 0x0760…0780 41 28 58 2d 31 2c 59 2d 31 29 3c 3e 31 35 30 20 54 48 45 4e 20 36 32 30 0d 0a 36 30 30 20 41 28 ┆A(X-1,Y-1)<>150 THEN 620 600 A(┆ 0x0780…07a0 58 2c 59 2d 31 29 3d 31 0d 0a 36 31 30 20 50 3d 31 0d 0a 36 32 30 20 49 46 20 41 28 58 2c 59 2b ┆X,Y-1)=1 610 P=1 620 IF A(X,Y+┆ 0x07a0…07c0 32 29 2b 41 28 58 2b 31 2c 59 2b 31 29 2b 41 28 58 2d 31 2c 59 2b 31 29 3c 3e 31 35 30 20 54 48 ┆2)+A(X+1,Y+1)+A(X-1,Y+1)<>150 TH┆ 0x07c0…07e0 45 4e 20 36 35 30 0d 0a 36 33 30 20 41 28 58 2c 59 2b 31 29 3d 31 0d 0a 36 34 30 20 47 4f 54 4f ┆EN 650 630 A(X,Y+1)=1 640 GOTO┆ 0x07e0…0800 20 34 38 30 0d 0a 36 35 30 20 49 46 20 50 3d 31 20 54 48 45 4e 20 34 38 30 0d 0a 36 36 30 20 47 ┆ 480 650 IF P=1 THEN 480 660 G┆ 0x0800…0820 4f 53 55 42 20 31 32 31 30 0d 0a 36 37 30 20 50 52 49 4e 54 3a 50 52 49 4e 54 22 07 4d 59 20 4d ┆OSUB 1210 670 PRINT:PRINT" MY M┆ 0x0820…0840 4f 56 45 2e 2e 2e 20 20 22 0d 0a 36 38 30 20 46 4f 52 20 52 3d 34 20 54 4f 20 31 30 20 53 54 45 ┆OVE... " 680 FOR R=4 TO 10 STE┆ 0x0840…0860 50 20 32 0d 0a 36 39 30 20 46 4f 52 20 43 3d 34 20 54 4f 20 31 30 20 53 54 45 50 20 32 0d 0a 37 ┆P 2 690 FOR C=4 TO 10 STEP 2 7┆ 0x0860…0880 30 30 20 49 46 20 41 28 52 2d 31 2c 43 29 2b 41 28 52 2b 31 2c 43 29 2b 41 28 52 2c 43 2d 31 29 ┆00 IF A(R-1,C)+A(R+1,C)+A(R,C-1)┆ 0x0880…08a0 2b 41 28 52 2c 43 2b 31 29 3c 3e 31 35 30 20 54 48 45 4e 20 38 39 30 0d 0a 37 31 30 20 41 28 52 ┆+A(R,C+1)<>150 THEN 890 710 A(R┆ 0x08a0…08c0 2c 43 29 3d 2d 31 0d 0a 37 32 30 20 49 46 20 41 28 52 2d 31 2c 43 29 3c 3e 30 20 54 48 45 4e 20 ┆,C)=-1 720 IF A(R-1,C)<>0 THEN ┆ 0x08c0…08e0 37 36 30 0d 0a 37 33 30 20 41 28 52 2d 31 2c 43 29 3d 35 30 0d 0a 37 34 30 20 49 46 20 41 28 52 ┆760 730 A(R-1,C)=50 740 IF A(R┆ 0x08e0…0900 2d 33 2c 43 29 2b 41 28 52 2d 32 2c 43 2d 31 29 2b 41 28 52 2d 32 2c 43 2b 31 29 3c 3e 31 35 30 ┆-3,C)+A(R-2,C-1)+A(R-2,C+1)<>150┆ 0x0900…0920 20 54 48 45 4e 20 36 36 30 0d 0a 37 35 30 20 41 28 52 2d 32 2c 43 29 3d 2d 31 0d 0a 37 36 30 20 ┆ THEN 660 750 A(R-2,C)=-1 760 ┆ 0x0920…0940 49 46 20 41 28 52 2b 31 2c 43 29 3c 3e 30 20 54 48 45 4e 20 38 30 30 0d 0a 37 37 30 20 41 28 52 ┆IF A(R+1,C)<>0 THEN 800 770 A(R┆ 0x0940…0960 2b 31 2c 43 29 3d 35 30 0d 0a 37 38 30 20 49 46 20 41 28 52 2b 33 2c 43 29 2b 41 28 52 2b 32 2c ┆+1,C)=50 780 IF A(R+3,C)+A(R+2,┆ 0x0960…0980 43 2d 31 29 2b 41 28 52 2b 32 2c 43 2b 31 29 3c 3e 31 35 30 20 54 48 45 4e 20 36 36 30 0d 0a 37 ┆C-1)+A(R+2,C+1)<>150 THEN 660 7┆ 0x0980…09a0 39 30 20 41 28 52 2b 32 2c 43 29 3d 2d 31 0d 0a 38 30 30 20 49 46 20 41 28 52 2c 43 2d 31 29 3c ┆90 A(R+2,C)=-1 800 IF A(R,C-1)<┆ 0x09a0…09c0 3e 30 20 54 48 45 4e 20 38 34 30 0d 0a 38 31 30 20 41 28 52 2c 43 2d 31 29 3d 35 30 0d 0a 38 32 ┆>0 THEN 840 810 A(R,C-1)=50 82┆ 0x09c0…09e0 30 20 49 46 20 41 28 52 2c 43 2d 33 29 2b 41 28 52 2d 31 2c 43 2d 32 29 2b 41 28 52 2b 31 2c 43 ┆0 IF A(R,C-3)+A(R-1,C-2)+A(R+1,C┆ 0x09e0…0a00 2b 32 29 3c 3e 31 35 30 20 54 48 45 4e 20 36 36 30 0d 0a 38 33 30 20 41 28 52 2c 43 2d 32 29 3d ┆+2)<>150 THEN 660 830 A(R,C-2)=┆ 0x0a00…0a20 2d 31 0d 0a 38 34 30 20 49 46 20 41 28 52 2c 43 2b 31 29 3c 3e 30 20 54 48 45 4e 20 36 36 30 0d ┆-1 840 IF A(R,C+1)<>0 THEN 660 ┆ 0x0a20…0a40 0a 38 35 30 20 41 28 52 2c 43 2b 31 29 3d 35 30 0d 0a 38 36 30 20 49 46 20 41 28 52 2c 43 2b 33 ┆ 850 A(R,C+1)=50 860 IF A(R,C+3┆ 0x0a40…0a60 29 2b 41 28 52 2d 31 2c 43 2b 32 29 2b 41 28 52 2b 31 2c 43 2b 32 29 3c 3e 31 35 30 20 54 48 45 ┆)+A(R-1,C+2)+A(R+1,C+2)<>150 THE┆ 0x0a60…0a80 4e 20 36 36 30 0d 0a 38 37 30 20 41 28 52 2c 43 2b 32 29 3d 2d 31 0d 0a 38 38 30 20 47 4f 54 4f ┆N 660 870 A(R,C+2)=-1 880 GOTO┆ 0x0a80…0aa0 20 36 36 30 0d 0a 38 39 30 20 4e 45 58 54 20 43 2c 52 0d 0a 39 30 30 20 49 46 20 45 3e 31 20 54 ┆ 660 890 NEXT C,R 900 IF E>1 T┆ 0x0aa0…0ac0 48 45 4e 20 39 35 30 0d 0a 39 31 30 20 49 46 20 41 28 31 32 2d 58 2c 31 32 2d 59 29 3c 3e 30 20 ┆HEN 950 910 IF A(12-X,12-Y)<>0 ┆ 0x0ac0…0ae0 54 48 45 4e 20 39 35 30 0d 0a 39 32 30 20 41 28 31 32 2d 58 2c 31 32 2d 59 29 3d 35 30 0d 0a 39 ┆THEN 950 920 A(12-X,12-Y)=50 9┆ 0x0ae0…0b00 33 30 20 49 46 20 45 3e 31 20 54 48 45 4e 20 31 30 38 30 0d 0a 39 34 30 20 47 4f 54 4f 20 34 38 ┆30 IF E>1 THEN 1080 940 GOTO 48┆ 0x0b00…0b20 30 0d 0a 39 35 30 20 46 4f 52 20 52 3d 33 20 54 4f 20 39 0d 0a 39 36 30 20 46 4f 52 20 43 3d 33 ┆0 950 FOR R=3 TO 9 960 FOR C=3┆ 0x0b20…0b40 20 54 4f 20 39 0d 0a 39 37 30 20 49 46 20 28 52 2b 43 29 2f 32 3d 49 4e 54 28 28 52 2b 43 29 2f ┆ TO 9 970 IF (R+C)/2=INT((R+C)/┆ 0x0b40…0b60 32 29 20 54 48 45 4e 20 31 30 36 30 0d 0a 39 38 30 20 49 46 20 41 28 52 2c 43 29 3c 3e 30 20 54 ┆2) THEN 1060 980 IF A(R,C)<>0 T┆ 0x0b60…0b80 48 45 4e 20 31 30 36 30 0d 0a 39 39 30 20 49 46 20 52 2f 32 3d 49 4e 54 28 52 2f 32 29 20 54 48 ┆HEN 1060 990 IF R/2=INT(R/2) TH┆ 0x0b80…0ba0 45 4e 20 31 30 34 30 0d 0a 31 30 30 30 20 49 46 20 41 28 52 2d 32 2c 43 29 2b 41 28 52 2d 31 2c ┆EN 1040 1000 IF A(R-2,C)+A(R-1,┆ 0x0ba0…0bc0 43 2d 31 29 2b 41 28 52 2d 31 2c 43 2b 31 29 3d 31 30 30 20 54 48 45 4e 20 31 30 36 30 0d 0a 31 ┆C-1)+A(R-1,C+1)=100 THEN 1060 1┆ 0x0bc0…0be0 30 31 30 20 49 46 20 41 28 52 2b 32 2c 43 29 2b 41 28 52 2b 31 2c 43 2d 31 29 2b 41 28 52 2b 31 ┆010 IF A(R+2,C)+A(R+1,C-1)+A(R+1┆ 0x0be0…0c00 2c 43 2b 31 29 3d 31 30 30 20 54 48 45 4e 20 31 30 36 30 0d 0a 31 30 32 30 20 41 28 52 2c 43 29 ┆,C+1)=100 THEN 1060 1020 A(R,C)┆ 0x0c00…0c20 3d 35 30 0d 0a 31 30 33 30 20 47 4f 54 4f 20 34 38 30 0d 0a 31 30 34 30 20 49 46 20 41 28 52 2c ┆=50 1030 GOTO 480 1040 IF A(R,┆ 0x0c20…0c40 43 2d 32 29 2b 41 28 52 2d 31 2c 43 2d 31 29 2b 41 28 52 2b 31 2c 43 2d 31 29 3d 31 30 30 20 54 ┆C-2)+A(R-1,C-1)+A(R+1,C-1)=100 T┆ 0x0c40…0c60 48 45 4e 20 31 30 36 30 0d 0a 31 30 35 30 20 49 46 20 41 28 52 2c 43 2b 32 29 2b 41 28 52 2d 31 ┆HEN 1060 1050 IF A(R,C+2)+A(R-1┆ 0x0c60…0c80 2c 43 2b 32 29 2b 41 28 52 2b 31 2c 43 2b 31 29 3c 3e 31 30 30 20 54 48 45 4e 20 31 30 32 30 0d ┆,C+2)+A(R+1,C+1)<>100 THEN 1020 ┆ 0x0c80…0ca0 0a 31 30 36 30 20 4e 45 58 54 20 43 2c 52 0d 0a 31 30 37 30 20 49 46 20 45 3e 31 20 54 48 45 4e ┆ 1060 NEXT C,R 1070 IF E>1 THEN┆ 0x0ca0…0cc0 20 39 31 30 0d 0a 31 30 38 30 20 52 3d 49 4e 54 28 52 4e 44 2a 37 29 2b 33 0d 0a 31 30 39 30 20 ┆ 910 1080 R=INT(RND*7)+3 1090 ┆ 0x0cc0…0ce0 43 3d 49 4e 54 28 52 4e 44 2a 37 29 2b 33 0d 0a 31 31 30 30 20 49 46 20 52 2f 32 3d 49 4e 54 28 ┆C=INT(RND*7)+3 1100 IF R/2=INT(┆ 0x0ce0…0d00 52 2f 32 29 20 54 48 45 4e 20 31 31 33 30 0d 0a 31 31 31 30 20 49 46 20 43 2f 32 3d 49 4e 54 28 ┆R/2) THEN 1130 1110 IF C/2=INT(┆ 0x0d00…0d20 43 2f 32 29 20 54 48 45 4e 20 31 31 35 30 0d 0a 31 31 32 30 20 47 4f 54 4f 20 31 30 38 30 0d 0a ┆C/2) THEN 1150 1120 GOTO 1080 ┆ 0x0d20…0d40 31 31 33 30 20 49 46 20 43 2f 32 3c 3e 49 4e 54 28 43 2f 32 29 20 54 48 45 4e 20 31 31 35 30 0d ┆1130 IF C/2<>INT(C/2) THEN 1150 ┆ 0x0d40…0d60 0a 31 31 34 30 20 47 4f 54 4f 20 31 30 38 30 0d 0a 31 31 35 30 20 49 46 20 41 28 52 2c 43 29 3c ┆ 1140 GOTO 1080 1150 IF A(R,C)<┆ 0x0d60…0d80 3e 30 20 54 48 45 4e 20 31 30 38 30 0d 0a 31 31 36 30 20 41 28 52 2c 43 29 3d 35 30 0d 0a 31 31 ┆>0 THEN 1080 1160 A(R,C)=50 11┆ 0x0d80…0da0 37 30 20 47 4f 54 4f 20 34 38 30 0d 0a 31 31 38 30 20 50 52 49 4e 54 3a 50 52 49 4e 54 22 50 4c ┆70 GOTO 480 1180 PRINT:PRINT"PL┆ 0x0da0…0dc0 41 59 20 41 47 41 49 4e 3f 20 28 59 2f 4e 29 20 22 3b 3a 58 24 3d 49 4e 50 55 54 24 28 31 29 0d ┆AY AGAIN? (Y/N) ";:X$=INPUT$(1) ┆ 0x0dc0…0de0 0a 31 31 39 30 20 49 46 20 58 24 3d 22 59 22 20 54 48 45 4e 20 33 35 30 0d 0a 31 32 30 30 20 50 ┆ 1190 IF X$="Y" THEN 350 1200 P┆ 0x0de0…0e00 52 49 4e 54 20 58 24 3a 45 4e 44 0d 0a 31 32 31 30 20 50 3d 30 3a 44 3d 30 3a 45 3d 30 0d 0a 31 ┆RINT X$:END 1210 P=0:D=0:E=0 1┆ 0x0e00…0e20 32 32 30 20 46 4f 52 20 52 3d 33 20 54 4f 20 39 0d 0a 31 32 33 30 20 4f 4e 20 52 2d 32 20 47 4f ┆220 FOR R=3 TO 9 1230 ON R-2 GO┆ 0x0e20…0e40 53 55 42 20 31 32 35 30 2c 31 32 36 30 2c 31 32 35 30 2c 31 32 36 30 2c 31 32 35 30 2c 31 32 36 ┆SUB 1250,1260,1250,1260,1250,126┆ 0x0e40…0e60 30 2c 31 32 35 30 0d 0a 31 32 34 30 20 4e 45 58 54 3a 47 4f 54 4f 20 31 33 37 30 0d 0a 31 32 35 ┆0,1250 1240 NEXT:GOTO 1370 125┆ 0x0e60…0e80 30 20 41 24 28 52 2d 32 29 3d 47 52 24 2b 43 48 52 24 28 31 33 29 2b 53 54 52 49 4e 47 24 28 36 ┆0 A$(R-2)=GR$+CHR$(13)+STRING$(6┆ 0x0e80…0ea0 2c 28 33 32 2b 28 28 41 28 52 2c 34 29 3d 35 30 29 2a 31 30 29 29 29 2b 43 48 52 24 28 31 33 29 ┆,(32+((A(R,4)=50)*10)))+CHR$(13)┆ 0x0ea0…0ec0 2b 53 54 52 49 4e 47 24 28 36 2c 28 33 32 2b 28 28 41 28 52 2c 36 29 3d 35 30 29 2a 31 30 29 29 ┆+STRING$(6,(32+((A(R,6)=50)*10))┆ 0x0ec0…0ee0 29 2b 43 48 52 24 28 31 33 29 2b 53 54 52 49 4e 47 24 28 36 2c 28 33 32 2b 28 28 41 28 52 2c 38 ┆)+CHR$(13)+STRING$(6,(32+((A(R,8┆ 0x0ee0…0f00 29 3d 35 30 29 2a 31 30 29 29 29 2b 43 48 52 24 28 31 33 29 2b 4e 47 24 3a 52 45 54 55 52 4e 0d ┆)=50)*10)))+CHR$(13)+NG$:RETURN ┆ 0x0f00…0f20 0a 31 32 36 30 20 41 24 28 52 2d 32 29 3d 47 52 24 2b 43 48 52 24 28 33 32 2b 28 28 41 28 52 2c ┆ 1260 A$(R-2)=GR$+CHR$(32+((A(R,┆ 0x0f20…0f40 33 29 3d 35 30 29 2a 31 30 29 29 2b 4e 47 24 0d 0a 31 32 37 30 20 49 46 20 41 28 52 2c 34 29 3d ┆3)=50)*10))+NG$ 1270 IF A(R,4)=┆ 0x0f40…0f60 31 20 54 48 45 4e 20 41 24 28 52 2d 32 29 3d 41 24 28 52 2d 32 29 2b 48 49 24 2b 22 50 4c 41 59 ┆1 THEN A$(R-2)=A$(R-2)+HI$+"PLAY┆ 0x0f60…0f80 45 52 22 2b 4e 49 24 3a 45 3d 45 2b 31 3a 47 4f 54 4f 20 31 32 39 30 0d 0a 31 32 38 30 20 49 46 ┆ER"+NI$:E=E+1:GOTO 1290 1280 IF┆ 0x0f80…0fa0 20 41 28 52 2c 34 29 3d 2d 31 20 54 48 45 4e 20 41 24 28 52 2d 32 29 3d 41 24 28 52 2d 32 29 2b ┆ A(R,4)=-1 THEN A$(R-2)=A$(R-2)+┆ 0x0fa0…0fc0 48 49 24 2b 22 20 43 4f 4d 50 20 22 2b 4e 49 24 3a 44 3d 44 2b 31 20 45 4c 53 45 20 41 24 28 52 ┆HI$+" COMP "+NI$:D=D+1 ELSE A$(R┆ 0x0fc0…0fe0 2d 32 29 3d 41 24 28 52 2d 32 29 2b 22 20 20 20 20 20 20 22 0d 0a 31 32 39 30 20 41 24 28 52 2d ┆-2)=A$(R-2)+" " 1290 A$(R-┆ 0x0fe0…1000 32 29 3d 41 24 28 52 2d 32 29 2b 47 52 24 2b 43 48 52 24 28 33 32 2b 28 28 41 28 52 2c 35 29 3d ┆2)=A$(R-2)+GR$+CHR$(32+((A(R,5)=┆ 0x1000…1020 35 30 29 2a 31 30 29 29 2b 4e 47 24 0d 0a 31 33 30 30 20 49 46 20 41 28 52 2c 36 29 3d 31 20 54 ┆50)*10))+NG$ 1300 IF A(R,6)=1 T┆ 0x1020…1040 48 45 4e 20 41 24 28 52 2d 32 29 3d 41 24 28 52 2d 32 29 2b 48 49 24 2b 22 50 4c 41 59 45 52 22 ┆HEN A$(R-2)=A$(R-2)+HI$+"PLAYER"┆ 0x1040…1060 2b 4e 49 24 3a 45 3d 45 2b 31 3a 47 4f 54 4f 20 31 33 32 30 0d 0a 31 33 31 30 20 49 46 20 41 28 ┆+NI$:E=E+1:GOTO 1320 1310 IF A(┆ 0x1060…1080 52 2c 36 29 3d 2d 31 20 54 48 45 4e 20 41 24 28 52 2d 32 29 3d 41 24 28 52 2d 32 29 2b 48 49 24 ┆R,6)=-1 THEN A$(R-2)=A$(R-2)+HI$┆ 0x1080…10a0 2b 22 20 43 4f 4d 50 20 22 2b 4e 49 24 3a 44 3d 44 2b 31 20 45 4c 53 45 20 41 24 28 52 2d 32 29 ┆+" COMP "+NI$:D=D+1 ELSE A$(R-2)┆ 0x10a0…10c0 3d 41 24 28 52 2d 32 29 2b 22 20 20 20 20 20 20 22 0d 0a 31 33 32 30 20 41 24 28 52 2d 32 29 3d ┆=A$(R-2)+" " 1320 A$(R-2)=┆ 0x10c0…10e0 41 24 28 52 2d 32 29 2b 47 52 24 2b 43 48 52 24 28 33 32 2b 28 28 41 28 52 2c 37 29 3d 35 30 29 ┆A$(R-2)+GR$+CHR$(32+((A(R,7)=50)┆ 0x10e0…1100 2a 31 30 29 29 2b 4e 47 24 0d 0a 31 33 33 30 20 49 46 20 41 28 52 2c 38 29 3d 31 20 54 48 45 4e ┆*10))+NG$ 1330 IF A(R,8)=1 THEN┆ 0x1100…1120 20 41 24 28 52 2d 32 29 3d 41 24 28 52 2d 32 29 2b 48 49 24 2b 22 50 4c 41 59 45 52 22 2b 4e 49 ┆ A$(R-2)=A$(R-2)+HI$+"PLAYER"+NI┆ 0x1120…1140 24 3a 45 3d 45 2b 31 3a 47 4f 54 4f 20 31 33 35 30 0d 0a 31 33 34 30 20 49 46 20 41 28 52 2c 38 ┆$:E=E+1:GOTO 1350 1340 IF A(R,8┆ 0x1140…1160 29 3d 2d 31 20 54 48 45 4e 20 41 24 28 52 2d 32 29 3d 41 24 28 52 2d 32 29 2b 48 49 24 2b 22 20 ┆)=-1 THEN A$(R-2)=A$(R-2)+HI$+" ┆ 0x1160…1180 43 4f 4d 50 20 22 2b 4e 49 24 3a 44 3d 44 2b 31 20 45 4c 53 45 20 41 24 28 52 2d 32 29 3d 41 24 ┆COMP "+NI$:D=D+1 ELSE A$(R-2)=A$┆ 0x1180…11a0 28 52 2d 32 29 2b 22 20 20 20 20 20 20 22 0d 0a 31 33 35 30 20 41 24 28 52 2d 32 29 3d 41 24 28 ┆(R-2)+" " 1350 A$(R-2)=A$(┆ 0x11a0…11c0 52 2d 32 29 2b 47 52 24 2b 43 48 52 24 28 33 32 2b 28 28 41 28 52 2c 39 29 3d 35 30 29 2a 31 30 ┆R-2)+GR$+CHR$(32+((A(R,9)=50)*10┆ 0x11c0…11e0 29 29 2b 4e 47 24 0d 0a 31 33 36 30 20 52 45 54 55 52 4e 0d 0a 31 33 37 30 20 50 52 49 4e 54 20 ┆))+NG$ 1360 RETURN 1370 PRINT ┆ 0x11e0…1200 43 48 52 24 28 26 48 31 45 29 0d 0a 31 33 38 30 20 46 4f 52 20 58 58 58 3d 31 20 54 4f 20 37 0d ┆CHR$(&H1E) 1380 FOR XXX=1 TO 7 ┆ 0x1200…1220 0a 31 33 39 30 20 49 46 20 58 58 58 20 4d 4f 44 20 32 20 3d 20 30 20 54 48 45 4e 20 31 34 31 30 ┆ 1390 IF XXX MOD 2 = 0 THEN 1410┆ 0x1220…1240 0d 0a 31 34 30 30 20 50 52 49 4e 54 20 54 41 42 28 31 35 29 3b 41 24 28 58 58 58 29 3a 47 4f 54 ┆ 1400 PRINT TAB(15);A$(XXX):GOT┆ 0x1240…1260 4f 20 31 34 34 30 0d 0a 31 34 31 30 20 46 4f 52 20 59 59 59 3d 31 20 54 4f 20 33 0d 0a 31 34 32 ┆O 1440 1410 FOR YYY=1 TO 3 142┆ 0x1260…1280 30 20 50 52 49 4e 54 20 54 41 42 28 31 35 29 3b 41 24 28 58 58 58 29 0d 0a 31 34 33 30 20 4e 45 ┆0 PRINT TAB(15);A$(XXX) 1430 NE┆ 0x1280…12a0 58 54 20 59 59 59 0d 0a 31 34 34 30 20 4e 45 58 54 20 58 58 58 0d 0a 31 34 35 30 20 49 46 20 45 ┆XT YYY 1440 NEXT XXX 1450 IF E┆ 0x12a0…12c0 3e 3d 35 20 54 48 45 4e 20 50 52 49 4e 54 3a 50 52 49 4e 54 22 07 59 4f 55 20 57 4f 4e 21 20 20 ┆>=5 THEN PRINT:PRINT" YOU WON! ┆ 0x12c0…12e0 20 20 20 20 20 22 3a 50 52 49 4e 54 3a 47 4f 54 4f 20 31 31 38 30 0d 0a 31 34 36 30 20 49 46 20 ┆ ":PRINT:GOTO 1180 1460 IF ┆ 0x12e0…1300 44 3e 3d 35 20 54 48 45 4e 20 50 52 49 4e 54 3a 50 52 49 4e 54 22 07 49 20 57 4f 4e 21 20 20 20 ┆D>=5 THEN PRINT:PRINT" I WON! ┆ 0x1300…1320 20 20 20 20 20 20 22 3a 50 52 49 4e 54 3a 47 4f 54 4f 20 31 31 38 30 0d 0a 31 34 37 30 20 52 45 ┆ ":PRINT:GOTO 1180 1470 RE┆ 0x1320…1340 54 55 52 4e 0d 0a 31 34 38 30 20 46 4f 52 20 52 3d 33 20 54 4f 20 39 0d 0a 31 34 39 30 20 46 4f ┆TURN 1480 FOR R=3 TO 9 1490 FO┆ 0x1340…1360 52 20 43 3d 33 20 54 4f 20 39 0d 0a 31 35 30 30 20 49 46 20 58 28 52 2c 43 29 3d 30 20 54 48 45 ┆R C=3 TO 9 1500 IF X(R,C)=0 THE┆ 0x1360…1380 4e 20 31 35 32 30 0d 0a 31 35 31 30 20 49 46 20 41 28 52 2c 43 29 3d 30 20 54 48 45 4e 20 31 35 ┆N 1520 1510 IF A(R,C)=0 THEN 15┆ 0x1380…13a0 33 30 0d 0a 31 35 32 30 20 4e 45 58 54 20 43 2c 52 0d 0a 31 35 33 30 20 58 58 3d 58 28 52 2c 43 ┆30 1520 NEXT C,R 1530 XX=X(R,C┆ 0x13a0…13c0 29 3a 59 59 3d 59 28 52 2c 43 29 0d 0a 31 35 34 30 20 50 4f 4b 45 20 36 31 34 34 30 21 2b 58 58 ┆):YY=Y(R,C) 1540 POKE 61440!+XX┆ 0x13c0…13e0 2b 31 32 38 2a 59 59 2c 30 0d 0a 31 35 35 30 20 4d 24 3d 49 4e 50 55 54 24 28 31 29 0d 0a 31 35 ┆+128*YY,0 1550 M$=INPUT$(1) 15┆ 0x13e0…1400 36 30 20 49 46 20 4d 24 3d 43 48 52 24 28 38 29 20 54 48 45 4e 20 47 4f 53 55 42 20 31 36 32 30 ┆60 IF M$=CHR$(8) THEN GOSUB 1620┆ 0x1400…1420 0d 0a 31 35 37 30 20 49 46 20 4d 24 3d 43 48 52 24 28 31 30 29 20 54 48 45 4e 20 47 4f 53 55 42 ┆ 1570 IF M$=CHR$(10) THEN GOSUB┆ 0x1420…1440 20 31 37 33 30 0d 0a 31 35 38 30 20 49 46 20 4d 24 3d 43 48 52 24 28 31 31 29 20 54 48 45 4e 20 ┆ 1730 1580 IF M$=CHR$(11) THEN ┆ 0x1440…1460 47 4f 53 55 42 20 31 38 36 30 0d 0a 31 35 39 30 20 49 46 20 4d 24 3d 43 48 52 24 28 31 32 29 20 ┆GOSUB 1860 1590 IF M$=CHR$(12) ┆ 0x1460…1480 54 48 45 4e 20 47 4f 53 55 42 20 32 30 31 30 0d 0a 31 36 30 30 20 49 46 20 4d 24 3d 43 48 52 24 ┆THEN GOSUB 2010 1600 IF M$=CHR$┆ 0x1480…14a0 28 31 33 29 20 54 48 45 4e 20 58 3d 52 3a 59 3d 43 3a 52 45 54 55 52 4e 0d 0a 31 36 31 30 20 47 ┆(13) THEN X=R:Y=C:RETURN 1610 G┆ 0x14a0…14c0 4f 54 4f 20 31 35 34 30 0d 0a 31 36 32 30 20 49 46 20 58 58 3d 31 34 20 41 4e 44 20 28 59 59 3d ┆OTO 1540 1620 IF XX=14 AND (YY=┆ 0x14c0…14e0 33 20 4f 52 20 59 59 3d 37 20 4f 52 20 59 59 3d 31 31 29 20 54 48 45 4e 20 50 52 49 4e 54 20 43 ┆3 OR YY=7 OR YY=11) THEN PRINT C┆ 0x14e0…1500 48 52 24 28 37 29 3b 3a 52 45 54 55 52 4e 0d 0a 31 36 33 30 20 49 46 20 58 58 3d 31 37 20 41 4e ┆HR$(7);:RETURN 1630 IF XX=17 AN┆ 0x1500…1520 44 20 28 59 59 3d 31 20 4f 52 20 59 59 3d 35 20 4f 52 20 59 59 3d 39 20 4f 52 20 59 59 3d 31 33 ┆D (YY=1 OR YY=5 OR YY=9 OR YY=13┆ 0x1520…1540 29 20 54 48 45 4e 20 50 52 49 4e 54 20 43 48 52 24 28 37 29 3b 3a 52 45 54 55 52 4e 0d 0a 31 36 ┆) THEN PRINT CHR$(7);:RETURN 16┆ 0x1540…1560 34 30 20 49 46 20 28 59 59 3d 31 20 4f 52 20 59 59 3d 35 20 4f 52 20 59 59 3d 39 20 4f 52 20 59 ┆40 IF (YY=1 OR YY=5 OR YY=9 OR Y┆ 0x1560…1580 59 3d 31 33 29 20 54 48 45 4e 20 31 36 39 30 0d 0a 31 36 35 30 20 43 43 3d 43 2d 32 0d 0a 31 36 ┆Y=13) THEN 1690 1650 CC=C-2 16┆ 0x1580…15a0 36 30 20 49 46 20 43 43 3e 3d 33 20 54 48 45 4e 20 31 36 37 30 20 45 4c 53 45 20 50 52 49 4e 54 ┆60 IF CC>=3 THEN 1670 ELSE PRINT┆ 0x15a0…15c0 20 43 48 52 24 28 37 29 3b 3a 52 45 54 55 52 4e 0d 0a 31 36 37 30 20 49 46 20 41 28 52 2c 43 43 ┆ CHR$(7);:RETURN 1670 IF A(R,CC┆ 0x15c0…15e0 29 3c 3e 30 20 54 48 45 4e 20 43 43 3d 43 43 2d 32 3a 47 4f 54 4f 20 31 36 36 30 0d 0a 31 36 38 ┆)<>0 THEN CC=CC-2:GOTO 1660 168┆ 0x15e0…1600 30 20 50 4f 4b 45 20 36 31 34 34 30 21 2b 58 58 2b 31 32 38 2a 59 59 2c 33 32 3a 43 3d 43 43 3a ┆0 POKE 61440!+XX+128*YY,32:C=CC:┆ 0x1600…1620 58 58 3d 58 28 52 2c 43 29 3a 52 45 54 55 52 4e 0d 0a 31 36 39 30 20 43 43 3d 43 2d 32 0d 0a 31 ┆XX=X(R,C):RETURN 1690 CC=C-2 1┆ 0x1620…1640 37 30 30 20 49 46 20 43 43 3e 3d 34 20 54 48 45 4e 20 31 37 31 30 20 45 4c 53 45 20 50 52 49 4e ┆700 IF CC>=4 THEN 1710 ELSE PRIN┆ 0x1640…1660 54 20 43 48 52 24 28 37 29 3b 3a 52 45 54 55 52 4e 0d 0a 31 37 31 30 20 49 46 20 41 28 52 2c 43 ┆T CHR$(7);:RETURN 1710 IF A(R,C┆ 0x1660…1680 43 29 3c 3e 30 20 54 48 45 4e 20 43 43 3d 43 43 2d 32 3a 47 4f 54 4f 20 31 37 30 30 0d 0a 31 37 ┆C)<>0 THEN CC=CC-2:GOTO 1700 17┆ 0x1680…16a0 32 30 20 47 4f 54 4f 20 31 36 38 30 0d 0a 31 37 33 30 20 52 52 3d 52 0d 0a 31 37 34 30 20 49 46 ┆20 GOTO 1680 1730 RR=R 1740 IF┆ 0x16a0…16c0 20 52 52 3e 38 20 54 48 45 4e 20 50 52 49 4e 54 20 43 48 52 24 28 37 29 3b 3a 52 45 54 55 52 4e ┆ RR>8 THEN PRINT CHR$(7);:RETURN┆ 0x16c0…16e0 0d 0a 31 37 35 30 20 49 46 20 28 52 52 3d 34 20 4f 52 20 52 52 3d 36 20 4f 52 20 52 52 3d 38 29 ┆ 1750 IF (RR=4 OR RR=6 OR RR=8)┆ 0x16e0…1700 20 54 48 45 4e 20 31 37 39 30 0d 0a 31 37 36 30 20 52 52 3d 52 52 2b 31 3a 46 4f 52 20 43 43 3d ┆ THEN 1790 1760 RR=RR+1:FOR CC=┆ 0x1700…1720 33 20 54 4f 20 39 20 53 54 45 50 20 32 0d 0a 31 37 37 30 20 49 46 20 41 28 52 52 2c 43 43 29 3c ┆3 TO 9 STEP 2 1770 IF A(RR,CC)<┆ 0x1720…1740 3e 35 30 20 54 48 45 4e 20 31 38 34 30 0d 0a 31 37 38 30 20 4e 45 58 54 20 43 43 0d 0a 31 37 39 ┆>50 THEN 1840 1780 NEXT CC 179┆ 0x1740…1760 30 20 52 52 3d 52 52 2b 31 0d 0a 31 38 30 30 20 46 4f 52 20 43 43 3d 34 20 54 4f 20 38 20 53 54 ┆0 RR=RR+1 1800 FOR CC=4 TO 8 ST┆ 0x1760…1780 45 50 20 32 0d 0a 31 38 31 30 20 49 46 20 41 28 52 52 2c 43 43 29 3c 3e 35 30 20 54 48 45 4e 20 ┆EP 2 1810 IF A(RR,CC)<>50 THEN ┆ 0x1780…17a0 31 38 34 30 0d 0a 31 38 32 30 20 4e 45 58 54 20 43 43 0d 0a 31 38 33 30 20 52 3d 52 2b 31 3a 47 ┆1840 1820 NEXT CC 1830 R=R+1:G┆ 0x17a0…17c0 4f 54 4f 20 31 37 34 30 0d 0a 31 38 34 30 20 50 4f 4b 45 20 36 31 34 34 30 21 2b 58 58 2b 31 32 ┆OTO 1740 1840 POKE 61440!+XX+12┆ 0x17c0…17e0 38 2a 59 59 2c 33 32 3a 52 3d 52 52 3a 43 3d 43 43 3a 58 58 3d 58 28 52 2c 43 29 3a 59 59 3d 59 ┆8*YY,32:R=RR:C=CC:XX=X(R,C):YY=Y┆ 0x17e0…1800 28 52 2c 43 29 0d 0a 31 38 35 30 20 52 45 54 55 52 4e 0d 0a 31 38 36 30 20 52 52 3d 52 0d 0a 31 ┆(R,C) 1850 RETURN 1860 RR=R 1┆ 0x1800…1820 38 37 30 20 52 52 3d 52 52 2d 31 0d 0a 31 38 38 30 20 49 46 20 52 52 3c 33 20 54 48 45 4e 20 50 ┆870 RR=RR-1 1880 IF RR<3 THEN P┆ 0x1820…1840 52 49 4e 54 20 43 48 52 24 28 37 29 3b 3a 52 45 54 55 52 4e 0d 0a 31 38 39 30 20 49 46 20 28 52 ┆RINT CHR$(7);:RETURN 1890 IF (R┆ 0x1840…1860 52 3d 33 20 4f 52 20 52 52 3d 35 20 4f 52 20 52 52 3d 37 20 4f 52 20 52 52 3d 39 29 20 54 48 45 ┆R=3 OR RR=5 OR RR=7 OR RR=9) THE┆ 0x1860…1880 4e 20 31 39 34 30 0d 0a 31 39 30 30 20 46 4f 52 20 43 43 3d 33 20 54 4f 20 39 20 53 54 45 50 20 ┆N 1940 1900 FOR CC=3 TO 9 STEP ┆ 0x1880…18a0 32 0d 0a 31 39 31 30 20 49 46 20 41 28 52 52 2c 43 43 29 3c 3e 35 30 20 54 48 45 4e 20 31 39 39 ┆2 1910 IF A(RR,CC)<>50 THEN 199┆ 0x18a0…18c0 30 0d 0a 31 39 32 30 20 4e 45 58 54 20 43 43 0d 0a 31 39 33 30 20 52 52 3d 52 52 2d 31 0d 0a 31 ┆0 1920 NEXT CC 1930 RR=RR-1 1┆ 0x18c0…18e0 39 34 30 20 46 4f 52 20 43 43 3d 34 20 54 4f 20 38 20 53 54 45 50 20 32 0d 0a 31 39 35 30 20 49 ┆940 FOR CC=4 TO 8 STEP 2 1950 I┆ 0x18e0…1900 46 20 41 28 52 52 2c 43 43 29 3c 3e 35 30 20 54 48 45 4e 20 31 39 39 30 0d 0a 31 39 36 30 20 4e ┆F A(RR,CC)<>50 THEN 1990 1960 N┆ 0x1900…1920 45 58 54 20 43 43 0d 0a 31 39 37 30 20 52 52 3d 52 52 2d 31 0d 0a 31 39 38 30 20 47 4f 54 4f 20 ┆EXT CC 1970 RR=RR-1 1980 GOTO ┆ […truncated at 200 lines…]