Sample graphics program (epson graphics ) – AMT Datasouth 41AY89AR777 User Manual
Page 102
Attention! The text in this document has been recognized automatically. To view the original document, you can use the "Original mode".
SAMPLE GRAPHICS PROGRAM (Epson Graphics )
20
OPEN "TTIO:" FOR OUTPUT AS FILE #1
25
PRINT #l,CHR$i27);"A";CHR$i6);
30
GOSUB 200: REM DRAW TOP OF BOX
40
FOR P= 1 TO 8
50
GOSUB 300: REM DRAW LEFT
&
RIGHT SIDES
60
NEXT P
130
GOSUB 200: REM DRAW BOTTOM OF BOX
150
GOTO 500
200
REM THIS SUBROUTINE DRAWS TWO LINES OF DIAMONDS,
205
REM EACH LINE 36 DIAMONDS LONG.
210
FOR M = 1 TO 2
215
PRINT #1,CHRS(27);«K";CHR$(180);CHR$(0);
220
FOR N = 1 TO 36
230
PRINT #1,CHR$(48);CHR$(72);CHR$(132);CHR$(72);CHR$(48);
240
NEXT N
250
PRINT #1
2 60
NEXT M
270
RETURN
300
REM THIS SUBROUTINE DRAWS THE TWO DIAMONDS AT THE
LEFT
305
REM AND RIGHT SIDES OF THE BOX
310
PRINT #l,CHR$i27) ;''K";CHR${180) ;CHR$(0);
320
PRINT # 1,CHR$(48);CHR$(72);CHR$(132);CHR$(72);CHR$(48);
325
PRINT #1,CHRS(48);CHR$(72);CHR$(132) ;CHR$(72);CHR$ (48);
330
FOR I
= 1 TO 160
340
PRINT #1,CHR$(0);
350
NEXT I
355
PRINT #1,CHR$(48);CHR$(72);CHR$(132);CHR$(72);CHR$ (48);
360
PRINT #1,CHR$(48);CHR$(72) ;CHR$(132) ;CHR$(72);CHR$ (48);
365
PRINT #1
370
RETURN
500
END
4-43