Table of Contents
Advertisement
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
-
Advertisement
Table of Contents
