Seiko TM-L60 Manual do Operador descarregar pdf (Página 64)

********

Program List

********

100

110

120

130

140

150

160

170

180

190

200

210

220'

230

240'

250

260

270

280

290

300

310

320

330

340

350

360

370

380

390

400

in MS-DOS BASIC

HOST COMPUTER:EPSON PC-286

OPEN "COM1:N81NN" AS #1

PRINT #1,CHR$(27);"@";

PRINT #1,"ABCDEF";CHR$(10);

PRINT #1,CHR$(27);"!";CHR$(1);

PRINT #1,"ABCDEF";CHR$(10);

PRINT #1,CHR$(27);"!";CHR$(48);

PRINT #1,"ABCDEFGHIJK";CHR$(10);

PRINT #1,CHR$(27);"!";CHR$(O);

PRINT #1,"ABCDEFGHIJK";CHR$(10);

FOR I=240 TO 255

PRINT #1,CHR$(I);

NEXT I

PRINT #1,CHR$(27);"t";CHR$(1);

FOR I=240 TO 255

PRINT #1,CHR$(I);

NEXT I

PRINT #1,CHR$(91);CHR$(92);CHR$(93);CHR$(94);CHR$(10);

PRINT #1,CHR$(27);"R";CHR$(1);

PRINT X1,CHR$(91);CHR$(92);CHR$(93);CHR$(94);CHR$(10);

PRINT #1,CHR$(27);"@";

PRINT #1,CHR$(29);"H

;CHR$(2);

PRINT #1,CHR$(27);"$";CHR$(40);CHR$(0);

PRINT #1,CHR$(29);"k";CHR$(2);"01234567890l";CHR$(O);

PRINT #1,CHR$(27);"p";CHR$(0);CHR$(10);CHR$(100;

PRINT #1,CHR$(27);"u";CHR$(0);

A$=INPUT$(1,#1)

IF A$=CHR$(0) THEN PRINT "DRW:L"

IF A$=CHR$(1) THEN PRINT "DRW:H"

CLOSE #1

-57-

1 2 ... 59 60 61 62 63 64 65 66 67 68 69 ... 84 85

Comentários a estes Manuais

Sem comentários

Seiko TM-L60 Manual do Operador Página 64

Comentários a estes Manuais

Manuais e produtos relacionados com Digitalizar e Imprimir Seiko TM-L60