|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 7584 (0x1da0)
Types: TextFile
Notes: Mikados_K
Names: »VSKAK.K«
└─⟦0ca3cf8fa⟧ Bits:30004600 DEMO1 - COMAL demoprogram
└─⟦this⟧ »VSKAK.K«
0100 CLEAR
0110 FOR X=1 TO 5
0120 PRINT
0130 NEXT X
0140 FOR X=13 TO 10 STEP -1
0150 PRINT TAB(48);X
0160 NEXT X
0170 FOR X=9 TO 1 STEP -1
0180 PRINT TAB(49);X
0190 NEXT X
0200 PRINT TAB(50);" 1 1 1 1"
0210 PRINT TAB(50);" 1 2 3 4 5 6 7 8 9 0 1 2 3"
0220 RANDOMIZE
0230 T,M,F,PM=0
0240 DIM V(50),Z(50)
0250 DIM S(2),R(2),MX(25),MY(25)
0260 DIM A(15,15),H(15,15),ST$(1),K(256,3),L(256,3)
0270 CURSOR 24,1
0280 PRINT "VAGABONDSKAK - 5 PAA STRIBE"
0290 PRINT TAB(29);"SPILLEPLAN 13*13"
0300 FOR X=6 TO 18
0310 CURSOR 52,X
0320 ; ": : : : : : : : : : : : :"
0330 NEXT X
0340 OPEN "DEMO1:DATA",R
0350 IF STATUS("DEMO1:DATA")<>0 THEN GO TO 0340
0360 WHILE STATUS("DEMO1:DATA")<>19
0370 GET "DEMO1:DATA":X2,Y2,Z2,V2,X1,Y1,Z1,V1
0380 K(X2+1,Y2+1)=V2;K(X1+1,Y1+1)=V1;L(X2+1,Y2+1)=Z2;L(X1+1,Y1+1)=Z1
0390 ENDWHILE
0400 FOR X=2 TO 14
0410 FOR Y=2 TO 14
0420 A(X,Y),H(X,Y)=0
0430 NEXT Y
0440 NEXT X
0450 FOR X=1 TO 15
0460 A(X,1),A(X,15),A(1,X),A(15,X)=-1
0470 NEXT X
0480 PRINT CHR(7)
0490 INPUT "VIL DU SPILLE BLINDT ?! ",ST$
0500 IF ST$="J" THEN F=1
0510 INPUT "HVILKET NIVEAU ? ",NI
0520 LIM=(NI-1)*700+20
0530 INPUT "VIL DU STARTE ? ",ST$
0540 IF ST$="N" THEN
0550 A(8,8)=1
0560 CURSOR 64,12
0570 PRINT "x"
0580 CURSOR 1,9
0590 PRINT "MIT TR@K : ";7;":";7
0600 EX,EY=8
0610 ENDIF
0620 CURSOR 1,11
0630 PRINT " "
0640 PRINT " "
0650 CURSOR 1,11
0660 INPUT "DIT TR@K : ",X,Y
0670 IF X>13 OR X<1 OR Y>13 OR Y<1 THEN
0675 PRINT "UDENFOR BANEN"
0680 FOR DCOUNT=1 TO 300
0690 NEXT DCOUNT
0710 GO TO 0620
0720 ELSE
0730 IF A(X+1,Y+1)=0 THEN
0740 A(X+1,Y+1)=2
0750 ELSE
0760 PRINT "IKKE ET TOMT FELT, PR0V IGEN"
0770 FOR DCOUNT=1 TO 300
0780 NEXT DCOUNT
0790 GO TO 0620
0800 ENDIF
0810 ENDIF
0820 IF T=0 THEN
0830 IF ST$<>"N" THEN
0840 EX=X+1;EY=Y+1
0850 ENDIF
0860 B=X+1;C=Y+1
0870 ELSE
0880 B=X+1;C=Y+1
0890 ENDIF
0900 IF F=1 THEN GO TO 0930
0910 CURSOR 50+2*X,19-Y
0920 PRINT "o"
0930 T=T+1
0940 RESTORE
0950 FOR RETN=1 TO 4
0960 READ U,W
0970 I1,I2=0
0980 REPEAT
0990 I1=I1+1
1000 X=B+U*I1;Y=C+W*I1
1010 UNTIL A(X,Y)<>2
1020 IF A(X,Y)=0 AND H(X,Y)=0 THEN
1030 H(X,Y)=1;M=M+1
1040 V(M)=X;Z(M)=Y
1050 ENDIF
1060 REPEAT
1070 I2=I2+1
1080 X=B-U*I2;Y=C-W*I2
1090 UNTIL A(X,Y)<>2
1100 IF A(X,Y)=0 AND H(X,Y)=0 THEN
1110 M=M+1;H(X,Y)=1
1120 V(M)=X;Z(M)=Y
1130 ENDIF
1140 IF I1+I2>5 THEN GO TO 2640
1150 NEXT RETN
1160 RESTORE
1170 FOR RETN=1 TO 4
1180 READ U,W
1190 I1,I2=0
1200 REPEAT
1210 I1=I1+1
1220 X=EX+U*I1;Y=EY+W*I1
1230 UNTIL A(X,Y)<>1
1240 IF A(X,Y)=0 AND H(X,Y)=0 THEN
1250 H(X,Y)=1;M=M+1
1260 V(M)=X;Z(M)=Y
1270 ENDIF
1280 REPEAT
1290 I2=I2+1
1300 X=EX-U*I2;Y=EY-W*I2
1310 UNTIL A(X,Y)<>1
1320 IF A(X,Y)=0 AND H(X,Y)=0 THEN
1330 M=M+1;H(X,Y)=1
1340 V(M)=X;Z(M)=Y
1350 ENDIF
1360 NEXT RETN
1370 O,MAX=1;PL=0
1380 IF A(V(O),Z(O))=0 THEN
1390 RESTORE
1400 L1,K1,P=0
1410 FOR RETN=1 TO 4
1420 READ U,W
1430 R(1),R(2),S(1),S(2)=0
1440 IF A(V(O)+U,Z(O)+W)=-1 THEN
1450 S(1),S(2)=1
1460 GO TO 1700
1470 ENDIF
1480 D=A(V(O)+U,Z(O)+W)
1490 IF D=0 THEN
1500 IF A(V(O)+2*U,Z(O)+2*W)<1 THEN GO TO 1700
1510 D=A(V(O)+2*U,Z(O)+2*W)
1520 ELSE
1530 R(D),S(D)=1
1540 ENDIF
1550 N=1
1560 N=N+1
1570 IF N>4 THEN GO TO 1700
1580 NN=A(V(O)+N*U,Z(O)+N*W)
1590 IF NN=0 THEN
1600 IF A(V(O)+(N+1)*U,Z(O)+(N+1)*W)=D AND N<>4 THEN GO TO 1560
1610 GO TO 1700
1620 ENDIF
1630 IF NN=D THEN
1640 R(D)=R(D)+INT(2**(N-1)+.1)
1650 ELSE
1660 S(3-D)=S(3-D)+1
1670 GO TO 1700
1680 ENDIF
1690 GO TO 1560
1700 IF A(V(O)-U,Z(O)-W)=-1 THEN
1710 S(1)=S(1)+1;S(2)=S(2)+1
1720 GO TO 1960
1730 ENDIF
1740 IF A(V(O)-U,Z(O)-W)=0 THEN
1750 IF A(V(O)-2*U,Z(O)-2*W)<1 THEN GO TO 1960
1760 E=A(V(O)-2*U,Z(O)-2*W)
1770 ELSE
1780 E=A(V(O)-U,Z(O)-W)
1790 R(E)=R(E)+16;S(E)=S(E)+1
1800 ENDIF
1810 IF E<>D THEN EXEC PT
1820 N=3
1830 N=N+1
1840 IF N>6 THEN GO TO 1950
1850 NN=A(V(O)+(2-N)*U,Z(O)+(2-N)*W)
1860 IF NN=0 THEN
1870 IF A(V(O)+(1-N)*U,Z(O)+(1-N)*W)=E AND N<>6 THEN GO TO 1830
1880 GO TO 1950
1890 ENDIF
1900 IF NN=E THEN
1910 R(E)=R(E)+INT(2**(N+1)+.1)
1920 GO TO 1830
1930 ENDIF
1940 S(3-E)=S(3-E)+1
1950 D=E
1960 EXEC PT
1970 NEXT RETN
1980 PROC PT
1990 IF D=1 THEN
2000 P=P+K(R(1)+1,S(2)+1)
2010 K1=K1+K(R(1)+1,S(2)+1) MOD 5
2020 ELSE
2030 IF D=2 THEN
2040 P=P+L(R(2)+1,S(1)+1)
2050 L1=L1+L(R(2)+1,S(1)+1) MOD 5
2060 ENDIF
2070 ENDIF
2080 ENDPROC
2090 IF P=>100000 THEN
2100 CURSOR 48+2*V(O),20-Z(O)
2110 PRINT "x"
2120 PRINT CHR(7)
2130 CURSOR 1,9
2140 PRINT " "
2150 CURSOR 1,9
2160 PRINT "MIT TR@K: ";V(O)-1;":";Z(O)-1
2170 CURSOR 1,12
2180 PRINT CHR(7)
2190 PRINT "JEG VANDT"
2200 PRINT "TAK FOR SPILLET"
2210 END
2220 ENDIF
2230 CASE L1 OF
2240 WHEN 5,6,7
2250 P=P+6000
2260 WHEN 4
2270 P=P+2000
2280 ENDCASE
2290 CASE K1 OF
2300 WHEN 5,6,7
2310 P=P+8000
2320 WHEN 4
2330 P=P+3000
2340 ENDCASE
2350 IF P>1000*NI THEN
2360 PL=PL+1
2370 V(PL)=V(O);Z(PL)=Z(O)
2380 ELSE
2390 H(V(O),Z(O))=0
2400 ENDIF
2410 IF P>PM-LIM AND P<PM+LIM THEN
2420 MX(MAX)=V(O);MY(MAX)=Z(O)
2430 MAX=MAX+1
2440 ELSE
2450 IF P>PM+LIM THEN
2460 PM=P;MX(1)=V(O);MY(1)=Z(O);MAX=2
2470 ENDIF
2480 ENDIF
2490 ENDIF
2500 O=O+1
2510 IF M=>O THEN GO TO 1380
2520 RN=INT(RND(5)*10000) MOD (MAX-1)+1
2530 A(MX(RN),MY(RN))=1
2540 PRINT CHR(7)
2550 IF F=1 THEN GO TO 2580
2560 CURSOR 48+2*MX(RN),20-MY(RN)
2570 PRINT "x"
2580 CURSOR 1,9
2590 PRINT " "
2600 CURSOR 1,9
2610 PRINT "MIT TR@K: ";MX(RN)-1;":";MY(RN)-1
2620 EX=MX(RN);EY=MY(RN);PM=0;M=PL
2630 GO TO 0620
2640 PRINT "DU VANDT"
2650 GO TO 2200
2660 DATA 1,0,1,1,0,1,-1,1
2670 REM BY FLEMMING NIELSEN AND PALLE CHRISTENSEN
0x0000…000d Line {l1=0x0b, l2=»0100 CLEAR «, l3=0x0b}
0x000d…0020 Line {l1=0x11, l2=»0110 FOR X=1 TO 5«, l3=0x11}
0x0020…002d Line {l1=0x0b, l2=»0120 PRINT «, l3=0x0b}
0x002d…003a Line {l1=0x0b, l2=»0130 NEXT X«, l3=0x0b}
0x003a…0057 Line {l1=0x1b, l2=»0140 FOR X=13 TO 10 STEP -1«, l3=0x1b}
0x0057…006d Line {l1=0x14, l2=»0150 PRINT TAB(48);X«, l3=0x14}
0x006d…007a Line {l1=0x0b, l2=»0160 NEXT X«, l3=0x0b}
0x007a…0095 Line {l1=0x19, l2=»0170 FOR X=9 TO 1 STEP -1«, l3=0x19}
0x0095…00ab Line {l1=0x14, l2=»0180 PRINT TAB(49);X«, l3=0x14}
0x00ab…00b8 Line {l1=0x0b, l2=»0190 NEXT X«, l3=0x0b}
0x00b8…00ea Line {l1=0x30, l2=»0200 PRINT TAB(50);" 1 1 1 1"«, l3=0x30}
0x00ea…011c Line {l1=0x30, l2=»0210 PRINT TAB(50);" 1 2 3 4 5 6 7 8 9 0 1 2 3"«, l3=0x30}
0x011c…012d Line {l1=0x0f, l2=»0220 RANDOMIZE «, l3=0x0f}
0x012d…013e Line {l1=0x0f, l2=»0230 T,M,F,PM=0«, l3=0x0f}
0x013e…0154 Line {l1=0x14, l2=»0240 DIM V(50),Z(50)«, l3=0x14}
0x0154…0176 Line {l1=0x20, l2=»0250 DIM S(2),R(2),MX(25),MY(25)«, l3=0x20}
0x0176…01ab Line {l1=0x33, l2=»0260 DIM A(15,15),H(15,15),ST$(1),K(256,3),L(256,3)«, l3=0x33}
0x01ab…01bd Line {l1=0x10, l2=»0270 CURSOR 24,1«, l3=0x10}
0x01bd…01e7 Line {l1=0x28, l2=»0280 PRINT "VAGABONDSKAK - 5 PAA STRIBE"«, l3=0x28}
0x01e7…020e Line {l1=0x25, l2=»0290 PRINT TAB(29);"SPILLEPLAN 13*13"«, l3=0x25}
0x020e…0222 Line {l1=0x12, l2=»0300 FOR X=6 TO 18«, l3=0x12}
0x0222…0234 Line {l1=0x10, l2=»0310 CURSOR 52,X«, l3=0x10}
0x0234…0258 Line {l1=0x22, l2=»0320 ; ": : : : : : : : : : : : :"«, l3=0x22}
0x0258…0265 Line {l1=0x0b, l2=»0330 NEXT X«, l3=0x0b}
0x0265…027f Line {l1=0x18, l2=»0340 OPEN "DEMO1:DATA",R«, l3=0x18}
0x027f…02b0 Line {l1=0x2f, l2=»0350 IF STATUS("DEMO1:DATA")<>0 THEN GO TO 0340«, l3=0x2f}
0x02b0…02d5 Line {l1=0x23, l2=»0360 WHILE STATUS("DEMO1:DATA")<>19«, l3=0x23}
0x02d5…0304 Line {l1=0x2d, l2=»0370 GET "DEMO1:DATA":X2,Y2,Z2,V2,X1,Y1,Z1,V1«, l3=0x2d}
0x0304…034a Line {l1=0x44, l2=»0380 K(X2+1,Y2+1)=V2;K(X1+1,Y1+1)=V1;L(X2+1,Y2+1)=Z2;L(X1+1,Y1+1)=Z1«, l3=0x44}
0x034a…035a Line {l1=0x0e, l2=»0390 ENDWHILE «, l3=0x0e}
0x035a…036e Line {l1=0x12, l2=»0400 FOR X=2 TO 14«, l3=0x12}
0x036e…0382 Line {l1=0x12, l2=»0410 FOR Y=2 TO 14«, l3=0x12}
0x0382…0398 Line {l1=0x14, l2=»0420 A(X,Y),H(X,Y)=0«, l3=0x14}
0x0398…03a5 Line {l1=0x0b, l2=»0430 NEXT Y«, l3=0x0b}
0x03a5…03b2 Line {l1=0x0b, l2=»0440 NEXT X«, l3=0x0b}
0x03b2…03c6 Line {l1=0x12, l2=»0450 FOR X=1 TO 15«, l3=0x12}
0x03c6…03ed Line {l1=0x25, l2=»0460 A(X,1),A(X,15),A(1,X),A(15,X)=-1«, l3=0x25}
0x03ed…03fa Line {l1=0x0b, l2=»0470 NEXT X«, l3=0x0b}
0x03fa…040d Line {l1=0x11, l2=»0480 PRINT CHR(7)«, l3=0x11}
0x040d…0438 Line {l1=0x29, l2=»0490 INPUT "VIL DU SPILLE BLINDT ?! ",ST$«, l3=0x29}
0x0438…0452 Line {l1=0x18, l2=»0500 IF ST$="J" THEN F=1«, l3=0x18}
0x0452…0475 Line {l1=0x21, l2=»0510 INPUT "HVILKET NIVEAU ? ",NI«, l3=0x21}
0x0475…048d Line {l1=0x16, l2=»0520 LIM=(NI-1)*700+20«, l3=0x16}
0x048d…04b0 Line {l1=0x21, l2=»0530 INPUT "VIL DU STARTE ? ",ST$«, l3=0x21}
0x04b0…04c7 Line {l1=0x15, l2=»0540 IF ST$="N" THEN «, l3=0x15}
0x04c7…04d6 Line {l1=0x0d, l2=»0550 A(8,8)=1«, l3=0x0d}
0x04d6…04e9 Line {l1=0x11, l2=»0560 CURSOR 64,12«, l3=0x11}
0x04e9…04f9 Line {l1=0x0e, l2=»0570 PRINT "x"«, l3=0x0e}
0x04f9…050a Line {l1=0x0f, l2=»0580 CURSOR 1,9«, l3=0x0f}
0x050a…052c Line {l1=0x20, l2=»0590 PRINT "MIT TR@K : ";7;":";7«, l3=0x20}
0x052c…053a Line {l1=0x0c, l2=»0600 EX,EY=8«, l3=0x0c}
0x053a…0547 Line {l1=0x0b, l2=»0610 ENDIF «, l3=0x0b}
0x0547…0559 Line {l1=0x10, l2=»0620 CURSOR 1,11«, l3=0x10}
0x0559…058b Line {l1=0x30, l2=»0630 PRINT " "«, l3=0x30}
0x058b…05bd Line {l1=0x30, l2=»0640 PRINT " "«, l3=0x30}
0x05bd…05cf Line {l1=0x10, l2=»0650 CURSOR 1,11«, l3=0x10}
0x05cf…05ed Line {l1=0x1c, l2=»0660 INPUT "DIT TR@K : ",X,Y«, l3=0x1c}
0x05ed…0617 Line {l1=0x28, l2=»0670 IF X>13 OR X<1 OR Y>13 OR Y<1 THEN «, l3=0x28}
0x0617…0633 Line {l1=0x1a, l2=»0675 PRINT "UDENFOR BANEN"«, l3=0x1a}
0x0633…064d Line {l1=0x18, l2=»0680 FOR DCOUNT=1 TO 300«, l3=0x18}
0x064d…065f Line {l1=0x10, l2=»0690 NEXT DCOUNT«, l3=0x10}
0x065f…0670 Line {l1=0x0f, l2=»0710 GO TO 0620«, l3=0x0f}
0x0670…067c Line {l1=0x0a, l2=»0720 ELSE «, l3=0x0a}
0x067c…0698 Line {l1=0x1a, l2=»0730 IF A(X+1,Y+1)=0 THEN «, l3=0x1a}
0x0698…06ab Line {l1=0x11, l2=»0740 A(X+1,Y+1)=2«, l3=0x11}
0x06ab…06b7 Line {l1=0x0a, l2=»0750 ELSE «, l3=0x0a}
0x06b7…06e2 Line {l1=0x29, l2=»0760 PRINT "IKKE ET TOMT FELT, PR0V IGEN"«, l3=0x29}
0x06e2…06fc Line {l1=0x18, l2=»0770 FOR DCOUNT=1 TO 300«, l3=0x18}
0x06fc…070e Line {l1=0x10, l2=»0780 NEXT DCOUNT«, l3=0x10}
0x070e…071f Line {l1=0x0f, l2=»0790 GO TO 0620«, l3=0x0f}
0x071f…072c Line {l1=0x0b, l2=»0800 ENDIF «, l3=0x0b}
0x072c…0739 Line {l1=0x0b, l2=»0810 ENDIF «, l3=0x0b}
0x0739…074c Line {l1=0x11, l2=»0820 IF T=0 THEN «, l3=0x11}
0x074c…0764 Line {l1=0x16, l2=»0830 IF ST$<>"N" THEN «, l3=0x16}
0x0764…0778 Line {l1=0x12, l2=»0840 EX=X+1;EY=Y+1«, l3=0x12}
0x0778…0785 Line {l1=0x0b, l2=»0850 ENDIF «, l3=0x0b}
0x0785…0797 Line {l1=0x10, l2=»0860 B=X+1;C=Y+1«, l3=0x10}
0x0797…07a3 Line {l1=0x0a, l2=»0870 ELSE «, l3=0x0a}
0x07a3…07b5 Line {l1=0x10, l2=»0880 B=X+1;C=Y+1«, l3=0x10}
0x07b5…07c2 Line {l1=0x0b, l2=»0890 ENDIF «, l3=0x0b}
0x07c2…07df Line {l1=0x1b, l2=»0900 IF F=1 THEN GO TO 0930«, l3=0x1b}
0x07df…07f8 Line {l1=0x17, l2=»0910 CURSOR 50+2*X,19-Y«, l3=0x17}
0x07f8…0808 Line {l1=0x0e, l2=»0920 PRINT "o"«, l3=0x0e}
0x0808…0814 Line {l1=0x0a, l2=»0930 T=T+1«, l3=0x0a}
0x0814…0823 Line {l1=0x0d, l2=»0940 RESTORE «, l3=0x0d}
0x0823…0839 Line {l1=0x14, l2=»0950 FOR RETN=1 TO 4«, l3=0x14}
0x0839…0848 Line {l1=0x0d, l2=»0960 READ U,W«, l3=0x0d}
0x0848…0856 Line {l1=0x0c, l2=»0970 I1,I2=0«, l3=0x0c}
0x0856…0864 Line {l1=0x0c, l2=»0980 REPEAT «, l3=0x0c}
0x0864…0872 Line {l1=0x0c, l2=»0990 I1=I1+1«, l3=0x0c}
0x0872…088a Line {l1=0x16, l2=»1000 X=B+U*I1;Y=C+W*I1«, l3=0x16}
0x088a…08a0 Line {l1=0x14, l2=»1010 UNTIL A(X,Y)<>2«, l3=0x14}
0x08a0…08c5 Line {l1=0x23, l2=»1020 IF A(X,Y)=0 AND H(X,Y)=0 THEN «, l3=0x23}
0x08c5…08da Line {l1=0x13, l2=»1030 H(X,Y)=1;M=M+1«, l3=0x13}
0x08da…08ee Line {l1=0x12, l2=»1040 V(M)=X;Z(M)=Y«, l3=0x12}
0x08ee…08fb Line {l1=0x0b, l2=»1050 ENDIF «, l3=0x0b}
0x08fb…0909 Line {l1=0x0c, l2=»1060 REPEAT «, l3=0x0c}
0x0909…0917 Line {l1=0x0c, l2=»1070 I2=I2+1«, l3=0x0c}
0x0917…092f Line {l1=0x16, l2=»1080 X=B-U*I2;Y=C-W*I2«, l3=0x16}
0x092f…0945 Line {l1=0x14, l2=»1090 UNTIL A(X,Y)<>2«, l3=0x14}
0x0945…096a Line {l1=0x23, l2=»1100 IF A(X,Y)=0 AND H(X,Y)=0 THEN «, l3=0x23}
0x096a…097f Line {l1=0x13, l2=»1110 M=M+1;H(X,Y)=1«, l3=0x13}
0x097f…0993 Line {l1=0x12, l2=»1120 V(M)=X;Z(M)=Y«, l3=0x12}
0x0993…09a0 Line {l1=0x0b, l2=»1130 ENDIF «, l3=0x0b}
0x09a0…09c1 Line {l1=0x1f, l2=»1140 IF I1+I2>5 THEN GO TO 2640«, l3=0x1f}
0x09c1…09d1 Line {l1=0x0e, l2=»1150 NEXT RETN«, l3=0x0e}
0x09d1…09e0 Line {l1=0x0d, l2=»1160 RESTORE «, l3=0x0d}
0x09e0…09f6 Line {l1=0x14, l2=»1170 FOR RETN=1 TO 4«, l3=0x14}
0x09f6…0a05 Line {l1=0x0d, l2=»1180 READ U,W«, l3=0x0d}
0x0a05…0a13 Line {l1=0x0c, l2=»1190 I1,I2=0«, l3=0x0c}
0x0a13…0a21 Line {l1=0x0c, l2=»1200 REPEAT «, l3=0x0c}
0x0a21…0a2f Line {l1=0x0c, l2=»1210 I1=I1+1«, l3=0x0c}
0x0a2f…0a49 Line {l1=0x18, l2=»1220 X=EX+U*I1;Y=EY+W*I1«, l3=0x18}
0x0a49…0a5f Line {l1=0x14, l2=»1230 UNTIL A(X,Y)<>1«, l3=0x14}
0x0a5f…0a84 Line {l1=0x23, l2=»1240 IF A(X,Y)=0 AND H(X,Y)=0 THEN «, l3=0x23}
0x0a84…0a99 Line {l1=0x13, l2=»1250 H(X,Y)=1;M=M+1«, l3=0x13}
0x0a99…0aad Line {l1=0x12, l2=»1260 V(M)=X;Z(M)=Y«, l3=0x12}
0x0aad…0aba Line {l1=0x0b, l2=»1270 ENDIF «, l3=0x0b}
0x0aba…0ac8 Line {l1=0x0c, l2=»1280 REPEAT «, l3=0x0c}
0x0ac8…0ad6 Line {l1=0x0c, l2=»1290 I2=I2+1«, l3=0x0c}
0x0ad6…0af0 Line {l1=0x18, l2=»1300 X=EX-U*I2;Y=EY-W*I2«, l3=0x18}
0x0af0…0b06 Line {l1=0x14, l2=»1310 UNTIL A(X,Y)<>1«, l3=0x14}
0x0b06…0b2b Line {l1=0x23, l2=»1320 IF A(X,Y)=0 AND H(X,Y)=0 THEN «, l3=0x23}
0x0b2b…0b40 Line {l1=0x13, l2=»1330 M=M+1;H(X,Y)=1«, l3=0x13}
0x0b40…0b54 Line {l1=0x12, l2=»1340 V(M)=X;Z(M)=Y«, l3=0x12}
0x0b54…0b61 Line {l1=0x0b, l2=»1350 ENDIF «, l3=0x0b}
0x0b61…0b71 Line {l1=0x0e, l2=»1360 NEXT RETN«, l3=0x0e}
0x0b71…0b84 Line {l1=0x11, l2=»1370 O,MAX=1;PL=0«, l3=0x11}
0x0b84…0ba2 Line {l1=0x1c, l2=»1380 IF A(V(O),Z(O))=0 THEN «, l3=0x1c}
0x0ba2…0bb1 Line {l1=0x0d, l2=»1390 RESTORE «, l3=0x0d}
0x0bb1…0bc1 Line {l1=0x0e, l2=»1400 L1,K1,P=0«, l3=0x0e}
0x0bc1…0bd7 Line {l1=0x14, l2=»1410 FOR RETN=1 TO 4«, l3=0x14}
0x0bd7…0be6 Line {l1=0x0d, l2=»1420 READ U,W«, l3=0x0d}
0x0be6…0c02 Line {l1=0x1a, l2=»1430 R(1),R(2),S(1),S(2)=0«, l3=0x1a}
0x0c02…0c25 Line {l1=0x21, l2=»1440 IF A(V(O)+U,Z(O)+W)=-1 THEN «, l3=0x21}
0x0c25…0c37 Line {l1=0x10, l2=»1450 S(1),S(2)=1«, l3=0x10}
0x0c37…0c48 Line {l1=0x0f, l2=»1460 GO TO 1700«, l3=0x0f}
0x0c48…0c55 Line {l1=0x0b, l2=»1470 ENDIF «, l3=0x0b}
0x0c55…0c6e Line {l1=0x17, l2=»1480 D=A(V(O)+U,Z(O)+W)«, l3=0x17}
0x0c6e…0c81 Line {l1=0x11, l2=»1490 IF D=0 THEN «, l3=0x11}
0x0c81…0cb1 Line {l1=0x2e, l2=»1500 IF A(V(O)+2*U,Z(O)+2*W)<1 THEN GO TO 1700«, l3=0x2e}
0x0cb1…0cce Line {l1=0x1b, l2=»1510 D=A(V(O)+2*U,Z(O)+2*W)«, l3=0x1b}
0x0cce…0cda Line {l1=0x0a, l2=»1520 ELSE «, l3=0x0a}
0x0cda…0cec Line {l1=0x10, l2=»1530 R(D),S(D)=1«, l3=0x10}
0x0cec…0cf9 Line {l1=0x0b, l2=»1540 ENDIF «, l3=0x0b}
0x0cf9…0d03 Line {l1=0x08, l2=»1550 N=1«, l3=0x08}
0x0d03…0d0f Line {l1=0x0a, l2=»1560 N=N+1«, l3=0x0a}
0x0d0f…0d2c Line {l1=0x1b, l2=»1570 IF N>4 THEN GO TO 1700«, l3=0x1b}
0x0d2c…0d4a Line {l1=0x1c, l2=»1580 NN=A(V(O)+N*U,Z(O)+N*W)«, l3=0x1c}
0x0d4a…0d5e Line {l1=0x12, l2=»1590 IF NN=0 THEN «, l3=0x12}
0x0d5e…0d9f Line {l1=0x3f, l2=»1600 IF A(V(O)+(N+1)*U,Z(O)+(N+1)*W)=D AND N<>4 THEN GO TO 1560«, l3=0x3f}
0x0d9f…0db0 Line {l1=0x0f, l2=»1610 GO TO 1700«, l3=0x0f}
0x0db0…0dbd Line {l1=0x0b, l2=»1620 ENDIF «, l3=0x0b}
0x0dbd…0dd1 Line {l1=0x12, l2=»1630 IF NN=D THEN «, l3=0x12}
0x0dd1…0df2 Line {l1=0x1f, l2=»1640 R(D)=R(D)+INT(2**(N-1)+.1)«, l3=0x1f}
0x0df2…0dfe Line {l1=0x0a, l2=»1650 ELSE «, l3=0x0a}
0x0dfe…0e14 Line {l1=0x14, l2=»1660 S(3-D)=S(3-D)+1«, l3=0x14}
0x0e14…0e25 Line {l1=0x0f, l2=»1670 GO TO 1700«, l3=0x0f}
0x0e25…0e32 Line {l1=0x0b, l2=»1680 ENDIF «, l3=0x0b}
0x0e32…0e43 Line {l1=0x0f, l2=»1690 GO TO 1560«, l3=0x0f}
0x0e43…0e66 Line {l1=0x21, l2=»1700 IF A(V(O)-U,Z(O)-W)=-1 THEN «, l3=0x21}
0x0e66…0e84 Line {l1=0x1c, l2=»1710 S(1)=S(1)+1;S(2)=S(2)+1«, l3=0x1c}
0x0e84…0e95 Line {l1=0x0f, l2=»1720 GO TO 1960«, l3=0x0f}
0x0e95…0ea2 Line {l1=0x0b, l2=»1730 ENDIF «, l3=0x0b}
0x0ea2…0ec4 Line {l1=0x20, l2=»1740 IF A(V(O)-U,Z(O)-W)=0 THEN «, l3=0x20}
0x0ec4…0ef4 Line {l1=0x2e, l2=»1750 IF A(V(O)-2*U,Z(O)-2*W)<1 THEN GO TO 1960«, l3=0x2e}
0x0ef4…0f11 Line {l1=0x1b, l2=»1760 E=A(V(O)-2*U,Z(O)-2*W)«, l3=0x1b}
0x0f11…0f1d Line {l1=0x0a, l2=»1770 ELSE «, l3=0x0a}
0x0f1d…0f36 Line {l1=0x17, l2=»1780 E=A(V(O)-U,Z(O)-W)«, l3=0x17}
0x0f36…0f55 Line {l1=0x1d, l2=»1790 R(E)=R(E)+16;S(E)=S(E)+1«, l3=0x1d}
0x0f55…0f62 Line {l1=0x0b, l2=»1800 ENDIF «, l3=0x0b}
0x0f62…0f7d Line {l1=0x19, l2=»1810 IF E<>D THEN EXEC PT«, l3=0x19}
0x0f7d…0f87 Line {l1=0x08, l2=»1820 N=3«, l3=0x08}
0x0f87…0f93 Line {l1=0x0a, l2=»1830 N=N+1«, l3=0x0a}
0x0f93…0fb0 Line {l1=0x1b, l2=»1840 IF N>6 THEN GO TO 1950«, l3=0x1b}
0x0fb0…0fd6 Line {l1=0x24, l2=»1850 NN=A(V(O)+(2-N)*U,Z(O)+(2-N)*W)«, l3=0x24}
0x0fd6…0fea Line {l1=0x12, l2=»1860 IF NN=0 THEN «, l3=0x12}
0x0fea…102b Line {l1=0x3f, l2=»1870 IF A(V(O)+(1-N)*U,Z(O)+(1-N)*W)=E AND N<>6 THEN GO TO 1830«, l3=0x3f}
0x102b…103c Line {l1=0x0f, l2=»1880 GO TO 1950«, l3=0x0f}
0x103c…1049 Line {l1=0x0b, l2=»1890 ENDIF «, l3=0x0b}
0x1049…105d Line {l1=0x12, l2=»1900 IF NN=E THEN «, l3=0x12}
0x105d…107e Line {l1=0x1f, l2=»1910 R(E)=R(E)+INT(2**(N+1)+.1)«, l3=0x1f}
0x107e…108f Line {l1=0x0f, l2=»1920 GO TO 1830«, l3=0x0f}
0x108f…109c Line {l1=0x0b, l2=»1930 ENDIF «, l3=0x0b}
0x109c…10b2 Line {l1=0x14, l2=»1940 S(3-E)=S(3-E)+1«, l3=0x14}
0x10b2…10bc Line {l1=0x08, l2=»1950 D=E«, l3=0x08}
0x10bc…10ca Line {l1=0x0c, l2=»1960 EXEC PT«, l3=0x0c}
0x10ca…10da Line {l1=0x0e, l2=»1970 NEXT RETN«, l3=0x0e}
0x10da…10e8 Line {l1=0x0c, l2=»1980 PROC PT«, l3=0x0c}
0x10e8…10fb Line {l1=0x11, l2=»1990 IF D=1 THEN «, l3=0x11}
0x10fb…1116 Line {l1=0x19, l2=»2000 P=P+K(R(1)+1,S(2)+1)«, l3=0x19}
0x1116…1139 Line {l1=0x21, l2=»2010 K1=K1+K(R(1)+1,S(2)+1) MOD 5«, l3=0x21}
0x1139…1145 Line {l1=0x0a, l2=»2020 ELSE «, l3=0x0a}
0x1145…1158 Line {l1=0x11, l2=»2030 IF D=2 THEN «, l3=0x11}
0x1158…1173 Line {l1=0x19, l2=»2040 P=P+L(R(2)+1,S(1)+1)«, l3=0x19}
0x1173…1196 Line {l1=0x21, l2=»2050 L1=L1+L(R(2)+1,S(1)+1) MOD 5«, l3=0x21}
0x1196…11a3 Line {l1=0x0b, l2=»2060 ENDIF «, l3=0x0b}
0x11a3…11b0 Line {l1=0x0b, l2=»2070 ENDIF «, l3=0x0b}
0x11b0…11bf Line {l1=0x0d, l2=»2080 ENDPROC «, l3=0x0d}
0x11bf…11d8 Line {l1=0x17, l2=»2090 IF P=>100000 THEN «, l3=0x17}
0x11d8…11f7 Line {l1=0x1d, l2=»2100 CURSOR 48+2*V(O),20-Z(O)«, l3=0x1d}
0x11f7…1207 Line {l1=0x0e, l2=»2110 PRINT "x"«, l3=0x0e}
0x1207…121a Line {l1=0x11, l2=»2120 PRINT CHR(7)«, l3=0x11}
0x121a…122b Line {l1=0x0f, l2=»2130 CURSOR 1,9«, l3=0x0f}
0x122b…1259 Line {l1=0x2c, l2=»2140 PRINT " "«, l3=0x2c}
0x1259…126a Line {l1=0x0f, l2=»2150 CURSOR 1,9«, l3=0x0f}
0x126a…1295 Line {l1=0x29, l2=»2160 PRINT "MIT TR@K: ";V(O)-1;":";Z(O)-1«, l3=0x29}
0x1295…12a7 Line {l1=0x10, l2=»2170 CURSOR 1,12«, l3=0x10}
0x12a7…12ba Line {l1=0x11, l2=»2180 PRINT CHR(7)«, l3=0x11}
0x12ba…12d2 Line {l1=0x16, l2=»2190 PRINT "JEG VANDT"«, l3=0x16}
0x12d2…12f0 Line {l1=0x1c, l2=»2200 PRINT "TAK FOR SPILLET"«, l3=0x1c}
0x12f0…12fb Line {l1=0x09, l2=»2210 END «, l3=0x09}
0x12fb…1308 Line {l1=0x0b, l2=»2220 ENDIF «, l3=0x0b}
0x1308…131a Line {l1=0x10, l2=»2230 CASE L1 OF «, l3=0x10}
0x131a…132b Line {l1=0x0f, l2=»2240 WHEN 5,6,7«, l3=0x0f}
0x132b…133a Line {l1=0x0d, l2=»2250 P=P+6000«, l3=0x0d}
0x133a…1347 Line {l1=0x0b, l2=»2260 WHEN 4«, l3=0x0b}
0x1347…1356 Line {l1=0x0d, l2=»2270 P=P+2000«, l3=0x0d}
0x1356…1365 Line {l1=0x0d, l2=»2280 ENDCASE «, l3=0x0d}
0x1365…1377 Line {l1=0x10, l2=»2290 CASE K1 OF «, l3=0x10}
0x1377…1388 Line {l1=0x0f, l2=»2300 WHEN 5,6,7«, l3=0x0f}
0x1388…1397 Line {l1=0x0d, l2=»2310 P=P+8000«, l3=0x0d}
0x1397…13a4 Line {l1=0x0b, l2=»2320 WHEN 4«, l3=0x0b}
0x13a4…13b3 Line {l1=0x0d, l2=»2330 P=P+3000«, l3=0x0d}
0x13b3…13c2 Line {l1=0x0d, l2=»2340 ENDCASE «, l3=0x0d}
0x13c2…13db Line {l1=0x17, l2=»2350 IF P>1000*NI THEN «, l3=0x17}
0x13db…13e9 Line {l1=0x0c, l2=»2360 PL=PL+1«, l3=0x0c}
0x13e9…1405 Line {l1=0x1a, l2=»2370 V(PL)=V(O);Z(PL)=Z(O)«, l3=0x1a}
0x1405…1411 Line {l1=0x0a, l2=»2380 ELSE «, l3=0x0a}
0x1411…1426 Line {l1=0x13, l2=»2390 H(V(O),Z(O))=0«, l3=0x13}
0x1426…1433 Line {l1=0x0b, l2=»2400 ENDIF «, l3=0x0b}
0x1433…1458 Line {l1=0x23, l2=»2410 IF P>PM-LIM AND P<PM+LIM THEN «, l3=0x23}
0x1458…1478 Line {l1=0x1e, l2=»2420 MX(MAX)=V(O);MY(MAX)=Z(O)«, l3=0x1e}
0x1478…1488 Line {l1=0x0e, l2=»2430 MAX=MAX+1«, l3=0x0e}
0x1488…1494 Line {l1=0x0a, l2=»2440 ELSE «, l3=0x0a}
0x1494…14ac Line {l1=0x16, l2=»2450 IF P>PM+LIM THEN «, l3=0x16}
0x14ac…14d3 Line {l1=0x25, l2=»2460 PM=P;MX(1)=V(O);MY(1)=Z(O);MAX=2«, l3=0x25}
0x14d3…14e0 Line {l1=0x0b, l2=»2470 ENDIF «, l3=0x0b}
0x14e0…14ed Line {l1=0x0b, l2=»2480 ENDIF «, l3=0x0b}
0x14ed…14fa Line {l1=0x0b, l2=»2490 ENDIF «, l3=0x0b}
0x14fa…1506 Line {l1=0x0a, l2=»2500 O=O+1«, l3=0x0a}
0x1506…1524 Line {l1=0x1c, l2=»2510 IF M=>O THEN GO TO 1380«, l3=0x1c}
0x1524…154d Line {l1=0x27, l2=»2520 RN=INT(RND(5)*10000) MOD (MAX-1)+1«, l3=0x27}
0x154d…1566 Line {l1=0x17, l2=»2530 A(MX(RN),MY(RN))=1«, l3=0x17}
0x1566…1579 Line {l1=0x11, l2=»2540 PRINT CHR(7)«, l3=0x11}
0x1579…1596 Line {l1=0x1b, l2=»2550 IF F=1 THEN GO TO 2580«, l3=0x1b}
0x1596…15b9 Line {l1=0x21, l2=»2560 CURSOR 48+2*MX(RN),20-MY(RN)«, l3=0x21}
0x15b9…15c9 Line {l1=0x0e, l2=»2570 PRINT "x"«, l3=0x0e}
0x15c9…15da Line {l1=0x0f, l2=»2580 CURSOR 1,9«, l3=0x0f}
0x15da…1610 Line {l1=0x34, l2=»2590 PRINT " "«, l3=0x34}
0x1610…1621 Line {l1=0x0f, l2=»2600 CURSOR 1,9«, l3=0x0f}
0x1621…1650 Line {l1=0x2d, l2=»2610 PRINT "MIT TR@K: ";MX(RN)-1;":";MY(RN)-1«, l3=0x2d}
0x1650…1674 Line {l1=0x22, l2=»2620 EX=MX(RN);EY=MY(RN);PM=0;M=PL«, l3=0x22}
0x1674…1685 Line {l1=0x0f, l2=»2630 GO TO 0620«, l3=0x0f}
0x1685…169c Line {l1=0x15, l2=»2640 PRINT "DU VANDT"«, l3=0x15}
0x169c…16ad Line {l1=0x0f, l2=»2650 GO TO 2200«, l3=0x0f}
0x16ad…16c9 Line {l1=0x1a, l2=»2660 DATA 1,0,1,1,0,1,-1,1«, l3=0x1a}
0x16c9…16fd Line {l1=0x32, l2=»2670 REM BY FLEMMING NIELSEN AND PALLE CHRISTENSEN«, l3=0x32}
0x16fd…1700 00 00 00 ┆ ┆
0x1700…1720 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 ┆ ┆
[…0x34…]