program systst; { SYS call demo - 1/17/84 - EFM } %include 'plib:sys'; %include 'plib:rad50'; type string = packed array [1..3] of char; var x : array [0..31] of integer; i,i2,j,k : integer; xstr : string; begin for i := 0 to 31 do x[i] := 0; writeln; writeln('Enter values for the BASIC SYS call:'); repeat write(' Byte,Value (0,0 to stop)? '); readln(i,j); x[i] := j until i=0; sys(x); writeln; writeln('FIRQB:'); writeln(' addr byte byte addr word rad50'); for i := 1 to 15 do begin i2 := i * 2; j := (256 * x[i2]) + x[i2-1]; rad50(j,xstr); write(i2+1:6,x[i2]:6,x[i2-1]:6,i2:6,j:8,' '); for k := 1 to 3 do write(xstr[k]); writeln; end end.