1000 LPRINT CHR$(27);"xl";
1010 LPRINT CHR$(27); "&";CHR$(O);CHR$(60):CHR$(61);
1020 RESTORE 1540
1030 FOR N=60 TO 61
1040 READ LS :LPRINT CHR$(LS);
1050 READ CW :LPRINT CHR$(CN);
1060 READ RS :LPRINT CHR$(RS):
1070 FOR M=l TO CW*3
1080 READ MM
1090 LPRINT CHR$(MH);
1100 NEXT I4
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 n DIFFUSION RANGES OF”
1160 LPRINT ' CARS 6 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 CHRS(9):
1240 FOR I=0 TO';Si.STEP 25 :LPRINT CHR$(61); :NEXT I
1250 LPRINT
1260 LPRINT "GERMANY";CHR$(9);
1270 FOR I=0 TO 412 STEP 25 :LPRINT CHR$(60); :NEXT I
1280 LPRINT
1290 LPRINT CHRS(9);
1300 FOR I=0 TO 408 STEP 25 :LPRINT CHRS(61): :NEXT I
1310 LPRINT
1320 LPRINT "JAPAN";CHR$(9);
1330 FOR I-O TO 347 STEP 25 :LPRINT CHR$(60); :NEXT I
1340 LPRINT
1350 LPRINT CHR$(9):
1360 FOR I=0 TO 493 STEP 25 :LPRINT CHRS(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 CHRS(9);"O ";
1430 FOR I=1 TO 8
1440 LPRINT u ";I;
1450 NEXT I
1460 LPRINT CHR$(27);"%0"
1470 LPRINT CHRS(27);"M";
1480 LPRINT CHRQ(27);"SO";
1490 LPRINT CHR$(9);"(100 UNITS/1000 PERSONS)"
1500 LPRINT CHRS(27);"T";
1510 LPRINT CHR$(27):"@"
1520 END
1530 ' DATA
1540 ' Telephone Symbol
1550 DATA 4, 29, 3
1560 DATA 7, 0, 0, 8, 0, 0, 23. 0. 0, 40, 0, 0. 19, 15,192
1570 DATA 40, 16, 0, 00, 47,192, 32, SO, 0, SO,175,192, 47, SO, 0
1580 DATA 80.175.192, 47, SO, 0, 60,163,192, 33, 64, 0, 80,163,192
1590 DATA 33, 64, 0, 80,163,192, 47, SO, 0, 80,175,192, 47, 00, 0
80
-