|
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: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »PSLAGAG.K«
└─⟦d110b5765⟧ Bits:30005308 Eksamensopgave i dynamiske systemer med FFT
└─⟦this⟧ »PSLAGAG.K«
0090 CLEAR 0091 DIM TOMSTRENG$(80) 0092 FOR I=1 TO 80 0093 TOMSTRENG$(I)=" " 0094 NEXT I 0095 DIM A(10,10),B(10,10),KURS$(1),SPILLER$(1) 0100 CURSOR 41,5 0110 PRINT "N" 0120 PRINT TAB(40),"!" 0130 PRINT TAB(36),"V-------0" 0140 PRINT TAB(40),"!" 0150 PRINT TAB(40),"S" 0160 CURSOR 5,12 0170 PRINT " 10 : : : : : : : : : : ",TAB(31),"10 : : : : : : : : : : " 0180 FOR X=9 TO 1 STEP -1 0185 CURSOR 6,22-X 0190 PRINT USING "## : : : : : : : : : : ## : : : : : : : : : :":X,X 0200 NEXT X 0210 PRINT TAB(8),"1 2 3 4 5 6 7 8 9 1 1 2 3 4 5 6 7 8 9 1" 0220 PRINT TAB(26),"0",TAB(56),"0" 0221 A1=7 0222 A2=14 0223 B1=37 0224 B2=14 0230 FOR X=1 TO 10 0240 FOR Y=1 TO 10 0250 A(X,Y)=1 0260 B(X,Y)=1 0270 NEXT Y 0280 NEXT X 0290 SPILLER$="A" 0300 PRINT "SPILLER A PLACERER SIN FLAADE" 0310 INPUT "HANGARSKIB :",X,Y,KURS$ 0320 EXEC PLOT(1,X,Y,KURS$,A) 0330 INPUT "KRYDSER :",X,Y,KURS$ 0340 EXEC PLOT(2,X,Y,KURS$,A) 0350 INPUT "DESTROYER :",X,Y,KURS$ 0360 EXEC PLOT(3,X,Y,KURS$,A) 0370 INPUT "TORPEDOBAAD:",X,Y,KURS$ 0380 EXEC PLOT(3,X,Y,KURS$,A) 0385 EXEC BLANK(18,24) 0386 CURSOR 1,20 0390 SPILLER$="B" 0400 PRINT "SPILLER B PLACERER SIN FLAADE" 0410 INPUT "HANGARSKIB :",X,Y,KURS$ 0420 EXEC PLOT(1,X,Y,KURS$,B) 0430 INPUT "KRYDSER :",X,Y,KURS$ 0440 EXEC PLOT(2,X,Y,KURS$,B) 0450 INPUT "DESTROYER :",X,Y,KURS$ 0460 EXEC PLOT(3,X,Y,KURS$,B) 0470 INPUT "TORPEDOBAAD:",X,Y,KURS$ 0480 EXEC PLOT(4,X,Y,KURS$,B) 0485 EXEC BLANK(18,24) 0486 CURSOR 1,20 0490 TOTALA=12 0500 TOTALB=12 0505 WHILE (TOTALA>0) AND (TOTALB>0) DO 0510 CASE SPILLER$ OF 0520 WHEN "A" 0525 CURSOR 1,20 0530 INPUT "A SKAL SKYDE X Y ?",X,Y 0540 CURSOR A1+2*X,A2-Y 0550 B(X,Y)=B(X,Y)+1 0560 SPILLER$="B" 0570 CASE B(X,Y) OF 0580 WHEN 2 0590 PRINT "O" 0600 WHEN 3,4,5,6 0610 PRINT "*" 0615 TOTALB=TOTALB-1 0620 ENDCASE 0630 WHEN "B" 0635 CURSOR 1,20 0640 INPUT "B SKAL SKYDE X Y ?",X,Y 0650 CURSOR B1+2*X,B2-Y 0660 A(X,Y)=A(X,Y)+1 0670 SPILLER$="A" 0680 CASE A(X,Y) OF 0690 WHEN 2 0700 PRINT "O" 0710 WHEN 3,4,5,6 0720 PRINT "*" 0730 TOTALA=TOTALA-1 0740 ENDCASE 0750 ENDCASE 0760 ENDWHILE 0770 IF TOTALA=0 THEN PRINT " A HAR TABT B ER S0HELT " 0780 ELSE 0790 PRINT " B HAR TABT A ER S0HELT" 0800 ENDIF 0810 PROC PLOT(J,X2,Y2,K,W) 0820 R=J+2 0830 W(X2,Y2)=R 0840 CASE J OF 0850 WHEN 1 0860 W(X2+1,Y2)=R 0870 W(X2-1,Y2)=R 0880 W(X2,Y2+1)=R 0890 W(X2,Y2-1)=R 0900 CASE K$ OF 0910 WHEN "N" 0920 W(X2,Y2+2)=R 0930 WHEN "S" 0940 W(X2,Y2-2)=R 0950 WHEN "0" 0960 W(X2-2,Y2)=R 0970 WHEN "V" 0980 W(X2+2,Y2)=R 0990 ENDCASE 1000 WHEN 2 1010 CASE K$ OF 1020 WHEN "N" 1030 W(X2,Y2-1)=R 1040 W(X2,Y2-2)=R 1050 WHEN "S" 1060 W(X2,Y2+1)=R 1070 W(X2,Y2+2)=R 1080 WHEN "0" 1090 W(X2-1,Y2)=R 1100 W(X2-2,Y2)=R 1110 WHEN "V" 1120 W(X2+1,Y2)=R 1130 W(X2+2,Y2)=R 1140 ENDCASE 1150 WHEN 3 1160 CASE K$ OF 1170 WHEN "N" 1180 W(X2,Y2-1)=R 1190 WHEN "S" 1200 W(X2,Y2+1)=R 1210 WHEN "0" 1220 W(X2-1,Y2)=R 1230 WHEN "V" 1240 W(X2+1,Y2)=R 1250 ENDCASE 1260 ENDCASE 1270 ENDPROC ;PLOT 1280 PROC BLANK(T,S) 1290 CURSOR 1,T 1300 FOR I=T TO S 1310 PRINT TOMSTRENG$ 1315 NEXT I 1320 ENDPROC ;BLANK 1330 STOP
0x0000…000d Line {l1=0x0b, l2=»0090 CLEAR «, l3=0x0b}
0x000d…0026 Line {l1=0x17, l2=»0091 DIM TOMSTRENG$(80)«, l3=0x17}
0x0026…003a Line {l1=0x12, l2=»0092 FOR I=1 TO 80«, l3=0x12}
0x003a…0052 Line {l1=0x16, l2=»0093 TOMSTRENG$(I)=" "«, l3=0x16}
0x0052…005f Line {l1=0x0b, l2=»0094 NEXT I«, l3=0x0b}
0x005f…0090 Line {l1=0x2f, l2=»0095 DIM A(10,10),B(10,10),KURS$(1),SPILLER$(1)«, l3=0x2f}
0x0090…00a2 Line {l1=0x10, l2=»0100 CURSOR 41,5«, l3=0x10}
0x00a2…00b2 Line {l1=0x0e, l2=»0110 PRINT "N"«, l3=0x0e}
0x00b2…00ca Line {l1=0x16, l2=»0120 PRINT TAB(40),"!"«, l3=0x16}
0x00ca…00ea Line {l1=0x1e, l2=»0130 PRINT TAB(36),"V-------0"«, l3=0x1e}
0x00ea…0102 Line {l1=0x16, l2=»0140 PRINT TAB(40),"!"«, l3=0x16}
0x0102…011a Line {l1=0x16, l2=»0150 PRINT TAB(40),"S"«, l3=0x16}
0x011a…012c Line {l1=0x10, l2=»0160 CURSOR 5,12«, l3=0x10}
0x012c…0175 Line {l1=0x47, l2=»0170 PRINT " 10 : : : : : : : : : : ",TAB(31),"10 : : : : : : : : : : "«, l3=0x47}
0x0175…0190 Line {l1=0x19, l2=»0180 FOR X=9 TO 1 STEP -1«, l3=0x19}
0x0190…01a4 Line {l1=0x12, l2=»0185 CURSOR 6,22-X«, l3=0x12}
0x01a4…01f1 Line {l1=0x4b, l2=»0190 PRINT USING "## : : : : : : : : : : ## : : : : : : : : : :":X,X«, l3=0x4b}
0x01f1…01fe Line {l1=0x0b, l2=»0200 NEXT X«, l3=0x0b}
0x01fe…0245 Line {l1=0x45, l2=»0210 PRINT TAB(8),"1 2 3 4 5 6 7 8 9 1 1 2 3 4 5 6 7 8 9 1"«, l3=0x45}
0x0245…0269 Line {l1=0x22, l2=»0220 PRINT TAB(26),"0",TAB(56),"0"«, l3=0x22}
0x0269…0274 Line {l1=0x09, l2=»0221 A1=7«, l3=0x09}
0x0274…0280 Line {l1=0x0a, l2=»0222 A2=14«, l3=0x0a}
0x0280…028c Line {l1=0x0a, l2=»0223 B1=37«, l3=0x0a}
0x028c…0298 Line {l1=0x0a, l2=»0224 B2=14«, l3=0x0a}
0x0298…02ac Line {l1=0x12, l2=»0230 FOR X=1 TO 10«, l3=0x12}
0x02ac…02c0 Line {l1=0x12, l2=»0240 FOR Y=1 TO 10«, l3=0x12}
0x02c0…02cf Line {l1=0x0d, l2=»0250 A(X,Y)=1«, l3=0x0d}
0x02cf…02de Line {l1=0x0d, l2=»0260 B(X,Y)=1«, l3=0x0d}
0x02de…02eb Line {l1=0x0b, l2=»0270 NEXT Y«, l3=0x0b}
0x02eb…02f8 Line {l1=0x0b, l2=»0280 NEXT X«, l3=0x0b}
0x02f8…030b Line {l1=0x11, l2=»0290 SPILLER$="A"«, l3=0x11}
0x030b…0337 Line {l1=0x2a, l2=»0300 PRINT "SPILLER A PLACERER SIN FLAADE"«, l3=0x2a}
0x0337…035c Line {l1=0x23, l2=»0310 INPUT "HANGARSKIB :",X,Y,KURS$«, l3=0x23}
0x035c…037b Line {l1=0x1d, l2=»0320 EXEC PLOT(1,X,Y,KURS$,A)«, l3=0x1d}
0x037b…03a0 Line {l1=0x23, l2=»0330 INPUT "KRYDSER :",X,Y,KURS$«, l3=0x23}
0x03a0…03bf Line {l1=0x1d, l2=»0340 EXEC PLOT(2,X,Y,KURS$,A)«, l3=0x1d}
0x03bf…03e4 Line {l1=0x23, l2=»0350 INPUT "DESTROYER :",X,Y,KURS$«, l3=0x23}
0x03e4…0403 Line {l1=0x1d, l2=»0360 EXEC PLOT(3,X,Y,KURS$,A)«, l3=0x1d}
0x0403…0428 Line {l1=0x23, l2=»0370 INPUT "TORPEDOBAAD:",X,Y,KURS$«, l3=0x23}
0x0428…0447 Line {l1=0x1d, l2=»0380 EXEC PLOT(3,X,Y,KURS$,A)«, l3=0x1d}
0x0447…045f Line {l1=0x16, l2=»0385 EXEC BLANK(18,24)«, l3=0x16}
0x045f…0471 Line {l1=0x10, l2=»0386 CURSOR 1,20«, l3=0x10}
0x0471…0484 Line {l1=0x11, l2=»0390 SPILLER$="B"«, l3=0x11}
0x0484…04b0 Line {l1=0x2a, l2=»0400 PRINT "SPILLER B PLACERER SIN FLAADE"«, l3=0x2a}
0x04b0…04d5 Line {l1=0x23, l2=»0410 INPUT "HANGARSKIB :",X,Y,KURS$«, l3=0x23}
0x04d5…04f4 Line {l1=0x1d, l2=»0420 EXEC PLOT(1,X,Y,KURS$,B)«, l3=0x1d}
0x04f4…0519 Line {l1=0x23, l2=»0430 INPUT "KRYDSER :",X,Y,KURS$«, l3=0x23}
0x0519…0538 Line {l1=0x1d, l2=»0440 EXEC PLOT(2,X,Y,KURS$,B)«, l3=0x1d}
0x0538…055d Line {l1=0x23, l2=»0450 INPUT "DESTROYER :",X,Y,KURS$«, l3=0x23}
0x055d…057c Line {l1=0x1d, l2=»0460 EXEC PLOT(3,X,Y,KURS$,B)«, l3=0x1d}
0x057c…05a1 Line {l1=0x23, l2=»0470 INPUT "TORPEDOBAAD:",X,Y,KURS$«, l3=0x23}
0x05a1…05c0 Line {l1=0x1d, l2=»0480 EXEC PLOT(4,X,Y,KURS$,B)«, l3=0x1d}
0x05c0…05d8 Line {l1=0x16, l2=»0485 EXEC BLANK(18,24)«, l3=0x16}
0x05d8…05ea Line {l1=0x10, l2=»0486 CURSOR 1,20«, l3=0x10}
0x05ea…05fa Line {l1=0x0e, l2=»0490 TOTALA=12«, l3=0x0e}
0x05fa…060a Line {l1=0x0e, l2=»0500 TOTALB=12«, l3=0x0e}
0x060a…0634 Line {l1=0x28, l2=»0505 WHILE (TOTALA>0) AND (TOTALB>0) DO «, l3=0x28}
0x0634…064c Line {l1=0x16, l2=»0510 CASE SPILLER$ OF «, l3=0x16}
0x064c…065b Line {l1=0x0d, l2=»0520 WHEN "A"«, l3=0x0d}
0x065b…066d Line {l1=0x10, l2=»0525 CURSOR 1,20«, l3=0x10}
0x066d…0694 Line {l1=0x25, l2=»0530 INPUT "A SKAL SKYDE X Y ?",X,Y«, l3=0x25}
0x0694…06ad Line {l1=0x17, l2=»0540 CURSOR A1+2*X,A2-Y«, l3=0x17}
0x06ad…06c3 Line {l1=0x14, l2=»0550 B(X,Y)=B(X,Y)+1«, l3=0x14}
0x06c3…06d6 Line {l1=0x11, l2=»0560 SPILLER$="B"«, l3=0x11}
0x06d6…06ec Line {l1=0x14, l2=»0570 CASE B(X,Y) OF «, l3=0x14}
0x06ec…06f9 Line {l1=0x0b, l2=»0580 WHEN 2«, l3=0x0b}
0x06f9…0709 Line {l1=0x0e, l2=»0590 PRINT "O"«, l3=0x0e}
0x0709…071c Line {l1=0x11, l2=»0600 WHEN 3,4,5,6«, l3=0x11}
0x071c…072c Line {l1=0x0e, l2=»0610 PRINT "*"«, l3=0x0e}
0x072c…0742 Line {l1=0x14, l2=»0615 TOTALB=TOTALB-1«, l3=0x14}
0x0742…0751 Line {l1=0x0d, l2=»0620 ENDCASE «, l3=0x0d}
0x0751…0760 Line {l1=0x0d, l2=»0630 WHEN "B"«, l3=0x0d}
0x0760…0772 Line {l1=0x10, l2=»0635 CURSOR 1,20«, l3=0x10}
0x0772…0799 Line {l1=0x25, l2=»0640 INPUT "B SKAL SKYDE X Y ?",X,Y«, l3=0x25}
0x0799…07b2 Line {l1=0x17, l2=»0650 CURSOR B1+2*X,B2-Y«, l3=0x17}
0x07b2…07c8 Line {l1=0x14, l2=»0660 A(X,Y)=A(X,Y)+1«, l3=0x14}
0x07c8…07db Line {l1=0x11, l2=»0670 SPILLER$="A"«, l3=0x11}
0x07db…07f1 Line {l1=0x14, l2=»0680 CASE A(X,Y) OF «, l3=0x14}
0x07f1…07fe Line {l1=0x0b, l2=»0690 WHEN 2«, l3=0x0b}
0x07fe…080e Line {l1=0x0e, l2=»0700 PRINT "O"«, l3=0x0e}
0x080e…0821 Line {l1=0x11, l2=»0710 WHEN 3,4,5,6«, l3=0x11}
0x0821…0831 Line {l1=0x0e, l2=»0720 PRINT "*"«, l3=0x0e}
0x0831…0847 Line {l1=0x14, l2=»0730 TOTALA=TOTALA-1«, l3=0x14}
0x0847…0856 Line {l1=0x0d, l2=»0740 ENDCASE «, l3=0x0d}
0x0856…0865 Line {l1=0x0d, l2=»0750 ENDCASE «, l3=0x0d}
0x0865…0875 Line {l1=0x0e, l2=»0760 ENDWHILE «, l3=0x0e}
0x0875…08af Line {l1=0x38, l2=»0770 IF TOTALA=0 THEN PRINT " A HAR TABT B ER S0HELT "«, l3=0x38}
0x08af…08bb Line {l1=0x0a, l2=»0780 ELSE «, l3=0x0a}
0x08bb…08e3 Line {l1=0x26, l2=»0790 PRINT " B HAR TABT A ER S0HELT"«, l3=0x26}
0x08e3…08f0 Line {l1=0x0b, l2=»0800 ENDIF «, l3=0x0b}
0x08f0…090d Line {l1=0x1b, l2=»0810 PROC PLOT(J,X2,Y2,K,W)«, l3=0x1b}
0x090d…0919 Line {l1=0x0a, l2=»0820 R=J+2«, l3=0x0a}
0x0919…092a Line {l1=0x0f, l2=»0830 W(X2,Y2)=R«, l3=0x0f}
0x092a…093b Line {l1=0x0f, l2=»0840 CASE J OF «, l3=0x0f}
0x093b…0948 Line {l1=0x0b, l2=»0850 WHEN 1«, l3=0x0b}
0x0948…095b Line {l1=0x11, l2=»0860 W(X2+1,Y2)=R«, l3=0x11}
0x095b…096e Line {l1=0x11, l2=»0870 W(X2-1,Y2)=R«, l3=0x11}
0x096e…0981 Line {l1=0x11, l2=»0880 W(X2,Y2+1)=R«, l3=0x11}
0x0981…0994 Line {l1=0x11, l2=»0890 W(X2,Y2-1)=R«, l3=0x11}
0x0994…09a6 Line {l1=0x10, l2=»0900 CASE K$ OF «, l3=0x10}
0x09a6…09b5 Line {l1=0x0d, l2=»0910 WHEN "N"«, l3=0x0d}
0x09b5…09c8 Line {l1=0x11, l2=»0920 W(X2,Y2+2)=R«, l3=0x11}
0x09c8…09d7 Line {l1=0x0d, l2=»0930 WHEN "S"«, l3=0x0d}
0x09d7…09ea Line {l1=0x11, l2=»0940 W(X2,Y2-2)=R«, l3=0x11}
0x09ea…09f9 Line {l1=0x0d, l2=»0950 WHEN "0"«, l3=0x0d}
0x09f9…0a0c Line {l1=0x11, l2=»0960 W(X2-2,Y2)=R«, l3=0x11}
0x0a0c…0a1b Line {l1=0x0d, l2=»0970 WHEN "V"«, l3=0x0d}
0x0a1b…0a2e Line {l1=0x11, l2=»0980 W(X2+2,Y2)=R«, l3=0x11}
0x0a2e…0a3d Line {l1=0x0d, l2=»0990 ENDCASE «, l3=0x0d}
0x0a3d…0a4a Line {l1=0x0b, l2=»1000 WHEN 2«, l3=0x0b}
0x0a4a…0a5c Line {l1=0x10, l2=»1010 CASE K$ OF «, l3=0x10}
0x0a5c…0a6b Line {l1=0x0d, l2=»1020 WHEN "N"«, l3=0x0d}
0x0a6b…0a7e Line {l1=0x11, l2=»1030 W(X2,Y2-1)=R«, l3=0x11}
0x0a7e…0a91 Line {l1=0x11, l2=»1040 W(X2,Y2-2)=R«, l3=0x11}
0x0a91…0aa0 Line {l1=0x0d, l2=»1050 WHEN "S"«, l3=0x0d}
0x0aa0…0ab3 Line {l1=0x11, l2=»1060 W(X2,Y2+1)=R«, l3=0x11}
0x0ab3…0ac6 Line {l1=0x11, l2=»1070 W(X2,Y2+2)=R«, l3=0x11}
0x0ac6…0ad5 Line {l1=0x0d, l2=»1080 WHEN "0"«, l3=0x0d}
0x0ad5…0ae8 Line {l1=0x11, l2=»1090 W(X2-1,Y2)=R«, l3=0x11}
0x0ae8…0afb Line {l1=0x11, l2=»1100 W(X2-2,Y2)=R«, l3=0x11}
0x0afb…0b0a Line {l1=0x0d, l2=»1110 WHEN "V"«, l3=0x0d}
0x0b0a…0b1d Line {l1=0x11, l2=»1120 W(X2+1,Y2)=R«, l3=0x11}
0x0b1d…0b30 Line {l1=0x11, l2=»1130 W(X2+2,Y2)=R«, l3=0x11}
0x0b30…0b3f Line {l1=0x0d, l2=»1140 ENDCASE «, l3=0x0d}
0x0b3f…0b4c Line {l1=0x0b, l2=»1150 WHEN 3«, l3=0x0b}
0x0b4c…0b5e Line {l1=0x10, l2=»1160 CASE K$ OF «, l3=0x10}
0x0b5e…0b6d Line {l1=0x0d, l2=»1170 WHEN "N"«, l3=0x0d}
0x0b6d…0b80 Line {l1=0x11, l2=»1180 W(X2,Y2-1)=R«, l3=0x11}
0x0b80…0b8f Line {l1=0x0d, l2=»1190 WHEN "S"«, l3=0x0d}
0x0b8f…0ba2 Line {l1=0x11, l2=»1200 W(X2,Y2+1)=R«, l3=0x11}
0x0ba2…0bb1 Line {l1=0x0d, l2=»1210 WHEN "0"«, l3=0x0d}
0x0bb1…0bc4 Line {l1=0x11, l2=»1220 W(X2-1,Y2)=R«, l3=0x11}
0x0bc4…0bd3 Line {l1=0x0d, l2=»1230 WHEN "V"«, l3=0x0d}
0x0bd3…0be6 Line {l1=0x11, l2=»1240 W(X2+1,Y2)=R«, l3=0x11}
0x0be6…0bf5 Line {l1=0x0d, l2=»1250 ENDCASE «, l3=0x0d}
0x0bf5…0c04 Line {l1=0x0d, l2=»1260 ENDCASE «, l3=0x0d}
0x0c04…0c18 Line {l1=0x12, l2=»1270 ENDPROC ;PLOT«, l3=0x12}
0x0c18…0c2e Line {l1=0x14, l2=»1280 PROC BLANK(T,S)«, l3=0x14}
0x0c2e…0c3f Line {l1=0x0f, l2=»1290 CURSOR 1,T«, l3=0x0f}
0x0c3f…0c52 Line {l1=0x11, l2=»1300 FOR I=T TO S«, l3=0x11}
0x0c52…0c69 Line {l1=0x15, l2=»1310 PRINT TOMSTRENG$«, l3=0x15}
0x0c69…0c76 Line {l1=0x0b, l2=»1315 NEXT I«, l3=0x0b}
0x0c76…0c8b Line {l1=0x13, l2=»1320 ENDPROC ;BLANK«, l3=0x13}
0x0c8b…0c97 Line {l1=0x0a, l2=»1330 STOP «, l3=0x0a}
0x0c97…0ca0 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0ca0…0cc0 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 ┆ ┆
[…0x37…]
0x13a0…13c0 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 63 ┆ c┆