|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 11776 (0x2e00)
Names: ».5«
└─⟦45bd0f8dd⟧ Bits:30000464 DOMUS disk image
└─ ⟦this⟧ »/.5«
└─⟦a2e222af0⟧ Bits:30001626 DOMUS disk image
└─ ⟦this⟧ »/.5«
0x0000…0020 4d 68 28 31 29 20 45 52 20 44 45 54 20 51 16 60 69 16 69 28 32 29 20 49 53 20 54 48 45 20 43 41 ┆Mh(1) ER DET Q `i i(2) IS THE CA┆ 0x0020…0040 50 49 54 41 4c 20 43 41 49 52 4f 20 3f 69 56 68 33 68 28 31 38 29 20 44 4f 45 53 20 54 48 45 20 ┆PITAL CAIRO ?iVh3h(18) DOES THE ┆ 0x0040…0060 4e 41 4d 45 20 53 54 41 52 54 20 57 49 54 48 20 45 49 54 48 45 52 20 41 20 3c 42 3e 20 4f 52 20 ┆NAME START WITH EITHER A <B> OR ┆ 0x0060…0080 41 4e 20 3c 49 3e 20 28 59 2f 4e 29 20 3f 1b 60 69 1c 69 28 31 29 20 49 53 20 49 54 20 42 48 55 ┆AN <I> (Y/N) ? `i i(1) IS IT BHU┆ 0x0080…00a0 54 41 4e 20 3f 16 60 69 16 69 28 32 29 20 49 53 20 54 48 45 20 4c 41 53 54 20 4c 45 54 54 45 52 ┆TAN ? `i i(2) IS THE LAST LETTER┆ 0x00a0…00c0 20 3c 51 3e 20 4f 52 20 3c 4b 3e 20 28 59 45 53 5e 2f 4e 4f 29 0e 69 0d 0a 60 69 28 31 29 20 49 ┆ <Q> OR <K> (YES^/NO) i `i(1) I┆ 0x00c0…00e0 53 20 49 54 20 4f 4d 41 4e 20 3f 16 60 69 16 69 28 32 29 20 49 53 20 54 48 45 20 43 41 50 49 54 ┆S IT OMAN ? `i i(2) IS THE CAPIT┆ 0x00e0…0100 41 4c 20 41 42 45 42 41 20 3f 55 68 31 68 28 31 29 20 49 53 20 49 54 20 44 41 48 4f 4d 45 59 20 ┆AL ABEBA ?Uh1h(1) IS IT DAHOMEY ┆ 0x0100…0120 3f 16 60 69 16 69 30 20 31 20 32 20 33 20 34 20 35 20 36 20 37 20 38 20 39 20 2e 2e 2e 2e 2e 2e ┆? `i i0 1 2 3 4 5 6 7 8 9 ......┆ 0x0120…0140 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 46 49 4e 49 53 48 60 ┆.........................FINISH`┆ 0x0140…0160 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 ┆````````````````````````````````┆ 0x0160…0180 60 60 60 60 60 60 60 60 60 60 60 20 30 30 31 30 20 4f 4e 20 45 53 43 20 45 58 45 43 20 53 4c 55 ┆``````````` 0010 ON ESC EXEC SLU┆ 0x0180…01a0 54 54 45 0d 0a 20 30 30 32 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆TTE 0020 REM //---------------┆ 0x01a0…01c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f ┆-------------------------------/┆ 0x01c0…01e0 2f 0d 0a 20 30 30 33 30 20 52 45 4d 20 2f 2f 20 50 52 4f 47 52 41 4d 20 3a 20 4f 54 48 45 4c 4c ┆/ 0030 REM // PROGRAM : OTHELL┆ 0x01e0…0200 4f 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 2f 2f 0d ┆O // ┆ 0x0200…0220 0a 20 30 30 34 30 20 52 45 4d 20 2f 2f 20 53 4b 52 45 56 45 54 20 41 46 20 3a 20 45 52 49 4b 20 ┆ 0040 REM // SKREVET AF : ERIK ┆ 0x0220…0240 54 2e 20 4e 49 45 4c 53 45 4e 20 49 20 52 43 37 30 30 20 43 4f 4d 41 4c 20 20 20 2f 2f 0d 0a 20 ┆T. NIELSEN I RC700 COMAL // ┆ 0x0240…0260 30 30 35 30 20 52 45 4d 20 2f 2f 20 53 54 45 44 20 3a 20 52 49 53 4d 5c 4c 4c 45 53 4b 4f 4c 45 ┆0050 REM // STED : RISMØLLESKOLE┆ 0x0260…0280 4e 2c 20 52 41 4e 44 45 52 53 2c 20 44 45 4e 20 38 2e 35 2e 38 30 20 20 20 2f 2f 0d 0a 20 30 30 ┆N, RANDERS, DEN 8.5.80 // 00┆ 0x0280…02a0 36 30 20 52 45 4d 20 2f 2f 20 44 45 4e 4e 45 20 56 45 52 53 49 4f 4e 20 45 52 20 41 46 20 3a 20 ┆60 REM // DENNE VERSION ER AF : ┆ 0x02a0…02c0 32 32 2e 31 32 2e 38 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 0d 0a 20 30 30 37 ┆22.12.80 // 007┆ 0x02c0…02e0 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0 REM //------------------------┆ 0x02e0…0300 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 30 30 38 30 20 ┆----------------------// 0080 ┆ 0x0300…0320 52 41 4e 44 4f 4d 49 5a 45 20 2f 2f 20 53 54 41 52 54 20 4f 46 20 4f 54 48 45 4c 4c 4f 20 2f 2f ┆RANDOMIZE // START OF OTHELLO //┆ 0x0320…0340 0d 0a 20 30 30 39 30 20 45 58 45 43 20 53 54 41 52 54 0d 0a 20 30 31 30 30 20 45 58 45 43 20 53 ┆ 0090 EXEC START 0100 EXEC S┆ 0x0340…0360 50 49 4c 0d 0a 20 30 31 31 30 20 45 58 45 43 20 53 4c 55 54 0d 0a 20 30 31 32 30 20 45 58 45 43 ┆PIL 0110 EXEC SLUT 0120 EXEC┆ 0x0360…0380 20 53 4c 55 54 54 45 0d 0a 20 30 31 33 30 20 53 54 4f 50 20 2f 2f 20 45 4e 44 20 4f 46 20 4f 54 ┆ SLUTTE 0130 STOP // END OF OT┆ 0x0380…03a0 48 45 4c 4c 4f 20 2f 2f 0d 0a 20 30 31 34 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆HELLO // 0140 REM //----------┆ 0x03a0…03c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x03c0…03e0 2d 2d 2d 2d 2f 2f 0d 0a 20 30 31 35 30 20 50 52 4f 43 20 53 54 41 52 54 0d 0a 20 30 31 36 30 20 ┆----// 0150 PROC START 0160 ┆ 0x03e0…0400 20 20 44 49 4d 20 42 52 5b 54 28 31 30 2c 31 30 29 2c 58 28 38 29 2c 59 28 38 29 2c 4b 52 59 44 ┆ DIM BRÆT(10,10),X(8),Y(8),KRYD┆ 0x0400…0420 53 24 28 31 29 2c 54 24 28 33 29 0d 0a 20 30 31 37 30 20 20 20 44 49 4d 20 56 45 52 54 49 28 31 ┆S$(1),T$(3) 0170 DIM VERTI(1┆ 0x0420…0440 30 29 2c 48 4f 52 49 5a 28 31 30 29 2c 50 4c 41 43 45 52 49 4e 47 24 28 32 29 0d 0a 20 30 31 38 ┆0),HORIZ(10),PLACERING$(2) 018┆ 0x0440…0460 30 20 20 20 46 4f 52 20 49 3d 31 20 54 4f 20 38 0d 0a 20 30 31 39 30 20 20 20 20 20 52 45 41 44 ┆0 FOR I=1 TO 8 0190 READ┆ 0x0460…0480 20 58 28 49 29 2c 59 28 49 29 0d 0a 20 30 32 30 30 20 20 20 4e 45 58 54 20 49 0d 0a 20 30 32 31 ┆ X(I),Y(I) 0200 NEXT I 021┆ 0x0480…04a0 30 20 20 20 44 41 54 41 20 31 2c 2d 31 2c 31 2c 30 2c 31 2c 31 2c 30 2c 2d 31 2c 2d 31 2c 2d 31 ┆0 DATA 1,-1,1,0,1,1,0,-1,-1,-1┆ 0x04a0…04c0 2c 2d 31 2c 30 2c 2d 31 2c 31 2c 30 2c 31 0d 0a 20 30 32 32 30 20 20 20 50 52 49 4e 54 20 43 48 ┆,-1,0,-1,1,0,1 0220 PRINT CH┆ 0x04c0…04e0 52 28 31 32 29 0d 0a 20 30 32 33 30 20 20 20 45 58 45 43 20 43 55 52 53 4f 52 28 31 2c 32 31 2c ┆R(12) 0230 EXEC CURSOR(1,21,┆ 0x04e0…0500 33 32 29 0d 0a 20 30 32 34 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 32 35 30 20 20 20 20 20 ┆32) 0240 REPEAT 0250 ┆ 0x0500…0520 50 52 49 4e 54 20 43 48 52 28 32 36 29 3b 20 43 48 52 28 33 30 29 3b 20 0d 0a 20 30 32 36 30 20 ┆PRINT CHR(26); CHR(30); 0260 ┆ 0x0520…0540 20 20 20 20 49 4e 50 55 54 20 22 20 59 4f 55 52 20 43 48 4f 49 43 45 20 3a 20 20 58 20 4f 52 20 ┆ INPUT " YOUR CHOICE : X OR ┆ 0x0540…0560 4f 20 3a 20 22 2c 4b 52 59 44 53 24 0d 0a 20 30 32 37 30 20 20 20 20 20 49 46 20 4b 52 59 44 53 ┆O : ",KRYDS$ 0270 IF KRYDS┆ 0x0560…0580 24 3d 22 58 22 20 54 48 45 4e 20 4b 52 59 44 53 24 3d 22 58 22 0d 0a 20 30 32 38 30 20 20 20 20 ┆$="X" THEN KRYDS$="X" 0280 ┆ 0x0580…05a0 20 49 46 20 4b 52 59 44 53 24 3d 22 4f 22 20 54 48 45 4e 20 4b 52 59 44 53 24 3d 22 4f 22 0d 0a ┆ IF KRYDS$="O" THEN KRYDS$="O" ┆ 0x05a0…05c0 20 30 32 39 30 20 20 20 55 4e 54 49 4c 20 4b 52 59 44 53 24 3d 22 58 22 20 4f 52 20 4b 52 59 44 ┆ 0290 UNTIL KRYDS$="X" OR KRYD┆ 0x05c0…05e0 53 24 3d 22 4f 22 0d 0a 20 30 33 30 30 20 20 20 50 52 49 4e 54 20 22 49 46 20 59 4f 55 20 57 41 ┆S$="O" 0300 PRINT "IF YOU WA┆ 0x05e0…0600 49 56 45 20 59 4f 55 52 20 43 4c 41 49 4d 2c 20 54 48 45 4e 20 54 59 50 45 20 3a 20 52 45 22 0d ┆IVE YOUR CLAIM, THEN TYPE : RE" ┆ 0x0600…0620 0a 20 30 33 31 30 20 20 20 50 52 49 4e 54 20 22 49 46 20 59 4f 55 20 47 49 56 45 20 55 50 20 2f ┆ 0310 PRINT "IF YOU GIVE UP /┆ 0x0620…0640 20 51 55 49 54 2c 20 54 48 45 4e 20 54 59 50 45 20 3a 20 51 54 22 0d 0a 20 30 33 32 30 20 20 20 ┆ QUIT, THEN TYPE : QT" 0320 ┆ 0x0640…0660 52 3d 31 3b 20 52 43 56 5b 52 44 49 3d 31 2b 28 4b 52 59 44 53 24 3d 22 58 22 29 3b 20 4d 44 56 ┆R=1; RCVÆRDI=1+(KRYDS$="X"); MDV┆ 0x0660…0680 5b 52 44 49 3d 33 2d 52 43 56 5b 52 44 49 3b 20 54 24 3d 22 20 58 4f 22 0d 0a 20 30 33 33 30 20 ┆ÆRDI=3-RCVÆRDI; T$=" XO" 0330 ┆ 0x0680…06a0 20 20 54 52 55 45 3d 31 3b 20 46 41 4c 53 45 3d 30 3b 20 54 4f 4d 2c 4e 55 4c 3d 30 0d 0a 20 30 ┆ TRUE=1; FALSE=0; TOM,NUL=0 0┆ 0x06a0…06c0 33 34 30 20 20 20 42 52 43 2c 42 4d 44 3d 32 3b 20 50 4c 41 43 45 52 45 44 45 3d 34 3b 20 41 46 ┆340 BRC,BMD=2; PLACEREDE=4; AF┆ 0x06c0…06e0 53 54 5d 45 54 3d 30 3b 20 42 52 5b 54 28 35 2c 35 29 2c 42 52 5b 54 28 36 2c 36 29 3d 4d 44 56 ┆STÅET=0; BRÆT(5,5),BRÆT(6,6)=MDV┆ 0x06e0…0700 5b 52 44 49 0d 0a 20 30 33 35 30 20 20 20 56 45 52 54 49 28 35 29 2c 56 45 52 54 49 28 36 29 2c ┆ÆRDI 0350 VERTI(5),VERTI(6),┆ 0x0700…0720 48 4f 52 49 5a 28 35 29 2c 48 4f 52 49 5a 28 36 29 3d 32 3b 20 42 52 5b 54 28 35 2c 36 29 2c 42 ┆HORIZ(5),HORIZ(6)=2; BRÆT(5,6),B┆ 0x0720…0740 52 5b 54 28 36 2c 35 29 3d 52 43 56 5b 52 44 49 0d 0a 20 30 33 36 30 20 20 20 45 58 45 43 20 4b ┆RÆT(6,5)=RCVÆRDI 0360 EXEC K┆ 0x0740…0760 41 4e 54 0d 0a 20 30 33 37 30 20 20 20 46 4f 52 20 49 3d 35 20 54 4f 20 36 0d 0a 20 30 33 38 30 ┆ANT 0370 FOR I=5 TO 6 0380┆ 0x0760…0780 20 20 20 20 20 46 4f 52 20 4a 3d 35 20 54 4f 20 36 0d 0a 20 30 33 39 30 20 20 20 20 20 20 20 45 ┆ FOR J=5 TO 6 0390 E┆ 0x0780…07a0 58 45 43 20 42 52 49 4b 50 52 49 4e 54 28 49 2c 4a 29 0d 0a 20 30 34 30 30 20 20 20 20 20 4e 45 ┆XEC BRIKPRINT(I,J) 0400 NE┆ 0x07a0…07c0 58 54 20 4a 0d 0a 20 30 34 31 30 20 20 20 4e 45 58 54 20 49 0d 0a 20 30 34 32 30 20 45 4e 44 50 ┆XT J 0410 NEXT I 0420 ENDP┆ 0x07c0…07e0 52 4f 43 20 53 54 41 52 54 0d 0a 20 30 34 33 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ROC START 0430 REM //---------┆ 0x07e0…0800 2d 2f 2f 0d 0a 20 30 34 34 30 20 50 52 4f 43 20 53 50 49 4c 0d 0a 20 30 34 35 30 20 20 20 52 45 ┆-// 0440 PROC SPIL 0450 RE┆ 0x0800…0820 50 45 41 54 20 0d 0a 20 30 34 36 30 20 20 20 20 20 45 58 45 43 20 4d 44 42 52 49 4b 50 4c 41 43 ┆PEAT 0460 EXEC MDBRIKPLAC┆ 0x0820…0840 45 52 49 4e 47 0d 0a 20 30 34 37 30 20 20 20 20 20 49 46 20 50 4c 41 43 45 52 49 4e 47 24 3c 3e ┆ERING 0470 IF PLACERING$<>┆ 0x0840…0860 22 51 54 22 20 54 48 45 4e 20 45 58 45 43 20 52 43 42 52 49 4b 50 4c 41 43 45 52 49 4e 47 0d 0a ┆"QT" THEN EXEC RCBRIKPLACERING ┆ 0x0860…0880 20 30 34 38 30 20 20 20 55 4e 54 49 4c 20 50 4c 41 43 45 52 45 44 45 3d 36 34 20 4f 52 20 41 46 ┆ 0480 UNTIL PLACEREDE=64 OR AF┆ 0x0880…08a0 53 54 5d 45 54 3d 32 20 4f 52 20 42 4d 44 3d 30 20 4f 52 20 42 52 43 3d 30 20 4f 52 20 50 4c 41 ┆STÅET=2 OR BMD=0 OR BRC=0 OR PLA┆ 0x08a0…08c0 43 45 52 49 4e 47 24 3d 22 51 54 22 0d 0a 20 30 34 39 30 20 45 4e 44 50 52 4f 43 20 53 50 49 4c ┆CERING$="QT" 0490 ENDPROC SPIL┆ 0x08c0…08e0 0d 0a 20 30 35 30 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 30 35 31 ┆ 0500 REM //----------// 051┆ 0x08e0…0900 30 20 50 52 4f 43 20 4d 44 42 52 49 4b 50 4c 41 43 45 52 49 4e 47 0d 0a 20 30 35 32 30 20 20 20 ┆0 PROC MDBRIKPLACERING 0520 ┆ 0x0900…0920 52 45 50 45 41 54 20 0d 0a 20 30 35 33 30 20 20 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 35 34 ┆REPEAT 0530 REPEAT 054┆ 0x0920…0940 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 32 39 29 3b 20 43 48 52 28 33 30 29 3b 20 ┆0 PRINT CHR(29); CHR(30); ┆ 0x0940…0960 0d 0a 20 30 35 35 30 20 20 20 20 20 20 20 49 4e 50 55 54 20 22 49 4e 53 45 52 54 20 50 4f 53 49 ┆ 0550 INPUT "INSERT POSI┆ 0x0960…0980 54 49 4f 4e 20 3a 20 22 2c 50 4c 41 43 45 52 49 4e 47 24 0d 0a 20 30 35 36 30 20 20 20 20 20 20 ┆TION : ",PLACERING$ 0560 ┆ 0x0980…09a0 20 45 58 45 43 20 43 55 52 53 4f 52 28 31 2c 32 2c 33 32 29 0d 0a 20 30 35 37 30 20 20 20 20 20 ┆ EXEC CURSOR(1,2,32) 0570 ┆ 0x09a0…09c0 20 20 46 4f 52 20 53 4c 45 54 3d 31 20 54 4f 20 31 35 0d 0a 20 30 35 38 30 20 20 20 20 20 20 20 ┆ FOR SLET=1 TO 15 0580 ┆ 0x09c0…09e0 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a ┆ PRINT " " ┆ 0x09e0…0a00 20 30 35 39 30 20 20 20 20 20 20 20 4e 45 58 54 20 53 4c 45 54 0d 0a 20 30 36 30 30 20 20 20 20 ┆ 0590 NEXT SLET 0600 ┆ 0x0a00…0a20 20 20 20 45 58 45 43 20 43 55 52 53 4f 52 28 31 2c 32 2c 33 32 29 0d 0a 20 30 36 31 30 20 20 20 ┆ EXEC CURSOR(1,2,32) 0610 ┆ 0x0a20…0a40 20 20 20 20 49 46 20 50 4c 41 43 45 52 49 4e 47 24 3d 22 52 45 22 20 54 48 45 4e 20 41 46 53 54 ┆ IF PLACERING$="RE" THEN AFST┆ 0x0a40…0a60 5d 45 54 3d 41 46 53 54 5d 45 54 2b 31 0d 0a 20 30 36 32 30 20 20 20 20 20 20 20 52 45 4d 20 56 ┆ÅET=AFSTÅET+1 0620 REM V┆ 0x0a60…0a80 45 52 54 20 28 43 49 46 46 45 52 20 2d 34 38 29 20 54 49 4c 20 4a 2e 0d 0a 20 30 36 33 30 20 20 ┆ERT (CIFFER -48) TIL J. 0630 ┆ 0x0a80…0aa0 20 20 20 20 20 52 45 4d 20 48 4f 52 5a 20 28 42 4f 47 53 54 41 56 2d 39 36 29 20 54 49 4c 20 49 ┆ REM HORZ (BOGSTAV-96) TIL I┆ 0x0aa0…0ac0 2e 0d 0a 20 30 36 34 30 20 20 20 20 20 20 20 49 46 20 4f 52 44 28 50 4c 41 43 45 52 49 4e 47 24 ┆. 0640 IF ORD(PLACERING$┆ 0x0ac0…0ae0 28 32 20 3a 20 31 29 29 3c 35 38 20 54 48 45 4e 20 0d 0a 20 30 36 35 30 20 20 20 20 20 20 20 20 ┆(2 : 1))<58 THEN 0650 ┆ 0x0ae0…0b00 20 4a 3d 4f 52 44 28 50 4c 41 43 45 52 49 4e 47 24 28 32 20 3a 20 31 29 29 2d 34 38 3b 20 49 3d ┆ J=ORD(PLACERING$(2 : 1))-48; I=┆ 0x0b00…0b20 4f 52 44 28 50 4c 41 43 45 52 49 4e 47 24 28 31 20 3a 20 31 29 29 2d 39 36 0d 0a 20 30 36 36 30 ┆ORD(PLACERING$(1 : 1))-96 0660┆ 0x0b20…0b40 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 30 36 37 30 20 20 20 20 20 20 20 20 20 4a 3d 4f 52 ┆ ELSE 0670 J=OR┆ 0x0b40…0b60 44 28 50 4c 41 43 45 52 49 4e 47 24 28 31 20 3a 20 31 29 29 2d 34 38 3b 20 49 3d 4f 52 44 28 50 ┆D(PLACERING$(1 : 1))-48; I=ORD(P┆ 0x0b60…0b80 4c 41 43 45 52 49 4e 47 24 28 32 20 3a 20 31 29 29 2d 39 36 0d 0a 20 30 36 38 30 20 20 20 20 20 ┆LACERING$(2 : 1))-96 0680 ┆ 0x0b80…0ba0 20 20 45 4e 44 49 46 20 0d 0a 20 30 36 39 30 20 20 20 20 20 20 20 50 4c 41 43 45 52 45 3d 28 46 ┆ ENDIF 0690 PLACERE=(F┆ 0x0ba0…0bc0 41 4c 53 45 3d 28 50 4c 41 43 45 52 49 4e 47 24 3d 22 52 45 22 20 4f 52 20 50 4c 41 43 45 52 49 ┆ALSE=(PLACERING$="RE" OR PLACERI┆ 0x0bc0…0be0 4e 47 24 3d 22 51 54 22 29 29 0d 0a 20 30 37 30 30 20 20 20 20 20 55 4e 54 49 4c 20 54 52 55 45 ┆NG$="QT")) 0700 UNTIL TRUE┆ 0x0be0…0c00 3d 28 49 3e 30 20 41 4e 44 20 49 3c 39 20 41 4e 44 20 4a 3e 30 20 41 4e 44 20 4a 3c 39 29 20 4f ┆=(I>0 AND I<9 AND J>0 AND J<9) O┆ 0x0c00…0c20 52 20 50 4c 41 43 45 52 45 3d 46 41 4c 53 45 0d 0a 20 30 37 31 30 20 20 20 20 20 49 46 20 50 4c ┆R PLACERE=FALSE 0710 IF PL┆ 0x0c20…0c40 41 43 45 52 45 3d 46 41 4c 53 45 20 54 48 45 4e 20 45 58 49 54 20 0d 0a 20 30 37 32 30 20 20 20 ┆ACERE=FALSE THEN EXIT 0720 ┆ 0x0c40…0c60 20 20 49 3d 49 2b 31 3b 20 4a 3d 4a 2b 31 3b 20 4f 4b 41 59 3d 46 41 4c 53 45 0d 0a 20 30 37 33 ┆ I=I+1; J=J+1; OKAY=FALSE 073┆ 0x0c60…0c80 30 20 20 20 20 20 49 46 20 42 52 5b 54 28 49 2c 4a 29 3c 3e 54 4f 4d 20 54 48 45 4e 20 0d 0a 20 ┆0 IF BRÆT(I,J)<>TOM THEN ┆ 0x0c80…0ca0 30 37 34 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 4f 43 43 55 50 49 45 44 20 46 49 45 4c 44 ┆0740 PRINT "OCCUPIED FIELD┆ 0x0ca0…0cc0 20 21 22 0d 0a 20 30 37 35 30 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 30 37 36 30 20 20 20 20 20 ┆ !" 0750 ELSE 0760 ┆ 0x0cc0…0ce0 20 20 45 58 45 43 20 4f 4d 4c 49 47 47 45 4e 44 45 28 49 2c 4a 2c 52 43 56 5b 52 44 49 29 0d 0a ┆ EXEC OMLIGGENDE(I,J,RCVÆRDI) ┆ 0x0ce0…0d00 20 30 37 37 30 20 20 20 20 20 20 20 49 46 20 4d 55 4c 49 47 3d 46 41 4c 53 45 20 54 48 45 4e 20 ┆ 0770 IF MULIG=FALSE THEN ┆ 0x0d00…0d20 0d 0a 20 30 37 38 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 3f 3f 3f 3f 22 0d 0a 20 30 ┆ 0780 PRINT "????" 0┆ 0x0d20…0d40 37 39 30 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 30 38 30 30 20 20 20 20 20 20 20 20 20 45 ┆790 ELSE 0800 E┆ 0x0d40…0d60 58 45 43 20 4f 50 54 5b 4c 28 49 2c 4a 2c 30 2c 52 43 56 5b 52 44 49 2c 4d 44 56 5b 52 44 49 29 ┆XEC OPTÆL(I,J,0,RCVÆRDI,MDVÆRDI)┆ 0x0d60…0d80 0d 0a 20 30 38 31 30 20 20 20 20 20 20 20 20 20 49 46 20 56 45 4e 44 42 41 52 45 3d 46 41 4c 53 ┆ 0810 IF VENDBARE=FALS┆ 0x0d80…0da0 45 20 54 48 45 4e 20 0d 0a 20 30 38 32 30 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 ┆E THEN 0820 PRINT "┆ 0x0da0…0dc0 4e 4f 20 4f 4e 45 20 43 41 4e 20 42 45 20 54 55 52 4e 45 44 20 21 22 0d 0a 20 30 38 33 30 20 20 ┆NO ONE CAN BE TURNED !" 0830 ┆ 0x0dc0…0de0 20 20 20 20 20 20 20 45 4c 53 45 20 2a 4e 4f 47 45 4e 20 4b 41 4e 20 56 45 4e 44 45 53 2a 2a 0d ┆ ELSE *NOGEN KAN VENDES** ┆ 0x0de0…0e00 0a 20 30 38 34 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 43 55 52 53 4f 52 28 31 2c 31 ┆ 0840 EXEC CURSOR(1,1┆ 0x0e00…0e20 34 2c 37 29 0d 0a 20 30 38 35 30 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 59 4f 55 ┆4,7) 0850 PRINT "YOU┆ 0x0e20…0e40 20 47 4f 54 22 3b 20 56 45 4e 44 42 41 52 45 3b 20 0d 0a 20 30 38 36 30 20 20 20 20 20 20 20 20 ┆ GOT"; VENDBARE; 0860 ┆ 0x0e40…0e60 20 20 20 49 46 20 56 45 4e 44 42 41 52 45 3d 31 20 54 48 45 4e 20 0d 0a 20 30 38 37 30 20 20 20 ┆ IF VENDBARE=1 THEN 0870 ┆ 0x0e60…0e80 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 50 49 45 43 45 22 0d 0a 20 30 38 38 30 20 20 ┆ PRINT "PIECE" 0880 ┆ 0x0e80…0ea0 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 30 38 39 30 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE 0890 ┆ 0x0ea0…0ec0 20 20 50 52 49 4e 54 20 22 50 49 45 43 45 53 2e 22 0d 0a 20 30 39 30 30 20 20 20 20 20 20 20 20 ┆ PRINT "PIECES." 0900 ┆ 0x0ec0…0ee0 20 20 20 45 4e 44 49 46 20 0d 0a 20 30 39 31 30 20 20 20 20 20 20 20 20 20 20 20 41 46 53 54 5d ┆ ENDIF 0910 AFSTÅ┆ 0x0ee0…0f00 45 54 3d 30 3b 20 4f 4b 41 59 3d 54 52 55 45 3b 20 42 4d 44 3d 42 4d 44 2b 56 45 4e 44 42 41 52 ┆ET=0; OKAY=TRUE; BMD=BMD+VENDBAR┆ 0x0f00…0f20 45 2b 31 3b 20 42 52 43 3d 42 52 43 2d 56 45 4e 44 42 41 52 45 0d 0a 20 30 39 32 30 20 20 20 20 ┆E+1; BRC=BRC-VENDBARE 0920 ┆ 0x0f20…0f40 20 20 20 20 20 20 20 50 4c 41 43 45 52 45 44 45 3d 50 4c 41 43 45 52 45 44 45 2b 31 3b 20 56 45 ┆ PLACEREDE=PLACEREDE+1; VE┆ 0x0f40…0f60 52 54 49 28 49 29 3d 56 45 52 54 49 28 49 29 2b 31 3b 20 48 4f 52 49 5a 28 4a 29 3d 48 4f 52 49 ┆RTI(I)=VERTI(I)+1; HORIZ(J)=HORI┆ 0x0f60…0f80 5a 28 4a 29 2b 31 0d 0a 20 30 39 33 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 4f 50 54 ┆Z(J)+1 0930 EXEC OPT┆ 0x0f80…0fa0 5b 4c 28 49 2c 4a 2c 31 2c 52 43 56 5b 52 44 49 2c 4d 44 56 5b 52 44 49 29 0d 0a 20 30 39 34 30 ┆ÆL(I,J,1,RCVÆRDI,MDVÆRDI) 0940┆ 0x0fa0…0fc0 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 30 39 35 30 20 20 20 20 20 20 20 45 4e 44 ┆ ENDIF 0950 END┆ 0x0fc0…0fe0 49 46 20 0d 0a 20 30 39 36 30 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 30 39 37 30 20 20 20 55 ┆IF 0960 ENDIF 0970 U┆ 0x0fe0…1000 4e 54 49 4c 20 4f 4b 41 59 3d 54 52 55 45 0d 0a 20 30 39 38 30 20 45 4e 44 50 52 4f 43 20 4d 44 ┆NTIL OKAY=TRUE 0980 ENDPROC MD┆ 0x1000…1020 42 52 49 4b 50 4c 41 43 45 52 49 4e 47 0d 0a 20 30 39 39 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d ┆BRIKPLACERING 0990 REM //-----┆ 0x1020…1040 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 31 30 30 30 20 50 52 4f 43 20 52 43 42 52 49 4b 50 4c 41 43 45 52 ┆-----// 1000 PROC RCBRIKPLACER┆ 0x1040…1060 49 4e 47 0d 0a 20 31 30 31 30 20 20 20 49 46 20 41 46 53 54 5d 45 54 3d 32 20 4f 52 20 50 4c 41 ┆ING 1010 IF AFSTÅET=2 OR PLA┆ 0x1060…1080 43 45 52 49 4e 47 24 3d 22 51 54 22 20 54 48 45 4e 20 45 58 49 54 20 0d 0a 20 31 30 32 30 20 20 ┆CERING$="QT" THEN EXIT 1020 ┆ 0x1080…10a0 20 49 2c 4a 3d 31 0d 0a 20 31 30 33 30 20 20 20 52 45 50 45 41 54 20 2a 2a 20 46 49 4e 44 20 54 ┆ I,J=1 1030 REPEAT ** FIND T┆ 0x10a0…10c0 48 45 20 54 45 53 54 46 49 45 4c 44 53 20 4c 4f 57 45 52 20 4c 49 4d 49 54 53 20 2a 2a 0d 0a 20 ┆HE TESTFIELDS LOWER LIMITS ** ┆ 0x10c0…10e0 31 30 34 30 20 20 20 20 20 49 3d 49 2b 28 56 45 52 54 49 28 49 29 3d 30 29 3b 20 4a 3d 4a 2b 28 ┆1040 I=I+(VERTI(I)=0); J=J+(┆ 0x10e0…1100 48 4f 52 49 5a 28 4a 29 3d 30 29 0d 0a 20 31 30 35 30 20 20 20 55 4e 54 49 4c 20 56 45 52 54 49 ┆HORIZ(J)=0) 1050 UNTIL VERTI┆ 0x1100…1120 28 49 29 3c 3e 30 20 41 4e 44 20 48 4f 52 49 5a 28 4a 29 3c 3e 30 0d 0a 20 31 30 36 30 20 20 20 ┆(I)<>0 AND HORIZ(J)<>0 1060 ┆ 0x1120…1140 56 49 3d 49 2d 31 3b 20 56 4a 3d 4a 2d 31 3b 20 49 2c 4a 3d 31 30 0d 0a 20 31 30 37 30 20 20 20 ┆VI=I-1; VJ=J-1; I,J=10 1070 ┆ 0x1140…1160 52 45 50 45 41 54 20 2a 2a 20 46 49 4e 44 20 54 48 45 20 54 45 53 54 46 49 45 4c 44 53 20 55 50 ┆REPEAT ** FIND THE TESTFIELDS UP┆ 0x1160…1180 50 45 52 20 4c 49 4d 49 54 53 20 2a 2a 0d 0a 20 31 30 38 30 20 20 20 20 20 49 3d 49 2d 28 56 45 ┆PER LIMITS ** 1080 I=I-(VE┆ 0x1180…11a0 52 54 49 28 49 29 3d 30 29 3b 20 4a 3d 4a 2d 28 48 4f 52 49 5a 28 4a 29 3d 30 29 0d 0a 20 31 30 ┆RTI(I)=0); J=J-(HORIZ(J)=0) 10┆ 0x11a0…11c0 39 30 20 20 20 55 4e 54 49 4c 20 56 45 52 54 49 28 49 29 3c 3e 30 20 41 4e 44 20 48 4f 52 49 5a ┆90 UNTIL VERTI(I)<>0 AND HORIZ┆ 0x11c0…11e0 28 4a 29 3c 3e 30 0d 0a 20 31 31 30 30 20 20 20 57 49 3d 49 2b 31 3b 20 57 4a 3d 4a 2b 31 3b 20 ┆(J)<>0 1100 WI=I+1; WJ=J+1; ┆ 0x11e0…1200 56 49 3d 56 49 2b 28 56 49 3d 31 29 3b 20 56 4a 3d 56 4a 2b 28 56 4a 3d 31 29 0d 0a 20 31 31 31 ┆VI=VI+(VI=1); VJ=VJ+(VJ=1) 111┆ 0x1200…1220 30 20 20 20 57 49 3d 57 49 2d 28 57 49 3d 31 30 29 3b 20 57 4a 3d 57 4a 2d 28 57 4a 3d 31 30 29 ┆0 WI=WI-(WI=10); WJ=WJ-(WJ=10)┆ 0x1220…1240 3b 20 4d 41 58 3d 2d 31 0d 0a 20 31 31 32 30 20 20 20 46 4f 52 20 49 3d 56 49 20 54 4f 20 57 49 ┆; MAX=-1 1120 FOR I=VI TO WI┆ 0x1240…1260 0d 0a 20 31 31 33 30 20 20 20 20 20 46 4f 52 20 4a 3d 56 4a 20 54 4f 20 57 4a 0d 0a 20 31 31 34 ┆ 1130 FOR J=VJ TO WJ 114┆ 0x1260…1280 30 20 20 20 20 20 20 20 49 46 20 42 52 5b 54 28 49 2c 4a 29 3d 54 4f 4d 20 54 48 45 4e 20 0d 0a ┆0 IF BRÆT(I,J)=TOM THEN ┆ 0x1280…12a0 20 31 31 35 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 4f 4d 4c 49 47 47 45 4e 44 45 28 49 2c ┆ 1150 EXEC OMLIGGENDE(I,┆ 0x12a0…12c0 4a 2c 4d 44 56 5b 52 44 49 29 0d 0a 20 31 31 36 30 20 20 20 20 20 20 20 20 20 49 46 20 4d 55 4c ┆J,MDVÆRDI) 1160 IF MUL┆ 0x12c0…12e0 49 47 3d 54 52 55 45 20 54 48 45 4e 20 0d 0a 20 31 31 37 30 20 20 20 20 20 20 20 20 20 20 20 45 ┆IG=TRUE THEN 1170 E┆ 0x12e0…1300 58 45 43 20 4f 50 54 5b 4c 28 49 2c 4a 2c 30 2c 4d 44 56 5b 52 44 49 2c 52 43 56 5b 52 44 49 29 ┆XEC OPTÆL(I,J,0,MDVÆRDI,RCVÆRDI)┆ 0x1300…1320 0c 0d 0a 20 31 31 38 30 20 20 20 20 20 20 20 20 20 20 20 49 46 20 56 45 4e 44 42 41 52 45 3e 30 ┆ 1180 IF VENDBARE>0┆ 0x1320…1340 20 54 48 45 4e 20 0d 0a 20 31 31 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 30 3d 28 ┆ THEN 1190 IF 0=(┆ 0x1340…1360 28 49 2d 32 29 2a 28 49 2d 39 29 29 20 54 48 45 4e 20 56 45 4e 44 42 41 52 45 3d 56 45 4e 44 42 ┆(I-2)*(I-9)) THEN VENDBARE=VENDB┆ 0x1360…1380 41 52 45 2b 32 0d 0a 20 31 32 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 30 3d 28 28 ┆ARE+2 1200 IF 0=((┆ 0x1380…13a0 4a 2d 32 29 2a 28 4a 2d 39 29 29 20 54 48 45 4e 20 56 45 4e 44 42 41 52 45 3d 56 45 4e 44 42 41 ┆J-2)*(J-9)) THEN VENDBARE=VENDBA┆ 0x13a0…13c0 52 45 2b 32 0d 0a 20 31 32 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 56 45 4e 44 42 ┆RE+2 1210 IF VENDB┆ 0x13c0…13e0 41 52 45 3d 3e 4d 41 58 20 54 48 45 4e 20 0d 0a 20 31 32 32 30 20 20 20 20 20 20 20 20 20 20 20 ┆ARE=>MAX THEN 1220 ┆ 0x13e0…1400 20 20 20 20 49 46 20 56 45 4e 44 42 41 52 45 3d 4d 41 58 20 54 48 45 4e 20 52 3d 52 4e 44 28 30 ┆ IF VENDBARE=MAX THEN R=RND(0┆ 0x1400…1420 29 0d 0a 20 31 32 33 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 52 3c 2e 35 20 4f ┆) 1230 IF R<.5 O┆ 0x1420…1440 52 20 56 45 4e 44 42 41 52 45 3e 4d 41 58 20 54 48 45 4e 20 4d 41 58 3d 56 45 4e 44 42 41 52 45 ┆R VENDBARE>MAX THEN MAX=VENDBARE┆ 0x1440…1460 3b 20 4d 49 3d 49 3b 20 4d 4a 3d 4a 0d 0a 20 31 32 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆; MI=I; MJ=J 1240 ┆ 0x1460…1480 45 4e 44 49 46 20 2a 2a 20 42 45 54 54 45 52 20 50 4f 53 49 54 49 4f 4e 20 2a 2a 0d 0a 20 31 32 ┆ENDIF ** BETTER POSITION ** 12┆ 0x1480…14a0 35 30 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 2a 2a 20 50 49 45 43 45 53 20 43 41 4e ┆50 ENDIF ** PIECES CAN┆ 0x14a0…14c0 20 42 45 20 54 55 52 4e 45 44 20 2a 2a 0d 0a 20 31 32 36 30 20 20 20 20 20 20 20 20 20 45 4e 44 ┆ BE TURNED ** 1260 END┆ 0x14c0…14e0 49 46 20 2a 2a 20 50 4f 53 53 49 42 4c 45 20 50 4f 53 49 54 49 4f 4e 20 4f 46 20 50 49 45 43 45 ┆IF ** POSSIBLE POSITION OF PIECE┆ 0x14e0…1500 20 2a 2a 0d 0a 20 31 32 37 30 20 20 20 20 20 20 20 45 4e 44 49 46 20 2a 2a 20 41 54 54 45 4d 50 ┆ ** 1270 ENDIF ** ATTEMP┆ 0x1500…1520 54 46 49 45 4c 44 20 3d 20 5a 45 52 4f 20 2a 2a 0d 0a 20 31 32 38 30 20 20 20 20 20 4e 45 58 54 ┆TFIELD = ZERO ** 1280 NEXT┆ 0x1520…1540 20 4a 0d 0a 20 31 32 39 30 20 20 20 4e 45 58 54 20 49 0d 0a 20 31 33 30 30 20 20 20 49 46 20 4d ┆ J 1290 NEXT I 1300 IF M┆ 0x1540…1560 41 58 3c 30 20 54 48 45 4e 20 0d 0a 20 31 33 31 30 20 20 20 20 20 45 58 45 43 20 43 55 52 53 4f ┆AX<0 THEN 1310 EXEC CURSO┆ 0x1560…1580 52 28 31 2c 31 30 2c 37 29 0d 0a 20 31 33 32 30 20 20 20 20 20 50 52 49 4e 54 20 22 52 43 37 30 ┆R(1,10,7) 1320 PRINT "RC70┆ 0x1580…15a0 30 20 57 41 49 56 45 53 20 49 54 27 53 20 43 4c 41 49 4d 20 21 22 0d 0a 20 31 33 33 30 20 20 20 ┆0 WAIVES IT'S CLAIM !" 1330 ┆ 0x15a0…15c0 20 20 50 52 49 4e 54 20 22 59 4f 55 52 20 54 55 52 4e 22 0d 0a 20 31 33 34 30 20 20 20 20 20 41 ┆ PRINT "YOUR TURN" 1340 A┆ 0x15c0…15e0 46 53 54 5d 45 54 3d 41 46 53 54 5d 45 54 2b 31 0d 0a 20 31 33 35 30 20 20 20 45 4c 53 45 20 2a ┆FSTÅET=AFSTÅET+1 1350 ELSE *┆ 0x15e0…1600 2a 20 50 49 45 43 45 53 20 43 41 4e 20 42 45 20 54 55 52 4e 45 44 20 2a 2a 0d 0a 20 31 33 36 30 ┆* PIECES CAN BE TURNED ** 1360┆ 0x1600…1620 20 20 20 20 20 45 58 45 43 20 43 55 52 53 4f 52 28 31 2c 31 30 2c 37 29 0d 0a 20 31 33 37 30 20 ┆ EXEC CURSOR(1,10,7) 1370 ┆ 0x1620…1640 20 20 20 20 50 52 49 4e 54 20 22 52 43 37 30 30 20 3a 20 22 2c 43 48 52 28 4d 49 2b 39 35 29 3b ┆ PRINT "RC700 : ",CHR(MI+95);┆ 0x1640…1660 20 43 48 52 28 4d 4a 2b 34 37 29 0d 0a 20 31 33 38 30 20 20 20 20 20 45 58 45 43 20 4f 50 54 5b ┆ CHR(MJ+47) 1380 EXEC OPTÆ┆ 0x1660…1680 4c 28 4d 49 2c 4d 4a 2c 31 2c 4d 44 56 5b 52 44 49 2c 52 43 56 5b 52 44 49 29 0d 0a 20 31 33 39 ┆L(MI,MJ,1,MDVÆRDI,RCVÆRDI) 139┆ 0x1680…16a0 30 20 20 20 20 20 50 4c 41 43 45 52 45 44 45 3d 50 4c 41 43 45 52 45 44 45 2b 31 3b 20 42 52 43 ┆0 PLACEREDE=PLACEREDE+1; BRC┆ 0x16a0…16c0 3d 42 52 43 2b 56 45 4e 44 42 41 52 45 2b 31 3b 20 42 4d 44 3d 42 4d 44 2d 56 45 4e 44 42 41 52 ┆=BRC+VENDBARE+1; BMD=BMD-VENDBAR┆ 0x16c0…16e0 45 0d 0a 20 31 34 30 30 20 20 20 20 20 56 45 52 54 49 28 4d 49 29 3d 56 45 52 54 49 28 4d 49 29 ┆E 1400 VERTI(MI)=VERTI(MI)┆ 0x16e0…1700 2b 31 3b 20 48 4f 52 49 5a 28 4d 4a 29 3d 48 4f 52 49 5a 28 4d 4a 29 2b 31 3b 20 41 46 53 54 5d ┆+1; HORIZ(MJ)=HORIZ(MJ)+1; AFSTÅ┆ 0x1700…1720 45 54 3d 30 0d 0a 20 31 34 31 30 20 20 20 20 20 45 58 45 43 20 43 55 52 53 4f 52 28 31 2c 31 35 ┆ET=0 1410 EXEC CURSOR(1,15┆ 0x1720…1740 2c 37 29 0d 0a 20 31 34 32 30 20 20 20 20 20 50 52 49 4e 54 20 22 52 43 37 30 30 20 47 4f 54 22 ┆,7) 1420 PRINT "RC700 GOT"┆ 0x1740…1760 3b 20 56 45 4e 44 42 41 52 45 3b 20 0d 0a 20 31 34 33 30 20 20 20 20 20 49 46 20 56 45 4e 44 42 ┆; VENDBARE; 1430 IF VENDB┆ 0x1760…1780 41 52 45 3d 31 20 54 48 45 4e 20 0d 0a 20 31 34 34 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 ┆ARE=1 THEN 1440 PRINT "┆ 0x1780…17a0 50 49 45 43 45 2e 22 0d 0a 20 31 34 35 30 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 31 34 36 30 20 ┆PIECE." 1450 ELSE 1460 ┆ 0x17a0…17c0 20 20 20 20 20 20 50 52 49 4e 54 20 22 50 49 45 43 45 53 2e 22 0d 0a 20 31 34 37 30 20 20 20 20 ┆ PRINT "PIECES." 1470 ┆ 0x17c0…17e0 20 45 4e 44 49 46 20 0d 0a 20 31 34 38 30 20 20 20 20 20 52 45 4d 20 0d 0a 20 31 34 39 30 20 20 ┆ ENDIF 1480 REM 1490 ┆ 0x17e0…1800 20 45 4e 44 49 46 20 0d 0a 20 31 35 30 30 20 45 4e 44 50 52 4f 43 20 52 43 42 52 49 4b 50 4c 41 ┆ ENDIF 1500 ENDPROC RCBRIKPLA┆ 0x1800…1820 43 45 52 49 4e 47 0d 0a 20 31 35 31 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f ┆CERING 1510 REM //----------//┆ 0x1820…1840 0d 0a 20 31 35 32 30 20 50 52 4f 43 20 53 4c 55 54 0d 0a 20 31 35 33 30 20 20 20 45 58 45 43 20 ┆ 1520 PROC SLUT 1530 EXEC ┆ 0x1840…1860 43 55 52 53 4f 52 28 31 2c 32 31 2c 33 31 29 0d 0a 20 31 35 34 30 20 20 20 45 58 45 43 20 43 55 ┆CURSOR(1,21,31) 1540 EXEC CU┆ 0x1860…1880 52 53 4f 52 28 31 2c 31 39 2c 37 29 0d 0a 20 31 35 35 30 20 20 20 50 52 49 4e 54 20 22 59 4f 55 ┆RSOR(1,19,7) 1550 PRINT "YOU┆ 0x1880…18a0 20 48 41 56 45 22 3b 20 42 4d 44 3b 20 22 50 49 45 43 45 53 2e 22 0d 0a 20 31 35 36 30 20 20 20 ┆ HAVE"; BMD; "PIECES." 1560 ┆ 0x18a0…18c0 50 52 49 4e 54 20 22 52 43 37 30 30 20 48 41 53 22 3b 20 42 52 43 3b 20 22 50 49 45 43 45 53 2e ┆PRINT "RC700 HAS"; BRC; "PIECES.┆ 0x18c0…18e0 22 0d 0a 20 31 35 37 30 20 20 20 50 52 49 4e 54 20 0d 0a 20 31 35 38 30 20 20 20 49 46 20 42 52 ┆" 1570 PRINT 1580 IF BR┆ 0x18e0…1900 43 3d 42 4d 44 20 54 48 45 4e 20 50 52 49 4e 54 20 22 54 49 45 20 21 22 0d 0a 20 31 35 39 30 20 ┆C=BMD THEN PRINT "TIE !" 1590 ┆ 0x1900…1920 20 20 49 46 20 42 52 43 3e 42 4d 44 20 54 48 45 4e 20 50 52 49 4e 54 20 22 20 20 49 20 47 4f 54 ┆ IF BRC>BMD THEN PRINT " I GOT┆ […truncated at 200 lines…]