-
Notifications
You must be signed in to change notification settings - Fork 9
/
Copy pathBUILD.BAS
79 lines (79 loc) · 3.46 KB
/
BUILD.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
10 KEY 9,"width 80"+CHR$(13):KEY 8,"LIST 380-499"+CHR$(13)
20 DEFINT I-N: DEFSTR A-H,M-Z
30 KEY OFF
40 SCREEN 1:CLS
50 COLOR 1,0:CLS
60 IXL=10:IXH=300:IYL=10:IYH=150
70 FOR I=IXL+10 TO IXH-10 STEP 10:LINE (I,IYL)-(I,IYH),1:NEXT I
80 FOR I=IYL+10 TO IYH-10 STEP 10:LINE (IXL,I)-(IXH,I),1:NEXT I
90 LINE (IXL-9,IYL-9)-(IXH+9,IYH+9),3,B
100 LINE (IXL,IYL)-(IXH,IYH),3,B
110 PAINT (2,2),1,3
120 DRAW "C3"
130 'djurs
140 DRAW "BM98,10 D3G1 D2 F1D3 G2L1 G2 M80,40 D2 G2 M75,60 L2 H2 M65,57 E2 M70,50"
145 'Ebletoft
150 DRAW "U2 H1 U1 H2 L2 M60,50 F2 G1F2 M60,65 R3 F2 G3 L1 D1 L1 H1 L1 H1"
160 DRAW "E2 R2 E2 U3 H2 M53,52 H2 L2 G2 M45,58 G1 L4 H2 U3 E2 R3 E1 U3 M50,40"
170 DRAW "U1 H2 L1 H1 L2 M40,40 D2L1G1D2M30,50G2 D2 M30,60"
171 'rhus
180 DRAW "G1 D1 M31,70 F2 D2 G1 M34,78 D1 G2 D2 F2 D1 G2 M30,97"
190 DRAW " D1 G3 D2 M24,108 G1 L2 H3 L1 H1 M10,104
200 PAINT(11,11),3,3 'HORSENS FJORD
201 PAINT(60,68),3,3 'HELGEN’S
210 DRAW "BM10,109 R2 F1 R1 F2 M12,121 R1 E1 D2 M10,132":PAINT (11,112),3,3
211 'ENDELAVE
220 DRAW "BM35,117R1 F1D2 G1 M38,124 F1 D1 G1 L1 M30,127H1U1E1R3U2E1U2M35,117"
230 PAINT (34,125),3,3
231 'SKNE
240 DRAW "BM262,10F3D1F1D1F1G2M270,20D4F1D1F3M276,30"
241 'HALMSTAD
250 DRAW "D2G2M271,40G1L6H1L2M250,28M244,26L1D1F4M250,40D2F1M252,50"
260 DRAW "D1 F1R2F2M270,73D5F1D1G1M270,86"
270 DRAW "R1F2R2M280,100R1F1R1F1M290,115D2F1M300,124":PAINT (290,50),3,3
271 'SAMS
280 DRAW "BM60,120H1U1E1M61,110U3R1H2E3M65,100U1UH2U3M56,90U6M62,80"
290 DRAW "D3F1D2M62,90F2R2M71,93G3D3R1M73,100E1D2G2D1G1D1G1M70,117F2D1G2M60,120"
291 PAINT (62,118),3,3:PAINT (60,87),3,3
294 'SJ’LLAND
295 DRAW "BM120,150U4E1H2L4"
300 DRAW "M100,140U1R15E2U4H1U1H3L2M107,130L3H2L1G2M93,127M102,123R1F1R1F2M110,125"
310 DRAW "R1E1R1E2M120,122R1F1R1F2M130,127E1U1E1U1M140,120U2H1U2G1U2H1U2E3M145,105"
320 DRAW "R4E1R1E2M153,100U2H1U1H2M147,90L1G1M135,87M127,80R1M135,84R1F1M147,87M157,90"
330 DRAW "R2E1R1E2M165,87R1F2R1M177,90D2L1D3F1D1M170,98D3G2M174,110"
331 'LAMMEFJORD
340 DRAW "L2H1L1G3D1G1D1R2F1M174,112F2D2F1G1L1G1L1G1D1R1E1R1E4D1E1M184,127"
350 DRAW "E4M188,118L3U4E2R1U1M192,106L3H2E3U1H2M187,91E1R2E1"
360 DRAW "M200,95D2G2D1M200,100M205,120D2G1L3G3D1M210,132"
361 'ROSKILDE
370 DRAW "M212,127H2M209,114U4R1M206,108E1U2E1U2M203,95U2M207,90U3H1U1H3M200,83L1G1M187,86L1H1U3"
371 'HUNDESTED
380 DRAW "U1E1M190,80E2R2M205,70R2E2U1M220,58"
390 DRAW "R3F1R1M245,62F2D1M253,69F1D1G1M250,80G1D1G1D2M247,94M252,100G1D1F1M258,119"
391 'KBENHAVN
400 DRAW "F2D2G2D2M266,145M262,150BM247,150H2M250,132H2G4L2M227,150"
410 PAINT (150,140),3,3
411 'SALTHOLM
420 DRAW "BM275,134M279,144L1H4M275,134":PAINT (275,140),3,3
421 'HVEN
430 DRAW "BM260,89F3M268,96D1G2L2H3M260,89":PAINT (263,96),3,3
431 'SEJR
440 DRAW "BM110,90F2R1F1R2M121,100D2L2H1M110,90":PAINT (119,100),3,3
441 'BYER
450 CIRCLE (255,125),5,2:PAINT (255,125),2,2'KBENHAVN
451 CIRCLE (255,73),3,2:PAINT (255,73),2,2'HELSINGR
452 CIRCLE (185,83),3,2:PAINT (185,83),2,2'HUNDESTED
453 CIRCLE (95,15),3,2:PAINT (95,15),2,2'GREN
454 CIRCLE (73,47),3,2:PAINT (73,47),2,2'EBLEFOFT
455 CIRCLE (117,135),3,2:PAINT (117,135),2,2'KALUNDBORG
456 CIRCLE (247,33),3,2:PAINT (247,33),2,2'MLLE
550 'pAINT(11,11),3,3
1060 FOR I=50 TO IYH-10 STEP 50:LINE (IXL,I)-(IXH,I),3:NEXT I
1070 FOR I=50 TO IXH-10 STEP 50:LINE (I,IYL)-(I,IYH),3:NEXT I
1080 LINE (1,163)-(310,195),,B
1081 LINE (100,163)-(100,195)
1082 LINE (210,163)-(210,195)
1085 LINE (1,179)-(310,179)
1230 LOCATE 1,1,0
1900 beep:DEF SEG=&HB800:BSAVE "map.pic",0,&H4000