1910

LPRINT E$;"r";CHR$(O);

 

 

 

 

 

 

1920

LPRINT

E$;"%O"

 

 

'Select

normal character

1930 LPRINT H$;C$;"Dot graphics:";

 

 

 

 

1940

DIM LOG0$(4)

 

 

 

 

 

 

 

 

1950

RESTORE 2450

 

 

 

 

 

 

 

 

1960

FOR ROW-1

TO 4

 

 

 

 

 

 

 

 

1970

FOR COL-1

TO 100

 

 

 

 

 

 

 

1980

READ DG

 

 

 

 

 

 

 

 

 

1990 LOGO$(ROW)=LOGO$(ROW)tCHR$(DG)

 

 

 

 

2000

NEXT COL

 

 

 

 

 

 

 

 

 

2010

NEXT ROW

 

 

 

 

 

 

 

 

 

2020

LPRINT

E$;"A";CHR$(8);

 

'Set

8/72"

line

spacing

2030

FOR ROW-1 TO 4

 

 

 

 

 

 

 

 

2040

LPRINT H$;H$;

 

 

 

'Select

normal

density

2050

LPRINT

E$;"*";CHR$(O);

 

2060

LPRINT CHR$(lOO);CHR$(O);

 

 

 

 

 

2070

LPRINT LOGO$(ROW)

 

 

 

 

 

 

 

2080

NEXT ROW

 

 

 

 

'Initialize

printer

 

2090

LPRINT

E$;"O"

 

 

 

 

2100

END

 

 

 

 

 

 

 

 

 

 

 

2110

'

 

 

 

 

 

 

 

 

 

 

 

 

2120

'

SUBROUTINES

 

 

 

 

 

 

 

 

2130

'

Define

draft

download

character

 

 

 

2140

LPRINT

D$;E$;":" ;CHR$(O);CHR$(O);CHR$(O);

 

 

2150

LPRINT E$;"&";CHR$(O);CHR$(6O);CHR$(60);

 

 

 

2160

RESTORE 2340

 

 

 

 

 

 

 

 

2170

FOR M-O TO 11

 

 

 

 

 

 

 

 

2180

READ MM

 

 

 

 

 

 

 

 

 

2190

LPRINT

CHR$(MM);

 

 

 

 

 

 

 

2200

NEXT M

 

 

 

 

 

 

 

 

 

 

2210

RETURN

 

 

 

 

 

 

 

 

 

 

2220

4

 

 

 

 

 

 

 

 

 

 

 

 

2230

'

Define

NLQ download

character

 

 

 

 

2240

LPRINT

C$;E$;":";

 

CHR$(O);CHR$(O);CHR$(O);

 

 

2250

LPRINT E$;"&";CHR5(0);CHR$(60);CHR$(60);

 

 

 

2260

RESTORE 2380

 

 

 

 

 

 

 

 

2270

FOR M-O TO 46

 

 

 

 

 

 

 

 

2280

READ MM

 

 

 

 

 

 

 

 

 

2290

LPRINT

CHR$(MM);

 

 

 

 

 

 

 

2300

NEXT M

 

 

 

 

 

 

 

 

 

 

2310

RETURN

 

 

 

 

 

 

 

 

 

 

2320

'

 

 

 

 

 

 

 

 

 

 

 

 

2330

'

DATA

 

 

 

 

 

 

 

 

 

 

2340

'

Draft

download

character

data

 

 

 

2350

DATA

139,124,

0,

66.

4,

64,

36,

16,

2,

16

2360

DATA

12,

0

 

 

 

 

 

 

 

 

2370

'

 

 

 

 

 

 

 

 

 

 

 

 

2380

NLQ download

character

 

data

 

 

 

 

2390

DATA

128,

14,

16,

38,

1.

70,

1,

70.

0,126

2400

DATA

 

0,

0,

70.

0.

38.

0,

22.

9.

6.

9

43

p”

Page 50
Image 50
Star Micronics lC-10 user manual Restore