Star Micronics LC24-15 LPRINT CHR$27xl, 1010, LPRINT CHR$27&CHR$OCHRS6OCHR$61, 1020, Restore

Models: LC24-15

1 133
Download 133 pages 7.92 Kb
Page 88
Image 88
1000 LPRINT CHR$(27);"xl";

1000 LPRINT CHR$(27);"xl";

 

 

 

 

 

 

 

 

 

 

 

1010

LPRINT CHR$(27);"&";CHR$(O);CHRS(6O):CHR$(61):

 

 

 

 

 

 

1020

RESTORE

1540

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1030 FOR N=60 TO 61

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1040 READ LS :LPRINT CHR$(LS);

 

 

 

 

 

 

 

 

 

 

1050

READ CW :LPRINT CHR$(CW);

 

 

 

 

 

 

 

 

 

 

1060 READ RS :LPRINT CHR$(RS);

 

 

 

 

 

 

 

 

 

 

1070 FOR M=l TO CW"3

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1000

READ

MM

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1090

LPRINT

CHR$(MM):

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1100

NEXT

M

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1110

NEXT

N

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1120

LPRINT CHR$(27);"D";CHR$(ll);CHR$(O)

 

 

 

 

 

 

 

 

1130

LPRINT CHR$(27);"k";CHR$(4);

 

 

 

 

 

 

 

 

 

 

1140

LPRINT CHR$(27);"h";CHR$(l);

 

 

 

 

 

 

 

 

 

 

1150

LPRINT

" DIFFUSION

 

RANGES

OF"

 

 

 

 

 

 

 

 

 

1160

LPRINT

'

CARS

&

TELEPHONES"

 

 

 

 

 

 

 

 

 

1170

LPRINT CHR$(27);"h";CHR$(O)

 

 

 

 

 

 

 

 

 

 

1180

LPRINT CHR$(27);"k";CHR$(O);

 

 

 

 

 

 

 

 

 

 

1190

LPRINT CHR$(27);"$1";

 

 

 

 

 

 

 

 

 

 

 

1200

LPRINT

"USA";CHR$(9);

 

 

 

 

 

 

 

 

 

 

 

1210

FOR

I=0

TO

681

STEP

25

 

:LPRINT

CHR$(60);

:NEXT

I

 

 

 

1220

LPRINT

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1230 LPRINT CHR$(P):

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1240

FOR

I=0

TO

781

STEP

25

 

:LPRINT

CHR$(61);

:NEXT

I

 

 

 

1250

LPRINT

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1260

LPRINT

"GERNANY";C!HR$(9);

 

 

 

 

 

 

 

 

 

 

1270

FOR

I=0

TO

412

STEP

25

 

:LPRINT

CHRS(60);

:NEXT

I

 

 

 

1280

LPRINT

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1290

LPRINT

CHR$(9);

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1300

FOR

I=0

TO

480

STEP

25

 

:LPRINT

CHR$(61);

:NEXT

I

 

 

 

1310

LPRINT

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1320

LPRINT

"JAPAN";CHR$(9);

 

 

 

 

 

 

 

 

 

 

 

1330

FOR

I=0

TO

347

STEP

25

 

:LPRINT

CHRS(60):

:NEXT

I

 

 

 

1340

LPRINT

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1350 LPRINT CHR$(S);

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1360

FOR

I=0

TO

493

STEP

25

 

:LPRINT

CHR$(61);

:NEXT

I

 

 

 

1370

LPRINT

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1380

LPRINT CHR$(9);"+-";

 

 

 

 

 

 

 

 

 

 

 

 

1390

SCALES="+-+-"

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1400

FOR

I=2

TO

S

 

 

 

 

:LPRINT

SCALES;

:NEXT

I

 

 

 

1410

LPRINT

"+-+"

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1420

LPRINT

CHR$(9):"0

";

 

 

 

 

 

 

 

 

 

 

 

1430

FOR' I=1

TO

8

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1440

LPRINT

' ";I;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1450

NEXT

I

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1460

LPRINT

CHR$(27) ;"%O"

 

 

 

 

 

 

 

 

 

 

 

1470

LPRINT CHR$(27) :"M" :

 

 

 

 

 

 

 

 

 

 

 

1480

LPRINT

CHR$(27) ;"SO":

 

 

 

 

 

 

 

 

 

 

 

1490

LPRINT

CHR$(9): '(100 UNITS/1000

PERSONS)"

 

 

 

 

 

 

1500

LPRINT

CHR$(27) ;"T" :

 

 

 

 

 

 

 

 

 

 

 

1510

LPRINT

CHR$(27) :"@"

 

 

 

 

 

 

 

 

 

 

 

 

1520

END

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1530

' DATA

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

1540

' Telephone

Symbol

 

 

 

 

 

 

 

 

 

 

 

 

1550

DATA

 

4,

29,

3

 

 

 

 

 

 

 

 

 

 

 

 

 

1560

DATA

 

7,

0.

0.

 

6,

0,

0,

23.

0.

0.

40.

0.

0,

19,

15,192

1570

DATA

40,

16,

0,

80,

47:192,

32,

SO,

0.

80,175,192.

47.

SO,

0

1580

DATA

80,175.192,

47,

SO.

0,

80,163.192,

33,

64,

0,

80,163,192

 

1590

DATA

33,

64,

0,

80,163.192,

47,

SO,

0,

80,175,192,

47.

SO,

0

80

Page 88
Image 88
Star Micronics LC24-15 LPRINT CHR$27xl, 1010, LPRINT CHR$27&CHR$OCHRS6OCHR$61, 1020, Restore, 1540, FOR N=60 TO, 1050