|
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: 9728 (0x2600)
Names: »B5«
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
└─ ⟦this⟧ »/B5«
0x0000…0020 4d 00 00 68 00 00 00 00 00 00 00 00 00 00 00 00 28 31 29 20 45 52 20 44 45 54 20 51 16 60 00 69 ┆M h (1) ER DET Q ` i┆
0x0020…0040 16 00 00 69 28 32 29 20 49 53 20 54 48 45 20 43 41 50 49 54 41 4c 20 43 41 49 52 4f 20 3f 00 00 ┆ i(2) IS THE CAPITAL CAIRO ? ┆
0x0040…0060 00 00 00 00 00 00 00 69 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ i ┆
0x0060…0080 56 00 00 68 33 00 00 68 28 31 38 29 20 44 4f 45 53 20 54 48 45 20 4e 41 4d 45 20 53 54 41 52 54 ┆V h3 h(18) DOES THE NAME START┆
0x0080…00a0 20 57 49 54 48 20 45 49 54 48 45 52 20 41 20 3c 42 3e 20 4f 52 20 41 4e 20 3c 49 3e 20 28 59 2f ┆ WITH EITHER A <B> OR AN <I> (Y/┆
0x00a0…00c0 4e 29 20 3f 1b 60 00 69 1c 00 00 69 28 31 29 20 49 53 20 49 54 20 42 48 55 54 41 4e 20 3f 00 00 ┆N) ? ` i i(1) IS IT BHUTAN ? ┆
0x00c0…00e0 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 ┆ ┆
0x00e0…0100 00 00 00 00 00 00 00 00 16 60 00 69 16 00 00 69 28 32 29 20 49 53 20 54 48 45 20 4c 41 53 54 20 ┆ ` i i(2) IS THE LAST ┆
0x0100…0120 4c 45 54 54 45 52 20 3c 51 3e 20 4f 52 20 3c 4b 3e 20 28 59 45 53 5e 2f 4e 4f 29 00 00 00 00 00 ┆LETTER <Q> OR <K> (YES^/NO) ┆
0x0120…0140 00 00 00 00 00 00 00 00 00 00 00 00 0e 00 00 69 0d 60 00 69 28 31 29 20 49 53 20 49 54 20 4f 4d ┆ i ` i(1) IS IT OM┆
0x0140…0160 41 4e 20 3f 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 ┆AN ? ┆
0x0160…0180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 16 60 00 69 16 00 00 69 28 32 29 20 49 53 20 54 ┆ ` i i(2) IS T┆
0x0180…01a0 48 45 20 43 41 50 49 54 41 4c 20 41 42 45 42 41 20 3f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆HE CAPITAL ABEBA ? ┆
0x01a0…01c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 55 00 00 68 31 00 00 68 28 31 29 20 ┆ U h1 h(1) ┆
0x01c0…01e0 49 53 20 49 54 20 44 41 48 4f 4d 45 59 20 3f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆IS IT DAHOMEY ? ┆
0x01e0…0200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 16 60 00 69 16 00 00 69 ┆ ` i i┆
0x0200…0220 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 2e 2e 2e 2e 2e 2e ┆0 1 2 3 4 5 6 7 8 9 ............┆
0x0220…0240 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 00 00 00 00 00 00 00 ┆...................FINISH ┆
0x0240…0260 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 ┆ ┆
[…0x7…]
0x0340…0360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 60 60 60 60 60 60 60 60 60 60 60 60 ┆ ````````````┆
0x0360…0380 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 ┆````````````````````````````````┆
0x0380…03a0 20 30 30 31 30 20 4f 4e 20 45 53 43 20 45 58 45 43 20 53 4c 55 54 54 45 0d 0a 20 30 30 32 30 20 ┆ 0010 ON ESC EXEC SLUTTE 0020 ┆
0x03a0…03c0 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 2d 2d ┆REM //--------------------------┆
0x03c0…03e0 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 33 30 20 52 45 ┆--------------------// 0030 RE┆
0x03e0…0400 4d 20 2f 2f 20 50 52 4f 47 52 41 4d 20 3a 20 4f 54 48 45 4c 4c 4f 20 20 20 20 20 20 20 20 20 20 ┆M // PROGRAM : OTHELLO ┆
0x0400…0420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 0d 0a 20 30 30 34 30 20 52 45 4d 20 ┆ // 0040 REM ┆
0x0420…0440 2f 2f 20 53 4b 52 45 56 45 54 20 41 46 20 3a 20 45 52 49 4b 20 54 2e 20 4e 49 45 4c 53 45 4e 20 ┆// SKREVET AF : ERIK T. NIELSEN ┆
0x0440…0460 49 20 52 43 37 30 30 20 43 4f 4d 41 4c 20 20 20 2f 2f 0d 0a 20 30 30 35 30 20 52 45 4d 20 2f 2f ┆I RC700 COMAL // 0050 REM //┆
0x0460…0480 20 53 54 45 44 20 3a 20 52 49 53 4d 5c 4c 4c 45 53 4b 4f 4c 45 4e 2c 20 52 41 4e 44 45 52 53 2c ┆ STED : RISMØLLESKOLEN, RANDERS,┆
0x0480…04a0 20 44 45 4e 20 38 2e 35 2e 38 30 20 20 20 2f 2f 0d 0a 20 30 30 36 30 20 52 45 4d 20 2f 2f 20 44 ┆ DEN 8.5.80 // 0060 REM // D┆
0x04a0…04c0 45 4e 4e 45 20 56 45 52 53 49 4f 4e 20 45 52 20 41 46 20 3a 20 32 32 2e 31 32 2e 38 30 20 20 20 ┆ENNE VERSION ER AF : 22.12.80 ┆
0x04c0…04e0 20 20 20 20 20 20 20 20 20 20 20 20 20 2f 2f 0d 0a 20 30 30 37 30 20 52 45 4d 20 2f 2f 2d 2d 2d ┆ // 0070 REM //---┆
0x04e0…0500 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 ┆--------------------------------┆
0x0500…0520 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 30 30 38 30 20 52 41 4e 44 4f 4d 49 5a 45 20 2f ┆-----------// 0080 RANDOMIZE /┆
0x0520…0540 2f 20 53 54 41 52 54 20 4f 46 20 4f 54 48 45 4c 4c 4f 20 2f 2f 0d 0a 20 30 30 39 30 20 45 58 45 ┆/ START OF OTHELLO // 0090 EXE┆
0x0540…0560 43 20 53 54 41 52 54 0d 0a 20 30 31 30 30 20 45 58 45 43 20 53 50 49 4c 0d 0a 20 30 31 31 30 20 ┆C START 0100 EXEC SPIL 0110 ┆
0x0560…0580 45 58 45 43 20 53 4c 55 54 0d 0a 20 30 31 32 30 20 45 58 45 43 20 53 4c 55 54 54 45 0d 0a 20 30 ┆EXEC SLUT 0120 EXEC SLUTTE 0┆
0x0580…05a0 31 33 30 20 53 54 4f 50 20 2f 2f 20 45 4e 44 20 4f 46 20 4f 54 48 45 4c 4c 4f 20 2f 2f 0d 0a 20 ┆130 STOP // END OF OTHELLO // ┆
0x05a0…05c0 30 31 34 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 ┆0140 REM //---------------------┆
0x05c0…05e0 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 2f 0d 0a 20 30 31 ┆-------------------------// 01┆
0x05e0…0600 35 30 20 50 52 4f 43 20 53 54 41 52 54 0d 0a 20 30 31 36 30 20 20 20 44 49 4d 20 42 52 5b 54 28 ┆50 PROC START 0160 DIM BRÆT(┆
0x0600…0620 31 30 2c 31 30 29 2c 58 28 38 29 2c 59 28 38 29 2c 4b 52 59 44 53 24 28 31 29 2c 54 24 28 33 29 ┆10,10),X(8),Y(8),KRYDS$(1),T$(3)┆
0x0620…0640 0d 0a 20 30 31 37 30 20 20 20 44 49 4d 20 56 45 52 54 49 28 31 30 29 2c 48 4f 52 49 5a 28 31 30 ┆ 0170 DIM VERTI(10),HORIZ(10┆
0x0640…0660 29 2c 50 4c 41 43 45 52 49 4e 47 24 28 32 29 0d 0a 20 30 31 38 30 20 20 20 46 4f 52 20 49 3d 31 ┆),PLACERING$(2) 0180 FOR I=1┆
0x0660…0680 20 54 4f 20 38 0d 0a 20 30 31 39 30 20 20 20 20 20 52 45 41 44 20 58 28 49 29 2c 59 28 49 29 0d ┆ TO 8 0190 READ X(I),Y(I) ┆
0x0680…06a0 0a 20 30 32 30 30 20 20 20 4e 45 58 54 20 49 0d 0a 20 30 32 31 30 20 20 20 44 41 54 41 20 31 2c ┆ 0200 NEXT I 0210 DATA 1,┆
0x06a0…06c0 2d 31 2c 31 2c 30 2c 31 2c 31 2c 30 2c 2d 31 2c 2d 31 2c 2d 31 2c 2d 31 2c 30 2c 2d 31 2c 31 2c ┆-1,1,0,1,1,0,-1,-1,-1,-1,0,-1,1,┆
0x06c0…06e0 30 2c 31 0d 0a 20 30 32 32 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 30 32 33 ┆0,1 0220 PRINT CHR(12) 023┆
0x06e0…0700 30 20 20 20 45 58 45 43 20 43 55 52 53 4f 52 28 31 2c 32 31 2c 33 32 29 0d 0a 20 30 32 34 30 20 ┆0 EXEC CURSOR(1,21,32) 0240 ┆
0x0700…0720 20 20 52 45 50 45 41 54 20 0d 0a 20 30 32 35 30 20 20 20 20 20 50 52 49 4e 54 20 43 48 52 28 32 ┆ REPEAT 0250 PRINT CHR(2┆
0x0720…0740 36 29 3b 20 43 48 52 28 33 30 29 3b 20 0d 0a 20 30 32 36 30 20 20 20 20 20 49 4e 50 55 54 20 22 ┆6); CHR(30); 0260 INPUT "┆
0x0740…0760 20 59 4f 55 52 20 43 48 4f 49 43 45 20 3a 20 20 58 20 4f 52 20 4f 20 3a 20 22 2c 4b 52 59 44 53 ┆ YOUR CHOICE : X OR O : ",KRYDS┆
0x0760…0780 24 0d 0a 20 30 32 37 30 20 20 20 20 20 49 46 20 4b 52 59 44 53 24 3d 22 58 22 20 54 48 45 4e 20 ┆$ 0270 IF KRYDS$="X" THEN ┆
0x0780…07a0 4b 52 59 44 53 24 3d 22 58 22 0d 0a 20 30 32 38 30 20 20 20 20 20 49 46 20 4b 52 59 44 53 24 3d ┆KRYDS$="X" 0280 IF KRYDS$=┆
0x07a0…07c0 22 4f 22 20 54 48 45 4e 20 4b 52 59 44 53 24 3d 22 4f 22 0d 0a 20 30 32 39 30 20 20 20 55 4e 54 ┆"O" THEN KRYDS$="O" 0290 UNT┆
0x07c0…07e0 49 4c 20 4b 52 59 44 53 24 3d 22 58 22 20 4f 52 20 4b 52 59 44 53 24 3d 22 4f 22 0d 0a 20 30 33 ┆IL KRYDS$="X" OR KRYDS$="O" 03┆
0x07e0…0800 30 30 20 20 20 50 52 49 4e 54 20 22 49 46 20 59 4f 55 20 57 41 49 56 45 20 59 4f 55 52 20 43 4c ┆00 PRINT "IF YOU WAIVE YOUR CL┆
0x0800…0820 41 49 4d 2c 20 54 48 45 4e 20 54 59 50 45 20 3a 20 52 45 22 0d 0a 20 30 33 31 30 20 20 20 50 52 ┆AIM, THEN TYPE : RE" 0310 PR┆
0x0820…0840 49 4e 54 20 22 49 46 20 59 4f 55 20 47 49 56 45 20 55 50 20 2f 20 51 55 49 54 2c 20 54 48 45 4e ┆INT "IF YOU GIVE UP / QUIT, THEN┆
0x0840…0860 20 54 59 50 45 20 3a 20 51 54 22 0d 0a 20 30 33 32 30 20 20 20 52 3d 31 3b 20 52 43 56 5b 52 44 ┆ TYPE : QT" 0320 R=1; RCVÆRD┆
0x0860…0880 49 3d 31 2b 28 4b 52 59 44 53 24 3d 22 58 22 29 3b 20 4d 44 56 5b 52 44 49 3d 33 2d 52 43 56 5b ┆I=1+(KRYDS$="X"); MDVÆRDI=3-RCVÆ┆
0x0880…08a0 52 44 49 3b 20 54 24 3d 22 20 58 4f 22 0d 0a 20 30 33 33 30 20 20 20 54 52 55 45 3d 31 3b 20 46 ┆RDI; T$=" XO" 0330 TRUE=1; F┆
0x08a0…08c0 41 4c 53 45 3d 30 3b 20 54 4f 4d 2c 4e 55 4c 3d 30 0d 0a 20 30 33 34 30 20 20 20 42 52 43 2c 42 ┆ALSE=0; TOM,NUL=0 0340 BRC,B┆
0x08c0…08e0 4d 44 3d 32 3b 20 50 4c 41 43 45 52 45 44 45 3d 34 3b 20 41 46 53 54 5d 45 54 3d 30 3b 20 42 52 ┆MD=2; PLACEREDE=4; AFSTÅET=0; BR┆
0x08e0…0900 5b 54 28 35 2c 35 29 2c 42 52 5b 54 28 36 2c 36 29 3d 4d 44 56 5b 52 44 49 0d 0a 20 30 33 35 30 ┆ÆT(5,5),BRÆT(6,6)=MDVÆRDI 0350┆
0x0900…0920 20 20 20 56 45 52 54 49 28 35 29 2c 56 45 52 54 49 28 36 29 2c 48 4f 52 49 5a 28 35 29 2c 48 4f ┆ VERTI(5),VERTI(6),HORIZ(5),HO┆
0x0920…0940 52 49 5a 28 36 29 3d 32 3b 20 42 52 5b 54 28 35 2c 36 29 2c 42 52 5b 54 28 36 2c 35 29 3d 52 43 ┆RIZ(6)=2; BRÆT(5,6),BRÆT(6,5)=RC┆
0x0940…0960 56 5b 52 44 49 0d 0a 20 30 33 36 30 20 20 20 45 58 45 43 20 4b 41 4e 54 0d 0a 20 30 33 37 30 20 ┆VÆRDI 0360 EXEC KANT 0370 ┆
0x0960…0980 20 20 46 4f 52 20 49 3d 35 20 54 4f 20 36 0d 0a 20 30 33 38 30 20 20 20 20 20 46 4f 52 20 4a 3d ┆ FOR I=5 TO 6 0380 FOR J=┆
0x0980…09a0 35 20 54 4f 20 36 0d 0a 20 30 33 39 30 20 20 20 20 20 20 20 45 58 45 43 20 42 52 49 4b 50 52 49 ┆5 TO 6 0390 EXEC BRIKPRI┆
0x09a0…09c0 4e 54 28 49 2c 4a 29 0d 0a 20 30 34 30 30 20 20 20 20 20 4e 45 58 54 20 4a 0d 0a 20 30 34 31 30 ┆NT(I,J) 0400 NEXT J 0410┆
0x09c0…09e0 20 20 20 4e 45 58 54 20 49 0d 0a 20 30 34 32 30 20 45 4e 44 50 52 4f 43 20 53 54 41 52 54 0d 0a ┆ NEXT I 0420 ENDPROC START ┆
0x09e0…0a00 20 30 34 33 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 30 34 34 30 20 ┆ 0430 REM //----------// 0440 ┆
0x0a00…0a20 50 52 4f 43 20 53 50 49 4c 0d 0a 20 30 34 35 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 34 36 ┆PROC SPIL 0450 REPEAT 046┆
0x0a20…0a40 30 20 20 20 20 20 45 58 45 43 20 4d 44 42 52 49 4b 50 4c 41 43 45 52 49 4e 47 0d 0a 20 30 34 37 ┆0 EXEC MDBRIKPLACERING 047┆
0x0a40…0a60 30 20 20 20 20 20 49 46 20 50 4c 41 43 45 52 49 4e 47 24 3c 3e 22 51 54 22 20 54 48 45 4e 20 45 ┆0 IF PLACERING$<>"QT" THEN E┆
0x0a60…0a80 58 45 43 20 52 43 42 52 49 4b 50 4c 41 43 45 52 49 4e 47 0d 0a 20 30 34 38 30 20 20 20 55 4e 54 ┆XEC RCBRIKPLACERING 0480 UNT┆
0x0a80…0aa0 49 4c 20 50 4c 41 43 45 52 45 44 45 3d 36 34 20 4f 52 20 41 46 53 54 5d 45 54 3d 32 20 4f 52 20 ┆IL PLACEREDE=64 OR AFSTÅET=2 OR ┆
0x0aa0…0ac0 42 4d 44 3d 30 20 4f 52 20 42 52 43 3d 30 20 4f 52 20 50 4c 41 43 45 52 49 4e 47 24 3d 22 51 54 ┆BMD=0 OR BRC=0 OR PLACERING$="QT┆
0x0ac0…0ae0 22 0d 0a 20 30 34 39 30 20 45 4e 44 50 52 4f 43 20 53 50 49 4c 0d 0a 20 30 35 30 30 20 52 45 4d ┆" 0490 ENDPROC SPIL 0500 REM┆
0x0ae0…0b00 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 30 35 31 30 20 50 52 4f 43 20 4d 44 42 52 ┆ //----------// 0510 PROC MDBR┆
0x0b00…0b20 49 4b 50 4c 41 43 45 52 49 4e 47 0d 0a 20 30 35 32 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 ┆IKPLACERING 0520 REPEAT 0┆
0x0b20…0b40 35 33 30 20 20 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 35 34 30 20 20 20 20 20 20 20 50 52 49 ┆530 REPEAT 0540 PRI┆
0x0b40…0b60 4e 54 20 43 48 52 28 32 39 29 3b 20 43 48 52 28 33 30 29 3b 20 0d 0a 20 30 35 35 30 20 20 20 20 ┆NT CHR(29); CHR(30); 0550 ┆
0x0b60…0b80 20 20 20 49 4e 50 55 54 20 22 49 4e 53 45 52 54 20 50 4f 53 49 54 49 4f 4e 20 3a 20 22 2c 50 4c ┆ INPUT "INSERT POSITION : ",PL┆
0x0b80…0ba0 41 43 45 52 49 4e 47 24 0d 0a 20 30 35 36 30 20 20 20 20 20 20 20 45 58 45 43 20 43 55 52 53 4f ┆ACERING$ 0560 EXEC CURSO┆
0x0ba0…0bc0 52 28 31 2c 32 2c 33 32 29 0d 0a 20 30 35 37 30 20 20 20 20 20 20 20 46 4f 52 20 53 4c 45 54 3d ┆R(1,2,32) 0570 FOR SLET=┆
0x0bc0…0be0 31 20 54 4f 20 31 35 0d 0a 20 30 35 38 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 20 20 ┆1 TO 15 0580 PRINT " ┆
0x0be0…0c00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 0d 0a 20 30 35 39 30 20 20 20 20 20 20 ┆ " 0590 ┆
0x0c00…0c20 20 4e 45 58 54 20 53 4c 45 54 0d 0a 20 30 36 30 30 20 20 20 20 20 20 20 45 58 45 43 20 43 55 52 ┆ NEXT SLET 0600 EXEC CUR┆
0x0c20…0c40 53 4f 52 28 31 2c 32 2c 33 32 29 0d 0a 20 30 36 31 30 20 20 20 20 20 20 20 49 46 20 50 4c 41 43 ┆SOR(1,2,32) 0610 IF PLAC┆
0x0c40…0c60 45 52 49 4e 47 24 3d 22 52 45 22 20 54 48 45 4e 20 41 46 53 54 5d 45 54 3d 41 46 53 54 5d 45 54 ┆ERING$="RE" THEN AFSTÅET=AFSTÅET┆
0x0c60…0c80 2b 31 0d 0a 20 30 36 32 30 20 20 20 20 20 20 20 52 45 4d 20 56 45 52 54 20 28 43 49 46 46 45 52 ┆+1 0620 REM VERT (CIFFER┆
0x0c80…0ca0 20 2d 34 38 29 20 54 49 4c 20 4a 2e 0d 0a 20 30 36 33 30 20 20 20 20 20 20 20 52 45 4d 20 48 4f ┆ -48) TIL J. 0630 REM HO┆
0x0ca0…0cc0 52 5a 20 28 42 4f 47 53 54 41 56 2d 39 36 29 20 54 49 4c 20 49 2e 0d 0a 20 30 36 34 30 20 20 20 ┆RZ (BOGSTAV-96) TIL I. 0640 ┆
0x0cc0…0ce0 20 20 20 20 49 46 20 4f 52 44 28 50 4c 41 43 45 52 49 4e 47 24 28 32 20 3a 20 31 29 29 3c 35 38 ┆ IF ORD(PLACERING$(2 : 1))<58┆
0x0ce0…0d00 20 54 48 45 4e 20 0d 0a 20 30 36 35 30 20 20 20 20 20 20 20 20 20 4a 3d 4f 52 44 28 50 4c 41 43 ┆ THEN 0650 J=ORD(PLAC┆
0x0d00…0d20 45 52 49 4e 47 24 28 32 20 3a 20 31 29 29 2d 34 38 3b 20 49 3d 4f 52 44 28 50 4c 41 43 45 52 49 ┆ERING$(2 : 1))-48; I=ORD(PLACERI┆
0x0d20…0d40 4e 47 24 28 31 20 3a 20 31 29 29 2d 39 36 0d 0a 20 30 36 36 30 20 20 20 20 20 20 20 45 4c 53 45 ┆NG$(1 : 1))-96 0660 ELSE┆
0x0d40…0d60 20 0d 0a 20 30 36 37 30 20 20 20 20 20 20 20 20 20 4a 3d 4f 52 44 28 50 4c 41 43 45 52 49 4e 47 ┆ 0670 J=ORD(PLACERING┆
0x0d60…0d80 24 28 31 20 3a 20 31 29 29 2d 34 38 3b 20 49 3d 4f 52 44 28 50 4c 41 43 45 52 49 4e 47 24 28 32 ┆$(1 : 1))-48; I=ORD(PLACERING$(2┆
0x0d80…0da0 20 3a 20 31 29 29 2d 39 36 0d 0a 20 30 36 38 30 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 ┆ : 1))-96 0680 ENDIF ┆
0x0da0…0dc0 30 36 39 30 20 20 20 20 20 20 20 50 4c 41 43 45 52 45 3d 28 46 41 4c 53 45 3d 28 50 4c 41 43 45 ┆0690 PLACERE=(FALSE=(PLACE┆
0x0dc0…0de0 52 49 4e 47 24 3d 22 52 45 22 20 4f 52 20 50 4c 41 43 45 52 49 4e 47 24 3d 22 51 54 22 29 29 0d ┆RING$="RE" OR PLACERING$="QT")) ┆
0x0de0…0e00 0a 20 30 37 30 30 20 20 20 20 20 55 4e 54 49 4c 20 54 52 55 45 3d 28 49 3e 30 20 41 4e 44 20 49 ┆ 0700 UNTIL TRUE=(I>0 AND I┆
0x0e00…0e20 3c 39 20 41 4e 44 20 4a 3e 30 20 41 4e 44 20 4a 3c 39 29 20 4f 52 20 50 4c 41 43 45 52 45 3d 46 ┆<9 AND J>0 AND J<9) OR PLACERE=F┆
0x0e20…0e40 41 4c 53 45 0d 0a 20 30 37 31 30 20 20 20 20 20 49 46 20 50 4c 41 43 45 52 45 3d 46 41 4c 53 45 ┆ALSE 0710 IF PLACERE=FALSE┆
0x0e40…0e60 20 54 48 45 4e 20 45 58 49 54 20 0d 0a 20 30 37 32 30 20 20 20 20 20 49 3d 49 2b 31 3b 20 4a 3d ┆ THEN EXIT 0720 I=I+1; J=┆
0x0e60…0e80 4a 2b 31 3b 20 4f 4b 41 59 3d 46 41 4c 53 45 0d 0a 20 30 37 33 30 20 20 20 20 20 49 46 20 42 52 ┆J+1; OKAY=FALSE 0730 IF BR┆
0x0e80…0ea0 5b 54 28 49 2c 4a 29 3c 3e 54 4f 4d 20 54 48 45 4e 20 0d 0a 20 30 37 34 30 20 20 20 20 20 20 20 ┆ÆT(I,J)<>TOM THEN 0740 ┆
0x0ea0…0ec0 50 52 49 4e 54 20 22 4f 43 43 55 50 49 45 44 20 46 49 45 4c 44 20 21 22 0d 0a 20 30 37 35 30 20 ┆PRINT "OCCUPIED FIELD !" 0750 ┆
0x0ec0…0ee0 20 20 20 20 45 4c 53 45 20 0d 0a 20 30 37 36 30 20 20 20 20 20 20 20 45 58 45 43 20 4f 4d 4c 49 ┆ ELSE 0760 EXEC OMLI┆
0x0ee0…0f00 47 47 45 4e 44 45 28 49 2c 4a 2c 52 43 56 5b 52 44 49 29 0d 0a 20 30 37 37 30 20 20 20 20 20 20 ┆GGENDE(I,J,RCVÆRDI) 0770 ┆
0x0f00…0f20 20 49 46 20 4d 55 4c 49 47 3d 46 41 4c 53 45 20 54 48 45 4e 20 0d 0a 20 30 37 38 30 20 20 20 20 ┆ IF MULIG=FALSE THEN 0780 ┆
0x0f20…0f40 20 20 20 20 20 50 52 49 4e 54 20 22 3f 3f 3f 3f 22 0d 0a 20 30 37 39 30 20 20 20 20 20 20 20 45 ┆ PRINT "????" 0790 E┆
0x0f40…0f60 4c 53 45 20 0d 0a 20 30 38 30 30 20 20 20 20 20 20 20 20 20 45 58 45 43 20 4f 50 54 5b 4c 28 49 ┆LSE 0800 EXEC OPTÆL(I┆
0x0f60…0f80 2c 4a 2c 30 2c 52 43 56 5b 52 44 49 2c 4d 44 56 5b 52 44 49 29 0d 0a 20 30 38 31 30 20 20 20 20 ┆,J,0,RCVÆRDI,MDVÆRDI) 0810 ┆
0x0f80…0fa0 20 20 20 20 20 49 46 20 56 45 4e 44 42 41 52 45 3d 46 41 4c 53 45 20 54 48 45 4e 20 0d 0a 20 30 ┆ IF VENDBARE=FALSE THEN 0┆
0x0fa0…0fc0 38 32 30 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 4e 4f 20 4f 4e 45 20 43 41 4e 20 ┆820 PRINT "NO ONE CAN ┆
0x0fc0…0fe0 42 45 20 54 55 52 4e 45 44 20 21 22 0d 0a 20 30 38 33 30 20 20 20 20 20 20 20 20 20 45 4c 53 45 ┆BE TURNED !" 0830 ELSE┆
0x0fe0…1000 20 2a 4e 4f 47 45 4e 20 4b 41 4e 20 56 45 4e 44 45 53 2a 2a 0d 0a 20 30 38 34 30 20 20 20 20 20 ┆ *NOGEN KAN VENDES** 0840 ┆
0x1000…1020 20 20 20 20 20 20 45 58 45 43 20 43 55 52 53 4f 52 28 31 2c 31 34 2c 37 29 0d 0a 20 30 38 35 30 ┆ EXEC CURSOR(1,14,7) 0850┆
0x1020…1040 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 59 4f 55 20 47 4f 54 22 3b 20 56 45 4e 44 ┆ PRINT "YOU GOT"; VEND┆
0x1040…1060 42 41 52 45 3b 20 0d 0a 20 30 38 36 30 20 20 20 20 20 20 20 20 20 20 20 49 46 20 56 45 4e 44 42 ┆BARE; 0860 IF VENDB┆
0x1060…1080 41 52 45 3d 31 20 54 48 45 4e 20 0d 0a 20 30 38 37 30 20 20 20 20 20 20 20 20 20 20 20 20 20 50 ┆ARE=1 THEN 0870 P┆
0x1080…10a0 52 49 4e 54 20 22 50 49 45 43 45 22 0d 0a 20 30 38 38 30 20 20 20 20 20 20 20 20 20 20 20 45 4c ┆RINT "PIECE" 0880 EL┆
0x10a0…10c0 53 45 20 0d 0a 20 30 38 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 50 49 ┆SE 0890 PRINT "PI┆
0x10c0…10e0 45 43 45 53 2e 22 0d 0a 20 30 39 30 30 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a ┆ECES." 0900 ENDIF ┆
0x10e0…1100 20 30 39 31 30 20 20 20 20 20 20 20 20 20 20 20 41 46 53 54 5d 45 54 3d 30 3b 20 4f 4b 41 59 3d ┆ 0910 AFSTÅET=0; OKAY=┆
0x1100…1120 54 52 55 45 3b 20 42 4d 44 3d 42 4d 44 2b 56 45 4e 44 42 41 52 45 2b 31 3b 20 42 52 43 3d 42 52 ┆TRUE; BMD=BMD+VENDBARE+1; BRC=BR┆
0x1120…1140 43 2d 56 45 4e 44 42 41 52 45 0d 0a 20 30 39 32 30 20 20 20 20 20 20 20 20 20 20 20 50 4c 41 43 ┆C-VENDBARE 0920 PLAC┆
0x1140…1160 45 52 45 44 45 3d 50 4c 41 43 45 52 45 44 45 2b 31 3b 20 56 45 52 54 49 28 49 29 3d 56 45 52 54 ┆EREDE=PLACEREDE+1; VERTI(I)=VERT┆
0x1160…1180 49 28 49 29 2b 31 3b 20 48 4f 52 49 5a 28 4a 29 3d 48 4f 52 49 5a 28 4a 29 2b 31 0d 0a 20 30 39 ┆I(I)+1; HORIZ(J)=HORIZ(J)+1 09┆
0x1180…11a0 33 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 4f 50 54 5b 4c 28 49 2c 4a 2c 31 2c 52 43 ┆30 EXEC OPTÆL(I,J,1,RC┆
0x11a0…11c0 56 5b 52 44 49 2c 4d 44 56 5b 52 44 49 29 0d 0a 20 30 39 34 30 20 20 20 20 20 20 20 20 20 45 4e ┆VÆRDI,MDVÆRDI) 0940 EN┆
0x11c0…11e0 44 49 46 20 0d 0a 20 30 39 35 30 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 30 39 36 30 20 ┆DIF 0950 ENDIF 0960 ┆
0x11e0…1200 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 30 39 37 30 20 20 20 55 4e 54 49 4c 20 4f 4b 41 59 3d 54 ┆ ENDIF 0970 UNTIL OKAY=T┆
0x1200…1220 52 55 45 0d 0a 20 30 39 38 30 20 45 4e 44 50 52 4f 43 20 4d 44 42 52 49 4b 50 4c 41 43 45 52 49 ┆RUE 0980 ENDPROC MDBRIKPLACERI┆
0x1220…1240 4e 47 0d 0a 20 30 39 39 30 20 52 45 4d 20 2f 2f 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2f 2f 0d 0a 20 31 ┆NG 0990 REM //----------// 1┆
0x1240…1260 30 30 30 20 50 52 4f 43 20 52 43 42 52 49 4b 50 4c 41 43 45 52 49 4e 47 0d 0a 20 31 30 31 30 20 ┆000 PROC RCBRIKPLACERING 1010 ┆
0x1260…1280 20 20 49 46 20 41 46 53 54 5d 45 54 3d 32 20 4f 52 20 50 4c 41 43 45 52 49 4e 47 24 3d 22 51 54 ┆ IF AFSTÅET=2 OR PLACERING$="QT┆
0x1280…12a0 22 20 54 48 45 4e 20 45 58 49 54 20 0d 0a 20 31 30 32 30 20 20 20 49 2c 4a 3d 31 0d 0a 20 31 30 ┆" THEN EXIT 1020 I,J=1 10┆
0x12a0…12c0 33 30 20 20 20 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 ┆30 REPEAT ** FIND THE TESTFIEL┆
0x12c0…12e0 44 53 20 4c 4f 57 45 52 20 4c 49 4d 49 54 53 20 2a 2a 0d 0a 20 31 30 34 30 20 20 20 20 20 49 3d ┆DS LOWER LIMITS ** 1040 I=┆
0x12e0…1300 49 2b 28 56 45 52 54 49 28 49 29 3d 30 29 3b 20 4a 3d 4a 2b 28 48 4f 52 49 5a 28 4a 29 3d 30 29 ┆I+(VERTI(I)=0); J=J+(HORIZ(J)=0)┆
0x1300…1320 0d 0a 20 31 30 35 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 ┆ 1050 UNTIL VERTI(I)<>0 AND ┆
0x1320…1340 48 4f 52 49 5a 28 4a 29 3c 3e 30 0d 0a 20 31 30 36 30 20 20 20 56 49 3d 49 2d 31 3b 20 56 4a 3d ┆HORIZ(J)<>0 1060 VI=I-1; VJ=┆
0x1340…1360 4a 2d 31 3b 20 49 2c 4a 3d 31 30 0d 0a 20 31 30 37 30 20 20 20 52 45 50 45 41 54 20 2a 2a 20 46 ┆J-1; I,J=10 1070 REPEAT ** F┆
0x1360…1380 49 4e 44 20 54 48 45 20 54 45 53 54 46 49 45 4c 44 53 20 55 50 50 45 52 20 4c 49 4d 49 54 53 20 ┆IND THE TESTFIELDS UPPER LIMITS ┆
0x1380…13a0 2a 2a 0d 0a 20 31 30 38 30 20 20 20 20 20 49 3d 49 2d 28 56 45 52 54 49 28 49 29 3d 30 29 3b 20 ┆** 1080 I=I-(VERTI(I)=0); ┆
0x13a0…13c0 4a 3d 4a 2d 28 48 4f 52 49 5a 28 4a 29 3d 30 29 0d 0a 20 31 30 39 30 20 20 20 55 4e 54 49 4c 20 ┆J=J-(HORIZ(J)=0) 1090 UNTIL ┆
0x13c0…13e0 56 45 52 54 49 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 31 ┆VERTI(I)<>0 AND HORIZ(J)<>0 11┆
0x13e0…1400 30 30 20 20 20 57 49 3d 49 2b 31 3b 20 57 4a 3d 4a 2b 31 3b 20 56 49 3d 56 49 2b 28 56 49 3d 31 ┆00 WI=I+1; WJ=J+1; VI=VI+(VI=1┆
0x1400…1420 29 3b 20 56 4a 3d 56 4a 2b 28 56 4a 3d 31 29 0d 0a 20 31 31 31 30 20 20 20 57 49 3d 57 49 2d 28 ┆); VJ=VJ+(VJ=1) 1110 WI=WI-(┆
0x1420…1440 57 49 3d 31 30 29 3b 20 57 4a 3d 57 4a 2d 28 57 4a 3d 31 30 29 3b 20 4d 41 58 3d 2d 31 0d 0a 20 ┆WI=10); WJ=WJ-(WJ=10); MAX=-1 ┆
0x1440…1460 31 31 32 30 20 20 20 46 4f 52 20 49 3d 56 49 20 54 4f 20 57 49 0d 0a 20 31 31 33 30 20 20 20 20 ┆1120 FOR I=VI TO WI 1130 ┆
0x1460…1480 20 46 4f 52 20 4a 3d 56 4a 20 54 4f 20 57 4a 0d 0a 20 31 31 34 30 20 20 20 20 20 20 20 49 46 20 ┆ FOR J=VJ TO WJ 1140 IF ┆
0x1480…14a0 42 52 5b 54 28 49 2c 4a 29 3d 54 4f 4d 20 54 48 45 4e 20 0d 0a 20 31 31 35 30 20 20 20 20 20 20 ┆BRÆT(I,J)=TOM THEN 1150 ┆
0x14a0…14c0 20 20 20 45 58 45 43 20 4f 4d 4c 49 47 47 45 4e 44 45 28 49 2c 4a 2c 4d 44 56 5b 52 44 49 29 0d ┆ EXEC OMLIGGENDE(I,J,MDVÆRDI) ┆
0x14c0…14e0 0a 20 31 31 36 30 20 20 20 20 20 20 20 20 20 49 46 20 4d 55 4c 49 47 3d 54 52 55 45 20 54 48 45 ┆ 1160 IF MULIG=TRUE THE┆
0x14e0…1500 4e 20 0d 0a 20 31 31 37 30 20 20 20 20 20 20 20 20 20 20 20 45 58 45 43 20 4f 50 54 5b 4c 28 49 ┆N 1170 EXEC OPTÆL(I┆
0x1500…1520 2c 4a 2c 30 2c 4d 44 56 5b 52 44 49 2c 52 43 56 5b 52 44 49 29 0d 0a 20 31 31 38 30 20 20 20 20 ┆,J,0,MDVÆRDI,RCVÆRDI) 1180 ┆
0x1520…1540 20 20 20 20 20 20 20 49 46 20 56 45 4e 44 42 41 52 45 3e 30 20 54 48 45 4e 20 0d 0a 20 31 31 39 ┆ IF VENDBARE>0 THEN 119┆
0x1540…1560 30 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 30 3d 28 28 49 2d 32 29 2a 28 49 2d 39 29 29 ┆0 IF 0=((I-2)*(I-9))┆
0x1560…1580 20 54 48 45 4e 20 56 45 4e 44 42 41 52 45 3d 56 45 4e 44 42 41 52 45 2b 32 0d 0a 20 31 32 30 30 ┆ THEN VENDBARE=VENDBARE+2 1200┆
0x1580…15a0 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 30 3d 28 28 4a 2d 32 29 2a 28 4a 2d 39 29 29 20 ┆ IF 0=((J-2)*(J-9)) ┆
0x15a0…15c0 54 48 45 4e 20 56 45 4e 44 42 41 52 45 3d 56 45 4e 44 42 41 52 45 2b 32 0d 0a 20 31 32 31 30 20 ┆THEN VENDBARE=VENDBARE+2 1210 ┆
0x15c0…15e0 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 56 45 4e 44 42 41 52 45 3d 3e 4d 41 58 20 54 48 45 ┆ IF VENDBARE=>MAX THE┆
0x15e0…1600 4e 20 0d 0a 20 31 32 32 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 56 45 4e 44 42 ┆N 1220 IF VENDB┆
0x1600…1620 41 52 45 3d 4d 41 58 20 54 48 45 4e 20 52 3d 52 4e 44 28 30 29 0d 0a 20 31 32 33 30 20 20 20 20 ┆ARE=MAX THEN R=RND(0) 1230 ┆
0x1620…1640 20 20 20 20 20 20 20 20 20 20 20 49 46 20 52 3c 2e 35 20 4f 52 20 56 45 4e 44 42 41 52 45 3e 4d ┆ IF R<.5 OR VENDBARE>M┆
0x1640…1660 41 58 20 54 48 45 4e 20 4d 41 58 3d 56 45 4e 44 42 41 52 45 3b 20 4d 49 3d 49 3b 20 4d 4a 3d 4a ┆AX THEN MAX=VENDBARE; MI=I; MJ=J┆
0x1660…1680 0d 0a 20 31 32 34 30 20 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 2a 2a 20 42 45 54 ┆ 1240 ENDIF ** BET┆
0x1680…16a0 54 45 52 20 50 4f 53 49 54 49 4f 4e 20 2a 2a 0d 0a 20 31 32 35 30 20 20 20 20 20 20 20 20 20 20 ┆TER POSITION ** 1250 ┆
0x16a0…16c0 20 45 4e 44 49 46 20 2a 2a 20 50 49 45 43 45 53 20 43 41 4e 20 42 45 20 54 55 52 4e 45 44 20 2a ┆ ENDIF ** PIECES CAN BE TURNED *┆
0x16c0…16e0 2a 0d 0a 20 31 32 36 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 2a 2a 20 50 4f 53 53 49 42 ┆* 1260 ENDIF ** POSSIB┆
0x16e0…1700 4c 45 20 50 4f 53 49 54 49 4f 4e 20 4f 46 20 50 49 45 43 45 20 2a 2a 0d 0a 20 31 32 37 30 20 20 ┆LE POSITION OF PIECE ** 1270 ┆
0x1700…1720 20 20 20 20 20 45 4e 44 49 46 20 2a 2a 20 41 54 54 45 4d 50 54 46 49 45 4c 44 20 3d 20 5a 45 52 ┆ ENDIF ** ATTEMPTFIELD = ZER┆
0x1720…1740 4f 20 2a 2a 0d 0a 20 31 32 38 30 20 20 20 20 20 4e 45 58 54 20 4a 0d 0a 20 31 32 39 30 20 20 20 ┆O ** 1280 NEXT J 1290 ┆
0x1740…1760 4e 45 58 54 20 49 0d 0a 20 31 33 30 30 20 20 20 49 46 20 4d 41 58 3c 30 20 54 48 45 4e 20 0d 0a ┆NEXT I 1300 IF MAX<0 THEN ┆
0x1760…1780 20 31 33 31 30 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 ┆ 1310 EXEC CURSOR(1,10,7) ┆
0x1780…17a0 31 33 32 30 20 20 20 20 20 50 52 49 4e 54 20 22 52 43 37 30 30 20 57 41 49 56 45 53 20 49 54 27 ┆1320 PRINT "RC700 WAIVES IT'┆
0x17a0…17c0 53 20 43 4c 41 49 4d 20 21 22 0d 0a 20 31 33 33 30 20 20 20 20 20 50 52 49 4e 54 20 22 59 4f 55 ┆S CLAIM !" 1330 PRINT "YOU┆
0x17c0…17e0 52 20 54 55 52 4e 22 0d 0a 20 31 33 34 30 20 20 20 20 20 41 46 53 54 5d 45 54 3d 41 46 53 54 5d ┆R TURN" 1340 AFSTÅET=AFSTÅ┆
0x17e0…1800 45 54 2b 31 0d 0a 20 31 33 35 30 20 20 20 45 4c 53 45 20 2a 2a 20 50 49 45 43 45 53 20 43 41 4e ┆ET+1 1350 ELSE ** PIECES CAN┆
0x1800…1820 20 42 45 20 54 55 52 4e 45 44 20 2a 2a 0d 0a 20 31 33 36 30 20 20 20 20 20 45 58 45 43 20 43 55 ┆ BE TURNED ** 1360 EXEC CU┆
0x1820…1840 52 53 4f 52 28 31 2c 31 30 2c 37 29 0d 0a 20 31 33 37 30 20 20 20 20 20 50 52 49 4e 54 20 22 52 ┆RSOR(1,10,7) 1370 PRINT "R┆
0x1840…1860 43 37 30 30 20 3a 20 22 2c 43 48 52 28 4d 49 2b 39 35 29 3b 20 43 48 52 28 4d 4a 2b 34 37 29 0d ┆C700 : ",CHR(MI+95); CHR(MJ+47) ┆
0x1860…1880 0a 20 31 33 38 30 20 20 20 20 20 45 58 45 43 20 4f 50 54 5b 4c 28 4d 49 2c 4d 4a 2c 31 2c 4d 44 ┆ 1380 EXEC OPTÆL(MI,MJ,1,MD┆
0x1880…18a0 56 5b 52 44 49 2c 52 43 56 5b 52 44 49 29 0d 0a 20 31 33 39 30 20 20 20 20 20 50 4c 41 43 45 52 ┆VÆRDI,RCVÆRDI) 1390 PLACER┆
0x18a0…18c0 45 44 45 3d 50 4c 41 43 45 52 45 44 45 2b 31 3b 20 42 52 43 3d 42 52 43 2b 56 45 4e 44 42 41 52 ┆EDE=PLACEREDE+1; BRC=BRC+VENDBAR┆
0x18c0…18e0 45 2b 31 3b 20 42 4d 44 3d 42 4d 44 2d 56 45 4e 44 42 41 52 45 0d 0a 20 31 34 30 30 20 20 20 20 ┆E+1; BMD=BMD-VENDBARE 1400 ┆
0x18e0…1900 20 56 45 52 54 49 28 4d 49 29 3d 56 45 52 54 49 28 4d 49 29 2b 31 3b 20 48 4f 52 49 5a 28 4d 4a ┆ VERTI(MI)=VERTI(MI)+1; HORIZ(MJ┆
0x1900…1920 29 3d 48 4f 52 49 5a 28 4d 4a 29 2b 31 3b 20 41 46 53 54 5d 45 54 3d 30 0d 0a 20 31 34 31 30 20 ┆)=HORIZ(MJ)+1; AFSTÅET=0 1410 ┆
0x1920…1940 20 20 20 20 45 58 45 43 20 43 55 52 53 4f 52 28 31 2c 31 35 2c 37 29 0d 0a 20 31 34 32 30 20 20 ┆ EXEC CURSOR(1,15,7) 1420 ┆
0x1940…1960 20 20 20 50 52 49 4e 54 20 22 52 43 37 30 30 20 47 4f 54 22 3b 20 56 45 4e 44 42 41 52 45 3b 20 ┆ PRINT "RC700 GOT"; VENDBARE; ┆
0x1960…1980 0d 0a 20 31 34 33 30 20 20 20 20 20 49 46 20 56 45 4e 44 42 41 52 45 3d 31 20 54 48 45 4e 20 0d ┆ 1430 IF VENDBARE=1 THEN ┆
0x1980…19a0 0a 20 31 34 34 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 22 50 49 45 43 45 2e 22 0d 0a 20 31 34 ┆ 1440 PRINT "PIECE." 14┆
0x19a0…19c0 35 30 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 31 34 36 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 ┆50 ELSE 1460 PRINT ┆
0x19c0…19e0 22 50 49 45 43 45 53 2e 22 0d 0a 20 31 34 37 30 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 34 ┆"PIECES." 1470 ENDIF 14┆
[…truncated at 200 lines…]