1340
1350
1360
1370
1380
1390
1400
1410
1420
1430
1,440
1450
1460
1470
1480
1490
1500
1510
1520
1530
2000
2010
2020
2030
2040
2050
2060
2070
2080
2090
2100
2110
2120
2130
2140
2150
2160
2170
2180
FOR 1=0 TO 347 STEP 25 :LPRINT CHR$(60); :NEXT I
LPRINT
LPRI?fT CHR$(9);
FOR 1=0 TO 493 STEP 25 :LPRINT CHR$(61) ;:NEXT I
LPRINT
LPRINT CHR$(9); U+-U;
SCALE$=”+-+–H
FOR 1=2 TO 8:LPRINT SCALE$; :NEXT I
LPRINT ‘+-+”
LPRINT CHR$(9); ”0 ‘:
FOR 1=1 TO 8
LPRINT u“;1;
NEXT I
LPRINT CHR$(27) ;’’%U;CHR$(0)
LPRINT CHR$(27); ”M”;
LPRINT CHR$(27) ;USM;CHR$(0);
LPRINT CHR$(9):”(1OO UNITS/1000 PERSONS)”
LPRINT CHR$(27); ”T”;
LPRINT CHR$(27) ;”@”
END
DATA
Telephone Symbol
DATA “3, 31,” 2
DATA O, 0, 0, 7, 0, 0, 8, 0, 0, 23, 0, 0, 40, 0, 0
DATA 19, 15,192, 40, 16, 0, 80, 47,192, 32, 80, 0, 80,175,192
DATA 47. 80. 0. 80.175,192, 47. 80, 0, 80,163,192, 33, 64, 0
DATA 80; 163:192; 33, 64, 0,
DATA 47, 80, 0, 80,175,192,
DATA 19, 15,192, 40, 0, 0,
DATA O, 0, 0
Car Symhol
DATA 3, 31, 2
DATA O, 0. 0, 0, 30} o,
DATA 0,252,128. 0, 3, 64,
DATA 10, 3, 0, 20,124, 0,
DATA 64,126, 0, 63,128, 0,
DATA 32, 3, 0, 64,124,128,
DATA 76,124,128, 51, 3, 0,
DATA O, 0, 0
80,163,192, 47. 80, 0,
32, 80, 0, &O. 47,192,
23, 0, 0, 8, 0, 0,
0, 0, 0, 0, 60, 0,
1,252,128, 2, 3, 64,
40, 0, 0, 80,126, 0,
64,126, 0, 63,128, 0,
32, 3, 64, 64,124,128,
12,252, 0, 3, 0, 0,
80,175,192
40, 16, 0
7, 0, 0
0, 3, 0
5,124,128
32, 0, 0
64,124, 0
48, 3, 64
0,254, 0
DIFFUSION RANGES OFCARS &TELEPHONES
[]SA

GERMANY

Ji4PAN

1,LJ