|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Types: TextFile
Names: »PICPART.PAS«
└─⟦29e35ddf2⟧ Bits:30003931/CCPM_Tegn.imd Disketter indleveret af Steffen Jensen (Piccolo/Piccoline)
└─⟦this⟧ »PICPART.PAS«
program pic_part;
type
reg_type=record
ax,bx,cx,dx,bp,si,di,ds,es,flags:integer
end;
var
reg:reg_type;
mxcassette : array(.1..16.) of char;
n : integer;
begin
write(clrhom);
for n:=1 to 8 do mxcassette(.n.):='0';
mxcassette(.9.):='M';
mxcassette(.10.):='X';
mxcassette(.11.):='C';
mxcassette(.12.):='a';
mxcassette(.13.):='s';
mxcassette(.14.):='s';
mxcassette(.15.):=' ';
mxcassette(.16.):=' ';
for n:=1 to 16 do write(mxcassette(.n.));
for n:=1 to 10 do begin
writeln;
reg.dx:=ofs(mxcassette);
reg.ds:=seg(mxcassette);
reg.cx:=135;
swint(224,reg);
if reg.ax=0 then write('piccoline') else write('partner');
end;
end.«eof»