CONFIGURE DUMP Example10 CONFIGURE DUMP TO "WIN-DUMP" !Use windows print driver for dumps to the printer.
20 DUMP DEVICE IS 10 !Use windows default printer for dumps.
30 CALL Text
40 PRINT "Hello"
50 DUMP ALPHA
60 WAIT 2
70 CALL Graphic
80 DUMP GRAPHICS #10
90 END
100 SUB Text
110 CLEAR SCREEN
120 PRINT "*** Print TEST ****"
130 PRINT "[TAB]";TAB(15);"15 spaces"
140 PRINT TABXY(5,5);"Cool, gotoxy()"
150 PRINT "It is all good!!!"
160 SUBEND
170 SUB Graphic
180 CLEAR SCREEN
190 GINIT
200 MOVE 40,40
210 RECTANGLE 10,20
220 DISP "1"
230 AREA PEN 3
240 RECTANGLE 10,-20,FILL
250 DISP "2"
260 PEN 2
270 RECTANGLE -10,-20,EDGE
280 DISP "3"
290 AREA PEN 7
300 PEN 8
310 RECTANGLE -10,20,FILL,EDGE
320 DISP "4"
330 DISP
340 SUBEND
|