Filter
Top Products
********
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-