Table of Contents
Advertisement
1330
1340
1350
1360
1370
1380
1390
1400
1410
1420
1430
.1440
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
LPRINT "JAPAN" ;CHR$ (9) ;
FOR 1=0 TO 347
STEP 25
:LPRINT
CHR$(60);
:NEXT I
LPRINT
LPRINT CHR$(9);
FOR 1=0 TO 493
STEP 25
:LPRINT
CHR$(61):
:NEXT I
LPRINT
LPRINT CHR$(9) :"+-";
SCALE$="+–+-"
FOR 1=2 TO 8
:LPRINT
SCALE$;
LPRINT "+-+"
LPRINT CHR$(9):"0
":
FOR 1=1 TO 8
LPRINT H ";1;
NEXT I
LPRINT CHR$(27) ;"%" :CHR$(0)
LPRINT CHR$(27);
"M";
LPRINT CHR$(27) ;"S'';CHR$(O);
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.
DATA
19,
15,192,
40,
16,
0,
80,
47,192,
DATA 47,
80,
0,
80,175,192,
47,
80,
0,
DATA 80,163,192,
33,
64,
0,
80,163,192,
DATA 47,
80,
0,
80,175,192,
32,
80.
0,
DATA
19,
15,192,
40,
0,
0,
23,
0,
0,
DATA
O,
0,
0
' Car
Symbol
DATA
3,31,
2
DATA
O,
0,
0,
0,
30,
0,
0,
0,
0,
DATA
0,252,128,
0,
3,
64,
1,252,128,
DATA
10,
3,
0,
20,124,
0,
40,
0,
0,
DATA 64,126,
0,
63,128,
0,
64,126,
0,
DATA 32,
3,
0,
64,124,128,
32,
3,
64,
DATA 76,124,128,
51,
3,
0,
12,252,
0,
DATA
O,
0,
0
:NEXT I
23,
0,
0,
40,
0,
0
32,
80,
0,
80,175,192
80,163,192,
33,
64,
0
47,
80,
0,
80,175,192
80,
47,192,
40,
16,
0
8,
0,
0,
7,
0,
0
0,
60,
0,
0,
3,
0
2,
3,
64,
5,124,128
80,126,
0,
32,
0,
0
63,128,
0,
64,124,
0
64,124,128,
48,
3,
64
3,
0,
0,
0,254,
0
DIFFUSION
RANGES
OF
CARS
& TELEPHONES
121
Advertisement
Table of Contents
