1WIDTH ‘<LP’T1:“,255
1010 LPRINT CHR$ (27) ;“X 1“ ;
1020 LPRINT CHR$ (27) ;“I“;“& “;CHR$ (125) ;CHR$ (1);CHR$ (O ); 1030 LPRINT CHR$(60);CHR$( 61);
1040 FOR N=60 TO 61
1050 READ LS :LPRINT CHR$(LS);
1060 READ CW :LPRINT CHR$(CW);
1070 READ RS :LPRINT CHR$(RS) ;
1080 k’OR M=l TO CW’<6
1090 READ M!vl
1100 LPRINT CHR$(MM);
1110 NEXT M
1120 !iEXT N
1130 LPRINT CHR$(27); “D’’;CHR$(11);CHR$(O)
1140 LPRINT CHR$(27); ”k“;CHR$(12); CHR$(27) ;“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 L~RINT CHR$(9);
1310 FOR I=u 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 | :LPRIN’T SCALE$; |
| :NEXT | I |
|
| ||||
1420 | LPRINT |
|
|
|
|
|
|
|
|
|
| |||
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) ;”@” |
|
|
|
|
|
|
|
|
| |||
1530 | END |
|
|
|
|
|
|
|
|
|
|
|
|
|
2000 | ‘ DATA |
|
|
|
|
|
|
|
|
|
|
|
| |
2010 | ‘ Telephone Symbol |
|
|
|
|
|
|
|
|
| ||||
2020 | DATA |
| 3, | 31, | 2 |
|
|
| 0,170, | 0, | 0, | 0, | o | |
2030 | DATA |
| o, | 20, | 0, | 0, | 0, | 0, | ||||||
2040 | DATA |
| 1, | 84, | 0, | 0, | 0, | 0, | 6,170, | 0, | 0, | 0, | 0 | |
2050 | D |
|
|
| 1 |
|
|
| 2 |
|
| 1 |
| 0 |
2060 | D |
|
|
| 4 |
|
|
| 2 |
|
| 1 |
| 0 |
2070 | D |
|
| 0 |
|
|
| 0, | 22, | 1, | 85, | 10,160, |
| 0 |
2080 | D | 4 |
|
|
|
|
| 0, | 22, | 85, | 84, | 2 |
| 0 |
2090 | D | 4 |
|
|
|
|
| 0, | 22, | 1, | 80, | 2 |
| 0 |
2100 | D |
|
| 2 |
|
|
| 0, | 22, | 1, | 80, | 2 |
| 0 |
Chapter7 DOWNLOAD CHARACTERS 73