{ name = 'library file for m.pp - both utf-8 and vga'; 20050106 ændret magasinering til togveje 20050108 opdelt Magasinering på stationer } const vga_mode : str6 = 'utf'; vandret : str6 = chr(226)+chr(148)+chr(129); lodret : str6 = chr(226)+chr(148)+chr(131); hj6_9 : str6 = chr(226)+chr(148)+chr(147); hj9_12 : str6 = chr(226)+chr(148)+chr(155); hj12_15 : str6 = chr(226)+chr(148)+chr(151); hj15_18 : str6 = chr(226)+chr(148)+chr(143); t6 : str6 = chr(226)+chr(148)+chr(179); t9 : str6 = chr(226)+chr(148)+chr(171); t12 : str6 = chr(226)+chr(148)+chr(187); t15 : str6 = chr(226)+chr(148)+chr(163); block : str6 = chr(226)+chr(150)+chr(132); prik : str6 = chr(226)+chr(150)+chr(170); color : farver = cyan; var spsk_loop : byte; snr : boolean; spsk_dis : array [0..6,0..2] of str6; procedure init_vga; begin vga_mode := 'vga'; vandret := chr(196); lodret := chr(179); hj6_9 := chr(191); hj9_12 := chr(217); hj12_15 := chr(192); hj15_18 := chr(218); t6 := chr(194); t9 := chr(180); t12 := chr(193); t15 := chr(195); block := chr(220); prik := chr(249); end; procedure init_vga_spsk; begin spsk_dis[0,0]:=t6+vandret; spsk_dis[0,1]:=hj6_9+' '; spsk_dis[0,2]:=vandret+vandret; spsk_dis[1,0]:=t12+vandret; spsk_dis[1,1]:=vandret+vandret; spsk_dis[1,2]:=hj9_12+' '; spsk_dis[2,0]:=vandret+t12; spsk_dis[2,1]:=' '+hj12_15; spsk_dis[2,2]:=vandret+vandret; spsk_dis[3,0]:=vandret+t6; spsk_dis[3,1]:=vandret+vandret; spsk_dis[3,2]:=' '+hj15_18; spsk_dis[4,0]:=' '; spsk_dis[4,1]:='>'; spsk_dis[4,2]:='<'; spsk_dis[5,0]:=vandret+t9; spsk_dis[5,1]:=' '+lodret; spsk_dis[5,2]:=vandret+hj6_9; spsk_dis[6,0]:=t15+vandret; spsk_dis[6,1]:=hj15_18+vandret; spsk_dis[6,2]:=lodret+' '; end; function tal(i:word;t:byte):shortstring; var talstr:shortstring; begin str(i:t,talstr); {while length(talstr)