1130 | LPRINT | CHR$(27); ”D“;CHR$(ll):CHR$(0) |
|
|
|
|
|
|
| ||||||||
1140 | LPRINT | CHR$(27); ”k“;CHR$(12); CHR$(2;) | ;“4”. |
|
|
|
|
| |||||||||
1150 | LPRINT | CHR$(27) ;’’h’’;CHR$(l) |
|
|
|
|
|
|
|
|
| ||||||
1160 LPRINT “ DIFFUSION RANGES OF” |
|
|
|
|
|
|
|
| |||||||||
1170 | LPRINT | “ | CARS & | TELEPHONES” |
|
|
|
|
|
|
|
|
| ||||
1180 | LPRINT | CHR$(27) ;’’h’’;cHR$(o) |
|
|
|
|
|
|
|
|
| ||||||
1190 | LPRINT | CHR$(27);” k“;CHR$(0); CHR$(27) ;“5” |
|
|
|
|
|
| |||||||||
1200 | LPRINT | CHR$(27) ;’’%’’;CHR$(1) ; |
|
|
|
|
|
|
|
|
| ||||||
1210 LPRINT “USA’’;CHR$(9); |
|
|
|
|
|
|
|
|
|
|
|
| |||||
1220 | FOR 1=0 TO | 681 | STEP | 25 | :LPRINT | CHR$(60 | :NEXT | I |
|
|
| ||||||
1230 | LPRINT |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1240 LPRINT CHR$(9); |
|
|
|
|
|
|
|
|
|
|
|
|
|
| |||
1250 | FOR 1=0 TO | 781 | STEP | 25 | :LPRINT | CHR$(61. | :NEXT | I |
|
|
| ||||||
1260 | LPRINT |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1270 LPRINT “GERMANY”;CHR$(9); |
|
|
|
|
|
|
|
|
|
| |||||||
1280 | FOR 1=0 TO | 412 | STEP | 25 | :LPRINT | CHR$(60); | :NEXT | I |
|
|
| ||||||
1290 | LPRINT |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1300 LPRINT CHR$(9); |
|
|
|
|
|
|
|
|
|
|
|
|
|
| |||
1310 | FOR 1=0 TO | 488 | STEP | 25 | :LPRINT | CHR$(61); | :NEXT | I |
|
|
| ||||||
1320 | LPRINT |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1330 LPRINT “JAPAN’’;CHR$(9) ; |
|
|
|
|
|
|
|
|
|
| |||||||
1340 | FOR 1=0 TO | 347 | STEP | 25 | :LPRINT | CHR$(60); | :NEXT | I |
|
|
| ||||||
1350 | LPRINT |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1360 LPRINT CHR$(9); |
|
|
|
|
|
|
|
|
|
|
|
|
|
| |||
1370 | FOR 1=0 TO | 493 | STEP | 25 | :LPRINT | CHR$(61); | :NEXT | I |
|
|
| ||||||
1380 | LPRINT |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
1390 | LPRINT | CHR$(9) |
|
|
|
|
|
|
|
|
|
|
| ||||
1400 |
|
|
|
|
|
|
|
|
|
|
|
|
|
| |||
1410 | FOR 1=2 TO | 8 | :LPRINT | SCALE$; |
| :NEXT I |
|
|
|
|
|
| |||||
1420 ~PRINT |
|
|
|
|
|
|
|
|
|
|
|
|
|
| |||
1430 | LPRINT | CHR$(9); ”0 | “; |
|
|
|
|
|
|
|
|
|
|
|
| ||
1440 FOR 1=1 TO 8 |
|
|
|
|
|
|
|
|
|
|
|
|
|
| |||
1450 | LPRINT | “ “;1; |
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
1460 | NEXT I |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
1470 | LPRINT | CHR$(27) ;’’%’’;CHR$(O) |
|
|
|
|
|
|
|
|
| ||||||
1480 | LPRINT | CHR$(27); ’’M”; |
|
|
|
|
|
|
|
|
|
|
| ||||
1490 | LPRINT | CHR$(27) ;’’S’’;CHR$(O) |
|
|
|
|
|
|
|
|
| ||||||
1500 | LPRINT | CHR$(9); ” |
| (100 | UNITS/1000 | PERSONS)” |
|
|
|
|
| ||||||
1510 | LPRINT | CHR$(27); ’’T”; |
|
|
|
|
|
|
|
|
|
|
| ||||
1520 LPRINT CHR$(27);’’@I’ |
|
|
|
|
|
|
|
|
|
|
|
| |||||
1530 | END |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2000 | ‘ DATA |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2010 | ‘ Telephone Symbol |
|
|
|
|
|
|
|
|
|
|
|
|
| |||
2020 | DATA | 3, 31, | 2 |
|
|
|
|
|
|
|
|
|
|
|
|
| |
2030 | DATA | O, 0, 0, 7, 0, 0, 8, 0, 0, 23, 0, 0, 40, 0, 0 | |||||||||||||||
2040 | DATA | 19, | 15,192, | 40, | 16, | 0, | 80, | 47,192, | 32, | 80, | 0, | 80,175,192 | |||||
2050 | DATA | 47, 80, | 0, | 80,175,192, | 47, | 80, | 0, | 80,163,192, | 33, | 64, | 0 | ||||||
2060 | DATA | 80,163,192, | 33, | 64, | 0, | 80,163,192, | 47, | 80, | 0, | 80,175,192 | |||||||
2070 | DATA | 47, 80, | 0, | 80,175,192, | 32, | 80, | 0, | 80, | 47,192, | 40, | 16, | 0 | |||||
2080 | DATA | 19, | 15,192, | 40, | 0, | 0, | 23, | 0, | 0, | 8, 0, 0, 7, 0, 0 | |||||||
2090 | DATA | O, | 0, | 0 |
|
|
|
|
|
|
|
|
|
|
|
|
|
2100 | ‘ Car | Symbol |
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
2110 | DATA | 3, 31, | 2 |
|
|
|
|
|
|
|
|
|
|
|
|
| |
2120 | DATA | O, | 0, 0, | 0, | 30, 0, 0, 0, 0, 0, 60, 0, 0, 3, 0 | ||||||||||||
2130 | DATA | 0,252,128, | 0, | 3, | 64, | 1,252,128, | 2, | 3, | 64, | 5,124,128 | |||||||
2140 | DATA | 10, | 3, | 0, | 20,124, | 0, | 40, | 0, | 0, | 80,126, | 0, | 32, | 0, | 0 | |||
2150 | DATA | 64,12b, | O, | 63,128, | 0, | 64,126, | 0, | 63,128, | 0, | 64,124, | 0 | ||||||
2160 | DATA | 32, | 3, | 0, | 64,124,128, | 32, | 3, | 64, | 64,124,128, | 48, | 3, | 64 | |||||
2170 | DATA | 76,124,128, | 51, | 3, | 0, | 12,252, | 0, | 3, 0, 0, 0,254, 0 | |||||||||
2180 | DATA | O, | 0, | 0 |
|
|
|
|
|
|
|
|
|
|
|
|
|
70