AMT Datasouth 41AY89AR777 User Manual
Page 107
Attention! The text in this document has been recognized automatically. To view the original document, you can use the "Original mode".
PRINTWIRE
NUMBER
Figure 4.13 Diamond Pattern (DS-180 Graphics)
NOTE
To run the sample graphics program, features 29,35 and
49 must be enabled. Features 36 and 47 must be disabled.
SAMPLE GRAPHICS PROGRAM (DS-180 GRAPHICS )
20
OPEN -TTIO:- FOR OUTPUT FILE #1
25
PRINT #1,CHR$(28);: REM ENTER GRAPHICS
30
GOSUB 200: REM DRAW TOP OF BOX
40
FOR P-1 TO 7
50
GOSUB 300: REM DRAW LEFT & RIGHT SIDES
60
NEXT P
130
GOSUB 200: RSi DRAW BOTT<»4 OF BOX
140
PRINT #1.CHR$ (29) ; : REM EXIT GRAPHICS & CORRECT LINEFEED BOUNDARY
150
GOTO 500
200
REM THIS SUBROUTINE DRAWS TWO LINES OF DIAMONDS
205
REM EACH On line 36 DIAMONDS LONG
210
FOR M-1 TO 2
220
FOR N-1 TO 36
230
PRINT #1,CHR$(76) ;CHR$(82) ;CHR${97) ;CHR$(82) ;CHR$ (76)
;
240
NEXT N
250
PRINT #l,-6”;
260
NEXT M
270
RETURN
300
REM THIS SUBROUTINE DRAWS THE TWO DIAMONDS AT THE LEFT
305
REM AND RIGHT SIDES OF THE BOX
320
PRINT #1,CHR$(76) ;CHR${82) ;CHR$(97) ;CHR$(82) ;CHR$(76)
;
325
PRINT #1,CHR$(76);CHR${82);CHR$(97);CHR$(82);CHR${76);
330
PRINT #1,"0";
355
PRINT #1,"170-;CHR$(76);CHR$(82);CHR$(97);CHR$(82);CHR$(76);
360
PRINT #1,CHR$ (76) ;CHR$(82) ;CHR$C97) ;CHR$(82) ;CHRS(76)
;
365
PRINT #1,**6**;
370
RETURN
500
END
• > >
y?
4-48