
2‘ SUBROUTINES
2‘ Define
2LPRINT E$; ’’&’’;CHR$(O);CHR$(6O) ;CHR$(60);
2RESTORE 2510
2READ LS :LPRINT CHR$(LS);
2READ CW :LPRINT CHR$(CW);
2READ RS :LPRINT CHR$(RS);
2FOR M=l TO CW*3
2READ MM
2LPRINT CHR$(MM);
2NEXT M
2RETURN
2‘ Define
2LPRINT CHR$(27) ;”{”;”&“;CHR$(192); CHR$(0) ;CHR$(0);
2LPRINT CHR$(60);CHR$(60) ;
2 RESTORE 2600
2READ LS :LPRINT CHR$(LS);
2 READ CW :LPRINT CHR$(CW);
2READ RS :LPRINT CHR$(RS);
2 FOR M=l TO CW*6
2READ MM
2 LPRINT CHR$(MM);
2NEXT M
2 RETURN
2‘ DATA
2‘
2 DATA 3, 31, 2
2DATA O, 0, 0, 7, 0, 0, 8, 0, 0, 23, 0, 0, 40, 0, 0
2 | D |
| 1 |
|
|
|
|
| 4 |
|
|
| 8 |
|
|
2 | D |
|
|
| 8 |
|
|
|
|
| 8 |
| 8 |
| 0 |
2 | D | 8 |
|
|
|
|
| 8 |
|
|
|
|
|
| |
2 | D |
|
|
| 8 |
|
|
|
| 0, | 80, | 47,192, | 40, | 16, | 0 |
2 | D |
| 1 |
|
|
| 0, | 23, | 0, | 0, | 8, | 0, | 0, 7, | 0, | 0 |
2 | DATA | O, | 0, | 0 |
|
|
|
|
|
|
|
|
|
|
|
2 | ‘ 4 |
| d |
| c |
| d |
|
|
|
|
|
|
|
|
2 | DATA | 3, | 31, | 2 |
|
|
|
|
|
|
|
|
|
|
|
2 | D | o, | 20, | 0, | 0, | 0, | 0, | 0,170, | 0, | 0, | 0, | 0 |
|
| |
2 | DATA | 1, | 84, | 0, | 0, | 0, | 0, | 6,170, | 0, | 0, | 0, | 0 |
|
| |
2 | D |
| 1 |
|
|
|
| 2 |
|
| 1 |
| 0 |
|
|
2 | D |
| 4 |
|
|
|
| 2 |
|
| 1 |
| 0 |
|
|
2 | D |
| 0 |
|
|
| 0, | 22, | 1, | 85, | 10,160, | 0 |
|
| |
2 | D | 4 |
|
| 3, | 80, | 0, |
|
|
| 2 |
| 0 |
|
|
2 | D | 4 |
|
|
|
| 0, | 22, | 1, | 80, | 2 |
| 0 |
|
|
2 | D |
| 2,160, |
| 5, | 80, | 0, | 22, | 1, | 80, | 2 |
| 0 |
|
|
2 | D |
| 2 |
|
|
| 0, | 22, | 1, | 80, | 2 |
| 0 |
|
|
2 | D | 4 |
|
|
|
| 0, | 22, | 85, | 84, | 2 |
| 0 |
|
|
2 | DATA | 40,170,170, |
| 5, | 80, | 0, | 22, | 1, | 85, | 10,160, | 0 |
|
| ||
2 | D |
| 0 |
|
|
|
| 2 |
|
| 1 |
| 0 |
|
|
2 | D |
| 4 |
|
|
|
| 2 |
|
| 1 |
| 0 |
|
|
2 | D |
| 1 |
|
|
|
| 6,170, | 0, | 0, | 0, | 0 |
|
| |
2 | DATA | 1, | 84, | 0, | 0, | 0, | 0, | 0,170, | 0, | 0, | 0, | 0 |
|
| |
2 | DATA | O, | 20, | 0, | 0, | 0, | 0 |
|
|
|
|
|
|
|
|
2 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2‘ Dot graphics data
2‘ 1ST LINE
2 | DATA | O, 0, 0, 0, 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0 | ||||
2 | DATA | O, | 0, 0, 0, 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0 | |||
2 | DATA | O, 0, 0, 0, 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0 | ||||
2 | DATA | O, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0 |
2 | DATA | O, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0, | 0,127,255, | 0,255,255 |
2DATA 1,255,255, 3, 0, 0, 7, 0, 0, 7, 0, 0, 15, 0, 0
2DATA 31, 0, 0, 31, 0, 0, 31, 0, 0, 31, 0, 0, 31, 0, 0
2DATA 31, 0, 0, 31, 0, 0, 31, 0, 0, 31, 0, 0, 31, 0, 0
2DATA 31, 0, 0, 31, 0, 0, 31, 0, 0, 31, 0, 0, 31, 0, 0