|
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 - metrics - download
Length: 13824 (0x3600)
Names: »B22«
└─⟦6dbcc9c03⟧ Bits:30000463 DOMUS disk image
└─⟦this⟧ »/B22«
0x0000…0020 00 00 00 00 00 00 00 62 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ b ┆
0x0020…0040 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…]
0x0080…00a0 20 30 30 31 30 20 52 45 4d 20 0d 0a 20 30 30 32 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 20 43 4f ┆ 0010 REM 0020 REM ******* CO┆
0x00a0…00c0 4e 56 45 52 54 45 44 20 54 4f 20 52 43 37 30 30 20 43 4f 4d 41 4c 20 42 59 20 47 2e 48 2e 4c 41 ┆NVERTED TO RC700 COMAL BY G.H.LA┆
0x00c0…00e0 55 52 53 45 4e 20 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 20 30 30 33 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a ┆URSEN ******** 0030 REM ******┆
0x00e0…0100 2a 20 20 20 20 20 20 20 52 43 20 43 4f 4d 50 55 54 45 52 2c 20 45 58 50 4f 52 54 20 44 49 56 49 ┆* RC COMPUTER, EXPORT DIVI┆
0x0100…0120 53 49 4f 4e 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 0d 0a 20 30 30 34 30 20 52 45 4d 20 0d 0a ┆SION ******** 0040 REM ┆
0x0120…0140 20 30 30 35 30 20 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 56 45 52 ┆ 0050 REM ******* VER┆
0x0140…0160 53 49 4f 4e 20 20 38 31 2e 31 32 2e 30 34 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a ┆SION 81.12.04 ******┆
0x0160…0180 2a 2a 0d 0a 20 30 30 36 30 20 52 45 4d 20 0d 0a 20 30 30 37 30 20 52 45 4d 20 53 45 54 20 55 50 ┆** 0060 REM 0070 REM SET UP┆
0x0180…01a0 20 42 4f 41 52 44 53 20 41 4e 44 20 49 4e 49 54 49 41 4c 49 5a 45 20 56 41 52 49 41 42 4c 45 53 ┆ BOARDS AND INITIALIZE VARIABLES┆
0x01a0…01c0 0d 0a 20 30 30 38 30 20 52 45 4d 20 0d 0a 20 30 30 39 30 20 50 52 49 4e 54 20 43 48 52 28 31 32 ┆ 0080 REM 0090 PRINT CHR(12┆
0x01c0…01e0 29 0d 0a 20 30 31 30 30 20 45 58 45 43 20 49 4e 49 54 44 49 53 50 4c 41 59 0d 0a 20 30 31 31 30 ┆) 0100 EXEC INITDISPLAY 0110┆
0x01e0…0200 20 52 41 4e 44 4f 4d 49 5a 45 20 0d 0a 20 30 31 32 30 20 44 41 54 41 20 32 2c 31 30 2c 33 2c 31 ┆ RANDOMIZE 0120 DATA 2,10,3,1┆
0x0200…0220 34 2c 34 2c 39 38 2c 39 2c 31 30 30 2c 38 2c 39 30 30 2c 32 37 2c 31 30 30 30 30 2c 36 2c 2d 32 ┆4,4,98,9,100,8,900,27,10000,6,-2┆
0x0220…0240 34 2c 31 38 2c 2d 39 38 2c 31 32 2c 2d 31 30 30 0d 0a 20 30 31 33 30 20 44 49 4d 20 42 55 46 24 ┆4,18,-98,12,-100 0130 DIM BUF$┆
0x0240…0260 28 31 32 38 29 2c 56 41 52 24 28 31 29 2c 4e 41 4d 45 53 24 28 35 29 2c 49 4e 49 54 49 41 4c 53 ┆(128),VAR$(1),NAMES$(5),INITIALS┆
0x0260…0280 24 28 35 29 2c 50 41 53 53 24 28 35 29 2c 43 4f 44 45 24 28 35 29 0d 0a 20 30 31 34 30 20 44 49 ┆$(5),PASS$(5),CODE$(5) 0140 DI┆
0x0280…02a0 4d 20 4d 28 36 34 29 2c 4e 28 36 34 29 2c 41 28 39 29 2c 42 28 39 29 2c 4d 41 58 50 52 49 4f 28 ┆M M(64),N(64),A(9),B(9),MAXPRIO(┆
0x02a0…02c0 36 34 29 2c 53 54 4f 52 45 28 34 29 0d 0a 20 30 31 35 30 20 44 49 4d 20 42 49 4e 49 54 24 28 35 ┆64),STORE(4) 0150 DIM BINIT$(5┆
0x02c0…02e0 29 2c 42 50 41 53 24 28 35 29 2c 55 50 44 49 4e 49 54 24 28 35 29 2c 4e 45 57 50 41 53 24 28 35 ┆),BPAS$(5),UPDINIT$(5),NEWPAS$(5┆
0x02e0…0300 29 0d 0a 20 30 31 36 30 20 4c 45 54 20 44 3d 31 3b 20 53 3d 30 3b 20 4d 43 3d 30 3b 20 4e 55 4c ┆) 0160 LET D=1; S=0; MC=0; NUL┆
0x0300…0320 3d 30 3b 20 4f 4e 45 3d 31 0d 0a 20 30 31 37 30 20 4f 4c 44 58 3d 31 33 3b 20 4f 4c 44 59 3d 32 ┆=0; ONE=1 0170 OLDX=13; OLDY=2┆
0x0320…0340 30 3b 20 58 58 3d 33 3b 20 59 59 3d 32 33 0d 0a 20 30 31 38 30 20 46 4f 52 20 50 3d 30 20 54 4f ┆0; XX=3; YY=23 0180 FOR P=0 TO┆
0x0340…0360 20 33 0d 0a 20 30 31 39 30 20 20 20 46 4f 52 20 52 3d 30 20 54 4f 20 33 0d 0a 20 30 32 30 30 20 ┆ 3 0190 FOR R=0 TO 3 0200 ┆
0x0360…0380 20 20 20 20 46 4f 52 20 43 3d 30 20 54 4f 20 33 0d 0a 20 30 32 31 30 20 20 20 20 20 20 20 4c 45 ┆ FOR C=0 TO 3 0210 LE┆
0x0380…03a0 54 20 58 3d 50 2b 34 2a 52 2b 31 36 2a 43 2b 31 0d 0a 20 30 32 32 30 20 20 20 20 20 20 20 4c 45 ┆T X=P+4*R+16*C+1 0220 LE┆
0x03a0…03c0 54 20 4e 28 58 29 3d 30 3b 20 4d 28 58 29 3d 31 0d 0a 20 30 32 33 30 20 20 20 20 20 20 20 49 46 ┆T N(X)=0; M(X)=1 0230 IF┆
0x03c0…03e0 20 50 3d 52 20 41 4e 44 20 50 3d 43 20 54 48 45 4e 20 0d 0a 20 30 32 34 30 20 20 20 20 20 20 20 ┆ P=R AND P=C THEN 0240 ┆
0x03e0…0400 20 20 4e 28 58 29 3d 31 30 0d 0a 20 30 32 35 30 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 ┆ N(X)=10 0250 ENDIF ┆
0x0400…0420 30 32 36 30 20 20 20 20 20 20 20 49 46 20 50 3d 43 20 41 4e 44 20 50 3d 33 2d 52 20 54 48 45 4e ┆0260 IF P=C AND P=3-R THEN┆
0x0420…0440 20 0d 0a 20 30 32 37 30 20 20 20 20 20 20 20 20 20 4e 28 58 29 3d 31 30 0d 0a 20 30 32 38 30 20 ┆ 0270 N(X)=10 0280 ┆
0x0440…0460 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 30 32 39 30 20 20 20 20 20 20 20 49 46 20 50 3d 33 ┆ ENDIF 0290 IF P=3┆
0x0460…0480 2d 43 20 41 4e 44 20 52 3d 43 20 54 48 45 4e 20 0d 0a 20 30 33 30 30 20 20 20 20 20 20 20 20 20 ┆-C AND R=C THEN 0300 ┆
0x0480…04a0 4e 28 58 29 3d 31 30 0d 0a 20 30 33 31 30 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 30 33 ┆N(X)=10 0310 ENDIF 03┆
0x04a0…04c0 32 30 20 20 20 20 20 20 20 49 46 20 50 3d 52 20 41 4e 44 20 50 3d 33 2d 43 20 54 48 45 4e 20 0d ┆20 IF P=R AND P=3-C THEN ┆
0x04c0…04e0 0a 20 30 33 33 30 20 20 20 20 20 20 20 20 20 4e 28 58 29 3d 31 30 0d 0a 20 30 33 34 30 20 20 20 ┆ 0330 N(X)=10 0340 ┆
0x04e0…0500 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 30 33 35 30 20 20 20 20 20 4e 45 58 54 20 43 0d 0a 20 30 ┆ ENDIF 0350 NEXT C 0┆
0x0500…0520 33 36 30 20 20 20 4e 45 58 54 20 52 0d 0a 20 30 33 37 30 20 4e 45 58 54 20 50 0d 0a 20 30 33 38 ┆360 NEXT R 0370 NEXT P 038┆
0x0520…0540 30 20 46 4f 52 20 58 3d 31 20 54 4f 20 39 0d 0a 20 30 33 39 30 20 20 20 52 45 41 44 20 41 28 58 ┆0 FOR X=1 TO 9 0390 READ A(X┆
0x0540…0560 29 2c 42 28 58 29 0d 0a 20 30 34 30 30 20 4e 45 58 54 20 58 0d 0a 20 30 34 31 30 20 45 58 45 43 ┆),B(X) 0400 NEXT X 0410 EXEC┆
0x0560…0580 20 53 43 4f 52 45 28 30 2c 31 29 0d 0a 20 30 34 32 30 20 45 58 45 43 20 4d 41 50 0d 0a 20 30 34 ┆ SCORE(0,1) 0420 EXEC MAP 04┆
0x0580…05a0 33 30 20 52 45 50 45 41 54 20 0d 0a 20 30 34 34 30 20 20 20 52 45 50 45 41 54 20 0d 0a 20 30 34 ┆30 REPEAT 0440 REPEAT 04┆
0x05a0…05c0 35 30 20 20 20 20 20 4c 45 54 20 4f 4b 3d 31 0d 0a 20 30 34 36 30 20 20 20 20 20 45 58 45 43 20 ┆50 LET OK=1 0460 EXEC ┆
0x05c0…05e0 58 59 28 34 35 2c 31 38 29 0d 0a 20 30 34 37 30 20 20 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 ┆XY(45,18) 0470 PRINT " ┆
0x05e0…0600 20 20 20 20 20 20 20 20 20 20 22 0d 0a 20 30 34 38 30 20 20 20 20 20 45 58 45 43 20 58 59 28 31 ┆ " 0480 EXEC XY(1┆
0x0600…0620 2c 31 38 29 0d 0a 20 30 34 39 30 20 20 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 49 4e ┆,18) 0490 PRINT " IN┆
0x0620…0640 50 55 54 20 59 4f 55 52 20 4d 4f 56 45 20 20 28 50 4c 41 4e 45 20 52 4f 57 20 43 4f 4c 55 4d 4e ┆PUT YOUR MOVE (PLANE ROW COLUMN┆
0x0640…0660 29 20 3a 20 22 2c 43 48 52 28 32 36 29 0d 0a 20 30 35 30 30 20 20 20 20 20 46 4f 52 20 43 3d 31 ┆) : ",CHR(26) 0500 FOR C=1┆
0x0660…0680 20 54 4f 20 34 37 0d 0a 20 30 35 31 30 20 20 20 20 20 20 20 4a 3d 43 52 54 28 32 34 29 0d 0a 20 ┆ TO 47 0510 J=CRT(24) ┆
0x0680…06a0 30 35 32 30 20 20 20 20 20 4e 45 58 54 20 43 0d 0a 20 30 35 33 30 20 20 20 20 20 50 3d 4b 45 59 ┆0520 NEXT C 0530 P=KEY┆
0x06a0…06c0 28 30 29 2d 34 39 0d 0a 20 30 35 34 30 20 20 20 20 20 4a 3d 43 52 54 28 50 2b 34 39 29 0d 0a 20 ┆(0)-49 0540 J=CRT(P+49) ┆
0x06c0…06e0 30 35 35 30 20 20 20 20 20 4a 3d 43 52 54 28 32 34 29 0d 0a 20 30 35 36 30 20 20 20 20 20 4a 3d ┆0550 J=CRT(24) 0560 J=┆
0x06e0…0700 43 52 54 28 32 34 29 0d 0a 20 30 35 37 30 20 20 20 20 20 52 3d 4b 45 59 28 30 29 2d 34 39 0d 0a ┆CRT(24) 0570 R=KEY(0)-49 ┆
0x0700…0720 20 30 35 38 30 20 20 20 20 20 4a 3d 43 52 54 28 52 2b 34 39 29 0d 0a 20 30 35 39 30 20 20 20 20 ┆ 0580 J=CRT(R+49) 0590 ┆
0x0720…0740 20 4a 3d 43 52 54 28 32 34 29 0d 0a 20 30 36 30 30 20 20 20 20 20 4a 3d 43 52 54 28 32 34 29 0d ┆ J=CRT(24) 0600 J=CRT(24) ┆
0x0740…0760 0a 20 30 36 31 30 20 20 20 20 20 43 3d 4b 45 59 28 30 29 2d 34 39 0d 0a 20 30 36 32 30 20 20 20 ┆ 0610 C=KEY(0)-49 0620 ┆
0x0760…0780 20 20 4a 3d 43 52 54 28 43 2b 34 39 29 0d 0a 20 30 36 33 30 20 20 20 20 20 49 46 20 50 3e 33 20 ┆ J=CRT(C+49) 0630 IF P>3 ┆
0x0780…07a0 4f 52 20 52 3e 33 20 4f 52 20 43 3e 33 20 4f 52 20 50 3c 30 20 4f 52 20 52 3c 30 20 4f 52 20 43 ┆OR R>3 OR C>3 OR P<0 OR R<0 OR C┆
0x07a0…07c0 3c 30 20 54 48 45 4e 20 0d 0a 20 30 36 34 30 20 20 20 20 20 20 20 4c 45 54 20 4f 4b 3d 30 0d 0a ┆<0 THEN 0640 LET OK=0 ┆
0x07c0…07e0 20 30 36 35 30 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 30 36 36 30 20 20 20 20 20 20 20 49 46 20 ┆ 0650 ELSE 0660 IF ┆
0x07e0…0800 4d 28 50 2b 34 2a 52 2b 31 36 2a 43 2b 31 29 3e 31 20 54 48 45 4e 20 0d 0a 20 30 36 37 30 20 20 ┆M(P+4*R+16*C+1)>1 THEN 0670 ┆
0x0800…0820 20 20 20 20 20 20 20 45 58 45 43 20 58 59 28 31 2c 31 38 29 0d 0a 20 30 36 38 30 20 20 20 20 20 ┆ EXEC XY(1,18) 0680 ┆
0x0820…0840 20 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 43 45 4c 4c 20 4f 43 43 55 50 ┆ PRINT " CELL OCCUP┆
0x0840…0860 49 45 44 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 ┆IED ┆
0x0860…0880 20 20 20 20 20 22 0d 0a 20 30 36 39 30 20 20 20 20 20 20 20 20 20 46 4f 52 20 5a 3d 30 20 54 4f ┆ " 0690 FOR Z=0 TO┆
0x0880…08a0 20 34 30 30 0d 0a 20 30 37 30 30 20 20 20 20 20 20 20 20 20 4e 45 58 54 20 5a 0d 0a 20 30 37 31 ┆ 400 0700 NEXT Z 071┆
0x08a0…08c0 30 20 20 20 20 20 20 20 20 20 4c 45 54 20 4f 4b 3d 30 0d 0a 20 30 37 32 30 20 20 20 20 20 20 20 ┆0 LET OK=0 0720 ┆
0x08c0…08e0 45 4e 44 49 46 20 0d 0a 20 30 37 33 30 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 30 37 34 30 20 ┆ENDIF 0730 ENDIF 0740 ┆
0x08e0…0900 20 20 55 4e 54 49 4c 20 4f 4b 3d 31 0d 0a 20 30 37 35 30 20 20 20 45 58 45 43 20 58 59 28 58 58 ┆ UNTIL OK=1 0750 EXEC XY(XX┆
0x0900…0920 2c 59 59 29 0d 0a 20 30 37 36 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 38 29 3b 20 22 58 ┆,YY) 0760 PRINT CHR(128); "X┆
0x0920…0940 22 0d 0a 20 30 37 37 30 20 20 20 45 58 45 43 20 58 59 28 32 2c 32 33 29 0d 0a 20 30 37 38 30 20 ┆" 0770 EXEC XY(2,23) 0780 ┆
0x0940…0960 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 4e 55 4d 42 45 52 20 4f 46 20 4d 4f 56 45 53 20 3a ┆ PRINT " NUMBER OF MOVES :┆
0x0960…0980 22 3b 20 4d 43 2f 32 2b 31 0d 0a 20 30 37 39 30 20 20 20 58 58 3d 50 2a 31 34 2b 43 2a 33 2b 31 ┆"; MC/2+1 0790 XX=P*14+C*3+1┆
0x0980…09a0 38 3b 20 59 59 3d 52 2b 31 30 0d 0a 20 30 38 30 30 20 20 20 45 58 45 43 20 58 59 28 58 58 2c 59 ┆8; YY=R+10 0800 EXEC XY(XX,Y┆
0x09a0…09c0 59 29 0d 0a 20 30 38 31 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 34 34 29 3b 20 22 58 22 3b ┆Y) 0810 PRINT CHR(144); "X";┆
0x09c0…09e0 20 43 48 52 28 31 32 38 29 0d 0a 20 30 38 32 30 20 20 20 4a 3d 43 52 54 28 32 39 29 0d 0a 20 30 ┆ CHR(128) 0820 J=CRT(29) 0┆
0x09e0…0a00 38 33 30 20 20 20 4c 45 54 20 4d 28 50 2b 34 2a 52 2b 31 36 2a 43 2b 31 29 3d 33 0d 0a 20 30 38 ┆830 LET M(P+4*R+16*C+1)=3 08┆
0x0a00…0a20 34 30 20 20 20 45 58 45 43 20 4c 49 4e 45 53 0d 0a 20 30 38 35 30 20 20 20 45 58 45 43 20 48 49 ┆40 EXEC LINES 0850 EXEC HI┆
0x0a20…0a40 47 48 0d 0a 20 30 38 36 30 20 20 20 45 58 45 43 20 58 59 28 4f 4c 44 58 2c 4f 4c 44 59 29 0d 0a ┆GH 0860 EXEC XY(OLDX,OLDY) ┆
0x0a40…0a60 20 30 38 37 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 38 29 3b 20 22 4f 22 0d 0a 20 30 38 ┆ 0870 PRINT CHR(128); "O" 08┆
0x0a60…0a80 38 30 20 20 20 4f 4c 44 58 3d 50 2a 31 34 2b 43 2a 33 2b 31 38 3b 20 4f 4c 44 59 3d 52 2b 31 30 ┆80 OLDX=P*14+C*3+18; OLDY=R+10┆
0x0a80…0aa0 0d 0a 20 30 38 39 30 20 20 20 45 58 45 43 20 58 59 28 4f 4c 44 58 2c 4f 4c 44 59 29 0d 0a 20 30 ┆ 0890 EXEC XY(OLDX,OLDY) 0┆
0x0aa0…0ac0 39 30 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 34 34 29 3b 20 22 4f 22 3b 20 43 48 52 28 31 ┆900 PRINT CHR(144); "O"; CHR(1┆
0x0ac0…0ae0 32 38 29 0d 0a 20 30 39 31 30 20 20 20 45 58 45 43 20 58 59 28 32 2c 32 30 29 0d 0a 20 30 39 32 ┆28) 0910 EXEC XY(2,20) 092┆
0x0ae0…0b00 30 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 4d 59 20 4d 4f 56 45 20 57 41 53 20 3a 22 3b ┆0 PRINT " MY MOVE WAS :";┆
0x0b00…0b20 20 50 2b 31 3b 20 52 2b 31 3b 20 43 2b 31 0d 0a 20 30 39 33 30 20 20 20 4a 3d 43 52 54 28 32 39 ┆ P+1; R+1; C+1 0930 J=CRT(29┆
0x0b20…0b40 29 0d 0a 20 30 39 34 30 20 20 20 4c 45 54 20 4d 43 3d 4d 43 2b 32 0d 0a 20 30 39 35 30 20 20 20 ┆) 0940 LET MC=MC+2 0950 ┆
0x0b40…0b60 4d 28 50 2b 34 2a 52 2b 31 36 2a 43 2b 31 29 3d 32 0d 0a 20 30 39 36 30 20 20 20 45 58 45 43 20 ┆M(P+4*R+16*C+1)=2 0960 EXEC ┆
0x0b60…0b80 4c 49 4e 45 53 0d 0a 20 30 39 37 30 20 55 4e 54 49 4c 20 4d 43 3d 36 34 0d 0a 20 30 39 38 30 20 ┆LINES 0970 UNTIL MC=64 0980 ┆
0x0b80…0ba0 45 58 45 43 20 58 59 28 32 37 2c 33 29 0d 0a 20 30 39 39 30 20 50 52 49 4e 54 20 43 48 52 28 31 ┆EXEC XY(27,3) 0990 PRINT CHR(1┆
0x0ba0…0bc0 33 30 29 3b 20 22 54 48 45 20 47 41 4d 45 20 49 53 20 44 52 41 57 4e 20 2d 20 4e 4f 20 57 49 4e ┆30); "THE GAME IS DRAWN - NO WIN┆
0x0bc0…0be0 4e 45 52 20 21 21 21 22 3b 20 43 48 52 28 31 32 38 29 0d 0a 20 31 30 30 30 20 45 58 45 43 20 53 ┆NER !!!"; CHR(128) 1000 EXEC S┆
0x0be0…0c00 43 4f 52 45 28 31 2c 36 35 29 0d 0a 20 31 30 31 30 20 52 45 4d 20 0d 0a 20 31 30 32 30 20 52 45 ┆CORE(1,65) 1010 REM 1020 RE┆
0x0c00…0c20 4d 20 50 52 4f 43 45 44 55 52 45 20 4d 41 50 3a 20 44 52 41 57 20 54 48 45 20 42 4f 41 52 44 0d ┆M PROCEDURE MAP: DRAW THE BOARD ┆
0x0c20…0c40 0a 20 31 30 33 30 20 52 45 4d 20 0d 0a 20 31 30 34 30 20 50 52 4f 43 20 4d 41 50 0d 0a 20 31 30 ┆ 1030 REM 1040 PROC MAP 10┆
0x0c40…0c60 35 30 20 20 20 50 52 49 4e 54 20 43 48 52 28 31 32 29 0d 0a 20 31 30 36 30 20 20 20 45 58 45 43 ┆50 PRINT CHR(12) 1060 EXEC┆
0x0c60…0c80 20 58 59 28 34 30 2c 36 29 0d 0a 20 31 30 37 30 20 20 20 50 52 49 4e 54 20 22 43 4f 4c 55 4d 4e ┆ XY(40,6) 1070 PRINT "COLUMN┆
0x0c80…0ca0 53 22 0d 0a 20 31 30 38 30 20 20 20 45 58 45 43 20 58 59 28 31 37 2c 38 29 0d 0a 20 31 30 39 30 ┆S" 1080 EXEC XY(17,8) 1090┆
0x0ca0…0cc0 20 20 20 50 52 49 4e 54 20 22 20 20 31 20 20 32 20 20 33 20 20 34 20 20 20 20 31 20 20 32 20 20 ┆ PRINT " 1 2 3 4 1 2 ┆
0x0cc0…0ce0 33 20 20 34 20 20 20 20 31 20 20 32 20 20 33 20 20 34 20 20 20 20 31 20 20 32 20 20 33 20 20 34 ┆3 4 1 2 3 4 1 2 3 4┆
0x0ce0…0d00 22 0d 0a 20 31 31 30 30 20 20 20 50 52 49 4e 54 20 0d 0a 20 31 31 31 30 20 20 20 46 4f 52 20 52 ┆" 1100 PRINT 1110 FOR R┆
0x0d00…0d20 3d 31 20 54 4f 20 34 0d 0a 20 31 31 32 30 20 20 20 20 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 ┆=1 TO 4 1120 PRINT " ┆
0x0d20…0d40 20 52 4f 57 53 20 22 3b 20 52 3b 20 22 20 20 22 3b 20 0d 0a 20 31 31 33 30 20 20 20 20 20 50 52 ┆ ROWS "; R; " "; 1130 PR┆
0x0d40…0d60 49 4e 54 20 22 20 27 20 20 27 20 20 27 20 20 27 20 20 20 20 27 20 20 27 20 20 27 20 20 27 20 20 ┆INT " ' ' ' ' ' ' ' ' ┆
0x0d60…0d80 20 20 27 20 20 27 20 20 27 20 20 27 20 20 20 20 27 20 20 27 20 20 27 20 20 27 22 0d 0a 20 31 31 ┆ ' ' ' ' ' ' ' '" 11┆
0x0d80…0da0 34 30 20 20 20 4e 45 58 54 20 52 0d 0a 20 31 31 35 30 20 20 20 45 58 45 43 20 58 59 28 31 38 2c ┆40 NEXT R 1150 EXEC XY(18,┆
0x0da0…0dc0 31 35 29 0d 0a 20 31 31 36 30 20 20 20 50 52 49 4e 54 20 22 50 4c 41 4e 45 20 31 20 20 20 20 20 ┆15) 1160 PRINT "PLANE 1 ┆
0x0dc0…0de0 20 20 50 4c 41 4e 45 20 32 20 20 20 20 20 20 20 50 4c 41 4e 45 20 33 20 20 20 20 20 20 20 50 4c ┆ PLANE 2 PLANE 3 PL┆
0x0de0…0e00 41 4e 45 20 34 22 0d 0a 20 31 31 37 30 20 45 4e 44 50 52 4f 43 20 0d 0a 20 31 31 38 30 20 52 45 ┆ANE 4" 1170 ENDPROC 1180 RE┆
0x0e00…0e20 4d 20 0d 0a 20 31 31 39 30 20 52 45 4d 20 0d 0a 20 31 32 30 30 20 52 45 4d 20 50 52 4f 43 45 44 ┆M 1190 REM 1200 REM PROCED┆
0x0e20…0e40 55 52 45 20 4c 49 4e 45 53 3a 20 46 49 4e 44 20 54 48 45 20 4c 49 4e 45 53 20 4f 4e 20 57 48 49 ┆URE LINES: FIND THE LINES ON WHI┆
0x0e40…0e60 43 48 20 54 48 45 20 43 45 4c 4c 20 4c 49 45 53 0d 0a 20 31 32 31 30 20 52 45 4d 20 0d 0a 20 31 ┆CH THE CELL LIES 1210 REM 1┆
0x0e60…0e80 32 32 30 20 50 52 4f 43 20 4c 49 4e 45 53 0d 0a 20 31 32 33 30 20 20 20 46 4f 52 20 51 3d 31 20 ┆220 PROC LINES 1230 FOR Q=1 ┆
0x0e80…0ea0 54 4f 20 33 0d 0a 20 31 32 34 30 20 20 20 20 20 45 58 45 43 20 50 52 49 4f 52 0d 0a 20 31 32 35 ┆TO 3 1240 EXEC PRIOR 125┆
0x0ea0…0ec0 30 20 20 20 4e 45 58 54 20 51 0d 0a 20 31 32 36 30 20 20 20 49 46 20 50 3d 52 20 41 4e 44 20 50 ┆0 NEXT Q 1260 IF P=R AND P┆
0x0ec0…0ee0 3d 43 20 54 48 45 4e 20 51 3d 31 33 0d 0a 20 31 32 37 30 20 20 20 49 46 20 50 3d 52 20 41 4e 44 ┆=C THEN Q=13 1270 IF P=R AND┆
0x0ee0…0f00 20 52 3d 33 2d 43 20 54 48 45 4e 20 51 3d 31 30 0d 0a 20 31 32 38 30 20 20 20 49 46 20 52 3d 43 ┆ R=3-C THEN Q=10 1280 IF R=C┆
0x0f00…0f20 20 41 4e 44 20 52 3d 33 2d 50 20 54 48 45 4e 20 51 3d 31 32 0d 0a 20 31 32 39 30 20 20 20 49 46 ┆ AND R=3-P THEN Q=12 1290 IF┆
0x0f20…0f40 20 50 3d 43 20 41 4e 44 20 50 3d 33 2d 52 20 54 48 45 4e 20 51 3d 31 31 0d 0a 20 31 33 30 30 20 ┆ P=C AND P=3-R THEN Q=11 1300 ┆
0x0f40…0f60 20 20 45 58 45 43 20 50 52 49 4f 52 0d 0a 20 31 33 31 30 20 20 20 49 46 20 50 3d 52 20 54 48 45 ┆ EXEC PRIOR 1310 IF P=R THE┆
0x0f60…0f80 4e 20 0d 0a 20 31 33 32 30 20 20 20 20 20 51 3d 34 0d 0a 20 31 33 33 30 20 20 20 20 20 45 58 45 ┆N 1320 Q=4 1330 EXE┆
0x0f80…0fa0 43 20 50 52 49 4f 52 0d 0a 20 31 33 34 30 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 33 35 30 20 20 ┆C PRIOR 1340 ENDIF 1350 ┆
0x0fa0…0fc0 20 49 46 20 52 3d 43 20 54 48 45 4e 20 0d 0a 20 31 33 36 30 20 20 20 20 20 51 3d 36 0d 0a 20 31 ┆ IF R=C THEN 1360 Q=6 1┆
0x0fc0…0fe0 33 37 30 20 20 20 20 20 45 58 45 43 20 50 52 49 4f 52 0d 0a 20 31 33 38 30 20 20 20 45 4e 44 49 ┆370 EXEC PRIOR 1380 ENDI┆
0x0fe0…1000 46 20 0d 0a 20 31 33 39 30 20 20 20 49 46 20 50 3d 43 20 54 48 45 4e 20 0d 0a 20 31 34 30 30 20 ┆F 1390 IF P=C THEN 1400 ┆
0x1000…1020 20 20 20 20 51 3d 35 0d 0a 20 31 34 31 30 20 20 20 20 20 45 58 45 43 20 50 52 49 4f 52 0d 0a 20 ┆ Q=5 1410 EXEC PRIOR ┆
0x1020…1040 31 34 32 30 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 34 33 30 20 20 20 49 46 20 50 3d 33 2d 52 20 ┆1420 ENDIF 1430 IF P=3-R ┆
0x1040…1060 54 48 45 4e 20 0d 0a 20 31 34 34 30 20 20 20 20 20 51 3d 37 0d 0a 20 31 34 35 30 20 20 20 20 20 ┆THEN 1440 Q=7 1450 ┆
0x1060…1080 45 58 45 43 20 50 52 49 4f 52 0d 0a 20 31 34 36 30 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 34 37 ┆EXEC PRIOR 1460 ENDIF 147┆
0x1080…10a0 30 20 20 20 49 46 20 52 3d 33 2d 43 20 54 48 45 4e 20 0d 0a 20 31 34 38 30 20 20 20 20 20 51 3d ┆0 IF R=3-C THEN 1480 Q=┆
0x10a0…10c0 39 0d 0a 20 31 34 39 30 20 20 20 20 20 45 58 45 43 20 50 52 49 4f 52 0d 0a 20 31 35 30 30 20 20 ┆9 1490 EXEC PRIOR 1500 ┆
0x10c0…10e0 20 45 4e 44 49 46 20 0d 0a 20 31 35 31 30 20 20 20 49 46 20 50 3d 33 2d 43 20 54 48 45 4e 20 0d ┆ ENDIF 1510 IF P=3-C THEN ┆
0x10e0…1100 0a 20 31 35 32 30 20 20 20 20 20 51 3d 38 0d 0a 20 31 35 33 30 20 20 20 20 20 45 58 45 43 20 50 ┆ 1520 Q=8 1530 EXEC P┆
0x1100…1120 52 49 4f 52 0d 0a 20 31 35 34 30 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 35 35 30 20 45 4e 44 50 ┆RIOR 1540 ENDIF 1550 ENDP┆
0x1120…1140 52 4f 43 20 0d 0a 20 31 35 36 30 20 52 45 4d 20 0d 0a 20 31 35 37 30 20 52 45 4d 20 0d 0a 20 31 ┆ROC 1560 REM 1570 REM 1┆
0x1140…1160 35 38 30 20 52 45 4d 20 50 52 4f 43 45 44 55 52 45 20 48 49 47 48 3a 20 46 49 4e 44 20 54 48 45 ┆580 REM PROCEDURE HIGH: FIND THE┆
0x1160…1180 20 43 45 4c 4c 20 57 49 54 48 20 48 49 47 48 45 53 54 20 50 52 49 4f 52 49 54 59 0d 0a 20 31 35 ┆ CELL WITH HIGHEST PRIORITY 15┆
0x1180…11a0 39 30 20 50 52 4f 43 20 48 49 47 48 0d 0a 20 31 36 30 30 20 20 20 48 56 3d 2d 39 39 39 39 39 39 ┆90 PROC HIGH 1600 HV=-999999┆
0x11a0…11c0 39 39 0d 0a 20 31 36 31 30 20 20 20 46 4f 52 20 43 4f 55 4e 54 3d 31 20 54 4f 20 36 34 0d 0a 20 ┆99 1610 FOR COUNT=1 TO 64 ┆
0x11c0…11e0 31 36 32 30 20 20 20 20 20 49 46 20 4d 28 43 4f 55 4e 54 29 3c 32 20 54 48 45 4e 20 0d 0a 20 31 ┆1620 IF M(COUNT)<2 THEN 1┆
0x11e0…1200 36 33 30 20 20 20 20 20 20 20 49 46 20 4e 28 43 4f 55 4e 54 29 3e 48 56 20 54 48 45 4e 20 0d 0a ┆630 IF N(COUNT)>HV THEN ┆
0x1200…1220 20 31 36 34 30 20 20 20 20 20 20 20 20 20 48 56 3d 4e 28 43 4f 55 4e 54 29 0d 0a 20 31 36 35 30 ┆ 1640 HV=N(COUNT) 1650┆
0x1220…1240 20 20 20 20 20 20 20 20 20 50 4f 49 4e 54 45 52 3d 31 0d 0a 20 31 36 36 30 20 20 20 20 20 20 20 ┆ POINTER=1 1660 ┆
0x1240…1260 20 20 4d 41 58 50 52 49 4f 28 50 4f 49 4e 54 45 52 29 3d 43 4f 55 4e 54 0d 0a 20 31 36 37 30 20 ┆ MAXPRIO(POINTER)=COUNT 1670 ┆
0x1260…1280 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 31 36 38 30 20 20 20 20 20 20 20 20 20 49 46 20 4e 28 ┆ ELSE 1680 IF N(┆
0x1280…12a0 43 4f 55 4e 54 29 3d 48 56 20 54 48 45 4e 20 0d 0a 20 31 36 39 30 20 20 20 20 20 20 20 20 20 20 ┆COUNT)=HV THEN 1690 ┆
0x12a0…12c0 20 50 4f 49 4e 54 45 52 3d 50 4f 49 4e 54 45 52 2b 31 0d 0a 20 31 37 30 30 20 20 20 20 20 20 20 ┆ POINTER=POINTER+1 1700 ┆
0x12c0…12e0 20 20 20 20 4d 41 58 50 52 49 4f 28 50 4f 49 4e 54 45 52 29 3d 43 4f 55 4e 54 0d 0a 20 31 37 31 ┆ MAXPRIO(POINTER)=COUNT 171┆
0x12e0…1300 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 37 32 30 20 20 20 20 20 20 20 45 4e ┆0 ENDIF 1720 EN┆
0x1300…1320 44 49 46 20 0d 0a 20 31 37 33 30 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 37 34 30 20 20 20 ┆DIF 1730 ENDIF 1740 ┆
0x1320…1340 4e 45 58 54 20 43 4f 55 4e 54 0d 0a 20 31 37 35 30 20 20 20 50 4f 49 4e 54 45 52 3d 49 4e 54 28 ┆NEXT COUNT 1750 POINTER=INT(┆
0x1340…1360 52 4e 44 28 30 29 2a 50 4f 49 4e 54 45 52 29 2b 31 0d 0a 20 31 37 36 30 20 20 20 43 4f 55 4e 54 ┆RND(0)*POINTER)+1 1760 COUNT┆
0x1360…1380 3d 4d 41 58 50 52 49 4f 28 50 4f 49 4e 54 45 52 29 2d 31 0d 0a 20 31 37 37 30 20 20 20 43 3d 49 ┆=MAXPRIO(POINTER)-1 1770 C=I┆
0x1380…13a0 4e 54 28 43 4f 55 4e 54 2f 31 36 29 0d 0a 20 31 37 38 30 20 20 20 52 3d 49 4e 54 28 28 43 4f 55 ┆NT(COUNT/16) 1780 R=INT((COU┆
0x13a0…13c0 4e 54 2d 43 2a 31 36 29 2f 34 29 0d 0a 20 31 37 39 30 20 20 20 50 3d 43 4f 55 4e 54 2d 28 52 2a ┆NT-C*16)/4) 1790 P=COUNT-(R*┆
0x13c0…13e0 34 2b 43 2a 31 36 29 0d 0a 20 31 38 30 30 20 45 4e 44 50 52 4f 43 20 0d 0a 20 31 38 31 30 20 52 ┆4+C*16) 1800 ENDPROC 1810 R┆
0x13e0…1400 45 4d 20 0d 0a 20 31 38 32 30 20 52 45 4d 20 50 52 4f 43 45 44 55 52 45 20 50 52 49 4f 52 3a 20 ┆EM 1820 REM PROCEDURE PRIOR: ┆
0x1400…1420 41 44 44 20 50 52 49 4f 52 49 54 59 20 56 41 4c 55 45 53 20 54 4f 20 50 52 49 4f 52 49 54 59 20 ┆ADD PRIORITY VALUES TO PRIORITY ┆
0x1420…1440 4d 41 54 52 49 58 0d 0a 20 31 38 33 30 20 52 45 4d 20 0d 0a 20 31 38 34 30 20 50 52 4f 43 20 50 ┆MATRIX 1830 REM 1840 PROC P┆
0x1440…1460 52 49 4f 52 0d 0a 20 31 38 35 30 20 20 20 46 4f 52 20 54 3d 30 20 54 4f 20 33 0d 0a 20 31 38 36 ┆RIOR 1850 FOR T=0 TO 3 186┆
0x1460…1480 30 20 20 20 20 20 50 31 3d 50 3b 20 52 31 3d 52 3b 20 43 31 3d 43 0d 0a 20 31 38 37 30 20 20 20 ┆0 P1=P; R1=R; C1=C 1870 ┆
0x1480…14a0 20 20 49 46 20 51 3e 38 20 54 48 45 4e 20 0d 0a 20 31 38 38 30 20 20 20 20 20 20 20 49 46 20 51 ┆ IF Q>8 THEN 1880 IF Q┆
0x14a0…14c0 3e 31 31 20 54 48 45 4e 20 0d 0a 20 31 38 39 30 20 20 20 20 20 20 20 20 20 49 46 20 51 3d 31 32 ┆>11 THEN 1890 IF Q=12┆
0x14c0…14e0 20 54 48 45 4e 20 0d 0a 20 31 39 30 30 20 20 20 20 20 20 20 20 20 20 20 50 31 3d 33 2d 54 3b 20 ┆ THEN 1900 P1=3-T; ┆
0x14e0…1500 52 31 3d 54 3b 20 43 31 3d 54 0d 0a 20 31 39 31 30 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 0d ┆R1=T; C1=T 1910 ELSE ┆
0x1500…1520 0a 20 31 39 32 30 20 20 20 20 20 20 20 20 20 20 20 50 31 3d 54 3b 20 52 31 3d 54 3b 20 43 31 3d ┆ 1920 P1=T; R1=T; C1=┆
0x1520…1540 54 0d 0a 20 31 39 33 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 31 39 34 30 20 20 ┆T 1930 ENDIF 1940 ┆
0x1540…1560 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 31 39 35 30 20 20 20 20 20 20 20 20 20 49 46 20 51 3e 31 ┆ ELSE 1950 IF Q>1┆
0x1560…1580 30 20 54 48 45 4e 20 0d 0a 20 31 39 36 30 20 20 20 20 20 20 20 20 20 20 20 50 31 3d 54 3b 20 52 ┆0 THEN 1960 P1=T; R┆
0x1580…15a0 31 3d 33 2d 54 3b 20 43 31 3d 54 0d 0a 20 31 39 37 30 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 ┆1=3-T; C1=T 1970 ELSE ┆
0x15a0…15c0 0d 0a 20 31 39 38 30 20 20 20 20 20 20 20 20 20 20 20 49 46 20 51 3d 31 30 20 54 48 45 4e 20 0d ┆ 1980 IF Q=10 THEN ┆
0x15c0…15e0 0a 20 31 39 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 50 31 3d 54 3b 20 52 31 3d 54 3b 20 43 ┆ 1990 P1=T; R1=T; C┆
0x15e0…1600 31 3d 33 2d 54 0d 0a 20 32 30 30 30 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 32 ┆1=3-T 2000 ELSE 2┆
0x1600…1620 30 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 52 31 3d 54 3b 20 43 31 3d 33 2d 54 0d 0a 20 32 ┆010 R1=T; C1=3-T 2┆
0x1620…1640 30 32 30 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 32 30 33 30 20 20 20 20 20 ┆020 ENDIF 2030 ┆
0x1640…1660 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 32 30 34 30 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a ┆ ENDIF 2040 ENDIF ┆
0x1660…1680 20 32 30 35 30 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 32 30 36 30 20 20 20 20 20 20 20 49 46 20 ┆ 2050 ELSE 2060 IF ┆
0x1680…16a0 51 3e 34 20 54 48 45 4e 20 0d 0a 20 32 30 37 30 20 20 20 20 20 20 20 20 20 49 46 20 51 3e 36 20 ┆Q>4 THEN 2070 IF Q>6 ┆
0x16a0…16c0 54 48 45 4e 20 0d 0a 20 32 30 38 30 20 20 20 20 20 20 20 20 20 20 20 49 46 20 51 3d 37 20 54 48 ┆THEN 2080 IF Q=7 TH┆
0x16c0…16e0 45 4e 20 0d 0a 20 32 30 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 52 31 3d 33 2d 54 3b 20 50 ┆EN 2090 R1=3-T; P┆
0x16e0…1700 31 3d 54 0d 0a 20 32 31 30 30 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 32 31 31 ┆1=T 2100 ELSE 211┆
0x1700…1720 30 20 20 20 20 20 20 20 20 20 20 20 20 20 50 31 3d 54 3b 20 43 31 3d 33 2d 54 0d 0a 20 32 31 32 ┆0 P1=T; C1=3-T 212┆
0x1720…1740 30 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 32 31 33 30 20 20 20 20 20 20 20 ┆0 ENDIF 2130 ┆
0x1740…1760 20 20 45 4c 53 45 20 0d 0a 20 32 31 34 30 20 20 20 20 20 20 20 20 20 20 20 49 46 20 51 3d 36 20 ┆ ELSE 2140 IF Q=6 ┆
0x1760…1780 54 48 45 4e 20 0d 0a 20 32 31 35 30 20 20 20 20 20 20 20 20 20 20 20 20 20 52 31 3d 54 3b 20 43 ┆THEN 2150 R1=T; C┆
0x1780…17a0 31 3d 54 0d 0a 20 32 31 36 30 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 32 31 37 ┆1=T 2160 ELSE 217┆
0x17a0…17c0 30 20 20 20 20 20 20 20 20 20 20 20 20 20 50 31 3d 54 3b 20 43 31 3d 54 0d 0a 20 32 31 38 30 20 ┆0 P1=T; C1=T 2180 ┆
0x17c0…17e0 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 32 31 39 30 20 20 20 20 20 20 20 20 20 ┆ ENDIF 2190 ┆
0x17e0…1800 45 4e 44 49 46 20 0d 0a 20 32 32 30 30 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 32 32 31 30 ┆ENDIF 2200 ELSE 2210┆
0x1800…1820 20 20 20 20 20 20 20 20 20 49 46 20 51 3e 32 20 54 48 45 4e 20 0d 0a 20 32 32 32 30 20 20 20 20 ┆ IF Q>2 THEN 2220 ┆
0x1820…1840 20 20 20 20 20 20 20 49 46 20 51 3d 33 20 54 48 45 4e 20 0d 0a 20 32 32 33 30 20 20 20 20 20 20 ┆ IF Q=3 THEN 2230 ┆
0x1840…1860 20 20 20 20 20 20 20 43 31 3d 54 0d 0a 20 32 32 34 30 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 ┆ C1=T 2240 ELS┆
0x1860…1880 45 20 0d 0a 20 32 32 35 30 20 20 20 20 20 20 20 20 20 20 20 20 20 50 31 3d 54 3b 20 52 31 3d 54 ┆E 2250 P1=T; R1=T┆
0x1880…18a0 0d 0a 20 32 32 36 30 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 32 32 37 30 20 ┆ 2260 ENDIF 2270 ┆
0x18a0…18c0 20 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 32 32 38 30 20 20 20 20 20 20 20 20 20 20 20 49 ┆ ELSE 2280 I┆
0x18c0…18e0 46 20 51 3d 31 20 54 48 45 4e 20 0d 0a 20 32 32 39 30 20 20 20 20 20 20 20 20 20 20 20 20 20 50 ┆F Q=1 THEN 2290 P┆
0x18e0…1900 31 3d 54 0d 0a 20 32 33 30 30 20 20 20 20 20 20 20 20 20 20 20 45 4c 53 45 20 0d 0a 20 32 33 31 ┆1=T 2300 ELSE 231┆
0x1900…1920 30 20 20 20 20 20 20 20 20 20 20 20 20 20 52 31 3d 54 0d 0a 20 32 33 32 30 20 20 20 20 20 20 20 ┆0 R1=T 2320 ┆
0x1920…1940 20 20 20 20 45 4e 44 49 46 20 0d 0a 20 32 33 33 30 20 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 ┆ ENDIF 2330 ENDIF ┆
[…truncated at 200 lines…]