Budapest Metro Map

BudapestMetroMap.bas

5 HOME:HGR2

10 HCOLOR=5:REM Orange OR Red Line
20 HPLOT 0,81 TO 0,72
30 HPLOT 0,72 TO 9,63
40 HPLOT 9,63 TO 36,63
50 HPLOT 36,63 TO 63,90
60 HPLOT 63,90 TO 108,90

110 HCOLOR=2:REM Purple OR Yellow Line
120 HPLOT 27,81 TO 36,72
130 HPLOT 36,72 TO 54,72
140 HPLOT 54,72 TO 99,27

210 HCOLOR=6:REM Blue OR Blue Line
220 HPLOT 72,0 TO 63,0
230 HPLOT 63,0 TO 45,18
240 HPLOT 45,18 TO 45,72
250 HPLOT 45,72 TO 36,81
260 HPLOT 36,81 TO 36,99
270 HPLOT 36,99 TO 90,153
280 HPLOT 90,153 TO 126,153

310 HCOLOR=1:REM Green or Green Line
320 HPLOT 81,90 TO 81,99
330 HPLOT 81,99 TO 72,108
340 HPLOT 72,108 TO 54,108
350 HPLOT 54,108 TO 18,144 
360 HPLOT 18,144 TO 18,162
370 HPLOT 18,162 TO 0,180