-
Notifications
You must be signed in to change notification settings - Fork 9
/
Copy pathSKUD.BAS
113 lines (113 loc) · 3.55 KB
/
SKUD.BAS
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
10 KEY 9,"width 80"+CHR$(13):KEY 8,"LIST 4300-"+CHR$(13)
20 DEFINT I-N: DEFSTR A-H,M-Z
30 KEY OFF
40 SCREEN 1:CLS
50 COLOR 1,1:CLS
60 IXL=10:IXH=300:IYL=10:IYH=100
90 LINE (IXL-9,IYL-9)-(IXH+9,IYH+9),3,B
100 LINE (IXL,IYL)-(IXH,IYH),3,B
110 LINE (150,IYL)-(160,IYH),3,B
115 LINE (IXL,60)-(150,65),3,B
120 PAINT (2,2),3,3
122 PAINT (100,62),3,3
125 PAINT (152,52),3,3
130 DRAW "C3"
1080 LINE (1,131)-(310,195),,B
1081 LINE (100,131)-(100,195)
1082 LINE (210,131)-(210,195)
1083 LINE (50,147)-(50,195)
1084 LINE (49,147)-(49,195)
1085 LINE (1,147)-(310,147)
1086 LINE (1,146)-(310,146)
1087 LINE (50,163)-(310,163)
1088 LINE (50,179)-(310,179)
1100 DRAW "BM25,180L10R20L10U10D20U10E10G20E10F10H20"
1110 CIRCLE(25,180),5
1220 LOCATE 16,17,0:PRINT "F=fyr. 0=afbryd kampen";
1230 LOCATE 20,2,0:PRINT "Vind";:LOCATE 18,2,0:PRINT "Afst:
1235 LOCATE 15,3,0:PRINT "Nedslag";:LOCATE 12,28,0:PRINT "Sigte";
1240 LOCATE 18,18,0:PRINT "Egen";:LOCATE 18,30,0:PRINT "Fjende";
1250 LOCATE 20,8,0:PRINT "Skyts";:LOCATE 24,8,0:PRINT "Rep";:LOCATE 22,8,0:PRINT "Mand";
2000 CIRCLE(85,100),80,2,1.15,2
2010 IPI=3.141593:CIRCLE(85,-22),80,2,(3*IPI/2)-.21,(3*IPI/2)+.62
2020 PSET (113,39),2
2030 PSET (57,39),2
2050 PAINT (79,40),2,2
2060 LINE (50,39)-(114,39),2
2070 LOCATE 3,3:PRINT "Fjende";
2080 LINE (110,20)-(125,50),0,BF
3000 CIRCLE(85,147),80,1,1.15,2
3010 CIRCLE(85,25),80,1,(3*IPI/2)-.21,(3*IPI/2)+.62
3020 PSET (113,86),1
3030 PSET (57,86),1
3050 PAINT (79,87),1,1
3060 LINE (50,86)-(115,86),1
3070 LOCATE 10,3:PRINT "Egen";
3080 LINE (110,75)-(125,95),0,BF
4000 goto 9000
4030 LINE (240,60)-(248,64),2,BF'kahyt
4040 LINE (218,64)-(240,64),2'd‘k
4050 LINE (218,64)-(204,57),2'bovspryd
4051 PSET (210,62),3
4052 LINE (202,59)-(212,59),2
4053 LINE (204,60)-(216,67),3
4054 LINE (205,61)-(214,66),3
4055 LINE (212,65)-(210,61),3
4056 LINE (209,63)-(209,61),3
4057 PSET (207,61),3
4058 LINE (205,60)-(211,60),3
4059 PSET (211,64),3
4060 PSET (210,63),3
4061 PSET (208,61),3
4065 LINE (215,63)-(220,70),2'st‘vn
4070 LINE (245,70)-(220,70),2'vandlinje
4080 LINE (245,70)-(247,60),2'stavn
4090 PAINT (235,67),2,2'mal skroget
4100 LINE (246,67)-(218,67),1
4110 PSET (215,64),2
4120 PSET (247,65),2
4130 FOR I=221 TO 245 STEP 5:PSET (I,66),0:NEXT
4140 FOR I=242 TO 246 STEP 2:PSET (I,61),0:NEXT
4150 LINE (210,54)-(227,54),3
4160 LINE (211,55)-(227,55),3
4170 LINE (212,56)-(227,56),3
4180 PSET(227,57),3
4190 LINE (210,53)-(224,53),3
4200 LINE (211,56)-(219,61),3
4210 LINE (210,52)-(220,52),3
4220 PSET(211,51),3
4221 PSET(210,51),3
4230 LINE (222,56)-(219,61),3
4240 PAINT (220,57),3,3
4250 PSET(223,57),3
4260 PSET(222,57),3
4300 LINE (213,41)-(227,45),3
4310 LINE (212,49)-(213,41),3
4320 LINE (212,49)-(227,45),3
4340 PAINT (215,44),3,3
4350 LINE (218,47)-(227,50),3
4360 LINE (227,45)-(227,50),3
4370 PAINT (226,49),3,3
4400 LINE (222,34)-(235,37),3
4410 LINE (221,41)-(222,34),3
4420 LINE (220,41)-(235,37),3
4440 PAINT (224,36),3,3
4450 LINE (235,37)-(236,42),3
4460 LINE (236,44)-(225,38),3
4470 PAINT (233,40),3,3
4500 LINE (231,41)-(248,58),3
4510 LINE (248,58)-(229,54),3
4520 LINE (229,54)-(229,42),3
4540 PAINT (232,50),3,3
4900 LINE (229,26)-(232,28),1,BF
5000 LINE (228,26)-(228,64),2'mast
5010 LINE (219,34)-(219,64),2'mast
5020 LINE (238,38)-(238,64),2'mast
5050 LINE (218,64)-(204,57),2'bovspryd
5060 LINE (208,50)-(227,53),2'nederste bom
5070 LINE (212,39)-(228,45),2'midterste bom
5080 LINE (220,32)-(237,36),2'›verste bom
5090 LINE (230,39)-(250,59),2'skr†bom
6000 DEF SEG=&HB800:BSAVE"sigte.pic",0,&H4000
9000 LOCATE 1,1,0