1000 LPRINT CHR$(27);"xl";
1010 LPRINT CHR$(27);"&";CHR$(O);CHRS(6O):CHR$(61):
1020 RESTORE 1540
1030 FOR N=60 TO 61
1040 READ LS :LPRINT CHR$(LS);
1050 READ CW :LPRINT CHR$(CW);
1060 READ RS :LPRINT CHR$(RS);
1070 FOR M=l TO CW"3
1000 READ MM
1090 LPRINT CHR$(MM):
1100 NEXT M
1110 NEXT N
1120 LPRINT CHR$(27);"D";CHR$(ll);CHR$(O)
1130 LPRINT CHR$(27);"k";CHR$(4);
1140 LPRINT CHR$(27);"h";CHR$(l);
1150 LPRINT " DIFFUSION RANGES OF"
1160 LPRINT ' CARS & TELEPHONES"
1170 LPRINT CHR$(27);"h";CHR$(O)
1180 LPRINT CHR$(27);"k";CHR$(O);
1190 LPRINT CHR$(27);"$1";
1200 LPRINT "USA";CHR$(9);
1210 FOR I=0 TO 681 STEP 25 :LPRINT CHR$(60); :NEXT
I
1220 LPRINT
1230 LPRINT CHR$(P):
1240 FOR I=0 TO 781 STEP 25 :LPRINT CHR$(61); :NEXT
I
1250 LPRINT
1260 LPRINT "GERNANY";C!HR$(9);
1270 FOR I=0 TO 412 STEP 25 :LPRINT CHRS(60); :NEXT
I
1280 LPRINT
1290 LPRINT CHR$(9);
1300 FOR I=0 TO 480 STEP 25 :LPRINT CHR$(61); :NEXT
I
1310 LPRINT
1320 LPRINT "JAPAN";CHR$(9);
1330 FOR I=0 TO 347 STEP 25 :LPRINT CHRS(60): :NEXT
I
1340 LPRINT
1350 LPRINT CHR$(S);
1360 FOR I=0 TO 493 STEP 25 :LPRINT CHR$(61); :NEXT
I
1370 LPRINT
1380 LPRINT CHR$(9);"+-";
1390 SCALES="+-+-"
1400 FOR I=2 TO S :LPRINT SCALES;
:NEXT I
1410 LPRINT "+-+"
1420 LPRINT CHR$(9):"0 ";
1430 FOR' I=1 TO 8
1440 LPRINT ' ";I;
1450 NEXT I
; "%O"
: "M" :
; "SO":
'(100 UNITS/1000 PERSONS)"
; "T" :
: "@"
1460 LPRINT CHR$(27)
1470 LPRINT CHR$(27)
1480 LPRINT CHR$(27)
1490 LPRINT CHR$(9):
1500 LPRINT CHR$(27)
1510 LPRINT CHR$(27)
1520 END
1530 ' DATA
1540 ' Telephone Symbol
1550
DATA 4, 29, 3
1560 DATA
7, 0. 0.
6, 0, 0, 23. 0. 0.
40. 0. 0, 19, 15,192
1570
DATA 40, 16, 0,
80, 47:192, 32, SO, 0.
80,175,192.
47. SO, 0
1580 DATA
80,175.192,
47, SO. 0, 80,163.192,
33, 64, 0, 80,163,192
1590
DATA 33, 64, 0,
80,163.192, 47, SO, 0,
80,175,192,
47. SO, 0
80
