home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / pb / library5 / winddemo.bas < prev   
Encoding:
BASIC Source File  |  1990-07-09  |  354 b   |  15 lines
  1. $LINK "LRWIND.PBU"
  2. DIM M$(10)
  3. COLOR 11:CLS
  4. FOR X=1 TO 350:PRINT X;:NEXT X:PRINT
  5. M$(1)="This is a test."
  6. M$(2)="This is line 2 of the window."
  7. M$(3)="Press any key to erase the window."
  8. M$(4)=""
  9. CALL Wind(20,12,3,15,M$(),1)
  10. A$=INPUT$(1)
  11. CALL Wind(0,0,0,0,M$(),0)
  12. COLOR 12
  13. PRINT TAB(22);"Press any key to end the demo program."
  14. A$=INPUT$(1)
  15.