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