DataMuseum.dk

top - download

    Length: 5056 (0x13c0)
    Notes: Mikados TextFile, Mikados_K
    Names: »PS0SLAG«

└─⟦d110b5765⟧ Bits:30005308 Eksamensopgave i dynamiske systemer med FFT
    └─ ⟦this⟧ »PS0SLAG« 

Text

0010 CLEAR 
0020 DIM TOMSTRENG$(80)
0030 FOR I=1 TO 80
0040 TOMSTRENG$(I)=" "
0050 NEXT I
0060 DIM A(10,10),B(10,10),KURS$(1),SPILLER$(1)
0070 CURSOR 41,5
0080 PRINT "N"
0090 PRINT TAB(40),"!"
0100 PRINT TAB(36),"V-------0"
0110 PRINT TAB(40),"!"
0120 PRINT TAB(40),"S"
0130 CURSOR 5,12
0140 PRINT " 10 : : : : : : : : : : ",TAB(31),"10 : : : : : : : : : : "
0150 FOR X=9 TO 1 STEP -1
0160 CURSOR 6,22-X
0170 PRINT USING "## : : : : : : : : : :        ## : : : : : : : : : :":X,X
0180 NEXT X
0190 PRINT TAB(8),"1 2 3 4 5 6 7 8 9 10          1 2 3 4 5 6 7 8 9 10"
0200 PRINT TAB(26),"0",TAB(56),"0"
0210 A1=7
0220 A2=14
0230 B1=37
0240 B2=14
0250 FOR X=1 TO 10
0260 FOR Y=1 TO 10
0270 A(X,Y)=1
0280 B(X,Y)=1
0290 NEXT Y
0300 NEXT X
0310 FOR I=1 TO 2
0320 PRINT TOMSTRENG$
0330 NEXT I
0350 SPILLER$="A"
0360 PRINT "SPILLER A PLACERER SIN FLAADE"
0365 CURSOR 1,20
0370 EXEC INDLAES(SPILLER$)
0380 EXEC BLANK(18,23)
0400 SPILLER$="B"
0410 PRINT "SPILLER B PLACERER SIN FLAADE"
0415 CURSOR 1,20
0420 EXEC INDLAES(SPILLER$)
0430 EXEC BLANK(18,23)
0440 CURSOR 1,20
0450 TOTALA=12
0460 TOTALB=12
0470 WHILE (TOTALA>0) AND (TOTALB>0) DO 
0480 CASE SPILLER$ OF 
0490 WHEN "A"
0500 CURSOR 1,18
0510 INPUT "A SKAL SKYDE   X Y ?",X,Y
0515 IF (X>10) OR (Y>10) THEN GO TO 0510
0520 CURSOR A1+2*X,A2-Y
0530 B(X,Y)=B(X,Y)+1
0540 SPILLER$="B"
0550 CASE B(X,Y) OF 
0560 WHEN 2
0570 PRINT "O"
0580 WHEN 3,4,5,6
0590 PRINT "*"
0600 TOTALB=TOTALB-1
0610 ENDCASE 
0620 WHEN "B"
0630 CURSOR 1,18
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 
0765 CURSOR 1,22
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 PRINT "DER ER INGEN KURS",K$
0920 WHEN "N"
0930 W(X2,Y2+2)=R
0940 WHEN "S"
0950 W(X2,Y2-2)=R
0960 WHEN "0"
0970 W(X2-2,Y2)=R
0980 WHEN "V"
0990 W(X2+2,Y2)=R
1000 ENDCASE 
1010 WHEN 2
1020 CASE K$ OF 
1030 WHEN "N"
1040 W(X2,Y2-1)=R
1050 W(X2,Y2-2)=R
1060 WHEN "S"
1070 W(X2,Y2+1)=R
1080 W(X2,Y2+2)=R
1090 WHEN "0"
1100 W(X2-1,Y2)=R
1110 W(X2-2,Y2)=R
1120 WHEN "V"
1130 W(X2+1,Y2)=R
1140 W(X2+2,Y2)=R
1150 ENDCASE 
1160 WHEN 3
1170 CASE K$ OF 
1180 WHEN "N"
1190 W(X2,Y2-1)=R
1200 WHEN "S"
1210 W(X2,Y2+1)=R
1220 WHEN "0"
1230 W(X2-1,Y2)=R
1240 WHEN "V"
1250 W(X2+1,Y2)=R
1260 ENDCASE 
1270 ENDCASE 
1280 ENDPROC ;PLOT
1290 PROC BLANK(T,S)
1300 FOR I=T TO S
1310 CURSOR 1,I
1320 PRINT TOMSTRENG$
1330 NEXT I
1340 ENDPROC ;BLANK
1350 PROC INDLAES(Q)
1360 FOR I=1 TO 4
1370 CASE I OF 
1380 WHEN 1
1390 INPUT "HANGARSKIB    :",X,Y
1400 WHEN 2
1410 INPUT "KRYDSER       :",X,Y
1420 WHEN 3
1430 INPUT "DESTROYER     :",X,Y
1440 WHEN 4
1450 INPUT "TORPEDOBAAD   :",X,Y
1460 ENDCASE 
1465 IF (X>10) OR (Y>10) THEN GO TO 1370
1470 INPUT "KURS ?",KURS$
1480 CURSOR 1,20
1490 CASE Q$ OF 
1500 WHEN "A"
1510 EXEC PLOT(I,X,Y,KURS$,A)
1520 WHEN "B"
1530 EXEC PLOT(I,X,Y,KURS$,B)
1540 ENDCASE 
1550 NEXT I
1560 ENDPROC ;INDLAES
1570 STOP