BDEMO.P

[Table of Contents]
BDEMO.ATR Disk Image

BDEMO.P is an example program on Kyan Pascal 2.x Utility Disk 2. It has been compiled to BDEMO which is also on the same disk. The BDEMO.ATR disk image has had all the files needed to compile and run BDEMO copied to it.

If you want to run BDEMO from Kyan Pascal 2.x Utility Disk 2, you will need to copy the LIB file to that disk.

If you want to compile BDEMO yourself, you will need to have the following include files on the same disk as BDEMO.P:

• adddev.i
• bsave.i
• bload.i

Source Code

program bdemo(input,output);
    type
       pathstring=array[1..20] of char;
    var
       fyle:pathstring;
       r,amount,place:integer;
#i adddev.i
#i bsave.i
#i bload.i
    begin
       fyle:='memory.imm          ';
       place:=-17407;
       amount:=1024;
       r:=bsave(fyle,amount,place);
       writeln(r);
       writeln('This line is going to disappear');
       r:=bload(fyle,amount,place);
       writeln(r);
end.

Sample Run