Table of Contents
Advertisement
1130
1140
1150
1160
1170
1180
1190
1200
1210
1220
1230
1240
1250
1260
1270
1280
1290
1300
1310
1320
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 CHR$(27); " D"; CHR$(ll):CHR$(0)
LPRINT CHR$(27); " k"; CHR$(12); CHR$(2;) ;"4".
LPRINT CHR$(27) ;''h'';CHR$(l) ;
LPRINT "
DIFFUSION RANGES OF"
LPRINT "
CARS & TELEPHONES"
LPRINT CHR$(27) ;''h'';cHR$(o)
LPRINT CHR$(27);" k"; CHR$(0); CHR$(27) ;"5"
LPRINT CHR$(27) ;''%'' ;CHR$(1) ;
LPRINT "USA''; CHR$(9);
FOR 1=0 TO 681 STEP 25
:LPRINT CHR$(60
LPRINT
LPRINT CHR$(9);
FOR 1=0 TO 781 STEP 25
:LPRINT CHR$(61.
LPRINT
LPRINT "GERMANY";CHR$(9);
FOR 1=0 TO 412 STEP 25
:LPRINT CHR$(60);
:NEXT I
LPRINT
:NEXT I
:NEXT I
LPRINT CHR$(9);
FOR 1=0 TO 488 STEP 25
:LPRINT CHR$(61);
:NEXT I
LPRINT
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$;
:NEXT I
~PRINT "+-+"
LPRINT CHR$(9); "0 ";
FOR 1=1 TO 8
LPRINT " ";1;
NEXT I
LPRINT CHR$(27) ;''%'' ;CHR$(O)
LPRINT CHR$(27); ''M";
LPRINT CHR$(27) ;''S'';CHR$(O) ;
LPRINT CHR$(9); "
(100 UNITS/1000
PERSONS)"
LPRINT CHR$(27); ''T";
LPRINT CHR$(27);''@I'
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, 80,163,192,
47, 80,
0, 80,175,192
DATA
47, 80,
0, 80,175,192,
32, 80,
0, 80, 47,192, 40, 16,
0
DATA
19, 15,192, 40,
0,
0, 23,
0,
0,
8,
0,
0,
7,
0,
0
DATA
O,
0,
0
' Car Symbol
DATA
3, 31,
2
DATA
O,
0,
0,
0, 30,
0,
0,
0,
0,
0, 60,
0,
0,
3,
0
DATA
0,252,128,
0,
3, 64,
1,252,128,
2,
3, 64,
5,124,128
DATA
10,
3,
0, 20,124,
0, 40,
0,
0, 80,126,
0, 32,
0,
0
DATA
64,12b,
O, 63,128,
0, 64,126,
0, 63,128,
0, 64,124,
0
DATA
32,
3,
0, 64,124,128,
32,
3, 64, 64,124,128,
48,
3, 64
DATA
76,124,128,
51,
3,
0, 12,252,
0,
3,
0,
0,
0,254,
0
DATA
O,
0,
0
70
Advertisement
Table of Contents
