DataMuseum.dk

top - download

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

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

Text

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