home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boston 2
/
boston-2.iso
/
DOS
/
PROGRAM
/
BASIC
/
POWBASIC
/
LIBRARY5
/
LRWIND.ZIP
/
WINDDEMO.BAS
< prev
Wrap
BASIC Source File
|
1990-07-09
|
354b
|
15 lines
$LINK "LRWIND.PBU"
DIM M$(10)
COLOR 11:CLS
FOR X=1 TO 350:PRINT X;:NEXT X:PRINT
M$(1)="This is a test."
M$(2)="This is line 2 of the window."
M$(3)="Press any key to erase the window."
M$(4)=""
CALL Wind(20,12,3,15,M$(),1)
A$=INPUT$(1)
CALL Wind(0,0,0,0,M$(),0)
COLOR 12
PRINT TAB(22);"Press any key to end the demo program."
A$=INPUT$(1)