home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library1 / rmex282.bas < prev    next >
Encoding:
BASIC Source File  |  1990-04-03  |  225 b   |  11 lines
  1. ' switch into medium-resolution graphics mode
  2. SCREEN 1
  3. House$ = "U20 G5 E20 F20 H5 D20 L30"
  4. DRAW House$
  5. DRAW "BE3"
  6. DRAW "P1,3"
  7. FOR I% = 1 TO 280 STEP 40
  8.   DRAW "M = " + VARPTR$(I%) + ",40"
  9.   DRAW House$
  10. NEXT I%
  11. END