1400LPRINT“JAPAN”;CHR(9);$ 1410LPRINTCHR$(27);’’I’’:CHR$(6) 1420FOR1=0TO 347STEP25 :LPRINTCHR$(60);:NEXTI 1430LPRINT
1440LPRINTCHR$(9);
1450FOR 1=0TO 493STEP25 :LPRINTCHR$(61);:NEXTI 1460LPRINTcHR$(27);”I’’:CHR$(2)
1470LPRINT CHR$(9)
1490FOR 1=0TO 2 :LPRINTSCALES; :NEXTI 1500LPRINT“+-+”
1510LPRINTCHR$(9);”0 “; 1520FOR 1=1TO 8 1530LPRINT“ “;1;
1S40NEXTI |
|
| ;’’:”: |
|
|
|
|
1550LPRINT CHR$(27) |
|
|
|
| |||
1560LPRINT CHR$(27) | ;’’S’’:CHR$(O): |
|
| ||||
1570LPRINT CHR$(9):’’(IOO | UNIT.S/1000 PERSONS)” | ||||||
1580LPRINT CHR$(27):’’T”: |
|
|
|
| |||
1590LPRINT CHR$(27) | ;”@” |
|
|
|
| ||
1600END |
|
|
|
|
|
|
|
2000‘ DATA |
|
|
|
|
|
|
|
2010‘ Index Table Data |
|
|
|
| |||
2020DATA 137, | 17, | 25,227, | 96, | 4.242. | 0. | 96 | |
2030DATA 137, | 92, | 28,227, | 96, | o; 80, | 64, | 96 | |
2040‘ Dot Pattern Data |
|
|
|
|
|
|
|
|
|
|
|
| ||||
2050 | Telephone | symbol |
| o, 15, | 0, | 0, 31, | 0, | 0, 59, | 0, | 0 | ||||||
2060DATA | O, 0, 0, 7, 0, | |||||||||||||||
2070DATA | 59, 15,192, | 56, | 31, | 92, | 12, | 63,192,112,127, |
| 92,112,255,192 |
| |||||||
2080DATA 127,255,192,127,243, |
| 92, | 13,227,192,127,243, |
| 92,127,255,192 |
| ||||||||||
2090DATA 112.255.192.112.127, | 0, | 92, | 12, | 63,192, | 0, | 56, | 31, | 92, | 59, | 15,192 | 0 | |||||
2100DATA | 59; | o, | 0, 31, | 0, 15, | 0, | 7, | 0, | 0. | 0, | 0, | ||||||
2110 | Ca: | symbol | 0, | 0, 30, 0, | 0, 28, |
|
|
|
|
|
|
| ||||
2120DATA | o, | 0, | 0, | 0,60, | 0, | 0,63, | 0 | |||||||||
2130DATA | 0,255,128,0,255,92, | 1’ | 5S,192, |
| 3,255,192, |
| 7,127,128 |
| ||||||||
2140DATA | 14,127,0, 28,124,0, 56;’ | 24, | 0,112,126, |
| 0, | 96,124, | 0 | |||||||||
2150DATA | 27,2S4,0,127,252,0, 96, | 24, | 0, | 96,127, | 0, | 96,127,128 |
| |||||||||
2160DATA | 96,127,192,112,127,24, | 27,128, | 0 | 63,127, | 0, | 15,124, | 0 | |||||||||
2170DATA | 3,124, | 0, | 0,254, | 0, | 0, | 0, |
|
|
|
|
|
| ||||
