HP IBASIC Supplement 7-13
Graphics and Display Techniques
Drawing Figures
2010 CSIZE Size*Sc,.55
2020 MOVE X+Xpos*Sc,Y+Ypos*Sc
2030 PEN Pen
2040 LABEL Text$
2050 PEN 1
2060 SUBEND
2070 !
The following program displays a “HELP” screen and demonstrates
many of the techniques discussed so far. Running this program produces
the screen display shown in Figure 7-5.
10 DIM A$[58],String$[1000]
20 ASSIGN @Hp8711 TO 800
30 OUTPUT @Hp8711;"DISP:PROG FULL;*WAI"
40 GINIT
50 GCLEAR
60 MOVE 0,89
70 RECTANGLE 200,14
80 PRINT TABXY(24,2);"HELP"
90 OUTPUT A$;"This program demonstrates how to print several"
100 String$=String$A$
110 OUTPUT A$;"lines of text at one time. This method
offers"
120 String$=String$A$
130 OUTPUT A$;"the fastest possible print speed."
140 String$=String$A$
150 PRINTER IS CRT;WIDTH 1000 ! Prevent auto cr/lf
160 PRINT TABXY(1,5);String$
170 END
Figure 7-5 “HELP” Program Output
To Next Page
Loading...
Need help?
General
