HTBasic Help
×
Menu
Index

imove Example

10    CLEAR SCREEN
20    GCLEAR
30    MOVE 0,50
40    PEN 4
50    AREA PEN 1
60    IMOVE 10,10
70    RECTANGLE 5,5,FILL
80    AREA PEN 2
90    IMOVE 30,30
100   RECTANGLE 5,5,FILL
110   PRINT "Press CONTINUE..."
120   PAUSE
130   GINIT
140   CLEAR SCREEN
150   MOVE 0,50
160   PEN 4
170   AREA PEN 1
180   MOVE 10,10
190   RECTANGLE 5,5,FILL
200   AREA PEN 2
210   MOVE 30,30
220   RECTANGLE 5,5,FILL
230   END