Seiko TM-L60 Návod k obsluze Strana 64

  • Stažení
  • Přidat do mých příruček
  • Tisk
  • Strana
    / 85
  • Tabulka s obsahem
  • KNIHY
  • Hodnocené. / 5. Na základě hodnocení zákazníků
Zobrazit stránku 63
********
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
n
;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-
Zobrazit stránku 63
1 2 ... 59 60 61 62 63 64 65 66 67 68 69 ... 84 85

Komentáře k této Příručce

Žádné komentáře